Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
uuocon.c12
There are no other files named uuocon.c12 in the archive.
REP 34/99 ;12C1
UATC1C:
WIT
UATC1C: JUMPE U,UATC1X ;JUMP IF NO "FROM" TTY
REP 40/99 ;12C2
HLRZ U,0(P) ;GET LINE NUMBER
WIT
UATC1X: HLRZ U,0(P) ;GET LINE NUMBER
REP 28/167 ;12C3
SKIPGE (P) ;SIGN BIT OF MODE-WORD=1?
WIT
MOVSI T2,(UP.FIP) ;FILOP. IN PROGRESS?
TLNN T1,-1 ;OR LH NON-ZERO?
TDNE T2,.USBTS ;...
JRST UINIA1 ;YES
CAIGE T1,1000 ;LEGAL UDX FOR AN OPEN UUO?
JRST UOPE12 ;NO, RETURN 'NO SUCH DEVICE' ERROR
UINIA1: SKIPGE (P) ;SIGN BIT OF MODE-WORD=1?
REP 8/169 ;12C4
DPB T2,IADPTR## ;YES, STORE UPDATED CHANNEL COUNT FOR THIS DEV(DTA)
WIT
CAILE T2,1 ;MORE THAN ONE CHANNEL?
JRST [MOVEI T4,DNAERR ;YES, GIVE AN ERROR
JRST UINIT6] ;DON'T ALLOW
DPB T2,IADPTR## ;STORE UPDATED CHANNEL COUNT FOR THIS DEV(DTA)
REP 41/181 ;12C5
EXCTXU <MOVEM S,-1(T1)> ;PUT S-WORD BACK
WIT
HRRZ T2,DEVEVM(F) ;GET EVM ADDRESS IF ANY
SKIPE T2 ;STILL HAVE EVM?
MOVEM S,-1(T1) ;YES, PUT S-WORD BACK (BUFFER IN EVM)
SKIPN T2 ;STILL HAVE EVM?
EXCTXU <MOVEM S,-1(T1)> ;NO, PUT S-WORD BACK
SUM 37141