|
0
|
1 ********************************************************************
|
|
|
2 * Del - File deletion utility
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 3 Original Tandy distribution version BGP
|
|
|
9
|
|
|
10 nam Del
|
|
|
11 ttl File deletion utility
|
|
|
12
|
|
|
13 * Disassembled 98/09/10 22:43:13 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set Prgrm+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
|
22 edition set 5
|
|
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 InPath rmb 1
|
|
|
27 rmb 450
|
|
|
28 size equ .
|
|
|
29
|
|
|
30 name fcs /Del/
|
|
|
31 fcb edition
|
|
|
32
|
|
|
33 HelpMsg fcb C$LF
|
|
|
34 fcc "Use: Del [-x] <path> {<path>} [-x]"
|
|
|
35 fcb C$CR
|
|
|
36
|
|
|
37 start lda ,x
|
|
|
38 cmpa #C$CR
|
|
|
39 beq L0093
|
|
|
40 lda #1
|
|
|
41 sta <InPath
|
|
|
42 bsr L0054
|
|
|
43 leax -1,x
|
|
|
44 L0043 lda <InPath
|
|
|
45 os9 I$DeletX
|
|
|
46 bcs L0051
|
|
|
47 lda ,x
|
|
|
48 cmpa #C$CR
|
|
|
49 bne L0043
|
|
|
50 clrb
|
|
|
51 L0051 os9 F$Exit
|
|
|
52 L0054 lda ,x+
|
|
|
53 cmpa #C$SPAC
|
|
|
54 beq L0054
|
|
|
55 cmpa #C$COMA
|
|
|
56 beq L0054
|
|
|
57 cmpa #'-
|
|
|
58 bne L0067
|
|
|
59 bsr L0086
|
|
|
60 leax 1,x
|
|
|
61 rts
|
|
|
62 L0067 pshs x
|
|
|
63 L0069 lda ,x+
|
|
|
64 cmpa #C$SPAC
|
|
|
65 beq L0069
|
|
|
66 cmpa #C$COMA
|
|
|
67 beq L0069
|
|
|
68 cmpa #'-
|
|
|
69 beq L007E
|
|
|
70 cmpa #C$CR
|
|
|
71 bne L0069
|
|
|
72 L007B puls x
|
|
|
73 rts
|
|
|
74 L007E bsr L0086
|
|
|
75 lda #C$CR
|
|
|
76 sta -2,x
|
|
|
77 bra L007B
|
|
|
78 L0086 lda ,x+
|
|
11
|
79 eora #'X
|
|
0
|
80 anda #$DF
|
|
|
81 bne L0093
|
|
|
82 lda #$04
|
|
|
83 sta <InPath
|
|
|
84 rts
|
|
|
85 L0093 leax >HelpMsg,pcr
|
|
|
86 ldy #80
|
|
|
87 clra
|
|
|
88 os9 I$WritLn
|
|
|
89 clrb
|
|
|
90 bra L0051
|
|
|
91
|
|
|
92 emod
|
|
|
93 eom equ *
|
|
|
94 end
|
|
|
95
|
