� Improved ADFS *Wipe
� by Richard Coleman
� (c) The Micro User
(� pass=0 � 2 � 2
2P%=&C00:[OPT pass:.file
<LDA block+9:STA copy
FLDA block+10:STA copy+1
P
.file2
Z8LDA #1:STA block+5:LDX #block � 256:LDY #block � 256
dLDA #8:JSR &FFD1
nLDA #1:CMP block+5
xBNE attrib:JMP &FFE7
�.attrib
�LDA #5:LDX #block2 � 256
�LDY #block2 � 256:JSR &FFDD
�CMP #1:BEQ attrib2
�CMP #2:BEQ file
�CMP #&FF:BEQ file:JMP file
�
 .attrib2
�LDX #0:LDA block2+14:LSR A
�LSR A:LSR A:CLC:LSR A
�BCC attrib3:JMP file
�.attrib3
�LDA name,X:JSR &FFEE
�INX:CPX name1:BNE attrib3

.attrib4

LDA #32:JSR &FFEE

INX:CPX #11:BNE attrib4

"LDA #58:JSR &FFEE

,LDA #32:JSR &FFEE

6JSR &FFE0:BCS escape

@� #&DF:CMP #89

JBEQ yes:LDA #78

T JSR &FFEE:JSR &FFE7:JMP file

^.escape

hLDA #78:JSR &FFEE:JSR &FFE7

rLDA #125:JMP &FFF4

|.yes

�JSR &FFEE:LDA #6

�:LDX #block2 � 256:LDY #block2 � 256:JSR &FFDD:LDA copy

�STA block+9:LDA copy+1

�STA block+10:JSR &FFE7

�
JMP file2

�X.block:EQUB 0:EQUD name1:EQUD 0:EQUD 0:.block2:EQUW name:EQUD 0:EQUD 0:EQUD 0:EQUD 0

�.name1:EQUB 0

�.name:EQUS �11,�13)

�.copy:EQUW 0

�]:�:�"SA.Wipe C00 "+�~P%
�

