mirror of
https://github.com/mgcaret/davex-mg-utils.git
synced 2024-12-13 01:30:41 +00:00
49 lines
1.2 KiB
ArmAsm
49 lines
1.2 KiB
ArmAsm
|
; %help
|
||
|
; dmem -- Display davex dynamic memory info.
|
||
|
;
|
||
|
; syntax: dmem
|
||
|
; %hend
|
||
|
|
||
|
.pc02
|
||
|
.include "davex-mg.inc"
|
||
|
|
||
|
DX_start dx_mg_auto_origin ; load address
|
||
|
DX_info $01,$12,dx_cc_any,$00
|
||
|
DX_ptab
|
||
|
DX_end_ptab
|
||
|
DX_desc "Display DaveX dynamic memory info."
|
||
|
DX_main
|
||
|
jsr xmess
|
||
|
asc_hi "Dynamic memory available to external cmds:"
|
||
|
.byte $8d,$8d,00
|
||
|
ldx #mli_close ; free all
|
||
|
jsr xmmgr ; ask for it
|
||
|
; fall-through
|
||
|
.proc showfree
|
||
|
ldx #mli_read ; num free pages
|
||
|
jsr xmmgr ; ask for it
|
||
|
pha
|
||
|
tay
|
||
|
lda #$00
|
||
|
jsr xprdec_2
|
||
|
jsr xmess
|
||
|
asc_hi " page"
|
||
|
.byte $00
|
||
|
pla
|
||
|
tay
|
||
|
lda #$00
|
||
|
jsr xplural
|
||
|
jsr xmess
|
||
|
asc_hi " free"
|
||
|
.byte $8d
|
||
|
asc_hi "Lowest page: $"
|
||
|
.byte $00
|
||
|
ldx #mli_gfinfo ; lowest free page
|
||
|
jsr xmmgr
|
||
|
jsr $fdda ; prbyte
|
||
|
jsr xmess
|
||
|
.byte $8d,00
|
||
|
rts
|
||
|
.endproc
|
||
|
DX_end
|