|
0
|
1 ********************************************************************
|
|
|
2 * Mfree - Show free memory
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
1255
|
6 * Edt/Rev YYYY/MM/DD Modified by
|
|
|
7 * Comment
|
|
0
|
8 * ------------------------------------------------------------------
|
|
1255
|
9 * 2 ????/??/??
|
|
|
10 * Original Tandy/Microware version.
|
|
0
|
11
|
|
|
12 nam Mfree
|
|
|
13 ttl Show free memory
|
|
|
14
|
|
|
15 * Disassembled 98/09/11 12:07:32 by Disasm v1.6 (C) 1988 by RML
|
|
|
16
|
|
|
17 ifp1
|
|
|
18 use defsfile
|
|
|
19 endc
|
|
|
20
|
|
|
21 tylg set Prgrm+Objct
|
|
|
22 atrv set ReEnt+rev
|
|
1255
|
23 rev set $00
|
|
0
|
24 edition set 2
|
|
|
25
|
|
|
26 mod eom,name,tylg,atrv,start,size
|
|
|
27
|
|
|
28 u0000 rmb 1
|
|
|
29 u0001 rmb 1
|
|
|
30 u0002 rmb 2
|
|
|
31 u0004 rmb 1
|
|
|
32 u0005 rmb 1
|
|
|
33 u0006 rmb 1
|
|
|
34 u0007 rmb 1
|
|
|
35 u0008 rmb 1
|
|
|
36 u0009 rmb 1
|
|
|
37 u000A rmb 1
|
|
|
38 u000B rmb 2
|
|
1636
|
39 linebuf rmb 80
|
|
0
|
40 u005D rmb 7
|
|
|
41 u0064 rmb 132
|
|
|
42 u00E8 rmb 1135
|
|
|
43 size equ .
|
|
|
44
|
|
|
45 name fcs /Mfree/
|
|
|
46 fcb edition
|
|
|
47
|
|
1636
|
48 Hdr fcs " Blk Begin End Blks Size"
|
|
0
|
49 fcs " --- ------ ------ ---- ------"
|
|
1636
|
50 Ftr fcs " ==== ======"
|
|
|
51 fcs " Total: "
|
|
0
|
52
|
|
1636
|
53 start leax linebuf,u get line buffer address
|
|
0
|
54 stx <u0009
|
|
|
55 stx <u000B
|
|
|
56 lbsr L016E
|
|
1636
|
57 leay <Hdr,pcr
|
|
0
|
58 lbsr L0183
|
|
|
59 lbsr L016E
|
|
|
60 lbsr L0183
|
|
|
61 lbsr L016E
|
|
|
62 clr <u0000
|
|
|
63 clr <u0001
|
|
|
64 leax <u005D,u
|
|
|
65 os9 F$GBlkMp
|
|
|
66 sty <u0002
|
|
|
67 sta <u0004
|
|
|
68 ldy #$0000
|
|
|
69 L00AA ldu #$0000
|
|
|
70 L00AD tst ,x+
|
|
|
71 beq L00BA
|
|
|
72 leay $01,y
|
|
|
73 cmpy <u0002
|
|
|
74 bcs L00AD
|
|
|
75 bra L0109
|
|
|
76 L00BA tfr y,d
|
|
|
77 bsr L0123
|
|
|
78 lda <u0004
|
|
|
79 pshs y,a
|
|
|
80 clra
|
|
|
81 clrb
|
|
|
82 L00C4 addd $01,s
|
|
|
83 dec ,s
|
|
|
84 bne L00C4
|
|
|
85 leas $03,s
|
|
|
86 std <u0006
|
|
|
87 clr <u0008
|
|
|
88 bsr L0133
|
|
|
89 L00D2 leau u0001,u
|
|
|
90 leay $01,y
|
|
|
91 cmpy <u0002
|
|
|
92 beq L0109
|
|
|
93 tst ,x+
|
|
|
94 beq L00D2
|
|
|
95 lda <u0004
|
|
|
96 pshs y,a
|
|
|
97 clra
|
|
|
98 clrb
|
|
|
99 L00E5 addd $01,s
|
|
|
100 dec ,s
|
|
|
101 bne L00E5
|
|
|
102 leas $03,s
|
|
|
103 subd #$0001
|
|
|
104 std <u0006
|
|
|
105 lda #$FF
|
|
|
106 sta <u0008
|
|
|
107 bsr L0133
|
|
|
108 leax -$01,x
|
|
|
109 tfr u,d
|
|
|
110 bsr L0123
|
|
|
111 lbsr L0199
|
|
|
112 addd <u0000
|
|
|
113 std <u0000
|
|
|
114 bsr L016E
|
|
|
115 bra L00AA
|
|
1636
|
116 L0109 leay >Ftr,pcr
|
|
0
|
117 bsr L0183
|
|
|
118 bsr L016E
|
|
|
119 bsr L0183
|
|
|
120 tfr u,d
|
|
|
121 addd <u0000
|
|
|
122 std <u0000
|
|
|
123 bsr L0123
|
|
|
124 bsr L0199
|
|
|
125 bsr L016E
|
|
|
126 clrb
|
|
|
127 os9 F$Exit
|
|
|
128 L0123 pshs b,a
|
|
|
129 clr <u0005
|
|
|
130 bsr L0145
|
|
|
131 tfr b,a
|
|
|
132 bsr L0145
|
|
|
133 lda #$20
|
|
|
134 bsr L0164
|
|
|
135 puls pc,b,a
|
|
|
136 L0133 clr <u0005
|
|
|
137 lda <u0006
|
|
|
138 bsr L0145
|
|
|
139 lda <u0007
|
|
|
140 bsr L0145
|
|
|
141 lda <u0008
|
|
|
142 bsr L0145
|
|
|
143 lda #$20
|
|
|
144 bra L0164
|
|
|
145 L0145 pshs a
|
|
|
146 lsra
|
|
|
147 lsra
|
|
|
148 lsra
|
|
|
149 lsra
|
|
|
150 bsr L014F
|
|
|
151 puls a
|
|
|
152 L014F anda #$0F
|
|
|
153 tsta
|
|
|
154 beq L0156
|
|
|
155 sta <u0005
|
|
|
156 L0156 tst <u0005
|
|
|
157 bne L015C
|
|
|
158 lda #$F0
|
|
|
159 L015C adda #$30
|
|
|
160 cmpa #$3A
|
|
|
161 bcs L0164
|
|
|
162 adda #$07
|
|
|
163 L0164 pshs x
|
|
|
164 ldx <u000B
|
|
|
165 sta ,x+
|
|
|
166 stx <u000B
|
|
|
167 puls pc,x
|
|
1636
|
168
|
|
0
|
169 L016E pshs y,x,a
|
|
1636
|
170 lda #C$CR
|
|
0
|
171 bsr L0164
|
|
|
172 ldx <u0009
|
|
|
173 stx <u000B
|
|
1636
|
174 ldy #80
|
|
0
|
175 lda #$01
|
|
|
176 os9 I$WritLn
|
|
|
177 puls pc,y,x,a
|
|
|
178 L0183 lda ,y
|
|
|
179 anda #$7F
|
|
|
180 bsr L0164
|
|
|
181 tst ,y+
|
|
|
182 bpl L0183
|
|
|
183 rts
|
|
1636
|
184
|
|
|
185 DecTbl fdb 10000,1000,100,10,1
|
|
|
186 fcb $FF
|
|
|
187
|
|
0
|
188 L0199 pshs y,x,b,a
|
|
|
189 lda <u0004
|
|
|
190 pshs a
|
|
|
191 lda $01,s
|
|
|
192 lsr ,s
|
|
|
193 lsr ,s
|
|
|
194 bra L01A9
|
|
|
195 L01A7 lslb
|
|
|
196 rola
|
|
|
197 L01A9 lsr ,s
|
|
|
198 bne L01A7
|
|
|
199 leas 1,s
|
|
1636
|
200 leax <DecTbl,pcr
|
|
0
|
201 ldy #$2F20
|
|
1636
|
202 L01B6 leay >256,y
|
|
0
|
203 subd ,x
|
|
|
204 bcc L01B6
|
|
|
205 addd ,x++
|
|
|
206 pshs b,a
|
|
|
207 tfr y,d
|
|
|
208 tst ,x
|
|
|
209 bmi L01DE
|
|
|
210 ldy #$2F30
|
|
1636
|
211 cmpd #'0*256+C$SPAC
|
|
0
|
212 bne L01D8
|
|
|
213 ldy #$2F20
|
|
1636
|
214 lda #C$SPAC
|
|
0
|
215 L01D8 bsr L0164
|
|
|
216 puls b,a
|
|
|
217 bra L01B6
|
|
|
218 L01DE bsr L0164
|
|
1636
|
219 lda #'k
|
|
0
|
220 bsr L0164
|
|
|
221 leas $02,s
|
|
|
222 puls pc,y,x,b,a
|
|
|
223
|
|
|
224 emod
|
|
|
225 eom equ *
|
|
|
226 end
|
