Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/cobbler.asm @ 1020:c1a5613ffe7b

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