Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

036454,000002:                                                                                                  ## Copyright:   Public domain.
036455,000003:                                                                                                  ## Filename:    SERVICER207.agc
036456,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
036457,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
036458,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
036459,000007:                                                                                                  ##              Apollo 15-17.
036460,000008:                                                                                                  ## Assembler:   yaYUL
036461,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
036462,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036463,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
036464,000012:                                                                                                  ## Mod history: 2009-08-12 JL   Adapted from corresponding Comanche 055 file.
036465,000013:                                                                                                  ##              2010-02-01 JL   Fixed build error.
036466,000014:                                                                                                  ##              2010-02-13 JL   Fixed error on p827.
036467,000015:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
036468,000016:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
036469,000017:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
036470,000018: 

Page 823

036472,000020: 
036473,000021:                                                                                                  #  PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
036474,000022: 
036475,000023:                                                                                                  #  MOD NO. 00    BY M. HAMILTON  DEC. 12, 1966
036476,000024: 
036477,000025:                                                                                                  #  FUNCTIONAL DESCRIPTION
036478,000026: 
036479,000027:                                                                                                  #  THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
036480,000028:                                                                                                  #  THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
036481,000029: 
036482,000030:                                                                                                  #  GENERAL REFERENCES TO  SERVICER  OR  AVERAGE G  ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
036483,000031:                                                                                                  #  READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
036484,000032: 
036485,000033:                                                                                                  #  PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
036486,000034:                                                                                                  #  AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
036487,000035:                                                                                                  #  2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
036488,000036: 
036489,000037:                                                                                                  #  THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
036490,000038:                                                                                                  #  EXPLANATION OF AVGEXIT BELOW).
036491,000039: 
036492,000040:                                                                                                  #  DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
036493,000041: 
036494,000042:                                                                                                  #        PREREAD
036495,000043: 
036496,000044:                                                                                                  #                PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
036497,000045:                                                                                                  #                LASTBIAS JOB SCHEDULED.
036498,000046:                                                                                                  #                PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
036499,000047:                                                                                                  #                AVERAGE G FLAG SET ON.
036500,000048:                                                                                                  #                DRIFT FLAG SET OFF.
036501,000049:                                                                                                  #                V37 FLAG SET ON.
036502,000050:                                                                                                  #                INITIALIZATION OF       1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
036503,000051:                                                                                                  #                                        2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
036504,000052:                                                                                                  #                                        3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
036505,000053:                                                                                                  #                NORMLIZE JOB SCHEDULED.
036506,000054:                                                                                                  #                READACCS TASK CALLED IN 2 SECONDS.
036507,000055: 
036508,000056:                                                                                                  #        NORMLIZE
036509,000057: 
036510,000058:                                                                                                  #                GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
036511,000059: 
036512,000060:                                                                                                  #        READACCS
036513,000061: 
036514,000062:                                                                                                  #                IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
036515,000063:                                                                                                  #                ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
036516,000064:                                                                                                  #                PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
036517,000065:                                                                                                  #                IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.

Page 824

036519,000067: 
036520,000068:                                                                                                  #                IF AVERAGEG FLAG ON     READACCS CALLED TO RECYCLE IN 2 SECONDS.
036521,000069:                                                                                                  #                IF AVERAGEG FLAG OFF    AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
036522,000070:                                                                                                  #                SERVICER JOB SCHEDULED.
036523,000071: 
036524,000072:                                                                                                  #                TEST CONNECTOR OUTBIT TURNED ON.
036525,000073: 
036526,000074:                                                                                                  #        ONMNITOR
036527,000075: 
036528,000076:                                                                                                  #                A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 
036529,000077:                                                                                                  #                SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALISED AT 3 BY READACCS
036530,000078: 
036531,000079:                                                                                                  #        QUIKREAD
036532,000080: 
036533,000081:                                                                                                  #                READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
036534,000082:                                                                                                  #                DOWNLIST DURING ENTRY.
036535,000083: 
036536,000084:                                                                                                  #        SERVICER
036537,000085: 
036538,000086:                                                                                                  #                DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
036539,000087:                                                                                                  #                        IF BAD PIP      1) ALARM SENT.
036540,000088:                                                                                                  #                                        2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED.  CONTROL
036541,000089:                                                                                                  #                                           TRANSFERRED TO AVERAGE G.
036542,000090:                                                                                                  #                PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
036543,000091:                                                                                                  #                DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
036544,000092:                                                                                                  #                THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
036545,000093:                                                                                                  #                CONTROL TRANSFERRED TO AVERAGE G.
036546,000094: 
036547,000095:                                                                                                  #        DVMON
036548,000096: 
036549,000097:                                                                                                  #                THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
036550,000098:                                                                                                  #                THRUST LEVEL.
036551,000099: 
036552,000100:                                                                                                  #                        IF THRUST       1) ULLAGE OFF ROUTINE PERFORMED.
036553,000101:                                                                                                  #                                        2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
036554,000102:                                                                                                  #                                        3) CONTROL TRANSFERRED TO AVERAGE G.
036555,000103:                                                                                                  #                        IF NO THRUST    1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
036556,000104:                                                                                                  #                                        2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
036557,000105:                                                                                                  #                                           HAS FAILED FOR 3 CONSECUTIVE PASSES.
036558,000106: 
036559,000107:                                                                                                  #        ENGINE FAIL
036560,000108: 
036561,000109:                                                                                                  #                ENGFAIL1 TASK CALLED IN 2.5 SECONDS.  THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
036562,000110:                                                                                                  #                        SEQUENCE MAY BE REPEATED.
036563,000111:                                                                                                  #                ENGINOF3 PERFORMED.
036564,000112:                                                                                                  #                DAP SET UP FOR RCS.
036565,000113:                                                                                                  #        
036566,000114:                                                                                                  #        AVERAGE G

Page 825

