Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - orion.c09
There is 1 other file named orion.c09 in the archive. Click here to see a list.
 REP 55/1	;09C1
		ORNEDT==344
 WIT
		ORNEDT==346
 INS 514/3	;09C2

	345	Add support for .QBTTY block sent by [SYSTEM]GOPHER for
		'SEND OPR'.
		SPRs 10-34442, 10-34454 GCO 10037 24-May-84 /LWS

	346	7/31/83 Code at APLHEL+17 assumed that there is or would always
		        be just one application. Also, it doesn't even store the
		        address correctly of the "one and only" name string.
		        SPR 10-34806	GCO 10062 /LWS
 REP 14/7	;09C3

		WDAEND==WDAACD			;END OF WTO FIELDS
 WIT
		$DATA	WDATTY,1		;[345] WTO TTY NAME (FROM 'SEND OPR')
		$DATA	WDATNL,1		;[345] WTO TTY NODE,,LINE (FROM 'SEND OPR')
		$DATA	WDANOD,1		;[345] WTO SIXBIT NODE NAME

		WDAEND==WDANOD			;[345] END OF WTO FIELDS
 INS 57/17	;09C4
		XWD	.QBTTY,.WTTTY		;[345] TTY NAME BLOCK -- MAP IT
 REP 25/22	;09C5
		MOVEI	S2,APLTAB+1		;ADDRESS OF FIRST ENTRY
		HLRZM	S2,G$ARG1		;SAVE NAME FOR MESSAGES
		SUB	S1,S2			;GET TABLE OFFSET
 WIT
	;**;[346] Fix code at APLHEL+17L. /LWS
		HLRZ	S2,(S1)			;[346] GET ADDRESS OF APPLICATION NAME
		MOVEM	S2,G$ARG1		;[346] STORE FOR TYPEOUT
		SUBI	S1,APLTAB+1		;[346] COMPUTE OFFSET
 INS 58/36	;09C6
		.WTTTY,,WTOTTY			;[345] PROCESS TTY NAME BLOCK
 INS 49/38	;09C7
	WTOTTY:
	TOPS10 <
		TXOE	FLAG,F.WTTY		;TTY NAME ALREADY GIVEN ?
		PJRST	E$DTM			;YES,,COMPLAIN
		CAIE	P3,ARG.SZ+1		;PROPER SIZE?
		PJRST	E$IAL			;NO,,COMPLAIN
		MOVE	S1,ARG.DA+.QBTTN(P1)	;GET TTY NAME
		MOVEM	S1,WDATTY		;SAVE IT
		MOVE	S1,ARG.DA+.QBTNL(P1)	;GET NODE #,,LINE #
		MOVEM	S1,WDATNL		;SAVE IT
		JUMPL	S1,.RETT		;IF TTY NOT CONNECTED, RETURN
		HLRZ	S2,S1			;GET NODE NUMBER IN RH
		MOVEI	S1,2			;GET ARGBLK LENGTH
		MOVE	TF,[.NDRNN,,S1]		;GET SIXBIT NODE NAME FUNCTION
		NODE.	TF,			;ASK MONITOR
		SETOM	WDATNL			;INDICATE NO NODE/LINE
		MOVEM	TF,WDANOD		;STORE SIXBIT NODE NAME
	>
		$RETT				;RETURN
 REP 61/47	;09C8
	GETJ.3:	MOVEI	T1,[ITEXT (<job ^D/JOBNUM/ ^P/G$SID/>)]
		MOVEM	T1,JOBTXT		;SAVE AS JOBTXT
		SETOM	JOBTTY			;NO JOB FLAG
 WIT
	GETJ.3:	SETOM	JOBTTY			;[345] NO JOB FLAG
		TXZN	FLAG,F.WTTY		;[345] TTY NAME BLOCK ?
		JRST	GETJ.4			;[345] NOPE,,CONINUE
		SKIPL	WDATNL			;[345] TTY CONNECT
		SKIPA	T1,[[ITEXT(<job ^D/JOBNUM/ ^P/G$SID/ at ^W/WDATTY/ on ^W/WDANOD/(^O/WDATNL,LHMASK/)_^O/WDATNL,RHMASK/>)]] ;[345]
		MOVEI	T1,[ITEXT(<job ^D/JOBNUM/ ^P/G$SID/ at ^W/WDATTY/>)] ;[345]
		MOVEM	T1,JOBTXT		;[345] STORE ITEXT ADDRESS
		$RETT				;[345] RETURN
	GETJ.4:	MOVEI	T1,[ITEXT (<job ^D/JOBNUM/ ^P/G$SID/>)] ;[345]
		MOVEM	T1,JOBTXT		;SAVE AS JOBTXT
 SUM 205623