Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/cobbler_d64.asm @ 2025:c03acf76ace5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removed s7 descriptor from SuperDriver (no longer in product)
author boisy
date Mon, 27 Mar 2006 01:08:01 +0000
parents bbe8a442f9a6
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
1 ********************************************************************
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
2 * Cobbler - Make a bootstrap file
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
3 *
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
4 * $Id$
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
5 *
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
8 * 5 From Dragon OS-9 Level One VR 01.02.00
213
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
9 * 6 New cobbler saves from address $EF00 instead of $F000
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
10
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
11 nam Cobbler
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
12 ttl Make a bootstrap file
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
13
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
14 * Disassembled 02/04/03 23:11:02 by Disasm v1.6 (C) 1988 by RML
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
15
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
16 ifp1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
17 use defsfile
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
18 endc
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
19
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
20 tylg set Prgrm+Objct
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
21 atrv set ReEnt+rev
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
22 rev set $01
213
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
23 edition set 6
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
24
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
25 mod eom,name,tylg,atrv,start,size
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
26
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
27 u0000 rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
28 DevFd rmb 3
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
29 BTLSN rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
30 u0005 rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
31 BtSiz rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
32 sttbuf rmb 20
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
33 u001D rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
34 u001F rmb 10
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
35 u0029 rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
36 devnam rmb 32
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
37 u004B rmb 16
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
38 u005B rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
39 u005C rmb 7
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
40 u0063 rmb 682
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
41 size equ .
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
42
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
43 name fcs /Cobbler/
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
44 fcb edition
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
45
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 213
diff changeset
46 HelpMsg fcb C$LF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
47 fcc "Use: Cobbler </devname>"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
48 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
49 fcc " to create a new system disk"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
50 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
51 L004E fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
52 fcc "Error writing kernel track"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
53 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
54 L006A fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
55 fcc "Warning - Kernel track has"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
56 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
57 fcc "not been allocated properly."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
58 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
59 fcc "Track not written."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
60 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
61 L00B6 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
62 fcc "Error - OS9boot file fragmented"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
63 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
64 fcc " This disk will not bootstrap."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
65 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
66 BfNam fcc "OS9Boot "
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
67 fcb $FF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
68 start equ *
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
69 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
70 lda #'/
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
71 cmpa ,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
72 lbne Usage
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
73 os9 F$PrsNam
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
74 lbcs Usage
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
75 lda #'/
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
76 cmpa ,y
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
77 lbeq Usage
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
78 leay <devnam,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
79 L011A sta ,y+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
80 lda ,x+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
81 decb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
82 bpl L011A
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
83 sty <u0029
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
84 lda #'@
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
85 ldb #$20
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
86 std ,y++
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
87 leax <devnam,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
88 lda #UPDAT.
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
89 os9 I$Open
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
90 sta <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
91 lbcs Usage
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
92 ldx <u0029
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
93 leay >BfNam,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
94 lda #'/
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
95 L0140 sta ,x+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
96 lda ,y+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
97 bpl L0140
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
98 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
99 pshs u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
100 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
101 ldu #$0015 probably DD.BT
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
102 os9 I$Seek
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
103 puls u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
104 lbcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
105 leax BTLSN,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
106 ldy #$0005
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
107 os9 I$Read Read bootstrap sector + size = 5 bytes
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
108 lbcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
109 ldd <BtSiz
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
110 beq L017B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
111 leax <devnam,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
112 os9 I$Delete
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
113 clra
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
114 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
115 sta <BTLSN
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
116 std <u0005
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
117 std <BtSiz
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
118 lbsr UpLSN0
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
119 L017B lda #WRITE.
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
120 ldb #UPDAT.
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
121 leax <devnam,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
122 os9 I$Create
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
123 sta <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
124 lbcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
125 ldd >$0068
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
126 subd >$0066
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
127 tfr d,y
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
128 std <BtSiz
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
129 ldx >$0066
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
130 lda <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
131 os9 I$Write
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
132 lbcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
133 leax sttbuf,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
134 ldb #SS.OPT
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
135 os9 I$GetStt
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
136 lbcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
137 lda <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
138 os9 I$Close
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
139 lbcs Usage
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
140 pshs u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
141 ldx <u001D,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
142 lda <u001F,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
143 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
144 tfr d,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
145 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
146 os9 I$Seek
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
147 puls u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
148 lbcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
149 leax <u004B,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
150 ldy #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
151 os9 I$Read
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
152 lbcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
153 ldd <u0063,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
154 lbne Fragd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
155 ldb <u005B,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
156 stb <BTLSN
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
157 ldd <u005C,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
158 std <u0005
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
159 lbsr UpLSN0
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
160 lbsr SkLSN1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
161 leax <u004B,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
162 ldy #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
163 os9 I$Read
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
164 bcs wrerr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
165 lda ,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
166 anda #$3F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
167 eora #$3F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
168 bne NotAllo
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
169 lda $01,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
170 eora #$FF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
171 bne NotAllo
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
172 lda $02,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
173 anda #$90
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
174 eora #$90
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
175 bne NotAllo
1302
bbe8a442f9a6 Bt.Start and Bt.Size now used
boisy
parents: 921
diff changeset
176 ldx #Bt.Start Address of kernel in RAM
bbe8a442f9a6 Bt.Start and Bt.Size now used
boisy
parents: 921
diff changeset
177 ldy #Bt.Size Amount to write
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
178 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
179 os9 I$Write
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
180 bcs ETrack
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
181 os9 I$Close
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
182 bcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
183 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
184 bra Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
185
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
186 SkLSN1 pshs u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
187 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
188 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
189 ldu #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
190 os9 I$Seek Seek to allocation map at LSN 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
191 puls pc,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
192
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 213
diff changeset
193 Usage leax >HelpMsg,pcr
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
194 wrerr pshs b
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
195 lda #$02
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
196 ldy #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
197 os9 I$WritLn
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
198 comb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
199 puls b
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
200 Exit os9 F$Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
201
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
202 Fragd leax >L00B6,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
203 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
204 bra wrerr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
205
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
206 ETrack leax >L004E,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
207 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
208 bra wrerr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
209 *
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
210 * Write warning
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
211 NotAllo leax >L006A,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
212 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
213 bra wrerr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
214 *
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
215 * Update the identification sector on LSN 0
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
216 *
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
217 UpLSN0 pshs u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
218 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
219 ldu #$0015 probably DD.BT
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
220 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
221 os9 I$Seek
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
222 puls u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
223 bcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
224 leax BTLSN,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
225 ldy #$0005
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
226 os9 I$Write
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
227 bcs Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
228 rts
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
229 emod
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
230 eom equ *