A2osX/BIN/MEMDUMP.S.txt

489 lines
8.3 KiB
Plaintext
Raw Normal View History

2016-10-07 20:48:49 +00:00
NEW
2019-07-24 05:53:09 +00:00
AUTO 3,1
2016-10-07 20:48:49 +00:00
.LIST OFF
.OP 65C02
.OR $2000
2020-02-18 06:55:54 +00:00
.TF bin/memdump
2016-10-07 20:48:49 +00:00
*--------------------------------------
2020-08-17 20:47:31 +00:00
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/kernel.i
.INB inc/io.i
*--------------------------------------
PAGE.LEN .EQ 23
2016-10-07 20:48:49 +00:00
*--------------------------------------
2018-12-18 14:37:07 +00:00
.DUMMY
.OR ZPBIN
ZS.START
ZPPTR1 .BS 2
ZPPTR2 .BS 2
2020-03-04 16:38:32 +00:00
MEM.COUNT .BS 1
USED.COUNT .BS 1
LINE.COUNT .BS 1
2020-03-04 16:38:32 +00:00
bSTOP .BS 1
ZPReadAux sta SETREADAUX
lda (ZPPTR1),y
sta CLRREADAUX
rts
2020-08-17 20:47:31 +00:00
ZS.END .ED
2016-10-07 20:48:49 +00:00
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
2018-12-18 14:37:07 +00:00
.DA #0 S.PS.F.EVENT
.DA #0
.DA CS.END-CS.START Code Size (without Constants)
.DA DS.END-DS.START Data SegmentSize
.DA #64 Stack Size
2018-12-18 14:37:07 +00:00
.DA #ZS.END-ZS.START Zero Page Size
2016-10-07 20:48:49 +00:00
.DA 0
*--------------------------------------
* Relocation Table
2019-10-03 06:25:27 +00:00
*--------------------------------------
2016-10-07 20:48:49 +00:00
.1 .DA CS.INIT
.DA CS.RUN
2022-11-02 06:54:30 +00:00
.DA CS.DOEVENT
2016-10-07 20:48:49 +00:00
.DA CS.QUIT
L.MSG0 .DA MSG0
L.MSG1.INV .DA MSG1.INV
2016-10-07 20:48:49 +00:00
L.MSG1 .DA MSG1
L.MSG1.BIN .DA MSG1.BIN
L.MSG1.STR .DA MSG1.STR
L.MSG1.HEX .DA MSG1.HEX
L.MSG1X .DA MSG1X
2016-10-07 20:48:49 +00:00
L.MSG2 .DA MSG2
L.MSG3 .DA MSG3
L.MSG.CRLF .DA MSG.CRLF
2016-10-07 20:48:49 +00:00
.DA 0
*--------------------------------------
2019-02-01 16:32:29 +00:00
CS.INIT clc
2020-03-04 16:38:32 +00:00
CS.INIT.RTS rts
2016-10-07 20:48:49 +00:00
*--------------------------------------
2020-03-04 16:38:32 +00:00
CS.RUN ldx #ZPCodeLen-1
2019-02-01 16:32:29 +00:00
2020-03-04 16:38:32 +00:00
.1 lda ZPCode,x
sta ZPReadAux,x
dex
bpl .1
2019-02-01 16:32:29 +00:00
2020-03-04 16:38:32 +00:00
>LEA.G MemStat
>SYSCALL GetMemStat
2019-02-20 16:07:43 +00:00
2020-03-04 16:38:32 +00:00
jsr CS.RUN.INIT
*--------------------------------------
2020-03-04 16:38:32 +00:00
CS.RUN.LOOP inc MEM.COUNT skip slot 0
2022-11-02 06:54:30 +00:00
jsr CS.RUN.CheckStop
2020-03-04 16:38:32 +00:00
bcs CS.INIT.RTS
2022-11-02 06:54:30 +00:00
2018-08-20 15:15:37 +00:00
.1 lda (ZPPTR1)
2016-10-07 20:48:49 +00:00
bpl .2
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
inc USED.COUNT
2022-11-02 06:54:30 +00:00
2016-10-07 20:48:49 +00:00
.2 jsr CS.RUN.PRINTMEM
2019-02-01 16:32:29 +00:00
lda ZPPTR1
clc
adc #S.MEM
sta ZPPTR1
bcc .3
inc ZPPTR1+1
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
.3 lda MEM.COUNT
2018-08-20 15:15:37 +00:00
>CMP.G MemStat+S.MSTAT.MLast
2020-03-04 16:38:32 +00:00
bne CS.RUN.LOOP
2022-11-02 06:54:30 +00:00
jsr CS.RUN.SUMMARY
jsr CS.RUN.MSTAT
2022-11-02 06:54:30 +00:00
jsr CS.RUN.PrintCRLF
2022-11-02 06:54:30 +00:00
jsr CS.RUN.INIT
*--------------------------------------
2020-03-04 16:38:32 +00:00
CS.RUN.LOOPX inc MEM.COUNT skip slot 0
2022-11-02 06:54:30 +00:00
jsr CS.RUN.CheckStop
2020-03-04 16:38:32 +00:00
bcs CS.INIT.RTS
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
.1 ldy #S.MEM.F
jsr ZPReadAux
bpl .2
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
inc USED.COUNT
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
.2 jsr CS.RUN.PRINTMEMX
lda ZPPTR1
clc
adc #S.MEM
sta ZPPTR1
bcc .3
inc ZPPTR1+1
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
.3 lda MEM.COUNT
>CMP.G MemStat+S.MSTAT.XLast
bne CS.RUN.LOOPX
jsr CS.RUN.SUMMARY
2020-03-04 16:38:32 +00:00
jsr CS.RUN.XSTAT
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
lda #0
sec
rts
*--------------------------------------
CS.RUN.INIT >LDYAI Mem.Table+S.MEM skip slot 0
>STYA ZPPTR1
2020-03-04 16:38:32 +00:00
>PUSHW L.MSG0
>PUSHBI 0
jsr CS.RUN.PrintF
2022-11-02 06:54:30 +00:00
stz MEM.COUNT
stz USED.COUNT
rts
2020-03-04 16:38:32 +00:00
*--------------------------------------
CS.RUN.SUMMARY jsr CS.RUN.PrintCRLF
>PUSHW L.MSG2
2020-03-04 16:38:32 +00:00
>PUSHB USED.COUNT
>PUSHB MEM.COUNT
2018-08-22 15:23:27 +00:00
>PUSHBI 2
jmp CS.RUN.PrintF
*--------------------------------------
CS.RUN.MSTAT jsr CS.RUN.PrintCRLF
>PUSHW L.MSG3
2018-07-24 06:24:23 +00:00
>PUSHW.G MemStat+S.MSTAT.MH
>PUSHW.G MemStat+S.MSTAT.MF
>PUSHW.G MemStat+S.MSTAT.ML
>LDA.G MemStat+S.MSTAT.MF
2020-02-18 06:55:54 +00:00
sec
>SBC.G MemStat+S.MSTAT.ML
pha
>LDA.G MemStat+S.MSTAT.MF+1
>SBC.G MemStat+S.MSTAT.ML+1
ply
2016-10-07 20:48:49 +00:00
>PUSHYA
2020-02-18 06:55:54 +00:00
>PUSHBI 8
jmp CS.RUN.PrintF
2016-10-07 20:48:49 +00:00
*--------------------------------------
CS.RUN.XSTAT jsr CS.RUN.PrintCRLF
>PUSHW L.MSG3
>PUSHW.G MemStat+S.MSTAT.XH
>PUSHW.G MemStat+S.MSTAT.XF
>PUSHW.G MemStat+S.MSTAT.XL
>LDA.G MemStat+S.MSTAT.XF
sec
>SBC.G MemStat+S.MSTAT.XL
pha
>LDA.G MemStat+S.MSTAT.XF+1
>SBC.G MemStat+S.MSTAT.XL+1
ply
>PUSHYA
>PUSHBI 8
jmp CS.RUN.PrintF
2020-03-04 16:38:32 +00:00
*--------------------------------------
2020-02-18 06:55:54 +00:00
CS.RUN.PRINTMEM >PUSHW L.MSG1
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
>PUSHB MEM.COUNT
2018-08-22 15:23:27 +00:00
lda (ZPPTR1) Get flags
ldy #MEM.FLAGS+7
ldx #7
2022-11-02 06:54:30 +00:00
.20 lsr
pha
lda #'-'
bcc .30
2022-11-02 06:54:30 +00:00
lda MSG.FLAGS,x
2022-11-02 06:54:30 +00:00
.30 sta (pData),y
pla
dey
dex
2019-10-03 06:25:27 +00:00
bpl .20
>PUSHEA.G MEM.FLAGS
2020-02-18 06:55:54 +00:00
ldy #S.MEM.OWNERPID
lda (ZPPTR1),y
2020-03-04 16:38:32 +00:00
tax
2020-02-18 06:55:54 +00:00
>PUSHA
ldy #S.MEM.REFCNT
lda (ZPPTR1),y
>PUSHA
2022-11-02 06:54:30 +00:00
2020-02-18 06:55:54 +00:00
ldy #S.MEM.PTR+1
lda (ZPPTR1),y
>PUSHA
dey
lda (ZPPTR1),y
>PUSHA
2022-11-02 06:54:30 +00:00
2020-02-18 06:55:54 +00:00
ldy #S.MEM.LEN+1
lda (ZPPTR1),y
>PUSHA
dey
lda (ZPPTR1),y
>PUSHA
2022-11-02 06:54:30 +00:00
lda (ZPPTR1) Get flags
bpl .12
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
txa
2018-12-18 14:37:07 +00:00
jsr CS.RUN.CHECKPS
bcc .12
2022-11-02 06:54:30 +00:00
jsr CS.RUN.PrintINV
2022-11-02 06:54:30 +00:00
2018-08-22 15:23:27 +00:00
.12 >PUSHBI 9
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
2022-11-02 06:54:30 +00:00
2018-08-21 13:12:47 +00:00
lda (ZPPTR1)
and #S.MEM.F.CODE
2018-08-22 15:23:27 +00:00
bne CS.RUN.PRINTMEM.BIN
2022-11-02 06:54:30 +00:00
2020-02-18 06:55:54 +00:00
CS.RUN.PRINTMEM.DATA
ldy #S.MEM.PTR
2016-10-07 20:48:49 +00:00
lda (ZPPTR1),y
sta ZPPTR2
iny
lda (ZPPTR1),y
sta ZPPTR2+1
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
ldy #0
2022-11-02 06:54:30 +00:00
.1 lda (ZPPTR2),y Check if it looks like a printable string
beq .11
2022-11-02 06:54:30 +00:00
bmi .2
2022-11-02 06:54:30 +00:00
2016-10-07 20:48:49 +00:00
cmp #$20
bcc .2 not printable....->hex
2022-11-02 06:54:30 +00:00
iny
2016-10-07 20:48:49 +00:00
bne .1
2020-02-18 06:55:54 +00:00
.11 >PUSHW L.MSG1.STR
tya
beq .2 Starting with 0...PrintHEX
2022-11-02 06:54:30 +00:00
2020-02-18 06:55:54 +00:00
>PUSHA len
>PUSHW ZPPTR2 String
2018-08-22 15:23:27 +00:00
>PUSHBI 3
2022-11-02 06:54:30 +00:00
jmp CS.RUN.PrintF
2020-02-18 06:55:54 +00:00
.2 >PUSHW L.MSG1.HEX
2022-11-02 06:54:30 +00:00
2020-02-18 06:55:54 +00:00
ldy #0
.3 >PUSHB (ZPPTR2),y
2020-02-18 06:55:54 +00:00
iny
cpy #16
bne .3
2022-11-02 06:54:30 +00:00
2018-08-22 15:23:27 +00:00
>PUSHBI 16
2022-11-02 06:54:30 +00:00
jmp CS.RUN.PrintF
2022-11-02 06:54:30 +00:00
2018-08-22 15:23:27 +00:00
CS.RUN.PRINTMEM.BIN
2020-02-18 06:55:54 +00:00
>PUSHW L.MSG1.BIN
2018-08-22 15:23:27 +00:00
ldy #S.MEM.BIN
2018-08-21 13:12:47 +00:00
lda (ZPPTR1),y
>SYSCALL GetMemPtr
>PUSHYA
2018-08-22 15:23:27 +00:00
>PUSHBI 2
jmp CS.RUN.PrintF
2020-03-04 16:38:32 +00:00
*--------------------------------------
CS.RUN.PRINTMEMX
>PUSHW L.MSG1X
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
>PUSHB MEM.COUNT
ldy #S.MEM.F Get flags
jsr ZPReadAux
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
ldy #MEM.FLAGS+7
ldx #7
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
.20 lsr
pha
lda #'-'
bcc .30
2022-11-02 06:54:30 +00:00
2020-03-06 16:20:29 +00:00
lda MSG.FLAGSX,x
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
.30 sta (pData),y
pla
dey
dex
bpl .20
>PUSHEA.G MEM.FLAGS
ldy #S.MEM.OWNERPID
jsr ZPReadAux
tax
>PUSHA
ldy #S.MEM.REFCNT
jsr ZPReadAux
>PUSHA
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
ldy #S.MEM.PTR+1
jsr ZPReadAux
>PUSHA
dey
jsr ZPReadAux
>PUSHA
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
ldy #S.MEM.LEN+1
jsr ZPReadAux
>PUSHA
dey
jsr ZPReadAux
>PUSHA
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
ldy #S.MEM.F
jsr ZPReadAux Get flags
bpl .12
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
txa
jsr CS.RUN.CHECKPS
bcc .12
2022-11-02 06:54:30 +00:00
jsr CS.RUN.PrintINV
2022-11-02 06:54:30 +00:00
2020-03-04 16:38:32 +00:00
.12 >PUSHBI 9
jmp CS.RUN.PrintF
2016-10-07 20:48:49 +00:00
*--------------------------------------
2018-12-18 14:37:07 +00:00
CS.RUN.CHECKPS ldx #0
2020-03-04 16:38:32 +00:00
2018-12-18 14:37:07 +00:00
.1 cmp PS.Table.PID,x
beq .8
2022-11-02 06:54:30 +00:00
2018-12-18 14:37:07 +00:00
inx
2020-03-06 16:20:29 +00:00
cpx #K.PS.MAX
2018-12-18 14:37:07 +00:00
bne .1
2020-03-04 16:38:32 +00:00
2018-12-18 14:37:07 +00:00
rts CS
.8 clc
rts
*--------------------------------------
CS.RUN.CheckStop
lda bSTOP
beq .2
.1 >SLEEP
>SYSCALL GetChar
bcs .9
2022-11-02 06:54:30 +00:00
cmp #3 Ctrl-C
beq .9 CS
stz bSTOP
clc
rts
.2 ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL FEOF
bcs .9
2022-11-02 06:54:30 +00:00
tay
bne .8 no char
2022-11-02 06:54:30 +00:00
>SYSCALL GetChar
bcs .9
2022-11-02 06:54:30 +00:00
cmp #3 Ctrl-C
beq .9 CS
2022-11-02 06:54:30 +00:00
cmp #$13 Ctrl-S
bne .8
2022-11-02 06:54:30 +00:00
dec bSTOP
.8 clc
.9 rts
*--------------------------------------
CS.RUN.PrintINV >PUSHW L.MSG1.INV
>PUSHBI 0
>SYSCALL PrintF
rts
*--------------------------------------
CS.RUN.PrintCRLF
>PUSHW L.MSG.CRLF
>PUSHBI 0
2022-11-02 06:54:30 +00:00
CS.RUN.PrintF >SYSCALL PrintF
bcs .9
2022-11-02 06:54:30 +00:00
inc LINE.COUNT
lda LINE.COUNT
cmp #PAGE.LEN
bcc .8
2022-11-02 06:54:30 +00:00
dec bSTOP
stz LINE.COUNT
clc
2022-11-02 06:54:30 +00:00
.8
.9 rts
*--------------------------------------
CS.DOEVENT sec
2016-10-07 20:48:49 +00:00
rts
*--------------------------------------
CS.QUIT clc
2016-10-07 20:48:49 +00:00
rts
*--------------------------------------
CS.END
2020-03-04 16:38:32 +00:00
ZPCode sta SETREADAUX
lda (ZPPTR1),y
sta CLRREADAUX
rts
2022-11-02 06:54:30 +00:00
ZPCodeLen .EQ *-ZPCode
2020-03-04 16:38:32 +00:00
*--------------------------------------
2022-11-02 06:54:30 +00:00
MSG0 .CZ "hMem Flags PID REF PTR LEN BINPATH/DATA\r\n"
MSG1.INV .CZ "\e[7m"
MSG1 .CZ "$%h %s %3d %3d $%H %5D "
MSG1.BIN .CZ "\e[7m%s\e[0m\r\n"
MSG1.STR .CZ "[%03d:%s]\e[0m\r\n"
MSG1.HEX .CZ "?HEX:%h%h.%h%h.%h%h.%h%h.%h%h.%h%h.%h%h.%h%h\e[0m\r\n"
MSG1X .CZ "$%h %s %3d %3d $%H %5D\e[0m\r\n"
MSG2 .CZ "Allocated hMem:%d, Total:%d\r\n"
MSG3 .CS "High Memory: $%H, "
.CS "Free ULimit: $%H, "
.CS "Low : $%H, "
.CS "Free : %5D Bytes."
MSG.CRLF .CZ "\r\n"
MSG.FLAGS .CS "UZXAfcds"
MSG.FLAGSX .CS "UZXAidep"
2016-10-07 20:48:49 +00:00
*--------------------------------------
.DUMMY
.OR 0
DS.START
MemStat .BS S.MSTAT
MEM.FLAGS .BS 9
2020-08-17 20:47:31 +00:00
DS.END .ED
2016-10-07 20:48:49 +00:00
*--------------------------------------
MAN
2020-08-17 20:47:31 +00:00
SAVE usr/src/bin/memdump.s
2016-10-07 20:48:49 +00:00
ASM