Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/os9gen.asm @ 851:16b8c7dc0082

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made source comment improvements
author boisy
date Wed, 15 Jan 2003 00:56:21 +0000
parents 07d1ec67d1d2
children 38fac79788e3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
2 * OS9Gen - OS-9 bootfile generator
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
8 * 9 From OS-9 Level Two Vr. 2.00.01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam OS9gen
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
11 ttl OS-9 bootfile generator
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
13 * Disassembled 02/07/06 13:11:11 by Disasm v1.6 (C) 1988 by RML
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
15 BTrack set 34
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
16
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 ifp1
122
b381d07d9b78 Text strings instead of FCB
roug
parents: 0
diff changeset
18 use defsfile
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
19 use rbfdefs
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 endc
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
21
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 rev set $01
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
25 edition set 9
262
dd9e2f44b5f0 Incorporated bug fix from January 1987 Rainbow, pg 203
boisy
parents: 213
diff changeset
26
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
27 os9l1start equ $EF00
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
28 os9l1size equ $0F80
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
29
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 mod eom,name,tylg,atrv,start,size
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
31
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
32 StatPtr rmb 2
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
33 BFPath rmb 1
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
34 DevPath rmb 1
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
35 ParmPath rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u0005 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u0006 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 u0008 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u0009 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u000B rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u000D rmb 2
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
42 u000F rmb 2
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
43 u0011 rmb 2
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
44 u0013 rmb 2
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
45 u0015 rmb 2
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
46 u0017 rmb 7
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
47 DevOpts rmb 20
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
48 u0032 rmb 2
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
49 u0034 rmb 10
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
50 u003E rmb 2
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
51 SnglDrv rmb 1
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
52 u0041 rmb 32
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
53 LSN0 rmb 16
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
54 u0071 rmb 10
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
55 u007B rmb 2
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
56 u007D rmb 1
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
57 SectBuff rmb 1024
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
58 u047E rmb 16
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
59 u048E rmb 1
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
60 u048F rmb 7
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
61 u0496 rmb 7018
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 size equ .
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
63
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
64 name fcs /OS9gen/
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
65 fcb edition
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 172
diff changeset
66
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
67 Help fcb C$LF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
68 fcc "Use (CAUTION): OS9GEN </devname> [-s]"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
69 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
70 fcc " ..reads (std input) pathnames until EOF,"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
71 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
72 fcc " merging paths into New OS9Boot file."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
73 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
74 fcc " -s = single drive operation"
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
75 fcb C$LF,C$CR
122
b381d07d9b78 Text strings instead of FCB
roug
parents: 0
diff changeset
76 fcc "Can't find: "
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
77 ErrWrit fcb C$LF
122
b381d07d9b78 Text strings instead of FCB
roug
parents: 0
diff changeset
78 fcc "Error writing kernel track"
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
79 fcb C$CR
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
80 HDGen fcb C$LF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
81 fcc "Error - cannot gen to hard disk"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
82 fcb C$CR
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
83 ifgt Level-1
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
84 CantRel fcb C$LF
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
85 fcc "Error - can't link to Rel module"
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
86 fcb C$CR
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
87 endc
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
88 CarRet fcb C$CR
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
89 TheBell fcb C$BELL
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
90 TWarn fcb C$LF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
91 fcc "Warning - file(s) present"
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
92 fcb C$LF
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
93 fcc "on track "
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
94 ifeq BTrack-34
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
95 fcc "34"
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
96 else
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
97 fcc "??"
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
98 endc
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
99 fcc " - this track"
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
100 fcb C$LF
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
101 fcc "not rewritten."
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
102 fcb C$CR
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
103 BootFrag fcb C$LF
122
b381d07d9b78 Text strings instead of FCB
roug
parents: 0
diff changeset
104 fcc "Error - OS9boot file fragmented"
b381d07d9b78 Text strings instead of FCB
roug
parents: 0
diff changeset
105 fcb C$CR
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
106 Source fcc "Ready SOURCE, hit C to continue: "
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
107 SourceL equ *-Source
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
108 Destin fcc "Ready DESTINATION, hit C to continue: "
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
109 DestinL equ *-Destin
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
110 Rename fcc "RENAME "
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
111 TempBoot fcc "TempBoot "
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
112 fcb $FF
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
113 OS9Boot fcc "OS9Boot"
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
114 fcb C$CR
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
115 fcb $FF
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
116 TheRel fcc "Rel"
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
117 fcb $FF
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
118
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
119 start clrb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 stb <u0005
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
121 stb <SnglDrv assume multi-drive
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
122 stu <StatPtr
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
123 leas >u047E,u
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
124 pshs u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
125 tfr y,d
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
126 subd ,s++
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
127 subd #$047E
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
128 clrb
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
129 std <u0011
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
130 lda #PDELIM
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 cmpa ,x
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
132 lbne BadName
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 os9 F$PrsNam
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
134 lbcs ShowHelp
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
135 lda #PDELIM
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 cmpa ,y
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
137 lbeq BadName
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
138 pshs b,a
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
139 L0216 lda ,y+
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
140 cmpa #'-
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
141 beq L0222
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
142 cmpa #C$CR
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
143 beq L0234
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
144 bra L0216
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
145 L0222 ldd ,y+
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
146 eora #'S
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
147 anda #$DF
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
148 lbne SoftExit
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
149 cmpb #$30
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
150 lbcc SoftExit
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
151 inc <SnglDrv set single drive flag
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
152 L0234 puls b,a
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
153 leay <u0041,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
154 L0239 sta ,y+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 decb
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
157 bpl L0239
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
158 sty <u003E
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
159 lda #PENTIR
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
160 ldb #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 std ,y++
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
162 lbsr GetDest
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
163 leax <u0041,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
164 lda #UPDAT.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 os9 I$Open
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
166 sta <DevPath
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
167 lbcs ShowHelp
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
168 leax <DevOpts,u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
169 ldb #SS.Opt
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
170 os9 I$GetStt
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
171 lbcs Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
172 leax <DevOpts,u
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
173 lda <(PD.TYP-PD.OPT)+DevOpts,u get type byte
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
174 bpl L0276 branch if not hard drive
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
175 clrb
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
176 leax >HDGen,pcr else tell user can't do hard drive
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
177 lbra WritExit
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
178 L0276 ldx <u003E
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
179 leay >TempBoot,pcr
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
180 lda #PDELIM
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
181 L027E sta ,x+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 lda ,y+
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
183 bpl L027E
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
184 * Copy OS9Boot string to buffer
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
185 leay >OS9Boot,pcr
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
186 L0288 lda ,y+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 sta ,x+
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
188 bpl L0288
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 tfr x,d
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
190 leax <u0041,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 subd ,s++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 std <u000D
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
194 lda #WRITE.
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
195 ldb #READ.+WRITE.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 os9 I$Create
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
197 sta <BFPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
198 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 ldx #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 stx <u0006
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
201 ldu #$3000
169
2748e53f293c Changed SS.SIZ to SS.Size
boisy
parents: 168
diff changeset
202 ldb #SS.Size
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 os9 I$SetStt
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
204 lbcs Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
205 ldu <StatPtr
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
206 bsr L032F
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
207 L02BB leax <SectBuff,u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
208 ldy #256
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
209 clra
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 os9 I$ReadLn
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
211 bcs L0312
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 lda ,x
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
213 ldb #E$EOF
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
214 cmpa #C$CR
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
215 beq L0312
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
216 cmpa #'*
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
217 beq L02BB
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
218 lda #READ.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 os9 I$Open
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
220 bcs L031A
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
221 sta <ParmPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
222 L02DD ldx <u0015
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
223 ldd <u0011
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
224 subd <u0013
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
225 tfr d,y
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
226 lda <ParmPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
227 os9 I$Read
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
228 bcc L02F9
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
229 cmpb #E$EOF
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
230 lbne Bye
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
231 os9 I$Close
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
232 clr <ParmPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
233 bra L02BB
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
234 L02F9 tfr y,d
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
235 leax d,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
236 stx <u0015
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
237 addd <u0013
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
238 std <u0013
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
239 cmpd <u0011
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
240 bcs L030C
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
241 bsr L032B
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
242 bcs L0328
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
243 L030C tst <ParmPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
244 bne L02DD
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
245 bra L02BB
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
246 L0312 cmpb #E$EOF
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
247 bne L0328
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
248 bsr L033D
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
249 bra L0377
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
250 L031A pshs b
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
251 leax <SectBuff,u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
252 ldy #256
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
253 lda #$02
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
254 os9 I$WritLn
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
255 L0328 lbra Bye
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
256 L032B bsr L033D
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
257 bcs L033C
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
258 L032F lbsr GetSrc
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
259 clra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
260 clrb
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
261 std <u0013
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
262 leax >u047E,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
263 stx <u0015
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
264 L033C rts
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
265 L033D lbsr GetDest
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
266 ldd <u0013
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
267 beq L033C
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
268 tst <SnglDrv single drive?
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
269 beq L0361 branch if not
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
270 lda <DevPath
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
271 ldx #$0000
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
272 ldu #$0000
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
273 os9 I$Seek seek to LSN0
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
274 ldu <StatPtr +BGP+ added
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
275 bcs L033C
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
276 leax <SectBuff,u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
277 ldy #256
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
278 os9 I$Read read LSN0
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
279 bcs L033C
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
280 L0361 lda <BFPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
281 leax >u047E,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
282 ldy <u0013
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
283 os9 I$Write
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
284 bcs L033C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 tfr y,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 addd <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 std <u0006
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
288 clrb
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
289 rts
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
290 L0377 leax <DevOpts,u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
291 ldb #SS.Opt
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
292 lda <BFPath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 os9 I$GetStt
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
294 lbcs Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
295 lda <BFPath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 ldx #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
297 ldu <u0006
169
2748e53f293c Changed SS.SIZ to SS.Size
boisy
parents: 168
diff changeset
298 ldb #SS.Size
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 os9 I$SetStt
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
300 lbcs Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
301 ldu <StatPtr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
302 os9 I$Close
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
303 lbcs ShowHelp
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
304 ldx <u0032,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
305 lda <u0034,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
306 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 tfr d,u
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
308 lda <DevPath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 os9 I$Seek
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
310 ldu <StatPtr
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
311 lbcs Bye
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
312 leax >u047E,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
313 ldy #256
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
314 os9 I$Read
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
315 lbcs Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
316 ldd >u047E+(FD.SEG+FDSL.S+FDSL.B),u
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
317 lbne ItsFragd if not zero, file is fragmented
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
318 lda <DevPath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 ldx #$0000
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
320 ldu #DD.BT
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
321 os9 I$Seek seek to DD.BT
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
322 ldu <StatPtr
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
323 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324 leax u0008,u
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
325 ldy #DD.DAT-DD.BT
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
326 os9 I$Read read bootstrap sector and bootfile size
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
327 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
328 ldd <u000B
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
329 beq L040D
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
330 ldx <u003E
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
331 leay >OS9Boot,pcr
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
332 lda #PDELIM
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
333 L03F3 sta ,x+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
334 lda ,y+
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
335 bpl L03F3
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
336 leax <u0041,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
337 os9 I$Delete
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
338 ldx <u003E
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
339 leay >TempBoot,pcr
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
340 lda #PDELIM
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
341 L0407 sta ,x+
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
342 lda ,y+
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
343 bpl L0407
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
344 L040D tst <SnglDrv
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
345 beq L042E
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
346 clra
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
347 leax >Rename,pcr
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
348 os9 F$Link
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
349 bcc L0428
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
350 lbsr GetSrc
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
351 os9 F$Load
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
352 lbcs Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
353 lbsr GetDest
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
354 L0428 tfr u,d
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
355 ldu <StatPtr
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
356 std u000F,u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
357 L042E lda #$01
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
358 clrb
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
359 leax >Rename,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
360 ldy <u000D
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
361 leau <u0041,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
362 os9 F$Fork
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
363 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
364 os9 F$Wait
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
365 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
366 tstb
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
367 lbne Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
368 tst <SnglDrv
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
369 beq L045F
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
370 ldu <StatPtr
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
371 ldd u000F,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
372 tfr d,u
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
373 os9 F$UnLink
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
374 lbcs Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
375 L045F ldu <StatPtr
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
376 ldb >u048E,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
377 stb <u0008
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
378 ldd >u048F,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
379 std <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
380 ldd <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 std <u000B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
382 ldx #$0000
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
383 ldu #DD.BT
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
384 lda <DevPath
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
385 os9 I$Seek
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
386 ldu <StatPtr
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
387 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
388 leax u0008,u
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
389 ldy #DD.DAT-DD.BT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
390 os9 I$Write
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
391 lbcs Bye
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
392 pshs u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
393 clra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
394 clrb
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
395 tfr d,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
396 tfr d,u
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
397 lda <DevPath
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
398 os9 I$Seek seek to LSN0
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
399 lbcs Bye
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
400 puls u
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
401 leax <LSN0,u
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
402 ldy #DD.DAT
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
403 lda <DevPath
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
404 os9 I$Read read first part of LSN0
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
405 lbcs Bye
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
406 lda #$00
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
407 ldb #$01
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
408 lbsr Seek2LSN
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
409 leax <SectBuff,u
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
410 ldy <LSN0+DD.MAP,u get number of bytes in device's bitmap
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
411 lda <DevPath
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
412 os9 I$Read
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
413 lbcs Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
414 lda #BTrack boot track
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
415 clrb sector 1
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
416 ldy #$0004 four bits
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
417 lbsr ABMClear
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
418 bcc L0520
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
419 lda #BTrack boot track
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
420 ldb #$00 sector 1
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
421 lbsr Seek2LSN seek to it
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
422 leax <u0017,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
423 ldy #$0007
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
424 lda <DevPath
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
425 os9 I$Read read first seven bytes of boot track
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
426 lbcs Bye
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
427 leax <u0017,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
428 ldd ,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
429 cmpa #'O
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
430 lbne WarnUser
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
431 cmpb #'S
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
432 lbne WarnUser
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
433 lda $04,x
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
434 cmpa #$12
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
435 beq L0512
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
436 lda #BTrack boot track
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
437 ldb #15 sector 16
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
438 ldy #$0003 sectors 16-18
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
439 lbsr ABMClear
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
440 lbcs WarnUser
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
441 L0512 clra
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
442 ldb <LSN0+DD.TKS,u get number of tracks in D
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
443 tfr d,y
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
444 lda #BTrack boot track
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
445 clrb sector 1
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
446 lbsr ABMSet
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
447 bra L0531
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
448 L0520 lda #BTrack boot track
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
449 ldb #$04 sector 5
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
450 ldy #$000E sectors 5-18
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
451 lbsr ABMClear
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
452 lbcs WarnUser
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
453 bra L0512
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
454
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
455 L0531 clra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
456 ldb #$01
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
457 lbsr Seek2LSN
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
458 leax <SectBuff,u
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
459 ldy <LSN0+DD.MAP,u get number of bytes in device's bitmap
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
460 lda <DevPath
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
461 os9 I$Write write out the bitmap
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
462 lbcs Bye
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
463
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
464 ifgt Level-1
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
465 * OS-9 Level Two: Link to Rel, which brings in boot code
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
466 pshs u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
467 lda #Systm+Objct
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
468 leax >TheRel,pcr
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
469 os9 F$Link
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
470 lbcs L0724
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
471 tfr u,d
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
472 puls u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
473 subd #$0006
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
474 std <u007B,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
475 lda #$E0
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
476 anda <u007B,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
477 ora #$1E
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
478 ldb #$FF
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
479 subd <u007B,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
480 addd #$0001
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
481 tfr d,y
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
482 lda #BTrack boot track
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
483 ldb #$00 sector 1
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
484 lbsr Seek2LSN
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
485 lda <DevPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
486 ldx <u007B,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
487
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
488 else
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
489
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
490 * OS-9 Level One: Write out boot track data
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
491 lda #BTrack boot track
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
492 ldb #$00 sector 1
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
493 lbsr Seek2LSN
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
494 lda <DevPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
495 ldx #os9l1start
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
496 ldy #os9l1size
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
497
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
498 endc
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
499
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
500 os9 I$Write
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
501 lbcs WriteErr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
502 os9 I$Close
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
503 lbcs Bye
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
504 clrb
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
505 lbra Bye
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
506
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
507 * Convert Track/Sector to absolute LSN
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
508 * Entry: A = track, B = sector
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
509 * Returns in D
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
510 AbsLSN pshs b
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
511 ldb <LSN0+DD.FMT,u get format byte
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
512 andb #FMT.SIDE test sides bit
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
513 beq L059C branch if 1
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
514 ldb #$02 else 2 sides
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
515 bra L059E
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
516 L059C ldb #$01 1 side
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
517 L059E mul multiply sides times track
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
518 lda <LSN0+DD.TKS,u get device tracks
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
519 mul multiply by (sides * track)
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
520 addb ,s add in sector
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
521 adca #$00
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
522 leas $01,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
523 rts
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
524
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
525 * Bitmap conversion from bit to byte
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
526 * Entry: X = pointer to bitmap
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
527 * D = bit
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
528 * Exit: A = bit mask
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
529 * X = pointer to byte represented by bit D
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
530 L05AA pshs y,b
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
531 lsra divide D by 8
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
532 rorb
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
533 lsra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
534 rorb
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
535 lsra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
536 rorb
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
537 leax d,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
538 puls b
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
539 leay <BitMask,pcr
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
540 andb #$07
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
541 lda b,y
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
542 puls pc,y
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
543
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
544 BitMask fcb $80,$40,$20,$10,$08,$04,$02,$01
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
545
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
546 * Clear bits in the allocation bitmap
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
547 * Entry: A = Track, B = Sector, Y = number of bits to clear
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
548 ABMClear pshs x,y,b,a
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
549 bsr AbsLSN convert A:B to LSN
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
550 leax <SectBuff,u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
551 bsr L05AA
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
552 sta ,-s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
553 bmi L05EA
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
554 L05D3 lda ,x get byte in bitmap
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
555 sta <u007D,u
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
556 L05D9 anda ,s and with byte on stack
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
557 bne L0616
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
558 leay -1,y
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
559 beq L0612
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
560 lda <u007D,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
561 lsr ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
562 bcc L05D9
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
563 leax $01,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
564 L05EA lda #$FF
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
565 sta ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
566 bra L05FA
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
567 L05F0 lda ,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
568 anda ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
569 bne L0616
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
570 leax $01,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
571 leay -$08,y
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
572 L05FA cmpy #$0008
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
573 bhi L05F0
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
574 beq L060C
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
575 lda ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
576 L0604 lsra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
577 leay -$01,y
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
578 bne L0604
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
579 coma
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
580 sta ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
581 L060C lda ,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
582 anda ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
583 bne L0616
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
584 L0612 andcc #^Carry
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
585 bra L0618
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
586 L0616 orcc #Carry
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
587 L0618 leas $01,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
588 puls pc,y,x,b,a
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
589
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
590 * Set bits in the allocation bitmap
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
591 * Entry: A = Track, B = Sector, Y = number of bits to set
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
592 ABMSet pshs y,x,b,a
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
593 lbsr AbsLSN
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
594 leax <SectBuff,u
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
595 bsr L05AA
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
596 sta ,-s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
597 bmi L063A
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
598 lda ,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
599 L062C ora ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
600 leay -$01,y
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
601 beq L0658
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
602 lsr ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
603 bcc L062C
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
604 sta ,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
605 leax $01,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
606 L063A lda #$FF
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
607 bra L0644
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
608 L063E sta ,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
609 leax $01,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
610 leay -$08,y
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
611 L0644 cmpy #$0008
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
612 bhi L063E
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
613 beq L0658
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
614 L064C lsra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
615 leay -$01,y
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
616 bne L064C
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
617 coma
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
618 sta ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
619 lda ,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
620 ora ,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
621 L0658 sta ,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
622 leas $01,s
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
623 puls pc,y,x,b,a
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
624
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
625 Seek2LSN pshs u,y,x,b,a
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
626 lbsr AbsLSN
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
627 pshs a
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
628 tfr b,a
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
629 clrb
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
630 tfr d,u
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
631 puls b
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
632 clra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
633 tfr d,x
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
634 lda <DevPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
635 os9 I$Seek
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
636 lbcs WriteErr
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
637 puls pc,u,y,x,b,a
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
638
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
639 clra
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
640 clrb
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
641 tfr d,x
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
642 tfr d,u
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
643 lda <DevPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
644 os9 I$Seek
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
645 leax <LSN0,u
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
646 ldy #DD.DAT
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
647 lda <DevPath
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
648 os9 I$Write
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
649 bcs Bye
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
650 rts
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
651
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
652 * Routine to write various error messages then exiting
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
653 WriteErr leax >ErrWrit,pcr
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
654 bra WritExit
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
655 BadName ldb #E$BPNam
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
656 ShowHelp leax >Help,pcr
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
657 WritExit pshs b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
658 lda #$02
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
659 ldy #256
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
660 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
661 puls b
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
662 Bye os9 F$Exit
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
663
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
664 * Source/Destination Disk Switch Routine
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
665 GetSrc pshs u,y,x,b,a
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
666 clra
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
667 bra TstSingl
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
668 GetDest pshs u,y,x,b,a
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
669 lda #$01
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
670 TstSingl tst <SnglDrv
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
671 beq L06FD
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
672 AskUser pshs a
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
673 tsta
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
674 bne Ask4Dst
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
675 Ask4Src leax >Source,pcr
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
676 ldy #SourceL
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
677 bra L06D4
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
678 Ask4Dst leax >Destin,pcr
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
679 ldy #DestinL
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
680 L06D4 bsr DoWrite
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
681 leax ,-s
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
682 ldy #$0001
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
683 lda #$02 read from stderr
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
684 os9 I$Read read one char
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
685 lda ,s+
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
686 eora #'C
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
687 anda #$DF
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
688 beq L06F9 branch if it's a C
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
689 leax >TheBell,pcr
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
690 ldy #$0001
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
691 bsr DoWrite else ring the error bell
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
692 bsr WriteCR
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
693 puls a
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
694 bne AskUser
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
695 L06F9 bsr WriteCR
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
696 puls a
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
697 L06FD puls pc,u,y,x,b,a
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
698
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
699 DoWrite lda #$01
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
700 os9 I$WritLn
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
701 rts
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
702
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
703 WriteCR pshs y,x,a
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
704 lda #$01
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
705 leax >CarRet,pcr
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
706 ldy #80
172
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
707 os9 I$WritLn
1cd7548b534f Moved dragon64 specific commands to have _d64 as part of name, CoCo commands
boisy
parents: 169
diff changeset
708 puls pc,y,x,a
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
709
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
710 ItsFragd leax >BootFrag,pcr
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
711 SoftExit ldb #$01
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
712 bra WritExit
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
713 WarnUser leax >TWarn,pcr
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
714 bra SoftExit
168
3a847d2b4492 Cobbler, OS9Gen and format are all hardware dependent.
roug
parents: 124
diff changeset
715
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
716 ifgt Level-1
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
717 L0724 leax >CantRel,pcr
283
07d1ec67d1d2 Made extensive comment improvements, fixed minor bug related to wiping out
boisy
parents: 266
diff changeset
718 lbra WritExit
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
719 endc
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
720
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
721 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
722 eom equ *
266
03af31c2d39d Migrated OS-9 Level Two version over to OS-9 Level One with modifications
boisy
parents: 262
diff changeset
723 end