Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

033724,000002:                                                                                                  ## Copyright:   Public domain.
033725,000003:                                                                                                  ## Filename:    SERVICER207.agc
033726,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
033727,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
033728,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
033729,000007:                                                                                                  ## Assembler:   yaYUL
033730,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
033731,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
033732,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
033733,000011:                                                                                                  ## Mod history: 2011-02-28 JL   Adapted from corresponding Colossus 249 file.
033734,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
033735,000013:                                                                                                  ##                              and fixed errors found.
033736,000014:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
033737,000015:                                                                                                  ##                              vs Colossus 249.
033738,000016: 

Page 770

033740,000018:                                                                                                  #  PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
033741,000019: 
033742,000020: 
033743,000021:                                                                                                  #  MOD NO.  00   BY M.HAMILTON   DEC.12, 1966
033744,000022: 
033745,000023: 
033746,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION
033747,000025: 
033748,000026:                                                                                                  #  THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
033749,000027:                                                                                                  #  THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
033750,000028: 
033751,000029:                                                                                                  #  GENERAL REFERENCES TO  SERVICER  OR  AVERAGE G  ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
033752,000030:                                                                                                  #  READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
033753,000031: 
033754,000032:                                                                                                  #  PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
033755,000033:                                                                                                  #  AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
033756,000034:                                                                                                  #  2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
033757,000035: 
033758,000036:                                                                                                  #  THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
033759,000037:                                                                                                  #  EXPLANATION OF AVGEXIT BELOW).
033760,000038: 
033761,000039:                                                                                                  #  DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
033762,000040: 
033763,000041: 
033764,000042:                                                                                                  #     PREREAD
033765,000043: 
033766,000044:                                                                                                  #           PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
033767,000045:                                                                                                  #           LASTBIAS JOB SCHEDULED.
033768,000046:                                                                                                  #           PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
033769,000047:                                                                                                  #           AVERAGE G FLAG SET ON.
033770,000048:                                                                                                  #           DRIFT FLAG SET OFF.
033771,000049:                                                                                                  #           V37 FLAG SET ON.
033772,000050:                                                                                                  #           INITIALIZATION OF   1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
033773,000051:                                                                                                  #                               2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
033774,000052:                                                                                                  #                               3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
033775,000053:                                                                                                  #           NORMLIZE JOB SCHEDULED.
033776,000054:                                                                                                  #           READACCS TASK CALLED IN 2 SECONDS.
033777,000055: 
033778,000056: 
033779,000057:                                                                                                  #     NORMLIZE
033780,000058: 
033781,000059:                                                                                                  #           GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
033782,000060: 
033783,000061: 
033784,000062:                                                                                                  #     READACCS
033785,000063: 
033786,000064:                                                                                                  #           IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
033787,000065:                                                                                                  #           ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
033788,000066:                                                                                                  #           PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
033789,000067:                                                                                                  #           IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.

Page 771

033791,000069:                                                                                                  #           IF AVERAGEG FLAG ON    READACCS CALLED TO RECYCLE IN 2 SECONDS.
033792,000070:                                                                                                  #           IF AVERAGEG FLAG OFF   AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
033793,000071:                                                                                                  #           SERVICER JOB SCHEDULED.
033794,000072: 
033795,000073: 
033796,000074:                                                                                                  #           TEST CONNECTOR OUTBIT TURNED ON.
033797,000075: 
033798,000076: 
033799,000077:                                                                                                  #  ONMNITOR
033800,000078: 
033801,000079:                                                                                                  #           A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 
033802,000080:                                                                                                  #           SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALISED AT 3 BY READACCS
033803,000081: 
033804,000082:                                                                                                  #     QUIKREAD
033805,000083: 
033806,000084:                                                                                                  #         READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
033807,000085:                                                                                                  #           DOWNLIST DURING ENTRY.
033808,000086:                                                                                                  #     SERVICER
033809,000087:                                                                                                  #           DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
033810,000088:                                                                                                  #                  IF BAD PIP   1) ALARM SENT.
033811,000089:                                                                                                  #                               2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED.  CONTROL
033812,000090:                                                                                                  #                                  TRANSFERRED TO AVERAGE G.
033813,000091:                                                                                                  #           PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
033814,000092:                                                                                                  #           DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
033815,000093:                                                                                                  #           THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
033816,000094:                                                                                                  #           CONTROL TRANSFERRED TO AVERAGE G.
033817,000095: 
033818,000096: 
033819,000097:                                                                                                  #           DVMON
033820,000098: 
033821,000099:                                                                                                  #              THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
033822,000100:                                                                                                  #              THRUST LEVEL.
033823,000101:                                                                                                  #                  IF THRUST    1) ULLAGE OFF ROUTINE PERFORMED.
033824,000102:                                                                                                  #                               2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
033825,000103:                                                                                                  #                               3) CONTROL TRANSFERRED TO AVERAGE G.
033826,000104:                                                                                                  #                  IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
033827,000105:                                                                                                  #                               2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
033828,000106:                                                                                                  #                                  HAS FAILED FOR 3 CONSECUTIVE PASSES.
033829,000107: 
033830,000108: 
033831,000109:                                                                                                  #                ENGINE FAIL
033832,000110: 
033833,000111:                                                                                                  #                   ENGFAIL1 TASK CALLED IN 2.5 SECONDS.  THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
033834,000112:                                                                                                  #                       SEQUENCE MAY BE REPEATED.
033835,000113:                                                                                                  #                   ENGINOF3 PERFORMED.
033836,000114:                                                                                                  #                   DAP SET UP FOR RCS.
033837,000115: 
033838,000116: 
033839,000117:                                                                                                  #     AVERAGE G
033840,000118: 

Page 772