036568,000116:                                                                                                  #                RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
036569,000117:                                                                                                  #                OF GDT/2.
036570,000118:                                                                                                  #                RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
036571,000119:                                                                                                  #                CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
036572,000120:                                                                                                  #                LAST PASS (AVGEND)      1) FREE FALL GYRO COMPENSATION SET UP.
036573,000121:                                                                                                  #                                        2) DRIFT FLAG TURNED ON.
036574,000122:                                                                                                  #                                        3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
036575,000123:                                                                                                  #                                        4) ONMONITOR FLAG RESET.
036576,000124:                                                                                                  #                                        5) V37 FLAG RESET.
036577,000125:                                                                                                  #                                        6) TEST CONNECTOR OUTBIT RESET.
036578,000126:                                                                                                  #                                        7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
036579,000127: 
036580,000128:                                                                                                  #  CALLING SEQUENCE
036581,000129: 
036582,000130:                                                                                                  #        PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
036583,000131:                                                                                                  #        READACCS CALLED AS WAITLIST TASK.                               .
036584,000132: 
036585,000133:                                                                                                  #  SUBROUTINES CALLED
036586,000134: 
036587,000135:                                                                                                  #        UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
036588,000136: 
036589,000137:                                                                                                  #        OTHER - PIPASR  1/PIPA  CALCGRAV  CALCRVG  AVETOMID
036590,000138: 
036591,000139:                                                                                                  #  NORMAL EXIT MODES
036592,000140: 
036593,000141:                                                                                                  #        ENDOFJOB        TASKOVER        CANV37
036594,000142: 
036595,000143:                                                                                                  #        AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
036596,000144:                                                                                                  #                  OF EACH CYCLE OF AVERAGE G.
036597,000145:                                                                                                  #                  THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
036598,000146:                                                                                                  #                  AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
036599,000147:                                                                                                  #                  ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
036600,000148: 
036601,000149:                                                                                                  #        SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
036602,000150:                                                                                                  #                   THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
036603,000151: 
036604,000152:                                                                                                  #        AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
036605,000153:                                                                                                  #                 FINAL EXIT IS TO CANV37.                               F AVERAGE G).
036606,000154: 
036607,000155:                                                                                                  #  OUTPUT
036608,000156: 
036609,000157:                                                                                                  #        DVTOTAL(2)  PIPTIME(2)  XPIPBUF(2)  YPIPBUF(2)  ZPIPBUF(2)
036610,000158:                                                                                                  #        RN(6)           REFERENCE COORD.        SCALED AT 2(+29) M/CS
036611,000159:                                                                                                  #        VN(6)           REFERENCE COORD.        SCALED AT 2(+7) M/CS
036612,000160:                                                                                                  #        GDT/2(6)        REFERENCE COORD.        SCALED AT 2(+7) M/CS
036613,000161:                                                                                                  #        DELV(6)         STABLE MEMB. COORD.     SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7))

Page 826

036615,000163:                                                                                                  #        DELVREF(6)      REFERENCE COORD.        SCALED AT 2(+7) M/CS
036616,000164: 
036617,000165:                                                                                                  #  INITIALIZATION
036618,000166: 
036619,000167:                                                                                                  #        ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
036620,000168:                                                                                                  #        IDLE FLAG ON IF DVMON TO BE BYPASSED.
036621,000169:                                                                                                  #        DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
036622,000170:                                                                                                  #        AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G.  IF NO ROUTINE
036623,000171:                                                                                                  #                TO BE DONE, AVGEXIT SET TO SERVEXIT.
036624,000172:                                                                                                  #        VALUES NEEDED
036625,000173:                                                                                                  #                REFSMMAT
036626,000174:                                                                                                  #                UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
036627,000175:                                                                                                  #                RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
036628,000176: 
036629,000177:                                                                                                  #  DEBRIS
036630,000178: 
036631,000179:                                                                                                  #        CENTRALS        A, L, Q
036632,000180:                                                                                                  #        OTHER           INTERNAL - DVCNTR(1)  PIPAGE(1)  PIPCTR(1)  AVGEXIT(2)
036633,000181:                                                                                                  #                        EXTERNAL - ITEMP1(1)  ITEMP2(1)  RUPTREG1(1)  TEMX(1)  TEMY(1)  TEMZ(1)
036634,000182:                                                                                                  #                        USEFUL DEBRIS
036635,000183:                                                                                                  #                                RN1(6)  VN1(6)  GDT1/2  PIPTIME1(2)
036636,000184:                                                                                                  #                                        THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
036637,000185:                                                                                                  #                                        AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
036638,000186:                                                                                                  #                                UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
036639,000187:                                                                                                  #                                RMAG SCALED AT 2(+58) IN 36D.
036640,000188:                                                                                                  #                                RMAGSQ SCALED AT 2(+58) IN 34D.
036641,000189:                                                                                                  #                                (RE/RMAG)SQ IN 32D.
036642,000190: 
036643,000191: 37,2000                                           SETLOC   SERVICES                              
036644,000192: 37,2000                                           BANK                                           
036645,000193: 
036646,000194: 37,2607  E7,1425                                  EBANK=   DVTOTAL                               
036647,000195: 
036648,000196:                                                                                                  #  *************************************   PREREAD   **************************************************************
036649,000197: 
036650,000198: 37,2607                                           COUNT*   $$/SERV                               
036651,000199: 37,2607           35057        PREREAD            CAF      PRIO21                                #  CALLER MUST PROTECT PREREAD
036652,000200: 37,2610           05121                           TC       NOVAC                                 
036653,000201: 37,2611  E3,1460                                  EBANK=   NBDX                                  
036654,000202: 37,2611           03655 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
036655,000203: 
036656,000204:                                                                                                  #  CALL-TO AND LASTBIAS ITSELF ARE NOT
036657,000205:                                                                                                  #        PROTECTED. REREADAC SETS 1/PIPADT
036658,000206:                                                                                                  #        TO 2.0 SECS IN CASE LASTBIAS LOST.
036659,000207:                                                                                                  #        (REDUNDANT IF LASTBIAS IS AOK)
036660,000208: 
036661,000209: 37,2613           02630        REDO5.31           TC       PREREAD1                              

Page 827

