|
31
|
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
|
