Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93g-bb - ibmspl.c09
There are 13 other files named ibmspl.c09 in the archive. Click here to see a list.
 REP 21/3	;09C1
		XP	IBMEDT,	361		; Edit level
 WIT
		XP	IBMEDT,	364		; Edit level
 REP 455/4	;09C2
	4(356)	16-Jan-84	GKN	SPR 10-34449.  Security problem.  IBMSPL doesn't
 WIT
	4(356)	16-Jan-84	GKN	SPR 10-34449. Security problem. IBMSPL doesn't
 REP 459/4	;09C3
	4(357)	23-Jan-84	GKN	SPR 10-34425.  Fix off-by-1 problem in the VOUTX
 WIT
	4(357)	23-Jan-84	GKN	SPR 10-34425. Fix off-by-1 problem in the VOUTX
 INS 466/4	;09C4
	4(362)	18-May-84	DRB	At LPTJOB: change call to INIPAG so that AC S
					does not get lost
	4(363)	18-May-84	DRB	Prevent restarting a node if a previous
					shutdown has not yet completed.
	4(364)	24-Sep-84	TPW	Fix edit 356 to prevent access violation
					using /DELETE switch with control files.
 REP 40/34	;09C5
		JUMPF	SETSN1			; If we can't, send error to QUASAR
 WIT
		JUMPF	SETCHK			; [363] Can't
 INS 139/34	;09C6
	SETCHK:					; [363] Here on failure to set up
						;       line block
		JUMPE	LB,SETSN1		; [363] If no LB, fail now.
		LOAD	S1,,L.STS		; [363] Get line status
		TXNN	S1,L.SFR		; [363] Is signoff pending
		 JRST	SETSN1			; [363]  No
		SETZ	LB,0			; [363]  Yes, don't force shutdown now
		$WTOJ	<failed to restart node>,<previous SHUTDOWN still in progress for node ^N/SUP.NO(P1)/>,SUP.TY(P1)	; [363]
		JRST	SETSN1			; [363]

 REP 91/53	;09C7
		LOAD	S1,.FPINF(P2),FP.DEL	;check switches
		JUMPE	S1,DOJB4A		;no delete request anyhow
		PUSH	P,P3			;user requested delete of batch file
		MOVEI	S1,1			;short FOB
		MOVEI	S2,(P)			; on the pdl
		$CALL	F%DEL			;delete the sucker
		POP	P,P3			;carefully restore the pdl
 WIT

		TXNE	GOODBY!ABORT		;[364] Aborting job?
		JRST	DOJB4A			;[364] Then don't process switches
		LOAD	S1,.FPINF(P2),FP.DEL	;check switches
		JUMPE	S1,DOJB4A		;no delete request anyhow

		MOVEM	P3,FOB			;[364] Save the FD ptr
		MOVE	S1,FOB.CW		;[364] Get the control info
		MOVEM	S1,FOB+FOB.CW		;[364] Put it in our FOB area
	TOPS20<	HRROI	S1,.EQOWN(J)		;[364] User name from request header
		HRROI	S2,.EQCON(J)		;[364] Connected directory
	>;End TOPS-20
	TOPS10< MOVE	S1,.EQOID(J)		;[364] PPN from request header
		SETZM	S2			;[364] FOB.CD not used in Tops-10
	>;End TOPS-10
		MOVEM	S1,FOB+FOB.US		;[364] Put user info in our FOB
		MOVEM	S2,FOB+FOB.CD		;[364]   and connected directory
		

		MOVEI	S1,FOB.SZ		;[364] Size of the block
		MOVE	S2,.EQJBB+JIB.SQ(J)	;[364] Get word with possible priv bit
		TXNE	S2,EQ.PRV		;[364] Is priv bit set?
		MOVEI	S1,FOB.MZ		;[364] Yes..pass the short FOB 
		MOVEI	S2,FOB			;[364] Address of block
		$CALL	F%DEL			;delete the sucker
 REP 20/57	;09C8
	LPTJOB:	$CALL	INIPAG			; Initialize job pages so TEXT calls work
 WIT
	LPTJOB:	STORE	S,S+T%ACS		; [362] store S in AC block because
						;   INIPAG updates it there
		$CALL	INIPAG			; [362] make sure pages are set up
		LOAD	S,S+T%ACS		; [362] restore updated S
		JUMPF	.POPJ			; [362] propagate error if we cannot
		LOAD	J,J+T%ACS		; [362] get pointer to pages

 INS 68/73	;09C9
		SETZ	LB,0			; [363] Line block is not valid
 REP 9/128	;09C10
	IACTND:	skipn	s2,debugw		;[361] Check if debug switch on.
 WIT
	IACTND:	SKIPN	S2,DEBUGW		;[361] Check if debug switch on.
 SUM 12947