036663,000211: 37,2614           37654                           CAF      PRIO32                                
036664,000212: 37,2615           05135                           TC       FINDVAC                               #  SET UP NORMLIZE JOB REQUIRED PRIOR TO
036665,000213: 37,2616  E7,1425                                  EBANK=   DVTOTAL                               
036666,000214: 37,2616           03154 76067                     2CADR    NORMLIZE                              
036667,000215: 
036668,000216: 37,2620           35017                           CAF      2SECS                                 
036669,000217: 37,2621           05233                           TC       WAITLIST                              
036670,000218: 37,2622  E6,1661                                  EBANK=   AOG                                   
036671,000219: 37,2622           02652 76066                     2CADR    READACCS                              
036672,000220: 
036673,000221: 37,2624           44767                           CS       TWO                                   
036674,000222: 37,2625           04126                           TC       NEWPHASE                              
036675,000223: 37,2626           00005                           OCT      5                                     
036676,000224: 
036677,000225: 37,2627  01,2234               5P2SPT2            =        5.2SPOT                               
036678,000226: 37,2627           15314                           TCF      TASKOVER                              
036679,000227: 
036680,000228: 37,2630           00006        PREREAD1           EXTEND                                         
036681,000229: 37,2631           22070                           QXCH     RUPTREG1                              
036682,000230: 
036683,000231: 37,2632           03171                           TC       PIPASR                                #  CLEAR + READ PIPS LAST TIME IN FREE FALL
036684,000232: 
036685,000233: 37,2633           34770                           CAF      ONE                                   #  SET UP PIPAGE FOR REREADAC IN CASE A
036686,000234: 37,2634           55067                           TS       PIPAGE                                #        RESTART OCCURS BEFORE READACCS
036687,000235: 
036688,000236: 37,2635           40075                           CS       FLAGWRD1                              #  SET AVEG FLAG
036689,000237: 37,2636           74770                           MASK     AVEGBIT                               
036690,000238: 37,2637           26075                           ADS      FLAGWRD1                              
036691,000239: 
036692,000240: 37,2640           44752                           CS       DRFTBIT                               
036693,000241: 37,2641           70076                           MASK     FLAGWRD2                              
036694,000242: 37,2642           54076                           TS       FLAGWRD2                              #  KNOCK DOWN DRIFT FLAG
036695,000243: 
036696,000244: 37,2643           40103                           CS       FLAGWRD7                              #  SET V37 FLAG
036697,000245: 37,2644           74763                           MASK     V37FLBIT                              
036698,000246: 37,2645           26103                           ADS      FLAGWRD7                              
036699,000247: 
036700,000248: 37,2646           34772                           CAF      ZERO                                  
036701,000249: 37,2647           55425                           TS       DVTOTAL                               #  CLEAR DVTOTAL
036702,000250: 37,2650           55426                           TS       DVTOTAL    +1                         
036703,000251: 
036704,000252: 37,2651           00070                           TC       RUPTREG1                              
036705,000253: 

Page 828

036707,000255:                                                                                                  #  *************************************   READACCS   *************************************************************
036708,000256: 37,2652  E6,1661                                  EBANK=   AOG                                   
036709,000257: 37,2652           03171        READACCS           TC       PIPASR                                
036710,000258: 
036711,000259: 37,2653           34773        PIPSDONE           CAF      FIVE                                  
036712,000260: 37,2654           54001                           TS       L                                     
036713,000261: 37,2655           40000                           COM                                            
036714,000262: 37,2656           53166                           DXCH     -PHASE5                               
036715,000263: 
036716,000264: 37,2657  01,2253               5P5SPT1            =        5.5SPOT                               
036717,000265: 37,2657           34770        REDO5.5            CAF      ONE                                   #  SHOW PIPS HAVE BEEN READ
036718,000266: 37,2660           55067                           TS       PIPAGE                                
036719,000267: 
036720,000268: 37,2661           34767                           CA       TWO                                   #  SET PIPCTR FOR ONMINTOR
036721,000269: 37,2662           55066                           TS       PIPCTR                                #  AFTER ABOVE PHASCHNG
036722,000270: 
036723,000271: 37,2663           40102                           CS       CM/FLAGS                              
036724,000272: 37,2664           74767                           MASK     CM/DSBIT                              #  103D BIT2
036725,000273: 37,2665           10000                           CCS      A                                     
036726,000274: 37,2666           02740                           TC       CHEKAVEG                              
036727,000275: 
036728,000276: 37,2667           41105                           CS       PIPTIME1   +1                         
036729,000277: 37,2670           55271                           TS       TBASE6                                #  FOR RESTARTS
036730,000278: 37,2671           00006                           EXTEND                                         #  CONTINUE FOR ENTRY DAP
036731,000279: 37,2672           31662                           DCA      AOG                                   
036732,000280: 37,2673           53670                           DXCH     AOG/PIP                               
036733,000281: 37,2674           31663                           CA       AMG                                   
036734,000282: 37,2675           57671                           XCH      AMG/PIP                               
036735,000283: 37,2676           00006                           EXTEND                                         
036736,000284: 37,2677           31665                           DCA      ROLL/180                              
036737,000285: 37,2700           53673                           DXCH     ROLL/PIP                              
036738,000286: 37,2701           31666                           CA       BETA/180                              
036739,000287: 37,2702           57674                           XCH      BETA/PIP                              
036740,000288: 37,2703           30102                           CA       CM/FLAGS                              
036741,000289: 37,2704           74755                           MASK     CMARMBIT                              #  93D BIT12
036742,000290: 37,2705           00006                           EXTEND                                         #  DURING ENTRY, WHEN RCS DAP IS INACTIVE,
036743,000291: 37,2706           12723                           BZF      NOSAVPIP                              #  SAVE PIPAS EACH 0.5 SEC FOR TM.
036744,000292: 
036745,000293: 37,2707           35011                           CAF      .5SEC                                 
036746,000294: 37,2710           05223                           TC       TWIDDLE                               
036747,000295: 37,2711           02773                           ADRES    QUIKREAD                              
036748,000296:                                                                                                  #  NO NEED TO RESTART PROTECT THIS.
036749,000297: 37,2712           31314                           CA       DELVX                                 #  SAVE PIPAS AS READ (BUT NOT COMPENSATED)
036750,000298: 37,2713           57533                           XCH      XPIPBUF                               
036751,000299: 37,2714           55536                           TS       XOLDBUF                               
036752,000300: 
036753,000301: 37,2715           31316                           CA       DELVY                                 
036754,000302: 37,2716           57534                           XCH      YPIPBUF                               
036755,000303: 37,2717           55537                           TS       YOLDBUF                               

Page 829

