Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 INS 4/2	;12C1
	;JSM	22-APR-85 [1143] Change where programs fail if missing ISAM files.
	;BCM	17-APR-85 [1142] TOPS-10 fix logical name problem when no PPN given
 REP 34/22	;12C2
		 JRST	[CAIE	AC1,600130	;INVALID SMU ACCESS?
			JRST	[OUTSTR	[ASCIZ /RESET time /]
				JRST	OCPERR	]
 WIT
		 JRST	[CAIE	AC1,OPNX9 ;[1143] INVALID SMU ACCESS?
			JRST	RSTID1	;[1143] IF FNF, GO SET FLAG AND LET USER GO TO OPEN
 REP 72/22	;12C3
	RSTID1:	HLLZ	AC1,D.F1(I16)	;[377] GET FLG1 PARMS
		TLNN	AC1,FILOPT	;[374] OPTIONAL FILE?
		JRST	RSTID8		;[323] NO, FATAL
 WIT
	RSTID1:	POP	PP,AC1		;[1143] GET BACK TO RIGHT PLACE ON STACK
 REP 78/22	;12C4
		POP	PP,.JBFF	;RESTORE THE STACK
 WIT
		POP	PP,.JBFF	;[1143] RESTORES .JBFF FROM STACK
 INS 24/63	;12C5
		MOVEI	AC1,.PTFRN	;[1142] SET RETURN INFO ABOUT PATH
		MOVEM	AC1,PTH.BK##	;[1142] INTO ARG BLOCK
		MOVSI	AC1,(PT.RCN)	;[1142] SET RETURN DATA ABOUT CURRENT LOGICAL
		MOVEM	AC1,PTH.BK+.PTLNF ;[1142] PATH NAME
		MOVE	AC1,UOBLK.+1	;[1142] GET SIXBIT DEVICE NAME
		MOVEM	AC1,PTH.BK+.PTLNM ;[1142] INTO ARG BLOCK
		MOVE	AC1,[XWD 4,PTH.BK##] ;[1142] INDICATE PATH ARG BLOCK LOC
		PATH.	AC1,		;[1142] SEE IF ITS A LOGICAL NAME
		  JRST	OPNF2B		;[1142] ITS NOT
	;[1142] SET PATH BLOCK TO RETURN FILES PATH LOCATION
		MOVSI	AC1,(PT.RCN)	;[1142] SET RETURN DATA ABOUT LOGICAL
		MOVEM	AC1,PTH.BK##+.PTLNF ;[1142] PATH NAME
		SETZ	AC5,		;[1142] FORCE PPN TO BE ZERO
		MOVE	AC1,[XWD .PTMAX,PTH.BK] ;[1142] SET PATH BLOCK PTR INTO
		MOVEM	AC1,FOP.BK+.FOPAT ;[1142] THE FILOP ARG BLOCK SO WE GET THE
		JRST	OPNF2A		;[1142] PATH OF WHERE FILE IS
	OPNF2B:
 SUM 17345