comparison CoCoOS9/level2v3/CMDS/mdir.asm @ 31:bd2b07db8917 cocoos9lv2v3

CoCoOS9 version
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Jul 2018 15:16:13 +0900
parents
children
comparison
equal deleted inserted replaced
30:7b1b25ff010a 31:bd2b07db8917
1 ********************************************************************
2 * MDir - Show module information
3 *
4 * $Id: mdir.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 7 Original Tandy/Microware version
9
10 nam MDir
11 ttl Show module information
12
13 * Disassembled 98/09/11 11:57:27 by Disasm v1.6 (C) 1988 by RML
14
15 ifp1
16 use defsfile
17 endc
18
19 tylg set Prgrm+Objct
20 atrv set ReEnt+rev
21 rev set $01
22 edition set 7
23
24 mod eom,name,tylg,atrv,start,size
25
26 u0000 rmb 2
27 u0002 rmb 1
28 u0003 rmb 1
29 u0004 rmb 1
30 u0005 rmb 3
31 u0008 rmb 3
32 u000B rmb 1
33 u000C rmb 1
34 u000D rmb 1
35 u000E rmb 80
36 u005E rmb 2
37 u0060 rmb 2
38 u0062 rmb 4096
39 u1062 rmb 64
40 u10A2 rmb 269
41 size equ .
42
43 name fcs /MDir/
44 fcb edition
45
46 L0012 fcc " Module Directory at"
47 fcb $A0
48 L0029 fcs "Block Offset Size Typ Rev Attr Use Module Name"
49 L0058 fcs "----- ------ ---- --- --- ---- ---- ------------"
50 L0088 fcs "Blk Ofst Size Ty Rv At Uc Name"
51 L00A7 fcs "___ ____ ____ __ __ __ __ ______"
52 L00C7 fcc "Lock"
53 fcb $A0
54 L00CC fcs "Lk"
55
56 start pshs u
57 leau >u1062,u
58 L00D4 clr ,-u
59 cmpu ,s
60 bhi L00D4
61 puls u
62 clr <u000B
63 lda #$0C
64 ldb #$30
65 std <u000C
66 stx <u0000
67 leax u000E,u
68 stx <u0003
69 lbsr L02A3
70 lda #$01
71 ldb #$26
72 os9 I$GetStt
73 bcc L00FF
74 cmpb #$D0
75 lbne L0241
76 bra L010C
77 L00FF cmpx #$0032
78 bge L010C
79 inc <u000B
80 lda #$0A
81 ldb #$15
82 std <u000C
83 L010C leay >L0012,pcr
84 lbsr L0298
85 leax u0005,u
86 os9 F$Time
87 leax u0008,u
88 lbsr L02B8
89 lbsr L02A3
90 leax <u0062,u
91 pshs u
92 os9 F$GModDr
93 sty <u005E
94 stu <u0060
95 puls u
96 leax -$08,x
97 ldy <u0000
98 lda ,y+
99 eora #$45
100 anda #$DF
101 bne L018E
102 lbsr L02A3
103 tst <u000B
104 beq L0149
105 leay >L0088,pcr
106 bra L014D
107 L0149 leay >L0029,pcr
108 L014D lbsr L0298
109 lbsr L02A3
110 tst <u000B
111 beq L015D
112 leay >L00A7,pcr
113 bra L0161
114 L015D leay >L0058,pcr
115 L0161 lbsr L0298
116 lbsr L02A3
117 leax <u0062,u
118 lbra L023A
119 L016D lbsr L0308
120 beq L018E
121 lbsr L02DE
122 lbsr L0298
123 L0178 lbsr L0285
124 ldb <u0004
125 subb #$0E
126 cmpb <u000D
127 bhi L018B
128 L0183 subb <u000C
129 bhi L0183
130 bne L0178
131 bra L018E
132 L018B lbsr L02A3
133 L018E leax $08,x
134 cmpx <u005E
135 bcs L016D
136 lbsr L02A3
137 lbra L0240
138 L019A lbsr L0308
139 lbeq L0238
140 tfr d,y
141 ldd ,y
142 tst <u000B
143 beq L01B1
144 lbsr L0285
145 lbsr L024C
146 bra L01B4
147 L01B1 lbsr L0244
148 L01B4 tst <u000B
149 bne L01BE
150 lbsr L0285
151 lbsr L0285
152 L01BE ldd $04,x
153 lbsr L0244
154 tst <u000B
155 bne L01CA
156 lbsr L0285
157 L01CA lbsr L02DE
158 leay >u10A2,u
159 ldd $02,y
160 bsr L0244
161 tst <u000B
162 bne L01DC
163 lbsr L0285
164 L01DC lda $06,y
165 bsr L0252
166 tst <u000B
167 bne L01E7
168 lbsr L0285
169 L01E7 lda $07,y
170 anda #$0F
171 bsr L0252
172 ldb $07,y
173 lda #$72
174 lbsr L0291
175 tst <u000B
176 bne L0207
177 lda #$3F
178 lbsr L0291
179 lda #$3F
180 lbsr L0291
181 lda #$3F
182 lbsr L0291
183 L0207 bsr L0285
184 ldd $06,x
185 cmpd #$FFFF
186 bne L0223
187 tst <u000B
188 beq L021B
189 leay >L00CC,pcr
190 bra L021F
191 L021B leay >L00C7,pcr
192 L021F bsr L0298
193 bra L0230
194 L0223 tst <u000B
195 beq L022E
196 lbsr L0285
197 bsr L024C
198 bra L0230
199 L022E bsr L0244
200 L0230 leay >u1062,u
201 bsr L0298
202 bsr L02A3
203 L0238 leax $08,x
204 L023A cmpx <u005E
205 lbcs L019A
206 L0240 clrb
207 L0241 os9 F$Exit
208 L0244 bsr L0256
209 tst <u0002
210 bne L024C
211 dec <u0002
212 L024C tfr b,a
213 bsr L0258
214 bra L0285
215 L0252 bsr L0256
216 bra L0285
217 L0256 clr <u0002
218 L0258 pshs a
219 lsra
220 lsra
221 lsra
222 lsra
223 bsr L026C
224 tst <u0002
225 bpl L0268
226 lda #$01
227 sta <u0002
228 L0268 lda ,s+
229 anda #$0F
230 L026C tsta
231 beq L0271
232 sta <u0002
233 L0271 tst <u0002
234 bmi L0277
235 bne L027B
236 L0277 lda #$20
237 bra L0287
238 L027B adda #$30
239 cmpa #$39
240 bls L0287
241 adda #$07
242 bra L0287
243 L0285 lda #$20
244 L0287 pshs x
245 ldx <u0003
246 sta ,x+
247 stx <u0003
248 puls pc,x
249 L0291 rolb
250 bcs L0287
251 lda #$2E
252 bra L0287
253 L0298 lda ,y
254 anda #$7F
255 bsr L0287
256 lda ,y+
257 bpl L0298
258 rts
259 L02A3 pshs y,x,a
260 lda #$0D
261 bsr L0287
262 leax u000E,u
263 stx <u0003
264 ldy #$0050
265 lda #$01
266 os9 I$WritLn
267 puls pc,y,x,a
268 L02B8 bsr L02C0
269 bsr L02BC
270 L02BC lda #$3A
271 bsr L0287
272 L02C0 ldb ,x+
273 lda #$2F
274 L02C4 inca
275 subb #$64
276 bcc L02C4
277 cmpa #$30
278 beq L02CF
279 bsr L0287
280 L02CF lda #$3A
281 L02D1 deca
282 addb #$0A
283 bcc L02D1
284 bsr L0287
285 tfr b,a
286 adda #$30
287 bra L0287
288 L02DE pshs u,x
289 bsr L0308
290 ldx $04,x
291 ldy #$000D
292 leau >u10A2,u
293 os9 F$CpyMem
294 pshs b,a
295 ldd u0004,u
296 leax d,x
297 puls b,a
298 ldu $02,s
299 leau >u1062,u
300 ldy #$0040
301 os9 F$CpyMem
302 tfr u,y
303 puls pc,u,x
304 L0308 ldd ,x
305 beq L0319
306 pshs y
307 leay <u0062,u
308 pshs y
309 subd <u0060
310 addd ,s++
311 puls y
312 L0319 rts
313
314 emod
315 eom equ *
316 end