036757,000305: 37,2720           31320                           CA       DELVZ                                 
036758,000306: 37,2721           57535                           XCH      ZPIPBUF                               
036759,000307: 37,2722           55540                           TS       ZOLDBUF                               
036760,000308: 
036761,000309: 37,2723           34773        NOSAVPIP           CA       FIVE                                  
036762,000310: 37,2724           55725                           TS       CM/GYMDT                              
036763,000311: 
036764,000312: 37,2725           33153                           CA       JTAGTIME                              #  ACTIVATE CM/RCS AFTER PIPUP TO GO
036765,000313:                                                                                                  #  IN JTAGTIME +5 CS.
036766,000314: 37,2726           05233                           TC       WAITLIST                              
036767,000315: 37,2727  E6,1661                                  EBANK=   AOG                                   
036768,000316: 37,2727           02636 32066                     2CADR    SETJTAG                               
036769,000317: 
036770,000318: 37,2731           46214                           CS       THREE                                 #  1.3SPOT FOR SETJTAG
036771,000319: 37,2732           04126                           TC       NEWPHASE                              
036772,000320: 37,2733           00001                           OCT      1                                     
036773,000321: 
036774,000322: 37,2734  01,2014               1P3SPT1            =        1.3SPOT                               
036775,000323: 37,2734           34125                           CAF      OCT31                                 #  5.31SPOT FOR CHEKAVEG
036776,000324: 37,2735           54001                           TS       L                                     
036777,000325: 37,2736           40000                           COM                                            
036778,000326: 37,2737           53166                           DXCH     -PHASE5                               
036779,000327: 
036780,000328: 37,2740  01,2311               5P31SPOT           =        5.31SPOT                              
036781,000329: 37,2740           40075        CHEKAVEG           CS       FLAGWRD1                              
036782,000330: 37,2741           74770                           MASK     AVEGBIT                               
036783,000331: 37,2742           10000                           CCS      A                                     #  IF AVEG FLAG DOWN SET FINAL EXIT AVEG
036784,000332: 37,2743           02762                           TC       AVEGOUT                               
036785,000333: 
036786,000334: 37,2744           35017                           CAF      2SECS                                 
036787,000335: 37,2745           05223                           TC       TWIDDLE                               
036788,000336: 37,2746           02652                           ADRES    READACCS                              
036789,000337: 37,2747           34753        MAKESERV           CAF      PRIO20                                #  ESTABLISH SERVICER ROUTINE
036790,000338: 37,2750           05135                           TC       FINDVAC                               
036791,000339: 37,2751  E7,1425                                  EBANK=   DVTOTAL                               
036792,000340: 37,2751           03010 76067                     2CADR    SERVICER                              
036793,000341: 
036794,000342: 37,2753           44766                           CS       FOUR                                  #  RESTART SERVICER AND READACCS
036795,000343: 37,2754           04126                           TC       NEWPHASE                              
036796,000344: 37,2755           00005                           OCT      5                                     
036797,000345: 
036798,000346: 37,2756  01,2242               5P4SPT1            =        5.4SPOT                               
036799,000347: 37,2756           34760                           CAF      BIT9                                  
036800,000348: 37,2757           00006                           EXTEND                                         
036801,000349: 37,2760           05011                           WOR      DSALMOUT                              #  TURN TEST CONNECTOR OUTBIT ON
036802,000350: 
036803,000351: 37,2761           15314                           TCF      TASKOVER                              #  END PREVIOUS READACCS WAITLIST TASK
036804,000352: 

Page 830

036806,000354: 37,2762           00006        AVEGOUT            EXTEND                                         
036807,000355: 37,2763           32767                           DCA      AVOUTCAD                              
036808,000356: 37,2764           53062                           DXCH     AVGEXIT                               
036809,000357: 37,2765           12747                           TCF      MAKESERV                              
036810,000358: 
036811,000359: 37,2766  E7,1425                                  EBANK=   DVTOTAL                               
036812,000360: 37,2766           03100 76067  AVOUTCAD           2CADR    AVGEND                                
036813,000361: 

Page 831

036815,000363:                                                                                                  #  ROUTINE NAME: ONMNITOR
036816,000364:                                                                                                  #  MOD 04 BY BAIRNSFATHER 30 APR 1968    REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
036817,000365:                                                                                                  #  MOD 03 BY FISHER DECEMBER 1967
036818,000366:                                                                                                  #  MOD 02 BY RYE SEPT 1967
036819,000367:                                                                                                  #  MOD 01 BY KOSMALA 23 MAR 1967
036820,000368:                                                                                                  #  MOD 00 BY KOSMALA 27 FEB 1967
036821,000369: 
036822,000370:                                                                                                  #  FUNCTIONAL DESCRIPTION
036823,000371: 
036824,000372:                                                                                                  #        THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
036825,000373:                                                                                                  #        X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
036826,000374: 
036827,000375:                                                                                                  #  CALLING SEQUENCE
036828,000376: 
036829,000377:                                                                                                  #        CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
036830,000378: 
036831,000379:                                                                                                  #  INITIALISATION
036832,000380: 
036833,000381:                                                                                                  #        PIPCTR = 2 (FOR DT = 0.5 SEC)
036834,000382:                                                                                                  #        X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
036835,000383: 
036836,000384:                                                                                                  #  OUTPUT
036837,000385: 
036838,000386:                                                                                                  #        X,Y,ZPIPBUF, X,Y,ZOLDBUF
036839,000387: 
036840,000388:                                                                                                  #  DEBRIS
036841,000389: 
036842,000390:                                                                                                  #        X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
036843,000391:                                                                                                  #                X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
036844,000392:                                                                                                  #        RUPTREG1
036845,000393:                                                                                                  #        PIPCTR
036846,000394: 
036847,000395: 37,2770           55066        ONMNITOR           TS       PIPCTR                                
036848,000396: 
036849,000397: 37,2771           05255                           TC       FIXDELAY                              #  WAIT
036850,000398: 37,2772           00062        0.5SEC             DEC      50         B-14                       
036851,000399: 
036852,000400: 37,2773           34767        QUIKREAD           CAF      TWO                                   
036853,000401: 37,2774           54070                 +1        TS       RUPTREG1                              
036854,000402: 37,2775           50000                           INDEX    A                                     
036855,000403: 37,2776           30037                           CA       PIPAX                                 #  SAVE ACTUAL PIPAS FOR TM.
036856,000404: 37,2777           50070                           INDEX    RUPTREG1                              
036857,000405: 37,3000           57533                           XCH      XPIPBUF                               #  UPDATE X,Y,ZPIPBUF
036858,000406: 37,3001           50070                           INDEX    RUPTREG1                              
036859,000407: 37,3002           55536                           TS       XOLDBUF                               #  AND X,Y,ZOLDBUF
036860,000408: 37,3003           10070        CHKCTR             CCS      RUPTREG1                              
036861,000409: 37,3004           12774                           TCF      QUIKREAD   +1                         #  LOOP AGAIN
036862,000410: 37,3005           11066                           CCS      PIPCTR                                
036863,000411: 37,3006           12770                           TCF      ONMNITOR                              
036864,000412: 37,3007           05314                           TC       TASKOVER                              
036865,000413: 

