Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/cobbler.asm @ 1303:0006715970b5

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