;*****************************************
;
; MEMPLT - display memory allocations
;
;*****************************************
;1.0 31-Oct-84 DFP written by D. Pallmann.
SEARCH SYS
SEARCH SYSSYM
DEFINE DEPACK ADDR
SAVE A1,A2
LEA A1,ADDR
SUB #4,SP
MOV SP,A2
UNPACK
CLRB @A2
TTYL @SP
ADD #4,SP
REST A1,A2
ENDM
START: PHDR -1,0,PH$REE!PH$REU
LEGEND: TYPE * MONITOR
TAB
TYPE $ SHAREABLE
TAB
TYPE + UNASSIGNED
TAB
MOV JOBTBL,A0
MOV #'@,D1
10$: CTRLC EXIT
MOV (A0)+,D0
BEQ 10$
BMI SETUP
MOV D0,A3
INC D1
TTY
TYPESP
DEPACK JOBNAM(A3)
DEPACK JOBNAM+2(A3)
TAB
BR 10$
SETUP: MOV #0,A4
CRLF
CRLF
TYPECR < 0K 4K 8K 12K 16K 20K 24K 28K 32K 36K 40K 44K 48K 52K 56K 60K>
TYPECR < | | | | | | | | | | | | | | | |>
DOPAGE: CTRLC EXIT
MOV A4,D1
DIV D1,#1024.
AND #177777,D1
DCVT 4,OT$TRM!OT$ZER
TYPE K
TAB
MOV #64.,D0
10$: CTRLC EXIT
ADD #2000,A4
CMP A4,MEMEND
JHI EXIT
CALL SHOW
SOB D0,10$
CRLF
BR DOPAGE
EXIT: CRLF
EXIT
SHOW: CMP A4,SYSBAS
BHIS 10$
TYPE *
RTN
10$: CMP A4,MEMBAS
BHIS 20$
TYPE $
RTN
20$: MOV JOBTBL,A0
MOV #'@,D1
30$: CTRLC EXIT
MOV (A0)+,D2
BEQ 30$
BMI 40$
INC D1
MOV D2,A3
CMM JOBBAS(A3),A4
BGT 30$
MOV JOBBAS(A3),D2
ADD JOBSIZ(A3),D2
CMP D2,A4
BLT 30$
TTY
RTN
40$: TYPE +
RTN
END