Page 832

036867,000415:                                                                                                  #  *************************************   SERVICER   *************************************************************
036868,000416: 
036869,000417: 37,2000                                           SETLOC   SERVICES                              
036870,000418: 37,2000                                           BANK                                           
036871,000419: 
036872,000420: 37,3010  E7,1425                                  EBANK=   DVTOTAL                               
036873,000421: 
036874,000422: 37,3010                                           COUNT*   $$/SERV                               
036875,000423: 37,3010           34767        SERVICER           CAF      TWO                                   
036876,000424: 37,3011           00004                           INHINT                                         
036877,000425: 37,3012           54070        PIPCHECK           TS       RUPTREG1                              
036878,000426: 
036879,000427: 37,3013           60000                           DOUBLE                                         
036880,000428: 37,3014           50000                           INDEX    A                                     
036881,000429: 37,3015           11314                           CCS      DELVX                                 
036882,000430: 37,3016           03020                           TC       +2                                    
036883,000431: 37,3017           03026                           TC       PIPLOOP                               
036884,000432: 
036885,000433: 37,3020           63152                           AD       -MAXDELV                              #  DO PIPA-SATURATION TEST BEFORE
036886,000434: 37,3021           00006                           EXTEND                                         
036887,000435: 37,3022           63026                           BZMF     PIPLOOP                               #  COMPENSATION.
036888,000436: 
036889,000437: 37,3023           05671                           TC       ALARM                                 
036890,000438: 37,3024           00205                           OCT      00205                                 #  SATURATED-PIPA ALARM   ***CHANGE LATER
036891,000439: 37,3025           03056                           TC       AVERAGEG                              
036892,000440: 
036893,000441: 37,3026           10070        PIPLOOP            CCS      RUPTREG1                              
036894,000442: 37,3027           13012                           TCF      PIPCHECK                              
036895,000443: 
036896,000444: 37,3030           05402                           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
036897,000445: 37,3031           16035                           OCT      16035                                 
036898,000446: 37,3032           20000                           OCT      20000                                 
036899,000447: 37,3033  01,2250               5P3SPT9            =        5.3SPOT                               
036900,000448: 37,3033  E7,1425                                  EBANK=   DVTOTAL                               
036901,000449: 
036902,000450: 37,3033           03037 76067                     2CADR    DVTOTUP                               
036903,000451: 
036904,000452: 37,3035           04636                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
036905,000453: 37,3036           15276                           CADR     1/PIPA                                
036906,000454: 
036907,000455: 37,3037           06006        DVTOTUP            TC       INTPRET                               
036908,000456:                                                                                                  #  THE FOLLOWING SECTION DECREMENTS 'TTE' DURING P61
036909,000457:                                                                                                  #  THROUGH P63 ONLY. (IE: IN P60'S IF DRAG< 0.05 G)
036910,000458: 37,3040           71214        TICKTTE            BON      DLOAD                                 #  .05GSW IS SET =1 IN FRESH START.
036911,000459: 37,3041           03314                                    .05GSW                                #  FLAG IS ASSIGNED ONLY TO P61-P67.
036912,000460: 37,3042           77047                                    +5                                    #  DO NOT COUNT 'TTE' IF DRAG > 0.05 G.
036913,000461: 37,3043           03735                                    TTE2                                  
036914,000462: 37,3044           77615                           DAD                                            

Page 833

036916,000464: 37,3045           01105                                    PIPTIME1                              #  DECREMENT 'TTE' BY 'PIPTIME1'. (BY 2 SEC)
036917,000465: 37,3046           03727                           STORE    TTE                                   #  NEGATIVE AS IN A COUNTDOWN.
036918,000466:                                                                                                  #  DURING P61 THRU P63, 'TTE' IS DECREMENTED 
036919,000467:                                                                                                  #  AND IS ON CALL AND ON ENTRY DNLIST.
036920,000468: 
036921,000469: 37,3047           51575                           VLOAD    ABVAL                                 #  GET ABS VALUE OF DELV
036922,000470: 37,3050           01315                                    DELV                                  
036923,000471: 37,3051           77405                           DMP      EXIT                                  
036924,000472: 37,3052           37365                                    KPIP1                                 #  SCALE AT 2(+7)
036925,000473: 
036926,000474: 37,3053           00006                           EXTEND                                         
036927,000475: 37,3054           30155                           DCA      MPAC                                  
036928,000476: 37,3055           21426                           DAS      DVTOTAL                               #  ACCUMULATE DVTOTAL
036929,000477: 37,3056           05402        AVERAGEG           TC       PHASCHNG                              
036930,000478: 37,3057           10035                           OCT      10035                                 
036931,000479: 
036932,000480: 37,3060  01,2250               5P3SPT10           =        5.3SPOT                               
036933,000481: 37,3060           06006                           TC       INTPRET                               
036934,000482: 37,3061           77624                           CALL                                           
036935,000483: 37,3062           77336                                    CALCRVG                               
036936,000484: 37,3063           77776                           EXIT                                           
036937,000485: 
036938,000486: 37,3064           05402                           TC       PHASCHNG                              
036939,000487: 37,3065           10035                           OCT      10035                                 
036940,000488: 
036941,000489: 37,3066  01,2250               5P3SPT11           =        5.3SPOT                               
036942,000490: 37,3066           34125                           CAF      OCT31                                 #  COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
036943,000491: 37,3067           05607                           TC       GENTRAN                               #  INTO RN, VN, GDT/12, GOBL/2,PIPTIME
036944,000492: 37,3070           01070                           ADRES    RN1                                   
036945,000493: 37,3071           01027                           ADRES    RN                                    
036946,000494: 37,3072           00003        ENDCOPY            RELINT                                         
036947,000495: 37,3073           05402                           TC       PHASCHNG                              
036948,000496: 37,3074           10035                           OCT      10035                                 
036949,000497: 
036950,000498: 37,3075  01,2250               5P3SPT12           =        5.3SPOT                               
036951,000499: 37,3075           00006                           EXTEND                                         
036952,000500: 37,3076           31062                           DCA      AVGEXIT                               
036953,000501: 37,3077           52006                           DXCH     Z                                     #  AVERAGEG EXIT
036954,000502: 
036955,000503: 37,3100           31044        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
036956,000504: 37,3101           55277                           TS       OLDBT1                                #  SET UP FREE FALL GYRO COMPENSATION
036957,000505: 
036958,000506: 37,3102           05547                           TC       UPFLAG                                #  SET DRIFTFLG
036959,000507: 37,3103           00036                           ADRES    DRIFTFLG                              #  BIT 15 FLAG 2
036960,000508: 37,3104           05362                           TC       2PHSCHNG                              
036961,000509: 37,3105           00005                           OCT      5                                     #  GROUP 5 OFF
036962,000510: 37,3106           05022                           OCT      05022                                 #  GROUP 2 ON FOR AVETOMID
036963,000511: 37,3107           20000                           OCT      20000                                 
036964,000512: 
036965,000513: 37,3110           06006                           TC       INTPRET                               

