Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
uuocon.c09
There is 1 other file named uuocon.c09 in the archive. Click here to see a list.
INS 13/73 ;09C1
IFN FTNET,<
TLNN T1,DVTTY ;IS THIS A TTY?
JRST DVCH4 ;NO, SKIP VTM TEST
MOVE T2,DDBLDB(F) ;YES, GET LDB
JUMPE T2,DVCH4 ;OK IF NONE
SKIPGE LDBREM##(T2) ;VTM + SET HOST?
TLZ T1,DVAVAL ;YES, IT'S NOT AVAILABLE AFTER ALL
DVCH4:
>
INS 19/83 ;09C2
PUSHJ P,GTNTS1 ;GET [NODE #,,LINE #] IN T1
JRST ECOD2## ;TTY NOT CONNECTED
PJRST STOTC1## ;RETURN THE NODE,,LINE
;COMMON SUBROUTINE TO GET NODE AND LINE NUMBER
;ARG U=LDB ADDRESS
;RETURN CPOPJ IF TTY NOT CONNECTED OR SET HOSTED AWAY
; CPOPJ1 WITH T1=XWD NODE NUMBER,LINE NUMBER
GTNTS1:: ;GLOBAL ENTRY
REP 22/83 ;09C3
JRST GTNTN1 ;NO, LOCAL TTY
MOVE T2,LDBREM##(U) ;GET THE WORD WITH "CONNECTED" BIT
TLNN T2,LRLCON## ;IS THIS TERMINAL CONNECTED
JRST ECOD2## ;TERMINAL NOT CONNECTED. TELL THE USER
WIT
JRST GTNTSL ;NO, LOCAL TTY
MOVE T2,LDBREM##(U) ;GET THE WORD WITH "CONNECTED" BIT
TLNN T2,LRLCON## ;IS THIS TERMINAL CONNECTED
POPJ P, ;TERMINAL NOT CONNECTED.
REP 29/83 ;09C4
PJRST STOTC1## ;EXIT
GTNTN1: SKIPGE LDBREM##(U) ;IF LOCAL LINE SET HOSTED AWAY
JRST ECOD2## ;THEN GIVE NOT CONNECTED RETURN
WIT
PJRST CPOPJ1 ;EXIT
GTNTSL: SKIPGE LDBREM##(U) ;IF LOCAL LINE SET HOSTED AWAY
POPJ P, ;THEN GIVE NOT CONNECTED RETURN
REP 38/83 ;09C5
PJRST STOTC1## ;RETURN THE NODE,,LINE
WIT
PJRST CPOPJ1 ;GIVE GOOD RETURN
REP 6/143 ;09C6
HRRZ T1,.USCTA ;AN EXTENDED CHANNEL TABLE ALREADY SETUP?
WIT
HRRZ T1,.USCTA ;AN EXTENDED CHANNEL TABLE ALREADY SETUP?
REP 11/143 ;09C7
HRRM T1,.USCTA ;STORE THE ADDRESS OF THE XCT
WIT
HRRM T1,.USCTA ;STORE THE ADDRESS OF THE XCT
REP 58/151 ;09C8
MOVEI T1,1 ;LOST, ERROR CODE=1
WIT
HRRZ T1,S ;LOST, RETURN ERROR STATUS BITS
REP 6/174 ;09C9
WCHFIL: MOVE J,.CPJOB##
WIT
WCHFIL::MOVSI T1,(UP.SWF) ;ALREADY TYPED IT?
TDNE T1,.USBTS
JRST [ANDCAM T1,.USBTS ;YES, CLEAR THE FLAG
POPJ P,]
MOVE J,.CPJOB##
INS 41/194 ;09C10
MOVE T2,DEVMOD(F) ;GET DEVMOD
DEL 44/194 ;09C11
MOVE T2,DEVMOD(F) ;GET DEVMOD
SUM 183590