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