00000000  0d 00 0a 19 f4 20 49 6d  70 72 6f 76 65 64 20 41  |..... Improved A|
00000010  44 46 53 20 2a 57 69 70  65 0d 00 14 18 f4 20 62  |DFS *Wipe..... b|
00000020  79 20 52 69 63 68 61 72  64 20 43 6f 6c 65 6d 61  |y Richard Colema|
00000030  6e 0d 00 1e 18 f4 20 28  63 29 20 54 68 65 20 4d  |n..... (c) The M|
00000040  69 63 72 6f 20 55 73 65  72 0d 00 28 14 e3 20 70  |icro User..(.. p|
00000050  61 73 73 3d 30 20 b8 20  32 20 88 20 32 0d 00 32  |ass=0 . 2 . 2..2|
00000060  1b 50 25 3d 26 43 30 30  3a 5b 4f 50 54 20 70 61  |.P%=&C00:[OPT pa|
00000070  73 73 3a 2e 66 69 6c 65  0d 00 3c 18 4c 44 41 20  |ss:.file..<.LDA |
00000080  62 6c 6f 63 6b 2b 39 3a  53 54 41 20 63 6f 70 79  |block+9:STA copy|
00000090  0d 00 46 1b 4c 44 41 20  62 6c 6f 63 6b 2b 31 30  |..F.LDA block+10|
000000a0  3a 53 54 41 20 63 6f 70  79 2b 31 0d 00 50 0a 2e  |:STA copy+1..P..|
000000b0  66 69 6c 65 32 0d 00 5a  38 4c 44 41 20 23 31 3a  |file2..Z8LDA #1:|
000000c0  53 54 41 20 62 6c 6f 63  6b 2b 35 3a 4c 44 58 20  |STA block+5:LDX |
000000d0  23 62 6c 6f 63 6b 20 83  20 32 35 36 3a 4c 44 59  |#block . 256:LDY|
000000e0  20 23 62 6c 6f 63 6b 20  81 20 32 35 36 0d 00 64  | #block . 256..d|
000000f0  14 4c 44 41 20 23 38 3a  4a 53 52 20 26 46 46 44  |.LDA #8:JSR &FFD|
00000100  31 0d 00 6e 16 4c 44 41  20 23 31 3a 43 4d 50 20  |1..n.LDA #1:CMP |
00000110  62 6c 6f 63 6b 2b 35 0d  00 78 18 42 4e 45 20 61  |block+5..x.BNE a|
00000120  74 74 72 69 62 3a 4a 4d  50 20 26 46 46 45 37 0d  |ttrib:JMP &FFE7.|
00000130  00 82 0b 2e 61 74 74 72  69 62 0d 00 8c 1c 4c 44  |....attrib....LD|
00000140  41 20 23 35 3a 4c 44 58  20 23 62 6c 6f 63 6b 32  |A #5:LDX #block2|
00000150  20 83 20 32 35 36 0d 00  96 1f 4c 44 59 20 23 62  | . 256....LDY #b|
00000160  6c 6f 63 6b 32 20 81 20  32 35 36 3a 4a 53 52 20  |lock2 . 256:JSR |
00000170  26 46 46 44 44 0d 00 a0  16 43 4d 50 20 23 31 3a  |&FFDD....CMP #1:|
00000180  42 45 51 20 61 74 74 72  69 62 32 0d 00 aa 13 43  |BEQ attrib2....C|
00000190  4d 50 20 23 32 3a 42 45  51 20 66 69 6c 65 0d 00  |MP #2:BEQ file..|
000001a0  b4 1e 43 4d 50 20 23 26  46 46 3a 42 45 51 20 66  |..CMP #&FF:BEQ f|
000001b0  69 6c 65 3a 4a 4d 50 20  66 69 6c 65 0d 00 be 0d  |ile:JMP file....|
000001c0  20 2e 61 74 74 72 69 62  32 0d 00 c8 1e 4c 44 58  | .attrib2....LDX|
000001d0  20 23 30 3a 4c 44 41 20  62 6c 6f 63 6b 32 2b 31  | #0:LDA block2+1|
000001e0  34 3a 4c 53 52 20 41 0d  00 d2 19 4c 53 52 20 41  |4:LSR A....LSR A|
000001f0  3a 4c 53 52 20 41 3a 43  4c 43 3a 4c 53 52 20 41  |:LSR A:CLC:LSR A|
00000200  0d 00 dc 18 42 43 43 20  61 74 74 72 69 62 33 3a  |....BCC attrib3:|
00000210  4a 4d 50 20 66 69 6c 65  0d 00 e6 0c 2e 61 74 74  |JMP file.....att|
00000220  72 69 62 33 0d 00 f0 18  4c 44 41 20 6e 61 6d 65  |rib3....LDA name|
00000230  2c 58 3a 4a 53 52 20 26  46 46 45 45 0d 00 fa 1d  |,X:JSR &FFEE....|
00000240  49 4e 58 3a 43 50 58 20  6e 61 6d 65 31 3a 42 4e  |INX:CPX name1:BN|
00000250  45 20 61 74 74 72 69 62  33 0d 01 04 0c 2e 61 74  |E attrib3.....at|
00000260  74 72 69 62 34 0d 01 0e  15 4c 44 41 20 23 33 32  |trib4....LDA #32|
00000270  3a 4a 53 52 20 26 46 46  45 45 0d 01 18 1b 49 4e  |:JSR &FFEE....IN|
00000280  58 3a 43 50 58 20 23 31  31 3a 42 4e 45 20 61 74  |X:CPX #11:BNE at|
00000290  74 72 69 62 34 0d 01 22  15 4c 44 41 20 23 35 38  |trib4..".LDA #58|
000002a0  3a 4a 53 52 20 26 46 46  45 45 0d 01 2c 15 4c 44  |:JSR &FFEE..,.LD|
000002b0  41 20 23 33 32 3a 4a 53  52 20 26 46 46 45 45 0d  |A #32:JSR &FFEE.|
000002c0  01 36 18 4a 53 52 20 26  46 46 45 30 3a 42 43 53  |.6.JSR &FFE0:BCS|
000002d0  20 65 73 63 61 70 65 0d  01 40 12 80 20 23 26 44  | escape..@.. #&D|
000002e0  46 3a 43 4d 50 20 23 38  39 0d 01 4a 13 42 45 51  |F:CMP #89..J.BEQ|
000002f0  20 79 65 73 3a 4c 44 41  20 23 37 38 0d 01 54 20  | yes:LDA #78..T |
00000300  4a 53 52 20 26 46 46 45  45 3a 4a 53 52 20 26 46  |JSR &FFEE:JSR &F|
00000310  46 45 37 3a 4a 4d 50 20  66 69 6c 65 0d 01 5e 0b  |FE7:JMP file..^.|
00000320  2e 65 73 63 61 70 65 0d  01 68 1f 4c 44 41 20 23  |.escape..h.LDA #|
00000330  37 38 3a 4a 53 52 20 26  46 46 45 45 3a 4a 53 52  |78:JSR &FFEE:JSR|
00000340  20 26 46 46 45 37 0d 01  72 16 4c 44 41 20 23 31  | &FFE7..r.LDA #1|
00000350  32 35 3a 4a 4d 50 20 26  46 46 46 34 0d 01 7c 08  |25:JMP &FFF4..|.|
00000360  2e 79 65 73 0d 01 86 14  4a 53 52 20 26 46 46 45  |.yes....JSR &FFE|
00000370  45 3a 4c 44 41 20 23 36  0d 01 90 3a 4c 44 58 20  |E:LDA #6...:LDX |
00000380  23 62 6c 6f 63 6b 32 20  83 20 32 35 36 3a 4c 44  |#block2 . 256:LD|
00000390  59 20 23 62 6c 6f 63 6b  32 20 81 20 32 35 36 3a  |Y #block2 . 256:|
000003a0  4a 53 52 20 26 46 46 44  44 3a 4c 44 41 20 63 6f  |JSR &FFDD:LDA co|
000003b0  70 79 0d 01 9a 1a 53 54  41 20 62 6c 6f 63 6b 2b  |py....STA block+|
000003c0  39 3a 4c 44 41 20 63 6f  70 79 2b 31 0d 01 a4 1a  |9:LDA copy+1....|
000003d0  53 54 41 20 62 6c 6f 63  6b 2b 31 30 3a 4a 53 52  |STA block+10:JSR|
000003e0  20 26 46 46 45 37 0d 01  ae 0d 4a 4d 50 20 66 69  | &FFE7....JMP fi|
000003f0  6c 65 32 0d 01 b8 58 2e  62 6c 6f 63 6b 3a 45 51  |le2...X.block:EQ|
00000400  55 42 20 30 3a 45 51 55  44 20 6e 61 6d 65 31 3a  |UB 0:EQUD name1:|
00000410  45 51 55 44 20 30 3a 45  51 55 44 20 30 3a 2e 62  |EQUD 0:EQUD 0:.b|
00000420  6c 6f 63 6b 32 3a 45 51  55 57 20 6e 61 6d 65 3a  |lock2:EQUW name:|
00000430  45 51 55 44 20 30 3a 45  51 55 44 20 30 3a 45 51  |EQUD 0:EQUD 0:EQ|
00000440  55 44 20 30 3a 45 51 55  44 20 30 0d 01 c2 11 2e  |UD 0:EQUD 0.....|
00000450  6e 61 6d 65 31 3a 45 51  55 42 20 30 0d 01 cc 17  |name1:EQUB 0....|
00000460  2e 6e 61 6d 65 3a 45 51  55 53 20 c4 31 31 2c bd  |.name:EQUS .11,.|
00000470  31 33 29 0d 01 d6 10 2e  63 6f 70 79 3a 45 51 55  |13).....copy:EQU|
00000480  57 20 30 0d 01 e0 1c 5d  3a ed 3a ff 22 53 41 2e  |W 0....]:.:."SA.|
00000490  57 69 70 65 20 43 30 30  20 22 2b c3 7e 50 25 0d  |Wipe C00 "+.~P%.|
000004a0  ff                                                |.|
000004a1