annotate level1/cmds/format.asm @ 162:3310d08dd353

Analysis of format. They are different due to differences in hardware
author roug
date Tue, 09 Jul 2002 21:05:30 +0000 (2002-07-09)
parents f418bf788bfa
children 3a847d2b4492
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 * Format - Initialize disk media
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 * ------------------------------------------------------------------
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
8 * 17 Original Microware distribution version
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Format
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl Initialize disk media
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
13 * Disassembled 02/07/06 14:23:44 by Disasm v1.6 (C) 1988 by RML
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
104
0859906a95a8 Test assembly turned up some issues. See Makefile
roug
parents: 0
diff changeset
16 use defsfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
18
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
22
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 mod eom,name,tylg,atrv,start,size
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
24
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 u0000 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 u0001 rmb 1
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
27 PathNm rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 u0003 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 u0004 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 u0005 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0007 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u0008 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u0009 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u000A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u000B rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u000C rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u000E rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 u000F rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u0010 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u0011 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u0012 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 u0013 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 u0015 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 u0016 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 u0017 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 u0018 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 u0019 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 u001A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 u001B rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 u001C rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 u001D rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 u001F rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 u0020 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 u0022 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 u0023 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 u0024 rmb 1
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
57 ClustSz rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 u0026 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 u0027 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 u0028 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 u0029 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 u002A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 u002B rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 u002C rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 u002D rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 u002F rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 u0030 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 u0031 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 u0032 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70 u0033 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 u0034 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 u0036 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 u0038 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 u003A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 u003B rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 u003D rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 u003F rmb 4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 u0043 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 u0044 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 u0046 rmb 1
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
81 DevPath rmb 1 Contains "/"
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
82 Device rmb 13
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
83 u0055 rmb 15
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 u0064 rmb 3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 u0067 rmb 32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 u0087 rmb 40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
87 u00AF rmb 14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 u00BD rmb 12
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
89 DateBf rmb 5
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 u00CE rmb 9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 u00D7 rmb 17
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
92 u00E8 rmb 6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93 u00EE rmb 177
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 u019F rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 u01A1 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 u01A3 rmb 12
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
97 DDBuf rmb 256
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 u02AF rmb 3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 u02B2 rmb 9924
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 u2976 rmb 451
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 size equ .
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
102
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
103 name fcs /Format/
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
104 fcb $11
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
105
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 L0014 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 L0016 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 L0018 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 L001A fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 L0020 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 fcb $28 (
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 fcb $06
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 fcb $FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 fcb $0C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 fcb $06
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 fcb $FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 fcb $04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 fcb $F7 w
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 fcb $0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 fcb $06
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 fcb $FB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
144 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
145 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
147 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
148 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
149 fcb $F7 w
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
150 fcb $0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
151 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 fcb $FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 fcb $43 C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 fcb $28 (
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 L0049 fcb $50 P
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 fcb $0C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163 fcb $03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 fcb $F6 v
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 fcb $FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 fcb $20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 fcb $0C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 fcb $03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 fcb $F5 u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 fcb $FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 fcb $04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 fcb $F7 w
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 fcb $16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 fcb $0C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 fcb $03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 fcb $F5 u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 fcb $FB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 fcb $F7 w
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 fcb $16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 fcb $90
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 fcb $52 R
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 L0076 fcb $20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 fcb $08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 fcb $03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 fcb $F5 u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213 fcb $FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 fcb $04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
215 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 fcb $F7 w
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
218 fcb $16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 fcb $0C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 fcb $03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 fcb $F5 u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 fcb $FB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 fcb $F7 w
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 fcb $18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 fcb $2C ,
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 fcb $50 P
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 start equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 stu <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 bsr L00BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 bsr L00CF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 bsr L011A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 lbsr L0295
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
247 lbsr AskBoth
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 lbsr L04A9
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
249 lbsr L0586
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
250 lbsr L05BC
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
251 lbsr L07B6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 ldu <u0044
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 os9 I$Detach
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 clrb
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
255 Exit os9 F$Exit
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
256
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
257 L00BE leay PathNm,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 pshs y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 leay >u00AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 L00C6 clr ,-y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 cmpy ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 bhi L00C6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 puls pc,y
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
264
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 L00CF lda ,x+
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
266 cmpa #'/
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
267 beq L00DA
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
268 L00D5 ldb #E$BPNam
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
269 lbra ErrExit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 L00DA os9 F$PrsNam
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
271 lbcs ErrExit
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
272 lda #'/
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
273 cmpa ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 beq L00D5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
275 sty <u0020
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
276 *
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
277 * Copy device name from arg to DevPath
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
278 leay <DevPath,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 L00ED sta ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
280 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
281 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 bpl L00ED
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
283 leax <Device,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 lda #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 sta ,y
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
286
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
287 clra 0 = Use device capabilities
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
288 os9 I$Attach
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
289 lbcs ErrExit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
290 stu <u0044
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 ldu <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 lda #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 ldb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 std ,y
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
295 lda #WRITE.
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
296 leax <DevPath,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
297 os9 I$Open
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
298 bcs Exit
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
299 sta <PathNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
301 L011A bsr L0122
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
302 bsr L015D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
303 lbsr L0216
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
304 rts
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
305
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
306 L0122 leax >DDBuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
308 os9 I$GetStt
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
309 bcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
310 ldb $07,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
311 stb <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
312 ldb $04,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
314 andb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
315 stb <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
316 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
318 andb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 stb <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
320 ldd $05,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
321 std <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 ldb $03,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
323 stb <u001B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324 andb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
325 stb <u0046
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
326 ldd $09,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
327 std <u0017
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
328 ldd $0B,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
329 std <u0019
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
330 ldb $0D,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
331 stb <u001F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
332 ldb #$01
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
333 stb <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
334 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
335 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
336 L015D ldx <u0020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
337 L015F leay >L0188,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
338 bsr L0176
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 bcs L017F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
340 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
341 ldd $02,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
342 leay d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
343 puls b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
344 jsr ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
345 bcc L015F
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
346 lbra Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
347 L0176 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
348 L0178 cmpa ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
349 bne L0180
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
350 ldb $01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
351 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
352 L017F rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
353 L0180 leay $04,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
354 tst ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
355 bne L0178
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
356 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
357 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
358 L0188
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
359
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
360 fdb $5259,$002c,$7259,$0028
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
361 fdb $2200,$002d,$3a00,$005d,$4300,$0022,$6300,$001e
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
362 fdb $2800,$0013,$2900,$000f,$2c00,$000b,$2000,$0007
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
363 fdb $00d7,$1039,$d71c,$39d7,$1239,$0c46,$3931,$c867
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
364
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
365 ldb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
366 L01C2 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
367 cmpa #$22
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
368 beq L01D9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
369 sta ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
370 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
371 bne L01C2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
372 L01CD ldb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
373 cmpb #$22
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
374 beq L01DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
375 cmpb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
376 bcc L01CD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
377 bra L01DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
378 L01D9 lda #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
379 cmpb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
380 beq L01E3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 L01DF leay -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
382 lda ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
383 L01E3 adda #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
384 sta ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
385 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
386 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
387 lbsr L089E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
388 ldd <u001D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
389 std <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
390 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
391 lbsr L089E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
392 ldd <u001D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
393 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
394 beq L01FB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
395 ldb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
396 L01FB stb <u001F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
397 L01FD rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
398 lbsr L089E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
399 ldd <u001D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
400 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
401 beq L0208
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
402 ldb #$01
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
403 L0208 stb <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
404 negb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
405 decb
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
406 andb <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
407 beq L0214
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
408 ldb #$01
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
409 stb <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 L0214 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
411 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
412 L0216 leax >Title,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
413 lbsr L0272
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
414 leay >DDBuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
415 ldx $0B,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
416 tst <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
417 beq L0229
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
418 ldx $09,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
419 L0229 stx <u0017
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
420 leax >FmtMsg,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
421 ldy #FmtMLen
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
422 lbsr L0276
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
423 leax <DevPath,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
424 tfr x,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
425 L023B lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
426 cmpa #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
427 bne L023B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
428 pshs y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
429 lda #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
430 sta -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
431 lbsr L0272
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
432 puls y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
433 lda #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
434 sta -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
435 lda <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 bne L01FD
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
437 L0254 leax >Query,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
438 ldy #QueryLen
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
439 lbsr GetYN
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
440 anda #$DF
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
441 cmpa #'Y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
442 beq L01FD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
443 clrb
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
444 cmpa #'N
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
445 lbeq Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
446 bra L0254
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
447 L026E leax >HelpCR,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
448 L0272 ldy #$0050
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
449 L0276 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
450 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
451 rts
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
452 *
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
453 * Read a one-byte answer
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
454 *
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
455 GetYN pshs u,y,x,b,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
456 bsr L0276
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
457 leax ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
458 ldy #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
459 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
460 os9 I$Read
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
461 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
462 bsr L026E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
463 puls u,y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
464 anda #$7F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
465 rts
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
466
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
467 L0295 leax >L001A,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
468 stx <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
469 ldb <u001B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
470 bitb #$C0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
471 bne L02B9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
472 ldb <u0046
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
473 beq L02AB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
474 leax >L0076,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
475 bra L02B9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
476 L02AB leax >L0020,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
477 stx <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
478 tst <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
479 beq L02B9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
480 leax >L0049,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
481 L02B9 stx <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
482 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
483 ldb <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
484 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
485 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
486 ldx <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
487 bsr L0303
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
488 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
489 subd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
490 bcc L02CE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
491 leax -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
492 L02CE exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
493 ldy <u0017
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
494 bsr L0303
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
495 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
496 addd <u0019
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
497 std <u0023
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
498 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
499 adcb #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
500 stb <u0022
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
501 lda #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
502 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
503 ldx <u0023
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
504 ldb <u0022
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
505 bsr L034C
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
506 lda <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
507 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
508 bsr L034C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
509 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
510 beq L02FE
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
511 leax >ClustMsg,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
512 lbsr L0272
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
513 lbra L0525
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
514 L02FE leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
515 stx <u0026
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
516 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
517 L0303 lda #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
518 L0305 clr ,-s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
519 deca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
520 bne L0305
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
521 sty ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
522 stb $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
523 stx $03,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
524 L0311 ldd ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
525 beq L0334
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
526 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
527 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
528 std ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
529 bcc L0327
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
530 ldd $03,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
531 addd $06,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
532 std $06,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
533 lda $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
534 adca $05,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
535 sta $05,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
536 L0327 ldd $03,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
537 lslb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
538 rola
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
539 std $03,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
540 lda $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
541 rola
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
542 sta $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
543 bra L0311
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
544 L0334 leas $05,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
545 puls pc,x,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
546 L0338 pshs x,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
547 lsr ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
548 ror $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
549 ror $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
550 puls x,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
551 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
552 adcb #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
553 adca #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
554 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
555 adcb #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
556 L034C lsr $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
557 bne L0338
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
558 rts
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
559
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
560 AskBoth tst <u001B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
561 bpl L036B
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
562 leax >Both,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
563 ldy #BothLen
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
564 lbsr GetYN
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
565 anda #$DF
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
566 cmpa #'Y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
567 beq L036B
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
568 cmpa #'N
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
569 bne AskBoth
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
570 rts
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
571
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
572 L036B lda <PathNm
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
573 ldb #SS.Reset
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
574 os9 I$SetStt
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
575 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
576 ldd #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
577 std <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
578 inca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
579 sta <u0007
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
580 L037E clr <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
581 L0380 bsr L03DA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
582 leax >u00AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
583 ldu <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
584 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
585 tst <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
586 beq L039B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
587 tst <u0046
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
588 bne L0399
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
589 tst <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
590 bne L0399
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
591 tst <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
592 beq L039B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
593 L0399 orb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
594 L039B tst <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
595 beq L03A1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
596 orb #$04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
597 L03A1 lda <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
598 beq L03A7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
599 orb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
600 L03A7 tfr d,y
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
601 lda <PathNm
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
602 ldb #SS.WTrk
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
603 os9 I$SetStt
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
604 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
605 ldu <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
606 ldb <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
607 incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
608 stb <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
609 cmpb <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
610 bcs L0380
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
611 ldd <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
612 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
613 std <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
614 cmpd <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
615 bcs L037E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
616 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
617 L03CC ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
618 L03CF ldd ,y++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
619 beq L03E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
620 L03D3 stb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
621 deca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
622 bne L03D3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
623 bra L03CF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
624 L03DA lda <u001B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
625 bita #$C0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
626 beq L03EA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
627 ldy <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
628 leax >u00AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
629 bsr L03CF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
630 L03E9 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
631 L03EA ldy <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
632 ldb <u0018
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
633 tst <u0046
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
634 bne L0400
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
635 tst <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
636 bne L0400
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
637 tst <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
638 bne L0400
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
639 ldy <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
640 ldb <u001A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
641 L0400 sty <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
642 stb <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
643 stb <u0016
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
644 bsr L0466
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
645 leax >u00AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
646 bsr L03CF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
647 sty <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
648 L0412 bsr L03CC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
649 dec <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
650 bne L0412
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
651 lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
652 sty <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
653 stx <u003B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
654 leay >u2976,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
655 sty <u001D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
656 tfr a,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
657 L0428 std ,x++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
658 cmpx <u001D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
659 bcs L0428
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
660 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
661 ldd ,y++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
662 std <u003D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
663 ldd ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
664 std <u003F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
665 clr <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
666 leax >u00AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
667 ldd <u003D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
668 leay >u0087,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
669 L0445 leax d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
670 ldd <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
671 std ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
672 ldb <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
673 lda b,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
674 incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
675 stb <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
676 ldb <u0007
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
677 tst <u0046
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
678 beq L0459
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
679 inca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
680 L0459 std $02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
681 lda <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
682 cmpa <u0016
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
683 bcc L0465
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
684 ldd <u003F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
685 bra L0445
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
686 L0465 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
687 L0466 pshs y,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
688 tfr b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
689 ldb <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
690 cmpb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
691 bhi L0492
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
692 leax >u0087,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
693 leay a,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
694 ldb <u001F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
695 bne L0481
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
696 L047A leax >Abort,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
697 lbra L066D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
698 L0481 cmpb <u0016
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
699 bhi L047A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
700 nega
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
701 pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
702 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
703 L0489 sta ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
704 inca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
705 cmpa <u0016
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
706 bne L0494
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
707 leas $06,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
708 L0492 puls pc,y,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
709 L0494 ldb <u001F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
710 abx
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
711 cmpx $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
712 bcs L049F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
713 ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
714 leax b,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
715 L049F cmpx $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
716 bne L0489
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
717 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
718 stx $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
719 bra L0489
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
720 L04A9 lbsr L080A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
721 ldd <u0023
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
722 std $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
723 ldb <u0022
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
724 stb ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
725 ldd <u0017
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
726 std <$11,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
727 stb $03,x
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
728 lda <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
729 sta $07,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
730 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
731 ldb <u0026
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
732 tst <u0027
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
733 beq L04C9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
734 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
735 L04C9 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
736 std $09,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
737 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
738 tst <u0010
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
739 beq L04D5
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
740 ora #$02
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
741 L04D5 ldb <u0012
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
742 cmpb #$01
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
743 beq L04DD
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
744 ora #$01
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
745 L04DD tst <u0011
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
746 beq L04E3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
747 ora #$04
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
748 L04E3 sta <$10,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
749 ldd <u0026
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
750 std $04,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
751 lda #$FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
752 sta $0D,x
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
753 leax >DateBf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
754 os9 F$Time
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
755 leax >u00CE,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
756 leay <u0067,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
757 tst ,y
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
758 beq L0508
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
759 L0500 lda ,y+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
760 sta ,x+
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
761 bpl L0500
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
762 bra L053B
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
763 L0508 leax >DName,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
764 ldy #DNameLen
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
765 lbsr L0276
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
766 leax >u00CE,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
767 ldy #$0021
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
768 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
769 os9 I$ReadLn
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
770 bcc L052C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
771 cmpa #$D3
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
772 bne L0508
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
773 L0525 leax >Aborted,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
774 lbra L066D
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
775 L052C tfr y,d
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
776 leax d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
777 clr ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
778 decb
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
779 beq L0508
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
780 lda ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
781 ora #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
782 sta ,x
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
783 L053B leax >DateBf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
784 leay <$40,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
785 pshs y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
786 ldd #$0000
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
787 L0547 addd ,x++
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
788 cmpx ,s
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
789 bcs L0547
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
790 leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
791 std >u00BD,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
792 ldd >L0014,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
793 std >u019F,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
794 ldd >L0016,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
795 std >u01A1,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
796 ldd >L0018,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
797 std >u01A3,u
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
798 lda <PathNm
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
799 ldb #SS.Opt
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
800 leax >u00EE,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
801 os9 I$GetStt
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
802 ldb #SS.Reset
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
803 os9 I$SetStt
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
804 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
805 leax >u00AF,u
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
806 lbra L0816
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
807 L0586 lda <PathNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
808 os9 I$Close
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
809 leax <DevPath,u
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
810 lda #READ.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
811 os9 I$Open
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
812 lbcs L0669
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
813 sta <PathNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
814 leax >u00AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
815 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
816 os9 I$Read
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
817 lbcs L0669
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
818 lda <PathNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
819 os9 I$Close
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
820 leax <DevPath,u
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
821 lda #UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
822 os9 I$Open
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
823 lbcs L0669
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
824 sta <PathNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
825 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
826 L05BC lda <u001B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
827 clr <u0043
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
828 bita #$80
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
829 beq L05DB
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
830 L05C4 leax >Verify,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
831 ldy #VerifyLen
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
832 lbsr GetYN
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
833 anda #$DF
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
834 cmpa #'Y
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
835 beq L05DB
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
836 cmpa #'N
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
837 bne L05C4
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
838
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
839 sta <u0043
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
840 L05DB ldd <u0019
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
841 std <u0015
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
842 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
843 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
844 std <u0034
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
845 std <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
846 std <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
847 std <u0030
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
848 stb <u002F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
849 sta <u003A
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
850 leax >DDBuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
851 stx <u0036
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
852 lbsr L080E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
853 leax >$0100,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
854 stx <u0038
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
855 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
856 ldb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
857 std <u0032
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
858 lda <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
859 sta <u0029
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
860 clr <u0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
861 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
862 ldb <u0026
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
863 tst <u0027
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
864 beq L0611
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
865 addd #$0001
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
866 L0611 addd #$0009
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
867 std <u002B
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
868 lda <ClustSz
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
869 L0618 lsra
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
870 bcs L0629
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
871 lsr <u002B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
872 ror <u002C
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
873 bcc L0618
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
874 inc <u002C
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
875 bne L0618
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
876 inc <u002B
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
877 bra L0618
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
878 L0629 ldb <u002C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
879 stb <u002D
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
880 lda <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
881 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
882 std <u002B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
883 subd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
884 subb <u0026
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
885 sbca #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
886 tst <u0027
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
887 beq L0640
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
888 subd #$0001
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
889 L0640 stb <u002A
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
890 L0642 tst <u0043
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
891 bne L0674
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
892 lda <PathNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
893 leax >u00AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
894 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
895 os9 I$Read
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
896 bcc L0674
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
897 os9 F$PErr
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
898 lbsr L083A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
899 lda #$FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
900 sta <u0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
901 tst <u002F
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
902 bne L0674
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
903 ldx <u0030
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
904 cmpx <u002B
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
905 bhi L0674
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
906 L0669 leax >BadSect,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
907 L066D lbsr L0272
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
908 clrb
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
909 lbra Exit
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
910 L0674 ldd <u0008
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
911 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
912 std <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
913 cmpd <u0015
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
914 bcs L06B9
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
915 clr <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
916 clr <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
917 tst <u0043
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
918 bne L06AE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
919 lda #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
920 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
921 lda <u0004
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
922 lbsr L071B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
923 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
924 lda <u0003
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
925 lbsr L071B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
926 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
927 tfr s,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
928 ldy #$0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
929 lbsr L0276
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
930 lda $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
931 cmpa #$46
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
932 bne L06AC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
933 lbsr L026E
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
934 L06AC leas $04,s
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
935 L06AE ldd <u0003
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
936 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
937 std <u0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
938 ldd <u0017
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
939 std <u0015
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
940 L06B9 dec <u0029
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
941 bne L06CF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
942 bsr L06F8
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
943 tst <u0028
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
944 bne L06C9
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
945 ldx <u0034
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
946 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
947 stx <u0034
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
948 L06C9 clr <u0028
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
949 lda <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
950 sta <u0029
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
951 L06CF ldb <u002F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
952 ldx <u0030
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
953 leax $01,x
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
954 bne L06D8
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
955 incb
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
956 L06D8 cmpb <u0022
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
957 bcs L06E0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
958 cmpx <u0023
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
959 bcc L06E7
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
960 L06E0 stb <u002F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
961 stx <u0030
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
962 lbra L0642
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
963 L06E7 lda #$FF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
964 sta <u0028
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
965 leay >DDBuf,u
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
966 L06EF cmpy <u0036
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
967 beq L0733
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
968 bsr L06F8
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
969 bra L06EF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
970 L06F8 ldx <u0036
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
971 lda <u0028
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
972 rora
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
973 rol ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
974 inc <u003A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
975 lda <u003A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
976 cmpa #$08
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
977 bcs L071A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
978 clr <u003A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
979 stx <u0036
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
980 cmpx <u0038
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
981 bne L071A
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
982 bsr L0777
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
983 leax >DDBuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
984 stx <u0036
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
985 lbsr L080E
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
986 L071A rts
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
987 L071B tfr a,b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
988 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
989 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
990 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
991 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
992 andb #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
993 addd #$3030
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
994 cmpa #$39
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
995 bls L072C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
996 adda #$07
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
997 L072C cmpb #$39
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
998 bls L0732
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
999 addb #$07
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1000 L0732 rts
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1001 L0733 lbsr L026E
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1002 leax >NumGood,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1003 ldy #NumGoodLen
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1004 lbsr L0276
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1005 ldb <ClustSz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1006 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1007 ldx <u0034
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1008 pshs x,a
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1009 L0748 lsrb
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1010 bcs L0753
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1011 lsl $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1012 rol $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1013 rol ,s
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1014 bra L0748
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1015 L0753 puls x,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1016 ldb #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1017 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1018 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1019 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1020 tfr b,a
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1021 bsr L071B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1022 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1023 tfr x,d
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1024 bsr L071B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1025 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1026 tfr y,d
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1027 bsr L071B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1028 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1029 tfr s,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1030 lbsr L0272
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1031 leas $07,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1032 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1033 L0777 pshs y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1034 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1035 ldb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1036 cmpd <u0032
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1037 bne L0792
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1038 leax >DDBuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1039 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1040 ldb <u002D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1041 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1042 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1043 os9 F$AllBit
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1044 lbcs L0669
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1045 L0792 lbsr L0824
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1046 leax >DDBuf,u
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1047 bsr L0816
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1048 ldd <u0022
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1049 cmpd <u002F
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1050 bcs L07AD
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1051 bhi L07AA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1052 ldb <u0024
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1053 cmpb <u0031
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1054 bcc L07AD
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1055 L07AA lbsr L083A
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1056 L07AD ldd <u0032
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1057 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1058 std <u0032
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1059 puls pc,y
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1060 L07B6 bsr L0824
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1061 leax >u02AF,u
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1062 bsr L080E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1063 leax >u02B2,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1064 os9 F$Time
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1065 leax >u02AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1066 lda #$BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1067 sta ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1068 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1069 sta $08,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1070 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1071 ldb #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1072 std $0B,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1073 ldb <u002A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1074 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1075 stb <$14,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1076 ldd <u0032
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1077 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1078 std <$11,x
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1079 bsr L0816
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1080 bsr L080A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1081 ldd #$2EAE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1082 std ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1083 stb <$20,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1084 ldd <u0032
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1085 std <$1E,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1086 std <$3E,x
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1087 bsr L0816
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1088 bsr L080A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1089 ldb <u002A
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1090 L07FE decb
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1091 bne L0802
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1092 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1093 L0802 pshs b
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1094 bsr L0816
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1095 puls b
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1096 bra L07FE
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1097 L080A leax >u00AF,u
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1098 L080E clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1099 clrb
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1100 L0810 sta d,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1101 decb
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1102 bne L0810
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1103 rts
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1104 L0816 lda <PathNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1105 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1106 os9 I$Write
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1107 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1108 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1109 L0824 clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1110 ldb <u0032
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1111 tfr d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1112 lda <u0033
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1113 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1114 tfr d,u
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1115 L082E lda <PathNm
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1116 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1117 ldu <u0000
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1118 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1119 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1120 L083A ldx <u002F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1121 lda <u0031
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1122 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1123 addd #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1124 tfr d,u
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1125 bcc L082E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1126 leax $01,x
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1127 bra L082E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1128 ldd ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1129 leau >u00AF,u
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1130 leax >L0892,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1131 ldy #$2F20
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1132 L0858 leay >$0100,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1133 subd ,x
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1134 bcc L0858
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1135 addd ,x++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1136 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1137 ldd ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1138 tfr y,d
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1139 beq L0880
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1140 ldy #$2F30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1141 cmpd #$3020
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1142 bne L087A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1143 ldy #$2F20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1144 tfr b,a
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1145 L087A sta ,u+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1146 puls b,a
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1147 bra L0858
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1148 L0880 sta ,u+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1149 lda #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1150 sta ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1151 ldu <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1152 leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1153 leax >u00AF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1154 lbsr L0272
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1155 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1156 L0892
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1157
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1158 fdb $2710,$03e8,$0064,$000a,$0001,$0000
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1159
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1160
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1161 L089E ldd #$0000
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1162 L08A1 bsr L08B1
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1163 bcs L08AB
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1164 bne L08A1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1165 std <u001D
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1166 bne L08B0
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1167 L08AB ldd #$0001
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1168 std <u001D
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1169 L08B0 rts
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1170 L08B1 pshs y,b,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1171 ldb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1172 subb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1173 cmpb #$0A
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1174 bcc L08CF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1175 lda #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1176 ldy #$000A
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1177 L08C1 addd ,s
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1178 bcs L08CD
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1179 leay -$01,y
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1180 bne L08C1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1181 std ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1182 andcc #$FB
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1183 L08CD puls pc,y,b,a
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1184 L08CF orcc #$04
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1185 puls pc,y,b,a
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1186
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
1187 ErrExit lda #$02
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1188 os9 F$PErr
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1189 leax <HelpMsg,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1190 ldy #$0154
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1191 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1192 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1193 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1194 os9 F$Exit
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1195 Title fcb C$LF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1196 fcc "COLOR COMPUTER FORMATTER"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1197 HelpCR fcb C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1198
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1199 HelpMsg fcc "Use: FORMAT /devname <opts>"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1200 fcb C$LF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1201 fcc " opts: R - Ready"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1202 fcb C$LF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1203 fcc / "disk name"/
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1204 fcb C$LF,C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1205
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1206 FmtMsg fcc "Formatting drive "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1207 FmtMLen equ *-FmtMsg
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1208
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1209 Query fcc "y (yes) or n (no)"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1210 fcb C$LF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1211 fcc "Ready? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1212 QueryLen equ *-Query
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1213 Abort fcc "ABORT Interleave value out of range"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1214 fcb C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1215 DName fcc "Disk name: "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1216 DNameLen equ *-DName
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1217 fcc "How many Cylinders (Tracks?) : "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1218 BadSect fcc "Bad system sector, "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1219 Aborted fcc "FORMAT ABORTED"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1220 fcb C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1221 ClustMsg fcc "Cluster size mismatch"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1222 fcb C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1223 fcc "Double density? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1224 TPIChg fcc "Change from 96tpi to 48tpi? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1225 DSided fcc "Double sided? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1226 NumGood fcc "Number of good sectors: $"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1227 NumGoodLen equ *-NumGood
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1228 Both fcc "Both PHYSICAL and LOGICAL format? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1229 BothLen equ *-Both
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1230 Verify fcc "Physical Verify desired? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1231 VerifyLen equ *-Verify
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1232
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1233 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1234 eom equ *
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1235 end
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1236