Source Code

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

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 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.

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

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