033842,000120:                                                                                                  #           RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
033843,000121:                                                                                                  #           OF GDT/2.
033844,000122:                                                                                                  #           RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
033845,000123:                                                                                                  #           CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
033846,000124:                                                                                                  #           LAST PASS (AVGEND)  1) FREE FALL GYRO COMPENSATION SET UP.
033847,000125:                                                                                                  #                               2) DRIFT FLAG TURNED ON.
033848,000126:                                                                                                  #                               3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
033849,000127:                                                                                                  #                               4) ONMONITOR FLAG RESET.
033850,000128:                                                                                                  #                               5) V37 FLAG RESET.
033851,000129:                                                                                                  #                               6) TEST CONNECTOR OUTBIT RESET.
033852,000130:                                                                                                  #                               7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
033853,000131: 
033854,000132: 
033855,000133:                                                                                                  #  CALLING SEQUENCE
033856,000134: 
033857,000135:                                                                                                  #           PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
033858,000136:                                                                                                  #           READACCS CALLED AS WAITLIST TASK.                            .
033859,000137: 
033860,000138: 
033861,000139:                                                                                                  #  SUBROUTINES CALLED
033862,000140: 
033863,000141:                                                                                                  #           UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
033864,000142: 
033865,000143:                                                                                                  #           OTHER - PIPASR  1/PIPA  CALCGRAV  CALCRVG  AVETOMID
033866,000144: 
033867,000145: 
033868,000146:                                                                                                  #  NORMAL EXIT MODES
033869,000147: 
033870,000148:                                                                                                  #           ENDOFJOB  TASKOVER  CANV37
033871,000149: 
033872,000150:                                                                                                  #           AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
033873,000151:                                                                                                  #                     OF EACH CYCLE OF AVERAGE G.
033874,000152:                                                                                                  #                     THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
033875,000153:                                                                                                  #                     AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
033876,000154:                                                                                                  #                     ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
033877,000155: 
033878,000156:                                                                                                  #           SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
033879,000157:                                                                                                  #                     THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
033880,000158: 
033881,000159:                                                                                                  #           AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
033882,000160:                                                                                                  #                     FINAL EXIT IS TO CANV37.                             F AVERAGE G).
033883,000161: 
033884,000162: 
033885,000163:                                                                                                  #  OUTPUT
033886,000164: 
033887,000165:                                                                                                  #     DVTOTAL(2)  PIPTIME(2)  XPIPBUF(2)  YPIPBUF(2)  ZPIPBUF(2)
033888,000166:                                                                                                  #     RN(6)        REFERENCE COORD.   SCALED AT 2(+29)M/CS
033889,000167:                                                                                                  #     VN(6)        REFERENCE COORD.   SCALED AT 2(+7)M/CS
033890,000168:                                                                                                  #     GDT/2(6)     REFERENCE COORD.   SCALED AT 2(+7)M/CS
033891,000169:                                                                                                  #     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 773

033893,000171:                                                                                                  #     DELVREF(6)   REFERENCE COORD.   SCALED AT 2(+7)M/CS
033894,000172: 
033895,000173:                                                                                                  #  INITIALIZATION
033896,000174: 
033897,000175:                                                                                                  #           ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
033898,000176:                                                                                                  #           IDLE FLAG ON IF DVMON TO BE BYPASSED.
033899,000177:                                                                                                  #           DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
033900,000178:                                                                                                  #           AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G.  IF NO ROUTINE
033901,000179:                                                                                                  #                  TO BE DONE, AVGEXIT SET TO SERVEXIT.
033902,000180:                                                                                                  #           VALUES NEEDED
033903,000181:                                                                                                  #                  REFSMMAT
033904,000182:                                                                                                  #                  UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH S ROTATIONAL VECTOR
033905,000183:                                                                                                  #                  RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD
033906,000184: 
033907,000185: 
033908,000186:                                                                                                  #  DEBRIS
033909,000187: 
033910,000188:                                                                                                  #     CENTRALS     A, L, Q
033911,000189:                                                                                                  #     OTHER        INTERNAL - DVCNTR(1)  PIPAGE(1)  PIPCTR(1)  AVGEXIT(2)
033912,000190:                                                                                                  #                  EXTERNAL - ITEMP1(1)  ITEMP2(1)  RUPTREG1(1)  TEMX(1)  TEMY(1)  TEMZ(1)
033913,000191:                                                                                                  #                  USEFUL DEBRIS
033914,000192:                                                                                                  #                     RN1(6)  VN1(6)  GDT1/2  PIPTIME1(2)
033915,000193:                                                                                                  #                         THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
033916,000194:                                                                                                  #                         AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
033917,000195:                                                                                                  #                     UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
033918,000196:                                                                                                  #                     RMAG SCALED AT 2(+58) IN 36D.
033919,000197:                                                                                                  #                     RMAGSQ SCALED AT 2(+58) IN 34D.
033920,000198:                                                                                                  #                     (RE/RMAG)SQ IN 32D.
033921,000199: 
033922,000200: 
033923,000201: 27,2633                                           BANK     27                                    
033924,000202: 37,2000                                           SETLOC   SERVICES                              
033925,000203: 37,2000                                           BANK                                           
033926,000204: 
033927,000205: 37,2604  E7,1431                                  EBANK=   DVCNTR                                
033928,000206:                                                                                                  #  *************************************   PREREAD   **************************************************************
033929,000207: 
033930,000208: 
033931,000209: 37,2604                                           COUNT    37/SERV                               
033932,000210: 
033933,000211: 37,2604           34113        PREREAD            CA       OCT31                                 #  5.31 PROTECTS REDO5.31 AS IMMEDIATE TASK
033934,000212: 37,2605           54001                           TS       L                                     
033935,000213: 37,2606           40000                           COM                                            
033936,000214: 37,2607           52763                           DXCH     -PHASE5                               
033937,000215: 
033938,000216: 37,2610           34766                           CAF      PRIO21                                
033939,000217: 37,2611           05027                           TC       NOVAC                                 
033940,000218: 37,2612  E3,1460                                  EBANK=   NBDX                                  
033941,000219: 37,2612           03636 14063                     2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL

Page 774