Page 834

036967,000515: 37,3111           77624                           CALL                                           
036968,000516: 37,3112           73677                                    AVETOMID                              #  CONVERT STATE VECTOR TO REFERENCE SCALE.
036969,000517: 37,3113           77776                           EXIT                                           
036970,000518: 
036971,000519: 37,3114           04636                           TC       BANKCALL                              
036972,000520: 37,3115           17231                           CADR     PIPFREE                               
036973,000521: 
036974,000522: 37,3116           44760                           CS       BIT9                                  
036975,000523: 37,3117           55722                           TS       MRKBUF1                               #  INVALIDATE MARK BUFFER
036976,000524: 37,3120           00006                           EXTEND                                         
036977,000525: 37,3121           03011                           WAND     DSALMOUT                              
036978,000526: 
036979,000527: 37,3122           05561                           TC       DOWNFLAG                              
036980,000528: 37,3123           00147                           ADRES    CM/DSTBY                              
036981,000529: 
036982,000530: 37,3124           05561                           TC       DOWNFLAG                              
036983,000531: 37,3125           00162                           ADRES    V37FLAG                               
036984,000532: 
036985,000533: 37,3126           30104                           CA       FLAGWRD8                              
036986,000534: 37,3127           74760                           MASK     UTBIT                                 
036987,000535: 37,3130           10000                           CCS      A                                     
036988,000536: 37,3131           13146                           TCF      UTAVEND                               
036989,000537: 
036990,000538: 37,3132           34762                           CAF      RNDVZBIT                              #  RESTORE GROUP 1 + 2 IF P20 IS RUNNING
036991,000539: 37,3133           70074                           MASK     FLAGWRD0                              
036992,000540: 37,3134           00006                           EXTEND                                         
036993,000541: 37,3135           13141                           BZF      +4                                    
036994,000542: 
036995,000543: 37,3136           05362                           TC       2PHSCHNG                              
036996,000544: 37,3137           00111                           OCT      111                                   #  1.11SPOT
036997,000545: 37,3140           00132                           OCT      132                                   #  2.13SPOT
036998,000546: 
036999,000547: 37,3141  01,2025               1P11SPT7           =        1.11SPOT                              
037000,000548: 37,3141  01,2047               2P13SPT2           =        2.13SPOT                              
037001,000549: 37,3141           04655        ENDAVEG            TC       POSTJUMP                              
037002,000550: 37,3142           10162                           CADR     CANV37                                
037003,000551: 
037004,000552: 37,3143           05402        SERVEXIT           TC       PHASCHNG                              
037005,000553: 37,3144           00035                           OCT      00035                                 #  A, 5.3 = REREADAC  (ONLY)
037006,000554: 
037007,000555: 37,3145  01,2250               5P3SPT13           =        5.3SPOT                               
037008,000556: 37,3145           15205                           TCF      ENDOFJOB                              
037009,000557: 
037010,000558: 37,3146           05362        UTAVEND            TC       2PHSCHNG                              
037011,000559: 37,3147           00111                           OCT      111                                   
037012,000560: 37,3150           00002                           OCT      2                                     
037013,000561: 
037014,000562: 37,3151  01,2025               1P11SPT8           =        1.11SPOT                              
037015,000563: 37,3151           13141                           TCF      ENDAVEG                               

Page 835

037017,000565: 37,3152     4775               DVTHRUSH           EQUALS   ELEVEN                                #  15 PERCENT OF 2SEC PIPA ACCUMULATION,
037018,000566:                                                                                                  #        FOR 503-FULL CSM/LEM....DELV SC.AT
037019,000567:                                                                                                  #        5.85 CM/SEC.
037020,000568: 
037021,000569: 37,3152           63401        -MAXDELV           DEC      -6398      B-14                       #  3200 PPS FOR 2 SEC CCS TAKES 1
037022,000570: 
037023,000571: 37,3153           00170        JTAGTIME           DEC      120        B-14                       #  = 1 SEC + T CDU, T CDU = .1 SEC
037024,000572: 
037025,000573:                                                                                                  #  SHOULD BE 2-4 SECS FOR NO START
037026,000574:                                                                                                  #            6-8 SECS FOR FAILURE
037027,000575: 

Page 836

037029,000577:                                                                                                  #  NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
037030,000578:                                                                                                  #  HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
037031,000579:                                                                                                  #  SCALED AT 2(+24) M.
037032,000580: 
037033,000581: 37,3154           34776        NORMLIZE           CAF      THIRTEEN                              #  SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
037034,000582: 37,3155           05607                           TC       GENTRAN                               #  INTO RN,VN,PIPTIME
037035,000583: 37,3156           01070                           ADRES    RN1                                   #  FROM HERE
037036,000584: 37,3157           01027                           ADRES    RN                                    #  TO HERE
037037,000585: 
037038,000586: 37,3160           00003                           RELINT                                         
037039,000587: 37,3161           06006                           TC       INTPRET                               
037040,000588: 37,3162           45175                           VLOAD    CALL                                  #  LOAD RN FOR CALCGRAV
037041,000589: 37,3163           01030                                    RN                                    
037042,000590: 37,3164           77270                                    CALCGRAV                              #  INITIALISE UNITR RMAG GDT1
037043,000591: 
037044,000592: 37,3165           25046                           STOVL    GDT/2                                 
037045,000593: 37,3166           01115                                    GOBL1/2                               
037046,000594: 37,3167           35054                           STCALL   GOBL/2                                
037047,000595: 37,3170           31263                                    ENDPLAC                               
037048,000596: 

Page 837

