Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
segcon.c11
There is 1 other file named segcon.c11 in the archive. Click here to see a list.
REP 14/84 ;11C1
;J CONTAINS JOB OR HIGH SEG NUMBER(SAME AC AS SWAP USES)
FININ:: CAILE J,JOBMAX## ;WAS A LOW SEG JUST SWAPPED IN?
WIT
;IF CALLED AT FINCHK, NO SWPLST ENTRY WILL BE DELETED
;J CONTAINS JOB OR HIGH SEG NUMBER(SAME AC AS SWAP USES)
FINCHK::
TDZA T2,T2 ;SET ENTRY AT FINCHK
FININ:: MOVSI T2,(1B0) ;SET ENTRY AT FININ
CAILE J,JOBMAX## ;WAS A LOW SEG JUST SWAPPED IN?
REP 30/84 ;11C2
MOVE T2,JBTSWI##(J) ;SAVE SWPIN IN CASE SWAPPING I/O IN PROGRESS FOR
WIT
HRR T2,JBTSWI##(J) ;SAVE SWPIN IN CASE SWAPPING I/O IN PROGRESS FOR
REP 43/84 ;11C3
JRST [HRRZM T2,JBTSWI##(J) ;RETURN DOING NOTHING UNTIL HI-SEG I/O IS DONE
WIT
JRST [HRRZS T2 ;CLEAR SIGN OF T2
EXCH T2,JBTSWI##(J) ;RETURN DOING NOTHING UNTIL HI-SEG I/O IS DONE
MOVEI J,(T2) ;RETURN JOB #
REP 4/85 ;11C4
FINHG1: MOVSI T2,SWP ;CLEAR SWAPPED OUT OR ON WAY FLAG FOR HIGH SEG
WIT
FINHG1: JUMPGE T2,BOTHIN ;DON'T DO THIS IF CALLED AT FINCHK
MOVSI T2,SWP ;CLEAR SWAPPED OUT OR ON WAY FLAG FOR HIGH SEG
REP 32/109 ;11C5
PTHFIL: HLRZ T1,.UPMP+.UPCTA ;DO PATH ON PROGRAM'S CHANNEL
WIT
PTHFIL::HLRZ T1,.UPMP+.UPCTA ;DO PATH ON PROGRAM'S CHANNEL
SUM 242221