;	TTYZ AUTOBAUD PATCH
;
;	WHEN IN THE EDITOR, INSERT VERNS PATCH
;
;70$:	BISB	R2,TCR+1(R3)	;SET DTR
;	BITB	R2,MSR+1(R3)	;CARRIER ON?
;	BEQ	80$		;N - JUMP
;	MOV	#T$$ZAN,-(SP)	;GET ANSWERING PARAMETERS
; BEGIN VERN'S DUAL SPEED PATCH
;	BITB	R2,MSR(R3)	;IF HIGH SPEED ("RING SIGNAL")
;	BEQ	75$		; THEN
;	BIS	#3400,(SP)	;  SET SPEED TO 1200 BAUD
;75$:
; END PATCH
;	BISB	U.UNIT-U.TSTA(R5),@SP ;MASK IN LINE NUMBER
;	MOV	@SP,LPR(R3)	;LOAD PARAMETERS
;	CALL	MANS		;ANSWER CALL
;
SET /UIC=[11,10]
EDT TTYZ.MAC
MAC TTYZ.TTY=[1,1]EXEMC/ML,[11,10]RSXMC,TTMAC,TTYZ
SET /UIC=[1,24]
LBR TTDRV=[11,10]TTYZ.TTY/RP
TKB @TTDRVBLD
;
;	AUTOBAUD PATCH FIXED, RELOAD TT:
SET /UIC=[5,10]
