Mercurial > hg > Members > kono > os9 > sbc09
diff CoCoOS9/level2v3/CMDS/mfree.asm @ 31:bd2b07db8917 cocoos9lv2v3
CoCoOS9 version
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Sat, 14 Jul 2018 15:16:13 +0900 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/CoCoOS9/level2v3/CMDS/mfree.asm Sat Jul 14 15:16:13 2018 +0900 @@ -0,0 +1,222 @@ +******************************************************************** +* Mfree - Show free memory +* +* $Id: mfree.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 2 Original Tandy/Microware version + + nam Mfree + ttl Show free memory + +* Disassembled 98/09/11 12:07:32 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 2 + + mod eom,name,tylg,atrv,start,size + +u0000 rmb 1 +u0001 rmb 1 +u0002 rmb 2 +u0004 rmb 1 +u0005 rmb 1 +u0006 rmb 1 +u0007 rmb 1 +u0008 rmb 1 +u0009 rmb 1 +u000A rmb 1 +u000B rmb 2 +u000D rmb 80 +u005D rmb 7 +u0064 rmb 132 +u00E8 rmb 1135 +size equ . + +name fcs /Mfree/ + fcb edition + +L0013 fcs " Blk Begin End Blks Size" + fcs " --- ------ ------ ---- ------" +L004E fcs " ==== ======" + fcc " Total:" + fcb $A0 + +start leax u000D,u + stx <u0009 + stx <u000B + lbsr L016E + leay <L0013,pcr + lbsr L0183 + lbsr L016E + lbsr L0183 + lbsr L016E + clr <u0000 + clr <u0001 + leax <u005D,u + os9 F$GBlkMp + sty <u0002 + sta <u0004 + ldy #$0000 +L00AA ldu #$0000 +L00AD tst ,x+ + beq L00BA + leay $01,y + cmpy <u0002 + bcs L00AD + bra L0109 +L00BA tfr y,d + bsr L0123 + lda <u0004 + pshs y,a + clra + clrb +L00C4 addd $01,s + dec ,s + bne L00C4 + leas $03,s + std <u0006 + clr <u0008 + bsr L0133 +L00D2 leau u0001,u + leay $01,y + cmpy <u0002 + beq L0109 + tst ,x+ + beq L00D2 + lda <u0004 + pshs y,a + clra + clrb +L00E5 addd $01,s + dec ,s + bne L00E5 + leas $03,s + subd #$0001 + std <u0006 + lda #$FF + sta <u0008 + bsr L0133 + leax -$01,x + tfr u,d + bsr L0123 + lbsr L0199 + addd <u0000 + std <u0000 + bsr L016E + bra L00AA +L0109 leay >L004E,pcr + bsr L0183 + bsr L016E + bsr L0183 + tfr u,d + addd <u0000 + std <u0000 + bsr L0123 + bsr L0199 + bsr L016E + clrb + os9 F$Exit +L0123 pshs b,a + clr <u0005 + bsr L0145 + tfr b,a + bsr L0145 + lda #$20 + bsr L0164 + puls pc,b,a +L0133 clr <u0005 + lda <u0006 + bsr L0145 + lda <u0007 + bsr L0145 + lda <u0008 + bsr L0145 + lda #$20 + bra L0164 +L0145 pshs a + lsra + lsra + lsra + lsra + bsr L014F + puls a +L014F anda #$0F + tsta + beq L0156 + sta <u0005 +L0156 tst <u0005 + bne L015C + lda #$F0 +L015C adda #$30 + cmpa #$3A + bcs L0164 + adda #$07 +L0164 pshs x + ldx <u000B + sta ,x+ + stx <u000B + puls pc,x +L016E pshs y,x,a + lda #$0D + bsr L0164 + ldx <u0009 + stx <u000B + ldy #$0050 + lda #$01 + os9 I$WritLn + puls pc,y,x,a +L0183 lda ,y + anda #$7F + bsr L0164 + tst ,y+ + bpl L0183 + rts +L018E fdb $2710,$03e8,$0064,$000a,$0001 + fcb $ff +L0199 pshs y,x,b,a + lda <u0004 + pshs a + lda $01,s + lsr ,s + lsr ,s + bra L01A9 +L01A7 lslb + rola +L01A9 lsr ,s + bne L01A7 + leas 1,s + leax <L018E,pcr + ldy #$2F20 +L01B6 leay >$0100,y + subd ,x + bcc L01B6 + addd ,x++ + pshs b,a + tfr y,d + tst ,x + bmi L01DE + ldy #$2F30 + cmpd #$3020 + bne L01D8 + ldy #$2F20 + lda #$20 +L01D8 bsr L0164 + puls b,a + bra L01B6 +L01DE bsr L0164 + lda #$6B + bsr L0164 + leas $02,s + puls pc,y,x,b,a + + emod +eom equ * + end