Source Code

These source-code files are part of a reconstructed copy of Comanche 44, the initial release (though not the final mission release) of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 44, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 51 (separately previously reconstructed from an Apollo-era listing of Comanche 55, flown on Apollo 11). Comanche 51 source code was then modified by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed Comanche 44 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code match those on the Comanche 55 printout, although the source code would likely have different page numbers in a contemporary Comanche 44 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the explanatory annotations, there is also a step-by-step commentary about the reconstruction process.

Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

036211,000002:                                                                                                  ## Copyright:   Public domain.
036212,000003:                                                                                                  ## Filename:    SERVICER207.agc
036213,000004:                                                                                                  ## Purpose:     A section of Comanche revision 044.
036214,000005:                                                                                                  ##              It is part of the reconstructed source code for the
036215,000006:                                                                                                  ##              original release of the flight software for the Command
036216,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
036217,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
036218,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
036219,000010:                                                                                                  ##              exactly match those specified for Comanche 44 in NASA drawing
036220,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
036221,000012:                                                                                                  ##              reconstruction is correct.
036222,000013:                                                                                                  ## Assembler:   yaYUL
036223,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
036224,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036225,000016:                                                                                                  ## Mod history: 2020-12-03 MAS  Created from Comanche 51.
036226,000017: 

Page 819

036228,000019:                                                                                                  #  PROGRAM NAME -        PREREAD, READACCS, SERVICER, AVERAGE G.
036229,000020:                                                                                                  #  MOD NO. 00 BY M. HAMILTON     DEC. 12, 1966
036230,000021: 
036231,000022:                                                                                                  #  FUNCTIONAL DESCRIPTION
036232,000023: 
036233,000024:                                                                                                  #  THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
036234,000025:                                                                                                  #  THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
036235,000026: 
036236,000027:                                                                                                  #  GENERAL REFERENCES TO  SERVICER  OR  AVERAGE G  ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
036237,000028:                                                                                                  #  READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
036238,000029: 
036239,000030:                                                                                                  #  PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
036240,000031:                                                                                                  #  AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
036241,000032:                                                                                                  #  2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
036242,000033: 
036243,000034:                                                                                                  #  THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
036244,000035:                                                                                                  #  EXPLANATION OF AVGEXIT BELOW).
036245,000036: 
036246,000037:                                                                                                  #  DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
036247,000038: 
036248,000039:                                                                                                  #        PREREAD
036249,000040: 
036250,000041:                                                                                                  #                PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
036251,000042:                                                                                                  #                LASTBIAS JOB SCHEDULED.
036252,000043:                                                                                                  #                PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
036253,000044:                                                                                                  #                AVERAGE G FLAG SET ON.
036254,000045:                                                                                                  #                DRIFT FLAG SET OFF.
036255,000046:                                                                                                  #                V37 FLAG SET ON.
036256,000047:                                                                                                  #                INITIALIZATION OF       1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
036257,000048:                                                                                                  #                                        2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
036258,000049:                                                                                                  #                                        3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
036259,000050:                                                                                                  #                NORMLIZE JOB SCHEDULED.
036260,000051:                                                                                                  #                READACCS TASK CALLED IN 2 SECONDS.
036261,000052: 
036262,000053:                                                                                                  #        NORMLIZE
036263,000054: 
036264,000055:                                                                                                  #                GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
036265,000056: 
036266,000057:                                                                                                  #        READACCS
036267,000058: 
036268,000059:                                                                                                  #                IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
036269,000060:                                                                                                  #                ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
036270,000061:                                                                                                  #                PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
036271,000062:                                                                                                  #                IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.

Page 820

036273,000064: 
036274,000065:                                                                                                  #                IF AVERAGEG FLAG ON     READACCS CALLED TO RECYCLE IN 2 SECONDS.
036275,000066:                                                                                                  #                IF AVERAGEG FLAG OFF    AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
036276,000067:                                                                                                  #                SERVICER JOB SCHEDULED.
036277,000068:                                                                                                  #                TEST CONNECTOR OUTBIT TURNED ON.
036278,000069: 
036279,000070:                                                                                                  #        ONMNITOR
036280,000071: 
036281,000072:                                                                                                  #                A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 
036282,000073:                                                                                                  #                SEC INTERVALS.  INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALISED AT 3 BY READACCS
036283,000074: 
036284,000075:                                                                                                  #        QUIKREAD
036285,000076: 
036286,000077:                                                                                                  #                READS CURRENT PIPS INTO X,Y,ZPIPBUF.  READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF.  VALUES ARE SENT TO
036287,000078:                                                                                                  #                DOWNLIST DURING ENTRY.
036288,000079: 
036289,000080:                                                                                                  #        SERVICER
036290,000081: 
036291,000082:                                                                                                  #                DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
036292,000083:                                                                                                  #                        IF BAD PIP      1) ALARM SENT.
036293,000084:                                                                                                  #                                        2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED.  CONTROL
036294,000085:                                                                                                  #                                           TRANSFERRED TO AVERAGE G.
036295,000086:                                                                                                  #                PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
036296,000087:                                                                                                  #                DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
036297,000088:                                                                                                  #                THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
036298,000089:                                                                                                  #                CONTROL TRANSFERRED TO AVERAGE G.
036299,000090: 
036300,000091:                                                                                                  #        DVMON
036301,000092: 
036302,000093:                                                                                                  #                THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
036303,000094:                                                                                                  #                THRUST LEVEL.
036304,000095: 
036305,000096:                                                                                                  #                        IF THRUST       1) ULLAGE OFF ROUTINE PERFORMED.
036306,000097:                                                                                                  #                                        2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
036307,000098:                                                                                                  #                                        3) CONTROL TRANSFERRED TO AVERAGE G.
036308,000099:                                                                                                  #                        IF NO THRUST    1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
036309,000100:                                                                                                  #                                        2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
036310,000101:                                                                                                  #                                           HAS FAILED FOR 3 CONSECUTIVE PASSES.
036311,000102: 
036312,000103:                                                                                                  #        ENGINE FAIL
036313,000104: 
036314,000105:                                                                                                  #                ENGFAIL1 TASK CALLED IN 2.5 SECONDS.  THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
036315,000106:                                                                                                  #                        SEQUENCE MAY BE REPEATED.
036316,000107:                                                                                                  #                ENGINOF3 PERFORMED.
036317,000108:                                                                                                  #                DAP SET UP FOR RCS.
036318,000109:                                                                                                  #        
036319,000110:                                                                                                  #        AVERAGE G

