Mercurial > hg > Members > kono > os9 > sbc09

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

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