Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/cobbler.asm @ 264:1ced4acebe44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for OS-9 Level One, now places boot track in proper place on double-sided disk
author boisy
date Sun, 21 Jul 2002 03:00:31 +0000
parents 1db453e3ce5f
children 617c1b90e623
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
2 * Cobbler - Write OS9Boot to a disk
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 * ------------------------------------------------------------------
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
8 * 7 From Tandy OS-9 Level Two Vr. 2.00.01
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
9 * Modified source to allow for OS-9 Level One BGP 02/07/20
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
10 * and OS-9 Level Two assembly
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12 nam Cobbler
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
13 ttl Write OS9Boot to a disk
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
15 * Disassembled 02/07/06 13:08:41 by Disasm v1.6 (C) 1988 by RML
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 ifp1
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
18 use defsfile
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
19 use rbfdefs
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 endc
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
21
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 rev set $01
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
25 edition set 7
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
26
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
27 os9l1start equ $EF00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
28 os9l1size equ $0F80
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
29
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 mod eom,name,tylg,atrv,start,size
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
31
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
32 LSN0Buff rmb 26
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
33 NewBPath rmb 1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
34 DevPath rmb 3
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
35 u001E rmb 2
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
36 FullBName rmb 20 this buffer hodls the entire name (i.e. /D0/OS9Boot)
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
37 u0034 rmb 16
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
38 u0044 rmb 7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
39 u004B rmb 2
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
40 u004D rmb 1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
41 u004E rmb 16
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
42 PathOpts rmb 20
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
43 u0072 rmb 2
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
44 u0074 rmb 10
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
45 BFFDBuf rmb 16
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
46 u008E rmb 1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
47 u008F rmb 7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
48 u0096 rmb 232
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
49 BitMBuf rmb 1024
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
50 ifgt Level-1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
51 u057E rmb 76
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
52 u05CA rmb 8316
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
53 endc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 size equ .
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
55
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
56 name fcs /Cobbler/
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
57 fcb edition
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
58
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
59 L0015 fcb $00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
60 fcb $00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
61
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
62 Help fcb C$LF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
63 fcc "Use: COBBLER </devname>"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
64 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
65 fcc " to create a new system disk"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
66 fcb C$CR
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
67 WritErr fcb C$LF
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
68 fcc "Error writing kernel track"
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
69 fcb C$CR
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
70 fcb C$LF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
71 fcc "Error - cannot gen to hard disk"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
72 fcb C$CR
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
73 FileWarn fcb C$LF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
74 fcc "Warning - file(s) present"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
75 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
76 fcc "on track 34 - this track"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
77 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
78 fcc "not rewritten."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
79 fcb C$CR
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
80 BootFrag fcb C$LF
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
81 fcc "Error - OS9boot file fragmented"
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
82 fcb C$CR
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
83 ifgt Level-1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
84 RelMsg fcb C$LF
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
85 fcc "Error - can't link to Rel module"
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
86 fcb C$CR
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
87 endc
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
88 BootName fcc "OS9Boot "
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
89 fcb $FF
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
90 RelNam fcc "Rel"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 fcb $FF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
92
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
93 start clrb
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
94 lda #PDELIM
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 cmpa ,x
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
96 lbne L0473
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 os9 F$PrsNam
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
98 lbcs L0473
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
99 lda #PDELIM
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 cmpa ,y
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
101 lbeq L0473
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
102 leay <FullBName,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
103 L013C sta ,y+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 decb
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
106 bpl L013C
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
107 sty <u001E
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
108 lda #PENTIR
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
109 ldb #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 std ,y++
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
111 leax <FullBName,u
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
112 lda #UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 os9 I$Open
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
114 sta <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
115 lbcs L0473
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
116 ldx <u001E
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
117 leay >BootName,pcr
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
118 lda #PDELIM
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
119 L0162 sta ,x+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 lda ,y+
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
121 bpl L0162
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 pshs u
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
123 clra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
124 clrb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
125 tfr d,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
126 tfr d,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
127 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
128 os9 I$Seek seek to 0
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
129 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 puls u
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
131 leax LSN0Buff,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
132 ldy #DD.DAT $1A
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
133 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
134 os9 I$Read read LSN0
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
135 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
136 ldd <DD.BSZ get size of bootfile currently
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
137 beq L019F branch if none
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
138 leax <FullBName,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
139 os9 I$Delete delete existing bootfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 clrb
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
142 sta <DD.BT
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
143 std <DD.BT+1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
144 std <DD.BSZ
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
145 lbsr WriteLSN0
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
146 L019F lda #WRITE.
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
147 ldb #READ.+WRITE.
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
148 leax <FullBName,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
149 os9 I$Create create new bootfile
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
150 sta <NewBPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
151 lbcs Bye branch if error
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
152
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
153 ifgt Level-1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
154 * OS-9 Level Two: Copy first 90 bytes of system direct page into our space
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
155 * so we can figure out boot location and size, then copy to our space
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
156 leax >L0015,pcr
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
157 tfr x,d
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
158 ldx #$0000
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
159 ldy #$0090
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
160 pshs u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
161 leau >u057E,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
162 os9 F$CpyMem
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
163 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
164 puls u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
165 leax >L0015,pcr
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
166 tfr x,d
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
167 ldx >u05CA,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
168 ldy #$0010
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
169 pshs u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
170 leau <u004E,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
171 os9 F$CpyMem
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
172 puls u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
173 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
174 leax >u057E,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
175 ldd <D.BtPtr,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
176 pshs b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
177 ldd <D.BtSz,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
178 std <DD.BSZ
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
179 pshs b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
180 L01F7 ldy #$2000
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
181 cmpy ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
182 bls L0203
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
183 ldy ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
184 L0203 pshs y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
185 leax <u004E,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
186 tfr x,d
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
187 ldx $04,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
188 pshs u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
189 leau >u057E,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
190 os9 F$CpyMem
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
191 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
192 puls u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
193 ldy ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
194 leax >u057E,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
195 lda <NewBPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
196 os9 I$Write
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
197 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
198 puls b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
199 ldy $02,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
200 leay d,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
201 sty $02,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
202 nega
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
203 negb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
204 sbca #$00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
205 ldy ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
206 leay d,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
207 sty ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
208 bne L01F7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
209 leas $04,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
210
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
211 else
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
212
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
213 * OS-9 Level One: Write out bootfile
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
214 ldd >D.BTHI get bootfile size
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
215 subd >D.BTLO
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
216 tfr d,y in D, tfr to Y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
217 std <DD.BSZ save it
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
218 ldx >D.BTLO get pointer to boot in mem
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
219 lda <NewBPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
220 os9 I$Write write out boot to file
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
221 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
222
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
223 endc
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
224
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
225 leax <PathOpts,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
226 ldb #SS.Opt
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
227 lda <NewBPath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 os9 I$GetStt
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
229 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
230 lda <NewBPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
231 os9 I$Close
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
232 lbcs L0473
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 pshs u
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
234 ldx <PathOpts+(PD.FD-PD.OPT),u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
235 lda <PathOpts+(PD.FD+2-PD.OPT),u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
236 * Now X and A hold file descriptor sector LSN of newly created OS9Boot
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 tfr d,u
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
239 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
240 os9 I$Seek seek to os9boot file descriptor
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 puls u
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
242 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
243 leax <BFFDBuf,u
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
244 ldy #256
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
245 os9 I$Read read in filedes sector
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
246 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
247 ldd >BFFDBuf+(FD.SEG+FDSL.S+FDSL.B),u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
248 lbne IsFragd branch if fragmented
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
249 * Get and save bootfile's LSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
250 ldb >BFFDBuf+(FD.SEG),u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
251 stb <DD.BT
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
252 ldd >BFFDBuf+(FD.SEG+1),u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
253 std <DD.BT+1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
254 lbsr WriteLSN0
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
255 lda #$00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
256 ldb #$01
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
257 lbsr Seek2LSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
258 leax >BitMBuf,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
259 ldy <DD.MAP
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
260 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
261 os9 I$Read read bitmap sector(s)
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
262 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
263 lda #$22
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
264 clrb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
265 ldy #$0004
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
266 lbsr L03A7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
267 bcc L0304
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
268 lda #$22
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
269 ldb #$00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
270 lbsr Seek2LSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
271 leax <u0044,u
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
272 ldy #$0007
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
273 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
274 os9 I$Read
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
275 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
276 leax <u0044,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
277 ldd ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
278 cmpa #'O
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
279 lbne TrkAlloc
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
280 cmpb #'S
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
281 lbne TrkAlloc
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
282 lda $04,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
283 cmpa #$12
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
284 beq L02F7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
285 lda #$22
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
286 ldb #$0F
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
287 ldy #$0003
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
288 lbsr L03A7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
289 lbcs TrkAlloc
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
290 L02F7 clra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
291 ldb <DD.TKS
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
292 tfr d,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
293 lda #$22
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
294 clrb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
295 lbsr L03FD
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
296 bra L0315
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
297 L0304 lda #$22
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
298 ldb #$04
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
299 ldy #$000E
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
300 lbsr L03A7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
301 lbcs TrkAlloc
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
302 bra L02F7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
303
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
304 L0315 clra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
305 ldb #$01
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
306 lbsr Seek2LSN Seek to bitmap sector on disk
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
307 leax >BitMBuf,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
308 ldy <DD.MAP
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
309 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
310 os9 I$Write write updated bitmap
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
311 lbcs Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
312
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
313 ifgt Level-1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
314 * OS-9 Level Two: Link to Rel, which brings in boot code
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
315 pshs u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
316 lda #Systm+Objct
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
317 leax >RelNam,pcr
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
318 os9 F$Link
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
319 lbcs NoRel
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
320 tfr u,d tfr module header to D
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
321 puls u get statics ptr
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
322 subd #$0006
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
323 std <u004B,u save pointer
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
324 lda #$E0
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
325 anda <u004B,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
326 ora #$1E
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
327 ldb #$FF
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
328 subd <u004B,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
329 addd #$0001
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
330 tfr d,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
331 lda #$22
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
332 ldb #$00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
333 lbsr Seek2LSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
334 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
335 ldx <u004B,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
336
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
337 else
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
338
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
339 * OS-9 Level One: Write out data at $EF00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
340 lda #$22
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
341 ldb #$00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
342 lbsr Seek2LSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
343 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
344 ldx #os9l1start
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
345 ldy #os9l1size
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
346
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
347 endc
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
348
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
349 os9 I$Write
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
350 lbcs WriteBad
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
351 os9 I$Close
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
352 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
353 clrb
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
354 lbra Bye
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
355
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
356 * Get absolute LSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
357 * Returns in D
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
358 AbsLSN pshs b
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
359 ldb <DD.FMT get format byte
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
360 andb #$01 check how many sides?
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
361 beq L037F branch if 1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
362 ldb #$02 else assume 2
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
363 bra L0381
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
364 L037F ldb #$01
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
365 L0381 mul
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
366 lda <DD.TKS
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
367 mul
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
368 addb ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
369 adca #$00
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
370 leas $01,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
371 rts
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
372
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
373 * Returns bit in bitmap corresponding to LSN in A
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
374 L038C pshs y,b
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
375 * Divide D by 8
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
376 lsra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
377 rorb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
378 lsra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
379 rorb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
380 lsra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
381 rorb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
382 leax d,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
383 puls b
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
384 leay <L03A1,pcr
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
385 andb #$07
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
386 lda b,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
387 puls pc,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
388
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
389 L03A1 fcb $80,$40,$20,$10,$08,$04,$02,$01
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
390
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
391 L03A7 pshs y,x,b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
392 bsr AbsLSN go get absolute LSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
393 leax >BitMBuf,u point X to our bitmap buffer
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
394 bsr L038C
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
395 sta ,-s save off
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
396 bmi L03CB
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
397 lda ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
398 sta <u004D
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
399 L03BB anda ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
400 bne L03F7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
401 leay -$01,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
402 beq L03F3
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
403 lda <u004D
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
404 lsr ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
405 bcc L03BB
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
406 leax $01,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
407 L03CB lda #$FF
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
408 sta ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
409 bra L03DB
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
410 L03D1 lda ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
411 anda ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
412 bne L03F7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
413 leax $01,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
414 leay -$08,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
415 L03DB cmpy #$0008
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
416 bhi L03D1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
417 beq L03ED
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
418 lda ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
419 L03E5 lsra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
420 leay -$01,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
421 bne L03E5
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
422 coma
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
423 sta ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
424 L03ED lda ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
425 anda ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
426 bne L03F7
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
427 L03F3 andcc #^Carry
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
428 bra L03F9
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
429 L03F7 orcc #Carry
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
430 L03F9 leas $01,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
431 puls pc,y,x,b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
432 L03FD pshs y,x,b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
433 lbsr AbsLSN get absolute LSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
434 leax >BitMBuf,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
435 bsr L038C
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
436 sta ,-s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
437 bmi L041C
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
438 lda ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
439 L040E ora ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
440 leay -$01,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
441 beq L043A
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
442 lsr ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
443 bcc L040E
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
444 sta ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
445 leax $01,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
446 L041C lda #$FF
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
447 bra L0426
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
448 L0420 sta ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
449 leax $01,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
450 leay -$08,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
451 L0426 cmpy #$0008
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
452 bhi L0420
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
453 beq L043A
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
454 L042E lsra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
455 leay -$01,y
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
456 bne L042E
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
457 coma
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
458 sta ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
459 lda ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
460 ora ,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
461 L043A sta ,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
462 leas $01,s
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
463 puls pc,y,x,b,a
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
464
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
465 Seek2LSN pshs u,y,x,b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
466 lbsr AbsLSN
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
467 pshs a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
468 tfr b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
469 clrb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
470 tfr d,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
471 puls b
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
472 clra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
473 tfr d,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
474 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
475 os9 I$Seek
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
476 bcs WriteBad
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
477 puls pc,u,y,x,b,a
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
478
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
479 WriteLSN0
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
480 pshs u added for OS-9 Level One +BGP+
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
481 clra
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
482 clrb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
483 tfr d,x
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
484 tfr d,u
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
485 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
486 os9 I$Seek Seek to LSN0
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
487 puls u added for OS-9 Level One +BGP+
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
488 leax LSN0Buff,u Point to our LSN buffer
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
489 ldy #DD.DAT
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
490 lda <DevPath
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
491 os9 I$Write Write to disk
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
492 bcs Bye branch if error
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
493 rts
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
494
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
495 L0473 leax >Help,pcr
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
496 L0477 pshs b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
497 lda #$02
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
498 ldy #256
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
499 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
500 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
501 puls b
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
502 Bye os9 F$Exit
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
503
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
504 IsFragd leax >BootFrag,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
505 clrb
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
506 bra L0477
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
507
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
508 WriteBad leax >WritErr,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
509 clrb
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
510 bra L0477
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
511
264
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
512 TrkAlloc leax >FileWarn,pcr
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
513 clrb
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
514 bra L0477
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
515
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
516 ifgt Level-1
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
517 NoRel leax >RelMsg,pcr
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
518 bra L0477
1ced4acebe44 edition 7 - from CoCo OS-9 Level Two version of cobbler with additions for
boisy
parents: 260
diff changeset
519 endc
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
520
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
521 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
522 eom equ *
260
1db453e3ce5f Added patch from Jan 1987 Rainbow, pg 203 to fix bitmap allocation bug
boisy
parents: 213
diff changeset
523 end