037050,000598:                                                                                                  #  *****  PIPA READER *****
037051,000599: 
037052,000600:                                                                                                  #                MOD NO. 00  BY D. LICKLY  DEC. 9 1966
037053,000601: 
037054,000602:                                                                                                  #  FUNCTIONAL DESCRIPTION
037055,000603: 
037056,000604:                                                                                                  #  SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
037057,000605:                                                                                                  #  PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
037058,000606:                                                                                                  #  RESTARTS BEGIN AT REREADAC.
037059,000607: 
037060,000608:                                                                                                  #  AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
037061,000609:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
037062,000610:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
037063,000611:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
037064,000612: 
037065,000613:                                                                                                  #  CALLING SEQUENCE AND EXIT
037066,000614: 
037067,000615:                                                                                                  #        CALL VIA TC, ISWCALL, ETC.
037068,000616: 
037069,000617:                                                                                                  #        EXIT IS VIA Q.
037070,000618: 
037071,000619:                                                                                                  #  INPUT
037072,000620: 
037073,000621:                                                                                                  #        INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
037074,000622: 
037075,000623:                                                                                                  #  OUTPUT
037076,000624: 
037077,000625:                                                                                                  #        HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
037078,000626:                                                                                                  #        PIPTIME CONTAINS TIME OF PIPA READING.
037079,000627: 
037080,000628:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
037081,000629: 
037082,000630:                                                                                                  #        LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
037083,000631:                                                                                                  #        TEMX    TEMY    TEMZ    PIPAGE
037084,000632: 
037085,000633: 37,3171           00006        PIPASR             EXTEND                                         
037086,000634: 37,3172           30025                           DCA      TIME2                                 
037087,000635: 37,3173           53105                           DXCH     PIPTIME1                              #  CURRENT TIME  POSITIVE VALUE
037088,000636: 37,3174           44772                           CS       ZERO                                  #  INITIALIZE THESE AT NEG ZERO.
037089,000637: 37,3175           55063                           TS       TEMX                                  
037090,000638: 37,3176           55064                           TS       TEMY                                  
037091,000639: 37,3177           55065                           TS       TEMZ                                  

Page 838

037093,000641: 37,3200           34772                           CA       ZERO                                  
037094,000642: 37,3201           55320                           TS       DELVZ                                 #  OTHER DELVS OK INCLUDING LOW ORDER
037095,000643: 37,3202           55316                           TS       DELVY                                 
037096,000644: 
037097,000645: 37,3203           55315                           TS       DELVX      +1                         #  LOW ORDER DELV'S ARE ZEROED FOR TM: THUS
037098,000646: 37,3204           55317                           TS       DELVY      +1                         #  IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
037099,000647: 37,3205           55321                           TS       DELVZ      +1                         #  CONTAIN PROPER COMPENSATION. IF=0, THEN
037100,000648:                                                                                                  #  THE TM VALUES ARE BEFORE COMPENSATION.
037101,000649: 
037102,000650: 37,3206           55067                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
037103,000651: 
037104,000652: 37,3207           00006        REPIP1             EXTEND                                         
037105,000653: 37,3210           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
037106,000654: 37,3211           53064                           DXCH     TEMX                                  
037107,000655: 37,3212           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
037108,000656: 37,3213           55314                           TS       DELVX                                 
037109,000657: 37,3214           23316                           LXCH     DELVY                                 
037110,000658: 
037111,000659: 37,3215           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
037112,000660: 37,3216           57065                           XCH      TEMZ                                  
037113,000661: 37,3217           56041                           XCH      PIPAZ                                 
037114,000662: 37,3220           55320        DODELVZ            TS       DELVZ                                 
037115,000663: 
037116,000664: 37,3221           00002                           TC       Q                                     
037117,000665: 
037118,000666: 37,3222  E6,1661                                  EBANK=   AOG                                   
037119,000667: 
037120,000668: 37,3222           11166        REREADAC           CCS      PHASE5                                #  LAST PASS CHECK
037121,000669: 37,3223           13225                           TCF      +2                                    
037122,000670: 37,3224           15314                           TCF      TASKOVER                              
037123,000671: 
037124,000672: 37,3225           37652                           CAF      PRIO31                                #  RESTART MAY HAVE WIPED OUT LASTBIAS, AN
037125,000673: 37,3226           55277                           TS       1/PIPADT                              #        UNPROTECTED NOVAC FROM PREREAD,
037126,000674:                                                                                                  #        WHICH SET(S) UP 1/PIPADT (THUSLY)
037127,000675:                                                                                                  #        FOR NON-COASTING COMPENSATION....BE
037128,000676:                                                                                                  #        SURE 1/PIPADT IS AOK. (PRIO31 IS
037129,000677:                                                                                                  #        2.0SEC SC.AT B+8CS)
037130,000678: 
037131,000679: 37,3227           11067                           CCS      PIPAGE                                
037132,000680: 37,3230           12652                           TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
037133,000681: 
037134,000682: 37,3231           33267                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
037135,000683: 37,3232           54002                           TS       Q                                     
037136,000684: 
037137,000685: 37,3233           11320                           CCS      DELVZ                                 
037138,000686: 37,3234           00002                           TC       Q                                     #  Z DONE, GO DO CDUS
037139,000687: 37,3235           13240                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
037140,000688: 37,3236           00002                           TC       Q                                     
037141,000689: 37,3237           00002                           TC       Q                                     

Page 839

037143,000691: 37,3240           22007                           ZL                                             
037144,000692: 37,3241           11316                           CCS      DELVY                                 
037145,000693: 37,3242           13245                           TCF      +3                                    
037146,000694: 37,3243           13254                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
037147,000695: 37,3244           13245                           TCF      +1                                    
037148,000696: 37,3245           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
037149,000697: 
037150,000698: 37,3246           11065                           CCS      TEMZ                                  
037151,000699: 37,3247           41065                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
037152,000700: 37,3250           13220                           TCF      DODELVZ                               
037153,000701: 37,3251           13247                           TCF      -2                                    
037154,000702: 37,3252           23320                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
037155,000703: 37,3253           00002                           TC       Q                                     
037156,000704: 
037157,000705: 37,3254           11063        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
037158,000706: 37,3255           41063                           CS       TEMX                                  #  YES
037159,000707: 37,3256           13261                           TCF      +3                                    #  YES
037160,000708: 37,3257           13255                           TCF      -2                                    #  YES
037161,000709: 37,3260           13207                           TCF      REPIP1                                #  NO
037162,000710: 37,3261           55314                           TS       DELVX                                 
037163,000711: 
037164,000712: 37,3262           41064                           CS       TEMY                                  
037165,000713: 37,3263           55316                           TS       DELVY                                 
037166,000714: 
037167,000715: 37,3264           44772                           CS       ZERO                                  #  ZERO X AND Y PIPS
037168,000716: 37,3265           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
037169,000717: 
037170,000718: 37,3266           13215                           TCF      REPIP3                                
037171,000719: 
037172,000720: 37,3267           02653        DONEADR            GENADR   PIPSDONE                              
037173,000721: 

