0010 ; DISASSEMBLY OF %CPY COMMAND 0020 0030 A7215 .DE $7215 0040 A722A .DE $722A 0050 A7257 .DE $7257 0060 A7258 .DE $7258 0070 A726C .DE $726C 0080 A7280 .DE $7280 0090 A7283 .DE $7283 0100 A7284 .DE $7284 0110 A7285 .DE $7285 0120 J7464 .DE $7464 0130 S746D .DE $746D 0140 J74BB .DE $74BB 0150 S754F .DE $754F 0160 S756F .DE $756F 0170 S758A .DE $758A 0180 S78AA .DE $78AA 0190 J790C .DE $790C 0200 J7A01 .DE $7A01 0210 J7A58 .DE $7A58 0220 S7B04 .DE $7B04 0230 ; 0240 .BA $6D00 0241 .OS 0242 6D00- A2 00 0250 LDX #$00 ;^@ 6D02- 8E 6C 72 0260 STX A726C 6D05- 20 04 7B 0270 JSR S7B04 6D08- AD 83 72 0280 LDA A7283 6D0B- C9 20 0290 CMP #$20 ; 6D0D- D0 45 0300 BNE B6D54 0310 ; 6D0F- A2 00 0320 B6D0F LDX #$00 ;^@ 6D11- A0 02 0330 LDY #$02 ;^B 6D13- AD 84 72 0340 LDA A7284 6D16- C9 32 0350 CMP #$32 ;2 6D18- F0 08 0360 BEQ B6D22 0370 ; 6D1A- C9 31 0380 CMP #$31 ;1 6D1C- D0 33 0390 BNE B6D51 0400 ; 6D1E- A2 02 0410 LDX #$02 ;^B 6D20- A0 00 0420 LDY #$00 ;^@ 6D22- 8E 57 72 0430 B6D22 STX A7257 6D25- 8C 58 72 0440 STY A7258 6D28- 8E 15 72 0450 STX A7215 6D2B- 20 AA 78 0460 JSR S78AA 6D2E- 90 32 0470 BCC B6D62 0480 ; 6D30- A2 00 0490 LDX #$00 ;^@ 6D32- 20 A2 6D 0500 JSR PROMPT 6D35- AA 0510 TAX 6D36- 20 6D 74 0520 JSR S746D 6D39- AD 80 72 0530 LDA A7280 6D3C- 8D 84 72 0540 STA A7284 6D3F- AD 2A 72 0550 LDA A722A 6D42- 8D 85 72 0560 STA A7285 6D45- A9 20 0570 LDA #$20 ; 6D47- A2 03 0580 LDX #$03 ;^C 6D49- 9D 80 72 0590 B6D49 STA A7280,X 6D4C- CA 0600 DEX 6D4D- 10 FA 0610 BPL B6D49 0620 ; 6D4F- 30 BE 0630 BMI B6D0F 0640 ; 6D51- 4C 0C 79 0650 B6D51 JMP J790C 0660 ; 6D54- 4C BB 74 0670 B6D54 JMP J74BB 0680 ; 6D57- 20 8A 75 0690 B6D57 JSR S758A 6D5A- A2 3A 0700 LDX #$3A ;: 6D5C- 20 A2 6D 0710 JSR PROMPT 6D5F- 4C 64 74 0720 JMP J7464 0730 ; 6D62- A2 0F 0740 B6D62 LDX #$0F ;^O 6D64- 20 A2 6D 0750 JSR PROMPT 6D67- E8 0760 INX 6D68- AD 57 72 0770 LDA A7257 6D6B- C9 00 0780 CMP #$00 ;^@ 6D6D- F0 02 0790 BEQ B6D71 0800 ; 6D6F- A2 33 0810 LDX #$33 ;3 6D71- 20 A2 6D 0820 B6D71 JSR PROMPT 6D74- 20 6F 75 0830 B6D74 JSR S756F 6D77- C9 18 0840 CMP #$18 ;^X 6D79- F0 DC 0850 BEQ B6D57 0860 ; 6D7B- C9 0D 0870 CMP #$0D ;^M 6D7D- D0 F5 0880 BNE B6D74 0890 ; 6D7F- 20 8A 75 0900 JSR S758A 6D82- AD 85 72 0910 LDA A7285 6D85- C9 2F 0920 CMP #$2F ;/ 6D87- F0 12 0930 BEQ B6D9B 0940 ; 6D89- C9 41 0950 CMP #$41 ;A 6D8B- F0 0B 0960 BEQ B6D98 0970 ; 6D8D- C9 61 0980 CMP #$61 ;a 6D8F- F0 07 0990 BEQ B6D98 1000 ; 6D91- C9 0D 1010 CMP #$0D ;^M 6D93- D0 BF 1020 BNE B6D54 1030 ; 6D95- 8D 6C 72 1040 STA A726C 6D98- 4C 58 7A 1050 B6D98 JMP J7A58 1060 ; 6D9B- 4C 01 7A 1070 B6D9B JMP J7A01 1080 ; 6D9E- 20 4F 75 1090 B6D9E JSR S754F 6DA1- E8 1100 INX 6DA2- BD A8 6D 1110 PROMPT LDA MESG,X 6DA5- D0 F7 1120 BNE B6D9E 1130 ; 6DA7- 60 1140 RTS 1150 ; 6DA8- 54 61 72 1160 MESG .BY 'Target disk?: ' $00 6DAB- 67 65 74 6DAE- 20 64 69 6DB1- 73 6B 3F 6DB4- 3A 20 00 6DB7- 45 6E 74 1170 .BY 'Enter "return" to copy from ' $00 6DBA- 65 72 20 6DBD- 22 72 65 6DC0- 74 75 72 6DC3- 6E 22 20 6DC6- 74 6F 20 6DC9- 63 6F 70 6DCC- 79 20 66 6DCF- 72 6F 6D 6DD2- 20 00 6DD4- 31 20 74 1180 .BY '1 to 2' $00 6DD7- 6F 20 32 6DDA- 00 6DDB- 32 20 74 1190 .BY '2 to 1' $00 6DDE- 6F 20 31 6DE1- 00 6DE2- 41 62 6F 1200 .BY 'Aborted' $00 6DE5- 72 74 65 6DE8- 64 00 1210 .EN 0000,6DEA,6DEA >