;  SENSE.M68
;  SENSE BAUD RATE OF ATTACHED TERMINAL
;  David F. Pallmann               4/84

       SEARCH  SYS
       SEARCH  SYSSYM
       SEARCH  TRM

       LF=12
       CR=15

START:  PHDR    -2,0,PH$REU
       CALL    DATA.MODE

HIGH:   CALL    SET.1200
       CALL    STROBE
LOW:    CALL    SET.300
       CALL    STROBE
       BR      HIGH

STROBE: KBD     EXIT
       CMPB    D1,#CR
       BEQ     10$
       KBD     EXIT
       CMPB    D1,#CR
       BNE     20$
10$:    CMPB    D1,#CR
       BNE     STROBE
       KBD     EXIT
       CMPB    D1,#CR
       BNE     20$
       CRLF
       TYPECR  *** Baud Rate Established ***
       CRLF
       JOBIDX  A0
       MOV     JOBTRM(A0),A1
       CLR     T.ICC(A1)
       EXIT
20$:    RTN

EXIT:   EXIT

SET.300:
       LEA     A2,CMD.300
       CALL    EXECUT
       RTN

SET.1200:
       LEA     A2,CMD.1200
       CALL    EXECUT
       RTN

EXECUT: AMOS
       JOBIDX  A0
       MOV     #[SEN]_16.+[SE ],JOBPRG(A0)
       CALL    DATA.MODE
       RTN

DATA.MODE:
       JOBIDX  A0
       MOV     JOBTRM(A0),A0
       ORW     #T$DAT!T$ECS,T.STS(A0)
       RTN

CMD.300:
       ASCII   /BAUD 300/
       BYTE    CR,LF,0

CMD.1200:
       ASCII   /BAUD 1200/
       BYTE    CR,LF,0

       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.