X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/d693caac75dd25e668e43e85c29205bfc8dea06e..a0865c742fe1bf0b69346aa5f90665fc301e0236:/src/common.mac

diff --git a/src/common.mac b/src/common.mac
index 5f3ef5c..dfcefaa 100644
--- a/src/common.mac
+++ b/src/common.mac
@@ -1,4 +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
@@ -32,13 +32,13 @@ REPEAT 0, <
 ;HAVING PREVIOUSLY DEFINED THEM ON THE CONFIG.MAC FILE USING 
 ;MONGEN PROGRAM
 
-
 IFNDEF LISTSN, <LISTSN==1>	;FORCE S.MAC TO BE LISTED WITH COMMON FILE ONLY
 			;UNLESS 'LISTSN' DEFINED TO BE 0 WITH MONGEN
 IFNDEF APRSN,<APRSN==0> ;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, <STDENS==2>	;STAND. == BINARY AT 556 BPI
 				;STDENS==D+P WHERE D AND P ARE:
 				;D==1(200 BPI);D== (556 BPI);D==3(800 BPI)
@@ -69,9 +69,11 @@ INTERNAL JIFSC2,JIFMIN,WDPJIF
 	IFNDEF MINCOR,<MINCOR==^D54*JOBN> 	 ;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, <LOGSIZ==2>	;MINSIZ OF VIRTUAL CORE LEFT
 				;AND STILL ALLOW LOGIN.  MUST BE
@@ -329,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
@@ -383,17 +385,19 @@ JBTADR:	BLOCK JOBN+SEGN		;JOB AND HIGH SEG CORE ASSIGNMENT
 				;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	<MXQUE==MXQUE+1;>
+	DEFINE	X	<MXQUE==MXQUE+2;>
 	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