Page 840

037175,000723:                                                                                                  #  *************************************************************************************************************
037176,000724: 
037177,000725:                                                                                                  #           ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
037178,000726:                                                                                                  #  ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
037179,000727: 
037180,000728:                                                                                                  #  FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
037181,000729:                                                                                                  #  HARMONIC COEFFICIENT J.
037182,000730: 
037183,000731:                                                                                                  #  ROUTINE CALCRVG REQUIRES...
037184,000732:                                                                                                  #        1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
037185,000733:                                                                                                  #        2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
037186,000734:                                                                                                  #        3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
037187,000735:                                                                                                  #        4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
037188,000736: 
037189,000737:                                                                                                  #  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
037190,000738:                                                                                                  #  UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
037191,000739: 
037192,000740: 37,3270           41456        CALCGRAV           UNIT     PUSH                                  #  ENTER WITH RN IN MPAC
037193,000741: 37,3271           01756                           STORE    UNITR                                 
037194,000742: 37,3272           67340                           LXC,1    SLOAD                                 
037195,000743: 37,3273           03746                                    RTX2                                  
037196,000744: 37,3274           00047                                    X1                                    
037197,000745: 37,3275           77240                           BMN      VLOAD                                 
037198,000746: 37,3276           77324                                    ITISMOON                              
037199,000747: 37,3277           41441                           DOT      PUSH                                  
037200,000748: 37,3300           01712                                    UNITW                                 
037201,000749: 37,3301           44316                           DSQ      BDSU                                  
037202,000750: 37,3302           37375                                    DP1/20                                
037203,000751: 37,3303           56325                           PDDL     DDV                                   
037204,000752: 37,3304           37377                                    RESQ                                  
037205,000753: 37,3305           00043                                    34D                                   #  (RN)SQ
037206,000754: 37,3306           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
037207,000755: 37,3307           41205                           DMP      DMP                                   
037208,000756: 37,3310           37401                                    20J                                   
037209,000757: 37,3311           65361                           VXSC     PDDL                                  
037210,000758: 37,3312           01756                                    UNITR                                 
037211,000759: 37,3313           41205                           DMP      DMP                                   
037212,000760: 37,3314           37403                                    2J                                    
037213,000761: 37,3315           00041                                    32D                                   
037214,000762: 37,3316           53361                           VXSC     VAD                                   
037215,000763: 37,3317           01712                                    UNITW                                 
037216,000764: 37,3320           77626                           STADR                                          
037217,000765: 37,3321           76662                           STORE    GOBL1/2                               
037218,000766: 37,3322           41455                           VAD      PUSH                                  
037219,000767: 37,3323           01756                                    UNITR                                 
037220,000768: 37,3324           63545        ITISMOON           DLOAD    DSQ                                   
037221,000769: 37,3325           00045                                    36D                                   
037222,000770: 37,3326           77701                           NORM                                           
037223,000771: 37,3327           00050                                    X2                                    

Page 841

037225,000773: 37,3330           53663                           BDDV*    SLR*                                  
037226,000774: 37,3331           37367                                    -MUDT(E),1                            
037227,000775: 37,3332           56623                                    0          -21D,2                     
037228,000776: 37,3333           45561                           VXSC     STADR                                 
037229,000777: 37,3334           76670                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
037230,000778: 37,3335           77616                           RVQ                                            
037231,000779: 
037232,000780: 37,3336           74375        CALCRVG            VLOAD    VXSC                                  
037233,000781: 37,3337           01315                                    DELV                                  
037234,000782: 37,3340           37365                                    KPIP1                                 
037235,000783: 37,3341           76505                           VXM      VSL1                                  
037236,000784: 37,3342           01734                                    REFSMMAT                              
037237,000785: 37,3343           03432                           STORE    DELVREF                               #  DELV IN REF COORDS AT 2(+7)
037238,000786: 37,3344           41562                           VSR1     PUSH                                  
037239,000787: 37,3345           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
037240,000788: 37,3346           01046                                    GDT/2                                 
037241,000789: 37,3347           74255                           VAD      VXSC                                  
037242,000790: 37,3350           01036                                    VN                                    
037243,000791: 37,3351           37373                                    2SEC(22)                              
037244,000792: 37,3352           44055                           VAD      STQ                                   
037245,000793: 37,3353           01030                                    RN                                    
037246,000794: 37,3354           00037                                    31D                                   
037247,000795: 37,3355           35071                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
037248,000796: 37,3356           77270                                    CALCGRAV                              
037249,000797: 
037250,000798: 37,3357           53255                           VAD      VAD                                   
037251,000799: 37,3360           77655                           VAD                                            
037252,000800: 37,3361           01036                                    VN                                    
037253,000801: 37,3362           35077                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7) M/CS
037254,000802: 37,3363           00037                                    31D                                   
037255,000803: 
037256,000804: 37,3364           02312 32537  KPIP1              2DEC     0.074880                              #  207 DELV SCALING.  1 PULSE = 5.85 CM/SEC.
037257,000805: 
037258,000806: 37,3366           61377 55754  -MUDT(E)           2DEC*    -7.9720645 E+12       B-44*           
037259,000807: 
037260,000808: 37,3370           77644 65556  -MUDT(M)           2DEC*    -9.805556  E+10       B-44*           
037261,000809: 
037262,000810: 37,3372           00000 31000  2SEC(22)           2DEC     200        B-22                       
037263,000811: 
037264,000812: 37,3374           01463 06315  DP1/20             2DEC     0.05                                  
037265,000813: 
037266,000814: 37,3376           00001 05000  RESQ               2DEC*    40.6809913 E12        B-59*           
037267,000815: 
037268,000816: 37,3400           02047 36332  20J                2DEC*    3.24692010 E-2        B1*             
037269,000817: 
037270,000818: 37,3402           00152 14511  2J                 2DEC*    3.24692010 E-3        B1*             
037271,000819: 

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