. srcLO=&70:srcHI=&71:destLO=&72:destHI=&73
. �pass=4 � 6 � 2:O%=&B00:P%=&9800:[OPTpass
N LDAsrcLO:STAtemp1:LDAsrcHI:STAtemp2:LDAdestLO:STAtemp3:LDAdestHI:STAtemp4
(W LDA#0:STAdestLO:STAsrcLO:LDA#&9F:STAdestHI:LDA#&37:STAsrcHI:LDA#&C0:STAmax:JSRmove
)| LDX#load �256:LDY#load �256:JSR&FFF7:LDA#0:STAdestLO:STAsrcLO:LDA#&11:STAdestHI:LDA#&1D:STAsrcHI:LDA#&36:STAmax:JSRmove
*W LDA#0:STAdestLO:STAsrcLO:LDA#&37:STAdestHI:LDA#&9F:STAsrcHI:LDA#&58:STAmax:JSRmove
+_ LDA#&80:STAdestLO:STAsrcLO:LDA#4:STAdestHI:LDA#&88:STAsrcHI:LDA#&11:STAmax:JSRmove:JMP&480
2| .move LDY#0:.loop LDA(srcLO),Y:STA(destLO),Y:INCsrcLO:INCdestLO:BNEloop:INCsrcHI:INCdestHI:LDAdestHI:CMPmax:BNEloop:RTS
<N LDAtemp1:STAsrcLO:LDAtemp2:STAsrcHI:LDAtemp3:STAdestLO:LDAtemp4:STAdestHI
F JMP&480
Pe .temp1 EQUB0:.temp2 EQUB0:.temp3 EQUB0:.temp4 EQUB0:.max EQUB0:.load EQUS"LOAD MAIN 1D00":EQUB13
Z
 ]:�:�~P%
