Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-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