033943,000221: 37,2614           02631        REDO5.31           TC       PREREAD1                              
033944,000222: 
033945,000223: 37,2615           37667                           CAF      PRIO32                                
033946,000224: 37,2616           05042                           TC       FINDVAC                               #  SET UP NORMLIZE JOB REQUIRED PRIOR TO
033947,000225: 37,2617  E7,1431                                  EBANK=   DVCNTR                                #  FIRST AVERAGE G PASS
033948,000226: 37,2617           03145 76067                     2CADR    NORMLIZE                              
033949,000227: 37,2621           34735                           CAF      2SECS                                 
033950,000228: 37,2622           05140                           TC       WAITLIST                              
033951,000229: 37,2623  E6,1661                                  EBANK=   AOG                                   
033952,000230: 37,2623           02653 76066                     2CADR    READACCS                              
033953,000231: 37,2625           44711                           CS       TWO                                   
033954,000232: 37,2626           04114                           TC       NEWPHASE                              
033955,000233: 37,2627           00005                           OCT      5                                     
033956,000234: 
033957,000235: 37,2630           15213                           TCF      TASKOVER                              
033958,000236: 
033959,000237: 
033960,000238: 37,2631           00006        PREREAD1           EXTEND                                         
033961,000239: 37,2632           22070                           QXCH     RUPTREG1                              
033962,000240: 
033963,000241: 37,2633           03163                           TC       PIPASR                                #  CLEAR + READ PIPS LAST TIME IN FREE FALL
033964,000242: 
033965,000243: 37,2634           34712                           CAF      ONE                                   #  SET UP PIPAGE FOR REREADAC IN CASE A
033966,000244: 37,2635           55230                           TS       PIPAGE                                #       RESTART OCCURS BEFORE READACCS
033967,000245: 
033968,000246: 37,2636           40075                           CS       FLAGWRD1                              #  SET AVEG FLAG
033969,000247: 37,2637           74712                           MASK     BIT1                                  
033970,000248: 37,2640           26075                           ADS      FLAGWRD1                              
033971,000249: 
033972,000250: 37,2641           34672                           CA       POSMAX                                
033973,000251: 37,2642           70076                           MASK     FLAGWRD2                              
033974,000252: 37,2643           54076                           TS       FLAGWRD2                              #  KNOCK DOWN DRIFT FLAG
033975,000253: 
033976,000254: 37,2644           40103                           CS       FLAGWRD7                              #  SET V37 FLAG
033977,000255: 37,2645           74705                           MASK     BIT6                                  
033978,000256: 37,2646           26103                           ADS      FLAGWRD7                              
033979,000257: 
033980,000258: 37,2647           34714                           CAF      ZERO                                  
033981,000259: 37,2650           55425                           TS       DVTOTAL                               #  CLEAR DVTOTAL
033982,000260: 37,2651           55426                           TS       DVTOTAL    +1                         
033983,000261: 
033984,000262: 37,2652           00070                           TC       RUPTREG1                              
033985,000263: 

Page 775

033987,000265:                                                                                                  #  *************************************   READACCS   *************************************************************
033988,000266: 37,2653  E6,1661                                  EBANK=   AOG                                   
033989,000267: 37,2653           03163        READACCS           TC       PIPASR                                
033990,000268: 
033991,000269: 37,2654           34715        PIPSDONE           CAF      FIVE                                  
033992,000270: 37,2655           54001                           TS       L                                     
033993,000271: 37,2656           40000                           COM                                            
033994,000272: 37,2657           52763                           DXCH     -PHASE5                               
033995,000273: 
033996,000274: 37,2660           34712        REDO5.5            CAF      ONE                                   #  SHOW PIPS HAVE BEEN READ
033997,000275: 37,2661           55230                           TS       PIPAGE                                
033998,000276: 
033999,000277: 37,2662           34711                           CA       TWO                                   #  SET PIPCTR FOR ONMINTOR
034000,000278: 37,2663           55227                           TS       PIPCTR                                #  AFTER ABOVE PHASCHNG
034001,000279: 
034002,000280: 37,2664           40102                           CS       CM/FLAGS                              
034003,000281: 37,2665           74711                           MASK     BIT2                                  #  CM/DSTBY
034004,000282: 37,2666           10000                           CCS      A                                     
034005,000283: 37,2667           02742                           TC       CHEKAVEG                              
034006,000284: 
034007,000285: 37,2670           41246                           CS       PIPTIME1   +1                         
034008,000286: 37,2671           55065                           TS       TBASE6                                #  FOR RESTARTS
034009,000287: 37,2672           00006                           EXTEND                                         #  CONTINUE FOR ENTRY DAP
034010,000288: 37,2673           31662                           DCA      AOG                                   
034011,000289: 37,2674           53670                           DXCH     AOG/PIP                               
034012,000290: 37,2675           31663                           CA       AMG                                   
034013,000291: 37,2676           57671                           XCH      AMG/PIP                               
034014,000292: 37,2677           00006                           EXTEND                                         
034015,000293: 37,2700           31665                           DCA      ROLL/180                              
034016,000294: 37,2701           53673                           DXCH     ROLL/PIP                              
034017,000295: 37,2702           31666                           CA       BETA/180                              
034018,000296: 37,2703           57674                           XCH      BETA/PIP                              
034019,000297: 37,2704           30102                           CA       CM/FLAGS                              
034020,000298: 37,2705           74677                           MASK     BIT12                                 #  CM/DAPARM  93D  BIT12
034021,000299: 37,2706           00006                           EXTEND                                         #  DURING ENTRY, WHEN RCS DAP IS INACTIVE,
034022,000300: 37,2707           12725                           BZF      NOSAVPIP                              #  SAVE PIPAS EACH 0.5 SEC FOR TM.
034023,000301: 
034024,000302: 37,2710           32775                           CA       0.5SEC                                
034025,000303: 37,2711           05140                           TC       WAITLIST                              
034026,000304: 37,2712  E6,1533                                  EBANK=   XPIPBUF                               
034027,000305: 37,2712           02776 76066                     2CADR    QUIKREAD                              
034028,000306:                                                                                                  #                                          NO NEED TO RESTART PROTECT THIS.
034029,000307: 37,2714           31162                           CA       DELVX                                 #  SAVE PIPAS AS READ (BUT NOT COMPENSATED)
034030,000308: 37,2715           57533                           XCH      XPIPBUF                               
034031,000309: 37,2716           55536                           TS       XOLDBUF                               
034032,000310: 
034033,000311: 37,2717           31164                           CA       DELVY                                 
034034,000312: 37,2720           57534                           XCH      YPIPBUF                               
034035,000313: 37,2721           55537                           TS       YOLDBUF                               

