. srcLO=&70:srcHI=&71:destLO=&72:destHI=&73
& �pass=0 � 2 � 2:P%=&6000:[OPTpass
N LDAsrcLO:STAtemp1:LDAsrcHI:STAtemp2:LDAdestLO:STAtemp3:LDAdestHI:STAtemp4
)z LDX#load �256:LDY#load �256:JSR&FFF7:LDA#0:STAdestLO:STAsrcLO:LDA#&C:STAdestHI:LDA#&E:STAsrcHI:LDA#&58:STAmax:JSRmove
<N LDAtemp1:STAsrcLO:LDAtemp2:STAsrcHI:LDAtemp3:STAdestLO:LDAtemp4:STAdestHI
F JMP&E02
K| .move LDY#0:.loop LDA(srcLO),Y:STA(destLO),Y:INCsrcLO:INCdestLO:BNEloop:INCsrcHI:INCdestHI:LDAdestHI:CMPmax:BNEloop:RTS
Pg .temp1 EQUB0:.temp2 EQUB0:.temp3 EQUB0:.temp4 EQUB0:.max EQUB0:.load EQUS"LOAD ZIGcode E00":EQUB13
Z ]:�:�&6000
�

00000000  0d 00 0a 2e 20 73 72 63  4c 4f 3d 26 37 30 3a 73  |.... srcLO=&70:s|
00000010  72 63 48 49 3d 26 37 31  3a 64 65 73 74 4c 4f 3d  |rcHI=&71:destLO=|
00000020  26 37 32 3a 64 65 73 74  48 49 3d 26 37 33 0d 00  |&72:destHI=&73..|
00000030  14 26 20 e3 70 61 73 73  3d 30 20 b8 20 32 20 88  |.& .pass=0 . 2 .|
00000040  20 32 3a 50 25 3d 26 36  30 30 30 3a 5b 4f 50 54  | 2:P%=&6000:[OPT|
00000050  70 61 73 73 0d 00 1e 4e  20 4c 44 41 73 72 63 4c  |pass...N LDAsrcL|
00000060  4f 3a 53 54 41 74 65 6d  70 31 3a 4c 44 41 73 72  |O:STAtemp1:LDAsr|
00000070  63 48 49 3a 53 54 41 74  65 6d 70 32 3a 4c 44 41  |cHI:STAtemp2:LDA|
00000080  64 65 73 74 4c 4f 3a 53  54 41 74 65 6d 70 33 3a  |destLO:STAtemp3:|
00000090  4c 44 41 64 65 73 74 48  49 3a 53 54 41 74 65 6d  |LDAdestHI:STAtem|
000000a0  70 34 0d 00 29 7a 20 4c  44 58 23 6c 6f 61 64 20  |p4..)z LDX#load |
000000b0  83 32 35 36 3a 4c 44 59  23 6c 6f 61 64 20 81 32  |.256:LDY#load .2|
000000c0  35 36 3a 4a 53 52 26 46  46 46 37 3a 4c 44 41 23  |56:JSR&FFF7:LDA#|
000000d0  30 3a 53 54 41 64 65 73  74 4c 4f 3a 53 54 41 73  |0:STAdestLO:STAs|
000000e0  72 63 4c 4f 3a 4c 44 41  23 26 43 3a 53 54 41 64  |rcLO:LDA#&C:STAd|
000000f0  65 73 74 48 49 3a 4c 44  41 23 26 45 3a 53 54 41  |estHI:LDA#&E:STA|
00000100  73 72 63 48 49 3a 4c 44  41 23 26 35 38 3a 53 54  |srcHI:LDA#&58:ST|
00000110  41 6d 61 78 3a 4a 53 52  6d 6f 76 65 0d 00 3c 4e  |Amax:JSRmove..<N|
00000120  20 4c 44 41 74 65 6d 70  31 3a 53 54 41 73 72 63  | LDAtemp1:STAsrc|
00000130  4c 4f 3a 4c 44 41 74 65  6d 70 32 3a 53 54 41 73  |LO:LDAtemp2:STAs|
00000140  72 63 48 49 3a 4c 44 41  74 65 6d 70 33 3a 53 54  |rcHI:LDAtemp3:ST|
00000150  41 64 65 73 74 4c 4f 3a  4c 44 41 74 65 6d 70 34  |AdestLO:LDAtemp4|
00000160  3a 53 54 41 64 65 73 74  48 49 0d 00 46 0c 20 4a  |:STAdestHI..F. J|
00000170  4d 50 26 45 30 32 0d 00  4b 7c 20 2e 6d 6f 76 65  |MP&E02..K| .move|
00000180  20 4c 44 59 23 30 3a 2e  6c 6f 6f 70 20 4c 44 41  | LDY#0:.loop LDA|
00000190  28 73 72 63 4c 4f 29 2c  59 3a 53 54 41 28 64 65  |(srcLO),Y:STA(de|
000001a0  73 74 4c 4f 29 2c 59 3a  49 4e 43 73 72 63 4c 4f  |stLO),Y:INCsrcLO|
000001b0  3a 49 4e 43 64 65 73 74  4c 4f 3a 42 4e 45 6c 6f  |:INCdestLO:BNElo|
000001c0  6f 70 3a 49 4e 43 73 72  63 48 49 3a 49 4e 43 64  |op:INCsrcHI:INCd|
000001d0  65 73 74 48 49 3a 4c 44  41 64 65 73 74 48 49 3a  |estHI:LDAdestHI:|
000001e0  43 4d 50 6d 61 78 3a 42  4e 45 6c 6f 6f 70 3a 52  |CMPmax:BNEloop:R|
000001f0  54 53 0d 00 50 67 20 2e  74 65 6d 70 31 20 45 51  |TS..Pg .temp1 EQ|
00000200  55 42 30 3a 2e 74 65 6d  70 32 20 45 51 55 42 30  |UB0:.temp2 EQUB0|
00000210  3a 2e 74 65 6d 70 33 20  45 51 55 42 30 3a 2e 74  |:.temp3 EQUB0:.t|
00000220  65 6d 70 34 20 45 51 55  42 30 3a 2e 6d 61 78 20  |emp4 EQUB0:.max |
00000230  45 51 55 42 30 3a 2e 6c  6f 61 64 20 45 51 55 53  |EQUB0:.load EQUS|
00000240  22 4c 4f 41 44 20 5a 49  47 63 6f 64 65 20 45 30  |"LOAD ZIGcode E0|
00000250  30 22 3a 45 51 55 42 31  33 0d 00 5a 0f 20 5d 3a  |0":EQUB13..Z. ]:|
00000260  ed 3a d6 26 36 30 30 30  0d ff                    |.:.&6000..|
0000026a