annotate level1/cmds/deldir.asm @ 2898:28ed72477814 lwtools-port

Dummy merge of default branch into lwtools hg -y merge --tool=internal:fail default hg revert --all --no-backup --rev . hg resolve -a -m This dummy merge discards any changes from the default branch so that the result is the same as what lwtools already had. When merging back to default branch later, the discarded changes will be discarded there also, so the result will be that the default branch will contain what the lwtools branch had before these merges. Only scripts/burst was "rescued" from default branch.
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 11 Jan 2014 18:40:44 +0100
parents 20841f236e32
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * Deldir - Delete a directory
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
7 * Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
9 * 3 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
10 * From Tandy OS-9 Level Two VR 02.00.01.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
11 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
12 * 4 2003/01/14 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
13 * Updated to add -e instead of e to dir.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
14 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
15 * 2003/06/21 Boisy G. Pitre
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
16 * Optimized for size.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 nam Deldir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 ttl Delete a directory
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 * Disassembled 98/09/10 23:18:11 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 atrv set ReEnt+rev
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 1213
diff changeset
29 rev set $00
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 686
diff changeset
30 edition set 4
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33
924
c155aac72190 Made cosmetic changes
boisy
parents: 872
diff changeset
34 org 0
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
35 parmptr rmb 2
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
36 fpath rmb 1
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
37 what2do rmb 1
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
38 stats rmb 24
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u001C rmb 4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u0020 rmb 4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u0024 rmb 10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 u002E rmb 6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 u0034 rmb 15
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 u0043 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 u0044 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 u0045 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 u0046 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 u0048 rmb 2
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
49 buffer rmb 336
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 name fcs /Deldir/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
55 start bsr OpenPath
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
56 bcs OpenErr
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
57 bsr GetOpts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 bcc L002B
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
59 lbsr PromptUser
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
60 bcs OpenErr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 lbsr L01C3
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
62 bcs OpenErr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 lbsr L0242
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
64 bcs OpenErr
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
65 L002B lda <fpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 os9 I$Close
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
67 bcs Exit
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
68 ldx <parmptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 os9 I$Delete
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
70 bcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 cmpa #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 bne start
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 clrb
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
75 bra Exit
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
76 OpenErr pshs b
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
77 lda <fpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 orcc #Carry
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
81 Exit os9 F$Exit
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
82
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
83
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
84 OpenPath stx <parmptr save parameter pointer
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 lda #READ.+WRITE.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
87 bcs L005D
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
88 sta <fpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
89 bra L0089
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
90 L005D ldx <parmptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 lda #DIR.+READ.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
92 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93 bcs L0090
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
94 sta <fpath
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
95 L0068 ldx <parmptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 os9 F$PrsNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 std <u0046
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 lda ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 cmpa #PDELIM
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 bne L0089
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 lda #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 sta ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 lda #READ.+WRITE.
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
106 ldx <parmptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 bcs L0090
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
109 sty <parmptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 bra L0068
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 L0089 leax <-u001C,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 stx <u0044
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
113 clr <what2do
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 L0090 rts
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
115
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
116 GetOpts lda <fpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 ldb #SS.OPT
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
118 leax stats,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 os9 I$GetStt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 bcs L00AB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 ldx <u0044
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
122 lda <PD.ATT,x
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
123 anda #DIR.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 beq L00AA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 orcc #Carry
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 bra L00AB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 L00AA clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 L00AB rts
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
130
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
131 Prompt fcb C$LF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 fcc "Deleting directory file. "
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 fcc "List directory, delete directory, or quit ? (l/d/q) "
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 686
diff changeset
135 PromptL equ *-Prompt
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
136
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
137 Cont fcb C$LF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 fcc "Continue? (y/n) "
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 686
diff changeset
139 ContL equ *-Cont
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
140
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
141 PromptUser
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
142 tstb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 bne L013E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
144 lda #$01
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
145 leax <Prompt,pcr
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 686
diff changeset
146 ldy #PromptL
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
147 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
148 L011B bcs L013E
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
149 bsr ReadKey
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
150 bcs L013E
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
151 ldb <what2do
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 cmpb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 bne L012A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 bra L013E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 L012A bsr L0145
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 L012C bcs L013E
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
158 leax <Cont,pcr
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 686
diff changeset
159 ldy #ContL
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 bcs L013E
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
163 bsr ReadKey
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 L013E rts
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
165 DIR fcc "DIR"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 fcb C$CR
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 686
diff changeset
167 DIROPTS fcc "-E "
872
ad7443c6b53d Fixed problem where dir wasn't being forked
boisy
parents: 848
diff changeset
168 DIROPTL equ *-DIROPTS
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 L0145 pshs u
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
170 leau <buffer,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 pshs u
872
ad7443c6b53d Fixed problem where dir wasn't being forked
boisy
parents: 848
diff changeset
172 ldb #DIROPTL
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
173 leax <DIROPTS,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 lbsr L0270
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
175 ldx <parmptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 ldd <u0046
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 lbsr L0270
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 lda #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 L015E sta ,u+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 tfr u,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 subd ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 puls u
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
185 leax <DIR,pcr
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
186 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 os9 F$Fork
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 bcs L013E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 os9 F$Wait
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 L0178 rts
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
193
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
194 ReadKey leax <buffer,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 ldy #80
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 686
diff changeset
196 clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 os9 I$ReadLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 bcs L01B8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 L0187 lda ,x+
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
200 cmpa #C$SPAC eat spaces
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 beq L0187
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 anda #$DF
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
203 cmpa #'Y branch if Y
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
204 beq L01AD
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
205 cmpa #'L branch if L
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 beq L01A9
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
207 cmpa #'D branch if D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 beq L01A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 bra L01B4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 L01A5 ldb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 bra L01AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 L01A9 ldb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213 bra L01AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 L01AD ldb #$04
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
215 L01AF stb <what2do
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 clrb
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
217 * bra L01B8
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
218 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 L01B4 ldb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 orcc #Carry
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221 L01B8 rts
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
222
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
223 DelDir fcc "DELDIR"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 fcb C$CR
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
225
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
226 DotDot fcc ".."
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 fcb C$CR
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
228
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
229 L01C3 ldb <what2do
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 bitb #$05
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 beq L0210
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
232 lda <fpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 pshs u
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
234 ldu #DIR.SZ*2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 L01D0 ldx #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 L01D8 bsr L0215
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 bcs L0209
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
240 ldx <parmptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 lda #READ.+WRITE.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 bcs L0214
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 ldy <u0048
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
245 clrb
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
246 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 leau <u0024,u
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
249 leax <DelDir,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 os9 F$Fork
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 bcs L0214
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 os9 F$Wait
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 bcs L0214
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
255 leax <DotDot,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 lda #READ.+WRITE.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 bcc L01D8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 L0209 cmpb #E$EOF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 bne L0214
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 clrb
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
262 rts
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
263 * bra L0214
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 L0210 ldb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 orcc #Carry
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 L0214 rts
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
267 L0215 lda <fpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 leax <u0024,u
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
269 ldy #DIR.SZ
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 bcs L0238
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
272 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
273 beq L0215
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 os9 F$PrsNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
275 lda -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
276 anda #$7F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
277 sta -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 lda #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 sta ,y
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
280 clra
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
281 incb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 std <u0048
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
283 L0238 rts
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
284
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
285 ATTR fcc "ATTR"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 fcb C$CR
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
287
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
288 ATTROPTS fcc " -d"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
289 fcb C$CR
872
ad7443c6b53d Fixed problem where dir wasn't being forked
boisy
parents: 848
diff changeset
290 ATTROPTL equ *-ATTROPTS
1213
4e235f213651 Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents: 924
diff changeset
291
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 L0242 pshs u
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
293 leau <buffer,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 ldd <u0046
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 decb
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
297 ldx <parmptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 bsr L0270
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
299 leax <ATTROPTS,pcr
872
ad7443c6b53d Fixed problem where dir wasn't being forked
boisy
parents: 848
diff changeset
300 ldb #ATTROPTL
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
301 bsr L0270
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
302 tfr u,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
303 subd ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
304 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
305 puls u
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
306 leax <ATTR,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 clrb
686
ed3ad5db6af4 Made source enhnacements
boisy
parents: 200
diff changeset
308 lda #Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 os9 F$Fork
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
310 bcs L026D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
311 os9 F$Wait
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
312 L026D puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
314 L0270 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
315 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
316 sta ,u+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
318 bne L0270
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
320
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
321 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
323 end
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324