
 1000  *SAVE S.TIME MVN
 1010         .OP 65816
 1020         .OR $300
 1030  *--------------------------------
 1040  CNTR   .EQ 0 AND 1
 1050  *--------------------------------
 1060  MVN.TIMER
 1070         CLC          65816 MODE
 1080         XCE
 1090         REP #$30     16-BIT MODE
 1100  *--------------------------------
 1110         LDA ##1000
 1120         STA CNTR
 1130  *--------------------------------
 1140  .1     LDX ##$3000  Source start address
 1150         LDY ##$4000  Destination start address
 1160         LDA ##9999   # Bytes - 1
 1170         MVN 0,0
 1180         DEC CNTR
 1190  *      BNE .1
 1200  *--------------------------------
 1210         SEC          RETURN TO 6502 MODE
 1220         XCE
 1230         RTS

