Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/dir.asm @ 848:c6ebca55eed3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Dir now uses -e and -x and deldir changed accordingly
author boisy
date Tue, 14 Jan 2003 19:58:02 +0000
parents 3bdcf6cf1871
children 16b8c7dc0082
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 *
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14 nam Dir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ttl Show directory
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16
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
17 ttl program module
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
18
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 use defsfile
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
23 use rbfdefs
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
29 edition set 10
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
33 org 0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u0000 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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u0008 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 u0030 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 u0031 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 name fcs /Dir/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
63 DirOf fcb C$LF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 fcc "==============================="
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93 pshs 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
94 lda #$01
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
104 inc <narrow
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
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
115 opendir stx <u0000
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
126 leay >DirOf,pcr
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
127 lbsr L02E6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 ldx <u0000
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
129 L0161 lda ,x+
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
130 lbsr PutNBuf
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 cmpx ,s
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
132 bcs L0161
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 leas $02,s
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
134 lbsr PutSpace
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
135 lbsr PutSpace
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
136 leax date,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 os9 F$Time
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
138 leax <time,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
139 lbsr L0328
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
140 lbsr L02F5
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 ldx #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
170 lbsr L02E6
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 ldy #$000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
207 lbsr L02E6
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 L022C lbsr L02F5
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
216 lbsr L02E6
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
217 lbsr L02F5
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
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 lbsr L02F5
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 clrb
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
232 L0268 lbsr L02F5
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 lsra
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
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
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
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
274 PutNBuf pshs x save caller's X
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
275 ldx <bufptr get buffer next pointer
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
276 cmpx #$0090 past end?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
277 bne PutOk branch if not
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
278 bsr L02F1
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
279 ldx <bufptr get pointer
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
280 PutOk sta ,x+ save A
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
281 stx <bufptr and update pointer
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
282 puls pc,x return
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
283
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
284 L02CA fcc "dsewrewr"
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
285 fcb $FF
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 L02D3 fcb $D6,$33,$30,$8C,$F2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 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
288 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
289 bcs L02DF
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
290 lda #'-
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
291 L02DF bsr PutNBuf
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 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
293 bpl L02DA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 rts
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
295 L02E6 lda ,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 anda #$7F
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
297 bsr PutNBuf
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 lda ,y+
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
299 bpl L02E6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 rts
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
301 L02F1 pshs 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
302 bra L02FB
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
303 L02F5 pshs y,x,b,a
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
304 lda #C$CR
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
305 bsr PutNBuf
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
306 L02FB leax <linebuff,u
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
307 stx <bufptr
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
308 ldy #80
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
310 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
311 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
312 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
313 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
314 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
315 bsr L0324
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
316 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
317 bsr L034F
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
318 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
319 beq L0320
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 L034F
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
321 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
322 L0320 bsr L0332
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
323 bra PutSpace
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
324 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
325 bra L0334
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
326 L0328 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
327 bne L0330
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
328 leax date,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
329 bra L030E
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
330 L0330 bsr L034F
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
331 L0332 lda #':
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
332 L0334 bsr 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
333 bra L034F
bdd31b961b6f Moved from OS-9 Level Two V3 -- this dir is the Tandy OS-9 Level Two dir with
boisy
parents: 200
diff changeset
334 L0338 lda #$AE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
335 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
336 L033C inca
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
337 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
338 bcc L033C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 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
340 tfr a,b
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
341 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
342 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
343 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
344 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
345 bra 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
346 L034F 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
347 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
348 L0353 inca
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
349 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
350 bcc L0353
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
351 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
352 beq L035F
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
353 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
354 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
355 L0361 deca
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
356 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
357 bcc L0361
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
358 lbsr PutNBuf
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
359 tfr b,a
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
360 adda #'0
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
361 lbra PutNBuf
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
362
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
363 * Entry: X = ptr to line to start parsing
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
364 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
365 cmpa #C$CR CR?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
366 beq L039A yep, return
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
367 cmpa #'- option?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
368 beq GetDash branch if not
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
369 * Must be dir name, skip
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
370 inc <dircount
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
371 bsr SkipNSpc skip spaces
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
372 ChkDash bsr SkipSpcs skip spaces
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
373 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
374 L039A rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
375
848
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
376 GetDash lda #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
377 sta -1,x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
378 GetDash2 ldd ,x+
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
379 ora #$20 make lowercase
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
380 IsItE cmpa #'e extended dir?
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
381 bne IsItX
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
382 sta <extended
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
383 bra FixCmdLn
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
384 IsItX cmpa #'x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
385 lbne Exit bad option, just exit
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
386 lda #EXEC.
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
387 sta <addmode
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
388 FixCmdLn lda #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
389 sta -1,x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
390 cmpb #'0
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
391 lblt ChkDash
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
392 bra GetDash
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
393
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
394 SkipSpcs lda ,x+
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
395 cmpa #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
396 beq SkipSpcs
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
397 leax -1,x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
398 rts
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
399
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
400 SkipNSpc lda ,x+
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
401 cmpa #C$SPAC
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
402 beq SkipNRTS
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
403 cmpa #C$CR
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
404 bne SkipNSpc
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
405 SkipNRTS leax -1,x
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
406 rts
c6ebca55eed3 Dir now uses -e and -x and deldir changed accordingly
boisy
parents: 364
diff changeset
407
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
408 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
409 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 end