Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/dir.asm @ 1791:4604b8d90bd5

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