Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/pd.asm @ 937:9f5945771770

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rewritten in assembler for size -- thanks Bob
author boisy
date Tue, 21 Jan 2003 04:31:22 +0000
parents c155aac72190
children dbf9a6e913f4
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
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
27 org 0
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
28 fildes rmb 1
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
29 bufptr rmb 2
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
30 dotdotfd rmb 3
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
31 dotfd rmb 3
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
32 ddcopy rmb 5
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
33 dentry rmb 160
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
34 buffer rmb 1
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
35 sttbuf rmb 282
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
36 size equ .
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
37
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
38 IFNE PXD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
39 name fcs /pxd/
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
40 ELSE
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
41 IFNE PWD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
42 name fcs /pwd/
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 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
45 fcb edition
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
46
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
47 IFNE PXD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
48 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
49 ELSE
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
50 IFNE PWD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
51 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
52 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
53 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
54 fcb C$CR
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
55 dotdot fcc "."
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
56 dot fcc "."
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
57 cr fcb C$CR
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
58 rdmsg fcc "read error"
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
59 fcb C$CR
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
60
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
61 start leax >buffer,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
62 lda #C$CR
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
63 sta ,x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
64 stx <bufptr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
65 leax >dot,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
66 bsr open
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
67 sta <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
68 lbsr rdtwo
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
69 ldd <dotdotfd
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
70 std <ddcopy
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
71 lda <dotdotfd+2
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
72 sta <ddcopy+2
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
73 L0052 bsr L00C6
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
74 beq L0079
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
75 leax >dotdot,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
76 bsr chdir
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
77 lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
78 os9 I$Close
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
79 bcs L008D
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
80 leax >dot,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
81 bsr open
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
82 bsr rdtwo
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
83 bsr L00A8
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
84 bsr L00E2
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
85 ldd <dotdotfd
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
86 std <ddcopy
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
87 lda <dotdotfd+2
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
88 sta <ddcopy+2
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
89 bra L0052
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
90 L0079 lbsr L00FB
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
91 ldx <bufptr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
92 ldy #$0081
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
93 lda #$01
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
94 os9 I$WritLn
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
95 lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
96 os9 I$Close
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
97 clrb
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
98 L008D os9 F$Exit
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
99 IFNE PXD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
100 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
101 ELSE
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
102 IFNE PWD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
103 chdir lda #DIR.+READ.
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 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
106 os9 I$ChgDir
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
107 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
108 IFNE PXD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
109 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
110 ELSE
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
111 IFNE PWD
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
112 open lda #DIR.+READ.
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 ENDC
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
115 os9 I$Open
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
116 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
117
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
118 read32 lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
119 leax dentry,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
120 ldy #DIR.SZ
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
121 os9 I$Read
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
122 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
123
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
124 L00A8 lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
125 bsr read32
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
126 bcs L010F
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
127 leax dentry,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
128 leax <DIR.FD,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
129 leay ddcopy,u
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
130 bsr attop
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
131 bne L00A8
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
132 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
133
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
134 attop ldd ,x++
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
135 cmpd ,y++
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
136 bne L00C5
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
137 lda ,x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
138 cmpa ,y
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
139 L00C5 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
140
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
141 L00C6 leax dotdotfd,u
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
142 leay dotfd,u
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
143 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
144 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
145
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
146 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
147 ldd <dentry+DIR.FD
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
148 std <dotfd
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
149 lda <dentry+DIR.FD+2
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
150 sta <dotfd+2
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
151 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
152 ldd <dentry+DIR.FD
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
153 std <dotdotfd
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
154 lda <dentry+DIR.FD+2
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
155 sta <dotdotfd+2
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
156 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
157
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
158 L00E2 leax dentry,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
159 prsnam os9 F$PrsNam
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
160 bcs L0109
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
161 ldx <bufptr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
162 L00EB lda ,-y
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
163 anda #$7F
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
164 sta ,-x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
165 decb
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
166 bne L00EB
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
167 lda #PDELIM
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
168 sta ,-x
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
169 stx <bufptr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
170 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
171 L00FB lda <fildes
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
172 ldb #SS.DevNm
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
173 leax >sttbuf,u
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
174 os9 I$GetStt
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
175 bsr prsnam
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
176 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
177 L0109 leax >badnam,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
178 bra wrerr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
179 L010F leax >rdmsg,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
180 bra wrerr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
181 L0115 lda #$02
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
182 os9 I$Write
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
183 bcs L0128
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
184 rts
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
185 bsr L0115
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
186 leax >cr,pcr
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
187 wrerr lda #$02
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
188 os9 I$WritLn
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
189 L0128 ldb #$00
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
190 os9 F$Exit
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
191
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
192 emod
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
193 eom equ *
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
194 end
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents:
diff changeset
195