.TITLE	USIAST
;
; CALL USIAST(EFN,LUN,IDS,ISB,USICHR)
	.MCALL	QIOW$,DIR$,ASTX$S
ADRCHR:	.WORD	0
QIOREF:	QIOW$	IO.ATA!TF.XCC,,,,,,ASTEXT
USIAST::
	MOV	@2(R5),QIOREF+Q.IOEF	;MOVE EVENT FLAG NUMBER
	MOV	@4(R5),QIOREF+Q.IOLU	;GET TERMINAL LOGICAL UNIT
	MOV	6(R5),QIOREF+Q.IOSB	;MOVE ADDR OF IOSB
	MOV	12(R5),ADRCHR		;GET ADDR OF USICHR
	CLRB	@12(R5)			;ZERO CHARACTER
	DIR$	#QIOREF
	MOV	$DSW,@10(R5)		;RETURN DSW
	RETURN
ASTEXT:	MOVB	(SP)+,@ADRCHR
	ASTX$S
	.END