|
0
|
1 ********************************************************************
|
|
|
2 * Cobbler - Make a bootstrap file
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 5 Original Microware distribution version
|
|
|
9
|
|
|
10 nam Cobbler
|
|
|
11 ttl Make a bootstrap file
|
|
|
12
|
|
|
13 * Disassembled 02/04/03 23:11:02 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use os9defs
|
|
|
17 endc
|
|
|
18 tylg set Prgrm+Objct
|
|
|
19 atrv set ReEnt+rev
|
|
|
20 rev set $01
|
|
|
21 mod eom,name,tylg,atrv,start,size
|
|
|
22 u0000 rmb 1
|
|
|
23 u0001 rmb 3
|
|
|
24 u0004 rmb 1
|
|
|
25 u0005 rmb 2
|
|
|
26 u0007 rmb 2
|
|
|
27 u0009 rmb 20
|
|
|
28 u001D rmb 2
|
|
|
29 u001F rmb 10
|
|
|
30 u0029 rmb 2
|
|
|
31 u002B rmb 32
|
|
|
32 u004B rmb 16
|
|
|
33 u005B rmb 1
|
|
|
34 u005C rmb 7
|
|
|
35 u0063 rmb 682
|
|
|
36 size equ .
|
|
|
37 name equ *
|
|
|
38 fcs /Cobbler/
|
|
|
39 fcb $05
|
|
|
40 L0015 fcb $0A
|
|
|
41 fcb $55 U
|
|
|
42 fcb $73 s
|
|
|
43 fcb $65 e
|
|
|
44 fcb $3A :
|
|
|
45 fcb $20
|
|
|
46 fcb $43 C
|
|
|
47 fcb $6F o
|
|
|
48 fcb $62 b
|
|
|
49 fcb $62 b
|
|
|
50 fcb $6C l
|
|
|
51 fcb $65 e
|
|
|
52 fcb $72 r
|
|
|
53 fcb $20
|
|
|
54 fcb $3C <
|
|
|
55 fcb $2F /
|
|
|
56 fcb $64 d
|
|
|
57 fcb $65 e
|
|
|
58 fcb $76 v
|
|
|
59 fcb $6E n
|
|
|
60 fcb $61 a
|
|
|
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
|
|
|
274 start equ *
|
|
|
275 clrb
|
|
|
276 lda #$2F
|
|
|
277 cmpa ,x
|
|
|
278 lbne L0237
|
|
|
279 os9 F$PrsNam
|
|
|
280 lbcs L0237
|
|
|
281 lda #$2F
|
|
|
282 cmpa ,y
|
|
|
283 lbeq L0237
|
|
|
284 leay <u002B,u
|
|
|
285 L011A sta ,y+
|
|
|
286 lda ,x+
|
|
|
287 decb
|
|
|
288 bpl L011A
|
|
|
289 sty <u0029
|
|
|
290 lda #$40
|
|
|
291 ldb #$20
|
|
|
292 std ,y++
|
|
|
293 leax <u002B,u
|
|
|
294 lda #$03
|
|
|
295 os9 I$Open
|
|
|
296 sta <u0001
|
|
|
297 lbcs L0237
|
|
|
298 ldx <u0029
|
|
|
299 leay >L00F6,pcr
|
|
|
300 lda #$2F
|
|
|
301 L0140 sta ,x+
|
|
|
302 lda ,y+
|
|
|
303 bpl L0140
|
|
|
304 lda <u0001
|
|
|
305 pshs u
|
|
|
306 ldx #$0000
|
|
|
307 ldu #$0015
|
|
|
308 os9 I$Seek
|
|
|
309 puls u
|
|
|
310 lbcs L0249
|
|
|
311 leax u0004,u
|
|
|
312 ldy #$0005
|
|
|
313 os9 I$Read
|
|
|
314 lbcs L0249
|
|
|
315 ldd <u0007
|
|
|
316 beq L017B
|
|
|
317 leax <u002B,u
|
|
|
318 os9 I$Delete
|
|
|
319 clra
|
|
|
320 clrb
|
|
|
321 sta <u0004
|
|
|
322 std <u0005
|
|
|
323 std <u0007
|
|
|
324 lbsr L0261
|
|
|
325 L017B lda #$02
|
|
|
326 ldb #$03
|
|
|
327 leax <u002B,u
|
|
|
328 os9 I$Create
|
|
|
329 sta <u0000
|
|
|
330 lbcs L0249
|
|
|
331 ldd >$0068
|
|
|
332 subd >$0066
|
|
|
333 tfr d,y
|
|
|
334 std <u0007
|
|
|
335 ldx >$0066
|
|
|
336 lda <u0000
|
|
|
337 os9 I$Write
|
|
|
338 lbcs L0249
|
|
|
339 leax u0009,u
|
|
|
340 ldb #$00
|
|
|
341 os9 I$GetStt
|
|
|
342 lbcs L0249
|
|
|
343 lda <u0000
|
|
|
344 os9 I$Close
|
|
|
345 lbcs L0237
|
|
|
346 pshs u
|
|
|
347 ldx <u001D,u
|
|
|
348 lda <u001F,u
|
|
|
349 clrb
|
|
|
350 tfr d,u
|
|
|
351 lda <u0001
|
|
|
352 os9 I$Seek
|
|
|
353 puls u
|
|
|
354 lbcs L0249
|
|
|
355 leax <u004B,u
|
|
|
356 ldy #$0100
|
|
|
357 os9 I$Read
|
|
|
358 lbcs L0249
|
|
|
359 ldd <u0063,u
|
|
|
360 lbne L024C
|
|
|
361 ldb <u005B,u
|
|
|
362 stb <u0004
|
|
|
363 ldd <u005C,u
|
|
|
364 std <u0005
|
|
|
365 lbsr L0261
|
|
|
366 lbsr L0228
|
|
|
367 leax <u004B,u
|
|
|
368 ldy #$0100
|
|
|
369 os9 I$Read
|
|
|
370 bcs L023B
|
|
|
371 lda ,x
|
|
|
372 anda #$3F
|
|
|
373 eora #$3F
|
|
|
374 bne L025A
|
|
|
375 lda $01,x
|
|
|
376 eora #$FF
|
|
|
377 bne L025A
|
|
|
378 lda $02,x
|
|
|
379 anda #$90
|
|
|
380 eora #$90
|
|
|
381 bne L025A
|
|
|
382 ldx #$F000
|
|
|
383 ldy #$0F00
|
|
|
384 lda <u0001
|
|
|
385 os9 I$Write
|
|
|
386 bcs L0253
|
|
|
387 os9 I$Close
|
|
|
388 bcs L0249
|
|
|
389 clrb
|
|
|
390 bra L0249
|
|
|
391 L0228 pshs u
|
|
|
392 lda <u0001
|
|
|
393 ldx #$0000
|
|
|
394 ldu #$0100
|
|
|
395 os9 I$Seek
|
|
|
396 puls pc,u
|
|
|
397 L0237 leax >L0015,pcr
|
|
|
398 L023B pshs b
|
|
|
399 lda #$02
|
|
|
400 ldy #$0100
|
|
|
401 os9 I$WritLn
|
|
|
402 comb
|
|
|
403 puls b
|
|
|
404 L0249 os9 F$Exit
|
|
|
405 L024C leax >L00B6,pcr
|
|
|
406 clrb
|
|
|
407 bra L023B
|
|
|
408 L0253 leax >L004E,pcr
|
|
|
409 clrb
|
|
|
410 bra L023B
|
|
|
411 L025A leax >L006A,pcr
|
|
|
412 clrb
|
|
|
413 bra L023B
|
|
|
414 L0261 pshs u
|
|
|
415 ldx #$0000
|
|
|
416 ldu #$0015
|
|
|
417 lda <u0001
|
|
|
418 os9 I$Seek
|
|
|
419 puls u
|
|
|
420 bcs L0249
|
|
|
421 leax u0004,u
|
|
|
422 ldy #$0005
|
|
|
423 os9 I$Write
|
|
|
424 bcs L0249
|
|
|
425 rts
|
|
|
426 emod
|
|
|
427 eom equ *
|
