Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/mfree.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children 0912ac5dc2ff
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
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 *