Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/cobbler.asm @ 1748:949d4df97cca

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