Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/dir.asm @ 3295:6b7a7b233925 default tip

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