Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/cobbler.asm @ 213:b1c9e7670850

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed the Dragon editions to save from RAM location $EF00 - same as COCO
author roug
date Mon, 15 Jul 2002 21:48:35 +0000
parents e9ce43cc215e
children 1db453e3ce5f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * Cobbler - Make a bootstrap file
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 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
8 * 5 From Tandy OS-9 Level One VR 02.00.00
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Cobbler
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl Make a bootstrap file
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
13 * Disassembled 02/07/06 23:26:00 by Disasm v1.6 (C) 1988 by RML
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
16 use defsfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
18
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
22 edition set 5
213
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
23 os9start equ $EF00
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
24 os9size equ $0F80
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
25
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 mod eom,name,tylg,atrv,start,size
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
27
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 u0000 rmb 1
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
29 DevFd rmb 3
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
30 BTLSN rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0005 rmb 2
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
32 BtSiz rmb 2
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
33 u0009 rmb 7
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
34 sttbuf rmb 3
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
35 u0013 rmb 17
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
36 u0024 rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
37 u0026 rmb 10
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
38 u0030 rmb 2
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
39 devnam rmb 32
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
40 u0052 rmb 16
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
41 u0062 rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
42 u0063 rmb 7
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
43 u006A rmb 432
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 size equ .
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
45
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
46 name fcs /Cobbler/
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
47 fcb edition
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
48
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
49 L0015 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
50 fcc "Use: COBBLER </devname>"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
51 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
52 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
53 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
54 L004F fcb C$LF
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
55 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
56 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
57 L006B fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
58 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
59 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
60 L008C fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
61 fcc "Warning - file(s) present"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
62 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
63 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
64 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
65 fcc "not rewritten."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
66 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
67 L00CF fcb C$LF
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
68 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
69 fcb C$CR
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
70 BfNam fcc "OS9Boot "
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 fcb $FF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
72
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 start equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 clrb
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
75 lda #'/
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 cmpa ,x
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
77 lbne Usage
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 os9 F$PrsNam
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
79 lbcs Usage
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
80 lda #'/
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 cmpa ,y
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
82 lbeq Usage
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
83 leay <devnam,u
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
84 L0114 sta ,y+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 decb
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
87 bpl L0114
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
88 sty <u0030
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
89 lda #'@
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 ldb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 std ,y++
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
92 leax <devnam,u
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
93 lda #UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 os9 I$Open
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
95 sta <DevFd
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
96 lbcs Usage
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
97 ldx <u0030
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
98 leay >BfNam,pcr
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
99 lda #'/
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
100 L013A sta ,x+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 lda ,y+
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
102 bpl L013A
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
103 lda <DevFd
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
104 leax <sttbuf,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
105 ldb #$00
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
106 os9 I$GetStt
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
107 lbcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
108 leax <sttbuf,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
109 lda <u0013,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
110 bpl L015E
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
111 leax >L006B,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
112 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
113 lbra wrerr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
114 L015E lda <DevFd
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 ldx #$0000
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
117 ldu #$0015 probably DD.BT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 puls u
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
120 lbcs Exit
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
121 leax BTLSN,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 ldy #$0005
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
123 os9 I$Read Read bootstrap sector + size = 5 bytes
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
124 lbcs Exit
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
125 ldd <BtSiz
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
126 beq L0193
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
127 leax <devnam,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 os9 I$Delete
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 clrb
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
131 sta <BTLSN
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 std <u0005
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
133 std <BtSiz
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
134 lbsr UpLSN0
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
135 L0193 lda #WRITE.
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
136 ldb #UPDAT.
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
137 leax <devnam,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 os9 I$Create
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 sta <u0000
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
140 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 ldd >$0068
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142 subd >$0066
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 tfr d,y
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
144 std <BtSiz
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
145 ldx >$0066
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 lda <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
147 os9 I$Write
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
148 lbcs Exit
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
149 leax <sttbuf,u
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
150 ldb #SS.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
151 os9 I$GetStt
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
152 lbcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 lda <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 os9 I$Close
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
155 lbcs Usage
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 pshs u
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
157 ldx <u0024,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
158 lda <u0026,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 tfr d,u
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
161 lda <DevFd
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163 puls u
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
164 lbcs Exit
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
165 leax <u0052,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 os9 I$Read
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
168 lbcs Exit
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
169 ldd <u006A,u
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
170 lbne Fragd
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
171 ldb <u0062,u
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
172 stb <BTLSN
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
173 ldd <u0063,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 std <u0005
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
175 lbsr UpLSN0
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
176 lbsr SkLSN1
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
177 leax <u0052,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 os9 I$Read
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
180 lbcs wrerr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
181 leax <u0052,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
182 lda <$4C,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
183 bita #$0F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
184 beq L0273
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
185 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
186 pshs u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
187 ldx #$0002
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
188 ldu #$6400
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
189 os9 I$Seek Jump to LSN 612
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
190 puls u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
191 leax u0009,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
192 ldy #$0007
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
193 os9 I$Read
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
194 lbcs L02ED
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
195 leax u0009,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
196 ldd ,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
197 cmpa #$4F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
198 lbne L02ED
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
199 cmpb #$53
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
200 lbne L02ED
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
201 lda $04,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
202 cmpa #$12
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
203 beq L025C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
204 lda <$4E,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
205 bita #$1C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
206 lbne L02ED
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
207 L025C lda <$4C,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
208 ora #$0F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
209 sta <$4C,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
210 lda #$FF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
211 sta <$4D,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
212 lda <$4E,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
213 ora #$FC
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
214 sta <$4E,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
215 bra L028C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
216 L0273 ora #$0F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
217 sta <$4C,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
218 tst <$4D,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
219 bne L02ED
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
220 com <$4D,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
221 lda <$4E,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
222 bita #$FC
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
223 bne L02ED
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
224 ora #$FC
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
225 sta <$4E,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
226 L028C bsr SkLSN1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
227 leax <u0052,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
228 ldy #$0064
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
229 os9 I$Write
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
230 bcs wrerr
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
231 pshs u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
232 ldx #$0002
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
233 ldu #$6400
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
234 os9 I$Seek Jump to LSN 612
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
235 puls u
213
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
236 ldx #os9start Address of kernel in RAM
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
237 ldy #os9size Amount to write
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 os9 I$Write
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
239 bcs ETrack
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 os9 I$Close
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
241 bcs Usage
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 clrb
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
243 bra Exit
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
244
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
245 SkLSN1 pshs u
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
246 lda <DevFd
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 ldx #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 ldu #$0100
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
249 os9 I$Seek Seek to allocation map at LSN 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 puls pc,u
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
251
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
252 Usage leax >L0015,pcr
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
253 wrerr pshs b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 puls b
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
259 Exit os9 F$Exit
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
260
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
261 Fragd leax >L00CF,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 clrb
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
263 bra wrerr
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
264
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
265 ETrack leax >L004F,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 clrb
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
267 bra wrerr
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
268
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
269 L02ED leax >L008C,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 clrb
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
271 bra wrerr
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 168
diff changeset
272
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
273 UpLSN0 pshs u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 ldx #$0000
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
275 ldu #$0015 probably DD.BT
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
276 lda <DevFd
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
277 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 puls u
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
279 bcs Exit
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 126
diff changeset
280 leax BTLSN,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
281 ldy #$0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 os9 I$Write
126
6b992a305a29 Changed a few labels
roug
parents: 0
diff changeset
283 bcs Exit
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 eom equ *