Written some cool source code? Upload it to Programmer's Heaven.
*/
*/

View \MOVE16_A.ASM

How to use the MOVE16 instruction in a 68040

Submitted By: Unknown
Rating: Not rated (Rate It)


CSECT   text
        xdef    @MoveMem16
        xdef    @MoveMem
move16reg       MACRO ; move16 (a0)+,(a1)+
        dc.l    $f6209000
        endm
        cnop    0,16
@MoveMem16 EQU  * ; ptr is in A0
        lsr.w   #5,d0
        subq.l  #1,d0
        nop
ll:
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        move16reg ; move16      (a0)+,(a1)+
       
        dbra    d0,ll
        nop
        rts
        cnop    0,16
@MoveMem equ *
        lsr.w   #4,d0
        subq.l  #1,d0
lll:
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        move.l  (a0)+,(a1)+
        dbra    d0,lll
        rts
        cnop    0,16
        end

corner
© 1996-2008 CommunityHeaven LLC. All rights reserved. Reproduction in whole or in part, in any form or medium without express written permission is prohibited.
Violators of this policy may be subject to legal action. Please read our Terms Of Use and Privacy Statement for more information.
North American business development: Nicolai Wadstrom. Publisher: Lars Hagelin.
Resource Listings