|
0
|
1 ********************************************************************
|
|
|
2 * Mfree - Display Free System RAM
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 5 Original Microware distribution version
|
|
|
9
|
|
|
10 nam Mfree
|
|
|
11 ttl Display Free System RAM
|
|
|
12
|
|
|
13 * Disassembled 02/04/03 22:42:18 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use os9defs
|
|
|
17 endc
|
|
|
18 tylg set Prgrm+Objct
|
|
|
19 atrv set ReEnt+rev
|
|
|
20 rev set $01
|
|
|
21 mod eom,name,tylg,atrv,start,size
|
|
|
22 u0000 rmb 2
|
|
|
23 u0002 rmb 2
|
|
|
24 u0004 rmb 1
|
|
|
25 u0005 rmb 1
|
|
|
26 u0006 rmb 2
|
|
|
27 u0008 rmb 2
|
|
|
28 u000A rmb 1
|
|
|
29 u000B rmb 2
|
|
|
30 u000D rmb 530
|
|
|
31 size equ .
|
|
|
32 name equ *
|
|
|
33 fcs /Mfree/
|
|
|
34 fcb $05
|
|
|
35 L0013 fcb $0A
|
|
|
36 fcb $20
|
|
|
37 fcb $41 A
|
|
|
38 fcb $64 d
|
|
|
39 fcb $64 d
|
|
|
40 fcb $72 r
|
|
|
41 fcb $65 e
|
|
|
42 fcb $73 s
|
|
|
43 fcb $73 s
|
|
|
44 fcb $20
|
|
|
45 fcb $20
|
|
|
46 fcb $70 p
|
|
|
47 fcb $61 a
|
|
|
48 fcb $67 g
|
|
|
49 fcb $65 e
|
|
|
50 fcb $73 s
|
|
|
51 fcb $0A
|
|
|
52 fcb $2D -
|
|
|
53 fcb $2D -
|
|
|
54 fcb $2D -
|
|
|
55 fcb $2D -
|
|
|
56 fcb $2D -
|
|
|
57 fcb $2D -
|
|
|
58 fcb $2D -
|
|
|
59 fcb $2D -
|
|
|
60 fcb $2D -
|
|
|
61 fcb $20
|
|
|
62 fcb $2D -
|
|
|
63 fcb $2D -
|
|
|
64 fcb $2D -
|
|
|
65 fcb $2D -
|
|
|
66 fcb $2D -
|
|
|
67 fcb $8D
|
|
|
68 L0034 fcb $0A
|
|
|
69 fcb $54 T
|
|
|
70 fcb $6F o
|
|
|
71 fcb $74 t
|
|
|
72 fcb $61 a
|
|
|
73 fcb $6C l
|
|
|
74 fcb $20
|
|
|
75 fcb $70 p
|
|
|
76 fcb $61 a
|
|
|
77 fcb $67 g
|
|
|
78 fcb $65 e
|
|
|
79 fcb $73 s
|
|
|
80 fcb $20
|
|
|
81 fcb $66 f
|
|
|
82 fcb $72 r
|
|
|
83 fcb $65 e
|
|
|
84 fcb $65 e
|
|
|
85 fcb $20
|
|
|
86 fcb $3D =
|
|
|
87 fcb $A0
|
|
|
88 L0048 fcb $47 G
|
|
|
89 fcb $72 r
|
|
|
90 fcb $61 a
|
|
|
91 fcb $70 p
|
|
|
92 fcb $68 h
|
|
|
93 fcb $69 i
|
|
|
94 fcb $63 c
|
|
|
95 fcb $73 s
|
|
|
96 fcb $20
|
|
|
97 fcb $4D M
|
|
|
98 fcb $65 e
|
|
|
99 fcb $6D m
|
|
|
100 fcb $6F o
|
|
|
101 fcb $72 r
|
|
|
102 fcb $79 y
|
|
|
103 fcb $A0
|
|
|
104 L0058 fcb $4E N
|
|
|
105 fcb $6F o
|
|
|
106 fcb $74 t
|
|
|
107 fcb $20
|
|
|
108 fcb $41 A
|
|
|
109 fcb $6C l
|
|
|
110 fcb $6C l
|
|
|
111 fcb $6F o
|
|
|
112 fcb $63 c
|
|
|
113 fcb $61 a
|
|
|
114 fcb $74 t
|
|
|
115 fcb $65 e
|
|
|
116 fcb $E4 d
|
|
|
117 L0065 fcb $61 a
|
|
|
118 fcb $74 t
|
|
|
119 fcb $3A :
|
|
|
120 fcb $20
|
|
|
121 fcb $A4 $
|
|
|
122 start equ *
|
|
|
123 leay u000D,u
|
|
|
124 sty <u000B
|
|
|
125 leay <L0013,pcr
|
|
|
126 bsr L00E1
|
|
|
127 bsr L00EC
|
|
|
128 ldx >$0020
|
|
|
129 stx <u0000
|
|
|
130 ldx >$0022
|
|
|
131 stx <u0002
|
|
|
132 clra
|
|
|
133 clrb
|
|
|
134 sta <u0005
|
|
|
135 std <u0006
|
|
|
136 std <u0008
|
|
|
137 stb <u000A
|
|
|
138 ldx <u0000
|
|
|
139 L008C lda ,x+
|
|
|
140 bsr L00A8
|
|
|
141 cmpx <u0002
|
|
|
142 bcs L008C
|
|
|
143 bsr L00B8
|
|
|
144 leay <L0034,pcr
|
|
|
145 bsr L00E1
|
|
|
146 ldb <u0005
|
|
|
147 bsr L0101
|
|
|
148 bsr L00EC
|
|
|
149 lbsr L014A
|
|
|
150 clrb
|
|
|
151 os9 F$Exit
|
|
|
152 L00A8 bsr L00AA
|
|
|
153 L00AA bsr L00AC
|
|
|
154 L00AC bsr L00AE
|
|
|
155 L00AE lsla
|
|
|
156 bcs L00B8
|
|
|
157 inc <u0005
|
|
|
158 inc <u000A
|
|
|
159 inc <u0006
|
|
|
160 rts
|
|
|
161 L00B8 pshs b,a
|
|
|
162 ldb <u000A
|
|
|
163 beq L00D7
|
|
|
164 ldd <u0008
|
|
|
165 bsr L0136
|
|
|
166 lda #$2D
|
|
|
167 bsr L012C
|
|
|
168 ldd <u0006
|
|
|
169 subd #$0001
|
|
|
170 bsr L0136
|
|
|
171 bsr L0122
|
|
|
172 bsr L0122
|
|
|
173 ldb <u000A
|
|
|
174 bsr L0101
|
|
|
175 bsr L00EC
|
|
|
176 L00D7 inc <u0006
|
|
|
177 ldd <u0006
|
|
|
178 std <u0008
|
|
|
179 clr <u000A
|
|
|
180 puls pc,b,a
|
|
|
181 L00E1 lda ,y
|
|
|
182 anda #$7F
|
|
|
183 bsr L012C
|
|
|
184 lda ,y+
|
|
|
185 bpl L00E1
|
|
|
186 rts
|
|
|
187 L00EC pshs y,x,a
|
|
|
188 lda #$0D
|
|
|
189 bsr L012C
|
|
|
190 leax u000D,u
|
|
|
191 stx <u000B
|
|
|
192 ldy #$0050
|
|
|
193 lda #$01
|
|
|
194 os9 I$WritLn
|
|
|
195 puls pc,y,x,a
|
|
|
196 L0101 lda #$FF
|
|
|
197 clr <u0004
|
|
|
198 L0105 inca
|
|
|
199 subb #$64
|
|
|
200 bcc L0105
|
|
|
201 bsr L0119
|
|
|
202 lda #$0A
|
|
|
203 L010E deca
|
|
|
204 addb #$0A
|
|
|
205 bcc L010E
|
|
|
206 bsr L0119
|
|
|
207 tfr b,a
|
|
|
208 inc <u0004
|
|
|
209 L0119 tsta
|
|
|
210 beq L011E
|
|
|
211 sta <u0004
|
|
|
212 L011E tst <u0004
|
|
|
213 bne L0124
|
|
|
214 L0122 lda #$F0
|
|
|
215 L0124 adda #$30
|
|
|
216 cmpa #$3A
|
|
|
217 bcs L012C
|
|
|
218 adda #$07
|
|
|
219 L012C pshs x
|
|
|
220 ldx <u000B
|
|
|
221 sta ,x+
|
|
|
222 stx <u000B
|
|
|
223 puls pc,x
|
|
|
224 L0136 clr <u0004
|
|
|
225 bsr L013C
|
|
|
226 tfr b,a
|
|
|
227 L013C pshs a
|
|
|
228 lsra
|
|
|
229 lsra
|
|
|
230 lsra
|
|
|
231 lsra
|
|
|
232 bsr L0146
|
|
|
233 puls a
|
|
|
234 L0146 anda #$0F
|
|
|
235 bra L0119
|
|
|
236 L014A pshs y,x
|
|
|
237 leay >L0048,pcr
|
|
|
238 bsr L00E1
|
|
|
239 lda #$01
|
|
|
240 ldb #$12
|
|
|
241 os9 I$GetStt
|
|
|
242 bcc L0163
|
|
|
243 leay >L0058,pcr
|
|
|
244 bsr L00E1
|
|
|
245 bra L016E
|
|
|
246 L0163 leay >L0065,pcr
|
|
|
247 lbsr L00E1
|
|
|
248 tfr x,d
|
|
|
249 bsr L0136
|
|
|
250 L016E puls y,x
|
|
|
251 lbra L00EC
|
|
|
252 emod
|
|
|
253 eom equ *
|
