;*****************************************
;
;   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

.