annotate level1/cmds/format.asm @ 924:c155aac72190

Made cosmetic changes
author boisy
date Sun, 19 Jan 2003 14:54:09 +0000 (2003-01-19)
parents 92b575ffa143
children ebd5b6ce665d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
2 * Format - Disk format program
0
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 * ------------------------------------------------------------------
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
8 * 22 From Tandy OS-9 Level Two Vr. 2.00.01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Format
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
11 ttl Disk format program
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
13 * Disassembled 02/07/17 11:00:13 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
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
17 use rbfdefs
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 endc
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
19
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 rev set $01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
23 edition set $16
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
24
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 mod eom,name,tylg,atrv,start,size
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
26
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
27 org 0
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
28 savedu rmb 2
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
29 diskpath rmb 1
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
30 currtrak rmb 2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0005 rmb 2
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
32 currsect rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u0008 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u0009 rmb 1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
35 u000A rmb 2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u000C rmb 2
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
37 u000E rmb 2
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
38 mfm rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u0011 rmb 1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
40 T4896 rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
41 u0013 rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
42 u0014 rmb 1
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
43 ncyls rmb 2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 u0017 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 u0018 rmb 1
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
46 sectors rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 u001A rmb 1
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
48 sectors0 rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 u001C rmb 1
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
50 dtype rmb 1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
51 u001E rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 u001F rmb 1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
53 u0020 rmb 1
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
54 interlv rmb 1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
55 u0022 rmb 2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 u0024 rmb 1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
57 u0025 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
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
65 u002D rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
66 u002E rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 u002F rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 u0030 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 u0031 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70 u0032 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 u0033 rmb 1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
72 u0034 rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
73 u0035 rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 u0036 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 u0038 rmb 2
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
76 u003A rmb 2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
77 u003C rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 u003D rmb 2
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
79 u003F rmb 2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
80 u0041 rmb 2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 u0043 rmb 1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
82 u0044 rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
83 u0045 rmb 1
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
84 dtentry rmb 2
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
85 u0048 rmb 1
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
86 stoff rmb 2
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
87 u004B rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
88 u004C rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
89 u004D rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
90 u004E rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
91 u004F rmb 1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
92 u0050 rmb 5
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93 u0055 rmb 15
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
94 u0064 rmb 7
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
95 u006B rmb 4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
96 u006F rmb 32
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
97 u008F rmb 40
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
98 u00B7 rmb 14
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
99 u00C5 rmb 12
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
100 timepkt rmb 5
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
101 u00D6 rmb 18
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
102 u00E8 rmb 14
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
103 u00F6 rmb 177
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
104 u01A7 rmb 2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
105 u01A9 rmb 2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
106 u01AB rmb 12
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
107 optbuf rmb 256
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
108 u02B7 rmb 3
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
109 u02BA rmb 9924
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
110 u297E rmb 451
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 size equ .
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
112
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
113 name fcs /Format/
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 168
diff changeset
114 fcb edition
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
115
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
116 L0014 fdb $0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
117 L0016 fdb $0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
118 L0018 fdb $0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
119 L001A fdb $80E5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
120 fdb $80E5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
121 fdb $0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
122 L0020 fdb $0100
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
123 fdb $28FF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
124 fdb $0600
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
125 fdb $01FC
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
126 fdb $0CFF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
127 fdb $0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
128 fdb $0600
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
129 fdb $01FE
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
130 fdb $0400
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
131 fdb $01F7
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
132 fdb $0AFF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
133 fdb $0600
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
134 fdb $01FB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
135 fdb $80E5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
136 fdb $80E5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
137 fdb $01F7
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
138 fdb $0AFF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
139 fdb $0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
140 fcb $Ff
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
141 fdb $0043
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
142 fdb $0128
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
143 L0049 fdb $504E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
144 fdb $0C00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
145 fdb $03F6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
146 fdb $01Fc
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
147 fdb $204E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
148 fdb $0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
149 fdb $0C00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
150 fdb $03F5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
151 fdb $01FE
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
152 fdb $0400
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
153 fdb $01F7
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
154 fdb $164E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
155 fdb $0C00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
156 fdb $03F5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
157 fdb $01FB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
158 fdb $80E5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
159 fdb $80E5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
160 fdb $01F7
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
161 fdb $164E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
162 fdb $0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
163 fcb $4E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 fcb $90
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 fcb $52 R
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 L0076 fcb $20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 fcb $00
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
172 fcb $0C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 fcb $03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 fcb $F5 u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 fcb $FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 fcb $04
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 fcb $F7 w
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 fcb $16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 fcb $0C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 fcb $03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 fcb $F5 u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 fcb $FB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 fcb $80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 fcb $E5 e
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 fcb $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 fcb $F7 w
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 fcb $18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 fcb $4E N
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 fcb $00
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
202 fcb $30 0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 fcb $01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
204 fcb $54 T
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
205
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
206 start stu <savedu
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
207 bsr ClrWork cleark work area
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
208 bsr OpenDev get device name and open it
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
209 bsr Default
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
210 lbsr GetDTyp
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
211 lbsr Format
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
212 lbsr InitDisk
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
213 lbsr Access
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
214 lbsr Stamps
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
215 lbsr L0843
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
216 ldu <dtentry
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 os9 I$Detach
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
218 clrb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
219 L00BB os9 F$Exit
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
220 ClrWork leay diskpath,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221 pshs y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
222 leay >u00B7,u
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
223 ClrOne clr ,-y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 cmpy ,s
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
225 bhi ClrOne
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 puls pc,y
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
227
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
228 OpenDev lda ,x+ get char at X
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
229 cmpa #PDELIM pathlist delimiter?
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
230 beq L00DA branch if so
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
231 L00D5 ldb #E$BPNam else set bad pathname
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
232 lbra L0961 and print error
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
233 L00DA os9 F$PrsNam parse pathname
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
234 lbcs L0961 branch if illegal (has additional pathlist element)
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
235 lda #PDELIM
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 cmpa ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 beq L00D5
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
238 sty <u0022
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
239 leay <u004F,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 L00ED sta ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 bpl L00ED
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
244 leax <u0050,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
245 lda #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 sta ,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
247 clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 os9 I$Attach
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
249 lbcs L0961
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
250 stu <dtentry
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
251 ldu <savedu
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
252 lda #PENTIR
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
253 ldb #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 std ,y
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
255 lda #WRITE.
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
256 leax <u004F,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 os9 I$Open
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
258 bcs L00BB
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
259 sta <diskpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 rts
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
261
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
262 Default bsr GetOpts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
263 bsr L0183
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
264 lbsr L025E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
265 rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
266
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
267 GetOpts leax >optbuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 os9 I$GetStt
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
270 bcs L00BB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
271 ldb PD.SID-PD.OPT,x
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
272 stb <u0013
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
273 stb <u0014
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
274 ldb PD.SToff-PD.OPT,x
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
275 beq L0143
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
276 tfr b,a
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
277 anda #$0F
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
278 sta <stoff
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
279 lsrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
280 lsrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
281 lsrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
282 lsrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
283 stb <u004B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
284 L0143 ldb PD.DNS-PD.OPT,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 pshs b
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
286 andb #DNS.MFM
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
287 stb <mfm
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
288 stb <u0011
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
289 ldb ,s
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
290 lsrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
291 pshs b
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
292 andb #$01 (PD.DTD)
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
293 stb <T4896
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 lsrb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
296 andb <u0011
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
297 stb <u004C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
298 puls b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 ldb #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
300 stb <u004D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
301 beq L0169
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
302 stb <u004B
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
303 clr <stoff
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
304 L0169 ldd PD.CYL-PD.OPT,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
305 std <ncyls
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
306 ldb PD.TYP-PD.OPT,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
307 stb <dtype
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
308 ldd PD.SCT-PD.OPT,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
309 std <sectors
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
310 ldd PD.T0S-PD.OPT,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
311 std <sectors0
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
312 ldb PD.ILV-PD.OPT,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
313 stb <interlv
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
314 ldb #$01
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
315 stb <u0027
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
316 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
318 L0183 ldx <u0022
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
319 L0185 leay >OptTbl,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
320 bsr L019C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
321 bcs L01A5
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
323 ldd $02,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324 leay d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
325 puls b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
326 jsr ,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
327 bcc L0185
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
328 lbra L00BB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
329 L019C lda ,x+
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
330 L019E cmpa ,y
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
331 bne L01A6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
332 ldb $01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
333 clra
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
334 L01A5 rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
335 L01A6 leay $04,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
336 tst ,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
337 bne L019E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
338 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
340
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
341 OptTbl
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
342 opt.1 fcc /R/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
343 fcc /Y/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
344 fdb DoReady-opt.1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
345 opt.2 fcc /r/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
346 fcc /Y/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
347 fdb DoReady-opt.2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
348 opt.3 fcc /"/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
349 fcb $00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
350 fdb DoQuote-opt.3
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
351 opt.4 fcc /:/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
352 fcb $00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
353 fdb DoColon-opt.4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
354 opt.5 fcc /1/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
355 fcb $01
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
356 fdb Do1-opt.5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
357 opt.6 fcc /2/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
358 fcb $02
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
359 fdb Do2-opt.6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
360 opt.7 fcc /'/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
361 fcb 0
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
362 fdb DoSQuote-opt.7
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
363 opt.8 fcc /L/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
364 fcb $01
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
365 fdb DoL-opt.8
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
366 opt.9 fcc /l/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
367 fcb 01
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
368 fdb DoL-opt.9
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
369 opt.10 fcc /(/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
370 fcb $00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
371 fdb DoLParen-opt.10
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
372 opt.11 fcc /)/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
373 fcb $00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
374 fdb DoRParen-opt.11
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
375 opt.12 fcc /,/
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
376 fcb $00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
377 fdb DoComa-opt.12
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
378 opt.13 fcb C$SPAC
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
379 fcb 00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
380 fdb DoSpace-opt.13
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
381
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
382 fcb $00
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
383
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
384 cmpb <u0011
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
385 bgt L01FE
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
386 cmpb <u004C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
387 blt L01FE
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
388 stb <mfm
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
389 clrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
390
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
391 DoComa
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
392 DoRParen
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
393 DoLParen
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
394 DoSpace rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
395
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
396 DoReady stb <u001E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
397 rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
398
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
399 Do2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
400 Do1 cmpb <u0013
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
401 bgt L01FE
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
402 stb <u0013
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
403 clrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
404 rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
405
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
406 DoL stb <u004E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
407 clrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
408 rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
409
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
410 L01FE leax >AbortOp,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
411 lbra L06F9
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
412
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
413 DoQuote leay <u006F,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
414 ldb #C$SPAC
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
415 L020A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
416 koQuote lda ,x+
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
417 cmpa #'"
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
418 beq L0221
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
419 sta ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
420 decb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
421 bne L020A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
422 L0215 ldb ,x+
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
423 cmpb #'"
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
424 beq L0227
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
425 cmpb #C$SPAC
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
426 bcc L0215
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
427 bra L0227
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
428 L0221 lda #C$SPAC
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
429 cmpb #C$SPAC
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
430 beq L022B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
431 L0227 leay -$01,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
432 lda ,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
433 L022B adda #$80
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
434 sta ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
435 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
437
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
438 DoSQuote lbsr L092C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
439 ldd <u001F
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
440 std <ncyls
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
441 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
442
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
443 DoColon lbsr L092C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
444 ldd <u001F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
445 tsta
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
446 beq L0243
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
447 ldb #$01
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
448 L0243 stb <interlv
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
449 rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
450 lbsr L092C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
451 ldd <u001F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
452 tsta
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
453 beq L0250
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
454 ldb #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
455 L0250 stb <u0027
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
456 negb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
457 decb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
458 andb <u0027
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
459 beq L025C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
460 ldb #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
461 stb <u0027
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
462 L025C clrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
463 L025D rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
464 L025E leax >Title,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
465 lbsr L02E2
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
466 leay >optbuf,u
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
467 ldx PD.T0S-PD.OPT,y
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
468 tst <mfm
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
469 beq L0271
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
470 ldx PD.SCT-PD.OPT,y
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
471 L0271 stx <sectors
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
472 leax >FmtMsg,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
473 ldy #FmtMLen
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
474 lbsr L02E6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
475 leax <u004F,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
476 tfr x,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
477 L0283 lda ,y+
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
478 cmpa #PENTIR
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
479 bne L0283
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
480 pshs y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
481 lda #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
482 sta -$01,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
483 lbsr L02E2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
484 puls y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
485 lda #PENTIR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
486 sta -$01,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
487 lda <u001E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
488 bne L02BC
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
489 tst <dtype
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
490 bpl L02AB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
491 leax >HDFmt,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
492 ldy #$002A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
493 lbsr L02E6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
494 L02AB leax >Query,pcr
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
495 ldy #QueryLen
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
496 lbsr L02EC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
497 anda #$DF
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
498 cmpa #'Y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
499 bne L02D5
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
500 L02BC tst <dtype
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
501 bpl L025D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
502 leax >HDFmt,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
503 ldy #$0038
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
504 lbsr L02EC
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
505 anda #$DF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
506 cmpa #'Y
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
507 beq L025D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
508 clrb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
509 lbra L00BB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
510 L02D5 clrb
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
511 cmpa #'N
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
512 lbeq L00BB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
513 bra L02AB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
514 L02DE leax >HelpCR,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
515 L02E2 ldy #80
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
516 L02E6 lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
517 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
518 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
519 L02EC pshs u,y,x,b,a
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
520 bsr L02E6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
521 leax ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
522 ldy #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
523 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
524 os9 I$Read
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
525 lbcs L00BB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
526 bsr L02DE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
527 puls u,y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
528 anda #$7F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
529 rts
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
530
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
531 GetDTyp leax >L001A,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
532 stx <u000A
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
533 ldb <dtype
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
534 bitb #TYP.HARD+TYP.NSF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
535 bne L0323
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
536 tst <u004D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
537 beq L031B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
538 leax >L0076,pcr
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
539 bra L032D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
540 L031B leax >L0020,pcr
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
541 tst <mfm
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
542 beq L032D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
543 L0323 stx <u000A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
544 leax >L0049,pcr
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
545 tst <u004C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
546 beq L032F
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
547 L032D stx <u000A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
548 L032F stx <u000C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
549 clra
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
550 ldb <u0013
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
551 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
552 clrb
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
553 ldx <ncyls
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
554 bsr L0379
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
555 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
556 subd #$0001
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
557 bcc L0344
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
558 leax -$01,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
559 L0344 exg d,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
560 ldy <sectors
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
561 bsr L0379
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
562 exg d,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
563 addd <sectors0
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
564 std <u0025
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
565 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
566 adcb #$00
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
567 stb <u0024
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
568 lda #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
569 pshs a
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
570 ldx <u0025
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
571 ldb <u0024
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
572 bsr L03C2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
573 lda <u0027
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
574 pshs a
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
575 bsr L03C2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
576 tstb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
577 beq L0374
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
578 leax >ClustMsg,pcr
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
579 lbsr L02E2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
580 lbra L05B1
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
581 L0374 leas $02,s
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
582 stx <u0028
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
583 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
584 L0379 lda #$08
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
585 L037B clr ,-s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
586 deca
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
587 bne L037B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
588 sty ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
589 stb $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
590 stx $03,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
591 L0387 ldd ,s
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
592 beq L03AA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
593 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
594 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
595 std ,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
596 bcc L039D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
597 ldd $03,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
598 addd $06,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
599 std $06,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
600 lda $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
601 adca $05,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
602 sta $05,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
603 L039D ldd $03,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
604 lslb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
605 rola
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
606 std $03,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
607 lda $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
608 rola
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
609 sta $02,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
610 bra L0387
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
611 L03AA leas $05,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
612 puls pc,x,b
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
613 L03AE pshs x,b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
614 lsr ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
615 ror $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
616 ror $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
617 puls x,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
618 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
619 adcb #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
620 adca #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
621 exg d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
622 adcb #$00
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
623 L03C2 lsr $02,s
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
624 bne L03AE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
625 rts
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
626
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
627 Format tst <u004E
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
628 bne L03E4
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
629 tst <dtype
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
630 bpl L03E5
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
631 leax >Both,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
632 ldy #BothLen
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
633 lbsr L02EC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
634 anda #$DF
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
635 cmpa #'Y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
636 beq L03E5
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
637 cmpa #'N
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
638 bne Format
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
639 L03E4 rts
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
640 L03E5 lda <diskpath
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
641 ldb #SS.Reset
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
642 os9 I$SetStt
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
643 lbcs L00BB
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
644 ldd #$0000
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
645 std <currtrak
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
646 inca
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
647 sta <currsect
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
648 L03F8 clr <u0005
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
649 L03FA bsr L045C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
650 leax >u00B7,u
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
651 ldd <currtrak
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
652 addd <u0048
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
653 tfr d,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
654 clrb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
655 tst <u004D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
656 bne L041B
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
657 tst <mfm
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
658 beq L041D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
659 tst <u004C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
660 bne L041B
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
661 tst <currtrak+1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
662 bne L041B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
663 tst <u0005
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
664 beq L041D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
665 L041B orb #$02
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
666 L041D tst <T4896
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
667 beq L0423
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
668 orb #$04
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
669 L0423 lda <u0005
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
670 beq L0429
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
671 orb #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
672 L0429 tfr d,y
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
673 lda <diskpath
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
674 ldb #SS.WTrk
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
675 os9 I$SetStt
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
676 lbcs L00BB
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
677 ldu <savedu
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
678 ldb <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
679 incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
680 stb <u0005
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
681 cmpb <u0013
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
682 bcs L03FA
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
683 ldd <currtrak
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
684 addd #$0001
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
685 std <currtrak
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
686 cmpd <ncyls
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
687 bcs L03F8
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
688 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
689 L044E ldy <u000E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
690 L0451 ldd ,y++
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
691 beq L046B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
692 L0455 stb ,x+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
693 deca
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
694 bne L0455
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
695 bra L0451
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
696 L045C lda <dtype
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
697 bita #$C0
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
698 beq L046C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
699 ldy <u000C
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
700 leax >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
701 bsr L0451
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
702 L046B rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
703 L046C ldy <u000C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
704 ldb <u001A
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
705 tst <currtrak+1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
706 bne L047E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
707 tst <u0005
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
708 bne L047E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
709 ldy <u000A
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
710 ldb <u001C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
711 L047E sty <u000E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
712 stb <u0009
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
713 stb <u0018
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
714 bsr L04EC
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
715 leax >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
716 bsr L0451
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
717 sty <u000E
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
718 L0490 bsr L044E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
719 dec <u0009
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
720 bne L0490
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
721 lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
722 sty <u000E
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
723 stx <u003D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
724 leay >u297E,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
725 sty <u001F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
726 tfr a,b
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
727 L04A6 std ,x++
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
728 cmpx <u001F
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
729 bcs L04A6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
730 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
731 ldd ,y++
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
732 std <u003F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
733 ldd ,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
734 std <u0041
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
735 clr <u0009
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
736 leax >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
737 ldd <u003F
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
738 leay >u008F,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
739 L04C3 leax d,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
740 ldd <currtrak+1
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
741 adda <stoff
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
742 std ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
743 ldb <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
744 lda b,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
745 incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
746 stb <u0009
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
747 ldb <currsect
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
748 adda <u004B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
749 bcs L04E5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
750 std $02,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
751 lda <u0009
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
752 cmpa <u0018
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
753 bcc L04E4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
754 ldd <u0041
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
755 bra L04C3
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
756 L04E4 rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
757 L04E5 leax >AbortSct,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
758 lbra L06F9
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
759 L04EC pshs y,b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
760 tfr b,a
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
761 ldb <currtrak+1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
762 cmpb #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
763 bhi L0518
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
764 leax >u008F,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
765 leay a,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
766 ldb <interlv
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
767 bne L0507
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
768 L0500 leax >AbortIlv,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
769 lbra L06F9
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
770 L0507 cmpb <u0018
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
771 bhi L0500
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
772 nega
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
773 pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
774 clra
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
775 L050F sta ,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
776 inca
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
777 cmpa <u0018
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
778 bne L051A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
779 leas $06,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
780 L0518 puls pc,y,b
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
781 L051A ldb <interlv
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
782 abx
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
783 cmpx $04,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
784 bcs L0525
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
785 ldb ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
786 leax b,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
787 L0525 cmpx $02,s
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
788 bne L050F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
789 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
790 stx $02,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
791 bra L050F
689
92b575ffa143 Folded pxd.asm and pwd.asm into pd.asm for simplicity since almost all code
boisy
parents: 312
diff changeset
792 InitDisk lbsr L0898
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
793 ldd <u0025
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
794 std $01,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
795 ldb <u0024
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
796 stb ,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
797 ldd <sectors
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
798 std <$11,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
799 stb $03,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
800 lda <u0027
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
801 sta $07,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
802 clra
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
803 ldb <u0028
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
804 tst <u0029
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
805 beq L054F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
806 addd #$0001
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
807 L054F addd #$0001
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
808 std $09,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
809 clra
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
810 tst <mfm
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
811 beq L0561
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
812 ora #$02
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
813 tst <u004C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
814 beq L0561
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
815 ora #$08
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
816 L0561 ldb <u0013
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
817 cmpb #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
818 beq L0569
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
819 ora #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
820 L0569 tst <T4896
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
821 beq L056F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
822 ora #$04
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
823 L056F sta <$10,x
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
824 ldd <u0028
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
825 std $04,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
826 lda #$FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
827 sta $0D,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
828 leax >timepkt,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
829 os9 F$Time
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
830 leax >u00D6,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
831 leay <u006F,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
832 tst ,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
833 beq L0594
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
834 L058C lda ,y+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
835 sta ,x+
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
836 bpl L058C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
837 bra L05C7
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
838 L0594 leax >DName,pcr
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
839 ldy #DNameLen
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
840 lbsr L02E6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
841 leax >u00D6,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
842 ldy #$0021
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
843 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
844 os9 I$ReadLn
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
845 bcc L05B8
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 162
diff changeset
846 cmpa #E$EOF
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
847 bne L0594
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
848 L05B1 leax >Aborted,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
849 lbra L06F9
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
850 L05B8 tfr y,d
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
851 leax d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
852 clr ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
853 decb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
854 beq L0594
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
855 lda ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
856 ora #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
857 sta ,x
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
858 L05C7 leax >timepkt,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
859 leay <$40,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
860 pshs y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
861 ldd #$0000
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
862 L05D3 addd ,x++
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
863 cmpx ,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
864 bcs L05D3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
865 leas $02,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
866 std >u00C5,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
867 ldd >L0014,pcr
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
868 std >u01A7,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
869 ldd >L0016,pcr
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
870 std >u01A9,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
871 ldd >L0018,pcr
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
872 std >u01AB,u
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
873 lda <diskpath
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
874 ldb #SS.Opt
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
875 leax >u00F6,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
876 os9 I$GetStt
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
877 ldb #SS.Reset
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
878 os9 I$SetStt
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
879 lbcs L00BB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
880 leax >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
881 lbra L08A4
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
882
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
883 Access lda <diskpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
884 os9 I$Close
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
885 leax <u004F,u
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
886 lda #READ.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
887 os9 I$Open
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
888 lbcs L06F5
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
889 sta <diskpath
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
890 leax >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
891 ldy #256
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
892 os9 I$Read
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
893 lbcs L06F5
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
894 lda <diskpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
895 os9 I$Close
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
896 leax <u004F,u
162
3310d08dd353 Analysis of format.
roug
parents: 119
diff changeset
897 lda #UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
898 os9 I$Open
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
899 lbcs L06F5
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
900 sta <diskpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
901 rts
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
902
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
903 Stamps lda <dtype
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
904 clr <u0045
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
905 bita #$80
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
906 beq L0667
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
907 L0650 leax >Verify,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
908 ldy #VerifyL
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
909 lbsr L02EC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
910 anda #$DF
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
911 cmpa #$59
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
912 beq L0667
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
913 cmpa #$4E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
914 bne L0650
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
915 sta <u0045
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
916 L0667 ldd <sectors0
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
917 std <u0017
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
918 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
919 clrb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
920 std <u0036
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
921 std <currtrak
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
922 std <u0008
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
923 std <u0032
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
924 stb <u0031
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
925 sta <u003C
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
926 leax >optbuf,u
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
927 stx <u0038
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
928 lbsr L089C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
929 leax >$0100,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
930 stx <u003A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
931 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
932 ldb #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
933 std <u0034
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
934 lda <u0027
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
935 sta <u002B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
936 clr <u002A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
937 clra
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
938 ldb <u0028
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
939 tst <u0029
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
940 beq L069D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
941 addd #$0001
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
942 L069D addd #$0009
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
943 std <u002D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
944 lda <u0027
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
945 L06A4 lsra
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
946 bcs L06B5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
947 lsr <u002D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
948 ror <u002E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
949 bcc L06A4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
950 inc <u002E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
951 bne L06A4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
952 inc <u002D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
953 bra L06A4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
954 L06B5 ldb <u002E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
955 stb <u002F
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
956 lda <u0027
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
957 mul
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
958 std <u002D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
959 subd #$0001
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
960 subb <u0028
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
961 sbca #$00
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
962 tst <u0029
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
963 beq L06CC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
964 subd #$0001
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
965 L06CC stb <u002C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
966 L06CE tst <u0045
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
967 bne L0700
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
968 lda <diskpath
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
969 leax >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
970 ldy #256
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
971 os9 I$Read
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
972 bcc L0700
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
973 os9 F$PErr
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
974 lbsr L08C8
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
975 lda #$FF
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
976 sta <u002A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
977 tst <u0031
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
978 bne L0700
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
979 ldx <u0032
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
980 cmpx <u002D
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
981 bhi L0700
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
982 L06F5 leax >BadSect,pcr
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
983 L06F9 lbsr L02E2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
984 clrb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
985 lbra L00BB
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
986 L0700 ldd <u0008
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
987 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
988 std <u0008
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
989 cmpd <u0017
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
990 bcs L0745
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
991 clr <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
992 clr <u0009
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
993 tst <u0045
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
994 bne L073A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
995 lda #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
996 pshs a
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
997 lda <currtrak+1
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
998 lbsr L07A7
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
999 pshs b,a
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1000 lda <currtrak
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1001 lbsr L07A7
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1002 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1003 tfr s,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1004 ldy #$0004
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1005 lbsr L02E6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1006 lda $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1007 cmpa #$46
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1008 bne L0738
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1009 lbsr L02DE
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1010 L0738 leas $04,s
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1011 L073A ldd <currtrak
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1012 addd #$0001
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1013 std <currtrak
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1014 ldd <sectors
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1015 std <u0017
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1016 L0745 dec <u002B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1017 bne L075B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1018 bsr L0784
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1019 tst <u002A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1020 bne L0755
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1021 ldx <u0036
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1022 leax $01,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1023 stx <u0036
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1024 L0755 clr <u002A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1025 lda <u0027
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1026 sta <u002B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1027 L075B ldb <u0031
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1028 ldx <u0032
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1029 leax $01,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1030 bne L0764
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1031 incb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1032 L0764 cmpb <u0024
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1033 bcs L076C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1034 cmpx <u0025
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1035 bcc L0773
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1036 L076C stb <u0031
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1037 stx <u0032
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1038 lbra L06CE
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1039 L0773 lda #$FF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1040 sta <u002A
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1041 leay >optbuf,u
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1042 L077B cmpy <u0038
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1043 beq L07BF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1044 bsr L0784
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1045 bra L077B
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1046 L0784 ldx <u0038
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1047 lda <u002A
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1048 rora
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1049 rol ,x+
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1050 inc <u003C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1051 lda <u003C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1052 cmpa #$08
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1053 bcs L07A6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1054 clr <u003C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1055 stx <u0038
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1056 cmpx <u003A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1057 bne L07A6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1058 bsr L0803
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1059 leax >optbuf,u
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1060 stx <u0038
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1061 lbsr L089C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1062 L07A6 rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1063 L07A7 tfr a,b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1064 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1065 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1066 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1067 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1068 andb #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1069 addd #$3030
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1070 cmpa #$39
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1071 bls L07B8
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1072 adda #$07
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1073 L07B8 cmpb #$39
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1074 bls L07BE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1075 addb #$07
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1076 L07BE rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1077 L07BF lbsr L02DE
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1078 leax >NumGood,pcr
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1079 ldy #NumGoodLen
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1080 lbsr L02E6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1081 ldb <u0027
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1082 clra
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1083 ldx <u0036
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1084 pshs x,a
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1085 L07D4 lsrb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1086 bcs L07DF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1087 lsl $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1088 rol $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1089 rol ,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1090 bra L07D4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1091 L07DF puls x,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1092 ldb #$0D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1093 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1094 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1095 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1096 tfr b,a
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1097 bsr L07A7
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1098 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1099 tfr x,d
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1100 bsr L07A7
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1101 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1102 tfr y,d
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1103 bsr L07A7
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1104 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1105 tfr s,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1106 lbsr L02E2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1107 leas $07,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1108 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1109 L0803 pshs y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1110 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1111 ldb #$01
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1112 cmpd <u0034
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1113 bne L081E
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1114 leax >optbuf,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1115 clra
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1116 ldb <u002F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1117 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1118 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1119 os9 F$AllBit
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1120 lbcs L06F5
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1121 L081E lbsr L08B2
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1122 leax >optbuf,u
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1123 lbsr L08A4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1124 ldd <u0024
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1125 cmpd <u0031
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1126 bcs L083A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1127 bhi L0837
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1128 ldb <u0026
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1129 cmpb <u0033
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1130 bcc L083A
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1131 L0837 lbsr L08C8
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1132 L083A ldd <u0034
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1133 addd #$0001
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1134 std <u0034
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1135 puls pc,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1136 L0843 bsr L08B2
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1137 leax >u02B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1138 bsr L089C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1139 leax >u02BA,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1140 os9 F$Time
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1141 leax >u02B7,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1142 lda #$BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1143 sta ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1144 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1145 sta $08,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1146 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1147 ldb #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1148 std $0B,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1149 ldb <u002C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1150 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1151 stb <$14,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1152 ldd <u0034
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1153 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1154 std <$11,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1155 bsr L08A4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1156 bsr L0898
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1157 ldd #$2EAE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1158 std ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1159 stb <$20,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1160 ldd <u0034
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1161 std <$1E,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1162 std <$3E,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1163 bsr L08A4
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1164 bsr L0898
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1165 ldb <u002C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1166 decb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1167 L088C decb
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1168 bne L0890
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1169 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1170 L0890 pshs b
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1171 bsr L08A4
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1172 puls b
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1173 bra L088C
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1174 L0898 leax >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1175 L089C clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1176 clrb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1177 L089E sta d,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1178 decb
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1179 bne L089E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1180 rts
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1181 L08A4 lda <diskpath
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1182 ldy #256
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1183 os9 I$Write
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1184 lbcs L00BB
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1185 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1186 L08B2 clra
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1187 ldb <u0034
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1188 tfr d,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1189 lda <u0035
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1190 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1191 tfr d,u
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1192 L08BC lda <diskpath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1193 os9 I$Seek
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1194 ldu <savedu
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1195 lbcs L00BB
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1196 rts
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1197 L08C8 ldx <u0031
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1198 lda <u0033
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1199 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1200 addd #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1201 tfr d,u
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1202 bcc L08BC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1203 leax $01,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1204 bra L08BC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1205 ldd ,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1206 leau >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1207 leax >L0920,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1208 ldy #$2F20
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1209 L08E6 leay >$0100,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1210 subd ,x
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1211 bcc L08E6
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1212 addd ,x++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1213 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1214 ldd ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1215 tfr y,d
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1216 beq L090E
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1217 ldy #$2F30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1218 cmpd #$3020
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1219 bne L0908
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1220 ldy #$2F20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1221 tfr b,a
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1222 L0908 sta ,u+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1223 puls b,a
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1224 bra L08E6
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1225 L090E sta ,u+
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1226 lda #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1227 sta ,u
924
c155aac72190 Made cosmetic changes
boisy
parents: 689
diff changeset
1228 ldu <savedu
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1229 leas $02,s
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1230 leax >u00B7,u
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1231 lbsr L02E2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1232 rts
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1233
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1234 L0920 fdb $2710,$03e8,$0064,$000a,$0001,$0000
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1235
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1236 L092C ldd #$0000
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1237 L092F bsr L093F
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1238 bcs L0939
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1239 bne L092F
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1240 std <u001F
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1241 bne L093E
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1242 L0939 ldd #$0001
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1243 std <u001F
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1244 L093E rts
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1245 L093F pshs y,b,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1246 ldb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1247 subb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1248 cmpb #$0A
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1249 bcc L095D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1250 lda #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1251 ldy #$000A
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1252 L094F addd ,s
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1253 bcs L095B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1254 leay -$01,y
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1255 bne L094F
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1256 std ,s
203
7dea3d77ba0b Used symbolics for andcc/orcc
boisy
parents: 200
diff changeset
1257 andcc #^Zero
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1258 L095B puls pc,y,b,a
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1259 L095D orcc #Zero
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1260 puls pc,y,b,a
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1261 L0961 lda #$02
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1262 os9 F$PErr
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1263 leax <HelpMsg,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1264 ldy #$0154
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1265 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1266 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1267 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1268 os9 F$Exit
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1269
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1270 Title fcb C$LF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1271 fcc "COLOR COMPUTER FORMATTER"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1272 HelpCR fcb C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1273
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1274 HelpMsg fcc "Use: FORMAT /devname <opts>"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1275 fcb C$LF
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1276 fcc " opts: R - Ready"
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1277 fcb C$LF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1278 fcc " L - Logical format only"
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1279 fcb C$LF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1280 fcc / "disk name"/
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1281 fcb C$LF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1282 fcc " 1/2 - number of sides"
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1283 fcb C$LF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1284 fcc " 'No. of cylinders' (in decimal)"
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1285 fcb C$LF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1286 fcc " :Interleave value: (in decimal)"
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1287 fcb C$CR
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1288 HelpLen equ *-HelpMsg
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1289
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1290 FmtMsg fcc "Formatting drive "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1291 FmtMLen equ *-FmtMsg
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1292
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1293 Query fcc "y (yes) or n (no)"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1294 fcb C$LF
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1295 fcc "Ready? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1296 QueryLen equ *-Query
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1297 AbortIlv fcc "ABORT Interleave value out of range"
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1298 fcb C$CR
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1299 AbortSct fcc "ABORT Sector number out of range"
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1300 fcb C$CR
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1301 AbortOp fcc "ABORT Option not allowed on Device"
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1302 fcb C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1303 DName fcc "Disk name: "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1304 DNameLen equ *-DName
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1305 fcc "How many Cylinders (Tracks?) : "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1306 BadSect fcc "Bad system sector, "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1307 Aborted fcc "FORMAT ABORTED"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1308 fcb C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1309 ClustMsg fcc "Cluster size mismatch"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1310 fcb C$CR
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1311 fcc "Double density? "
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1312 fcc "Track 0 Double density? "
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1313 TPIChg fcc "Change from 96tpi to 48tpi? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1314 DSided fcc "Double sided? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1315 NumGood fcc "Number of good sectors: $"
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1316 NumGoodLen equ *-NumGood
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1317 HDFmt fcc "WARNING: You are formatting a HARD Disk.."
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1318 fcb C$LF
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1319 fcc "Are you sure? "
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1320 HDFmtLen equ *-HDFmt
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1321 Both fcc "Both PHYSICAL and LOGICAL format? "
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1322 BothLen equ *-Both
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1323 Verify fcc "Physical Verify desired? "
312
b6c34acda06c Migrated from OS-9 Level Two
boisy
parents: 263
diff changeset
1324 VerifyL equ *-Verify
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1325
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1326 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1327 eom equ *
119
f418bf788bfa Disassembled format #17 from Tandy OS-9
boisy
parents: 104
diff changeset
1328 end