Page 776

034037,000315: 37,2722           31166                           CA       DELVZ                                 
034038,000316: 37,2723           57535                           XCH      ZPIPBUF                               
034039,000317: 37,2724           55540                           TS       ZOLDBUF                               
034040,000318: 
034041,000319: 37,2725           34715        NOSAVPIP           CA       FIVE                                  
034042,000320: 37,2726           55725                           TS       CM/GYMDT                              
034043,000321: 
034044,000322: 37,2727           33142                           CA       JTAGTIME                              #  ACTIVATE CM/RCS AFTER PIPUP TO GO
034045,000323:                                                                                                  #                                          IN JTAGTIME +5 CS.
034046,000324: 37,2730           05140                           TC       WAITLIST                              
034047,000325: 37,2731  E6,1661                                  EBANK=   AOG                                   
034048,000326: 37,2731           03222 32066                     2CADR    SETJTAG                               
034049,000327: 
034050,000328: 37,2733           46214                           CS       THREE                                 #  1.3SPOT FOR SETJTAG
034051,000329: 37,2734           04114                           TC       NEWPHASE                              
034052,000330: 37,2735           00001                           OCT      1                                     
034053,000331: 
034054,000332: 37,2736           34362                           CAF      OCT37                                 
034055,000333: 37,2737           54001                           TS       L                                     
034056,000334: 37,2740           40000                           COM                                            
034057,000335: 37,2741           52763                           DXCH     -PHASE5                               
034058,000336: 
034059,000337: 37,2742           40075        CHEKAVEG           CS       FLAGWRD1                              
034060,000338: 37,2743           74712                           MASK     BIT1                                  
034061,000339: 37,2744           10000                           CCS      A                                     #  IF AVEG FLAG DOWN SET FINAL EXIT AVEG
034062,000340: 37,2745           02765                           TC       AVEGOUT                               
034063,000341: 
034064,000342: 37,2746           34735                           CAF      2SECS                                 
034065,000343: 37,2747           05140                           TC       WAITLIST                              
034066,000344: 37,2750  E6,1661                                  EBANK=   AOG                                   
034067,000345: 37,2750           02653 76066                     2CADR    READACCS                              
034068,000346: 
034069,000347: 37,2752           34675        MAKESERV           CAF      PRIO20                                #  ESTABLISH SERVICER ROUTINE
034070,000348: 37,2753           05042                           TC       FINDVAC                               
034071,000349: 37,2754  E7,1431                                  EBANK=   DVCNTR                                
034072,000350: 37,2754           03013 76067                     2CADR    SERVICER                              
034073,000351: 
034074,000352: 37,2756           44710                           CS       FOUR                                  #  RESTART SERVICER AND READACCS
034075,000353: 37,2757           04114                           TC       NEWPHASE                              
034076,000354: 37,2760           00005                           OCT      5                                     
034077,000355: 
034078,000356: 37,2761           34702                           CAF      BIT9                                  
034079,000357: 37,2762           00006                           EXTEND                                         
034080,000358: 37,2763           05011                           WOR      DSALMOUT                              #  TURN TEST CONNECTOR OUTBIT ON
034081,000359: 
034082,000360: 37,2764           15213                           TCF      TASKOVER                              #  END PREVIOUS READACCS WAITLIST TASK
034083,000361: 

Page 777

034085,000363: 37,2765           00006        AVEGOUT            EXTEND                                         
034086,000364: 37,2766           32772                           DCA      AVOUTCAD                              
034087,000365: 37,2767           53223                           DXCH     AVGEXIT                               
034088,000366: 37,2770           12752                           TCF      MAKESERV                              
034089,000367: 
034090,000368: 37,2771  E7,1431                                  EBANK=   DVCNTR                                
034091,000369: 37,2771           03074 76067  AVOUTCAD           2CADR    AVGEND                                
034092,000370: 

Page 778

034094,000372:                                                                                                  #  ROUTINE NAME: ONMNITOR
034095,000373:                                                                                                  #  MOD 04 BY BAIRNSFATHER  30 APR 1968                     REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
034096,000374:                                                                                                  #  MOD 03 BY FISHER DECEMBER 1967
034097,000375:                                                                                                  #  MOD 02 BY RYE SEPT 1967
034098,000376:                                                                                                  #  MOD 01 BY KOSMALA 23 MAR 1967
034099,000377:                                                                                                  #  MOD 00 BY KOSMALA 27 FEB 1967
034100,000378: 
034101,000379:                                                                                                  #  FUNCTIONAL DESCRIPTION
034102,000380: 
034103,000381:                                                                                                  #           THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC.READING OF PIPAS FOR DOWNLIST DURING ENTRY.
034104,000382:                                                                                                  #           X,Y,ZPIPBUF CONTAIN PRESENT VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
034105,000383: 
034106,000384:                                                                                                  #  CALLING SEQUENCE
034107,000385: 
034108,000386:                                                                                                  #           CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
034109,000387: 
034110,000388:                                                                                                  #  INITIALISATION
034111,000389: 
034112,000390:                                                                                                  #           PIPCTR = 2 (FOR DT = 0.5 SEC)
034113,000391:                                                                                                  #           X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
034114,000392: 
034115,000393:                                                                                                  #  OUTPUT
034116,000394: 
034117,000395:                                                                                                  #           X,Y,ZPIPBUF, X,Y,ZOLDBUF
034118,000396:                                                                                                  #  DEBRIS
034119,000397: 
034120,000398:                                                                                                  #           X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
034121,000399:                                                                                                  #                  X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
034122,000400:                                                                                                  #           RUPTREG1
034123,000401:                                                                                                  #           PIPCTR
034124,000402: 
034125,000403: 37,2773           55227        ONMNITOR           TS       PIPCTR                                
034126,000404: 
034127,000405: 37,2774           05156                           TC       FIXDELAY                              #  WAIT
034128,000406: 37,2775           00062        0.5SEC             DEC      50         B-14                       
034129,000407: 
034130,000408: 37,2776           34711        QUIKREAD           CAF      TWO                                   
034131,000409: 37,2777           54070                           TS       RUPTREG1                              
034132,000410: 37,3000           50000                           INDEX    A                                     
034133,000411: 37,3001           30037                           CA       PIPAX                                 #  SAVE ACTUAL PIPAS FOR TM.
034134,000412: 37,3002           50070                           INDEX    RUPTREG1                              
034135,000413: 37,3003           57533                           XCH      XPIPBUF                               #  UPDATE X,Y,ZPIPBUF
034136,000414: 37,3004           50070                           INDEX    RUPTREG1                              
034137,000415: 37,3005           55536                           TS       XOLDBUF                               #  AND X,Y,ZOLDBUF
034138,000416: 37,3006           10070        CHKCTR             CCS      RUPTREG1                              
034139,000417: 37,3007           12777                           TCF      QUIKREAD   +1                         #  LOOP AGAIN
034140,000418: 37,3010           11227                           CCS      PIPCTR                                
034141,000419: 37,3011           12773                           TCF      ONMNITOR                              
034142,000420: 37,3012           05213                           TC       TASKOVER                              
034143,000421: 

