Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - oprqsr.c08
There is 1 other file named oprqsr.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
		SUBTTL	Murray Berkowitz/PJT	1-Jan-82
 WIT
		SUBTTL	Murray Berkowitz/PJT/LWS	2-Mar-84
 REP 32/1	;08C2
		QSREDT==:74			;OPRQSR EDIT NUMBER
 WIT
		QSREDT==:77			;OPRQSR EDIT NUMBER
 INS 162/1	;08C3
	75	21-Oct-83 Only allow tape devices in START PRINTER /DEVICE command.
		Change code in PSDEVI so DEVCHR bits are returned. /LWS

	76	2-Nov-83 Change edit 75 because it would cause too much grief.
		Allow everything but disks in START PRINTER /DEVICE. /LWS

	77	2-Mar-84 Add PBI (P$DEV blew it) when P$DEV returns a device name
		that is zero. This is one the causes of the former QBI stopcode
		in QUASAR. Edit 1163 to GLXLIB (Edit 102 to GLXSCN) should prevent
		a PBI from occurring, but just in case.... /LWS
 REP 46/3	;08C4
		PJRST	CMDEND			;NO CHECK FOR END AND RETURN
 WIT
	;**;[76] Change EDIT 75. Would cause to much grief. 2-Nov-83
		TXNN	S1,DV.DSK		;[75][76] DISK ON /DEVICE: ?
		PJRST	CMDEND			;NO,,CHECK FOR END AND RETURN
		PJRST	E$IDS			;[75] YES,,INVALID DEVICE SPECIFIED
 REP 8/32	;08C5
	PSTA.1:	$CALL	GETTAP			;GET A TAPE DEVICE
 WIT
	;**;[77] Insert 2 lines at PSTA.1+0L. /LWS
	PSTA.1:	SKIPN	ARG.DA(S1)		;[77] DEVICE BETTER NOT BE ZERO!!!!
		$STOP	(PBI,<P$DEV blew it>)	;[77] (SIGH) SOME PARSER
		$CALL	GETTAP			;GET A TAPE DEVICE
 REP 40/32	;08C6

 WIT
	;**;[75]	DEVCHR bits returned in S1
 REP 47/32	;08C7
		DMOVE	S1,T1			;RESTORE THE ARGUMENTS
		MOVX	T1,.CMDEV		;TAPE DEVICE BLOCK
		STORE	T1,ARG.HD(S1),AR.TYP	;SAVE THE TYPE
		PJRST	MOVARG			;MOVE THE BLOCK AND RETURN
 WIT
	;**;[75] Redo code in PSDEVI so DEVCHR bits are returned in S1. 21-Oct-83 /LWS
		MOVE	S1,T1			;[75] RESTORE ARGUMENTS	AND SAVE
		EXCH	S2,T2			;[75]  DEVCHR BITS
		MOVX	T1,.CMDEV		;TAPE DEVICE BLOCK
		STORE	T1,ARG.HD(S1),AR.TYP	;SAVE THE TYPE
		$CALL	MOVARG			;[75] MOVE THE BLOCK
		MOVE	S1,T2			;[75] GET DEVCHR BITS
		$RET				;[75] RETURN
 SUM 95644