Page 821

036321,000112:                                                                                                  #                RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
036322,000113:                                                                                                  #                        OF GDT/2.
036323,000114:                                                                                                  #                RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
036324,000115:                                                                                                  #                CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
036325,000116:                                                                                                  #                LAST PASS (AVGEND)      1) FREE FALL GYRO COMPENSATION SET UP.
036326,000117:                                                                                                  #                                        2) DRIFT FLAG TURNED ON.
036327,000118:                                                                                                  #                                        3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
036328,000119:                                                                                                  #                                        4) ONMONITOR FLAG RESET.
036329,000120:                                                                                                  #                                        5) V37 FLAG RESET.
036330,000121:                                                                                                  #                                        6) TEST CONNECTOR OUTBIT RESET.
036331,000122:                                                                                                  #                                        7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
036332,000123: 
036333,000124:                                                                                                  #  CALLING SEQUENCE
036334,000125: 
036335,000126:                                                                                                  #        PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
036336,000127:                                                                                                  #        READACCS CALLED AS WAITLIST TASK.                                          .
036337,000128: 
036338,000129:                                                                                                  #  SUBROUTINES CALLED
036339,000130: 
036340,000131:                                                                                                  #        UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
036341,000132: 
036342,000133:                                                                                                  #        OTHER - PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID
036343,000134: 
036344,000135:                                                                                                  #  NORMAL EXIT MODES
036345,000136: 
036346,000137:                                                                                                  #        ENDOFJOB        TASKOVER        CANV37
036347,000138: 
036348,000139:                                                                                                  #        AVGEXIT -       THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
036349,000140:                                                                                                  #                                OF EACH CYCLE OF AVERAGE G.
036350,000141:                                                                                                  #                        THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
036351,000142:                                                                                                  #                                AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
036352,000143:                                                                                                  #                        ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
036353,000144: 
036354,000145:                                                                                                  #        SERVEXIT -      DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
036355,000146:                                                                                                  #                        THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
036356,000147: 
036357,000148:                                                                                                  #        AVGEND -        LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
036358,000149:                                                                                                  #                        FINAL EXIT IS TO CANV37.                                F AVERAGE G).
036359,000150: 
036360,000151:                                                                                                  #  OUTPUT
036361,000152: 
036362,000153:                                                                                                  #        DVTOTAL(2)  PIPTIME(2)  XPIPBUF(2)  YPIPBUF(2)  ZPIPBUF(2)
036363,000154:                                                                                                  #        RN(6)           REFERENCE COORD.        SCALED AT 2(+29) M/CS
036364,000155:                                                                                                  #        VN(6)           REFERENCE COORD.        SCALED AT 2(+7) M/CS
036365,000156:                                                                                                  #        GDT/2(6)        REFERENCE COORD.        SCALED AT 2(+7) M/CS
036366,000157:                                                                                                  #        DELV(6)         STABLE MEMB. COORD.     SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))

Page 822

036368,000159:                                                                                                  #        DELVREF(6)      REFERENCE COORD.        SCALED AT 2(+7) M/CS
036369,000160: 
036370,000161:                                                                                                  #  INITIALIZATION
036371,000162: 
036372,000163:                                                                                                  #        ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
036373,000164:                                                                                                  #        IDLE FLAG ON IF DVMON TO BE BYPASSED.
036374,000165:                                                                                                  #        DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
036375,000166:                                                                                                  #        AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G.  IF NO ROUTINE
036376,000167:                                                                                                  #                TO BE DONE, AVGEXIT SET TO SERVEXIT.
036377,000168:                                                                                                  #        VALUES NEEDED
036378,000169:                                                                                                  #                REFSMMAT
036379,000170:                                                                                                  #                UNITW -  FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
036380,000171:                                                                                                  #                RN1, VN1, PIPTIME1 -  IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
036381,000172: 
036382,000173:                                                                                                  #  DEBRIS
036383,000174: 
036384,000175:                                                                                                  #        CENTRALS        A, L, Q
036385,000176:                                                                                                  #        OTHER           INTERNAL - DVCNTR(1)  PIPAGE(1)  PIPCTR(1)  AVGEXIT(2)
036386,000177:                                                                                                  #                        EXTERNAL - ITEMP1(1)  ITEMP2(1)  RUPTREG1(1)  TEMX(1)  TEMY(1)  TEMZ(1)
036387,000178:                                                                                                  #                        USEFUL DEBRIS
036388,000179:                                                                                                  #                                RN1(6)  VN1(6)  GDT1/2  PIPTIME1(2)
036389,000180:                                                                                                  #                                        THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
036390,000181:                                                                                                  #                                        AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
036391,000182:                                                                                                  #                                UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
036392,000183:                                                                                                  #                                RMAG SCALED AT 2(+58) IN 36D.
036393,000184:                                                                                                  #                                RMAGSQ SCALED AT 2(+58) IN 34D.
036394,000185:                                                                                                  #                                (RE/RMAG)SQ IN 32D.
036395,000186: 
036396,000187: 27,2671                                           BANK     27                                    
036397,000188: 37,2000                                           SETLOC   SERVICES                              
036398,000189: 37,2000                                           BANK                                           
036399,000190: 
036400,000191: 37,2700  E7,1431                                  EBANK=   DVCNTR                                
036401,000192:                                                                                                  #  *************************************   PREREAD   **************************************************************
036402,000193: 
036403,000194: 37,2700                                           COUNT    37/SERV                               
036404,000195: 
036405,000196: 37,2700           35073        PREREAD            CAF      PRIO21                                #  CALLER MUST PROTECT PREREAD
036406,000197: 37,2701           05134                           TC       NOVAC                                 
036407,000198: 37,2702  E3,1460                                  EBANK=   NBDX                                  
036408,000199: 37,2702           03636 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
036409,000200: 
036410,000201:                                                                                                  #  CALL-TO AND LASTBIAS ITSELF ARE NOT
036411,000202:                                                                                                  #        PROTECTED. REREADAC SETS 1/PIPADT
036412,000203:                                                                                                  #        TO 2.0 SECS IN CASE LASTBIAS LOST.
036413,000204:                                                                                                  #        (REDUNDANT IF LASTBIAS IS AOK)

