.TITLE	SYS -- PRINT SYSTEM NAME
	.IDENT	/V01.00/

CHAN0	=	0

	.MCALL	.EXIT,.LOOKUP,.PRINT,.PURGE,.READW

	.LIBRAR	/SY:SYSTEM/
	.MCALL	.FIXDF,.SYCDF

	.FIXDF
	.SYCDF

SYSEP::	MOV	@#$SYPTR,R0
	MOV	$MONAM(R0),DBLK+2
	MOV	$MONAM+2(R0),DBLK+4
	.LOOKUP	#AREA,#CHAN0,#DBLK
	BCC	10$
	.PRINT	#ERR1
	.EXIT

10$:	.READW	#AREA,#CHAN0,#BUFF,#256.,#4
	BCC	20$
	.PRINT	#ERR2
	CLR	R0
	.EXIT

20$:	.PURGE	#CHAN0
	.PRINT	#BUFF+740
	.EXIT

AREA:	.BLKW	5
DBLK:	.RAD50	/SY /
	.WORD	0,0
	.RAD50	/SYS/

BUFF:	.BLKW	256.

ERR1:	.ASCIZ	"?SYS-F-Couldn't open monitor file"
ERR2:	.ASCIZ	"?SYS-F-I/O error"

	.END	SYSEP