Poof RESTARTS_ROUTINE #632 (#715)

Co-authored-by: James Harris <wopian@wopian.me>

Luminary099/RESTARTS_ROUTINE.agc

@@ -45,11 +45,11 @@ RESTARTS	CA	MPAC +5		# GET GROUP NUMBER -1
 		CA	TEMPPHS
 		MASK	OCT1400
 		CCS	A		# IS IT A VARIABLE OR TABLE RESTART
-		TCF	ITSAVAR		# IT'S A VARIABLE RESTART
+		TCF	ITSAVAR		# IT:S A VARIABLE RESTART
 
 GETPART2	CCS	TEMPPHS		# IS IT AN X.1 RESTART
 		CCS	A
-		TCF	ITSATBL		# NO, IT'S A TABLE RESTART
+		TCF	ITSATBL		# NO, ITS A TABLE RESTART
 
 		CA	PRIO14		# IT IS AN X.1 RESTART, THEREFORE START
 		TC	FINDVAC		# THE DISPLAY RESTART JOB
@@ -60,24 +60,24 @@ GETPART2	CCS	TEMPPHS		# IS IT AN X.1 RESTART
 
 ITSAVAR		MASK	OCT1400		# IS IT TYPE B ?
 		CCS	A
-		TCF	ITSLIKEB	# YES, IT IS TYPE B
+		TCF	ITSLIKEB	# YES,IT IS TYPE B
 
-		EXTEND			# STORES THE JOB (OR TASK) 2CADR FOR EXIT
+		EXTEND			# STORE THE JOB (OR TASK) 2CADR FOR EXIT
 		NDX	TEMP2G
 		DCA	PHSNAME1
 		DXCH	GOLOC
 
-		CA	TEMPPHS		# SEE IF THIS IS A JOB, TASK, OR A LONGCALL
+		CA	TEMPPHS		# SEE IF THIS IS A JOB, TASK, OR A LONGCAL
 		MASK	OCT7
 		AD	MINUS2
 		CCS	A
-		TCF	ITSLNGCL	# IT'S A LONGCALL
+		TCF	ITSLNGCL	# ITS A LONGCALL
 
-RTRNCADR	TC	SWRETURN	# CAN'T GET HERE.
+RTRNCADR	TC	SWRETURN	# CANT GET HERE
 # Page 1304
 		TCF	ITSAWAIT
 
-		TCF	ITSAJOB		# IT'S A JOB
+		TCF	ITSAJOB		# ITS A JOB
 
 ITSAWAIT	CA	WTLTCADR	# SET UP WAITLIST CALL
 		TS	GOLOC -1
@@ -135,7 +135,7 @@ FINDTIME	COM			# MAKE NEGITIVE SINCE IT WILL BE SUBTRACTD
 		TCF	+1
 IMEDIATE	AD	ONE
 		TC	GOLOC -1
-ITSLIKEB	CA	RTRNCADR	# TYPE B, SO STORE RETURN IN
+ITSLIKEB	CA	RTRNCADR	# TYPE B,	      SO STORE RETURN IN
 		TS	TEMPSWCH	# TEMPSWCH IN CASE OF AN EVEN PHASE
 
 		CA	PRT2CADR	# SET UP EXIT TO GET TABLE PART OF THIS
@@ -146,18 +146,18 @@ ITSLIKEB	CA	RTRNCADR	# TYPE B, SO STORE RETURN IN
 		TS	TEMPPHS
 
 		EXTEND
-		NDX	TEMP2G		# OBTAIN THE JOB'S 2CADR
+		NDX	TEMP2G		# OBTAIN THE JOB:S 2CADR
 		DCA	PHSNAME1
 		DXCH	GOLOC
 
-ITSAJOB		NDX	TEMP2G		# NOW ADD THE PRIORITY AND LET'S GO
+ITSAJOB		NDX	TEMP2G		# NOW ADD THE PRIORITY AND LET:S GO
 		CA	PHSPRDT1
-CHKNOVAC	TS	GOLOC -1	# SAVE PRIO UNTIL WE SEE IF IT'S
+CHKNOVAC	TS	GOLOC -1	# SAVE PRIO UNTIL WE SEE IF ITS
 		EXTEND			# A FINDVAC OR A NOVAC
 		BZMF	ITSNOVAC
 
 		CAF	FVACCADR	# POSITIVE, SET UP FINDVAC CALL.
-		XCH	GOLOC -1	# PICK UP PRIO
+		XCH	GOLOC -1	# PICK UP PRIO,
 		TC	GOLOC -1	# AND GO
 
 ITSNOVAC	CAF	NOVACADR	# NEGATIVE,
@@ -167,7 +167,7 @@ ITSNOVAC	CAF	NOVACADR	# NEGATIVE,
 
 ITSATBL		TS	CYR		# FIND OUT IF THE PHASE IS ODD OR EVEN
 		CCS	CYR
-		TCF	+1		# IT'S EVEN
+		TCF	+1		# IT:S EVEN
 		TCF	ITSEVEN
 
 		CA	RTRNCADR	# IN CASE THIS IS THE SECOND PART OF A