Page 823

036415,000206: 37,2704           02721        REDO5.31           TC       PREREAD1                              
036416,000207: 
036417,000208: 37,2705           37667                           CAF      PRIO32                                
036418,000209: 37,2706           05147                           TC       FINDVAC                               #  SET UP NORMLIZE JOB REQUIRED PRIOR TO
036419,000210: 37,2707  E7,1431                                  EBANK=   DVCNTR                                #  FIRST AVERAGE G PASS
036420,000211: 37,2707           03235 76067                     2CADR    NORMLIZE                              
036421,000212: 
036422,000213: 37,2711           35042                           CAF      2SECS                                 
036423,000214: 37,2712           05245                           TC       WAITLIST                              
036424,000215: 37,2713  E6,1661                                  EBANK=   AOG                                   
036425,000216: 37,2713           02743 76066                     2CADR    READACCS                              
036426,000217: 
036427,000218: 37,2715           45016                           CS       TWO                                   
036428,000219: 37,2716           04114                           TC       NEWPHASE                              
036429,000220: 37,2717           00005                           OCT      5                                     
036430,000221: 
036431,000222: 37,2720           15324                           TCF      TASKOVER                              
036432,000223: 
036433,000224: 37,2721           00006        PREREAD1           EXTEND                                         
036434,000225: 37,2722           22070                           QXCH     RUPTREG1                              
036435,000226: 
036436,000227: 37,2723           03253                           TC       PIPASR                                #  CLEAR + READ PIPS LAST TIME IN FREE FALL
036437,000228: 
036438,000229: 37,2724           35017                           CAF      ONE                                   #  SET UP PIPAGE FOR REREADAC IN CASE A
036439,000230: 37,2725           55230                           TS       PIPAGE                                #        RESTART OCCURS BEFORE READACCS
036440,000231: 
036441,000232: 37,2726           40075                           CS       FLAGWRD1                              #  SET AVEG FLAG
036442,000233: 37,2727           75017                           MASK     BIT1                                  
036443,000234: 37,2730           26075                           ADS      FLAGWRD1                              
036444,000235: 
036445,000236: 37,2731           34777                           CA       POSMAX                                
036446,000237: 37,2732           70076                           MASK     FLAGWRD2                              
036447,000238: 37,2733           54076                           TS       FLAGWRD2                              #  KNOCK DOWN DRIFT FLAG
036448,000239: 
036449,000240: 37,2734           40103                           CS       FLAGWRD7                              #  SET V37 FLAG
036450,000241: 37,2735           75012                           MASK     BIT6                                  
036451,000242: 37,2736           26103                           ADS      FLAGWRD7                              
036452,000243: 
036453,000244: 37,2737           35021                           CAF      ZERO                                  
036454,000245: 37,2740           55425                           TS       DVTOTAL                               #  CLEAR DVTOTAL
036455,000246: 37,2741           55426                           TS       DVTOTAL    +1                         
036456,000247: 
036457,000248: 37,2742           00070                           TC       RUPTREG1                              
036458,000249: 

Page 824

036460,000251:                                                                                                  #  *************************************   READACCS   *************************************************************
036461,000252: 37,2743  E6,1661                                  EBANK=   AOG                                   
036462,000253: 37,2743           03253        READACCS           TC       PIPASR                                
036463,000254: 
036464,000255: 37,2744           35022        PIPSDONE           CAF      FIVE                                  
036465,000256: 37,2745           54001                           TS       L                                     
036466,000257: 37,2746           40000                           COM                                            
036467,000258: 37,2747           52763                           DXCH     -PHASE5                               
036468,000259: 
036469,000260: 37,2750           35017        REDO5.5            CAF      ONE                                   #  SHOW PIPS HAVE BEEN READ
036470,000261: 37,2751           55230                           TS       PIPAGE                                
036471,000262: 
036472,000263: 37,2752           35016                           CA       TWO                                   #  SET PIPCTR FOR ONMINTOR
036473,000264: 37,2753           55227                           TS       PIPCTR                                #  AFTER ABOVE PHASCHNG
036474,000265: 
036475,000266: 37,2754           40102                           CS       CM/FLAGS                              
036476,000267: 37,2755           75016                           MASK     BIT2                                  #  CM/DSTBY
036477,000268: 37,2756           10000                           CCS      A                                     
036478,000269: 37,2757           03032                           TC       CHEKAVEG                              
036479,000270: 
036480,000271: 37,2760           41246                           CS       PIPTIME1   +1                         
036481,000272: 37,2761           55065                           TS       TBASE6                                #  FOR RESTARTS
036482,000273: 37,2762           00006                           EXTEND                                         #  CONTINUE FOR ENTRY DAP
036483,000274: 37,2763           31662                           DCA      AOG                                   
036484,000275: 37,2764           53670                           DXCH     AOG/PIP                               
036485,000276: 37,2765           31663                           CA       AMG                                   
036486,000277: 37,2766           57671                           XCH      AMG/PIP                               
036487,000278: 37,2767           00006                           EXTEND                                         
036488,000279: 37,2770           31665                           DCA      ROLL/180                              
036489,000280: 37,2771           53673                           DXCH     ROLL/PIP                              
036490,000281: 37,2772           31666                           CA       BETA/180                              
036491,000282: 37,2773           57674                           XCH      BETA/PIP                              
036492,000283: 37,2774           30102                           CA       CM/FLAGS                              
036493,000284: 37,2775           75004                           MASK     BIT12                                 #  CM/DAPARM 93D BIT12
036494,000285: 37,2776           00006                           EXTEND                                         #  DURING ENTRY, WHEN RCS DAP IS INACTIVE,
036495,000286: 37,2777           13015                           BZF      NOSAVPIP                              #  SAVE PIPAS EACH 0.5 SEC FOR TM.
036496,000287: 
036497,000288: 37,3000           33065                           CA       0.5SEC                                
036498,000289: 37,3001           05245                           TC       WAITLIST                              
036499,000290: 37,3002  E6,1533                                  EBANK=   XPIPBUF                               
036500,000291: 37,3002           03066 76066                     2CADR    QUIKREAD                              
036501,000292: 
036502,000293:                                                                                                  #  NO NEED TO RESTART PROTECT THIS.
036503,000294: 37,3004           31162                           CA       DELVX                                 #  SAVE PIPAS AS READ (BUT NOT COMPENSATED)
036504,000295: 37,3005           57533                           XCH      XPIPBUF                               
036505,000296: 37,3006           55536                           TS       XOLDBUF                               
036506,000297: 
036507,000298: 37,3007           31164                           CA       DELVY                                 
036508,000299: 37,3010           57534                           XCH      YPIPBUF                               
036509,000300: 37,3011           55537                           TS       YOLDBUF                               