Page 779

034145,000423:                                                                                                  #  *************************************   SERVICER   *************************************************************
034146,000424: 
034147,000425: 
034148,000426: 37,3013  E7,1431                                  EBANK=   DVCNTR                                
034149,000427: 
034150,000428: 37,3013           34711        SERVICER           CAF      TWO                                   
034151,000429: 37,3014           00004                           INHINT                                         
034152,000430: 37,3015           54070        PIPCHECK           TS       RUPTREG1                              
034153,000431: 
034154,000432: 37,3016           60000                           DOUBLE                                         
034155,000433: 37,3017           50000                           INDEX    A                                     
034156,000434: 37,3020           11162                           CCS      DELVX                                 
034157,000435: 37,3021           03023                           TC       +2                                    
034158,000436: 37,3022           03031                           TC       PIPLOOP                               
034159,000437: 
034160,000438: 37,3023           63141                           AD       -MAXDELV                              #  DO PIPA-SATURATION TEST BEFORE
034161,000439: 37,3024           00006                           EXTEND                                         
034162,000440: 37,3025           63031                           BZMF     PIPLOOP                               #  COMPENSATION.
034163,000441: 
034164,000442: 37,3026           05537                           TC       ALARM                                 
034165,000443: 37,3027           00205                           OCT      00205                                 #  SATURATED-PIPA ALARM  ***CHANGE LATER
034166,000444: 37,3030           03052                           TC       AVERAGEG                              
034167,000445: 
034168,000446: 37,3031           10070        PIPLOOP            CCS      RUPTREG1                              
034169,000447: 37,3032           13015                           TCF      PIPCHECK                              
034170,000448: 
034171,000449: 37,3033           05301                           TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
034172,000450: 37,3034           16035                           OCT      16035                                 
034173,000451: 37,3035           20000                           OCT      20000                                 
034174,000452: 37,3036  E7,1431                                  EBANK=   DVCNTR                                
034175,000453: 37,3036           03042 76067                     2CADR    DVTOTUP                               
034176,000454: 
034177,000455: 37,3040           04555                           TC       BANKCALL                              #  PIPA COMPENSATION CALL
034178,000456: 37,3041           15262                           CADR     1/PIPA                                
034179,000457: 
034180,000458: 37,3042           06006        DVTOTUP            TC       INTPRET                               
034181,000459: 37,3043           51575                           VLOAD    ABVAL                                 #  GET ABS VALUE OF DELV
034182,000460: 37,3044           01163                                    DELV                                  
034183,000461: 37,3045           77405                           DMP      EXIT                                  
034184,000462: 37,3046           37356                                    KPIP1                                 #  SCALE AT 2(+7)
034185,000463: 
034186,000464: 37,3047           00006                           EXTEND                                         
034187,000465: 37,3050           30155                           DCA      MPAC                                  
034188,000466: 37,3051           21426                           DAS      DVTOTAL                               #  ACCUMULATE DVTOTAL
034189,000467: 37,3052           05301        AVERAGEG           TC       PHASCHNG                              
034190,000468: 37,3053           10035                           OCT      10035                                 
034191,000469: 
034192,000470: 37,3054           06006                           TC       INTPRET                               
034193,000471: 37,3055           77624                           CALL                                           

Page 780

034195,000473: 37,3056           77325                                    CALCRVG                               
034196,000474: 37,3057           77776                           EXIT                                           
034197,000475: 
034198,000476: 37,3060           05301                           TC       PHASCHNG                              
034199,000477: 37,3061           10035                           OCT      10035                                 
034200,000478: 
034201,000479: 37,3062           34113                           CAF      OCT31                                 #  COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
034202,000480: 37,3063           05475                           TC       GENTRAN                               #  INTO RN ,VN ,GDT/12 ,GOBL/2 ,PIPTIME
034203,000481: 37,3064           01231                           ADRES    RN1                                   
034204,000482: 37,3065           01170                           ADRES    RN                                    
034205,000483: 37,3066           00003                           RELINT                                         #  GENTRAN DOES AN INHINT
034206,000484: 37,3067           05301                           TC       PHASCHNG                              
034207,000485: 37,3070           10035                           OCT      10035                                 
034208,000486: 
034209,000487: 37,3071           00006                           EXTEND                                         
034210,000488: 37,3072           31223                           DCA      AVGEXIT                               
034211,000489: 37,3073           52006                           DXCH     Z                                     #  AVERAGEG EXIT
034212,000490: 
034213,000491: 37,3074           31205        AVGEND             CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
034214,000492: 37,3075           55074                           TS       OLDBT1                                #  SET UP FREE FALL GYRO COMPENSATION
034215,000493: 
034216,000494: 37,3076           05435                           TC       UPFLAG                                #  SET DRIFTFLG
034217,000495: 37,3077           00036                           ADRES    DRIFTFLG                              #  BIT 15  FLAG 2
034218,000496: 37,3100           05261                           TC       2PHSCHNG                              
034219,000497: 37,3101           00005                           OCT      5                                     #  GROUP 5 OFF
034220,000498: 37,3102           05022                           OCT      05022                                 #  GROUP 2 ON FOR AVETOMID
034221,000499: 37,3103           20000                           OCT      20000                                 
034222,000500: 
034223,000501: 37,3104           06006                           TC       INTPRET                               
034224,000502: 37,3105           77624                           CALL                                           
034225,000503: 37,3106           27472                                    AVETOMID                              #  CONVERT STATE VECTOR TO REFERENCE SCALE.
034226,000504: 37,3107           77776                           EXIT                                           
034227,000505: 
034228,000506: 37,3110           34714                           CAF      ZERO                                  #  ZERO MARK COUNTERS.
034229,000507: 37,3111           55125                           TS       VHFCNT                                
034230,000508: 37,3112           55126                           TS       TRKMKCNT                              
034231,000509: 
034232,000510: 37,3113           04555                           TC       BANKCALL                              
034233,000511: 37,3114           17112                           CADR     PIPFREE                               
034234,000512: 
034235,000513: 37,3115           44702                           CS       BIT9                                  
034236,000514: 37,3116           55734                           TS       MRKBUF2                               #  INVALIDATE MARK BUFFER
034237,000515: 37,3117           00006                           EXTEND                                         
034238,000516: 37,3120           03011                           WAND     DSALMOUT                              
034239,000517: 
034240,000518: 37,3121           05447                           TC       DOWNFLAG                              
034241,000519: 37,3122           00147                           ADRES    CM/DSTBY                              
034242,000520: 
034243,000521: 37,3123           05447                           TC       DOWNFLAG                              
034244,000522: 37,3124           00162                           ADRES    V37FLAG                               

