;display log accounts of each job
;30-Jun-83    David Pallmann    for NY/AMUS

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM

	PHDR	-2,0,PH$REU

START:	MOV	JOBTBL,A0

LOOP:	CTRLC	EXIT
	MOV	(A0)+,A3
	MOV	A3,D0
	BMI	EXIT
	BEQ	LOOP
	LEA	A1,JOBNAM(A3)
	LEA	A2,BUFFER
	UNPACK
	UNPACK
	CLRB	@A2
	LEA	A2,BUFFER
	TTYL	@A2
	TYPESP
	LEA	A1,JOBDEV(A3)
	LEA	A2,BUFFER
	UNPACK
	CLRB	@A2
	LEA	A2,BUFFER
	TTYL	@A2
	CLR	D1
	MOVW	JOBDRV(A3),D1
	DCVT	0,3
	TYPE	:[
	PRPPN	JOBUSR(A3)
	TYPE	]
	MOV	A0,A6
	SUB	#4,A6
	MOV	@A6,D0
	CMM	D0,JOBCUR
	BNE	NEXT
	TYPE	< *>

NEXT:	CRLF
	JMP	LOOP

EXIT:	CRLF
	EXIT

BUFFER:	BLKB	10

	END