;*****************************************************;
;						      ;
;  XCALL PACMAN      - sets terminal into image mode  ;
;  XCALL PACMAN, var$ - gets a char from terminal     ;
;						      ;
;*****************************************************;

	OBJNAM	PACMAN.SBR

	SEARCH	SYS
	SEARCH	SYSSYM
	SEARCH	TRM
	COPY	XCALL

	PHDR	-1,0,PH$REE!PH$REU

START:	TSTW	XC.ARG(A3)
	BNE	GETCHR

SETTRM:	JOBIDX	A0
	MOV	JOBTRM(A0),A1
	ORW	#T$IMI!T$ECS,T.STS(A1)
	RTN

GETCHR:	MOV	XC.AD1(A3),A2
	JOBIDX	A0
	MOV	JOBTRM(A0),A5
	TST	T.ICC(A5)
	BEQ	10$
	TTYIN
	MOVB	D1,(A2)+
10$:	CLRB	@A2
	RTN

	END

.