Page 781

034246,000524: 37,3125           34704                           CAF      BIT7                                  #  RESTORE GROUP 1 + 2 IF P20 IS RUNNING.
034247,000525: 37,3126           70074                           MASK     FLAGWRD0                              
034248,000526: 37,3127           00006                           EXTEND                                         
034249,000527: 37,3130           13134                           BZF      +4                                    
034250,000528: 
034251,000529: 37,3131           05261                           TC       2PHSCHNG                              
034252,000530: 37,3132           00111                           OCT      111                                   #  1.11SPOT
034253,000531: 37,3133           00132                           OCT      132                                   #  2.13SPOT
034254,000532: 
034255,000533: 37,3134           04574                           TC       POSTJUMP                              
034256,000534: 37,3135           10123                           CADR     CANV37                                
034257,000535: 
034258,000536: 37,3136           05301        SERVEXIT           TC       PHASCHNG                              
034259,000537: 37,3137           00035                           OCT      00035                                 #  A, 5.3 = REREADAC  (ONLY)
034260,000538: 
034261,000539: 37,3140           15112                           TCF      ENDOFJOB                              
034262,000540: 
034263,000541: 37,3141     4717               DVTHRUSH           EQUALS   ELEVEN                                #  15 PERCENT OF 2SEC PIPA ACCUMULATION,
034264,000542:                                                                                                  #                                               FOR 503-FULL CSM/LEM....DELV SC.AT
034265,000543:                                                                                                  #                                               5.85 CM/SEC.
034266,000544: 
034267,000545: 37,3141           63401        -MAXDELV           DEC      -6398      B-14                       #  3200 PPS FOR 2 SEC  CCS TAKES 1
034268,000546: 
034269,000547: 
034270,000548: 37,3142           00170        JTAGTIME           DEC      120        B-14                       #  = 1 SEC + T CDU, T CDU = .1 SEC
034271,000549: 
034272,000550: 37,3143           00372        2.5SEC             DEC      250        B-14                       
034273,000551: 37,3144           00044        MDOTFAIL           DEC      144.0      B-16                       #  5 SEC MASS LOSS AT 28.8 KG/SEC
034274,000552:                                                                                                  #                                          SHOULD BE 2-4 SECS FOR NO START
034275,000553:                                                                                                  #                                                    6-8 SECS FOR FAILURE
034276,000554: 

Page 782

034278,000556:                                                                                                  #     NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
034279,000557:                                                                                                  #  HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
034280,000558:                                                                                                  #  SCALED AT 2(+24)M.
034281,000559: 
034282,000560: 
034283,000561: 37,3145           34720        NORMLIZE           CAF      THIRTEEN                              #  SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
034284,000562: 37,3146           05475                           TC       GENTRAN                               #  INTO RN,VN, PIPTIME
034285,000563: 37,3147           01231                           ADRES    RN1                                   #  FROM HERE
034286,000564: 37,3150           01170                           ADRES    RN                                    #  TO HERE
034287,000565: 
034288,000566: 37,3151           00003                           RELINT                                         
034289,000567: 37,3152           06006                           TC       INTPRET                               
034290,000568: 37,3153           45175                           VLOAD    CALL                                  #  LOAD RN FOR CALCGRAV
034291,000569: 37,3154           01171                                    RN                                    
034292,000570: 37,3155           77260                                    CALCGRAV                              #  INITIALISE UNITR RMAG GDT1
034293,000571: 
034294,000572: 37,3156           25207                           STOVL    GDT/2                                 
034295,000573: 37,3157           01256                                    GOBL1/2                               
034296,000574: 37,3160           01215                           STORE    GOBL/2                                
034297,000575: 37,3161           77776                           EXIT                                           
034298,000576: 37,3162           15112                           TCF      ENDOFJOB                              
034299,000577: 

Page 783

