diff --git a/Luminary099/RESTARTS_ROUTINE.agc b/Luminary099/RESTARTS_ROUTINE.agc index d5e3448..a2b791a 100644 --- a/Luminary099/RESTARTS_ROUTINE.agc +++ b/Luminary099/RESTARTS_ROUTINE.agc @@ -49,7 +49,7 @@ RESTARTS CA MPAC +5 # GET GROUP NUMBER -1 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 @@ -67,17 +67,17 @@ ITSAVAR MASK OCT1400 # IS IT TYPE B ? 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 @@ -152,12 +152,12 @@ ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN 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, @@ -192,7 +192,7 @@ CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE 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 @@ -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 @@ -303,7 +303,7 @@ 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