Proof read EXECUTIVE.agc

Luminary099/EXECUTIVE.agc

@@ -47,7 +47,7 @@ NOVAC		INHINT
 		TS	EXECTEM1
 		TCF	NOVAC2		# ENTER EXECUTIVE BANK.
 
-# TO ENTER A JOB REQUEST REQUIREING A VAC AREA -- E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
+# TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
 
 FINDVAC		INHINT
 		TS	NEWPRIO
@@ -60,6 +60,7 @@ SPVACIN		DXCH	NEWLOC
 		TCF	FINDVAC2	# OFF TO EXECUTIVE SWITCHED-BANK.
 
 # TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
+
 # USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
 
 SPVAC		XCH	Q
@@ -77,7 +78,7 @@ CHANG1		LXCH	Q
 # TO SUSPEND AN INTERPRETIVE JOB:
 
 CHANG2		CS	LOC		# NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
-# ITRACE (4) REFERS TO "CHANG2"
+# ITRACE (4) REFERS TO "CHANG2".
 		TS	L
 # Page 1104
  +2		CAF	EXECBANK
@@ -126,7 +127,7 @@ EXECBANK	CADR	FINDVAC2
 FAKEPRET	ADRES	MPAC -36D	# LOC(MPAC +6) - LOC(QPRET)
 
 # Page 1106
-# LOCATE AN AVAILABLE VAC AREA
+# LOCATE AN AVAILABLE VAC AREA.
 
 		BANK	01
 		COUNT*	$$/EXEC
@@ -158,7 +159,7 @@ NOVAC2		CAF	ZERO		# NOVAC ENTERS HERE.  FIND A CORE SET.
 NOVAC3		TS	EXECTEM2
 		INDEX	LOCCTR
 		CCS	PRIORITY	# EACH PRIORITY REGISTER CONTAINS -0 IF
-		TCF	NEXTCORE	# THE CORESPONDING CORE SET IS AVAILABLE.
+		TCF	NEXTCORE	# THE CORRESPONDING CORE SET IS AVAILABLE.
 NO.CORES	DEC	7
 		TCF	NEXTCORE	# AN ACTIVE JOB HAS A POSITIVE PRIORITY
 					# BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
@@ -167,9 +168,9 @@ NO.CORES	DEC	7
 CORFOUND	CA	NEWPRIO		# SET THE PRIORITY OF THIS JOB IN THE CORE
 		INDEX	LOCCTR		# SET'S PRIORITY REGISTER AND SET THE
 		TS	PRIORITY	# JOB'S PUSH-DOWN POINTER AT THE BEGINNING
-		MASK	LOW9		# OF THE WORK AREA AND OVERFLOW INDICATOR.
+		MASK	LOW9		# OF THE WORK AREA AND OVERFLOW INDICATOR
 		INDEX	LOCCTR
-		TS	PUSHLOC		# OFF TO PREPARE FOR INTERPRETIVE PROGRAMS.
+		TS	PUSHLOC		# OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
 
 		CCS	LOCCTR		# IF CORE SET ZERO IS BEING LOADED, SET UP
 		TCF	SETLOC		# OVFIND AND FIXLOC IMMEDIATELY .
@@ -178,7 +179,7 @@ CORFOUND	CA	NEWPRIO		# SET THE PRIORITY OF THIS JOB IN THE CORE
 		TS	FIXLOC
 
 SPECTEST	CCS	NEWJOB		# SEE IF ANY ACTIVE JOBS WAITING (RARE).
-		TCF	SETLOC		# MUST BE AWAKENED OUT UNCHANGED JOB.
+		TCF	SETLOC		# MUST BE AWAKENED BUT UNCHANGED JOB.
 		TC	CCSHOLE
 		TC	CCSHOLE
 		TS	NEWJOB		# +0 SHOWS ACTIVE JOB ALREADY SET.
@@ -273,7 +274,7 @@ ENDPRCHG	RELINT
 # Page 1110
 		COM			# EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
 		AD	ONE
-		TS	LOC		# RESUME
+		TS	LOC		# RESUME.
 		TCF	INTRSM
 
 # COMPLETE JOBSLEEP PREPARATIONS.
