0010 ; DISASSEMBLY OF %NAM COMMAND 0020 0030 ZA4 .DE $A4 0040 ZA5 .DE $A5 0050 A7220 .DE $7220 0060 A7284 .DE $7284 0070 J74BD .DE $74BD 0080 S754F .DE $754F 0090 S758A .DE $758A 0100 S767C .DE $767C 0110 S781C .DE $781C 0120 S7840 .DE $7840 0130 S78AA .DE $78AA 0140 S7B04 .DE $7B04 0150 ; 0160 .BA $6D00 0170 .OS 0180 6D00- 20 04 7B 0190 JSR S7B04 6D03- A2 FF 0200 LDX #$FF ;. 6D05- E8 0210 B6D05 INX 6D06- BD 84 72 0220 LDA A7284,X 6D09- C9 0D 0230 CMP #$0D ;^M 6D0B- F0 1C 0240 BEQ B6D29 0250 ; 6D0D- C9 3D 0260 CMP #$3D ;= 6D0F- D0 F4 0270 BNE B6D05 0280 ; 6D11- 8E 20 72 0290 STX A7220 6D14- A9 0D 0300 LDA #$0D ;^M 6D16- 9D 84 72 0310 STA A7284,X 6D19- 20 1C 78 0320 JSR S781C 6D1C- 20 AA 78 0330 JSR S78AA 6D1F- 20 40 78 0340 JSR S7840 6D22- 90 09 0350 BCC B6D2D 0360 ; 6D24- A2 19 0370 LDX #$19 ;^Y 6D26- 4C BD 74 0380 B6D26 JMP J74BD 0390 ; 6D29- A2 00 0400 B6D29 LDX #$00 ;^@ 6D2B- F0 F9 0410 BEQ B6D26 0420 ; 6D2D- 20 04 7B 0430 B6D2D JSR S7B04 6D30- AE 20 72 0440 LDX A7220 6D33- A0 FF 0450 LDY #$FF ;. 6D35- E8 0460 B6D35 INX 6D36- C8 0470 INY 6D37- BD 84 72 0480 LDA A7284,X 6D3A- 99 84 72 0490 STA A7284,Y 6D3D- C9 0D 0500 CMP #$0D ;^M 6D3F- D0 F4 0510 BNE B6D35 0520 ; 6D41- 20 1C 78 0530 JSR S781C 6D44- A5 A4 0540 LDA *ZA4 6D46- 48 0550 PHA 6D47- A5 A5 0560 LDA *ZA5 6D49- 48 0570 PHA 6D4A- 20 40 78 0580 JSR S7840 6D4D- 90 14 0590 BCC B6D63 0600 ; 6D4F- 68 0610 PLA 6D50- 85 A5 0620 STA *ZA5 6D52- 68 0630 PLA 6D53- 85 A4 0640 STA *ZA4 6D55- A0 05 0650 LDY #$05 ;^E 6D57- B9 84 72 0660 B6D57 LDA A7284,Y 6D5A- 91 A4 0670 STA (ZA4),Y 6D5C- 88 0680 DEY 6D5D- 10 F8 0690 BPL B6D57 0700 ; 6D5F- 20 7C 76 0710 JSR S767C 6D62- 00 0720 BRK 0730 ; 6D63- A2 FF 0740 B6D63 LDX #$FF ;. 6D65- E8 0750 B6D65 INX 6D66- BD 72 6D 0760 LDA DUP.NAME,X 6D69- 20 4F 75 0770 JSR S754F 6D6C- 10 F7 0780 BPL B6D65 0790 ; 6D6E- 20 8A 75 0800 JSR S758A 6D71- 00 0810 BRK 0820 ; 6D72- 44 55 50 0830 DUP.NAME .BY 'DUPLICATE NAM' $C5 6D75- 4C 49 43 6D78- 41 54 45 6D7B- 20 4E 41 6D7E- 4D C5 0840 .EN 0000,6D80,6D80 >