Page 825

036511,000302: 37,3012           31166                           CA       DELVZ                                 
036512,000303: 37,3013           57535                           XCH      ZPIPBUF                               
036513,000304: 37,3014           55540                           TS       ZOLDBUF                               
036514,000305: 
036515,000306: 37,3015           35022        NOSAVPIP           CA       FIVE                                  
036516,000307: 37,3016           55725                           TS       CM/GYMDT                              
036517,000308: 
036518,000309: 37,3017           33232                           CA       JTAGTIME                              #  ACTIVATE CM/RCS AFTER PIPUP TO GO
036519,000310:                                                                                                  #  IN JTAGTIME +5 CS.
036520,000311: 37,3020           05245                           TC       WAITLIST                              
036521,000312: 37,3021  E6,1661                                  EBANK=   AOG                                   
036522,000313: 37,3021           03207 32066                     2CADR    SETJTAG                               
036523,000314: 
036524,000315: 37,3023           46214                           CS       THREE                                 #  1.3SPOT FOR SETJTAG
036525,000316: 37,3024           04114                           TC       NEWPHASE                              
036526,000317: 37,3025           00001                           OCT      1                                     
036527,000318: 
036528,000319: 37,3026           34362                           CAF      OCT37                                 
036529,000320: 37,3027           54001                           TS       L                                     
036530,000321: 37,3030           40000                           COM                                            
036531,000322: 37,3031           52763                           DXCH     -PHASE5                               
036532,000323: 
036533,000324: 37,3032           40075        CHEKAVEG           CS       FLAGWRD1                              
036534,000325: 37,3033           75017                           MASK     BIT1                                  
036535,000326: 37,3034           10000                           CCS      A                                     #  IF AVEG FLAG DOWN SET FINAL EXIT AVEG
036536,000327: 37,3035           03055                           TC       AVEGOUT                               
036537,000328: 
036538,000329: 37,3036           35042                           CAF      2SECS                                 
036539,000330: 37,3037           05245                           TC       WAITLIST                              
036540,000331: 37,3040  E6,1661                                  EBANK=   AOG                                   
036541,000332: 37,3040           02743 76066                     2CADR    READACCS                              
036542,000333: 
036543,000334: 37,3042           35002        MAKESERV           CAF      PRIO20                                #  ESTABLISH SERVICER ROUTINE
036544,000335: 37,3043           05147                           TC       FINDVAC                               
036545,000336: 37,3044  E7,1431                                  EBANK=   DVCNTR                                
036546,000337: 37,3044           03103 76067                     2CADR    SERVICER                              
036547,000338: 
036548,000339: 37,3046           45015                           CS       FOUR                                  #  RESTART SERVICER AND READACCS
036549,000340: 37,3047           04114                           TC       NEWPHASE                              
036550,000341: 37,3050           00005                           OCT      5                                     
036551,000342: 
036552,000343: 37,3051           35007                           CAF      BIT9                                  
036553,000344: 37,3052           00006                           EXTEND                                         
036554,000345: 37,3053           05011                           WOR      DSALMOUT                              #  TURN TEST CONNECTOR OUTBIT ON
036555,000346: 
036556,000347: 37,3054           15324                           TCF      TASKOVER                              #  END PREVIOUS READACCS WAITLIST TASK
036557,000348: 

Page 826

036559,000350: 37,3055           00006        AVEGOUT            EXTEND                                         
036560,000351: 37,3056           33062                           DCA      AVOUTCAD                              
036561,000352: 37,3057           53223                           DXCH     AVGEXIT                               
036562,000353: 37,3060           13042                           TCF      MAKESERV                              
036563,000354: 
036564,000355: 37,3061  E7,1431                                  EBANK=   DVCNTR                                
036565,000356: 37,3061           03164 76067  AVOUTCAD           2CADR    AVGEND                                
036566,000357: 

Page 827

036568,000359:                                                                                                  #  ROUTINE NAME: ONMNITOR
036569,000360:                                                                                                  #  MOD 04 BY BAIRNSFATHER 30 APR 1968    REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
036570,000361:                                                                                                  #  MOD 03 BY FISHER DECEMBER 1967
036571,000362:                                                                                                  #  MOD 02 BY RYE SEPT 1967
036572,000363:                                                                                                  #  MOD 01 BY KOSMALA 23 MAR 1967
036573,000364:                                                                                                  #  MOD 00 BY KOSMALA 27 FEB 1967
036574,000365: 
036575,000366:                                                                                                  #  FUNCTIONAL DESCRIPTION
036576,000367: 
036577,000368:                                                                                                  #        THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
036578,000369:                                                                                                  #        X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
036579,000370: 
036580,000371:                                                                                                  #  CALLING SEQUENCE
036581,000372: 
036582,000373:                                                                                                  #        CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
036583,000374: 
036584,000375:                                                                                                  #  INITIALISATION
036585,000376: 
036586,000377:                                                                                                  #        PIPCTR = 2 (FOR DT = 0.5 SEC)
036587,000378:                                                                                                  #        X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
036588,000379: 
036589,000380:                                                                                                  #  OUTPUT
036590,000381: 
036591,000382:                                                                                                  #        X,Y,ZPIPBUF, X,Y,ZOLDBUF
036592,000383: 
036593,000384:                                                                                                  #  DEBRIS
036594,000385: 
036595,000386:                                                                                                  #        X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
036596,000387:                                                                                                  #                X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
036597,000388:                                                                                                  #        RUPTREG1
036598,000389:                                                                                                  #        PIPCTR
036599,000390: 
036600,000391: 37,3063           55227        ONMNITOR           TS       PIPCTR                                
036601,000392: 
036602,000393: 37,3064           05267                           TC       FIXDELAY                              #  WAIT
036603,000394: 37,3065           00062        0.5SEC             DEC      50         B-14                       
036604,000395: 
036605,000396: 37,3066           35016        QUIKREAD           CAF      TWO                                   
036606,000397: 37,3067           54070                           TS       RUPTREG1                              
036607,000398: 37,3070           50000                           INDEX    A                                     
036608,000399: 37,3071           30037                           CA       PIPAX                                 #  SAVE ACTUAL PIPAS FOR TM.
036609,000400: 37,3072           50070                           INDEX    RUPTREG1                              
036610,000401: 37,3073           57533                           XCH      XPIPBUF                               #  UPDATE X,Y,ZPIPBUF
036611,000402: 37,3074           50070                           INDEX    RUPTREG1                              
036612,000403: 37,3075           55536                           TS       XOLDBUF                               #  AND X,Y,ZOLDBUF
036613,000404: 37,3076           10070        CHKCTR             CCS      RUPTREG1                              
036614,000405: 37,3077           13067                           TCF      QUIKREAD   +1                         #  LOOP AGAIN
036615,000406: 37,3100           11227                           CCS      PIPCTR                                
036616,000407: 37,3101           13063                           TCF      ONMNITOR                              
036617,000408: 37,3102           05324                           TC       TASKOVER                              
036618,000409: 

