;  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

.