TMPFROM = $CB ;Temporary Location
TMPTO   = $CD ; "
FROM = $8000  ; Source address
TO = $1000    ; Destination Address
LENGTH = $2000 ; Number of bytes to move
ENDADDR = FROM + LENGTH

           *=$6000

          LDA <FROM
          STA TMPFROM
          LDA >FROM
          STA TMPFROM+1
          LDA <TO
          STA TMPTO
          LDA >TO
          STA TMPTO+1
          LDY #00
MAINLOOP  LDA (TMPFROM),Y
          STA (TMPTO),Y
          INC TMPFROM
          BNE L0001
          INC TMPFROM+1
L0001     INC TMPTO
          BNE L0002
          INC TMPTO+1
L0002     LDA TMPFROM+1
          CMP >ENDADDR
          BNE L0003
          LDA TMPFROM
          CMP <ENDADDR
          BNE L0003
          JMP EXIT
L0003     JMP MAINLOOP
EXIT      RTS
;