Page 828

036620,000411:                                                                                                  #  *************************************   SERVICER   *************************************************************
036621,000412: 
036622,000413: 37,3103  E7,1431                                  EBANK=   DVCNTR                                
036623,000414: 
036624,000415: 37,3103           35016        SERVICER           CAF      TWO                                   
036625,000416: 37,3104           00004                           INHINT                                         
036626,000417: 37,3105           54070        PIPCHECK           TS       RUPTREG1                              
036627,000418: 
036628,000419: 37,3106           60000                           DOUBLE                                         
036629,000420: 37,3107           50000                           INDEX    A                                     
036630,000421: 37,3110           11162                           CCS      DELVX                                 
036631,000422: 37,3111           03113                           TC       +2                                    
036632,000423: 37,3112           03121                           TC       PIPLOOP                               
036633,000424: 
036634,000425: 37,3113           63231                           AD       -MAXDELV                              #  DO PIPA-SATURATION TEST BEFORE
036635,000426: 37,3114           00006                           EXTEND                                         
036636,000427: 37,3115           63121                           BZMF     PIPLOOP                               #  COMPENSATION.
036637,000428: 
036638,000429: 37,3116           05650                           TC       ALARM                                 
036639,000430: 37,3117           00205                           OCT      00205                                 #  SATURATED-PIPA ALARM   ***CHANGE LATER
036640,000431: 37,3120           03142                           TC       AVERAGEG                              
036641,000432: 
036642,000433: 37,3121           10070        PIPLOOP            CCS      RUPTREG1                              
036643,000434: 37,3122           13105                           TCF      PIPCHECK                              
036644,000435: 
036645,000436: 37,3123           05412                           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
036646,000437: 37,3124           16035                           OCT      16035                                 
036647,000438: 37,3125           20000                           OCT      20000                                 
036648,000439: 37,3126  E7,1431                                  EBANK=   DVCNTR                                
036649,000440: 37,3126           03132 76067                     2CADR    DVTOTUP                               
036650,000441: 
036651,000442: 37,3130           04662                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
036652,000443: 37,3131           15262                           CADR     1/PIPA                                
036653,000444: 
036654,000445: 37,3132           06006        DVTOTUP            TC       INTPRET                               
036655,000446: 37,3133           51575                           VLOAD    ABVAL                                 #  GET ABS VALUE OF DELV
036656,000447: 37,3134           01163                                    DELV                                  
036657,000448: 37,3135           77405                           DMP      EXIT                                  
036658,000449: 37,3136           37450                                    KPIP1                                 #  SCALE AT 2(+7)
036659,000450: 
036660,000451: 37,3137           00006                           EXTEND                                         
036661,000452: 37,3140           30155                           DCA      MPAC                                  
036662,000453: 37,3141           21426                           DAS      DVTOTAL                               #  ACCUMULATE DVTOTAL
036663,000454: 37,3142           05412        AVERAGEG           TC       PHASCHNG                              
036664,000455: 37,3143           10035                           OCT      10035                                 
036665,000456: 
036666,000457: 37,3144           06006                           TC       INTPRET                               
036667,000458: 37,3145           77624                           CALL                                           

Page 829

