Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/ident.asm @ 519:6c626a142234

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminated SS disks... distribution is too large, now we only have 40DS disks
author boisy
date Thu, 10 Oct 2002 16:56:13 +0000
parents e9ce43cc215e
children 4dda505a9d31
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * Ident - Show module information
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 28
diff changeset
8 * 7 From Tandy OS-9 Level One VR 02.00.00
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Ident
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl Show module information
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 98/09/20 15:54:44 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 edition set 7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 mod eom,name,tylg,atrv,start,size
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 28
diff changeset
25
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 u0000 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 u0001 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 u0002 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 u0003 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 u0004 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0006 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u0008 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u000A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u000B rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u000C rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u000D rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u000E rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 u0010 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u0012 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u0013 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u0014 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 u0015 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 u0016 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 u0017 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 u0018 rmb 1
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
46 path rmb 1
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 u001A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 u001B rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 u001C rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 u001E rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 u0020 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 u0022 rmb 66
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 u0064 rmb 14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 u0072 rmb 14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 u0080 rmb 33
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 u00A1 rmb 71
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 u00E8 rmb 180
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 u019C rmb 2048
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 name fcs /Ident/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
64 L0013 fcb C$LF
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
65 fcc "Use: Ident [-opts] <module> [-opts]"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
66 fcb C$LF
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
67 fcc " to display module header."
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
68 fcb C$LF
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
69 fcc " -m to display module in memory."
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
70 fcb C$LF
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
71 fcc " -s for short form."
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
72 fcb C$LF
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
73 fcc " -v for no CRC verification"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
74 fcb C$LF
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
75 fcc " -x for file in execution directory"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
76 fcb C$CR
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
77 L00CD fcs "Module header is incorrect!"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
78 L00E8 fcs "Header for: "
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
79 L00F4 fcs "Module size:"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
80 L0100 fcs "Module CRC: "
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
81 L010C fcs "Hdr parity: "
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
82 L0118 fcs "Exec. off: "
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
83 L0124 fcs "Data Size: "
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
84 L0130 fcs "Ty/La At/Rv:"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
85 L013C fcs "Edition: "
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
86 L0148 fcs "mod,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
87 L014C fcs "re-en,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
88 L0152 fcs "non-shr,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
89 L015A fcs "R/O"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
90 L015D fcs "R/W"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
91 L0160 fcs "(Good)"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
92 L0166 fcc "(Bad)"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
93 fcb $80+C$BELL
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 L016C fcb $10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 fcb $1C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 fcb $20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 fcb $24 $
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 fcb $29 )
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 fcb $2D -
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 fcb $32 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 fcb $37 7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 fcb $3C <
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 fcb $41 A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 fcb $46 F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 fcb $4B K
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 fcb $50 P
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 fcb $56 V
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 fcb $5E ^
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 fcb $65 e
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
110 fcs "bad type for"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
111 fcs "Prog"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
112 fcs "Subr"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
113 fcs "Multi"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
114 fcs "Data"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
115 fcs "Usr 5"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
116 fcs "Usr 6"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
117 fcs "Usr 7"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
118 fcs "Usr 8"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
119 fcs "Usr 9"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
120 fcs "Usr A"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
121 fcs "Usr B"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
122 fcs "System"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
123 fcs "File Man"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
124 fcs "Dev Dvr"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
125 fcs "Dev Dsc"
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 L01D8 fcb $10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 fcb $15
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 fcb $1E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 fcb $2D -
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 fcb $3B ;
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 fcb $44 D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 fcb $51 Q
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 fcb $60 `
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 fcb $60 `
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 fcb $60 `
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 fcb $60 `
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 fcb $60 `
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 fcb $60 `
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 fcb $60 `
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 fcb $60 `
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 fcb $60 `
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
142 fcs "Data,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
143 fcs "6809 obj,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
144 fcs "BASIC09 I-code,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
145 fcs "PASCAL P-code,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
146 fcs "C I-code,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
147 fcs "COBOL I-code,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
148 fcs "FORTRAN I-code,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
149 fcs "????,"
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
150
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
151 start leas >u019C,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 sts <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 tfr y,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 subd <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 std <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 leay <u0022,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 sty <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 clr <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 clr <u000B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 clr <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 clr <u0018
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
162 lda #READ.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163 sta <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 ldd #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 std <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 std <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 L0263 lda ,x+
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
168 L0265 cmpa #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 beq L0263
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
170 cmpa #C$COMA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 beq L0263
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
172 cmpa #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 beq L02BB
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
174 cmpa #'-
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 beq L027E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 ldy <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 bne L0263
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 stx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 bra L0263
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 L027E lda ,x+
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
181 cmpa #'-
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 beq L027E
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
183 cmpa #'0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 bcs L0265
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
185 eora #'M
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 bne L0292
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 inc <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 bra L027E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 L0292 lda -$01,x
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
191 eora #'S
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 bne L029E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 inc <u000B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 bra L027E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 L029E lda -$01,x
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
197 eora #'V
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 bne L02AA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 inc <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 bra L027E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 L02AA lda -$01,x
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
203 eora #'X
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 bne L02B8
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
206 lda #EXEC.+READ.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 sta <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 bra L027E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 L02B8 lbra L03C4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 L02BB ldx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 lbeq L03C4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 leax -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213 tst <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 beq L0314
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
215 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 os9 F$Link
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
218 lbcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 stu <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 ldd ,u
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
221 cmpd #M$ID12
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 beq L02EB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 L02DD leay >L00CD,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 lbra L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 L02EB ldd u0002,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 subd #$0003
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 leax d,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 leay <u0010,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 lda #$03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 L02FB ldb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 stb ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 deca
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 bne L02FB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 lbsr L03D5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 ldu <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 os9 F$UnLink
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 lbcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 lbra L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 L0314 lda #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 sta <u00A1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 lda <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 lbcs L03D2
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
252 sta <path
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 ldd #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 std <u001E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 std <u0020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 std <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 L032C ldd <u0020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 addd <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 std <u0020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 bcc L033B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 ldd <u001E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 std <u001E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 L033B pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 ldx <u001E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 ldu <u0020
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
267 lda <path
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 lbcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 leax <u0072,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
272 stx <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
273 ldy #$000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
275 bcc L0360
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
276 cmpb #E$EOF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
277 bne L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 bra L03C1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 L0360 ldd ,x
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
280 cmpd #M$ID12
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
281 lbne L02DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 pshs u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
283 ldd $02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 std <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 addd <u0020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 tfr d,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 leau -u0003,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
288 ldx <u001E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
289 bcc L037C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
290 leax $01,x
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
291 L037C lda <path
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 bcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 puls u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 leax <u0010,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 ldy #$0003
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
297 lda <path
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 bcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 pshs u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
301 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
302 ldd $04,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
303 addd <u0020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
304 tfr d,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
305 ldx <u001E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
306 bcc L03A4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 leax $01,x
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
308 L03A4 lda <path
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
310 bcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
311 puls u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
312 leax >u0080,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 ldy #$0021
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
314 lda <path
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
315 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
316 bcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 bsr L03D5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
318 lbra L032C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 L03C1 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
320 bra L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
321 L03C4 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 leax >L0013,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
323 ldy #$00BA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
325 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
326 L03D2 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
327 L03D5 tst <u000B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
328 lbne L0502
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
329 lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
330 leay >L00E8,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
331 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
332 lbsr L04E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
333 lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
334 leay >L00F4,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
335 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
336 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
337 ldd $02,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
338 lbsr L05D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 leay >L0100,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
340 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
341 lbsr L0543
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
342 tst <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
343 bne L041E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
344 lbsr L0553
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
345 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
346 beq L0417
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
347 leay >L0166,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
348 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
349 bra L041E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
350 L0417 leay >L0160,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
351 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
352 L041E lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
353 leay >L010C,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
354 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
355 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
356 ldb $08,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
357 lbsr L0633
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
358 lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
359 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
360 ldb $06,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
361 stb <u001A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
362 andb #$F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
363 cmpb #$E0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
364 beq L0444
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
365 cmpb #$10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
366 bne L0462
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
367 L0444 leay >L0118,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
368 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
369 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
370 ldd $09,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
371 lbsr L05D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
372 leay >L0124,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
373 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
374 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
375 ldd $0B,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
376 lbsr L05D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
377 L0462 leay >L013C,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
378 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
379 ldb <u0016
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
380 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 lbsr L0633
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
382 ldb #$05
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
383 lbsr L0654
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
384 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
385 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
386 lbsr L0649
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
387 lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
388 leay >L0130,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
389 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
390 ldb <u001A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
391 lbsr L0633
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
392 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
393 ldb $07,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
394 stb <u001B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
395 lbsr L0633
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
396 lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
397 ldb <u001A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
398 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
399 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
400 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
401 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
402 leax >L016C,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
403 lda b,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
404 leay a,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
405 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
406 leay >L0148,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
407 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
408 ldb <u001A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
409 andb #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 leax >L01D8,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
411 lda b,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
412 leay a,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
413 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
414 ldb <u001B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
415 bitb #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
416 beq L04CD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
417 leay >L014C,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
418 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
419 bra L04D4
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
420 L04CD leay >L0152,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
421 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
422 L04D4 bitb #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
423 beq L04DE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
424 leay >L015D,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
425 bra L04E2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
426 L04DE leay >L015A,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
427 L04E2 lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
428 lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
429 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
430 L04E9 tst <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
431 beq L04F6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
432 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
433 ldd $04,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
434 leay d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
435 bra L04FA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 L04F6 leay >u0080,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
437 L04FA lbsr L05FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
438 lda ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
439 sta <u0016
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
440 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
441 L0502 ldb #$06
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
442 lbsr L0654
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
443 ldy <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
444 ldb $06,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
445 lbsr L0633
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
446 bsr L0543
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
447 tst <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
448 beq L0519
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
449 lda #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
450 bra L0520
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
451 L0519 bsr L0553
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
452 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
453 bne L0520
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
454 lda #C$PERD
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
455 L0520 lbsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
456 lbsr L0666
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
457 bsr L04E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
458 ldx <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
459 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
460 leax <u0022,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
461 stx <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
462 ldb <u0016
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
463 inc <u0018
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
464 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
465 lbsr L0692
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
466 clr <u0018
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
467 puls x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
468 stx <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
469 lbsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
470 rts
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
471 L0543 lda #'$
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
472 lbsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
473 ldd <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
474 lbsr L066E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
475 ldb <u0012
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
476 lbsr L0664
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
477 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
478 L0553 ldd #$FFFF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
479 std <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
480 stb <u0015
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
481 pshs u,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
482 leau <u0013,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
483 tst <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
484 beq L0571
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
485 ldx <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
486 ldy $02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
487 os9 F$CRC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
488 lbcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
489 bra L058C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
490 L0571 pshs u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
491 ldx <u001E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
492 ldu <u0020
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
493 lda <path
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
494 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
495 puls u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
496 lbcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
497 ldd <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
498 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
499 bsr L05BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
500 puls b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
501 std <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
502 L058C puls u,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
503 lda <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
504 cmpa #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
505 bne L059E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
506 ldd <u0014
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
507 cmpd #$0FE3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
508 bne L059E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
509 bra L05A1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
510 L059E lda #$3F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
511 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
512 L05A1 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
513 rts
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
514 L05A3 lda <path
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
515 ldx <u0006
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
516 ldy <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
517 cmpy <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
518 bls L05B2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
519 ldy <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
520 L05B2 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
521 sty <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
522 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
523 L05B9 bsr L05A3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
524 lbcs L03D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
525 L05BF ldy <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
526 beq L05B9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
527 os9 F$CRC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
528 ldd <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
529 subd <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
530 std <u001C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
531 bne L05B9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
532 std <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
533 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
534 L05D2 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
535 bsr L0628
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
536 ldb #$03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
537 bsr L0654
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
538 puls b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
539 bsr L0649
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
540 bsr L0612
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
541 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
542 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
543 andb #$F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
544 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
545 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
546 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
547 lsrb
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
548 L05E9 lda #'$
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
549 bsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
550 lbsr L0682
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
551 ldb #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
552 bsr L0654
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
553 puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
554 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
555 andb #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
556 bra L05E9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
557 L05FC lda ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
558 anda #$7F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
559 bsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
560 lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
561 bpl L05FC
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
562 L0606 lda #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
563 L0608 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
564 ldx <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
565 sta ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
566 stx <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
567 puls pc,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
568 L0612 pshs y,x,a
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
569 lda #C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
570 bsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
571 leax <u0022,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
572 stx <u0000
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
573 ldy #80
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
574 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
575 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
576 puls pc,y,x,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
577 L0628 pshs a
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
578 lda #'$
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
579 bsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
580 puls a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
581 bsr L0660
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
582 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
583 L0633 pshs a
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
584 lda #'$
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
585 bsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
586 puls a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
587 bsr L0664
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
588 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
589 pshs a
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
590 lda #'$
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
591 bsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
592 puls a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
593 bsr L0682
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
594 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
595 L0649 pshs a
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
596 lda #'#
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
597 bsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
598 puls a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
599 bsr L0692
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
600 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
601 L0654 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
602 L0656 tstb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
603 ble L065E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
604 bsr L0606
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
605 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
606 bra L0656
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
607 L065E puls pc,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
608 L0660 bsr L066E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
609 bra L0666
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
610 L0664 bsr L0674
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
611 L0666 pshs a
28
c0db600b15e8 Better commented
boisy
parents: 0
diff changeset
612 lda #C$SPAC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
613 bsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
614 puls pc,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
615 L066E exg a,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
616 bsr L0674
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
617 tfr a,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
618 L0674 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
619 andb #$F0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
620 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
621 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
622 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
623 lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
624 bsr L0682
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
625 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
626 andb #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
627 L0682 cmpb #$09
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
628 bls L0688
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
629 addb #$07
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
630 L0688 addb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
631 exg a,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
632 lbsr L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
633 exg a,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
634 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
635 L0692 pshs u,y,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
636 leau <L06C3,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
637 clr <u0017
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
638 ldy #$0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
639 L069D clr ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
640 L069F subd ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
641 bcs L06A7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
642 inc ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
643 bra L069F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
644 L06A7 addd ,u++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
645 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
646 ldb $01,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
647 exg a,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
648 bsr L06CD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
649 exg a,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
650 puls b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
651 cmpy #$0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
652 bgt L06BD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
653 inc <u0017
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
654 L06BD leay -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
655 bne L069D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
656 puls pc,u,y,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
657 L06C3 fdb $2710,$03e8,$0064,$000a,$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
658 L06CD tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
659 beq L06D2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
660 sta <u0017
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
661 L06D2 tst <u0017
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
662 bne L06DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
663 tst <u0018
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
664 beq L06DE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
665 lda #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
666 bra L06E1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
667 L06DE rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
668 L06DF adda #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
669 L06E1 lbra L0608
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
670
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
671 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
672 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
673 end