Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

035155,000002:                                                                                                  ## Copyright:   Public domain.
035156,000003:                                                                                                  ## Filename:    SERVICER207.agc
035157,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
035158,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
035159,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
035160,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
035161,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
035162,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
035163,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
035164,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
035165,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
035166,000013:                                                                                                  ##              is correct.
035167,000014:                                                                                                  ## Assembler:   yaYUL
035168,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
035169,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
035170,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
035171,000018: 
035172,000019:                                                                                                  #  PROGRAM NAME -        PREREAD, READACCS, SERVICER, AVERAGE G.
035173,000020:                                                                                                  #  MOD NO. 00 BY M. HAMILTON     DEC. 12, 1966
035174,000021: 
035175,000022:                                                                                                  #  FUNCTIONAL DESCRIPTION
035176,000023: 
035177,000024:                                                                                                  #  THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
035178,000025:                                                                                                  #  THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
035179,000026: 
035180,000027:                                                                                                  #  GENERAL REFERENCES TO  SERVICER  OR  AVERAGE G  ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
035181,000028:                                                                                                  #  READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
035182,000029: 
035183,000030:                                                                                                  #  PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
035184,000031:                                                                                                  #  AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
035185,000032:                                                                                                  #  2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
035186,000033: 
035187,000034:                                                                                                  #  THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
035188,000035:                                                                                                  #  EXPLANATION OF AVGEXIT BELOW).
035189,000036: 
035190,000037:                                                                                                  #  DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
035191,000038: 
035192,000039:                                                                                                  #        PREREAD
035193,000040: 
035194,000041:                                                                                                  #                PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
035195,000042:                                                                                                  #                LASTBIAS JOB SCHEDULED.
035196,000043:                                                                                                  #                PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
035197,000044:                                                                                                  #                AVERAGE G FLAG SET ON.
035198,000045:                                                                                                  #                DRIFT FLAG SET OFF.
035199,000046:                                                                                                  #                V37 FLAG SET ON.
035200,000047:                                                                                                  #                INITIALIZATION OF       1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
035201,000048:                                                                                                  #                                        2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
035202,000049:                                                                                                  #                                        3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
035203,000050:                                                                                                  #                NORMLIZE JOB SCHEDULED.
035204,000051:                                                                                                  #                READACCS TASK CALLED IN 2 SECONDS.
035205,000052: 
035206,000053:                                                                                                  #        NORMLIZE
035207,000054: 
035208,000055:                                                                                                  #                GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
035209,000056: 
035210,000057:                                                                                                  #        READACCS
035211,000058: 
035212,000059:                                                                                                  #                IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
035213,000060:                                                                                                  #                ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
035214,000061:                                                                                                  #                PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
035215,000062:                                                                                                  #                IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
035216,000063: 
035217,000064:                                                                                                  #                IF AVERAGEG FLAG ON     READACCS CALLED TO RECYCLE IN 2 SECONDS.
035218,000065:                                                                                                  #                IF AVERAGEG FLAG OFF    AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
035219,000066:                                                                                                  #                SERVICER JOB SCHEDULED.
035220,000067:                                                                                                  #                TEST CONNECTOR OUTBIT TURNED ON.
035221,000068: 
035222,000069:                                                                                                  #        ONMNITOR
035223,000070: 
035224,000071:                                                                                                  #                A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 
035225,000072:                                                                                                  #                SEC INTERVALS.  INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALISED AT 3 BY READACCS
035226,000073: 
035227,000074:                                                                                                  #        QUIKREAD
035228,000075: 
035229,000076:                                                                                                  #                READS CURRENT PIPS INTO X,Y,ZPIPBUF.  READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF.  VALUES ARE SENT TO
035230,000077:                                                                                                  #                DOWNLIST DURING ENTRY.
035231,000078: 
035232,000079:                                                                                                  #        SERVICER
035233,000080: 
035234,000081:                                                                                                  #                DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
035235,000082:                                                                                                  #                        IF BAD PIP      1) ALARM SENT.
035236,000083:                                                                                                  #                                        2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED.  CONTROL
035237,000084:                                                                                                  #                                           TRANSFERRED TO AVERAGE G.
035238,000085:                                                                                                  #                PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
035239,000086:                                                                                                  #                DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
035240,000087:                                                                                                  #                THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
035241,000088:                                                                                                  #                CONTROL TRANSFERRED TO AVERAGE G.
035242,000089: 
035243,000090:                                                                                                  #        DVMON
035244,000091: 
035245,000092:                                                                                                  #                THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
035246,000093:                                                                                                  #                THRUST LEVEL.
035247,000094: 
035248,000095:                                                                                                  #                        IF THRUST       1) ULLAGE OFF ROUTINE PERFORMED.
035249,000096:                                                                                                  #                                        2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
035250,000097:                                                                                                  #                                        3) CONTROL TRANSFERRED TO AVERAGE G.
035251,000098:                                                                                                  #                        IF NO THRUST    1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
035252,000099:                                                                                                  #                                        2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
035253,000100:                                                                                                  #                                           HAS FAILED FOR 3 CONSECUTIVE PASSES.
035254,000101: 
035255,000102:                                                                                                  #        ENGINE FAIL
035256,000103: 
035257,000104:                                                                                                  #                ENGFAIL1 TASK CALLED IN 2.5 SECONDS.  THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
035258,000105:                                                                                                  #                        SEQUENCE MAY BE REPEATED.
035259,000106:                                                                                                  #                ENGINOF3 PERFORMED.
035260,000107:                                                                                                  #                DAP SET UP FOR RCS.
035261,000108:                                                                                                  #        
035262,000109:                                                                                                  #        AVERAGE G
035263,000110:                                                                                                  #                RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
035264,000111:                                                                                                  #                        OF GDT/2.
035265,000112:                                                                                                  #                RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
035266,000113:                                                                                                  #                CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
035267,000114:                                                                                                  #                LAST PASS (AVGEND)      1) FREE FALL GYRO COMPENSATION SET UP.
035268,000115:                                                                                                  #                                        2) DRIFT FLAG TURNED ON.
035269,000116:                                                                                                  #                                        3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
035270,000117:                                                                                                  #                                        4) ONMONITOR FLAG RESET.
035271,000118:                                                                                                  #                                        5) V37 FLAG RESET.
035272,000119:                                                                                                  #                                        6) TEST CONNECTOR OUTBIT RESET.
035273,000120:                                                                                                  #                                        7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
035274,000121: 
035275,000122:                                                                                                  #  CALLING SEQUENCE
035276,000123: 
035277,000124:                                                                                                  #        PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
035278,000125:                                                                                                  #        READACCS CALLED AS WAITLIST TASK.                                          .
035279,000126: 
035280,000127:                                                                                                  #  SUBROUTINES CALLED
035281,000128: 
035282,000129:                                                                                                  #        UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
035283,000130: 
035284,000131:                                                                                                  #        OTHER - PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
035285,000132: 
035286,000133:                                                                                                  #  NORMAL EXIT MODES
035287,000134: 
035288,000135:                                                                                                  #        ENDOFJOB        TASKOVER        CANV37
035289,000136: 
035290,000137:                                                                                                  #        AVGEXIT -       THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
035291,000138:                                                                                                  #                                OF EACH CYCLE OF AVERAGE G.
035292,000139:                                                                                                  #                        THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
035293,000140:                                                                                                  #                                AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
035294,000141:                                                                                                  #                        ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
035295,000142: 
035296,000143:                                                                                                  #        SERVEXIT -      DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
035297,000144:                                                                                                  #                        THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
035298,000145: 
035299,000146:                                                                                                  #        AVGEND -        LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
035300,000147:                                                                                                  #                        FINAL EXIT IS TO CANV37.                                F AVERAGE G).
035301,000148: 
035302,000149:                                                                                                  #  OUTPUT
035303,000150: 
035304,000151:                                                                                                  #        DVTOTAL(2)  PIPTIME(2)  XPIPBUF(2)  YPIPBUF(2)  ZPIPBUF(2)
035305,000152:                                                                                                  #        RN(6)           REFERENCE COORD.        SCALED AT 2(+29) M/CS
035306,000153:                                                                                                  #        VN(6)           REFERENCE COORD.        SCALED AT 2(+7) M/CS
035307,000154:                                                                                                  #        GDT/2(6)        REFERENCE COORD.        SCALED AT 2(+7) M/CS
035308,000155:                                                                                                  #        DELV(6)         STABLE MEMB. COORD.     SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))
035309,000156:                                                                                                  #        DELVREF(6)      REFERENCE COORD.        SCALED AT 2(+7) M/CS
035310,000157: 
035311,000158:                                                                                                  #  INITIALIZATION
035312,000159: 
035313,000160:                                                                                                  #        ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
035314,000161:                                                                                                  #        IDLE FLAG ON IF DVMON TO BE BYPASSED.
035315,000162:                                                                                                  #        DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
035316,000163:                                                                                                  #        AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G.  IF NO ROUTINE
035317,000164:                                                                                                  #                TO BE DONE, AVGEXIT SET TO SERVEXIT.
035318,000165:                                                                                                  #        VALUES NEEDED
035319,000166:                                                                                                  #                REFSMMAT
035320,000167:                                                                                                  #                UNITW -  FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
035321,000168:                                                                                                  #                RN1, VN1, PIPTIME1 -  IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
035322,000169: 
035323,000170:                                                                                                  #  DEBRIS
035324,000171: 
035325,000172:                                                                                                  #        CENTRALS        A, L, Q
035326,000173:                                                                                                  #        OTHER           INTERNAL - DVCNTR(1)  PIPAGE(1)  PIPCTR(1)  AVGEXIT(2)
035327,000174:                                                                                                  #                        EXTERNAL - ITEMP1(1)  ITEMP2(1)  RUPTREG1(1)  TEMX(1)  TEMY(1)  TEMZ(1)
035328,000175:                                                                                                  #                        USEFUL DEBRIS
035329,000176:                                                                                                  #                                RN1(6)  VN1(6)  GDT1/2  PIPTIME1(2)
035330,000177:                                                                                                  #                                        THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
035331,000178:                                                                                                  #                                        AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
035332,000179:                                                                                                  #                                UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
035333,000180:                                                                                                  #                                RMAG SCALED AT 2(+58) IN 36D.
035334,000181:                                                                                                  #                                RMAGSQ SCALED AT 2(+58) IN 34D.
035335,000182:                                                                                                  #                                (RE/RMAG)SQ IN 32D.
035336,000183: 
035337,000184: 27,2672                                           BANK     27                                    
035338,000185: 37,2000                                           SETLOC   SERVICES                              
035339,000186: 37,2000                                           BANK                                           
035340,000187: 
035341,000188: 37,2714  E7,1431                                  EBANK=   DVCNTR                                
035342,000189:                                                                                                  #  *************************************   PREREAD   **************************************************************
035343,000190: 
035344,000191: 37,2714                                           COUNT    37/SERV                               
035345,000192: 
035346,000193: 37,2714           35107        PREREAD            CAF      PRIO21                                #  CALLER MUST PROTECT PREREAD
035347,000194: 37,2715           05150                           TC       NOVAC                                 
035348,000195: 37,2716  E3,1460                                  EBANK=   NBDX                                  
035349,000196: 37,2716           03636 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
035350,000197: 
035351,000198:                                                                                                  #  CALL-TO AND LASTBIAS ITSELF ARE NOT
035352,000199:                                                                                                  #        PROTECTED. REREADAC SETS 1/PIPADT
035353,000200:                                                                                                  #        TO 2.0 SECS IN CASE LASTBIAS LOST.
035354,000201:                                                                                                  #        (REDUNDANT IF LASTBIAS IS AOK)
035355,000202: 37,2720           02735        REDO5.31           TC       PREREAD1                              
035356,000203: 
035357,000204: 37,2721           37667                           CAF      PRIO32                                
035358,000205: 37,2722           05163                           TC       FINDVAC                               #  SET UP NORMLIZE JOB REQUIRED PRIOR TO
035359,000206: 37,2723  E7,1431                                  EBANK=   DVCNTR                                #  FIRST AVERAGE G PASS
035360,000207: 37,2723           03240 76067                     2CADR    NORMLIZE                              
035361,000208: 
035362,000209: 37,2725           35056                           CAF      2SECS                                 
035363,000210: 37,2726           05261                           TC       WAITLIST                              
035364,000211: 37,2727  E6,1661                                  EBANK=   AOG                                   
035365,000212: 37,2727           02757 76066                     2CADR    READACCS                              
035366,000213: 
035367,000214: 37,2731           45032                           CS       TWO                                   
035368,000215: 37,2732           04114                           TC       NEWPHASE                              
035369,000216: 37,2733           00005                           OCT      5                                     
035370,000217: 
035371,000218: 37,2734           15340                           TCF      TASKOVER                              
035372,000219: 
035373,000220: 37,2735           00006        PREREAD1           EXTEND                                         
035374,000221: 37,2736           22070                           QXCH     RUPTREG1                              
035375,000222: 
035376,000223: 37,2737           03256                           TC       PIPASR                                #  CLEAR + READ PIPS LAST TIME IN FREE FALL
035377,000224: 
035378,000225: 37,2740           35033                           CAF      ONE                                   #  SET UP PIPAGE FOR REREADAC IN CASE A
035379,000226: 37,2741           55230                           TS       PIPAGE                                #        RESTART OCCURS BEFORE READACCS
035380,000227: 
035381,000228: 37,2742           40075                           CS       FLAGWRD1                              #  SET AVEG FLAG
035382,000229: 37,2743           75033                           MASK     BIT1                                  
035383,000230: 37,2744           26075                           ADS      FLAGWRD1                              
035384,000231: 
035385,000232: 37,2745           35013                           CA       POSMAX                                
035386,000233: 37,2746           70076                           MASK     FLAGWRD2                              
035387,000234: 37,2747           54076                           TS       FLAGWRD2                              #  KNOCK DOWN DRIFT FLAG
035388,000235: 
035389,000236: 37,2750           40103                           CS       FLAGWRD7                              #  SET V37 FLAG
035390,000237: 37,2751           75026                           MASK     BIT6                                  
035391,000238: 37,2752           26103                           ADS      FLAGWRD7                              
035392,000239: 
035393,000240: 37,2753           35035                           CAF      ZERO                                  
035394,000241: 37,2754           55425                           TS       DVTOTAL                               #  CLEAR DVTOTAL
035395,000242: 37,2755           55426                           TS       DVTOTAL    +1                         
035396,000243: 
035397,000244: 37,2756           00070                           TC       RUPTREG1                              
035398,000245: 
035399,000246:                                                                                                  #  *************************************   READACCS   *************************************************************
035400,000247: 37,2757  E6,1661                                  EBANK=   AOG                                   
035401,000248: 37,2757           03256        READACCS           TC       PIPASR                                
035402,000249: 
035403,000250: 37,2760           35036        PIPSDONE           CAF      FIVE                                  
035404,000251: 37,2761           54001                           TS       L                                     
035405,000252: 37,2762           40000                           COM                                            
035406,000253: 37,2763           52763                           DXCH     -PHASE5                               
035407,000254: 
035408,000255: 37,2764           35033        REDO5.5            CAF      ONE                                   #  SHOW PIPS HAVE BEEN READ
035409,000256: 37,2765           55230                           TS       PIPAGE                                
035410,000257: 
035411,000258: 37,2766           35032                           CA       TWO                                   #  SET PIPCTR FOR ONMINTOR
035412,000259: 37,2767           55227                           TS       PIPCTR                                #  AFTER ABOVE PHASCHNG
035413,000260: 
035414,000261: 37,2770           40102                           CS       CM/FLAGS                              
035415,000262: 37,2771           75032                           MASK     BIT2                                  #  CM/DSTBY
035416,000263: 37,2772           10000                           CCS      A                                     
035417,000264: 37,2773           03046                           TC       CHEKAVEG                              
035418,000265: 
035419,000266: 37,2774           41246                           CS       PIPTIME1   +1                         
035420,000267: 37,2775           55065                           TS       TBASE6                                #  FOR RESTARTS
035421,000268: 37,2776           00006                           EXTEND                                         #  CONTINUE FOR ENTRY DAP
035422,000269: 37,2777           31662                           DCA      AOG                                   
035423,000270: 37,3000           53670                           DXCH     AOG/PIP                               
035424,000271: 37,3001           31663                           CA       AMG                                   
035425,000272: 37,3002           57671                           XCH      AMG/PIP                               
035426,000273: 37,3003           00006                           EXTEND                                         
035427,000274: 37,3004           31665                           DCA      ROLL/180                              
035428,000275: 37,3005           53673                           DXCH     ROLL/PIP                              
035429,000276: 37,3006           31666                           CA       BETA/180                              
035430,000277: 37,3007           57674                           XCH      BETA/PIP                              
035431,000278: 37,3010           30102                           CA       CM/FLAGS                              
035432,000279: 37,3011           75020                           MASK     BIT12                                 #  CM/DAPARM 93D BIT12
035433,000280: 37,3012           00006                           EXTEND                                         #  DURING ENTRY, WHEN RCS DAP IS INACTIVE,
035434,000281: 37,3013           13031                           BZF      NOSAVPIP                              #  SAVE PIPAS EACH 0.5 SEC FOR TM.
035435,000282: 
035436,000283: 37,3014           35052                           CAF      .5SEC                                 
035437,000284: 37,3015           05261                           TC       WAITLIST                              
035438,000285: 37,3016  E6,1533                                  EBANK=   XPIPBUF                               
035439,000286: 37,3016           02437 32066                     2CADR    QUIKREAD                              
035440,000287: 
035441,000288:                                                                                                  #  NO NEED TO RESTART PROTECT THIS.
035442,000289: 37,3020           31162                           CA       DELVX                                 #  SAVE PIPAS AS READ (BUT NOT COMPENSATED)
035443,000290: 37,3021           57533                           XCH      XPIPBUF                               
035444,000291: 37,3022           55536                           TS       XOLDBUF                               
035445,000292: 
035446,000293: 37,3023           31164                           CA       DELVY                                 
035447,000294: 37,3024           57534                           XCH      YPIPBUF                               
035448,000295: 37,3025           55537                           TS       YOLDBUF                               
035449,000296: 37,3026           31166                           CA       DELVZ                                 
035450,000297: 37,3027           57535                           XCH      ZPIPBUF                               
035451,000298: 37,3030           55540                           TS       ZOLDBUF                               
035452,000299: 
035453,000300: 37,3031           35036        NOSAVPIP           CA       FIVE                                  
035454,000301: 37,3032           55725                           TS       CM/GYMDT                              
035455,000302: 
035456,000303: 37,3033           33235                           CA       JTAGTIME                              #  ACTIVATE CM/RCS AFTER PIPUP TO GO
035457,000304:                                                                                                  #  IN JTAGTIME +5 CS.
035458,000305: 37,3034           05261                           TC       WAITLIST                              
035459,000306: 37,3035  E6,1661                                  EBANK=   AOG                                   
035460,000307: 37,3035           03227 32066                     2CADR    SETJTAG                               
035461,000308: 
035462,000309: 37,3037           46214                           CS       THREE                                 #  1.3SPOT FOR SETJTAG
035463,000310: 37,3040           04114                           TC       NEWPHASE                              
035464,000311: 37,3041           00001                           OCT      1                                     
035465,000312: 
035466,000313: 37,3042           34362                           CAF      OCT37                                 
035467,000314: 37,3043           54001                           TS       L                                     
035468,000315: 37,3044           40000                           COM                                            
035469,000316: 37,3045           52763                           DXCH     -PHASE5                               
035470,000317: 
035471,000318: 37,3046           40075        CHEKAVEG           CS       FLAGWRD1                              
035472,000319: 37,3047           75033                           MASK     BIT1                                  
035473,000320: 37,3050           10000                           CCS      A                                     #  IF AVEG FLAG DOWN SET FINAL EXIT AVEG
035474,000321: 37,3051           03071                           TC       AVEGOUT                               
035475,000322: 
035476,000323: 37,3052           35056                           CAF      2SECS                                 
035477,000324: 37,3053           05261                           TC       WAITLIST                              
035478,000325: 37,3054  E6,1661                                  EBANK=   AOG                                   
035479,000326: 37,3054           02757 76066                     2CADR    READACCS                              
035480,000327: 
035481,000328: 37,3056           35016        MAKESERV           CAF      PRIO20                                #  ESTABLISH SERVICER ROUTINE
035482,000329: 37,3057           05163                           TC       FINDVAC                               
035483,000330: 37,3060  E7,1431                                  EBANK=   DVCNTR                                
035484,000331: 37,3060           03077 76067                     2CADR    SERVICER                              
035485,000332: 
035486,000333: 37,3062           45031                           CS       FOUR                                  #  RESTART SERVICER AND READACCS
035487,000334: 37,3063           04114                           TC       NEWPHASE                              
035488,000335: 37,3064           00005                           OCT      5                                     
035489,000336: 
035490,000337: 37,3065           35023                           CAF      BIT9                                  
035491,000338: 37,3066           00006                           EXTEND                                         
035492,000339: 37,3067           05011                           WOR      DSALMOUT                              #  TURN TEST CONNECTOR OUTBIT ON
035493,000340: 
035494,000341: 37,3070           15340                           TCF      TASKOVER                              #  END PREVIOUS READACCS WAITLIST TASK
035495,000342: 
035496,000343: 37,3071           00006        AVEGOUT            EXTEND                                         
035497,000344: 37,3072           33076                           DCA      AVOUTCAD                              
035498,000345: 37,3073           53223                           DXCH     AVGEXIT                               
035499,000346: 37,3074           13056                           TCF      MAKESERV                              
035500,000347: 
035501,000348: 37,3075  E7,1431                                  EBANK=   DVCNTR                                
035502,000349: 37,3075           03167 76067  AVOUTCAD           2CADR    AVGEND                                
035503,000350: 
035504,000351:                                                                                                  #  ROUTINE NAME: ONMNITOR
035505,000352:                                                                                                  #  MOD 04 BY BAIRNSFATHER 30 APR 1968    REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
035506,000353:                                                                                                  #  MOD 03 BY FISHER DECEMBER 1967
035507,000354:                                                                                                  #  MOD 02 BY RYE SEPT 1967
035508,000355:                                                                                                  #  MOD 01 BY KOSMALA 23 MAR 1967
035509,000356:                                                                                                  #  MOD 00 BY KOSMALA 27 FEB 1967
035510,000357: 
035511,000358:                                                                                                  #  FUNCTIONAL DESCRIPTION
035512,000359: 
035513,000360:                                                                                                  #        THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
035514,000361:                                                                                                  #        X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
035515,000362: 
035516,000363:                                                                                                  #  CALLING SEQUENCE
035517,000364: 
035518,000365:                                                                                                  #        CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
035519,000366: 
035520,000367:                                                                                                  #  INITIALISATION
035521,000368: 
035522,000369:                                                                                                  #        PIPCTR = 2 (FOR DT = 0.5 SEC)
035523,000370:                                                                                                  #        X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
035524,000371: 
035525,000372:                                                                                                  #  OUTPUT
035526,000373: 
035527,000374:                                                                                                  #        X,Y,ZPIPBUF, X,Y,ZOLDBUF
035528,000375: 
035529,000376:                                                                                                  #  DEBRIS
035530,000377: 
035531,000378:                                                                                                  #        X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
035532,000379:                                                                                                  #                X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
035533,000380:                                                                                                  #        RUPTREG1
035534,000381:                                                                                                  #        PIPCTR
035535,000382: 
035536,000383: 15,2000                                           SETLOC   SERV1                                 
035537,000384: 15,2000                                           BANK                                           
035538,000385: 15,2434                                           COUNT*   $$/SERV                               
035539,000386: 
035540,000387: 15,2434           55227        ONMNITOR           TS       PIPCTR                                
035541,000388: 
035542,000389: 15,2435           05303                           TC       FIXDELAY                              #  WAIT
035543,000390: 15,2436           00062        0.5SEC             DEC      50         B-14                       
035544,000391: 
035545,000392: 15,2437           35032        QUIKREAD           CAF      TWO                                   
035546,000393: 15,2440           54070                           TS       RUPTREG1                              
035547,000394: 15,2441           50000                           INDEX    A                                     
035548,000395: 15,2442           30037                           CA       PIPAX                                 #  SAVE ACTUAL PIPAS FOR TM.
035549,000396: 15,2443           50070                           INDEX    RUPTREG1                              
035550,000397: 15,2444           57533                           XCH      XPIPBUF                               #  UPDATE X,Y,ZPIPBUF
035551,000398: 15,2445           50070                           INDEX    RUPTREG1                              
035552,000399: 15,2446           55536                           TS       XOLDBUF                               #  AND X,Y,ZOLDBUF
035553,000400: 15,2447           10070        CHKCTR             CCS      RUPTREG1                              
035554,000401: 15,2450           12440                           TCF      QUIKREAD   +1                         #  LOOP AGAIN
035555,000402: 15,2451           11227                           CCS      PIPCTR                                
035556,000403: 15,2452           12434                           TCF      ONMNITOR                              
035557,000404: 15,2453           05340                           TC       TASKOVER                              
035558,000405: 
035559,000406:                                                                                                  #  *************************************   SERVICER   *************************************************************
035560,000407: 37,2000                                           SETLOC   SERVICES                              
035561,000408: 37,2000                                           BANK                                           
035562,000409: 37,3077                                           COUNT*   $$/SERV                               
035563,000410: 
035564,000411: 37,3077  E7,1431                                  EBANK=   DVCNTR                                
035565,000412: 
035566,000413: 37,3077           35032        SERVICER           CAF      TWO                                   
035567,000414: 37,3100           00004                           INHINT                                         
035568,000415: 37,3101           54070        PIPCHECK           TS       RUPTREG1                              
035569,000416: 
035570,000417: 37,3102           60000                           DOUBLE                                         
035571,000418: 37,3103           50000                           INDEX    A                                     
035572,000419: 37,3104           11162                           CCS      DELVX                                 
035573,000420: 37,3105           03107                           TC       +2                                    
035574,000421: 37,3106           03115                           TC       PIPLOOP                               
035575,000422: 
035576,000423: 37,3107           63234                           AD       -MAXDELV                              #  DO PIPA-SATURATION TEST BEFORE
035577,000424: 37,3110           00006                           EXTEND                                         
035578,000425: 37,3111           63115                           BZMF     PIPLOOP                               #  COMPENSATION.
035579,000426: 
035580,000427: 37,3112           05664                           TC       ALARM                                 
035581,000428: 37,3113           00205                           OCT      00205                                 #  SATURATED-PIPA ALARM   ***CHANGE LATER
035582,000429: 37,3114           03145                           TC       AVERAGEG                              
035583,000430: 
035584,000431: 37,3115           10070        PIPLOOP            CCS      RUPTREG1                              
035585,000432: 37,3116           13101                           TCF      PIPCHECK                              
035586,000433: 
035587,000434: 37,3117           05426                           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
035588,000435: 37,3120           16035                           OCT      16035                                 
035589,000436: 37,3121           20000                           OCT      20000                                 
035590,000437: 37,3122  E7,1431                                  EBANK=   DVCNTR                                
035591,000438: 37,3122           03126 76067                     2CADR    DVTOTUP                               
035592,000439: 
035593,000440: 37,3124           04676                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
035594,000441: 37,3125           15262                           CADR     1/PIPA                                
035595,000442: 
035596,000443: 37,3126           06006        DVTOTUP            TC       INTPRET                               
035597,000444:                                                                                                  #  THE FOLLOWING SECTION DECREMENTS 'TTE' DURING P61
035598,000445:                                                                                                  #  THROUGH P63 ONLY. (IE: IN P60'S IF DRAG< 0.05 G)
035599,000446: 37,3127           71214        TICKTTE            BON      DLOAD                                 #  .05GSW IS SET =1 IN FRESH START.
035600,000447: 37,3130           03314                                    .05GSW                                #  FLAG IS ASSIGNED ONLY TO P61-P67.
035601,000448: 37,3131           77136                                    +5                                    #  DO NOT COUNT 'TTE' IF DRAG > 0.05 G.
035602,000449: 37,3132           03735                                    TTE2                                  
035603,000450: 37,3133           77615                           DAD                                            
035604,000451: 37,3134           01246                                    PIPTIME1                              #  DECREMENT 'TTE' BY 'PIPTIME1'. (BY 2 SEC)
035605,000452: 37,3135           03727                           STORE    TTE                                   #  NEGATIVE AS IN A COUNTDOWN.
035606,000453:                                                                                                  #  DURING P61 THRU P63, 'TTE' IS DECREMENTED 
035607,000454:                                                                                                  #  AND IS ON CALL AND ON ENTRY DNLIST.
035608,000455: 
035609,000456: 37,3136           51575                           VLOAD    ABVAL                                 #  GET ABS VALUE OF DELV
035610,000457: 37,3137           01163                                    DELV                                  
035611,000458: 37,3140           77405                           DMP      EXIT                                  
035612,000459: 37,3141           37454                                    KPIP1                                 #  SCALE AT 2(+7)
035613,000460: 
035614,000461: 37,3142           00006                           EXTEND                                         
035615,000462: 37,3143           30155                           DCA      MPAC                                  
035616,000463: 37,3144           21426                           DAS      DVTOTAL                               #  ACCUMULATE DVTOTAL
035617,000464: 37,3145           05426        AVERAGEG           TC       PHASCHNG                              
035618,000465: 37,3146           10035                           OCT      10035                                 
035619,000466: 
035620,000467: 37,3147           06006                           TC       INTPRET                               
035621,000468: 37,3150           77624                           CALL                                           
035622,000469: 37,3151           77423                                    CALCRVG                               
035623,000470: 37,3152           77776                           EXIT                                           
035624,000471: 
035625,000472: 37,3153           05426                           TC       PHASCHNG                              
035626,000473: 37,3154           10035                           OCT      10035                                 
035627,000474: 
035628,000475: 37,3155           34113                           CAF      OCT31                                 #  COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
035629,000476: 37,3156           05622                           TC       GENTRAN                               #  INTO RN, VN, GDT/12, GOBL/2,PIPTIME
035630,000477: 37,3157           01231                           ADRES    RN1                                   
035631,000478: 37,3160           01170                           ADRES    RN                                    
035632,000479: 37,3161           00003                           RELINT                                         #  GENTRAN DOES AN INHINT
035633,000480: 37,3162           05426                           TC       PHASCHNG                              
035634,000481: 37,3163           10035                           OCT      10035                                 
035635,000482: 
035636,000483: 37,3164           00006                           EXTEND                                         
035637,000484: 37,3165           31223                           DCA      AVGEXIT                               
035638,000485: 37,3166           52006                           DXCH     Z                                     #  AVERAGEG EXIT
035639,000486: 
035640,000487: 37,3167           31205        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
035641,000488: 37,3170           55074                           TS       OLDBT1                                #  SET UP FREE FALL GYRO COMPENSATION
035642,000489: 
035643,000490: 37,3171           05562                           TC       UPFLAG                                #  SET DRIFTFLG
035644,000491: 37,3172           00036                           ADRES    DRIFTFLG                              #  BIT 15 FLAG 2
035645,000492: 37,3173           05406                           TC       2PHSCHNG                              
035646,000493: 37,3174           00005                           OCT      5                                     #  GROUP 5 OFF
035647,000494: 37,3175           05022                           OCT      05022                                 #  GROUP 2 ON FOR AVETOMID
035648,000495: 37,3176           20000                           OCT      20000                                 
035649,000496: 
035650,000497: 37,3177           06006                           TC       INTPRET                               
035651,000498: 37,3200           77624                           CALL                                           
035652,000499: 37,3201           73675                                    AVETOMID                              #  CONVERT STATE VECTOR TO REFERENCE SCALE.
035653,000500: 37,3202           77776                           EXIT                                           
035654,000501: 
035655,000502: 37,3203           35035                           CAF      ZERO                                  #  ZERO MARK COUNTERS.
035656,000503: 37,3204           55125                           TS       VHFCNT                                
035657,000504: 37,3205           55126                           TS       TRKMKCNT                              
035658,000505: 
035659,000506: 37,3206           04676                           TC       BANKCALL                              
035660,000507: 37,3207           17173                           CADR     PIPFREE                               
035661,000508: 
035662,000509: 37,3210           45023                           CS       BIT9                                  
035663,000510: 37,3211           55734                           TS       MRKBUF2                               #  INVALIDATE MARK BUFFER
035664,000511: 37,3212           00006                           EXTEND                                         
035665,000512: 37,3213           03011                           WAND     DSALMOUT                              
035666,000513: 
035667,000514: 37,3214           05574                           TC       DOWNFLAG                              
035668,000515: 37,3215           00147                           ADRES    CM/DSTBY                              
035669,000516: 
035670,000517: 37,3216           05574                           TC       DOWNFLAG                              
035671,000518: 37,3217           00162                           ADRES    V37FLAG                               
035672,000519: 
035673,000520: 37,3220           35025                           CAF      BIT7                                  #  RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
035674,000521: 37,3221           70074                           MASK     FLAGWRD0                              
035675,000522: 37,3222           00006                           EXTEND                                         
035676,000523: 37,3223           13227                           BZF      +4                                    
035677,000524: 
035678,000525: 37,3224           05406                           TC       2PHSCHNG                              
035679,000526: 37,3225           00111                           OCT      111                                   #  1.11SPOT
035680,000527: 37,3226           00132                           OCT      132                                   #  2.13SPOT
035681,000528: 
035682,000529: 37,3227           04715                           TC       POSTJUMP                              
035683,000530: 37,3230           10124                           CADR     CANV37                                
035684,000531: 
035685,000532: 37,3231           05426        SERVEXIT           TC       PHASCHNG                              
035686,000533: 37,3232           00035                           OCT      00035                                 #  A, 5.3 = REREADAC     (ONLY)
035687,000534: 
035688,000535: 37,3233           15233                           TCF      ENDOFJOB                              
035689,000536: 
035690,000537: 37,3234     5040               DVTHRUSH           EQUALS   ELEVEN                                #  15 PERCENT OF 2SEC PIPA ACCUMULATION,
035691,000538:                                                                                                  #        FOR 503-FULL CSM/LEM....DELV SC.AT
035692,000539:                                                                                                  #        5.85 CM/SEC.
035693,000540: 
035694,000541: 37,3234           63401        -MAXDELV           DEC      -6398      B-14                       #  3200 PPS FOR 2 SEC CCS TAKES 1
035695,000542: 
035696,000543: 37,3235           00170        JTAGTIME           DEC      120        B-14                       #  = 1 SEC + T CDU, T CDU = .1 SEC
035697,000544: 
035698,000545: 37,3236           00372        2.5SEC             DEC      250        B-14                       
035699,000546: 37,3237           00044        MDOTFAIL           DEC      144.0      B-16                       #  5 SEC MASS LOSS AT 28.8 KG/SEC
035700,000547:                                                                                                  #  SHOULD BE 2-4 SECS FOR NO START
035701,000548:                                                                                                  #            6-8 SECS FOR FAILURE
035702,000549: 
035703,000550:                                                                                                  #  NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
035704,000551:                                                                                                  #  HAS 1 LEADING BINARY ZERO.  IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
035705,000552:                                                                                                  #  SCALED AT 2(+24) M.
035706,000553: 
035707,000554: 37,3240           35041        NORMLIZE           CAF      THIRTEEN                              #  SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
035708,000555: 37,3241           05622                           TC       GENTRAN                               #  INTO RN,VN,PIPTIME
035709,000556: 37,3242           01231                           ADRES    RN1                                   #  FROM HERE
035710,000557: 37,3243           01170                           ADRES    RN                                    #  TO HERE
035711,000558: 
035712,000559: 37,3244           00003                           RELINT                                         
035713,000560: 37,3245           06006                           TC       INTPRET                               
035714,000561: 37,3246           45175                           VLOAD    CALL                                  #  LOAD RN FOR CALCGRAV
035715,000562: 37,3247           01171                                    RN                                    
035716,000563: 37,3250           77355                                    CALCGRAV                              #  INITIALISE UNITR RMAG GDT1
035717,000564: 
035718,000565: 37,3251           25207                           STOVL    GDT/2                                 
035719,000566: 37,3252           01256                                    GOBL1/2                               
035720,000567: 37,3253           01215                           STORE    GOBL/2                                
035721,000568: 37,3254           77776                           EXIT                                           
035722,000569: 37,3255           15233                           TCF      ENDOFJOB                              
035723,000570: 
035724,000571:                                                                                                  #  *****  PIPA READER *****
035725,000572:                                                                                                  #  MOD NO. 00 BY D. LICKLY DEC. 9 1966
035726,000573: 
035727,000574:                                                                                                  #  FUNCTIONAL DESCRIPTION
035728,000575: 
035729,000576:                                                                                                  #  SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
035730,000577:                                                                                                  #  PIPA READINGS ARE STORED IN THE VECTOR DELV.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
035731,000578:                                                                                                  #  RESTARTS BEGIN AT REREADAC.
035732,000579: 
035733,000580:                                                                                                  #  AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
035734,000581:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
035735,000582:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
035736,000583:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
035737,000584: 
035738,000585:                                                                                                  #  CALLING SEQUENCE AND EXIT
035739,000586: 
035740,000587:                                                                                                  #        CALL VIA TC, ISWCALL, ETC.
035741,000588: 
035742,000589:                                                                                                  #        EXIT IS VIA Q.
035743,000590: 
035744,000591:                                                                                                  #  INPUT
035745,000592: 
035746,000593:                                                                                                  #        INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
035747,000594: 
035748,000595:                                                                                                  #  OUTPUT
035749,000596: 
035750,000597:                                                                                                  #        HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
035751,000598: 
035752,000599:                                                                                                  #        PIPTIME CONTAINS TIME OF PIPA READING.
035753,000600: 
035754,000601:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
035755,000602: 
035756,000603:                                                                                                  #        LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
035757,000604:                                                                                                  #        TEMX    TEMY    TEMZ    PIPAGE
035758,000605: 
035759,000606: 37,3256           00006        PIPASR             EXTEND                                         
035760,000607: 37,3257           30025                           DCA      TIME2                                 
035761,000608: 37,3260           53246                           DXCH     PIPTIME1                              #  CURRENT TIME  POSITIVE VALUE
035762,000609: 37,3261           45035                           CS       ZERO                                  #  INITIALIZE THESE AT NEG ZERO.
035763,000610: 37,3262           55224                           TS       TEMX                                  
035764,000611: 37,3263           55225                           TS       TEMY                                  
035765,000612: 37,3264           55226                           TS       TEMZ                                  
035766,000613: 37,3265           35035                           CA       ZERO                                  
035767,000614: 37,3266           55166                           TS       DELVZ                                 #  OTHER DELVS OK INCLUDING LOW ORDER
035768,000615: 37,3267           55164                           TS       DELVY                                 
035769,000616: 
035770,000617: 37,3270           55163                           TS       DELVX      +1                         #  LOW ORDER DELV'S ARE ZEROED FOR TM:  THUS
035771,000618: 37,3271           55165                           TS       DELVY      +1                         #  IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
035772,000619: 37,3272           55167                           TS       DELVZ      +1                         #  CONTAIN PROPER COMPENSATION.  IF=0, THEN
035773,000620:                                                                                                  #  THE TM VALUES ARE BEFORE COMPENSATION.
035774,000621: 
035775,000622: 37,3273           55230                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
035776,000623: 
035777,000624: 37,3274           00006        REPIP1             EXTEND                                         
035778,000625: 37,3275           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
035779,000626: 37,3276           53225                           DXCH     TEMX                                  
035780,000627: 37,3277           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
035781,000628: 37,3300           55162                           TS       DELVX                                 
035782,000629: 37,3301           23164                           LXCH     DELVY                                 
035783,000630: 
035784,000631: 37,3302           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
035785,000632: 37,3303           57226                           XCH      TEMZ                                  
035786,000633: 37,3304           56041                           XCH      PIPAZ                                 
035787,000634: 37,3305           55166        DODELVZ            TS       DELVZ                                 
035788,000635: 
035789,000636: 37,3306           00002                           TC       Q                                     
035790,000637: 
035791,000638: 37,3307  E6,1661                                  EBANK=   AOG                                   
035792,000639: 
035793,000640: 37,3307           10763        REREADAC           CCS      PHASE5                                #  LAST PASS CHECK
035794,000641: 37,3310           13312                           TCF      +2                                    
035795,000642: 37,3311           15340                           TCF      TASKOVER                              
035796,000643: 
035797,000644: 37,3312           37665                           CAF      PRIO31                                #  RESTART MAY HAVE WIPED OUT LASTBIAS, AN
035798,000645: 37,3313           55074                           TS       1/PIPADT                              #        UNPROTECTED NOVAC FROM PREREAD,
035799,000646:                                                                                                  #        WHICH SET(S) UP 1/PIPADT (THUSLY)
035800,000647:                                                                                                  #        FOR NON-COASTING COMPENSATION....BE
035801,000648:                                                                                                  #        SURE 1/PIPADT IS AOK.  (PRIO31 IS
035802,000649:                                                                                                  #        2.0SEC SC.AT B+8CS)
035803,000650: 
035804,000651: 37,3314           11230                           CCS      PIPAGE                                
035805,000652: 37,3315           12757                           TCF      READACCS                              #  PIP READING NOT STARTED.  GO TO BEGINNING
035806,000653: 
035807,000654: 37,3316           33354                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
035808,000655: 37,3317           54002                           TS       Q                                     
035809,000656: 
035810,000657: 37,3320           11166                           CCS      DELVZ                                 
035811,000658: 37,3321           00002                           TC       Q                                     #  Z DONE, GO DO CDUS
035812,000659: 37,3322           13325                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
035813,000660: 37,3323           00002                           TC       Q                                     
035814,000661: 37,3324           00002                           TC       Q                                     
035815,000662: 37,3325           22007                           ZL                                             
035816,000663: 37,3326           11164                           CCS      DELVY                                 
035817,000664: 37,3327           13332                           TCF      +3                                    
035818,000665: 37,3330           13341                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
035819,000666: 37,3331           13332                           TCF      +1                                    
035820,000667: 37,3332           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
035821,000668: 
035822,000669: 37,3333           11226                           CCS      TEMZ                                  
035823,000670: 37,3334           41226                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
035824,000671: 37,3335           13305                           TCF      DODELVZ                               
035825,000672: 37,3336           13334                           TCF      -2                                    
035826,000673: 37,3337           23166                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
035827,000674: 37,3340           00002                           TC       Q                                     
035828,000675: 
035829,000676: 37,3341           11224        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
035830,000677: 37,3342           41224                           CS       TEMX                                  #  YES
035831,000678: 37,3343           13346                           TCF      +3                                    #  YES
035832,000679: 37,3344           13342                           TCF      -2                                    #  YES
035833,000680: 37,3345           13274                           TCF      REPIP1                                #  NO
035834,000681: 37,3346           55162                           TS       DELVX                                 
035835,000682: 
035836,000683: 37,3347           41225                           CS       TEMY                                  
035837,000684: 37,3350           55164                           TS       DELVY                                 
035838,000685: 
035839,000686: 37,3351           45035                           CS       ZERO                                  #  ZERO X AND Y PIPS
035840,000687: 37,3352           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
035841,000688: 
035842,000689: 37,3353           13302                           TCF      REPIP3                                
035843,000690: 
035844,000691: 37,3354           02760        DONEADR            GENADR   PIPSDONE                              
035845,000692: 
035846,000693:                                                                                                  #  *************************************************************************************************************
035847,000694: 
035848,000695:                                                                                                  #           ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
035849,000696:                                                                                                  #  ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
035850,000697: 
035851,000698:                                                                                                  #           FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
035852,000699:                                                                                                  #  HARMONIC COEFFICIENT J.
035853,000700: 
035854,000701:                                                                                                  #  ROUTINE CALCRVG REQUIRES...
035855,000702:                                                                                                  #        1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
035856,000703:                                                                                                  #        2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
035857,000704:                                                                                                  #        3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
035858,000705:                                                                                                  #        4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
035859,000706: 
035860,000707:                                                                                                  #  IT LEAVES RN1 UPDATED (SCALED AT 2(+29)M, VN1 (SCALED AT 2(+7)M/CS), AND GDT1/2 (SCALED AT 2(+7)M/CS). ALSO HALF
035861,000708:                                                                                                  #  UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
035862,000709: 
035863,000710: 37,3355           41456        CALCGRAV           UNIT     PUSH                                  #  ENTER WITH RN IN MPAC
035864,000711: 37,3356           01760                           STORE    UNITR                                 
035865,000712: 37,3357           67340                           LXC,1    SLOAD                                 
035866,000713: 37,3360           03746                                    RTX2                                  
035867,000714: 37,3361           00047                                    X1                                    
035868,000715: 37,3362           77240                           BMN      VLOAD                                 
035869,000716: 37,3363           77411                                    ITISMOON                              
035870,000717: 37,3364           41441                           DOT      PUSH                                  
035871,000718: 37,3365           01714                                    UNITW                                 
035872,000719: 37,3366           44316                           DSQ      BDSU                                  
035873,000720: 37,3367           37464                                    DP1/20                                
035874,000721: 37,3370           56325                           PDDL     DDV                                   
035875,000722: 37,3371           37466                                    RESQ                                  
035876,000723: 37,3372           00043                                    34D                                   #  (RN)SQ
035877,000724: 37,3373           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
035878,000725: 37,3374           41205                           DMP      DMP                                   
035879,000726: 37,3375           37470                                    20J                                   
035880,000727: 37,3376           65361                           VXSC     PDDL                                  
035881,000728: 37,3377           01760                                    UNITR                                 
035882,000729: 37,3400           41205                           DMP      DMP                                   
035883,000730: 37,3401           37472                                    2J                                    
035884,000731: 37,3402           00041                                    32D                                   
035885,000732: 37,3403           53361                           VXSC     VAD                                   
035886,000733: 37,3404           01714                                    UNITW                                 
035887,000734: 37,3405           77626                           STADR                                          
035888,000735: 37,3406           76521                           STORE    GOBL1/2                               
035889,000736: 37,3407           41455                           VAD      PUSH                                  
035890,000737: 37,3410           01760                                    UNITR                                 
035891,000738: 37,3411           63545        ITISMOON           DLOAD    DSQ                                   
035892,000739: 37,3412           00045                                    36D                                   
035893,000740: 37,3413           77701                           NORM                                           
035894,000741: 37,3414           00050                                    X2                                    
035895,000742: 37,3415           53663                           BDDV*    SLR*                                  
035896,000743: 37,3416           37456                                    -MUDT(E),1                            
035897,000744: 37,3417           56623                                    0          -21D,2                     
035898,000745: 37,3420           45561                           VXSC     STADR                                 
035899,000746: 37,3421           76527                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
035900,000747: 37,3422           77616                           RVQ                                            
035901,000748: 
035902,000749: 37,3423           74375        CALCRVG            VLOAD    VXSC                                  
035903,000750: 37,3424           01163                                    DELV                                  
035904,000751: 37,3425           37454                                    KPIP1                                 
035905,000752: 37,3426           76505                           VXM      VSL1                                  
035906,000753: 37,3427           01736                                    REFSMMAT                              
035907,000754: 37,3430           03433                           STORE    DELVREF                               #  DELV IN REF COORDS AT 2(+7)
035908,000755: 37,3431           41562                           VSR1     PUSH                                  
035909,000756: 37,3432           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
035910,000757: 37,3433           01207                                    GDT/2                                 
035911,000758: 37,3434           74255                           VAD      VXSC                                  
035912,000759: 37,3435           01177                                    VN                                    
035913,000760: 37,3436           37462                                    2SEC(22)                              
035914,000761: 37,3437           44055                           VAD      STQ                                   
035915,000762: 37,3440           01171                                    RN                                    
035916,000763: 37,3441           00037                                    31D                                   
035917,000764: 37,3442           35232                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
035918,000765: 37,3443           77355                                    CALCGRAV                              
035919,000766: 
035920,000767: 37,3444           53255                           VAD      VAD                                   
035921,000768: 37,3445           77655                           VAD                                            
035922,000769: 37,3446           01177                                    VN                                    
035923,000770: 37,3447           35240                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7) M/CS
035924,000771: 37,3450           00037                                    31D                                   
035925,000772: 
035926,000773: 37,3451           03215 27057  KPIP               2DEC     .1024                                 #  SCALES DELV TO 2(+4)
035927,000774: 
035928,000775: 37,3453           02312 32537  KPIP1              2DEC     0.074880                              #  207 DELV SCALING.  1 PULSE = 5.85 CM/SEC.
035929,000776: 
035930,000777: 37,3455           61377 55754  -MUDT(E)           2DEC*    -7.9720645 E+12       B-44*           
035931,000778: 
035932,000779: 37,3457           77644 65556  -MUDT(M)           2DEC*    -9.805556  E+10       B-44*           
035933,000780: 
035934,000781: 37,3461           00000 31000  2SEC(22)           2DEC     200        B-22                       
035935,000782: 
035936,000783: 37,3463           01463 06315  DP1/20             2DEC     0.05                                  
035937,000784: 
035938,000785: 37,3465           00001 05000  RESQ               2DEC*    40.6809913 E12        B-59*           
035939,000786: 
035940,000787: 37,3467           02047 36332  20J                2DEC*    3.24692010 E-2        B1*             
035941,000788: 
035942,000789: 37,3471           00152 14511  2J                 2DEC*    3.24692010 E-3        B1*             
035943,000790: 

End of include-file SERVICER207.agc.  Parent file is MAIN.agc