Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/attr.asm @ 827:6653afab1671

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made smaller, better!
author boisy
date Tue, 14 Jan 2003 02:58:01 +0000
parents 1659ca4836e7
children c6e6cf68e03e
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 * Attr - Modify file attributes
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 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 187
diff changeset
8 * 11 From Tandy OS-9 Level Two VR 02.00.01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Attr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl Modify file attributes
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 98/09/11 11:44:51 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
15 ifp1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 use rbfdefs
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
18 endc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
20 tylg set Prgrm+Objct
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 rev set $01
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
23 edition set 11
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 fpath rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 rawpath rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 parmptr rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 cmdperms rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0006 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u0007 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 pathopts rmb 20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u001C rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u001E rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u001F rmb 9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u0028 rmb 32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 filename rmb 32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 fdesc rmb 16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u0078 rmb 46
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u00A6 rmb 414
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 name fcs /Attr/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 L0012 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 fcc "Use: Attr <pathname> {[-]<opts>}"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 fcc " opts: -d s r w e pr pw pe -a"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 fcb C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 L0052 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 fcc "You do not own that file."
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 fcb C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 L006D fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 fcc "Use Makdir to create a directory"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 fcb C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 L008F fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 fcc "ERROR; the directory is not empty"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 fcb C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 L00B2 fcc "dsewrewr"
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
62 fcb $FF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
64 start stx <parmptr save param ptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 clr <u0007
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 com <u0007
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 clra
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
68 os9 I$Open open file on commandline
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
69 bcc L00D9 branch if ok
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
70 ldx <parmptr get saved param ptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 lda #DIR.!READ. load perms
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
72 os9 I$Open open as directory
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
73 bcc L00D9 branch if ok
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
74 ldx <parmptr get param ptr
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
75 lda #DIR. load different perms
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
76 os9 I$Open try one more time
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
77 bcs L0114 branch if error
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
78 L00D9 sta <fpath save off path
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
79 stx <cmdperms save updated parm ptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 leax pathopts,u point X to buffer
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
81 ldb #SS.Opt load with status code
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
82 os9 I$GetStt get status
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
83 bcs L0114 branch if error
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
84 clrb
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
85 lda ,x get path type
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
86 cmpa #DT.RBF check if rbf path
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
87 lbne L01AC branch if not
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
88 ldx <parmptr else get parm ptr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
89 leay <filename,u point to buffer
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
90 lda ,x+ get file name character
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
91 cmpa #PDELIM path delimiter?
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
92 bne L0106 no
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
93 L00FA sta ,y+ else save char in Y
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
94 lda ,x+ get next file name char
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
95 cmpa #C$PERD period?
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
96 bcs L0106 branch if not
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
97 cmpa #PDELIM path delimiter?
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
98 bne L00FA branch if not
226
1659ca4836e7 Slight source improvements
boisy
parents: 200
diff changeset
99 L0106 lda #PENTIR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 ldb #C$SPAC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 std ,y++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 leax <filename,u point X to filename
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 lda #READ.!WRITE. load perms
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
104 os9 I$Open open in raw mode
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
105 L0114 lbcs L01AC branch if error
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 sta <rawpath
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 lda <fpath
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 clr <u001F,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 pshs u
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
110 ldx <u001C,u get MS 16 bits
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
111 ldu <u001E,u get LS 16 bits
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
112 lda <rawpath get path
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
113 os9 I$Seek seek
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 puls u
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
115 bcs L01AC branch if error
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
116 leax <fdesc,u point to buffer
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 ldy #FD.SEG
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
118 os9 I$Read
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 bcs L01AC
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
120 os9 F$ID get ID
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
121 cmpy #$0000 super user?
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
122 beq L014B branch if so
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 cmpy <fdesc+FD.OWN,u is user same as file's owner?
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
124 bne L01C1 branch if not
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
125 L014B ldx <cmdperms point to perms on cmd line
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 lbsr L021D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 bcs L018B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 L0152 lbsr L021D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 bcc L0152
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 lda ,x
226
1659ca4836e7 Slight source improvements
boisy
parents: 200
diff changeset
132 cmpa #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 bne L01AC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 ldx <u001C,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 ldu <u001E,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 lda <rawpath
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
138 os9 I$Seek seek
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 puls u
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
140 bcs L01AC branch if error
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
141 leax <fdesc,u point to file desc
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
142 ldy #1 only 1 byte
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
143 os9 I$Write write out new attributes
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
144 bcs L01AC branch if error
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
145 os9 I$Close close file
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
146 bcs L01AC branch if error
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
147 lda <fpath get file path
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
148 os9 I$Close close file
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
149 bcs L01AC branch if error
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
150 ldb <u0007
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
151 beq L01BE
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
152 L018B ldb <fdesc,u get attribute
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 leax >L00B2,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 leay <u0078,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 L0197 lslb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 bcs L019C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 lda #'-
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 L019C sta ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 bpl L0197
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 lda #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163 sta ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 leax <u0078,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 bra L01B0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 L01AC leax >L0012,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 L01B0 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 lda #2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 ldy #256
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
171 os9 I$WritLn
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 puls b
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
174 L01BE os9 F$Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 L01C1 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 leax >L0052,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 bra L01B0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 L01C8 leax >L006D,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 bra L01B0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 L01CF pshs u,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 lda <fpath
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 ldx #$0000
226
1659ca4836e7 Slight source improvements
boisy
parents: 200
diff changeset
184 ldu #DIR.SZ*2
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
185 os9 I$Seek
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 ldu $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 bcs L01BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 L01E0 leax <u0028,u
226
1659ca4836e7 Slight source improvements
boisy
parents: 200
diff changeset
189 ldy #DIR.SZ
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
190 os9 I$Read
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 bcs L01F7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 tst ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 beq L01E0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 leax >L008F,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 bra L01B0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 L01F7 puls u,y,x
226
1659ca4836e7 Slight source improvements
boisy
parents: 200
diff changeset
198 cmpb #E$EOF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 bne L01AC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 L01FE fdb $ff41
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 fdb $ff80,$44ff,$4053,$ff01,$52ff,$0257,$ff04,$45ff
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 fdb $0850,$52ff,$1050,$57ff,$2050,$45ff
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 L021D clr <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 L021F lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 cmpa #C$SPAC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 beq L021F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 cmpa #C$COMA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 beq L021F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 cmpa #'-
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 bne L0231
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213 com <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
215 L0231 leax -1,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 leay >L01FE,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 L0237 ldb ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
218 pshs y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 beq L027F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 L023D lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221 eora ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 beq L023D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 lda -1,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 bmi L0251
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 puls y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 L024B lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 bpl L024B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 bra L0237
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 L0251 lda ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 cmpa #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 bcc L027F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 cmpb #$FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 beq L0278
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 bitb #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 beq L0268
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 tst <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 lbeq L01C8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 lbsr L01CF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 L0268 puls y,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 lda <fdesc,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 eora <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 ora -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 eora <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 sta <fdesc,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 L0278 eorb <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 stb <u0007
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 puls pc,y,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 L027F coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 puls pc,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
255 emod
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 eom equ *
187
0d02be492d77 Brought up to same attr command in OS-9 Level Two, which is the same exact
boisy
parents: 0
diff changeset
257 end