Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/cobbler.asm @ 126:6b992a305a29

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed a few labels
author roug
date Sat, 06 Jul 2002 22:08:10 +0000
parents 6641a883d6b0
children 3a847d2b4492
comparison
equal deleted inserted replaced
125:97d61d10c012 126:6b992a305a29
11 ttl Make a bootstrap file 11 ttl Make a bootstrap file
12 12
13 * Disassembled 02/04/03 23:11:02 by Disasm v1.6 (C) 1988 by RML 13 * Disassembled 02/04/03 23:11:02 by Disasm v1.6 (C) 1988 by RML
14 14
15 ifp1 15 ifp1
16 use os9defs 16 use defsfile
17 endc 17 endc
18 tylg set Prgrm+Objct 18 tylg set Prgrm+Objct
19 atrv set ReEnt+rev 19 atrv set ReEnt+rev
20 rev set $01 20 rev set $01
21 mod eom,name,tylg,atrv,start,size 21 mod eom,name,tylg,atrv,start,size
35 u0063 rmb 682 35 u0063 rmb 682
36 size equ . 36 size equ .
37 name equ * 37 name equ *
38 fcs /Cobbler/ 38 fcs /Cobbler/
39 fcb $05 39 fcb $05
40 L0015 fcb $0A 40 L0015 fcb C$LF
41 fcb $55 U 41 fcc "Use: Cobbler </devname>"
42 fcb $73 s 42 fcb C$LF
43 fcb $65 e 43 fcc " to create a new system disk"
44 fcb $3A : 44 fcb C$CR
45 fcb $20 45 L004E fcb C$LF
46 fcb $43 C 46 fcc "Error writing kernel track"
47 fcb $6F o 47 fcb C$CR
48 fcb $62 b 48 L006A fcb C$LF
49 fcb $62 b 49 fcc "Warning - Kernel track has"
50 fcb $6C l 50 fcb C$LF
51 fcb $65 e 51 fcc "not been allocated properly."
52 fcb $72 r 52 fcb C$LF
53 fcb $20 53 fcc "Track not written."
54 fcb $3C < 54 fcb C$CR
55 fcb $2F / 55 L00B6 fcb C$LF
56 fcb $64 d 56 fcc "Error - OS9boot file fragmented"
57 fcb $65 e 57 fcb C$LF
58 fcb $76 v 58 fcc " This disk will not bootstrap."
59 fcb $6E n 59 fcb C$CR
60 fcb $61 a 60 L00F6 fcc "OS9Boot "
61 fcb $6D m
62 fcb $65 e
63 fcb $3E >
64 fcb $0A
65 fcb $20
66 fcb $20
67 fcb $20
68 fcb $20
69 fcb $74 t
70 fcb $6F o
71 fcb $20
72 fcb $63 c
73 fcb $72 r
74 fcb $65 e
75 fcb $61 a
76 fcb $74 t
77 fcb $65 e
78 fcb $20
79 fcb $61 a
80 fcb $20
81 fcb $6E n
82 fcb $65 e
83 fcb $77 w
84 fcb $20
85 fcb $73 s
86 fcb $79 y
87 fcb $73 s
88 fcb $74 t
89 fcb $65 e
90 fcb $6D m
91 fcb $20
92 fcb $64 d
93 fcb $69 i
94 fcb $73 s
95 fcb $6B k
96 fcb $0D
97 L004E fcb $0A
98 fcb $45 E
99 fcb $72 r
100 fcb $72 r
101 fcb $6F o
102 fcb $72 r
103 fcb $20
104 fcb $77 w
105 fcb $72 r
106 fcb $69 i
107 fcb $74 t
108 fcb $69 i
109 fcb $6E n
110 fcb $67 g
111 fcb $20
112 fcb $6B k
113 fcb $65 e
114 fcb $72 r
115 fcb $6E n
116 fcb $65 e
117 fcb $6C l
118 fcb $20
119 fcb $74 t
120 fcb $72 r
121 fcb $61 a
122 fcb $63 c
123 fcb $6B k
124 fcb $0D
125 L006A fcb $0A
126 fcb $57 W
127 fcb $61 a
128 fcb $72 r
129 fcb $6E n
130 fcb $69 i
131 fcb $6E n
132 fcb $67 g
133 fcb $20
134 fcb $2D -
135 fcb $20
136 fcb $4B K
137 fcb $65 e
138 fcb $72 r
139 fcb $6E n
140 fcb $65 e
141 fcb $6C l
142 fcb $20
143 fcb $74 t
144 fcb $72 r
145 fcb $61 a
146 fcb $63 c
147 fcb $6B k
148 fcb $20
149 fcb $68 h
150 fcb $61 a
151 fcb $73 s
152 fcb $0A
153 fcb $6E n
154 fcb $6F o
155 fcb $74 t
156 fcb $20
157 fcb $62 b
158 fcb $65 e
159 fcb $65 e
160 fcb $6E n
161 fcb $20
162 fcb $61 a
163 fcb $6C l
164 fcb $6C l
165 fcb $6F o
166 fcb $63 c
167 fcb $61 a
168 fcb $74 t
169 fcb $65 e
170 fcb $64 d
171 fcb $20
172 fcb $70 p
173 fcb $72 r
174 fcb $6F o
175 fcb $70 p
176 fcb $65 e
177 fcb $72 r
178 fcb $6C l
179 fcb $79 y
180 fcb $2E .
181 fcb $0A
182 fcb $54 T
183 fcb $72 r
184 fcb $61 a
185 fcb $63 c
186 fcb $6B k
187 fcb $20
188 fcb $6E n
189 fcb $6F o
190 fcb $74 t
191 fcb $20
192 fcb $77 w
193 fcb $72 r
194 fcb $69 i
195 fcb $74 t
196 fcb $74 t
197 fcb $65 e
198 fcb $6E n
199 fcb $2E .
200 fcb $0D
201 L00B6 fcb $0A
202 fcb $45 E
203 fcb $72 r
204 fcb $72 r
205 fcb $6F o
206 fcb $72 r
207 fcb $20
208 fcb $2D -
209 fcb $20
210 fcb $4F O
211 fcb $53 S
212 fcb $39 9
213 fcb $62 b
214 fcb $6F o
215 fcb $6F o
216 fcb $74 t
217 fcb $20
218 fcb $66 f
219 fcb $69 i
220 fcb $6C l
221 fcb $65 e
222 fcb $20
223 fcb $66 f
224 fcb $72 r
225 fcb $61 a
226 fcb $67 g
227 fcb $6D m
228 fcb $65 e
229 fcb $6E n
230 fcb $74 t
231 fcb $65 e
232 fcb $64 d
233 fcb $0A
234 fcb $20
235 fcb $54 T
236 fcb $68 h
237 fcb $69 i
238 fcb $73 s
239 fcb $20
240 fcb $64 d
241 fcb $69 i
242 fcb $73 s
243 fcb $6B k
244 fcb $20
245 fcb $77 w
246 fcb $69 i
247 fcb $6C l
248 fcb $6C l
249 fcb $20
250 fcb $6E n
251 fcb $6F o
252 fcb $74 t
253 fcb $20
254 fcb $62 b
255 fcb $6F o
256 fcb $6F o
257 fcb $74 t
258 fcb $73 s
259 fcb $74 t
260 fcb $72 r
261 fcb $61 a
262 fcb $70 p
263 fcb $2E .
264 fcb $0D
265 L00F6 fcb $4F O
266 fcb $53 S
267 fcb $39 9
268 fcb $42 B
269 fcb $6F o
270 fcb $6F o
271 fcb $74 t
272 fcb $20
273 fcb $FF 61 fcb $FF
274 start equ * 62 start equ *
275 clrb 63 clrb
276 lda #$2F 64 lda #$2F
277 cmpa ,x 65 cmpa ,x
302 lda ,y+ 90 lda ,y+
303 bpl L0140 91 bpl L0140
304 lda <u0001 92 lda <u0001
305 pshs u 93 pshs u
306 ldx #$0000 94 ldx #$0000
307 ldu #$0015 95 ldu #$0015 probably DD.BT
308 os9 I$Seek 96 os9 I$Seek
309 puls u 97 puls u
310 lbcs L0249 98 lbcs Exit
311 leax u0004,u 99 leax u0004,u
312 ldy #$0005 100 ldy #$0005
313 os9 I$Read 101 os9 I$Read Read bootstrap sector + size = 5 bytes
314 lbcs L0249 102 lbcs Exit
315 ldd <u0007 103 ldd <u0007
316 beq L017B 104 beq L017B
317 leax <u002B,u 105 leax <u002B,u
318 os9 I$Delete 106 os9 I$Delete
319 clra 107 clra
325 L017B lda #$02 113 L017B lda #$02
326 ldb #$03 114 ldb #$03
327 leax <u002B,u 115 leax <u002B,u
328 os9 I$Create 116 os9 I$Create
329 sta <u0000 117 sta <u0000
330 lbcs L0249 118 lbcs Exit
331 ldd >$0068 119 ldd >$0068
332 subd >$0066 120 subd >$0066
333 tfr d,y 121 tfr d,y
334 std <u0007 122 std <u0007
335 ldx >$0066 123 ldx >$0066
336 lda <u0000 124 lda <u0000
337 os9 I$Write 125 os9 I$Write
338 lbcs L0249 126 lbcs Exit
339 leax u0009,u 127 leax u0009,u
340 ldb #$00 128 ldb #$00
341 os9 I$GetStt 129 os9 I$GetStt
342 lbcs L0249 130 lbcs Exit
343 lda <u0000 131 lda <u0000
344 os9 I$Close 132 os9 I$Close
345 lbcs L0237 133 lbcs L0237
346 pshs u 134 pshs u
347 ldx <u001D,u 135 ldx <u001D,u
349 clrb 137 clrb
350 tfr d,u 138 tfr d,u
351 lda <u0001 139 lda <u0001
352 os9 I$Seek 140 os9 I$Seek
353 puls u 141 puls u
354 lbcs L0249 142 lbcs Exit
355 leax <u004B,u 143 leax <u004B,u
356 ldy #$0100 144 ldy #$0100
357 os9 I$Read 145 os9 I$Read
358 lbcs L0249 146 lbcs Exit
359 ldd <u0063,u 147 ldd <u0063,u
360 lbne L024C 148 lbne L024C
361 ldb <u005B,u 149 ldb <u005B,u
362 stb <u0004 150 stb <u0004
363 ldd <u005C,u 151 ldd <u005C,u
365 lbsr L0261 153 lbsr L0261
366 lbsr L0228 154 lbsr L0228
367 leax <u004B,u 155 leax <u004B,u
368 ldy #$0100 156 ldy #$0100
369 os9 I$Read 157 os9 I$Read
370 bcs L023B 158 bcs wrerr
371 lda ,x 159 lda ,x
372 anda #$3F 160 anda #$3F
373 eora #$3F 161 eora #$3F
374 bne L025A 162 bne L025A
375 lda $01,x 163 lda $01,x
383 ldy #$0F00 171 ldy #$0F00
384 lda <u0001 172 lda <u0001
385 os9 I$Write 173 os9 I$Write
386 bcs L0253 174 bcs L0253
387 os9 I$Close 175 os9 I$Close
388 bcs L0249 176 bcs Exit
389 clrb 177 clrb
390 bra L0249 178 bra Exit
391 L0228 pshs u 179 L0228 pshs u
392 lda <u0001 180 lda <u0001
393 ldx #$0000 181 ldx #$0000
394 ldu #$0100 182 ldu #$0100
395 os9 I$Seek 183 os9 I$Seek
396 puls pc,u 184 puls pc,u
397 L0237 leax >L0015,pcr 185 L0237 leax >L0015,pcr
398 L023B pshs b 186 wrerr pshs b
399 lda #$02 187 lda #$02
400 ldy #$0100 188 ldy #$0100
401 os9 I$WritLn 189 os9 I$WritLn
402 comb 190 comb
403 puls b 191 puls b
404 L0249 os9 F$Exit 192 Exit os9 F$Exit
405 L024C leax >L00B6,pcr 193 L024C leax >L00B6,pcr
406 clrb 194 clrb
407 bra L023B 195 bra wrerr
408 L0253 leax >L004E,pcr 196 L0253 leax >L004E,pcr
409 clrb 197 clrb
410 bra L023B 198 bra wrerr
411 L025A leax >L006A,pcr 199 L025A leax >L006A,pcr
412 clrb 200 clrb
413 bra L023B 201 bra wrerr
414 L0261 pshs u 202 L0261 pshs u
415 ldx #$0000 203 ldx #$0000
416 ldu #$0015 204 ldu #$0015
417 lda <u0001 205 lda <u0001
418 os9 I$Seek 206 os9 I$Seek
419 puls u 207 puls u
420 bcs L0249 208 bcs Exit
421 leax u0004,u 209 leax u0004,u
422 ldy #$0005 210 ldy #$0005
423 os9 I$Write 211 os9 I$Write
424 bcs L0249 212 bcs Exit
425 rts 213 rts
426 emod 214 emod
427 eom equ * 215 eom equ *