Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

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

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