From 309ad063a9309aa5762cdb3ce8462525c3c77833 Mon Sep 17 00:00:00 2001 From: James Harris Date: Tue, 13 Oct 2020 20:11:10 +0100 Subject: [PATCH] Review changes --- Luminary099/RESTARTS_ROUTINE.agc | 36 +++++++++++++++----------------- 1 file changed, 17 insertions(+), 19 deletions(-) diff --git a/Luminary099/RESTARTS_ROUTINE.agc b/Luminary099/RESTARTS_ROUTINE.agc index a2b791a..57de85f 100644 --- a/Luminary099/RESTARTS_ROUTINE.agc +++ b/Luminary099/RESTARTS_ROUTINE.agc @@ -45,7 +45,7 @@ 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 @@ -60,9 +60,9 @@ 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 @@ -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,11 +146,11 @@ 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 ITS EXTEND # A FINDVAC OR A NOVAC @@ -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,13 +181,13 @@ 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 @@ -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 @@ -305,7 +305,7 @@ PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE 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 - -