Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/deldir.asm @ 2265:581d99904cc5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
makefiles updated
author boisy
date Mon, 28 Dec 2009 01:29:05 +0000
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