@@ -181,18 +181,18 @@ ITSATBL		TS	CYR		# FIND OUT IF THE PHASE IS ODD OR EVEN
 		AD	SIZETAB +1
 		TS	POINTER
 
-CONTBL2		EXTEND			# FIND OUT WHAT'S IN THE TABLE
+CONTBL2		EXTEND			# FIND OUT WHAT:S IN THE TABLE
 		NDX	POINTER
 		DCA	CADRTAB		# GET THE 2CADR
 
 		LXCH	GOLOC +1	# STORE THE BB INFORMATION
 
-		CCS	A		# IS IT A JOB OR IS IT TIMED
+		CCS	A		# IS IT A JOB OR IS IT  TIMED
 		INCR	A		# POSITIVE. MUST BE A JOB
 		TCF	ITSAJOB2
 
 		INCR	A		# MUST BE EITHER A WAITLIST OR LONGCALL
-		TS	GOLOC		# LET'S STORE THE CORRECT CADR
+		TS	GOLOC		# LET-S STORE THE CORRECT CADR
 
 		CA	WTLTCADR	# SET UP OUR EXIT TO WAITLIST
 		TS	GOLOC -1
@@ -201,7 +201,7 @@ CONTBL2		EXTEND			# FIND OUT WHAT'S IN THE TABLE
 		MASK	BIT10		# THIS SHOULD BE ONE IF WE HAVE -BB
 		CCS	A		# FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
 					# 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
-					# IN IMPORTANCE ANYWAY.  BIT 4
+					# IN IMPORTANCE ANYWAY. BIT 4
 		TCF	ITSWTLST	# IT IS A WAITLIST CALL
 
 		NDX	POINTER		# OBTAIN THE ORIGINAL DELTA T
@@ -228,9 +228,9 @@ ITSLGCL1	LXCH	GOLOC +1	# OBTAIN THE CORRECT E BANK
 		LXCH	BB		# RESTORE THE TASKS E AND F BANKS
 		LXCH	GOLOC +1	# AND PRESERVE OUR L
 # Page 1307
-		TCF	ITSLGCL2	# NOT LET'S PROCESS THIS LONGCALL
+		TCF	ITSLGCL2	# NOT LET:S PROCESS THIS LONGCALL
 
-# ***** YOU MAY RETURN TO SWITCHED FIXED *****
+# ***** YOU MAY RETURN TO  SWITCHED FIXED *****
 
 		BANK	01
 		SETLOC	RESTART
@@ -252,7 +252,7 @@ ITSLGCL2	DXCH	LONGTIME
 		TCF	IMEDIATE -3
 		CCS	LONGTIME +1
 		TCF	LONGCLCL
-		NOOP			# CAN'T GET HERE ************
+		NOOP			# CAN:T GET HERE    *********
 		TCF	IMEDIATE -3
 		TCF	IMEDIATE
 
@@ -282,17 +282,17 @@ ITSWTLST	CS	GOLOC +1	# CORRECT THE BBCON INFORMATION
 # Page 1308
 ITSAJOB2	XCH	GOLOC		# STORE THE CADR
 
-		NDX	POINTER		# ADD THE PRIORITY AND LET'S GO
+		NDX	POINTER		# ADD THE PRIORITY AND LET:S GO
 		CA	PRDTTAB
 
 		TCF	CHKNOVAC
 
-ITSEVEN		CA	TEMPSWCH	# SET FOR EITHER THE SECOND PART OF THE
+ITSEVEN		CA	TEMPSWCH	# SET UP FOR EITHER THE SECOND PART OF THE
 		TS	GOLOC +2	# TABLE, OR A RETURN FOR THE NEXT GROUP
 
 		NDX	TEMP2G		# SET UP POINTER FOR OUR LOCATION WITHIN
 		CA	SIZETAB		# THE TABLE
-		AD	TEMPPHS		# THIS MAY LOOK BAD BUT LET'S SEE YOU DO
+		AD	TEMPPHS		# THIS MAY LOOK BAD BUT LET:S SEE YOU DO
 		AD	TEMPPHS		# BETTER IN TIME OR NUMBERR OF LOCATIONS
 		AD	TEMPPHS
 		TS	POINTER
@@ -303,9 +303,9 @@ PHSPART2	CA	THREE		# SET THE POINTER FOR THE SECOND HALF OF
 		ADS	POINTER		# THE TABLE
 
 		CA	RTRNCADR	# THIS WILL BE OUR LAST TIME THROUGH THE
-		TS	GOLOC +2	# EVEN TABLE, SO AFTER IT GET THE NEXT
+		TS	GOLOC +2	# EVEN TABLE , SO AFTER IT GET THE NEXT
 					# GROUP
-		TCF	CONTBL2		# SO LET'S GET THE SECOND ENTRY IN THE TBL
+		TCF	CONTBL2		# SO LET:S GET THE SECOND ENTRY IN THE TBL
 
 TEMPPHS		EQUALS	MPAC
 TEMP2G		EQUALS	MPAC +1
@@ -321,5 +321,3 @@ LGCLCADR	GENADR	LONGCALL
 FVACCADR	GENADR	FINDVAC
 WTLTCADR	GENADR	WAITLIST
 NOVACADR	GENADR	NOVAC
-
-