;*****************************************************;
;                                                     ;
;  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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.