Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-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