Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - comcon.c08
There is 1 other file named comcon.c08 in the archive. Click here to see a list.
 INS 26/91	;08C1
		MOVSI	T2,(PD.PGR)	;.STPGM RUN IN PROGRESS
		IORM	T2,.PDDFL##(W)	;FLAG FOR SGRELE
 REP 20/194	;08C2
	PAGOU0:	HRRZ	T2,.JDAT+JOBINT## ;GET START OF INTERRUPT BLOCK
		TRZ	T2,PAGSIZ##-1	;FIND START OF PAGE
		CAIN	T2,(T1)		;IS THIS THAT PAGE?
		 POPJ	P,		;ERROR RETURN
		PUSH	P,T1		;SAVE PAGE #
 WIT
	PAGOU0:	PUSH	P,T1		;SAVE PAGE #
		HRRZ	T1,.JDAT+JOBINT##;GET ADDRESS OF JOBINT BLOCK
		HRRZI	T2,3(T1)	;END ADDRESS OF JOBINT BLOCK
		TRZ	T1,PAGSIZ##-1	;MAKE START ADDRESS A PAGE BOUNDARY
		LSHC	T1,W2PLSH##	;CONVERT BOTH TO PAGE NUMBERS
		CAME	T1,(P)		;IS START PAGE OF JBINT BLOCK IN THIS PAGE?
		CAMN	T2,(P)		;IS END OF JBINT BLOCK IN PAGE?
		JRST	TPOPJ##		;ERROR RETURN
		MOVE	T1,(P)		;GET PAGE WE WANT TO PAGE OUT
 REP 27/208	;08C3
		  JRST	MERBAD		;YES, DON'T ALLOW MERGE OF XONLY FILE
 WIT
		  JRST [MOVEI T1,PRTERR	;YES, SET DON'T ALLOW MERGE OF XONLY FILE
			HRRM T1,.JDAT+SGAEXT
			JRST MERBAD]
 REP 1/211	;08C4
	URUN3:	HLRZ	T2,(P)		;GET STARTING ADDRESS INCREMENT(0 IF RUN COM)

 WIT
	URUN3:	MOVSI	T2,(PD.PGR)	;.STPGM RUN IN PROGRESS
		ANDCAM	T2,.PDDFL##(W)	;CLEAR IT, SINCE THE RUN SUCCEEDED.
		HLRZ	T2,(P)		;GET STARTING ADDRESS INCREMENT(0 IF RUN COM)
 INS 5/240	;08C5
		MOVSI	T1,(PD.PGR)	;WAS THIS A .STPGM RUN WHICH FAILED?
		TDNN	T1,.PDDFL##(W)	;?
		JRST	PPQCRL		;NOPE, JUST GIVE THE ERROR MESSAGE.
		ANDCAM	T1,.PDDFL##(W)	;JUST A TOUCH OF PARANOIA...
		MOVE	T1,LGONAM##	;GET THE NAME OF THE LOGOUT CUSP
		MOVEM	T1,.PDPGM##(W)	;AND SET IT UP, SINCE SOMETHING IS WRONG.
		PUSHJ	P,INLMES	;AND TELL THE USER WHAT HAPPENED TO HIM.
		ASCIZ	\
	%.STPGM run failed, logging job out.\
 SUM 96668