.TITLE	SETUP

	.MCALL	QIOW$,ASTX$S,DIR$,ALUN$C

;+
;
;  Dan O'Reilly    13-Apr-1982
;
;  Module for MONSTA game for running on an RSX system.  This module
;  attaches lun 1 for unsolicited input AST's.
;
;-
	.PSECT	RESERV,RW,D,GBL,REL,OVR
ACHAR:	.BLKW
	.EVEN

	.PSECT

QIO:	QIOW$	IO.ATA!TF.NOT!TF.XCC,1,1,,,,<GOTCHR,,CTRLC>
	.EVEN

SETUP::	ALUN$C	1,TT,37
	DIR$	#QIO		;ATTACH TO TERMINAL FOR UNSOLICITED INPUT
	BCC	GOON		;NO ERROR
	MOV	#177777,ACHAR	;INDICATE ERROR WITH -1
	BR	RETN		;GO HOME
GOON:	MOV	#0,ACHAR	;NO ERROR
RETN:	RETURN			;GO HOME


GOTCHR::MOV	(SP)+,ACHAR	;POP STACK INTO 'A' TO SHOW WE HAVE SOMETHING
	ASTX$S			;EXIT FROM AST ROUTINE

CTRLC::	MOV	(SP)+,ACHAR	;POP STACK INTO 'A'
	BIC	#177400,ACHAR	;CLEAR HIGH-ORDER BYTE OF A
	ASTX$S			;EXIT FROM AST ROUTINE

	.END