Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/pd.asm @ 830:80e125a9357d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
One more try to fix variable name collision
author boisy
date Tue, 14 Jan 2003 03:08:40 +0000
parents 92b575ffa143
children c155aac72190
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
1 ********************************************************************
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
2 * p[wx]d - Print work/execution directory
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
3 *
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
4 * $Id$
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
5 *
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
8 * 1 From Tandy OS-9 Level One VR 02.00.00
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
9
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
10 nam p[wx]d
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
11 ttl Print work/execution directory
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
12
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
13 * Disassembled 98/09/10 23:50:10 by Disasm v1.6 (C) 1988 by RML
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
14
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
15 ifp1
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
16 use defsfile
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
17 use rbfdefs
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
18 endc
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
19
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
20 tylg set Prgrm+Objct
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
21 atrv set ReEnt+rev
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
22 rev set $01
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
23 edition set 1
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
24
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
25 mod eom,name,tylg,atrv,start,size
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
26
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
27 fildes rmb 1
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
28 bufptr rmb 2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
29 DotDotFD rmb 3
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
30 DotFD rmb 3
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
31 DDCopy rmb 5
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
32 dentry rmb 160
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
33 buffer rmb 1
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
34 sttbuf rmb 282
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
35 size equ .
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
36
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
37 IFNE PXD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
38 name fcs /pxd/
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
39 ELSE
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
40 IFNE PWD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
41 name fcs /pwd/
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
42 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
43 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
44 fcb edition
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
45
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
46 IFNE PXD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
47 badnam fcc "pxd: bad name in path"
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
48 ELSE
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
49 IFNE PWD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
50 badnam fcc "pwd: bad name in path"
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
51 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
52 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
53 fcb C$CR
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
54 dotdot fcc "."
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
55 dot fcc "."
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
56 cr fcb C$CR
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
57 rdmsg fcc "read error"
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
58 fcb C$CR
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
59
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
60 start leax >buffer,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
61 lda #C$CR
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
62 sta ,x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
63 stx <bufptr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
64 leax >dot,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
65 bsr open
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
66 sta <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
67 lbsr rdtwo
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
68 ldd <DotDotFD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
69 std <DDCopy
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
70 lda <DotDotFD+2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
71 sta <DDCopy+2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
72 L0052 bsr L00C6
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
73 beq L0079
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
74 leax >dotdot,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
75 bsr chdir
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
76 lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
77 os9 I$Close
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
78 bcs L008D
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
79 leax >dot,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
80 bsr open
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
81 bsr rdtwo
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
82 bsr L00A8
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
83 bsr L00E2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
84 ldd <DotDotFD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
85 std <DDCopy
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
86 lda <DotDotFD+2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
87 sta <DDCopy+2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
88 bra L0052
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
89 L0079 lbsr L00FB
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
90 ldx <bufptr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
91 ldy #$0081
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
92 lda #$01
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
93 os9 I$WritLn
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
94 lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
95 os9 I$Close
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
96 clrb
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
97 L008D os9 F$Exit
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
98 IFNE PXD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
99 chdir lda #DIR.+EXEC.+READ.
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
100 ELSE
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
101 IFNE PWD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
102 chdir lda #DIR.+READ.
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
103 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
104 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
105 os9 I$ChgDir
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
106 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
107 IFNE PXD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
108 open lda #DIR.+EXEC.+READ.
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
109 ELSE
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
110 IFNE PWD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
111 open lda #DIR.+READ.
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
112 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
113 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
114 os9 I$Open
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
115 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
116
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
117 read32 lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
118 leax dentry,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
119 ldy #DIR.SZ
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
120 os9 I$Read
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
121 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
122
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
123 L00A8 lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
124 bsr read32
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
125 bcs L010F
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
126 leax dentry,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
127 leax <DIR.FD,x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
128 leay DDCopy,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
129 bsr attop
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
130 bne L00A8
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
131 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
132
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
133 attop ldd ,x++
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
134 cmpd ,y++
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
135 bne L00C5
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
136 lda ,x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
137 cmpa ,y
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
138 L00C5 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
139
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
140 L00C6 leax DotDotFD,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
141 leay DotFD,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
142 bsr attop * check if we're at the top
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
143 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
144
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
145 rdtwo bsr read32 * read "." from directory
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
146 ldd <dentry+DIR.FD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
147 std <DotFD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
148 lda <dentry+DIR.FD+2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
149 sta <DotFD+2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
150 bsr read32 * read ".." from directory
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
151 ldd <dentry+DIR.FD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
152 std <DotDotFD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
153 lda <dentry+DIR.FD+2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
154 sta <DotDotFD+2
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
155 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
156
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
157 L00E2 leax dentry,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
158 prsnam os9 F$PrsNam
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
159 bcs L0109
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
160 ldx <bufptr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
161 L00EB lda ,-y
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
162 anda #$7F
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
163 sta ,-x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
164 decb
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
165 bne L00EB
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
166 lda #PDELIM
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
167 sta ,-x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
168 stx <bufptr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
169 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
170 L00FB lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
171 ldb #SS.DevNm
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
172 leax >sttbuf,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
173 os9 I$GetStt
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
174 bsr prsnam
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
175 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
176 L0109 leax >badnam,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
177 bra wrerr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
178 L010F leax >rdmsg,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
179 bra wrerr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
180 L0115 lda #$02
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
181 os9 I$Write
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
182 bcs L0128
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
183 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
184 bsr L0115
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
185 leax >cr,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
186 wrerr lda #$02
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
187 os9 I$WritLn
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
188 L0128 ldb #$00
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
189 os9 F$Exit
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
190
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
191 emod
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
192 eom equ *
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
193 end
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
194