X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..0000ed8f3efcdbf411f6c91517909089e5d7ef5d:/src/common.mac diff --git a/src/common.mac b/src/common.mac index a458ba8..dfcefaa 100644 --- a/src/common.mac +++ b/src/common.mac @@ -1,5 +1,4 @@ - -TITLE COMMON - MONITOR COMMON DATA AREA AND CONFIGURATION DEFINITION - V437 + TITLE COMMON - MONITOR COMMON DATA AREA AND CONFIGURATION DEFINITION - V437 SUBTTL PART 3 COMMON.MAC - T. HASTINGS/RCC TS 03 JUN 69 XP VCOMMN,437 ;PUT VERSION NUMBER IN GLOB AND LOADER STORAGE MAP @@ -33,13 +32,13 @@ REPEAT 0, < ;HAVING PREVIOUSLY DEFINED THEM ON THE CONFIG.MAC FILE USING ;MONGEN PROGRAM - IFNDEF LISTSN, ;FORCE S.MAC TO BE LISTED WITH COMMON FILE ONLY ;UNLESS 'LISTSN' DEFINED TO BE 0 WITH MONGEN IFNDEF APRSN, ;SERIAL NUMBER OF APR ;STANDARD MAG TAPE DENSITY(556 BPI),PARITY(ODD-BINARY) INTERN STDENS ;STANDARD MAG TAPE DENSITY(556 BPI),PARITY(ODD-BINARY) + IFNDEF STDENS, ;STAND. == BINARY AT 556 BPI ;STDENS==D+P WHERE D AND P ARE: ;D==1(200 BPI);D== (556 BPI);D==3(800 BPI) @@ -70,9 +69,11 @@ INTERNAL JIFSC2,JIFMIN,WDPJIF IFNDEF MINCOR, ;DISK DDB AND ACCESS ENTRY ; ALLOCATION REQUIRMENTS IN FREE CORE ;USED TO EXPAND SIZE OF MONITOR AT ONCE ONLY TIME + ;32 WORDS/DDB AND 4 WORDS/ACCESS ENTRY = 36 WORDS ;ASSUME 1.5 OPEN FILE/JOB + INTERN LOGSIZ IFNDEF LOGSIZ, ;MINSIZ OF VIRTUAL CORE LEFT ;AND STILL ALLOW LOGIN. MUST BE @@ -330,19 +331,19 @@ SWPMXL=<.-SWPTBL-1>B26 ;MAXIMUM ENTRY FOR GETTAB SHIFTED LEFT 9 FULCNT: 0 ;PRINT DISK IS FULL EVERY 30 SECONDS MAXSIZ: 0 ;SIZE OF LARGEST JOB WHICH MIGHT BE SWAPPED OUT MAXJBN: 0 ;NUMBER OF THAT JOB -SUMCOR: 0 ;TEMPORARY STORAGE CELL USED BY SWAPPER FOR SUM OF - ; CORE NEEDED FOR SWAP IN +SUMCOR: 0 ;TEMP USED BY SWAPPER FOR SUM OF CORE NEEDED FOR SWAP IN IFN FT2REL,< INTERN SWPIN,SWPOUT SWPIN: 0 ;JOB NUMBER BEING SWAPPED IN IF IT HAS A HIGH SEG ; USED TO REMEMBER THE JOB NUMBER DURING HIGH SEG + SWPOUT: 0 ;JOB NUMBER BEING SWAPPED OUT IF IT HAS A HIGH SEG ; USED TO REMEMBER THE JOB NUMBER DURING HIGH SEG + > INTERN FTTRACK IFN FTTRACK, < INTERN LASIN,LASOUT - LASIN: 0 ;LAST JOB OR HIGH SEG SWAPPED IN LASOUT: 0 ;LAST JOB OR HIGH SEG SWAPPED OUT ; ABOVE TWO FOR DEBUGGING ONLY @@ -382,18 +383,21 @@ JBTADR: BLOCK JOBN+SEGN ;JOB AND HIGH SEG CORE ASSIGNMENT JBTAD1==JBTADR+1 ;ADDRESS OF JOB 1 (USED BY SYSMAK) JBTDAT==JBTADR ;RH==ADDRESS OF JOB DATA AREA ;SAME AS JBTADR (JDAT==PROG) + INTERN JBTSGN JBTSGN: IFG SEGN, < - BLOCK JOBN ;RH=SEGMENT NUMBER OF HIGH SEGMENT THIS JOB + BLOCK JOBN ;SEGMENT NUMBER OF HIGH SEGMENT THIS JOB ; IS USING IN CORE OR ON DISK ; 0 MEANS JOB DOES NOT HAVE HIGH SEG - ;LH=USER DEPENDENT HIGH SEG STATUS BITS (SEE S.MAC) + ;LH=USER DEPENDENT HIGH SEG STATUS BITS + ; (SEE S.MAC) XP ITMSGN,ITEM+JOBMXL ;LH SYMBOL FOR GETTAB UUO > IFE SEGN, < - 0 ;SINGLE-ENTRY NULL JBTSGN TABLE.... - XP ITMSGN,JOBMXL ;LH SYMBOL FOR GETTAB UUO SO THAT JBTSGN IS - ; UNDEFINED, I.E., MAKE INDEXING BY ITEM BE 0, BUT - ; ALLOW REFERENCES UP TO JOBMXL. + 0 + XP ITMSGN,JOBMXL ;LH SYMBOL FOR GETTAB UUO + ;SO THAT JBTSGN IS UNDEFINED + ;I.E., MAKE INDEXING BY ITEM BE 0 + ; BUT ALLOW REFERENCES UP TO JOBMXL > IFG DSKN, < ;DISK SYSTEM ? INTERN PRJPRG,JBTDIR @@ -411,8 +415,7 @@ PRJPRG: BLOCK JOBN+SEGN ;XWD PROJECT NUMBER,PROGRAMMER NUMBER RTIME: BLOCK JOBN ;TOTAL RUN TIME SINCE LAST IJOB OR RUNTIME TTIME: BLOCK JOBN ;TOTAL RUN TIME SINCE LAST IJOB > - - IFG SYS50N,< ;SWAPPING SYSTEM ? + IFG SYS50N,< ;SWAPPING SYSTEM ? INTERNAL JBTSWP,JBTCHK JBTSWP: BLOCK JOBN+SEGN ;LH:==PROTECT TIME WHILE JOB IS IN CORE. ; DISK ADDRESS WHILE SWAPPED OUT @@ -438,7 +441,6 @@ JBTPRV: BLOCK JOBN ;PRIVILEGE BITS FOR JOB SET BY LOGIN > IFG DSKN, < INTERN MQUEUE,MQTOP - MQUEUE: BLOCK JOBN ;DISK MONITOR I/O QUEUE MQTOP=. ;LAST LOC+1 OF MONITOR QUEUE > @@ -452,7 +454,7 @@ MQUEUE: BLOCK JOBN ;DISK MONITOR I/O QUEUE LALL ;LIST QUEUE DEFINITIONS FOR ALL TO SEE - DEFINE X + DEFINE X QUEUES DEFINE X (A) @@ -465,10 +467,9 @@ DEFINE X (A) XALL ;BACK TO NORMAL MACRO EXPANSION INTERN JBTQ,JBTQM1,JBTQP1,JBTQMN - BLOCK MXQUE ;NUMBER OF QUEUES FOR SWAPPING SCHEDULER JBTQ: BLOCK JOBN ;ONE ENTRY PER JOB, - ; LH=PREVIOUS JOB, RH=NEXT JOB IN QUEUE + ; LH=PREVIOUS JOB, RH=NEXT JOB IN QUEUE ; NEGATIVE MEANS THIS IS FIRST (LH) OR LAST (RH) ; JOB IN QUEUE JBTQM1==JBTQ-1 ;JBTQ-1 @@ -920,7 +921,7 @@ K4SWAP: 0 ;(1)K OF DISK WORDS SET ASIDE FOR SWAPPING ; ASSIGNED AT ONCE ONLY REFRESH TIME PROT: EXP ICPROT ;(2) IN-CORE PROTECT TIME PARAMETER TO BE - ; MULTIPLIED BY OF CORE IN JOB. + ; MULTIPLIED BY (K-1) OF CORE IN JOB. PROT0: EXP ICPRT1 ;(3) IN-CORE PROTECT TIME PARAMETER TO ; BE ADDED TO ABOVE RESULT. @@ -1198,7 +1199,7 @@ IFE PDP10N, < ;FOR PDP-6 OPCODES 1-37 JRST UUOSYS ;YES MOVEM TAC,40(17) ;STORE UUO IN USER'S 40 HRRZ TAC,41(17) ;PICK UP ADR OF USER'S JSR - JUMPE TAC,UUOSY2 ;IF ADDRESS=0,ILLEGAL USER UUO****UWA PATCH + JUMPE TAC,UUOSYS ;IF ADDRESS=0,ILLEGAL USER UUO****UWA PATCH HLL TAC,UUO0 ;USER PD FLAGS (RESTORED ON RETURN) MOVEI 17,(TAC) ;17 NOW HAS REL.ADR+1 OF USER JSR CAML 17,USRREL ;IS EFFECTIVE ADDRESS IN BOUNDS ? @@ -1213,7 +1214,7 @@ IFE PDP10N, < ;FOR PDP-6 OPCODES 1-37 JRST 2,@UUO0 ;RETURN TO USER (RESTORING FLAGS) UUOSY0: MOVE 17,JOBADR ;SETUP 17 FOR LOW SEGMENT RELOCATION -UUOSY2: EXCH TAC,FORTY ;RESTORE USERS AC(TAC) AND USER'S UUO (FORTY) +UUOSYS: EXCH TAC,FORTY ;RESTORE USERS AC(TAC) AND USER'S UUO (FORTY) > JRST UUOUSR ;GO SAVE USER'S ACS IN REL. LOCATION 0-17 ; AND DISPATCH ON UUO