.TITLE	CSTAT
	.MCALL	.CSTAT,.CSIGEN,.PRINT,.EXIT,.PURGE
	.ENABL	LSB,LC
	.NLIST	BEX

	.MACRO	SHOBIT	BITMSK,SETMSG,CLRMSG,?A,?B,?S,?C
	BIT	#BITMSK,ADDR
	BEQ	A
	.PRINT	#S
	BR	B
A:	.PRINT	#C
B:
	.PSECT	MESSAG
S:	.ASCIZ	/SETMSG/
C:	.ASCIZ	/CLRMSG/
	.PSECT
	.ENDM

START:	.CSIGEN	#DEVSDC,#DEFEXT
	.CSTAT	#AREA,#0,#ADDR
	BCS	NOCHAN
	SHOBIT	1,<Hard error>,<No hard errors>
	SHOBIT	100,<Rename in progress>,<No rename in progress>
	SHOBIT	200,<Opened by .ENTER>,<Not opened by .ENTER>
	SHOBIT	20000,<EOF found>,<Not at EOF>
	SHOBIT	100000,<Channel is active>,<Channel is not active>
	MOV	#DEVNAM,%0
	MOV	ADDR+10.,%1
	JSR	PC,$C5TA
	MOVB	#':,DEVNAM+2
	.PRINT	#DEVICE
	BISB	ADDR+8.,UNITNO
	.PRINT	#UNIT
	.PURGE	#0
	.EXIT

NOCHAN:	.PRINT	#MSG
	.EXIT

MSG:	.ASCIZ	/?No Output File?/
UNIT:	.ASCII	/Unit no /
UNITNO:	.ASCIZ	/0/
DEVICE:	.ASCII	/Physical device /
DEVNAM:	.ASCIZ	/   /
	.EVEN
AREA:	.BLKW	5
ADDR:	.BLKW	6
DEFEXT:	.WORD	0,0,0,0
DEVSDC:	.BLKW	39.

	.END	START