@@ -287,10 +288,10 @@ JOBSLP1		INHINT
 		ROR	SUPERBNK	# SAVE OLD SUPERBANK VALUE.
 		TS	BANKSET
 		CS	ZERO
-JOBSLP2		TS	BUF 	+1	# HOLDS -- HIGHEST PRIORITY.
+JOBSLP2		TS	BUF +1		# HOLDS - HIGHEST PRIORITY.
 		TCF	EJSCAN		# SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
 
-NUCHANG2	INHINT			# QUICK... DON'T LET NEWJOB CHANGE TO +0.
+NUCHANG2	INHINT			# QUICK... DONT LET NEWJOB CHANGE TO +0 .
 		CCS	NEWJOB
 		TCF	+3		# NEWJOB STILL PNZ
 		RELINT			# NEW JOB HAS CHANGED TO +0.  WAKE UP JOB
@@ -300,7 +301,7 @@ NUCHANG2	INHINT			# QUICK... DON'T LET NEWJOB CHANGE TO +0.
 		EXTEND
 		WOR	DSALMOUT	# TURN ON ACTIVITY LIGHT
 		DXCH	LOC		# AND SAVE ADDRESS INFO FOR BENEFIT OF
-		TCF	CHANJOB +4	# 	POSSIBLE SLEEPINT JOB.
+		TCF	CHANJOB +4	#  POSSIBLE SLEEPING JOB.
 
 # Page 1111
 # TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
@@ -308,21 +309,21 @@ NUCHANG2	INHINT			# QUICK... DON'T LET NEWJOB CHANGE TO +0.
 # LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
 
 JOBWAKE2	TS	EXECTEM1
-		CAF	ZERO		# BEGIN CORE SET SCAN
+		CAF	ZERO		# BEGIN CORE SET SCAN.
 		TS	LOCCTR
 		CAF	NO.CORES
 JOBWAKE4	TS	EXECTEM2
 		INDEX	LOCCTR
 		CCS	PRIORITY
-		TCF	JOBWAKE3	# ACTIVE JOB -- CHECK NEXT CORE SET.
+		TCF	JOBWAKE3	# ACTIVE JOB - CHECK NEXT CORE SET.
 COREINC		DEC	12		# 12 REGISTERS PER CORE SET.
-		TCF	WAKETEST	# SLEEPING JOB -- SEE IF CADR MATCHES.
+		TCF	WAKETEST	# SLEEPING JOB - SEE IF CADR MATCHES.
 
 JOBWAKE3	CAF	COREINC
 		ADS	LOCCTR
 		CCS	EXECTEM2
 		TCF	JOBWAKE4
-		CS	ONE		# EXIT IF SLEEPIN JOB NOT FOUND.
+		CS	ONE		# EXIT IF SLEEPING JOB NOT FOUND.
 		TS	LOCCTR
 		TCF	ENDFIND
 
@@ -467,10 +468,10 @@ DUMMYJOB	CS	ZERO		# SET NEWJOB TO -0 FOR IDLING.
 		CS	TWO		# TURN OFF THE ACTIVITY LIGHT.
 		EXTEND
 		WAND	DSALMOUT
-ADVAN		CCS	NEWJOB		# IS THE NEWJOB ACTIVE?
+ADVAN		CCS	NEWJOB		# IS A NEWJOB ACTIVE ?
 		TCF	NUCHANG2	# YES... ONE REQUIRING A CHANGE JOB.
 		CAF	TWO		# NEW JOB ALREADY IN POSITION FOR
-		TCF	NUDIRECT	# EXECUTION
+		TCF	NUDIRECT	# EXECUTION.
 
 		CA	SELFRET
 		TS	L		# PUT RETURN ADDRESS IN L.
@@ -489,7 +490,7 @@ NUDIRECT	EXTEND			# TURN THE GREEN LIGHT BACK ON.
 
 		COUNT*	$$/EXEC
 
-# SUPDXCHZ -- ROUTINE TO TRANSFER TO SUPEBANK.
+# SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK.
 # CALLING SEQUENCE:
 #		TCF	SUPDXCHZ	# WITH 2CADR OF DESIRED LOCATION IN A + L.
 
@@ -500,4 +501,3 @@ SUPDXCHZ	XCH	L		# BASIC.
 		TC	L
 
 NEG100		OCT	77677
-