diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc index e931b22..ad3348f 100644 --- a/Luminary099/SERVICER.agc +++ b/Luminary099/SERVICER.agc @@ -82,7 +82,7 @@ READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS - +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY + +2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY # WITH ANY OF THE 8 SUBSEQUENT R10,R11 # INTERRUPTS -- THUS MINIMIZING THE POSS- # IBILITY OF LOSING DOWNRUPTS. @@ -411,7 +411,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE DCA NEG0 DXCH -PHASE2 - +4 EXTEND + +4 EXTEND DCA NEG0 DXCH -PHASE3 @@ -442,7 +442,7 @@ SVEXTADR 2CADR SERVEXIT SERVEXIT TC PHASCHNG OCT 00035 - +2 TCF ENDOFJOB + +2 TCF ENDOFJOB BANK 23 SETLOC NORMLIZ @@ -491,8 +491,8 @@ NORMLIZ2 CA EIGHTEEN TC ENDOFJOB COPYCYC CA OCT24 # DEC 20 -+1 INHINT -+2 MASK NEG1 # REDUCE BY 1 IF ODD + +1 INHINT + +2 MASK NEG1 # REDUCE BY 1 IF ODD TS ITEMP1 EXTEND INDEX ITEMP1 @@ -528,6 +528,8 @@ EIGHTEEN DEC 18 # EXIT IS VIA Q. # # +# +# # INPUT # # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2. @@ -553,7 +555,7 @@ PIPASR EXTEND # Page 870 DCA TIME2 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE - +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO. + +3 CS ZERO # INITIALIZE THESE AT NEG. ZERO. TS TEMX TS TEMY TS TEMZ @@ -674,7 +676,7 @@ TMPTOSPT CA CDUTEMPY # THIS SUBROUTINE, CALLED BY AN RTB FROM LRHTASK CS FLGWRD11 MASK LRBYBIT EXTEND - BZF GRP2OFF # LR BYPASS SET -- BYPASS ALL LR READING. + BZF GRP2OFF # LR BYPASS SET - BYPASS ALL LR READING. CA READLBIT MASK FLGWRD11 # IS READLR FLAG SET? @@ -686,8 +688,8 @@ LRHTASK CS FLGWRD11 EXTEND BZF GRP2OFF # YES. BYPASS LR READ. - CA PRIO32 # LR READ OK. SET JOB TO DO IT - TC NOVAC # ABOUT 50 MS. PRIOR TO PIPA READ. + CA PRIO32 # LR READ OK SET JOB TO DO IT + TC NOVAC # ABOUT 50 MS PRIOR TO PIPA READ EBANK= HMEAS 2CADR LRHJOB @@ -1354,7 +1356,7 @@ USEVF INDEX VSELECT* CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT TCF WSTOR - -1 CA ZERO + -1 CA ZERO WSTOR TS MPAC CS BIT7 # (=64D) AD MODREG @@ -1365,7 +1367,7 @@ WSTOR TS MPAC CA LRWVFF TS MPAC - +3 CA EBANK7 + +3 CA EBANK7 TS EBANK # CHANGE EBANKS EBANK= ABVEL @@ -1651,7 +1653,7 @@ POSALARM CA OCT523 TCF ENDOFJOB # V 32 E TERMINATE R12 TC ENDOFJOB - +3 CA BIT7 # SEE IF IN POS2 YET + +3 CA BIT7 # SEE IF IN POS2 YET EXTEND RAND CHAN33 EXTEND