034301,000579:                                                                                                  #  *****  PIPA READER *****
034302,000580: 
034303,000581: 
034304,000582:                                                                                                  #                  MOD NO. 00  BY D. LICKLY  DEC.9 1966
034305,000583: 
034306,000584: 
034307,000585:                                                                                                  #  FUNCTIONAL DESCRIPTION
034308,000586: 
034309,000587:                                                                                                  #     SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
034310,000588:                                                                                                  #     PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
034311,000589:                                                                                                  #     RESTARTS BEGIN AT REREADAC.
034312,000590: 
034313,000591: 
034314,000592:                                                                                                  #     AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
034315,000593:                                                                                                  #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
034316,000594:                                                                                                  #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
034317,000595:                                                                                                  #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
034318,000596: 
034319,000597:                                                                                                  #  CALLING SEQUENCE AND EXIT
034320,000598: 
034321,000599:                                                                                                  #     CALL VIA TC, ISWCALL, ETC.
034322,000600: 
034323,000601:                                                                                                  #     EXIT IS VIA Q.
034324,000602: 
034325,000603: 
034326,000604:                                                                                                  #  INPUT
034327,000605: 
034328,000606:                                                                                                  #     INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
034329,000607: 
034330,000608: 
034331,000609:                                                                                                  #  OUTPUT
034332,000610: 
034333,000611:                                                                                                  #     HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
034334,000612:                                                                                                  #     PIPTIME CONTAINS TIME OF PIPA READING.
034335,000613: 
034336,000614: 
034337,000615:                                                                                                  #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY PROGRAM)
034338,000616: 
034339,000617:                                                                                                  #           LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
034340,000618:                                                                                                  #           TEMX   TEMY   TEMZ   PIPAGE
034341,000619: 
034342,000620: 
034343,000621: 37,3163           00006        PIPASR             EXTEND                                         
034344,000622: 37,3164           30025                           DCA      TIME2                                 
034345,000623: 37,3165           53246                           DXCH     PIPTIME1                              #  CURRENT TIME  POSITIVE VALUE
034346,000624: 37,3166           44714                           CS       ZERO                                  #  INITIALIZE THESE AT NEG ZERO.
034347,000625: 37,3167           55224                           TS       TEMX                                  
034348,000626: 37,3170           55225                           TS       TEMY                                  
034349,000627: 37,3171           55226                           TS       TEMZ                                  

Page 784

034351,000629: 37,3172           34714                           CA       ZERO                                  
034352,000630: 37,3173           55166                           TS       DELVZ                                 #  OTHER DELVS OK INCLUDING LOW ORDER
034353,000631: 37,3174           55164                           TS       DELVY                                 
034354,000632: 
034355,000633: 37,3175           55163                           TS       DELVX      +1                         #  LOW ORDER DELV'S ARE ZEROED FOR TM: THUS
034356,000634: 37,3176           55165                           TS       DELVY      +1                         #  IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
034357,000635: 37,3177           55167                           TS       DELVZ      +1                         #  CONTAIN PROPER COMPENSATION. IF=0, THEN
034358,000636:                                                                                                  #                                          THE TM VALUES ARE BEFORE COMPENSATION.
034359,000637: 
034360,000638: 37,3200           55230                           TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
034361,000639: 
034362,000640: 37,3201           00006        REPIP1             EXTEND                                         
034363,000641: 37,3202           40040                           DCS      PIPAX                                 #  X AND Y PIPS READ
034364,000642: 37,3203           53225                           DXCH     TEMX                                  
034365,000643: 37,3204           52040                           DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
034366,000644: 37,3205           55162                           TS       DELVX                                 
034367,000645: 37,3206           23164                           LXCH     DELVY                                 
034368,000646: 
034369,000647: 37,3207           40041        REPIP3             CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
034370,000648: 37,3210           57226                           XCH      TEMZ                                  
034371,000649: 37,3211           56041                           XCH      PIPAZ                                 
034372,000650: 37,3212           55166        DODELVZ            TS       DELVZ                                 
034373,000651: 
034374,000652: 37,3213           00002                           TC       Q                                     
034375,000653: 
034376,000654: 
034377,000655: 37,3214  E6,1661                                  EBANK=   AOG                                   
034378,000656: 
034379,000657: 37,3214           10763        REREADAC           CCS      PHASE5                                #  LAST PASS CHECK
034380,000658: 37,3215           13217                           TCF      +2                                    
034381,000659: 37,3216           15213                           TCF      TASKOVER                              
034382,000660: 
034383,000661: 37,3217           11230                           CCS      PIPAGE                                
034384,000662: 37,3220           12653                           TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
034385,000663: 
034386,000664: 37,3221           33257                           CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
034387,000665: 37,3222           54002                           TS       Q                                     
034388,000666: 
034389,000667: 37,3223           11166                           CCS      DELVZ                                 
034390,000668: 37,3224           00002                           TC       Q                                     #  Z DONE, GO DO CDUS
034391,000669: 37,3225           13230                           TCF      +3                                    #  Z NOT DONE, CHECK Y.
034392,000670: 37,3226           00002                           TC       Q                                     
034393,000671: 37,3227           00002                           TC       Q                                     
034394,000672: 37,3230           22007                           ZL                                             
034395,000673: 37,3231           11164                           CCS      DELVY                                 
034396,000674: 37,3232           13235                           TCF      +3                                    
034397,000675: 37,3233           13244                           TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
034398,000676: 37,3234           13235                           TCF      +1                                    
034399,000677: 37,3235           22041                           LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.

Page 785

034401,000679: 37,3236           11226                           CCS      TEMZ                                  
034402,000680: 37,3237           41226                           CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
034403,000681: 37,3240           13212                           TCF      DODELVZ                               
034404,000682: 37,3241           13237                           TCF      -2                                    
034405,000683: 37,3242           23166                           LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
034406,000684: 37,3243           00002                           TC       Q                                     
034407,000685: 
034408,000686: 37,3244           11224        CHKTEMX            CCS      TEMX                                  #  HAS THIS CHANGED
034409,000687: 37,3245           41224                           CS       TEMX                                  #  YES
034410,000688: 37,3246           13251                           TCF      +3                                    #  YES
034411,000689: 37,3247           13245                           TCF      -2                                    #  YES
034412,000690: 37,3250           13201                           TCF      REPIP1                                #  NO
034413,000691: 37,3251           55162                           TS       DELVX                                 
034414,000692: 
034415,000693: 37,3252           41225                           CS       TEMY                                  
034416,000694: 37,3253           55164                           TS       DELVY                                 
034417,000695: 
034418,000696: 37,3254           44714                           CS       ZERO                                  #  ZERO X AND Y PIPS
034419,000697: 37,3255           52040                           DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
034420,000698: 
034421,000699: 37,3256           13207                           TCF      REPIP3                                
034422,000700: 
034423,000701: 37,3257           02654        DONEADR            GENADR   PIPSDONE                              
034424,000702: 