�

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 2e 20 e3 70 61 73 73  3d 34 20 b8 20 36 20 88  |.. .pass=4 . 6 .|
00000040  20 32 3a 4f 25 3d 26 42  30 30 3a 50 25 3d 26 39  | 2:O%=&B00:P%=&9|
00000050  38 30 30 3a 5b 4f 50 54  70 61 73 73 0d 00 1e 4e  |800:[OPTpass...N|
00000060  20 4c 44 41 73 72 63 4c  4f 3a 53 54 41 74 65 6d  | LDAsrcLO:STAtem|
00000070  70 31 3a 4c 44 41 73 72  63 48 49 3a 53 54 41 74  |p1:LDAsrcHI:STAt|
00000080  65 6d 70 32 3a 4c 44 41  64 65 73 74 4c 4f 3a 53  |emp2:LDAdestLO:S|
00000090  54 41 74 65 6d 70 33 3a  4c 44 41 64 65 73 74 48  |TAtemp3:LDAdestH|
000000a0  49 3a 53 54 41 74 65 6d  70 34 0d 00 28 57 20 4c  |I:STAtemp4..(W L|
000000b0  44 41 23 30 3a 53 54 41  64 65 73 74 4c 4f 3a 53  |DA#0:STAdestLO:S|
000000c0  54 41 73 72 63 4c 4f 3a  4c 44 41 23 26 39 46 3a  |TAsrcLO:LDA#&9F:|
000000d0  53 54 41 64 65 73 74 48  49 3a 4c 44 41 23 26 33  |STAdestHI:LDA#&3|
000000e0  37 3a 53 54 41 73 72 63  48 49 3a 4c 44 41 23 26  |7:STAsrcHI:LDA#&|
000000f0  43 30 3a 53 54 41 6d 61  78 3a 4a 53 52 6d 6f 76  |C0:STAmax:JSRmov|
00000100  65 0d 00 29 7c 20 4c 44  58 23 6c 6f 61 64 20 83  |e..)| LDX#load .|
00000110  32 35 36 3a 4c 44 59 23  6c 6f 61 64 20 81 32 35  |256:LDY#load .25|
00000120  36 3a 4a 53 52 26 46 46  46 37 3a 4c 44 41 23 30  |6:JSR&FFF7:LDA#0|
00000130  3a 53 54 41 64 65 73 74  4c 4f 3a 53 54 41 73 72  |:STAdestLO:STAsr|
00000140  63 4c 4f 3a 4c 44 41 23  26 31 31 3a 53 54 41 64  |cLO:LDA#&11:STAd|
00000150  65 73 74 48 49 3a 4c 44  41 23 26 31 44 3a 53 54  |estHI:LDA#&1D:ST|
00000160  41 73 72 63 48 49 3a 4c  44 41 23 26 33 36 3a 53  |AsrcHI:LDA#&36:S|
00000170  54 41 6d 61 78 3a 4a 53  52 6d 6f 76 65 0d 00 2a  |TAmax:JSRmove..*|
00000180  57 20 4c 44 41 23 30 3a  53 54 41 64 65 73 74 4c  |W LDA#0:STAdestL|
00000190  4f 3a 53 54 41 73 72 63  4c 4f 3a 4c 44 41 23 26  |O:STAsrcLO:LDA#&|
000001a0  33 37 3a 53 54 41 64 65  73 74 48 49 3a 4c 44 41  |37:STAdestHI:LDA|
000001b0  23 26 39 46 3a 53 54 41  73 72 63 48 49 3a 4c 44  |#&9F:STAsrcHI:LD|
000001c0  41 23 26 35 38 3a 53 54  41 6d 61 78 3a 4a 53 52  |A#&58:STAmax:JSR|
000001d0  6d 6f 76 65 0d 00 2b 5f  20 4c 44 41 23 26 38 30  |move..+_ LDA#&80|
000001e0  3a 53 54 41 64 65 73 74  4c 4f 3a 53 54 41 73 72  |:STAdestLO:STAsr|
000001f0  63 4c 4f 3a 4c 44 41 23  34 3a 53 54 41 64 65 73  |cLO:LDA#4:STAdes|
00000200  74 48 49 3a 4c 44 41 23  26 38 38 3a 53 54 41 73  |tHI:LDA#&88:STAs|
00000210  72 63 48 49 3a 4c 44 41  23 26 31 31 3a 53 54 41  |rcHI:LDA#&11:STA|
00000220  6d 61 78 3a 4a 53 52 6d  6f 76 65 3a 4a 4d 50 26  |max:JSRmove:JMP&|
00000230  34 38 30 0d 00 32 7c 20  2e 6d 6f 76 65 20 4c 44  |480..2| .move LD|
00000240  59 23 30 3a 2e 6c 6f 6f  70 20 4c 44 41 28 73 72  |Y#0:.loop LDA(sr|
00000250  63 4c 4f 29 2c 59 3a 53  54 41 28 64 65 73 74 4c  |cLO),Y:STA(destL|
00000260  4f 29 2c 59 3a 49 4e 43  73 72 63 4c 4f 3a 49 4e  |O),Y:INCsrcLO:IN|
00000270  43 64 65 73 74 4c 4f 3a  42 4e 45 6c 6f 6f 70 3a  |CdestLO:BNEloop:|
00000280  49 4e 43 73 72 63 48 49  3a 49 4e 43 64 65 73 74  |INCsrcHI:INCdest|
00000290  48 49 3a 4c 44 41 64 65  73 74 48 49 3a 43 4d 50  |HI:LDAdestHI:CMP|
000002a0  6d 61 78 3a 42 4e 45 6c  6f 6f 70 3a 52 54 53 0d  |max:BNEloop:RTS.|
000002b0  00 3c 4e 20 4c 44 41 74  65 6d 70 31 3a 53 54 41  |.<N LDAtemp1:STA|
000002c0  73 72 63 4c 4f 3a 4c 44  41 74 65 6d 70 32 3a 53  |srcLO:LDAtemp2:S|
000002d0  54 41 73 72 63 48 49 3a  4c 44 41 74 65 6d 70 33  |TAsrcHI:LDAtemp3|
000002e0  3a 53 54 41 64 65 73 74  4c 4f 3a 4c 44 41 74 65  |:STAdestLO:LDAte|
000002f0  6d 70 34 3a 53 54 41 64  65 73 74 48 49 0d 00 46  |mp4:STAdestHI..F|
00000300  0c 20 4a 4d 50 26 34 38  30 0d 00 50 65 20 2e 74  |. JMP&480..Pe .t|
00000310  65 6d 70 31 20 45 51 55  42 30 3a 2e 74 65 6d 70  |emp1 EQUB0:.temp|
00000320  32 20 45 51 55 42 30 3a  2e 74 65 6d 70 33 20 45  |2 EQUB0:.temp3 E|
00000330  51 55 42 30 3a 2e 74 65  6d 70 34 20 45 51 55 42  |QUB0:.temp4 EQUB|
00000340  30 3a 2e 6d 61 78 20 45  51 55 42 30 3a 2e 6c 6f  |0:.max EQUB0:.lo|
00000350  61 64 20 45 51 55 53 22  4c 4f 41 44 20 4d 41 49  |ad EQUS"LOAD MAI|
00000360  4e 20 31 44 30 30 22 3a  45 51 55 42 31 33 0d 00  |N 1D00":EQUB13..|
00000370  5a 0d 20 5d 3a ed 3a f1  7e 50 25 0d ff           |Z. ]:.:.~P%..|
0000037d