Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

033557,000002:                                                                                                 #  Copyright:    Public domain.
033558,000003:                                                                                                 #  Filename:      SERVICER207.agc
033559,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
033560,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
033561,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
033562,000007:                                                                                                 #  Assembler:    yaYUL
033563,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
033564,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
033565,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
033566,000011:                                                                                                 #  Mod history:  2011-02-28 JL    Adapted from corresponding Colossus 249 file.
033567,000012: 
033568,000013:                                                                                                 # # Page 770
033569,000014:                                                                                                 #  PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
033570,000015: 
033571,000016: 
033572,000017:                                                                                                 #  MOD NO.  00   BY M.HAMILTON   DEC.12, 1966
033573,000018: 
033574,000019: 
033575,000020:                                                                                                 #  FUNCTIONAL DESCRIPTION
033576,000021: 
033577,000022:                                                                                                 #  THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
033578,000023:                                                                                                 #  THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
033579,000024: 
033580,000025:                                                                                                 #  GENERAL REFERENCES TO  SERVICER  OR  AVERAGE G  ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
033581,000026:                                                                                                 #  READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
033582,000027: 
033583,000028:                                                                                                 #  PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
033584,000029:                                                                                                 #  AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
033585,000030:                                                                                                 #  2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
033586,000031: 
033587,000032:                                                                                                 #  THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
033588,000033:                                                                                                 #  EXPLANATION OF AVGEXIT BELOW).
033589,000034: 
033590,000035:                                                                                                 #  DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
033591,000036: 
033592,000037: 
033593,000038:                                                                                                 #     PREREAD
033594,000039: 
033595,000040:                                                                                                 #           PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
033596,000041:                                                                                                 #           LASTBIAS JOB SCHEDULED.
033597,000042:                                                                                                 #           PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
033598,000043:                                                                                                 #           AVERAGE G FLAG SET ON.
033599,000044:                                                                                                 #           DRIFT FLAG SET OFF.
033600,000045:                                                                                                 #           V37 FLAG SET ON.
033601,000046:                                                                                                 #           INITIALIZATION OF   1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
033602,000047:                                                                                                 #                               2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
033603,000048:                                                                                                 #                               3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
033604,000049:                                                                                                 #           NORMLIZE JOB SCHEDULED.
033605,000050:                                                                                                 #           READACCS TASH CALLED IN 2 SECONDS.
033606,000051: 
033607,000052: 
033608,000053:                                                                                                 #     NORMLIZE
033609,000054: 
033610,000055:                                                                                                 #           GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
033611,000056: 
033612,000057: 
033613,000058:                                                                                                 #     READACCS
033614,000059: 
033615,000060:                                                                                                 #           IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
033616,000061:                                                                                                 #           ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
033617,000062:                                                                                                 #           PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
033618,000063:                                                                                                 #           IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
033619,000064:                                                                                                 # # Page 771
033620,000065:                                                                                                 #           IF AVERAGEG FLAG ON    READACCS CALLED TO RECYCLE IN 2 SECONDS.
033621,000066:                                                                                                 #           IF AVERAGEG FLAG OFF   AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
033622,000067:                                                                                                 #           SERVICER JOB SCHEDULED.
033623,000068: 
033624,000069: 
033625,000070:                                                                                                 #           TEST CONNECTOR OUTBIT TURNED ON.
033626,000071: 
033627,000072: 
033628,000073:                                                                                                 #  ONMNITOR
033629,000074: 
033630,000075:                                                                                                 #           A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 
033631,000076:                                                                                                 #           SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS
033632,000077: 
033633,000078:                                                                                                 #     QUIKREAD
033634,000079: 
033635,000080:                                                                                                 #         READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
033636,000081:                                                                                                 #           DOWNLIST DURING ENTRY.
033637,000082:                                                                                                 #     SERVICER
033638,000083:                                                                                                 #           DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
033639,000084:                                                                                                 #                  IF BAD PIP   1) ALARM SENT.
033640,000085:                                                                                                 #                               2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED.  CONTROL
033641,000086:                                                                                                 #                                  TRANSFERRED TO AVERAGE G.
033642,000087:                                                                                                 #           PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
033643,000088:                                                                                                 #           DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
033644,000089:                                                                                                 #           THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
033645,000090:                                                                                                 #           CONTROL TRANSFERRED TO AVERAGE Q.
033646,000091: 
033647,000092: 
033648,000093:                                                                                                 #           DVMON
033649,000094: 
033650,000095:                                                                                                 #              THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
033651,000096:                                                                                                 #              THRUST LEVEL.
033652,000097:                                                                                                 #                  IF THRUST    1) ULLAGE OFF ROUTINE PERFORMED.
033653,000098:                                                                                                 #                               2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
033654,000099:                                                                                                 #                               3) CONTROL TRANSFERRED TO AVERAGE G.
033655,000100:                                                                                                 #                  IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
033656,000101:                                                                                                 #                               2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
033657,000102:                                                                                                 #                                  HAS FAILED FOR 3 CONSECUTIVE PASSES.
033658,000103: 
033659,000104: 
033660,000105:                                                                                                 #                 ENGINE FAIL
033661,000106: 
033662,000107:                                                                                                 #                   ENGFAIL1 TASK CALLED IN 2.5 SECONDS.  THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
033663,000108:                                                                                                 #                       SEQUENCE MAY BE REPEATED.
033664,000109:                                                                                                 #                   ENGINOF3 PERFORMED.
033665,000110:                                                                                                 #                   DAP SET UP FOR RCS.
033666,000111: 
033667,000112: 
033668,000113:                                                                                                 #     AVERAGE G
033669,000114: 
033670,000115:                                                                                                 # # Page 772
033671,000116:                                                                                                 #           RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
033672,000117:                                                                                                 #           OF GDT/2
033673,000118:                                                                                                 #           RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
033674,000119:                                                                                                 #           CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVEGEXIT.
033675,000120:                                                                                                 #           LAST PASS (AVGEND)  1) FREE FALL GYRO COMPENSATION SET UP.
033676,000121:                                                                                                 #                               2) DRIFT FLAG TURNED ON.
033677,000122:                                                                                                 #                               3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
033678,000123:                                                                                                 #                               4) ONMONITOR FLAG RESET.
033679,000124:                                                                                                 #                               5) V37 FLAG RESET.
033680,000125:                                                                                                 #                               6) TEST CONNECTOR OUTBIT RESET.
033681,000126:                                                                                                 #                               7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
033682,000127: 
033683,000128: 
033684,000129:                                                                                                 #  CALLING SEQUENCE
033685,000130: 
033686,000131:                                                                                                 #           PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
033687,000132:                                                                                                 #           READACCS CALLED AS WAITLIST TASK.
033688,000133: 
033689,000134: 
033690,000135:                                                                                                 #  SUBROUTINES CALLED
033691,000136: 
033692,000137:                                                                                                 #           UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
033693,000138: 
033694,000139:                                                                                                 #           OTHER - PIPASR  1/PIPA  CALCGRAV  CALCRVG  AVETOMID
033695,000140: 
033696,000141: 
033697,000142:                                                                                                 #  NORMAL EXIT MODES
033698,000143: 
033699,000144:                                                                                                 #           ENDOFJOB  TASKOVER  CANV37
033700,000145: 
033701,000146:                                                                                                 #           AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
033702,000147:                                                                                                 #                     OF EACH CYCLE OF AVERAGE G.
033703,000148:                                                                                                 #                     THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE REPORTED
033704,000149:                                                                                                 #                     AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
033705,000150:                                                                                                 #                     ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
033706,000151: 
033707,000152:                                                                                                 #           SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
033708,000153:                                                                                                 #                     THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
033709,000154: 
033710,000155:                                                                                                 #           AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
033711,000156:                                                                                                 #                     FINAL EXIT IS TO CANV37.                             F AVERAGE G).
033712,000157: 
033713,000158: 
033714,000159:                                                                                                 #  OUTPUT
033715,000160: 
033716,000161:                                                                                                 #     DVTOTAL(2)  PIPTIME(2)  XPIPBUF(2)  YPIPBUF(2)  ZPIPBUF(2)
033717,000162:                                                                                                 #     RN(6)        REFERENCE COORD.   SCALED AT 2(+29)M/CS
033718,000163:                                                                                                 #     VN(6)        REFERENCE COORD.   SCALED AT 2(+7)M/CS
033719,000164:                                                                                                 #     GDT/2(6)     REFERENCE COORD.   SCALED AT 2(+7)M/CS
033720,000165:                                                                                                 #     DELV(6)      STABLE MEMB. COORD.SCALED AT 2(+14)*5.85*10(-4)M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))
033721,000166:                                                                                                 # # Page 773
033722,000167:                                                                                                 #     DELVREF(6)   REFERENCE COORD.   SCALED AT 2(+7)M/CS
033723,000168: 
033724,000169:                                                                                                 #  INITIALIZATION
033725,000170: 
033726,000171:                                                                                                 #           ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
033727,000172:                                                                                                 #           IDLE FLAG ON IF DVMON TO BE BYPASSED.
033728,000173:                                                                                                 #           DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
033729,000174:                                                                                                 #           AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G.  IF NO ROUTINE
033730,000175:                                                                                                 #                  TO BE DONE, AVGEXIT SET TO SERVEXIT.
033731,000176:                                                                                                 #           VALUES NEEDED
033732,000177:                                                                                                 #                  REFSMMAT
033733,000178:                                                                                                 #                  UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
033734,000179:                                                                                                 #                  RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
033735,000180: 
033736,000181: 
033737,000182:                                                                                                 #  DEBRIS
033738,000183: 
033739,000184:                                                                                                 #     CENTRALS     A, L, Q
033740,000185:                                                                                                 #     OTHER        INTERNAL - DVCNTR(1)  PIPAGE(1)  PIPCTR(1)  AVGEXIT(2)
033741,000186:                                                                                                 #                  EXTERNAL - ITEMP1(1)  ITEMP2(1)  RUPTREG1(1)  TEMX(1)  TEMY(1)  TEMZ(1)
033742,000187:                                                                                                 #                  USEFUL DEBRIS
033743,000188:                                                                                                 #                     RN1(6)  VN1(6)  GDT1/2  PIPTIME1(2)
033744,000189:                                                                                                 #                         THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
033745,000190:                                                                                                 #                         AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
033746,000191:                                                                                                 #                     UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
033747,000192:                                                                                                 #                     RMAG SCALED AT 2(+58) IN 36D.
033748,000193:                                                                                                 #                     RMAGSQ SCALED AT 2(+58) IN 34D.
033749,000194:                                                                                                 #                     (RE/RMAG)SQ IN 32D.
033750,000195: 
033751,000196: 
033752,000197: 27,2633                                          BANK     27                                    
033753,000198: 37,2000                                          SETLOC   SERVICES                              
033754,000199: 37,2000                                          BANK                                           
033755,000200: 
033756,000201: 37,2604  E7,1431                                 EBANK=   DVCNTR                                
033757,000202:                                                                                                 #  *************************************   PREREAD   **************************************************************
033758,000203: 
033759,000204: 
033760,000205: 37,2604                                          COUNT    37/SERV                               
033761,000206: 
033762,000207: 37,2604           34113        PREREAD           CA       OCT31                                 #  5.31 PROTECTS REDO5.31 AS IMMEDIATE TASK
033763,000208: 37,2605           54001                          TS       L                                     
033764,000209: 37,2606           40000                          COM                                            
033765,000210: 37,2607           52763                          DXCH     -PHASE5                               
033766,000211: 
033767,000212: 37,2610           34766                          CAF      PRIO21                                
033768,000213: 37,2611           05027                          TC       NOVAC                                 
033769,000214: 37,2612  E3,1460                                 EBANK=   NBDX                                  
033770,000215: 37,2612           03636 14063                    2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
033771,000216:                                                                                                 # # Page 774
033772,000217: 37,2614           02631        REDO5.31          TC       PREREAD1                              
033773,000218: 
033774,000219: 37,2615           37667                          CAF      PRIO32                                
033775,000220: 37,2616           05042                          TC       FINDVAC                               #  SET UP NORMLIZE JOB REQUIRED PRIOR TO
033776,000221: 37,2617  E7,1431                                 EBANK=   DVCNTR                                #  FIRST AVERAGE G PASS
033777,000222: 37,2617           03145 76067                    2CADR    NORMLIZE                              
033778,000223: 37,2621           34735                          CAF      2SECS                                 
033779,000224: 37,2622           05140                          TC       WAITLIST                              
033780,000225: 37,2623  E6,1661                                 EBANK=   AOG                                   
033781,000226: 37,2623           02653 76066                    2CADR    READACCS                              
033782,000227: 37,2625           44711                          CS       TWO                                   
033783,000228: 37,2626           04114                          TC       NEWPHASE                              
033784,000229: 37,2627           00005                          OCT      5                                     
033785,000230: 
033786,000231: 37,2630           15213                          TCF      TASKOVER                              
033787,000232: 
033788,000233: 
033789,000234: 37,2631           00006        PREREAD1          EXTEND                                         
033790,000235: 37,2632           22070                          QXCH     RUPTREG1                              
033791,000236: 
033792,000237: 37,2633           03163                          TC       PIPASR                                #  CLEAR + READ PIPS LAST TIME IN FREE FALL
033793,000238: 
033794,000239: 37,2634           34712                          CAF      ONE                                   #  SET UP PIPAGE FOR REREADAC IN CASE A
033795,000240: 37,2635           55230                          TS       PIPAGE                                #       RESTART OCCURS BEFORE READACCS
033796,000241: 
033797,000242: 37,2636           40075                          CS       FLAGWRD1                              #  SET AVEG FLAG
033798,000243: 37,2637           74712                          MASK     BIT1                                  
033799,000244: 37,2640           26075                          ADS      FLAGWRD1                              
033800,000245: 
033801,000246: 37,2641           34672                          CA       POSMAX                                
033802,000247: 37,2642           70076                          MASK     FLAGWRD2                              
033803,000248: 37,2643           54076                          TS       FLAGWRD2                              #  KNOCK DOWN DRIFT FLAG
033804,000249: 
033805,000250: 37,2644           40103                          CS       FLAGWRD7                              #  SET V37 FLAG
033806,000251: 37,2645           74705                          MASK     BIT6                                  
033807,000252: 37,2646           26103                          ADS      FLAGWRD7                              
033808,000253: 
033809,000254: 37,2647           34714                          CAF      ZERO                                  
033810,000255: 37,2650           55425                          TS       DVTOTAL                               #  CLEAR DVTOTAL
033811,000256: 37,2651           55426                          TS       DVTOTAL    +1                         
033812,000257: 
033813,000258: 37,2652           00070                          TC       RUPTREG1                              
033814,000259: 
033815,000260:                                                                                                 # # Page 775
033816,000261:                                                                                                 #  *************************************   READACCS   **************************************************************
033817,000262: 37,2653  E6,1661                                 EBANK=   AOG                                   
033818,000263: 37,2653           03163        READACCS          TC       PIPASR                                
033819,000264: 
033820,000265: 37,2654           34715        PIPSDONE          CAF      FIVE                                  
033821,000266: 37,2655           54001                          TS       L                                     
033822,000267: 37,2656           40000                          COM                                            
033823,000268: 37,2657           52763                          DXCH     -PHASE5                               
033824,000269: 
033825,000270: 37,2660           34712        REDO5.5           CAF      ONE                                   #  SHOW PIPS HAVE BEEN READ
033826,000271: 37,2661           55230                          TS       PIPAGE                                
033827,000272: 
033828,000273: 37,2662           34711                          CA       TWO                                   #  SET PIPCTR FOR ONMINTOR
033829,000274: 37,2663           55227                          TS       PIPCTR                                #  AFTER ABOVE PHASCHNG
033830,000275: 
033831,000276: 37,2664           40102                          CS       CM/FLAGS                              
033832,000277: 37,2665           74711                          MASK     BIT2                                  #  CM/DSTBY
033833,000278: 37,2666           10000                          CCS      A                                     
033834,000279: 37,2667           02742                          TC       CHEKAVEG                              
033835,000280: 
033836,000281: 37,2670           41246                          CS       PIPTIME1   +1                         
033837,000282: 37,2671           55065                          TS       TBASE6                                #  FOR RESTARTS
033838,000283: 37,2672           00006                          EXTEND                                         #  CONTINUE FOR ENTRY DAP
033839,000284: 37,2673           31662                          DCA      AOG                                   
033840,000285: 37,2674           53670                          DXCH     AOG/PIP                               
033841,000286: 37,2675           31663                          CA       AMG                                   
033842,000287: 37,2676           57671                          XCH      AMG/PIP                               
033843,000288: 37,2677           00006                          EXTEND                                         
033844,000289: 37,2700           31665                          DCA      ROLL/180                              
033845,000290: 37,2701           53673                          DXCH     ROLL/PIP                              
033846,000291: 37,2702           31666                          CA       BETA/180                              
033847,000292: 37,2703           57674                          XCH      BETA/PIP                              
033848,000293: 37,2704           30102                          CA       CM/FLAGS                              
033849,000294: 37,2705           74677                          MASK     BIT12                                 #  CM/DAPARM  93D  BIT12
033850,000295: 37,2706           00006                          EXTEND                                         #  DURING ENTRY, WHEN RCS DAP IS INACTIVE,
033851,000296: 37,2707           12725                          BZF      NOSAVPIP                              #  SAVE PIPAS EACH 0.5 SEC FOR TM.
033852,000297: 
033853,000298: 37,2710           32775                          CA       0.5SEC                                
033854,000299: 37,2711           05140                          TC       WAITLIST                              
033855,000300: 37,2712  E6,1533                                 EBANK=   XPIPBUF                               
033856,000301: 37,2712           02776 76066                    2CADR    QUIKREAD                              
033857,000302:                                                                                                 #                                           NO NEED TO RESTART PROTECT THIS.
033858,000303: 37,2714           31162                          CA       DELVX                                 #  SAVE PIPAS AS READ (BUT NOT COMPENSATED)
033859,000304: 37,2715           57533                          XCH      XPIPBUF                               
033860,000305: 37,2716           55536                          TS       XOLDBUF                               
033861,000306: 
033862,000307: 37,2717           31164                          CA       DELVY                                 
033863,000308: 37,2720           57534                          XCH      YPIPBUF                               
033864,000309: 37,2721           55537                          TS       YOLDBUF                               
033865,000310:                                                                                                 # # Page 776
033866,000311: 37,2722           31166                          CA       DELVZ                                 
033867,000312: 37,2723           57535                          XCH      ZPIPBUF                               
033868,000313: 37,2724           55540                          TS       ZOLDBUF                               
033869,000314: 
033870,000315: 37,2725           34715        NOSAVPIP          CA       FIVE                                  
033871,000316: 37,2726           55725                          TS       CM/GYMDT                              
033872,000317: 
033873,000318: 37,2727           33142                          CA       JTAGTIME                              #  ACTIVATE CM/RCS AFTER PIPUP TO GO
033874,000319:                                                                                                 #                                           IN JTAGTIME +5 CS.
033875,000320: 37,2730           05140                          TC       WAITLIST                              
033876,000321: 37,2731  E6,1661                                 EBANK=   AOG                                   
033877,000322: 37,2731           03222 32066                    2CADR    SETJTAG                               
033878,000323: 
033879,000324: 37,2733           46214                          CS       THREE                                 #  1.3SPOT FOR SETJTAG
033880,000325: 37,2734           04114                          TC       NEWPHASE                              
033881,000326: 37,2735           00001                          OCT      1                                     
033882,000327: 
033883,000328: 37,2736           34362                          CAF      OCT37                                 
033884,000329: 37,2737           54001                          TS       L                                     
033885,000330: 37,2740           40000                          COM                                            
033886,000331: 37,2741           52763                          DXCH     -PHASE5                               
033887,000332: 
033888,000333: 37,2742           40075        CHEKAVEG          CS       FLAGWRD1                              
033889,000334: 37,2743           74712                          MASK     BIT1                                  
033890,000335: 37,2744           10000                          CCS      A                                     #  IF AVEG FLAG DOWN SET FINAL EXIT AVEG
033891,000336: 37,2745           02765                          TC       AVEGOUT                               
033892,000337: 
033893,000338: 37,2746           34735                          CAF      2SECS                                 
033894,000339: 37,2747           05140                          TC       WAITLIST                              
033895,000340: 37,2750  E6,1661                                 EBANK=   AOG                                   
033896,000341: 37,2750           02653 76066                    2CADR    READACCS                              
033897,000342: 
033898,000343: 37,2752           34675        MAKESERV          CAF      PRIO20                                #  ESTABLISH SERVICER ROUTINE
033899,000344: 37,2753           05042                          TC       FINDVAC                               
033900,000345: 37,2754  E7,1431                                 EBANK=   DVCNTR                                
033901,000346: 37,2754           03013 76067                    2CADR    SERVICER                              
033902,000347: 
033903,000348: 37,2756           44710                          CS       FOUR                                  #  RESTART SERVICER AND READACCS
033904,000349: 37,2757           04114                          TC       NEWPHASE                              
033905,000350: 37,2760           00005                          OCT      5                                     
033906,000351: 
033907,000352: 37,2761           34702                          CAF      BIT9                                  
033908,000353: 37,2762           00006                          EXTEND                                         
033909,000354: 37,2763           05011                          WOR      DSALMOUT                              #  TURN TEST CONNECTOR OUTBIT ON
033910,000355: 
033911,000356: 37,2764           15213                          TCF      TASKOVER                              #  END PREVIOUS READACCS WAITLIST TASK
033912,000357: 
033913,000358:                                                                                                 # # Page 777
033914,000359: 37,2765           00006        AVEGOUT           EXTEND                                         
033915,000360: 37,2766           32772                          DCA      AVOUTCAD                              
033916,000361: 37,2767           53223                          DXCH     AVGEXIT                               
033917,000362: 37,2770           12752                          TCF      MAKESERV                              
033918,000363: 
033919,000364: 37,2771  E7,1431                                 EBANK=   DVCNTR                                
033920,000365: 37,2771           03074 76067  AVOUTCAD          2CADR    AVGEND                                
033921,000366: 
033922,000367:                                                                                                 # # Page 778
033923,000368:                                                                                                 #  ROUTINE NAME:  ONMNITOR
033924,000369:                                                                                                 #  MOD 04 BY BAIRNSFATHER  30 APR 1968                     REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
033925,000370:                                                                                                 #  MOD 03 BY FISHER DECEMBER 1967
033926,000371:                                                                                                 #  MOD 02 BY RYE SEPT 1967
033927,000372:                                                                                                 #  MOD 01 BY KOSMALA 23 MAR 1967
033928,000373:                                                                                                 #  MOD 00 BY KOSMALA 27 FEB 1967
033929,000374: 
033930,000375:                                                                                                 #  FUNCTIONAL DESCRIPTION
033931,000376: 
033932,000377:                                                                                                 #           THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC.READING OF PIPAS FOR DOWNLIST DURING ENTRY.
033933,000378:                                                                                                 #           X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
033934,000379: 
033935,000380:                                                                                                 #  CALLING SEQUENCE
033936,000381: 
033937,000382:                                                                                                 #           CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
033938,000383: 
033939,000384:                                                                                                 #  INITIALIZATION
033940,000385: 
033941,000386:                                                                                                 #           PIPCTR = 2 (FOR DT = 0.5 SEC)
033942,000387:                                                                                                 #           X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
033943,000388: 
033944,000389:                                                                                                 #  OUTPUT
033945,000390: 
033946,000391:                                                                                                 #           X,Y,ZPIPBUF, X,Y,ZOLDBUF
033947,000392:                                                                                                 #  DEBRIS
033948,000393: 
033949,000394:                                                                                                 #           X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
033950,000395:                                                                                                 #                  X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
033951,000396:                                                                                                 #           RUPTREG1
033952,000397:                                                                                                 #           PIPCTR
033953,000398: 
033954,000399: 37,2773           55227        ONMNITOR          TS       PIPCTR                                
033955,000400: 
033956,000401: 37,2774           05156                          TC       FIXDELAY                              #  WAIT
033957,000402: 37,2775           00062        0.5SEC            DEC      50         B-14                       
033958,000403: 
033959,000404: 37,2776           34711        QUIKREAD          CAF      TWO                                   
033960,000405: 37,2777           54070                          TS       RUPTREG1                              
033961,000406: 37,3000           50000                          INDEX    A                                     
033962,000407: 37,3001           30037                          CA       PIPAX                                 #  SAVE ACTUAL PIPAS FOR TM.
033963,000408: 37,3002           50070                          INDEX    RUPTREG1                              
033964,000409: 37,3003           57533                          XCH      XPIPBUF                               #  UPDATE X,Y,ZPIPBUF
033965,000410: 37,3004           50070                          INDEX    RUPTREG1                              
033966,000411: 37,3005           55536                          TS       XOLDBUF                               #  AND X,Y,ZOLDBUF
033967,000412: 37,3006           10070        CHKCTR            CCS      RUPTREG1                              
033968,000413: 37,3007           12777                          TCF      QUIKREAD   +1                         #  LOOP AGAIN
033969,000414: 37,3010           11227                          CCS      PIPCTR                                
033970,000415: 37,3011           12773                          TCF      ONMNITOR                              
033971,000416: 37,3012           05213                          TC       TASKOVER                              
033972,000417: 
033973,000418:                                                                                                 # # Page 779
033974,000419:                                                                                                 #  *************************************   SERVICER   **************************************************************
033975,000420: 
033976,000421: 
033977,000422: 37,3013  E7,1431                                 EBANK=   DVCNTR                                
033978,000423: 
033979,000424: 37,3013           34711        SERVICER          CAF      TWO                                   
033980,000425: 37,3014           00004                          INHINT                                         
033981,000426: 37,3015           54070        PIPCHECK          TS       RUPTREG1                              
033982,000427: 
033983,000428: 37,3016           60000                          DOUBLE                                         
033984,000429: 37,3017           50000                          INDEX    A                                     
033985,000430: 37,3020           11162                          CCS      DELVX                                 
033986,000431: 37,3021           03023                          TC       +2                                    
033987,000432: 37,3022           03031                          TC       PIPLOOP                               
033988,000433: 
033989,000434: 37,3023           63141                          AD       -MAXDELV                              #  DO PIPA-SATURATION TEST BEFORE
033990,000435: 37,3024           00006                          EXTEND                                         
033991,000436: 37,3025           63031                          BZMF     PIPLOOP                               #  COMPENSATION.
033992,000437: 
033993,000438: 37,3026           05537                          TC       ALARM                                 
033994,000439: 37,3027           00205                          OCT      00205                                 #  SATURATED-PIPA ALARM  ***CHANGE LATER
033995,000440: 37,3030           03052                          TC       AVERAGEG                              
033996,000441: 
033997,000442: 37,3031           10070        PIPLOOP           CCS      RUPTREG1                              
033998,000443: 37,3032           13015                          TCF      PIPCHECK                              
033999,000444: 
034000,000445: 37,3033           05301                          TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
034001,000446: 37,3034           16035                          OCT      16035                                 
034002,000447: 37,3035           20000                          OCT      20000                                 
034003,000448: 37,3036  E7,1431                                 EBANK=   DVCNTR                                
034004,000449: 37,3036           03042 76067                    2CADR    DVTOTUP                               
034005,000450: 
034006,000451: 37,3040           04555                          TC       BANKCALL                              #  PIPA COMPENSATION CALL
034007,000452: 37,3041           15262                          CADR     1/PIPA                                
034008,000453: 
034009,000454: 37,3042           06006        DVTOTUP           TC       INTPRET                               
034010,000455: 37,3043           51575                          VLOAD    ABVAL                                 #  GET ABS VALUE OF DELV
034011,000456: 37,3044           01163                                   DELV                                  
034012,000457: 37,3045           77405                          DMP      EXIT                                  
034013,000458: 37,3046           37356                                   KPIP1                                 #  SCALE AT 2(+7)
034014,000459: 
034015,000460: 37,3047           00006                          EXTEND                                         
034016,000461: 37,3050           30155                          DCA      MPAC                                  
034017,000462: 37,3051           21426                          DAS      DVTOTAL                               #  ACCUMULATE DVTOTAL
034018,000463: 37,3052           05301        AVERAGEG          TC       PHASCHNG                              
034019,000464: 37,3053           10035                          OCT      10035                                 
034020,000465: 
034021,000466: 37,3054           06006                          TC       INTPRET                               
034022,000467: 37,3055           77624                          CALL                                           
034023,000468:                                                                                                 # # Page 780
034024,000469: 37,3056           77325                                   CALCRVG                               
034025,000470: 37,3057           77776                          EXIT                                           
034026,000471: 
034027,000472: 37,3060           05301                          TC       PHASCHNG                              
034028,000473: 37,3061           10035                          OCT      10035                                 
034029,000474: 
034030,000475: 37,3062           34113                          CAF      OCT31                                 #  COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
034031,000476: 37,3063           05475                          TC       GENTRAN                               #  INTO RN ,VN ,GDT/12 ,GOBL/2 ,PIPTIME
034032,000477: 37,3064           01231                          ADRES    RN1                                   
034033,000478: 37,3065           01170                          ADRES    RN                                    
034034,000479: 37,3066           00003                          RELINT                                         #  GENTRAN DOES AN INHINT
034035,000480: 37,3067           05301                          TC       PHASCHNG                              
034036,000481: 37,3070           10035                          OCT      10035                                 
034037,000482: 
034038,000483: 37,3071           00006                          EXTEND                                         
034039,000484: 37,3072           31223                          DCA      AVGEXIT                               
034040,000485: 37,3073           52006                          DXCH     Z                                     #  AVERAGEG EXIT
034041,000486: 
034042,000487: 37,3074           31205        AVGEND            CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
034043,000488: 37,3075           55074                          TS       OLDBT1                                #  SET UP FREE FALL GYRO COMPENSATION
034044,000489: 
034045,000490: 37,3076           05435                          TC       UPFLAG                                #  SET DRIFTFLG
034046,000491: 37,3077           00036                          ADRES    DRIFTFLG                              #  BIT 15  FLAG 2
034047,000492: 37,3100           05261                          TC       2PHSCHNG                              
034048,000493: 37,3101           00005                          OCT      5                                     #  GROUP 5 OFF
034049,000494: 37,3102           05022                          OCT      05022                                 #  GROUP 2 ON FOR AVETOMID
034050,000495: 37,3103           20000                          OCT      20000                                 
034051,000496: 
034052,000497: 37,3104           06006                          TC       INTPRET                               
034053,000498: 37,3105           77624                          CALL                                           
034054,000499: 37,3106           27472                                   AVETOMID                              #  CONVERT STATE VECTOR TO REFERENCE SCALE.
034055,000500: 37,3107           77776                          EXIT                                           
034056,000501: 
034057,000502: 37,3110           34714                          CAF      ZERO                                  #  ZERO MARK COUNTERS.
034058,000503: 37,3111           55125                          TS       VHFCNT                                
034059,000504: 37,3112           55126                          TS       TRKMKCNT                              
034060,000505: 
034061,000506: 37,3113           04555                          TC       BANKCALL                              
034062,000507: 37,3114           17112                          CADR     PIPFREE                               
034063,000508: 
034064,000509: 37,3115           44702                          CS       BIT9                                  
034065,000510: 37,3116           55734                          TS       MRKBUF2                               #  INVALIDATE MARK BUFFER
034066,000511: 37,3117           00006                          EXTEND                                         
034067,000512: 37,3120           03011                          WAND     DSALMOUT                              
034068,000513: 
034069,000514: 37,3121           05447                          TC       DOWNFLAG                              
034070,000515: 37,3122           00147                          ADRES    CM/DSTBY                              
034071,000516: 
034072,000517: 37,3123           05447                          TC       DOWNFLAG                              
034073,000518: 37,3124           00162                          ADRES    V37FLAG                               
034074,000519:                                                                                                 # # Page 781
034075,000520: 37,3125           34704                          CAF      BIT7                                  #  RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
034076,000521: 37,3126           70074                          MASK     FLAGWRD0                              
034077,000522: 37,3127           00006                          EXTEND                                         
034078,000523: 37,3130           13134                          BZF      +4                                    
034079,000524: 
034080,000525: 37,3131           05261                          TC       2PHSCHNG                              
034081,000526: 37,3132           00111                          OCT      111                                   #  1.11SPOT
034082,000527: 37,3133           00132                          OCT      132                                   #  2.13SPOT
034083,000528: 
034084,000529: 37,3134           04574                          TC       POSTJUMP                              
034085,000530: 37,3135           10123                          CADR     CANV37                                
034086,000531: 
034087,000532: 37,3136           05301        SERVEXIT          TC       PHASCHNG                              
034088,000533: 37,3137           00035                          OCT      00035                                 #  A, 5.3 = REREADAC  (ONLY)
034089,000534: 
034090,000535: 37,3140           15112                          TCF      ENDOFJOB                              
034091,000536: 
034092,000537: 37,3141     4717               DVTHRUSH          EQUALS   ELEVEN                                #  15 PERCENT OF 2SEC PIPA ACCUMULATION,
034093,000538:                                                                                                 #                                                FOR 503-FULL CSM/LEM....DELV SC.AT
034094,000539:                                                                                                 #                                                5.85 CM/SEC.
034095,000540: 
034096,000541: 37,3141           63401        -MAXDELV          DEC      -6398      B-14                       #  3200 PPS FOR 2 SEC  CCS TAKES 1
034097,000542: 
034098,000543: 
034099,000544: 37,3142           00170        JTAGTIME          DEC      120        B-14                       #  = 1 SEC + T CDU, T CDU = .1 SEC
034100,000545: 
034101,000546: 37,3143           00372        2.5SEC            DEC      250        B-14                       
034102,000547: 37,3144           00044        MDOTFAIL          DEC      144.0      B-16                       #  5 SEC MASS LOSS AT 28.8 KG/SEC
034103,000548:                                                                                                 #                                           SHOULD BE 2-4 SECS FOR NO START
034104,000549:                                                                                                 #                                                     6-8 SECS FOR FAILURE
034105,000550: 
034106,000551:                                                                                                 # # Page 782
034107,000552:                                                                                                 #     NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
034108,000553:                                                                                                 #  HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
034109,000554:                                                                                                 #  SCALED AT 2(+24)M.
034110,000555: 
034111,000556: 
034112,000557: 37,3145           34720        NORMLIZE          CAF      THIRTEEN                              #  SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
034113,000558: 37,3146           05475                          TC       GENTRAN                               #  INTO RN,VN, PIPTIME
034114,000559: 37,3147           01231                          ADRES    RN1                                   #  FROM HERE
034115,000560: 37,3150           01170                          ADRES    RN                                    #  TO HERE
034116,000561: 
034117,000562: 37,3151           00003                          RELINT                                         
034118,000563: 37,3152           06006                          TC       INTPRET                               
034119,000564: 37,3153           45175                          VLOAD    CALL                                  #  LOAD RN FOR CALCGRAV
034120,000565: 37,3154           01171                                   RN                                    
034121,000566: 37,3155           77260                                   CALCGRAV                              #  INITIALISE UNITR RMAG GDT1
034122,000567: 
034123,000568: 37,3156           25207                          STOVL    GDT/2                                 
034124,000569: 37,3157           01256                                   GOBL1/2                               
034125,000570: 37,3160           01215                          STORE    GOBL/2                                
034126,000571: 37,3161           77776                          EXIT                                           
034127,000572: 37,3162           15112                          TCF      ENDOFJOB                              
034128,000573: 
034129,000574:                                                                                                 # # Page 783
034130,000575:                                                                                                 #  *****  PIPA READER *****
034131,000576: 
034132,000577: 
034133,000578:                                                                                                 #                  MOD NO. 00  BY D. LICKLY  DEC.9 1966
034134,000579: 
034135,000580: 
034136,000581:                                                                                                 #  FUNCTIONAL DESCRIPTION
034137,000582: 
034138,000583:                                                                                                 #     SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
034139,000584:                                                                                                 #     PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
034140,000585:                                                                                                 #     RESTARTS BEGIN AT REREADAC.
034141,000586: 
034142,000587: 
034143,000588:                                                                                                 #     AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
034144,000589:                                                                                                 #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
034145,000590:                                                                                                 #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
034146,000591:                                                                                                 #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
034147,000592: 
034148,000593:                                                                                                 #  CALLING SEQUENCE AND EXIT
034149,000594: 
034150,000595:                                                                                                 #     CALL VIA TC, ISWCALL, ETC.
034151,000596: 
034152,000597:                                                                                                 #     EXIT IS VIA Q.
034153,000598: 
034154,000599: 
034155,000600:                                                                                                 #  INPUT
034156,000601: 
034157,000602:                                                                                                 #     INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
034158,000603: 
034159,000604: 
034160,000605:                                                                                                 #  OUTPUT
034161,000606: 
034162,000607:                                                                                                 #     HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
034163,000608:                                                                                                 #     PIPTIME CONTAINS TIME OF PIPA READING.
034164,000609: 
034165,000610: 
034166,000611:                                                                                                 #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
034167,000612: 
034168,000613:                                                                                                 #           LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
034169,000614:                                                                                                 #           TEMX   TEMY   TEMZ   PIPAGE
034170,000615: 
034171,000616: 
034172,000617: 37,3163           00006        PIPASR            EXTEND                                         
034173,000618: 37,3164           30025                          DCA      TIME2                                 
034174,000619: 37,3165           53246                          DXCH     PIPTIME1                              #  CURRENT TIME   POSITIVE VALUE
034175,000620: 37,3166           44714                          CS       ZERO                                  #  INITIALIZAE THESE AT NEG ZERO.
034176,000621: 37,3167           55224                          TS       TEMX                                  
034177,000622: 37,3170           55225                          TS       TEMY                                  
034178,000623: 37,3171           55226                          TS       TEMZ                                  
034179,000624:                                                                                                 # # Page 784
034180,000625: 37,3172           34714                          CA       ZERO                                  
034181,000626: 37,3173           55166                          TS       DELVZ                                 #  OTHER DELVS OK INCLUDING LOW ORDER
034182,000627: 37,3174           55164                          TS       DELVY                                 
034183,000628: 
034184,000629: 37,3175           55163                          TS       DELVX      +1                         #  LOW ORDER DELV'S ARE ZEROED FOR TM: THIS
034185,000630: 37,3176           55165                          TS       DELVY      +1                         #  IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
034186,000631: 37,3177           55167                          TS       DELVZ      +1                         #  CONTAIN PROPER COMPENSATION. IF=0, THEN
034187,000632:                                                                                                 #                                           THE TM VALUES ARE BEFORE COMPENSATION.
034188,000633: 
034189,000634: 37,3200           55230                          TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
034190,000635: 
034191,000636: 37,3201           00006        REPIP1            EXTEND                                         
034192,000637: 37,3202           40040                          DCS      PIPAX                                 #  X AND Y PIPS READ
034193,000638: 37,3203           53225                          DXCH     TEMX                                  
034194,000639: 37,3204           52040                          DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
034195,000640: 37,3205           55162                          TS       DELVX                                 
034196,000641: 37,3206           23164                          LXCH     DELVY                                 
034197,000642: 
034198,000643: 37,3207           40041        REPIP3            CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
034199,000644: 37,3210           57226                          XCH      TEMZ                                  
034200,000645: 37,3211           56041                          XCH      PIPAZ                                 
034201,000646: 37,3212           55166        DODELVZ           TS       DELVZ                                 
034202,000647: 
034203,000648: 37,3213           00002                          TC       Q                                     
034204,000649: 
034205,000650: 
034206,000651: 37,3214  E6,1661                                 EBANK=   AOG                                   
034207,000652: 
034208,000653: 37,3214           10763        REREADAC          CCS      PHASE5                                #  LAST PASS CHECK
034209,000654: 37,3215           13217                          TCF      +2                                    
034210,000655: 37,3216           15213                          TCF      TASKOVER                              
034211,000656: 
034212,000657: 37,3217           11230                          CCS      PIPAGE                                
034213,000658: 37,3220           12653                          TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
034214,000659: 
034215,000660: 37,3221           33257                          CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
034216,000661: 37,3222           54002                          TS       Q                                     
034217,000662: 
034218,000663: 37,3223           11166                          CCS      DELVZ                                 
034219,000664: 37,3224           00002                          TC       Q                                     #  Z DONE, GO DO CDUS
034220,000665: 37,3225           13230                          TCF      +3                                    #  Z NOT DONE, CHECK Y.
034221,000666: 37,3226           00002                          TC       Q                                     
034222,000667: 37,3227           00002                          TC       Q                                     
034223,000668: 37,3230           22007                          ZL                                             
034224,000669: 37,3231           11164                          CCS      DELVY                                 
034225,000670: 37,3232           13235                          TCF      +3                                    
034226,000671: 37,3233           13244                          TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
034227,000672: 37,3234           13235                          TCF      +1                                    
034228,000673: 37,3235           22041                          LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
034229,000674:                                                                                                 # # Page 785
034230,000675: 37,3236           11226                          CCS      TEMZ                                  
034231,000676: 37,3237           41226                          CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
034232,000677: 37,3240           13212                          TCF      DODELVZ                               
034233,000678: 37,3241           13237                          TCF      -2                                    
034234,000679: 37,3242           23166                          LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
034235,000680: 37,3243           00002                          TC       Q                                     
034236,000681: 
034237,000682: 37,3244           11224        CHKTEMX           CCS      TEMX                                  #  HAS THIS CHANGED
034238,000683: 37,3245           41224                          CS       TEMX                                  #  YES
034239,000684: 37,3246           13251                          TCF      +3                                    #  YES
034240,000685: 37,3247           13245                          TCF      -2                                    #  YES
034241,000686: 37,3250           13201                          TCF      REPIP1                                #  NO
034242,000687: 37,3251           55162                          TS       DELVX                                 
034243,000688: 
034244,000689: 37,3252           41225                          CS       TEMY                                  
034245,000690: 37,3253           55164                          TS       DELVY                                 
034246,000691: 
034247,000692: 37,3254           44714                          CS       ZERO                                  #  ZERO X AND Y PIPS
034248,000693: 37,3255           52040                          DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
034249,000694: 
034250,000695: 37,3256           13207                          TCF      REPIP3                                
034251,000696: 
034252,000697: 37,3257           02654        DONEADR           GENADR   PIPSDONE                              
034253,000698: 
034254,000699:                                                                                                 # # Page 786
034255,000700:                                                                                                 #  *************************************************************************************************************
034256,000701: 
034257,000702:                                                                                                 #           ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
034258,000703:                                                                                                 #  ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
034259,000704: 
034260,000705:                                                                                                 #           FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
034261,000706:                                                                                                 #  HARMONIC COEFFICIENT J.
034262,000707: 
034263,000708:                                                                                                 #           ROUTINE CALCRVG REQUIRES...
034264,000709:                                                                                                 #                  1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
034265,000710:                                                                                                 #                  2) VN SCALED 2(+7)M/CS IN REFERENCE COORDS.
034266,000711:                                                                                                 #                  3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
034267,000712:                                                                                                 #                  4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
034268,000713: 
034269,000714:                                                                                                 #  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
034270,000715:                                                                                                 #  UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
034271,000716: 
034272,000717: 
034273,000718: 37,3260           41456        CALCGRAV          UNIT     PUSH                                  #  ENTER WITH RN IN MPAC
034274,000719: 37,3261           01760                          STORE    UNITR                                 
034275,000720: 37,3262           67340                          LXC,1    SLOAD                                 
034276,000721: 37,3263           03746                                   RTX2                                  
034277,000722: 37,3264           00047                                   X1                                    
034278,000723: 37,3265           77240                          BMN      VLOAD                                 
034279,000724: 37,3266           77314                                   ITISMOON                              
034280,000725: 37,3267           41441                          DOT      PUSH                                  
034281,000726: 37,3270           01714                                   UNITW                                 
034282,000727: 37,3271           44316                          DSQ      BDSU                                  
034283,000728: 37,3272           37366                                   DP1/20                                
034284,000729: 37,3273           56325                          PDDL     DDV                                   
034285,000730: 37,3274           37370                                   RESQ                                  
034286,000731: 37,3275           00043                                   34D                                   #  (RN)SQ
034287,000732: 37,3276           00041                          STORE    32D                                   #  TEMP FOR (RE/RN)SQ
034288,000733: 37,3277           41205                          DMP      DMP                                   
034289,000734: 37,3300           37372                                   20J                                   
034290,000735: 37,3301           65361                          VXSC     PDDL                                  
034291,000736: 37,3302           01760                                   UNITR                                 
034292,000737: 37,3303           41205                          DMP      DMP                                   
034293,000738: 37,3304           37374                                   2J                                    
034294,000739: 37,3305           00041                                   32D                                   
034295,000740: 37,3306           53361                          VXSC     VAD                                   
034296,000741: 37,3307           01714                                   UNITW                                 
034297,000742: 37,3310           77626                          STADR                                          
034298,000743: 37,3311           76521                          STORE    GOBL1/2                               
034299,000744: 37,3312           41455                          VAD      PUSH                                  
034300,000745: 37,3313           01760                                   UNITR                                 
034301,000746: 37,3314           60345        ITISMOON          DLOAD    NORM                                  
034302,000747: 37,3315           00043                                   34D                                   
034303,000748: 37,3316           00050                                   X2                                    
034304,000749: 37,3317           53663                          BDDV*    SLR*                                  
034305,000750:                                                                                                 # # Page 787
034306,000751: 37,3320           37360                                   -MUDT(E),1                            
034307,000752: 37,3321           56623                                   0          -21D,2                     
034308,000753: 37,3322           45561                          VXSC     STADR                                 
034309,000754: 37,3323           76527                          STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
034310,000755: 37,3324           77616                          RVQ                                            
034311,000756: 
034312,000757: 37,3325           74375        CALCRVG           VLOAD    VXSC                                  
034313,000758: 37,3326           01163                                   DELV                                  
034314,000759: 37,3327           37356                                   KPIP1                                 
034315,000760: 37,3330           76505                          VXM      VSL1                                  
034316,000761: 37,3331           01736                                   REFSMMAT                              
034317,000762: 37,3332           03433                          STORE    DELVREF                               #  DELV IN REF COORDS AT 2(+7)
034318,000763: 37,3333           41562                          VSR1     PUSH                                  
034319,000764: 37,3334           41455                          VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
034320,000765: 37,3335           01207                                   GDT/2                                 
034321,000766: 37,3336           74255                          VAD      VXSC                                  
034322,000767: 37,3337           01177                                   VN                                    
034323,000768: 37,3340           37364                                   2SEC(22)                              
034324,000769: 37,3341           44055                          VAD      STQ                                   
034325,000770: 37,3342           01171                                   RN                                    
034326,000771: 37,3343           00037                                   31D                                   
034327,000772: 37,3344           35232                          STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
034328,000773: 37,3345           77260                                   CALCGRAV                              
034329,000774: 
034330,000775: 37,3346           53255                          VAD      VAD                                   
034331,000776: 37,3347           77655                          VAD                                            
034332,000777: 37,3350           01177                                   VN                                    
034333,000778: 37,3351           35240                          STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7)M/CS
034334,000779: 37,3352           00037                                   31D                                   
034335,000780: 
034336,000781: 37,3353           03215 27057  KPIP              2DEC     .1024                                 #  SCALES DELV TO 2(+4)
034337,000782: 37,3355           02312 32537  KPIP1             2DEC     0.074880                              #  207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
034338,000783: 37,3357           61377 55754  -MUDT(E)          2DEC*    -7.9720645 E+12       B-44*           
034339,000784: 37,3361           77644 65556  -MUDT(M)          2DEC*    -9.805556  E+10       B-44*           
034340,000785: 37,3363           00000 31000  2SEC(22)          2DEC     200        B-22                       
034341,000786: 
034342,000787: 37,3365           01463 06315  DP1/20            2DEC     0.05                                  
034343,000788: 37,3367           00001 05000  RESQ              2DEC*    40.6809913 E12        B-59*           
034344,000789: 37,3371           02047 36332  20J               2DEC*    3.24692010 E-2        B1*             
034345,000790: 37,3373           00152 14511  2J                2DEC*    3.24692010 E-3        B1*             

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