Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - qsrdsp.c08
There is 1 other file named qsrdsp.c08 in the archive. Click here to see a list.
 REP 23/3	;08C1
	BYTPTR:	BLOCK	1		;BYTE POINTER FOR $TEXT ROUTINE.
 WIT
	;**;[1206]ADD 1 LINE AFTER NODE6B:	20-APR-84/CTK
	KLUDGE: BLOCK   1		;[1206]KLUDGE FLAG TO HANDLE SHO Q CONFLICTS
	BYTPTR: BLOCK   1               ;BYTE POINTER FOR $TEXT ROUTINE.
 INS 25/7	;08C2
	;**;[1177]ADD 2 LINES AT STPR.1:+8L	9-MAR-84/CTK
		SKIPE	NOROOM			;[1177]ROOM IN THE CURRENT BUFFER ?
		PUSHJ	P,PAGOVF		;[1177]NO,,SEND CURRENT AND CONTINUE
 REP 38/9	;08C3
		SKIPN	S2,OBJ.ND(S2)		;IF NO NODES,
		JRST	CHKO.1			;WIN,,CHECK FOR DN60 EMULATION
		CAME	S2,[-1]			;IF ALL NODES,
		CAMN	S2,NETNAM(P1)		;   OR IF WE MATCH BY NAME,
		SKIPA				;THEN CHECK FOR DN60 EMULATION
		CAMN	S2,NETNBR(P1)		;IF WE MATCH BY NODE NUMBER,
		SKIPA				;THEN CHECK FOR DN60 EMULATION
		$RETF				;ELSE RETURN FALSE

 WIT
	;**;[1206]REVAMP CODE AT CHKO.0:+6L	20-APR-84/CTK
		MOVE    S2,OBJ.ND(S2)           ;[1206]GET THIS OBJECT NODE
		CAMN    S2,[-1]                 ;[1206]IS IT ALL NODES?
		JRST    CHKO.1                  ;[1206]YES, SKIP THIS
		MOVE	S1,OBJNOD(T1)		;[1206]GET THE OBJECTS NODE NAME
		$CALL   N$MTCH                  ;[1206]CHECK FOR MATCH
		$RETIF                          ;[1206]QUIT IF NOT THIS ONE
 INS 9/15	;08C4
	;**;[1206]ADD 1 LINE AT NRM.1:+1L	20-APR-84/CTK
		SKIPN	S1,NETCOL(P1)		;[1206]GET NODE NUMBER, IS IT 0 ???
 REP 37/20	;08C5
	STAP.Z:	SKIPN	S1,.UCBVS(P1)		;GET VSL ADDRESS JUST IN CASE
		JRST	STAP.5			;NO OWNER,,SKIP THIS
		MOVE	AP,.VSMDR(S1)		;GET THE OWNER MDR ADDRESS
 WIT
	STAP.Z:	SKIPN	T1,.UCBVS(P1)		;[1173] GET VSL ADDRESS JUST IN CASE
		JRST	STAP.5			;NO OWNER,,SKIP THIS
		MOVE	AP,.VSMDR(T1)		;[1173] GET THE OWNER MDR ADDRESS
 REP 43/20	;08C6
		$TEXT(DEPBYT,<^D6R /.QERID(S2)/ ^I/MNTUSR/ ^15/.MRFLG(AP),MR.QUE/^A>)
 WIT
		$TEXT(DEPBYT,<^D6R /.QERID(S2)/ ^I/MNTUSR/ ^15/.VSRFL(T1),MR.QUE/^A>) ;[1173]
 INS 10/27	;08C7
		$SAVE	<T1>			;[1173]
 REP 24/27	;08C8
		MOVE	S1,0(P2)		;AIM AT THE VSL
		SKIPN	S1,.VSMDR(S1)		;BACK UP TO THE MDR
 WIT
		MOVE	T1,0(P2)		;[1173] AIM AT THE VSL
		SKIPN	S1,.VSMDR(T1)		;[1173] BACK UP TO THE MDR
 REP 36/27	;08C9
		$TEXT	(<-1,,G$MSG>,< (^15/.MRFLG(P4),MR.QUE/^0)>) ;Get type for trailer
 WIT
		$TEXT	(<-1,,G$MSG>,< (^15/.VSRFL(T1),MR.QUE/^0)>) ;[1173] Get type for trailer
 REP 24/34	;08C10
		TXNN	P1,VL.ASN		;DOES THE USER HAVE IT MOUNTED ???
		JRST	SMTS.1			;NO,,MAKE IT WAITING
		LOAD	T1,.VLFLG(P2),VL.STA	;GET THE VOLUME STATUS
 WIT
		LOAD	T1,.VLFLG(P2),VL.STA	;[1164] GET THE VOLUME STATUS
		TXNN	P1,VL.ASN		;DOES THE USER HAVE IT MOUNTED ???
		JRST	SMTS.1			;NO,,MAKE IT WAITING
 REP 32/34	;08C11
		CAXN	T1,%STAWT		;IS IT 'WAITING' ???

	SMTS.1:	$ASCII	(<Waiting   >)		;YES,,SAY SO
 WIT
		POPJ	P,			;[1164] RETURN

	SMTS.1:	CAXN	T1,%STAWT		;[1164] IS IT 'WAITING' ???
		$ASCII	(<Waiting   >)		;YES,,SAY SO
		CAXN	T1,%STAIN		;[1164] IS IT 'INITIALIZING'???
		$ASCII	(<Initial   >)		;[1164] YES,,SAY SO
 REP 78/34	;08C12
		$TEXT	(DEPBYT,<^D6R /.VSRID(P1),VS.RID/  ^D4R /S1/  ^T20/G$MSG/ ^15/.MRFLG(AP),MR.QUE/>)
 WIT
		$TEXT	(DEPBYT,<^D6R /.VSRID(P1),VS.RID/  ^D4R /S1/  ^T20/G$MSG/ ^15/.VSRFL(P1),MR.QUE/>) ;[1173]
 REP 112/34	;08C13
		TXNE	T1,VS.SCR!VS.NEW	;ARE THE SCRATCH OR NEW BITS ON?
 WIT
		TXNE	T1,VS.NEW!VS.INI	;[1164] REINITIALIZING?
		JRST	SMNA.2			;[1164] YES,,JUMP OVER SCRATCH STUFF
		TXNE	T1,VS.SCR		;[1164] NO,,IS THE SCRATCH BIT ON?
 REP 117/34	;08C14
		CAIN	S1,%LABEL		;YES
		$TEXT	(DEPBYT,<   Initialize new tape with volume-id: ^W/.VLNAM(P2)/ protection: ^O3/.VSATR(P1),VS.PRT/>)
 WIT
		CAIN	S1,%LABEL		;[1164] YES
		$TEXT	(DEPBYT,<   Initialize new/scratch tape: - Volume-id: ^W/.VLNAM(P2)/ - Protection: ^O3/.VSATR(P1),VS.PRT/>) ;[1164]
		$RETT				;[1164] GO AWAY

	SMNA.2:	LOAD	S1,.VSCVL(P1),VS.CNT	;[1164] GET NUMBER OF VOLS
		CAIE	S1,1			;[1164] ONLY 1 VOL?
		SKIPA	T1,[BYTE (7) "s",0,0,0,0] ;[1164] NO
		SETZM	T1			;[1164] YES
		$TEXT	(DEPBYT,<   Reinitializing ^D/S1/ volume^T/T1/>) ;[1164]
 REP 3/41	;08C15
	DEPOUT:	SKIPN	NODE6B			;CHECK FOR KLUDGE
 WIT
	DEPOUT:
	;**;[1206]ADD 1 LINE DEPOUT:+0L		20-APR-84/CTK
		SKIPN   KLUDGE                  ;[1206]CHECK FOR KLUDGE
 INS 43/41	;08C16
	;**;[1206]ADD 1 LINE AT DEPBAT:+3L	20-APR-84/CTK
		SKIPE   KLUDGE                  ;[1206]CHECK FOR KLUDGE
 REP 33/51	;08C17
		MOVEI	S1,.QEROB(AP)		;GET THE REQ OBK BLK ADDRESS
		SETZM	S2			;NO OBJECT MATCH
		PUSHJ	P,N$CSTN##		;PERFORM ANY ROUTING
		PUSHJ	P,N$LOCL##		;IS IT A LOCAL NODE ???
 WIT
	;**;[1156] Insert 5 lines and 2 labels after DMPS.3+1L. 7-Nov-83 /LWS
		SKIPE	JOBACT			;[1156] JOB ACTIVE?
		JRST	DMPS3A			;[1156] YES,,GO CHECK ROUTING
		MOVE	S1,.QEROB+.ROBND(AP)	;[1156] NO,,GET NODE NAME
		PUSHJ	P,N$NODE		;[1156] CHECK IT OUT
		JRST	DMPS3B			;[1156] CONTINUE
	DMPS3A:	MOVEI	S1,.QEROB(AP)		;[1156] GET THE REQ OBK BLK ADDRESS
		SETZM	S2			;NO OBJECT MATCH
		PUSHJ	P,N$CSTN##		;PERFORM ANY ROUTING
	DMPS3B:	PUSHJ	P,N$LOCL##		;[1156] IS IT A LOCAL NODE ???
 REP 39/53	;08C18
	DMPS.7:	DMOVE	S1,LASTPT		;GET THE LAST BYTPTR AND BYTCNT
		SKIPE	CRLFLG			;ARE WE STILL AT THE START OF THE LINE
		DMOVEM	S1,BYTPTR		;YES,,RESET THE BYTPTR AND BYTCNT
		SKIPN	CRLFLG			;SKIP IF WE DONT NEED A CRLF
 WIT
	DMPS.7:
	;**;[1200]REVAMP CODE AT DMPS.7:+0L	11-MAR-84/CTK
		SKIPN	CRLFLG			;[1200]START OF THE LINE ??
		  JRST	DMPS.8			;[1200]NO, OUTPUT A CRLF
		MOVX	S1,.CHNUL		;[1200]YES, GET A NULL CHARACTER
		DPB	S1,BYTPTR		;[1200]CLEAR TAB IN BUFFER
		DMOVE	S1,LASTPT		;[1200]GET THE LAST BYTPTR AND BYTCNT
		DMOVEM	S1,BYTPTR		;[1200]RESET THE BYTPTR AND BYTCNT
		$RETT				;[1200]AND RETURN
 REP 68/55	;08C19
	GETP.2:	MOVE	T1,NODE6B		;GET /NODE
 WIT
	GETP.2:
	;**;[1206]ADD 1 LINE AT GETP.2:+0L	20-APR-84/CTK
		SETOM   KLUDGE                  ;[1206]TURN OFF KLUDGE
		MOVE	T1,NODE6B		;GET /NODE
 REP 77/55	;08C20
		SETZM	NODE6B			;FLAG KLUDGE
 WIT
	;**;[1206]ADD 1 LINE AT GETP.2:+10L	20-APR-84/CTK
		SETZM	KLUDGE			;[1206]FLAG KLUDGE
 SUM 103414