036669,000460: 37,3146           77417                                    CALCRVG                               
036670,000461: 37,3147           77776                           EXIT                                           
036671,000462: 
036672,000463: 37,3150           05412                           TC       PHASCHNG                              
036673,000464: 37,3151           10035                           OCT      10035                                 
036674,000465: 
036675,000466: 37,3152           34113                           CAF      OCT31                                 #  COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
036676,000467: 37,3153           05606                           TC       GENTRAN                               #  INTO RN, VN, GDT/12, GOBL/2,PIPTIME
036677,000468: 37,3154           01231                           ADRES    RN1                                   
036678,000469: 37,3155           01170                           ADRES    RN                                    
036679,000470: 37,3156           00003                           RELINT                                         #  GENTRAN DOES AN INHINT
036680,000471: 37,3157           05412                           TC       PHASCHNG                              
036681,000472: 37,3160           10035                           OCT      10035                                 
036682,000473: 
036683,000474: 37,3161           00006                           EXTEND                                         
036684,000475: 37,3162           31223                           DCA      AVGEXIT                               
036685,000476: 37,3163           52006                           DXCH     Z                                     #  AVERAGEG EXIT
036686,000477: 
036687,000478: 37,3164           31205        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
036688,000479: 37,3165           55074                           TS       OLDBT1                                #  SET UP FREE FALL GYRO COMPENSATION
036689,000480: 
036690,000481: 37,3166           05546                           TC       UPFLAG                                #  SET DRIFTFLG
036691,000482: 37,3167           00036                           ADRES    DRIFTFLG                              #  BIT 15 FLAG 2
036692,000483: 37,3170           05372                           TC       2PHSCHNG                              
036693,000484: 37,3171           00005                           OCT      5                                     #  GROUP 5 OFF
036694,000485: 37,3172           05022                           OCT      05022                                 #  GROUP 2 ON FOR AVETOMID
036695,000486: 37,3173           20000                           OCT      20000                                 
036696,000487: 
036697,000488: 37,3174           06006                           TC       INTPRET                               
036698,000489: 37,3175           77624                           CALL                                           
036699,000490: 37,3176           73702                                    AVETOMID                              #  CONVERT STATE VECTOR TO REFERENCE SCALE.
036700,000491: 37,3177           77776                           EXIT                                           
036701,000492: 
036702,000493: 37,3200           35021                           CAF      ZERO                                  #  ZERO MARK COUNTERS.
036703,000494: 37,3201           55125                           TS       VHFCNT                                
036704,000495: 37,3202           55126                           TS       TRKMKCNT                              
036705,000496: 
036706,000497: 37,3203           04662                           TC       BANKCALL                              
036707,000498: 37,3204           17173                           CADR     PIPFREE                               
036708,000499: 
036709,000500: 37,3205           45007                           CS       BIT9                                  
036710,000501: 37,3206           55734                           TS       MRKBUF2                               #  INVALIDATE MARK BUFFER
036711,000502: 37,3207           00006                           EXTEND                                         
036712,000503: 37,3210           03011                           WAND     DSALMOUT                              
036713,000504: 
036714,000505: 37,3211           05560                           TC       DOWNFLAG                              
036715,000506: 37,3212           00147                           ADRES    CM/DSTBY                              
036716,000507: 
036717,000508: 37,3213           05560                           TC       DOWNFLAG                              
036718,000509: 37,3214           00162                           ADRES    V37FLAG                               
036719,000510: 

Page 830

036721,000512: 37,3215           35011                           CAF      BIT7                                  #  RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
036722,000513: 37,3216           70074                           MASK     FLAGWRD0                              
036723,000514: 37,3217           00006                           EXTEND                                         
036724,000515: 37,3220           13224                           BZF      +4                                    
036725,000516: 
036726,000517: 37,3221           05372                           TC       2PHSCHNG                              
036727,000518: 37,3222           00111                           OCT      111                                   #  1.11SPOT
036728,000519: 37,3223           00132                           OCT      132                                   #  2.13SPOT
036729,000520: 
036730,000521: 37,3224           04701                           TC       POSTJUMP                              
036731,000522: 37,3225           10124                           CADR     CANV37                                
036732,000523: 
036733,000524: 37,3226           05412        SERVEXIT           TC       PHASCHNG                              
036734,000525: 37,3227           00035                           OCT      00035                                 #  A, 5.3 = REREADAC     (ONLY)
036735,000526: 
036736,000527: 37,3230           15217                           TCF      ENDOFJOB                              
036737,000528: 
036738,000529: 37,3231     5024               DVTHRUSH           EQUALS   ELEVEN                                #  15 PERCENT OF 2SEC PIPA ACCUMULATION,
036739,000530:                                                                                                  #        FOR 503-FULL CSM/LEM....DELV SC.AT
036740,000531:                                                                                                  #        5.85 CM/SEC.
036741,000532: 
036742,000533: 37,3231           63401        -MAXDELV           DEC      -6398      B-14                       #  3200 PPS FOR 2 SEC CCS TAKES 1
036743,000534: 
036744,000535: 37,3232           00170        JTAGTIME           DEC      120        B-14                       #  = 1 SEC + T CDU, T CDU = .1 SEC
036745,000536: 
036746,000537: 37,3233           00372        2.5SEC             DEC      250        B-14                       
036747,000538: 37,3234           00044        MDOTFAIL           DEC      144.0      B-16                       #  5 SEC MASS LOSS AT 28.8 KG/SEC
036748,000539:                                                                                                  #  SHOULD BE 2-4 SECS FOR NO START
036749,000540:                                                                                                  #            6-8 SECS FOR FAILURE
036750,000541: 

Page 831

036752,000543:                                                                                                  #  NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
036753,000544:                                                                                                  #  HAS 1 LEADING BINARY ZERO.  IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
036754,000545:                                                                                                  #  SCALED AT 2(+24) M.
036755,000546: 
036756,000547: 37,3235           35025        NORMLIZE           CAF      THIRTEEN                              #  SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
036757,000548: 37,3236           05606                           TC       GENTRAN                               #  INTO RN,VN,PIPTIME
036758,000549: 37,3237           01231                           ADRES    RN1                                   #  FROM HERE
036759,000550: 37,3240           01170                           ADRES    RN                                    #  TO HERE
036760,000551: 
036761,000552: 37,3241           00003                           RELINT                                         
036762,000553: 37,3242           06006                           TC       INTPRET                               
036763,000554: 37,3243           45175                           VLOAD    CALL                                  #  LOAD RN FOR CALCGRAV
036764,000555: 37,3244           01171                                    RN                                    
036765,000556: 37,3245           77352                                    CALCGRAV                              #  INITIALISE UNITR RMAG GDT1
036766,000557: 
036767,000558: 37,3246           25207                           STOVL    GDT/2                                 
036768,000559: 37,3247           01256                                    GOBL1/2                               
036769,000560: 37,3250           01215                           STORE    GOBL/2                                
036770,000561: 37,3251           77776                           EXIT                                           
036771,000562: 37,3252           15217                           TCF      ENDOFJOB                              
036772,000563: 

Page 832