Page 786

034426,000704:                                                                                                  #  *************************************************************************************************************
034427,000705: 
034428,000706:                                                                                                  #           ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
034429,000707:                                                                                                  #  ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
034430,000708: 
034431,000709:                                                                                                  #           FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
034432,000710:                                                                                                  #  HARMONIC COEFFICIENT J.
034433,000711: 
034434,000712:                                                                                                  #           ROUTINE CALCRVG REQUIRES...
034435,000713:                                                                                                  #                  1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
034436,000714:                                                                                                  #                  2) VN SCALED 2(+7)M/CS IN REFERENCE COORDS.
034437,000715:                                                                                                  #                  3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
034438,000716:                                                                                                  #                  4) UNITW THE EARTH S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
034439,000717: 
034440,000718:                                                                                                  #  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
034441,000719:                                                                                                  #  UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
034442,000720: 
034443,000721: 
034444,000722: 37,3260           41456        CALCGRAV           UNIT     PUSH                                  #  ENTER WITH RN IN MPAC
034445,000723: 37,3261           01760                           STORE    UNITR                                 
034446,000724: 37,3262           67340                           LXC,1    SLOAD                                 
034447,000725: 37,3263           03746                                    RTX2                                  
034448,000726: 37,3264           00047                                    X1                                    
034449,000727: 37,3265           77240                           BMN      VLOAD                                 
034450,000728: 37,3266           77314                                    ITISMOON                              
034451,000729: 37,3267           41441                           DOT      PUSH                                  
034452,000730: 37,3270           01714                                    UNITW                                 
034453,000731: 37,3271           44316                           DSQ      BDSU                                  
034454,000732: 37,3272           37366                                    DP1/20                                
034455,000733: 37,3273           56325                           PDDL     DDV                                   
034456,000734: 37,3274           37370                                    RESQ                                  
034457,000735: 37,3275           00043                                    34D                                   #  (RN)SQ
034458,000736: 37,3276           00041                           STORE    32D                                   #  TEMP FOR (RE/RN)SQ
034459,000737: 37,3277           41205                           DMP      DMP                                   
034460,000738: 37,3300           37372                                    20J                                   
034461,000739: 37,3301           65361                           VXSC     PDDL                                  
034462,000740: 37,3302           01760                                    UNITR                                 
034463,000741: 37,3303           41205                           DMP      DMP                                   
034464,000742: 37,3304           37374                                    2J                                    
034465,000743: 37,3305           00041                                    32D                                   
034466,000744: 37,3306           53361                           VXSC     VAD                                   
034467,000745: 37,3307           01714                                    UNITW                                 
034468,000746: 37,3310           77626                           STADR                                          
034469,000747: 37,3311           76521                           STORE    GOBL1/2                               
034470,000748: 37,3312           41455                           VAD      PUSH                                  
034471,000749: 37,3313           01760                                    UNITR                                 
034472,000750: 37,3314           60345        ITISMOON           DLOAD    NORM                                  
034473,000751: 37,3315           00043                                    34D                                   
034474,000752: 37,3316           00050                                    X2                                    
034475,000753: 37,3317           53663                           BDDV*    SLR*                                  

Page 787

034477,000755: 37,3320           37360                                    -MUDT(E),1                            
034478,000756: 37,3321           56623                                    0          -21D,2                     
034479,000757: 37,3322           45561                           VXSC     STADR                                 
034480,000758: 37,3323           76527                           STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
034481,000759: 37,3324           77616                           RVQ                                            
034482,000760: 
034483,000761: 37,3325           74375        CALCRVG            VLOAD    VXSC                                  
034484,000762: 37,3326           01163                                    DELV                                  
034485,000763: 37,3327           37356                                    KPIP1                                 
034486,000764: 37,3330           76505                           VXM      VSL1                                  
034487,000765: 37,3331           01736                                    REFSMMAT                              
034488,000766: 37,3332           03433                           STORE    DELVREF                               #  DELV IN REF COORDS AT 2(+7)
034489,000767: 37,3333           41562                           VSR1     PUSH                                  
034490,000768: 37,3334           41455                           VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
034491,000769: 37,3335           01207                                    GDT/2                                 
034492,000770: 37,3336           74255                           VAD      VXSC                                  
034493,000771: 37,3337           01177                                    VN                                    
034494,000772: 37,3340           37364                                    2SEC(22)                              
034495,000773: 37,3341           44055                           VAD      STQ                                   
034496,000774: 37,3342           01171                                    RN                                    
034497,000775: 37,3343           00037                                    31D                                   
034498,000776: 37,3344           35232                           STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
034499,000777: 37,3345           77260                                    CALCGRAV                              
034500,000778: 
034501,000779: 37,3346           53255                           VAD      VAD                                   
034502,000780: 37,3347           77655                           VAD                                            
034503,000781: 37,3350           01177                                    VN                                    
034504,000782: 37,3351           35240                           STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7)M/CS
034505,000783: 37,3352           00037                                    31D                                   
034506,000784: 
034507,000785: 37,3353           03215 27057  KPIP               2DEC     .1024                                 #  SCALES DELV TO 2(+4)
034508,000786: 37,3355           02312 32537  KPIP1              2DEC     0.074880                              #  207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
034509,000787: 37,3357           61377 55754  -MUDT(E)           2DEC*    -7.9720645 E+12       B-44*           
034510,000788: 37,3361           77644 65556  -MUDT(M)           2DEC*    -9.805556  E+10       B-44*           
034511,000789: 37,3363           00000 31000  2SEC(22)           2DEC     200        B-22                       
034512,000790: 
034513,000791: 37,3365           01463 06315  DP1/20             2DEC     0.05                                  
034514,000792: 37,3367           00001 05000  RESQ               2DEC*    40.6809913 E12        B-59*           
034515,000793: 37,3371           02047 36332  20J                2DEC*    3.24692010 E-2        B1*             
034516,000794: 37,3373           00152 14511  2J                 2DEC*    3.24692010 E-3        B1*             

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