Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
scnser.c12
There are no other files named scnser.c12 in the archive.
REP 35/91 ;12C1
POP P,T2 ;RESTORE OLD CHARACTER
TRNE T2,200 ;PARITY/VTM ECHO BIT?
TRO T3,200 ;YES, ADD IT
POPJ P,
WIT
PJRST T2POPJ## ;DISCARD OLD CHARACTER AND RETURN
INS 16/204 ;12C2
MOVEI T1,0 ;WITH UNKNOWN APC CHARACTERISTICS
DPB T1,LDPAPC ; . . .
REP 17/206 ;12C3
APCSET::LDB T1,LDPAPC ;GET CURRENT APC SETTING
IFN FTNET,<
MOVEI T2,LDRREM ;GET THE REMOTE BIT
MOVSI T3,LRLCHR ;AND THE CHARACTERISTICS BIT
TDNE T2,LDBDCH(U) ;IS THIS A REMOTE LINE?
TDNE T3,LDBREM(U) ;YES--HAVE WE RECEIVED ANY YET?
> ;END IFN FTNET
JUMPN T1,CPOPJ## ;RETURN IF ALREADY HAVE APC
MOVEI T1,APCHWD ;ASSUME A HARDWIRED LINE
WIT
APCSET::LDB T1,LDPAPC ;GET CURRENT APC SETTING
JUMPN T1,CPOPJ## ;RETURN IF ALREADY HAVE APC
MOVEI T1,APCHWD ;ASSUME A HARDWIRED LINE
DEL 32/206 ;12C4
IFN FTNET,<
MOVSI T2,LRLADL ;AUTODIALER BIT
TDNE T2,LDBREM(U) ;SET?
MOVEI T1,APCADL ;YES
> ;END IFN FTNET
SUM 47485