036774,000565:                                                                                                  #  *****  PIPA READER *****
036775,000566:                                                                                                  #  MOD NO. 00 BY D. LICKLY DEC. 9 1966
036776,000567: 
036777,000568:                                                                                                  #  FUNCTIONAL DESCRIPTION
036778,000569: 
036779,000570:                                                                                                  #  SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
036780,000571:                                                                                                  #  PIPA READINGS ARE STORED IN THE VECTOR DELV.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
036781,000572:                                                                                                  #  RESTARTS BEGIN AT REREADAC.
036782,000573: 
036783,000574:                                                                                                  #  AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
036784,000575:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
036785,000576:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
036786,000577:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
036787,000578: 
036788,000579:                                                                                                  #  CALLING SEQUENCE AND EXIT
036789,000580: 
036790,000581:                                                                                                  #        CALL VIA TC, ISWCALL, ETC.
036791,000582: 
036792,000583:                                                                                                  #        EXIT IS VIA Q.
036793,000584: 
036794,000585:                                                                                                  #  INPUT
036795,000586: 
036796,000587:                                                                                                  #        INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
036797,000588: 
036798,000589:                                                                                                  #  OUTPUT
036799,000590: 
036800,000591:                                                                                                  #        HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
036801,000592: 
036802,000593:                                                                                                  #        PIPTIME CONTAINS TIME OF PIPA READING.
036803,000594: 
036804,000595:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
036805,000596: 
036806,000597:                                                                                                  #        LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
036807,000598:                                                                                                  #        TEMX    TEMY    TEMZ    PIPAGE
036808,000599: 
036809,000600: 37,3253           00006        PIPASR             EXTEND                                         
036810,000601: 37,3254           30025                           DCA      TIME2                                 
036811,000602: 37,3255           53246                           DXCH     PIPTIME1                              #  CURRENT TIME  POSITIVE VALUE
036812,000603: 37,3256           45021                           CS       ZERO                                  #  INITIALIZE THESE AT NEG ZERO.
036813,000604: 37,3257           55224                           TS       TEMX                                  
036814,000605: 37,3260           55225                           TS       TEMY                                  
036815,000606: 37,3261           55226                           TS       TEMZ                                  

Page 833

036817,000608: 37,3262           35021                           CA       ZERO                                  
036818,000609: 37,3263           55166                           TS       DELVZ                                 #  OTHER DELVS OK INCLUDING LOW ORDER
036819,000610: 37,3264           55164                           TS       DELVY                                 
036820,000611: 
036821,000612: 37,3265           55163                           TS       DELVX      +1                         #  LOW ORDER DELV'S ARE ZEROED FOR TM:  THUS
036822,000613: 37,3266           55165                           TS       DELVY      +1                         #  IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
036823,000614: 37,3267           55167                           TS       DELVZ      +1                         #  CONTAIN PROPER COMPENSATION.  IF=0, THEN
036824,000615:                                                                                                  #  THE TM VALUES ARE BEFORE COMPENSATION.
036825,000616: 
036826,000617: 37,3270           55230                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
036827,000618: 
036828,000619: 37,3271           00006        REPIP1             EXTEND                                         
036829,000620: 37,3272           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
036830,000621: 37,3273           53225                           DXCH     TEMX                                  
036831,000622: 37,3274           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
036832,000623: 37,3275           55162                           TS       DELVX                                 
036833,000624: 37,3276           23164                           LXCH     DELVY                                 
036834,000625: 
036835,000626: 37,3277           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
036836,000627: 37,3300           57226                           XCH      TEMZ                                  
036837,000628: 37,3301           56041                           XCH      PIPAZ                                 
036838,000629: 37,3302           55166        DODELVZ            TS       DELVZ                                 
036839,000630: 
036840,000631: 37,3303           00002                           TC       Q                                     
036841,000632: 
036842,000633: 37,3304  E6,1661                                  EBANK=   AOG                                   
036843,000634: 
036844,000635: 37,3304           10763        REREADAC           CCS      PHASE5                                #  LAST PASS CHECK
036845,000636: 37,3305           13307                           TCF      +2                                    
036846,000637: 37,3306           15324                           TCF      TASKOVER                              
036847,000638: 
036848,000639: 37,3307           37665                           CAF      PRIO31                                #  RESTART MAY HAVE WIPED OUT LASTBIAS, AN
036849,000640: 37,3310           55074                           TS       1/PIPADT                              #        UNPROTECTED NOVAC FROM PREREAD,
036850,000641:                                                                                                  #        WHICH SET(S) UP 1/PIPADT (THUSLY)
036851,000642:                                                                                                  #        FOR NON-COASTING COMPENSATION....BE
036852,000643:                                                                                                  #        SURE 1/PIPADT IS AOK.  (PRIO31 IS
036853,000644:                                                                                                  #        2.0SEC SC.AT B+8CS)
036854,000645: 
036855,000646: 37,3311           11230                           CCS      PIPAGE                                
036856,000647: 37,3312           12743                           TCF      READACCS                              #  PIP READING NOT STARTED.  GO TO BEGINNING
036857,000648: 
036858,000649: 37,3313           33351                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
036859,000650: 37,3314           54002                           TS       Q                                     
036860,000651: 
036861,000652: 37,3315           11166                           CCS      DELVZ                                 
036862,000653: 37,3316           00002                           TC       Q                                     #  Z DONE, GO DO CDUS
036863,000654: 37,3317           13322                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
036864,000655: 37,3320           00002                           TC       Q                                     
036865,000656: 37,3321           00002                           TC       Q                                     

Page 834

036867,000658: 37,3322           22007                           ZL                                             
036868,000659: 37,3323           11164                           CCS      DELVY                                 
036869,000660: 37,3324           13327                           TCF      +3                                    
036870,000661: 37,3325           13336                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
036871,000662: 37,3326           13327                           TCF      +1                                    
036872,000663: 37,3327           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
036873,000664: 
036874,000665: 37,3330           11226                           CCS      TEMZ                                  
036875,000666: 37,3331           41226                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
036876,000667: 37,3332           13302                           TCF      DODELVZ                               
036877,000668: 37,3333           13331                           TCF      -2                                    
036878,000669: 37,3334           23166                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
036879,000670: 37,3335           00002                           TC       Q                                     
036880,000671: 
036881,000672: 37,3336           11224        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
036882,000673: 37,3337           41224                           CS       TEMX                                  #  YES
036883,000674: 37,3340           13343                           TCF      +3                                    #  YES
036884,000675: 37,3341           13337                           TCF      -2                                    #  YES
036885,000676: 37,3342           13271                           TCF      REPIP1                                #  NO
036886,000677: 37,3343           55162                           TS       DELVX                                 
036887,000678: 
036888,000679: 37,3344           41225                           CS       TEMY                                  
036889,000680: 37,3345           55164                           TS       DELVY                                 
036890,000681: 
036891,000682: 37,3346           45021                           CS       ZERO                                  #  ZERO X AND Y PIPS
036892,000683: 37,3347           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
036893,000684: 
036894,000685: 37,3350           13277                           TCF      REPIP3                                
036895,000686: 
036896,000687: 37,3351           02744        DONEADR            GENADR   PIPSDONE                              
036897,000688: 

