From aa4a6741f50c450a739064d57902f0784599a32f Mon Sep 17 00:00:00 2001 From: Chyanne Haugen <42098386+crhaugen@users.noreply.github.com> Date: Tue, 13 Oct 2020 12:13:17 -0700 Subject: [PATCH] Poof RESTARTS_ROUTINE #632 (#715) Co-authored-by: James Harris --- Luminary099/RESTARTS_ROUTINE.agc | 54 +++++++++++++++----------------- 1 file changed, 26 insertions(+), 28 deletions(-) diff --git a/Luminary099/RESTARTS_ROUTINE.agc b/Luminary099/RESTARTS_ROUTINE.agc index d5e3448..57de85f 100644 --- a/Luminary099/RESTARTS_ROUTINE.agc +++ b/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 - -