Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/os9gen_d64.asm @ 537:765ff88d3db7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
6309 assembler from Curtis Boyle
author boisy
date Sun, 13 Oct 2002 21:37:16 +0000
parents b1c9e7670850
children 617c1b90e623
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 * OS9gen - Build and Link 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 * 7 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 * 8 New os9gen 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
213
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
11 * DragonDOS BOOT loads sectors (numbered from 0) 2-17 (4096 bytes) into
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
12 * RAM at location 9728. The first two bytes of sector 2 must be ASCII 'OS'
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
13 * for this to work. It then jumps to 9730 and begins execution.
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
14 *
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
15 * The boot code switches into RAM mode, and copies the entire section to
213
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
16 * $EF00 and jumps to $EF4F.
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
17 * The 4096 bytes contain a few bytes to do the RAM mode switch, then
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
18 * immediately after comes the kernel modules; OS9, OS9p2, Init and Boot
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
19 * The rest of the bootstrap is in the OS9Boot file. The disk head at LSN0
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
20 * contains the LSN of the bootstrap file in field DD.BT.
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
21
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
22 nam OS9gen
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
23 ttl Build and Link a Bootstrap File
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
24
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
25 * Disassembled 02/04/03 23:17:45 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
26
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
27 ifp1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
28 use defsfile
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
29 endc
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
30
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
31 tylg set Prgrm+Objct
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
32 atrv set ReEnt+rev
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
33 rev set $01
213
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
34 edition set 8
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
35 os9start equ $EF00
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
36 os9size equ $0F80
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
37
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
38 mod eom,name,tylg,atrv,start,size
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
39
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
40 u0000 rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
41 u0002 rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
42 DevFd rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
43 u0004 rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
44 u0005 rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
45 u0006 rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
46 u0008 rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
47 u0009 rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
48 u000B rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
49 u000D rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
50 u000F rmb 20
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
51 u0023 rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
52 u0025 rmb 10
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
53 u002F rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
54 u0031 rmb 32
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
55 u0051 rmb 16
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
56 u0061 rmb 1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
57 u0062 rmb 7
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
58 u0069 rmb 4522
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
59 size equ .
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
60
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
61 name fcs /OS9gen/
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
62 fcb edition
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
63
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
64 L0014 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
65 fcc "Use (caution): os9gen </devname>"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
66 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
67 fcc " ..reads (std input) pathnames until eof,"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
68 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
69 fcc " merging paths into new OS9Boot file."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
70 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
71 fcc "Can't find: "
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
72 L0094 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
73 fcc "Error writing kernel track"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
74 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
75 L00B0 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
76 fcc "Warning - Kernel track has"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
77 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
78 fcc "not been allocated properly."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
79 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
80 fcc "Track not written."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
81 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
82 L00FC fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
83 fcc "Error - OS9boot file fragmented"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
84 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
85 fcc " This disk will not bootstrap."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
86 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
87 L013C fcc "RENAME "
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
88 L0143 fcc "TempBoot "
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
89 fcb $FF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
90 L014D fcc "OS9Boot"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
91 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
92 fcb $FF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
93 start equ *
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
94 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
95 stb <u0005
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
96 stu <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
97 lda #$2F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
98 cmpa ,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
99 lbne L035B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
100 os9 F$PrsNam
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
101 lbcs L035B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
102 lda #$2F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
103 cmpa ,y
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
104 lbeq L035B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
105 leay <u0031,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
106 L0175 sta ,y+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
107 lda ,x+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
108 decb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
109 bpl L0175
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
110 sty <u002F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
111 lda #'@
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
112 ldb #$20
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
113 std ,y++
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
114 leax <u0031,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
115 lda #$03
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
116 os9 I$Open
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
117 sta <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
118 lbcs L035B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
119 ldx <u002F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
120 leay >L0143,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
121 lda #$2F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
122 L019B sta ,x+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
123 lda ,y+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
124 bpl L019B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
125 leay >L014D,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
126 L01A5 lda ,y+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
127 sta ,x+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
128 bpl L01A5
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
129 tfr x,d
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
130 leax <u0031,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
131 pshs x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
132 subd ,s++
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
133 std <u000D
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
134 lda #$02
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
135 ldb #$03
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
136 os9 I$Create
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
137 sta <u0002
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
138 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
139 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
140 stx <u0006
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
141 ldu #$4000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
142 ldb #SS.Size
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
143 os9 I$SetStt
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
144 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
145 ldu <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
146 L01D6 clra
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
147 leax <u0051,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
148 ldy #$1000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
149 os9 I$ReadLn
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
150 bcs L022E
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
151 lda ,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
152 ldb #$D3
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
153 cmpa #C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
154 beq L022E
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
155 lda #$01
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
156 os9 I$Open
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
157 bcs L021D
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
158 sta <u0004
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
159 L01F4 lda <u0004
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
160 leax <u0051,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
161 ldy #$1000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
162 os9 I$Read
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
163 bcs L0212
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
164 tfr y,d
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
165 addd <u0006
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
166 std <u0006
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
167 lda <u0002
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
168 os9 I$Write
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
169 bcc L01F4
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
170 lbra L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
171 L0212 cmpb #$D3
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
172 lbne L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
173 os9 I$Close
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
174 bra L01D6
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
175 L021D pshs b
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
176 leax <u0051,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
177 ldy #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
178 lda #$02
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
179 os9 I$WritLn
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
180 L022B lbra L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
181 L022E cmpb #$D3
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
182 bne L022B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
183 leax u000F,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
184 ldb #$00
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
185 lda <u0002
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
186 os9 I$GetStt
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
187 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
188 lda <u0002
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
189 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
190 ldu <u0006
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
191 ldb #SS.Size
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
192 os9 I$SetStt
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
193 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
194 ldu <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
195 os9 I$Close
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
196 lbcs L035B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
197 ldx <u0023,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
198 lda <u0025,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
199 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
200 tfr d,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
201 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
202 os9 I$Seek
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
203 ldu <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
204 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
205 leax <u0051,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
206 ldy #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
207 os9 I$Read
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
208 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
209 ldd <u0069,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
210 lbne L036F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
211 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
212 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
213 ldu #$0015
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
214 os9 I$Seek
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
215 ldu <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
216 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
217 leax u0008,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
218 ldy #$0005
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
219 os9 I$Read
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
220 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
221 ldd <u000B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
222 beq L02C5
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
223 ldx <u002F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
224 leay >L014D,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
225 lda #$2F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
226 L02AB sta ,x+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
227 lda ,y+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
228 bpl L02AB
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
229 leax <u0031,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
230 os9 I$Delete
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
231 ldx <u002F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
232 leay >L0143,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
233 lda #$2F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
234 L02BF sta ,x+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
235 lda ,y+
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
236 bpl L02BF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
237 L02C5 lda #$01
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
238 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
239 leax >L013C,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
240 ldy <u000D
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
241 leau <u0031,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
242 os9 F$Fork
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
243 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
244 os9 F$Wait
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
245 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
246 tstb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
247 lbne L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
248 ldu <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
249 ldb <u0061,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
250 stb <u0008
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
251 ldd <u0062,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
252 std <u0009
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
253 ldd <u0006
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
254 std <u000B
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
255 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
256 ldu #$0015
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
257 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
258 os9 I$Seek
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
259 ldu <u0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
260 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
261 leax u0008,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
262 ldy #$0005
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
263 os9 I$Write
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
264 lbcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
265 lbsr SkLSN1
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
266 leax <u0051,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
267 ldy #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
268 os9 I$Read
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
269 bcs L035F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
270 lda ,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
271 anda #$3F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
272 eora #$3F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
273 lbne L0385
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
274 lda $01,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
275 eora #$FF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
276 lbne L0385
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
277 lda $02,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
278 anda #$90
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
279 eora #$90
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
280 lbne L0385
213
b1c9e7670850 Changed the Dragon editions to save from RAM location $EF00 - same as COCO
roug
parents: 200
diff changeset
281 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
282 ldy #os9size Amount to write
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
283 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
284 os9 I$Write
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
285 bcs L0354
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
286 os9 I$Close
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
287 bcs L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
288 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
289 bra L036C
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
290 L0354 leax >L0094,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
291 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
292 bra L035F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
293 L035B leax >L0014,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
294 L035F pshs b
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
295 lda #$02
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
296 ldy #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
297 os9 I$WritLn
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
298 puls b
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
299 L036C os9 F$Exit
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
300 L036F leax >L00FC,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
301 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
302 bra L035F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
303
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
304 SkLSN1 pshs u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
305 lda <DevFd
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
306 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
307 ldu #$0100
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
308 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
309 puls pc,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
310
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
311 L0385 leax >L00B0,pcr
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
312 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
313 bra L035F
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
314 emod
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents:
diff changeset
315 eom equ *