0010            ; DISASSEMBLY OF %DEL COMMAND
                0020  
                0030 A7000      .DE $7000
                0040 A7283      .DE $7283
                0050 A7284      .DE $7284
                0060 S767C      .DE $767C
                0070 S76AC      .DE $76AC
                0080 S786B      .DE $786B
                0090 S78A7      .DE $78A7
                0100 S7914      .DE $7914
                0110 S7B04      .DE $7B04
                0120 ;
                0130            .BA $6D00
                0140            .OS
                0150  
6D00- 20 04 7B  0160            JSR S7B04
6D03- 20 A7 78  0170            JSR S78A7
6D06- A2 06     0180            LDX #$06     ;^F
6D08- CA        0190 B6D08      DEX 
6D09- 30 1E     0200            BMI B6D29
                0210 ;
6D0B- A9 00     0220            LDA #$00     ;^@
6D0D- 9D 00 70  0230            STA A7000,X
6D10- BD 84 72  0240            LDA A7284,X
6D13- DD 2D 6D  0250            CMP DEL.INDEX,X
6D16- F0 F0     0260            BEQ B6D08
                0270 ;
6D18- A9 21     0280            LDA #$21     ;!
6D1A- 8D 83 72  0290            STA A7283
6D1D- 20 6B 78  0300            JSR S786B
6D20- 90 04     0310            BCC B6D26
                0320 ;
6D22- 20 14 79  0330            JSR S7914
6D25- 00        0340            BRK 
                0350 ;
6D26- 20 AC 76  0360 B6D26      JSR S76AC
6D29- 20 7C 76  0370 B6D29      JSR S767C
6D2C- 00        0380            BRK 
                0390 ;
6D2D- 49 4E 44  0400 DEL.INDEX  .BY 'INDEX!'
6D30- 45 58 21
                0410            .EN

0000,6D33,6D33
>