Page 835

036899,000690:                                                                                                  #  *************************************************************************************************************
036900,000691: 
036901,000692:                                                                                                  #           ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
036902,000693:                                                                                                  #  ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
036903,000694: 
036904,000695:                                                                                                  #           FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
036905,000696:                                                                                                  #  HARMONIC COEFFICIENT J.
036906,000697: 
036907,000698:                                                                                                  #  ROUTINE CALCRVG REQUIRES...
036908,000699:                                                                                                  #        1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
036909,000700:                                                                                                  #        2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
036910,000701:                                                                                                  #        3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
036911,000702:                                                                                                  #        4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
036912,000703: 
036913,000704:                                                                                                  #  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
036914,000705:                                                                                                  #  UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
036915,000706: 
036916,000707: 37,3352           41456        CALCGRAV           UNIT     PUSH                                  #  ENTER WITH RN IN MPAC
036917,000708: 37,3353           01760                           STORE    UNITR                                 
036918,000709: 37,3354           67340                           LXC,1    SLOAD                                 
036919,000710: 37,3355           03746                                    RTX2                                  
036920,000711: 37,3356           00047                                    X1                                    
036921,000712: 37,3357           77240                           BMN      VLOAD                                 
036922,000713: 37,3360           77406                                    ITISMOON                              
036923,000714: 37,3361           41441                           DOT      PUSH                                  
036924,000715: 37,3362           01714                                    UNITW                                 
036925,000716: 37,3363           44316                           DSQ      BDSU                                  
036926,000717: 37,3364           37460                                    DP1/20                                
036927,000718: 37,3365           56325                           PDDL     DDV                                   
036928,000719: 37,3366           37462                                    RESQ                                  
036929,000720: 37,3367           00043                                    34D                                   #  (RN)SQ
036930,000721: 37,3370           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
036931,000722: 37,3371           41205                           DMP      DMP                                   
036932,000723: 37,3372           37464                                    20J                                   
036933,000724: 37,3373           65361                           VXSC     PDDL                                  
036934,000725: 37,3374           01760                                    UNITR                                 
036935,000726: 37,3375           41205                           DMP      DMP                                   
036936,000727: 37,3376           37466                                    2J                                    
036937,000728: 37,3377           00041                                    32D                                   
036938,000729: 37,3400           53361                           VXSC     VAD                                   
036939,000730: 37,3401           01714                                    UNITW                                 
036940,000731: 37,3402           77626                           STADR                                          
036941,000732: 37,3403           76521                           STORE    GOBL1/2                               
036942,000733: 37,3404           41455                           VAD      PUSH                                  
036943,000734: 37,3405           01760                                    UNITR                                 
036944,000735: 37,3406           60345        ITISMOON           DLOAD    NORM                                  
036945,000736: 37,3407           00043                                    34D                                   
036946,000737: 37,3410           00050                                    X2                                    
036947,000738: 37,3411           53663                           BDDV*    SLR*                                  

Page 836

036949,000740: 37,3412           37452                                    -MUDT(E),1                            
036950,000741: 37,3413           56623                                    0          -21D,2                     
036951,000742: 37,3414           45561                           VXSC     STADR                                 
036952,000743: 37,3415           76527                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
036953,000744: 37,3416           77616                           RVQ                                            
036954,000745: 
036955,000746: 37,3417           74375        CALCRVG            VLOAD    VXSC                                  
036956,000747: 37,3420           01163                                    DELV                                  
036957,000748: 37,3421           37450                                    KPIP1                                 
036958,000749: 37,3422           76505                           VXM      VSL1                                  
036959,000750: 37,3423           01736                                    REFSMMAT                              
036960,000751: 37,3424           03433                           STORE    DELVREF                               #  DELV IN REF COORDS AT 2(+7)
036961,000752: 37,3425           41562                           VSR1     PUSH                                  
036962,000753: 37,3426           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
036963,000754: 37,3427           01207                                    GDT/2                                 
036964,000755: 37,3430           74255                           VAD      VXSC                                  
036965,000756: 37,3431           01177                                    VN                                    
036966,000757: 37,3432           37456                                    2SEC(22)                              
036967,000758: 37,3433           44055                           VAD      STQ                                   
036968,000759: 37,3434           01171                                    RN                                    
036969,000760: 37,3435           00037                                    31D                                   
036970,000761: 37,3436           35232                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
036971,000762: 37,3437           77352                                    CALCGRAV                              
036972,000763: 
036973,000764: 37,3440           53255                           VAD      VAD                                   
036974,000765: 37,3441           77655                           VAD                                            
036975,000766: 37,3442           01177                                    VN                                    
036976,000767: 37,3443           35240                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7) M/CS
036977,000768: 37,3444           00037                                    31D                                   
036978,000769: 
036979,000770: 37,3445           03215 27057  KPIP               2DEC     .1024                                 #  SCALES DELV TO 2(+4)
036980,000771: 
036981,000772: 37,3447           02312 32537  KPIP1              2DEC     0.074880                              #  207 DELV SCALING.  1 PULSE = 5.85 CM/SEC.
036982,000773: 
036983,000774: 37,3451           61377 55754  -MUDT(E)           2DEC*    -7.9720645 E+12       B-44*           
036984,000775: 
036985,000776: 37,3453           77644 65556  -MUDT(M)           2DEC*    -9.805556  E+10       B-44*           
036986,000777: 
036987,000778: 37,3455           00000 31000  2SEC(22)           2DEC     200        B-22                       
036988,000779: 
036989,000780: 37,3457           01463 06315  DP1/20             2DEC     0.05                                  
036990,000781: 
036991,000782: 37,3461           00001 05000  RESQ               2DEC*    40.6809913 E12        B-59*           
036992,000783: 
036993,000784: 37,3463           02047 36332  20J                2DEC*    3.24692010 E-2        B1*             
036994,000785: 
036995,000786: 37,3465           00152 14511  2J                 2DEC*    3.24692010 E-3        B1*             
036996,000787: 

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