Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/dir.asm @ 935:6a26cab206d2
E$IllArg is returned if bad option used
author | boisy |
---|---|
date | Tue, 21 Jan 2003 04:23:55 +0000 |
parents | 16b8c7dc0082 |
children | 84ea83668304 |
rev | line source |
---|---|
0 | 1 ******************************************************************** |
2 * Dir - Show directory | |
3 * | |
4 * $Id$ | |
5 * | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
6 * This dir initially started from the dir command that came with |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
7 * the OS-9 Level Two package, then incorporated Glenside's Y2K |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
8 * fix. |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
9 * |
0 | 10 * Ed. Comments Who YY/MM/DD |
11 * ------------------------------------------------------------------ | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
12 * 10 Incorporated Glenside Y2K fixes BGP 99/05/11 |
851 | 13 * 11 Made option handling more flexible, now they BGP 03/01/14 |
14 * must be preceeded by a dash | |
0 | 15 |
16 nam Dir | |
17 ttl Show directory | |
18 | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
19 * Disassembled 99/04/11 16:36:40 by Disasm v1.6 (C) 1988 by RML |
0 | 20 |
21 ifp1 | |
22 use defsfile | |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
23 use rbfdefs |
0 | 24 endc |
25 | |
26 tylg set Prgrm+Objct | |
27 atrv set ReEnt+rev | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
28 rev set $00 |
851 | 29 edition set 11 |
0 | 30 |
31 mod eom,name,tylg,atrv,start,size | |
32 | |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
33 org 0 |
851 | 34 nextdir rmb 2 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
35 dircount rmb 1 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
36 dirpath rmb 1 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
37 extended rmb 1 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
38 addmode rmb 1 additional mode |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
39 rawpath rmb 1 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
40 u0006 rmb 2 |
0 | 41 u0008 rmb 1 |
42 u0009 rmb 1 | |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
43 narrow rmb 1 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
44 bufptr rmb 1 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
45 u000C rmb 1 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
46 date rmb 3 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
47 time rmb 3 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
48 u0013 rmb 29 |
0 | 49 u0030 rmb 1 |
50 u0031 rmb 1 | |
51 u0032 rmb 1 | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
52 u0033 rmb 1 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
53 u0034 rmb 2 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
54 u0036 rmb 6 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
55 u003C rmb 2 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
56 u003E rmb 2 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
57 linebuff rmb 530 |
0 | 58 size equ . |
59 | |
60 name fcs /Dir/ | |
61 fcb edition | |
62 | |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
63 DirOf fcb C$LF |
0 | 64 fcs " Directory of " |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
65 Dot fcc "." |
0 | 66 fcb C$CR |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
67 Raw fcc "@" |
0 | 68 fcb C$CR |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
69 WHeader fcb C$CR,C$LF |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
70 fcc "Owner Last modified Attributes Sector Bytecount Name" |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
71 fcb C$CR,C$LF |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
72 fcc "----- ---------------- ---------- ------ --------- ----" |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
73 fcb C$CR,C$LF |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
74 WHeaderL equ *-WHeader |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
75 NHeader fcb C$CR,C$LF |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
76 fcc "Modified on Owner Name" |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
77 fcb C$CR,C$LF |
0 | 78 fcc " Attr Sector Size" |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
79 fcb C$CR,C$LF |
0 | 80 fcc "===============================" |
81 fcb C$CR | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
82 fcb C$LF |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
83 NHeaderL equ *-NHeader |
0 | 84 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
85 start leay <linebuff,u get ptr to line buffer |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
86 sty <bufptr and save it |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
87 clr <addmode |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
88 clr <extended |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
89 clr <narrow |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
90 clr <dircount |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
91 ldd #$1030 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
92 std <u0008 |
0 | 93 pshs y,x,b,a |
851 | 94 lda #$01 standard output |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
95 ldb #SS.ScSiz we want screen size |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
96 os9 I$GetStt get it |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
97 bcc L0120 branch if gotten |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
98 cmpb #E$UnkSvc unknown service error? |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
99 beq NoScSiz branch if so |
0 | 100 puls y,x,b,a |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
101 lbra L0268 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
102 L0120 cmpx #64 at least this wide? |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
103 bge NoScSiz branch if so |
851 | 104 inc <narrow else we're going narrow |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
105 ldd #$0A14 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
106 std <u0008 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
107 NoScSiz puls y,x,b,a |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
108 pshs x save start of command line |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
109 lbsr GetOpts parse for options |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
110 puls x get start of command line |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
111 lbsr SkipSpcs skip any spaces |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
112 cmpa #C$CR any dir names? |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
113 bne opendir branch if so |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
114 leax >Dot,pcr else assume dot |
851 | 115 opendir stx <nextdir |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
116 lda #DIR.+READ. |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
117 ora <addmode |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
118 pshs x,a preserve mode, dir name |
0 | 119 os9 I$Open |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
120 sta <dirpath |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
121 puls x,a get mode, dir name |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
122 lbcs L0268 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
123 os9 I$ChgDir change to dir |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
124 lbcs L0268 branch if error |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
125 pshs x X now points just past name |
851 | 126 leay >DirOf,pcr point to "Dir of..." |
127 lbsr PutStr put it in buffer | |
128 ldx <nextdir point to directory we are processing | |
129 L0161 lda ,x+ get char | |
130 lbsr PutNBuf put in buffer | |
131 cmpx ,s at end of char string? | |
132 bcs L0161 branch if not | |
133 leas $02,s else clean up stack | |
134 lbsr PutSpace and put a space | |
135 lbsr PutSpace and another one | |
136 leax date,u point to date buffer | |
137 os9 F$Time get current time | |
138 leax <time,u point to time | |
139 lbsr ShowDate show it | |
140 lbsr CRnWrite | |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
141 tst <extended |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
142 beq L01B3 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
143 lda #READ. |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
144 ora <addmode |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
145 leax >Raw,pcr |
0 | 146 os9 I$Open |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
147 lbcs L0268 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
148 sta <rawpath |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
149 tst <narrow |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
150 bne L01A6 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
151 leax >WHeader,pcr |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
152 ldy #WHeaderL |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
153 bra L01AE |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
154 L01A6 leax >NHeader,pcr |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
155 ldy #NHeaderL |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
156 L01AE lda #$01 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
157 os9 I$Write |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
158 L01B3 lda <dirpath |
0 | 159 ldx #$0000 |
160 pshs u | |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
161 ldu #DIR.SZ*2 |
0 | 162 os9 I$Seek |
163 puls u | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
164 lbra L0253 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
165 L01C5 tst <u0013 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
166 lbeq L0253 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
167 tst <extended |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
168 bne L01E8 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
169 leay <u0013,u |
851 | 170 lbsr PutStr |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
171 L01D5 lbsr PutSpace |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
172 ldb <u000C |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
173 subb #$40 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
174 cmpb <u0009 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
175 bhi L022C |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
176 L01E0 subb <u0008 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
177 bhi L01E0 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
178 bne L01D5 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
179 bra L0253 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
180 L01E8 pshs u |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
181 lda <u0032 |
0 | 182 clrb |
183 tfr d,u | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
184 ldx <u0030 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
185 lda <rawpath |
0 | 186 os9 I$Seek |
187 puls u | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
188 bcs L0268 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
189 leax <u0033,u |
0 | 190 ldy #$000D |
191 os9 I$Read | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
192 bcs L0268 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
193 tst <narrow |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
194 bne L0231 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
195 ldd <u0034 |
0 | 196 clr <u0006 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
197 bsr L0274 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
198 lbsr PutSpace |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
199 lbsr L030B |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
200 lbsr PutSpace |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
201 lbsr L02D3 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
202 lbsr PutSpace |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
203 lbsr PutSpace |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
204 bsr L026E |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
205 bsr L0280 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
206 leay <u0013,u |
851 | 207 lbsr PutStr |
208 L022C lbsr CRnWrite | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
209 bra L0253 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
210 L0231 lbsr L030B |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
211 ldd <u0034 |
0 | 212 clr <u0006 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
213 bsr L0274 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
214 bsr PutSpace |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
215 leay <u0013,u |
851 | 216 lbsr PutStr |
217 lbsr CRnWrite | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
218 lbsr L02D3 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
219 bsr PutSpace |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
220 bsr PutSpace |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
221 bsr L026E |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
222 bsr L0280 |
851 | 223 lbsr CRnWrite |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
224 L0253 leax <u0013,u |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
225 ldy #DIR.SZ |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
226 lda <dirpath |
0 | 227 os9 I$Read |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
228 lbcc L01C5 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
229 cmpb #E$EOF |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
230 bne L0268 |
0 | 231 clrb |
851 | 232 L0268 lbsr CRnWrite |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
233 Exit os9 F$Exit |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
234 L026E lda <u0030 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
235 bsr L0298 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
236 ldd <u0031 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
237 L0274 bsr L029A |
0 | 238 tfr b,a |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
239 bsr L028E |
0 | 240 inc <u0006 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
241 bsr L029C |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
242 bra PutSpace |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
243 L0280 ldd <u003C |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
244 bsr L0298 |
0 | 245 tfr b,a |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
246 bsr L029A |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
247 bsr PutSpace |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
248 ldd <u003E |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
249 bra L0274 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
250 L028E pshs a |
0 | 251 lsra |
252 lsra | |
253 lsra | |
254 lsra | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
255 bsr L029E |
0 | 256 puls pc,a |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
257 L0298 clr <u0006 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
258 L029A bsr L028E |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
259 L029C anda #$0F |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
260 L029E tsta |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
261 beq L02A3 |
0 | 262 sta <u0006 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
263 L02A3 tst <u0006 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
264 bne L02AB |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
265 lda #C$SPAC |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
266 bra PutNBuf |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
267 L02AB adda #'0 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
268 cmpa #'9 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
269 bls PutNBuf |
0 | 270 adda #$07 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
271 bra PutNBuf |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
272 PutSpace lda #C$SPAC |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
273 |
851 | 274 * Entry: A = char to put in buffer |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
275 PutNBuf pshs x save caller's X |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
276 ldx <bufptr get buffer next pointer |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
277 cmpx #$0090 past end? |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
278 bne PutOk branch if not |
851 | 279 bsr WriteBuf |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
280 ldx <bufptr get pointer |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
281 PutOk sta ,x+ save A |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
282 stx <bufptr and update pointer |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
283 puls pc,x return |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
284 |
851 | 285 PermMask fcc "dsewrewr" |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
286 fcb $FF |
851 | 287 |
288 L02D3 ldb <u0033 | |
289 leax <PermMask,pcr | |
0 | 290 lda ,x+ |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
291 L02DA lslb |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
292 bcs L02DF |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
293 lda #'- |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
294 L02DF bsr PutNBuf |
0 | 295 lda ,x+ |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
296 bpl L02DA |
0 | 297 rts |
851 | 298 |
299 * Put hi-bit terminated string at Y into line buffer | |
300 PutStr lda ,y get char in A from Y | |
301 anda #$7F strip off hi-bit | |
302 bsr PutNBuf put in buffer | |
303 lda ,y+ get char again | |
304 bpl PutStr if hi-bit not set, continue | |
0 | 305 rts |
851 | 306 |
307 WriteBuf pshs y,x,b,a | |
308 bra DoWrite | |
309 CRnWrite pshs y,x,b,a | |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
310 lda #C$CR |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
311 bsr PutNBuf |
851 | 312 DoWrite leax <linebuff,u |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
313 stx <bufptr |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
314 ldy #80 |
0 | 315 lda #$01 |
316 os9 I$WritLn | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
317 puls pc,y,x,b,a |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
318 L030B leax <u0036,u |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
319 L030E bsr L0338 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
320 bsr L0324 |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
321 bsr L0324 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
322 bsr PutSpace |
851 | 323 bsr Byte2ASC |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
324 tst <narrow |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
325 beq L0320 |
851 | 326 bsr Byte2ASC |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
327 bra PutSpace |
851 | 328 L0320 bsr DoColon |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
329 bra PutSpace |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
330 L0324 lda #'/ |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
331 bra L0334 |
851 | 332 |
333 ShowDate tst <narrow are we on a narrow screen? | |
334 bne ShowTime branch if we are | |
335 leax date,u else point to date buffer | |
336 bra L030E and show date and time | |
337 ShowTime bsr Byte2ASC show hours | |
338 DoColon lda #': put up colon | |
339 L0334 bsr PutNBuf put in buffer | |
340 bra Byte2ASC show minutes | |
341 | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
342 L0338 lda #$AE |
0 | 343 ldb ,x |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
344 L033C inca |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
345 subb #100 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
346 bcc L033C |
0 | 347 stb ,x |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
348 tfr a,b |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
349 tst <narrow |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
350 bne L034B |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
351 bsr L035F |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
352 L034B ldb ,x+ |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
353 bra L035F |
851 | 354 |
355 * Get byte at X and put ASCII value in buffer | |
356 Byte2ASC ldb ,x+ | |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
357 lda #$2F |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
358 L0353 inca |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
359 subb #100 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
360 bcc L0353 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
361 cmpa #'0 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
362 beq L035F |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
363 lbsr PutNBuf |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
364 L035F lda #$3A |
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
365 L0361 deca |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
366 addb #10 |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
367 bcc L0361 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
368 lbsr PutNBuf |
0 | 369 tfr b,a |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
370 adda #'0 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
371 lbra PutNBuf |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
372 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
373 * Entry: X = ptr to line to start parsing |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
374 GetOpts lda ,x+ get next char on cmd line |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
375 cmpa #C$CR CR? |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
376 beq L039A yep, return |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
377 cmpa #'- option? |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
378 beq GetDash branch if not |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
379 * Must be dir name, skip |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
380 inc <dircount |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
381 bsr SkipNSpc skip spaces |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
382 ChkDash bsr SkipSpcs skip spaces |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
383 bra GetOpts and resart parsing |
326
bdd31b961b6f
Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents:
200
diff
changeset
|
384 L039A rts |
0 | 385 |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
386 GetDash lda #C$SPAC |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
387 sta -1,x |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
388 GetDash2 ldd ,x+ |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
389 ora #$20 make lowercase |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
390 IsItE cmpa #'e extended dir? |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
391 bne IsItX |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
392 sta <extended |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
393 bra FixCmdLn |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
394 IsItX cmpa #'x |
935 | 395 beq ItIsX |
396 ldb #E$IllArg | |
397 lbra Exit bad option, just exit | |
398 ItIsX lda #EXEC. | |
848
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
399 sta <addmode |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
400 FixCmdLn lda #C$SPAC |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
401 sta -1,x |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
402 cmpb #'0 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
403 lblt ChkDash |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
404 bra GetDash |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
405 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
406 SkipSpcs lda ,x+ |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
407 cmpa #C$SPAC |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
408 beq SkipSpcs |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
409 leax -1,x |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
410 rts |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
411 |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
412 SkipNSpc lda ,x+ |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
413 cmpa #C$SPAC |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
414 beq SkipNRTS |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
415 cmpa #C$CR |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
416 bne SkipNSpc |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
417 SkipNRTS leax -1,x |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
418 rts |
c6ebca55eed3
Dir now uses -e and -x and deldir changed accordingly
boisy
parents:
364
diff
changeset
|
419 |
0 | 420 emod |
421 eom equ * | |
422 end |