Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

036284,000002:                                                                                                 #  Copyright:     Public domain.
036285,000003:                                                                                                 #  Filename:      SERVICER207.agc
036286,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
036287,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
036288,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
036289,000007:                                                                                                 #                 Apollo 15-17.
036290,000008:                                                                                                 #  Assembler:     yaYUL
036291,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
036292,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
036293,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
036294,000012:                                                                                                 #  Mod history:   2009-08-12 JL   Adapted from corresponding Comanche 055 file.
036295,000013:                                                                                                 #                 2010-02-01 JL   Fixed build error.
036296,000014:                                                                                                 #                 2010-02-13 JL   Fixed error on p827.
036297,000015:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
036298,000016: 
036299,000017:                                                                                                 # # Page 823
036300,000018: 
036301,000019:                                                                                                 #  PROGRAM NAME - PREREAD, READACCS, SERVICER, AVERAGE G.
036302,000020: 
036303,000021:                                                                                                 #  MOD NO. 00     BY M. HAMILTON  DEC. 12, 1966
036304,000022: 
036305,000023:                                                                                                 #  FUNCTIONAL DESCRIPTION
036306,000024: 
036307,000025:                                                                                                 #  THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT.
036308,000026:                                                                                                 #  THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES.
036309,000027: 
036310,000028:                                                                                                 #  GENERAL REFERENCES TO  SERVICER  OR  AVERAGE G  ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING
036311,000029:                                                                                                 #  READACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW).
036312,000030: 
036313,000031:                                                                                                 #  PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS)
036314,000032:                                                                                                 #  AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY
036315,000033:                                                                                                 #  2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET.
036316,000034: 
036317,000035:                                                                                                 #  THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE
036318,000036:                                                                                                 #  EXPLANATION OF AVGEXIT BELOW).
036319,000037: 
036320,000038:                                                                                                 #  DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW.
036321,000039: 
036322,000040:                                                                                                 #         PREREAD
036323,000041: 
036324,000042:                                                                                                 #                 PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME.
036325,000043:                                                                                                 #                 LASTBIAS JOB SCHEDULED.
036326,000044:                                                                                                 #                 PIPS READ AND CLEARED VIA PIPASR SUBROUTINE.
036327,000045:                                                                                                 #                 AVERAGE G FLAG SET ON.
036328,000046:                                                                                                 #                 DRIFT FLAG SET OFF.
036329,000047:                                                                                                 #                 V37 FLAG SET ON.
036330,000048:                                                                                                 #                 INITIALIZATION OF       1) THRUST MONITOR (DVMON) - DVCNTR SET TO ONE.
036331,000049:                                                                                                 #                                         2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) - SET TO ZERO.
036332,000050:                                                                                                 #                                         3) AXIS VECTOR (AXIS) - SET TO (.5,0,0).
036333,000051:                                                                                                 #                 NORMLIZE JOB SCHEDULED.
036334,000052:                                                                                                 #                 READACCS TASK CALLED IN 2 SECONDS.
036335,000053: 
036336,000054:                                                                                                 #         NORMLIZE
036337,000055: 
036338,000056:                                                                                                 #                 GDT/2 INITIALIZED VIA CALCGRAV SUBROUTINE.
036339,000057: 
036340,000058:                                                                                                 #         READACCS
036341,000059: 
036342,000060:                                                                                                 #                 IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC
036343,000061:                                                                                                 #                 ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY.
036344,000062:                                                                                                 #                 PIPS READ AND CLEARED BY PIPASR SUBROUTINE.
036345,000063:                                                                                                 #                 IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED.
036346,000064:                                                                                                 # # Page 824
036347,000065: 
036348,000066:                                                                                                 #         SERVICER207
036349,000067: 
036350,000068:                                                                                                 #                 IF AVERAGEG FLAG ON     READACCS CALLED TO RECYCLE IN 2 SECONDS.
036351,000069:                                                                                                 #                 IF AVERAGEG FLAG OFF    AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS.
036352,000070:                                                                                                 #                 SERVICER JOB SCHEDULED.
036353,000071: 
036354,000072:                                                                                                 #                 TEST CONNECTOR OUTBIT TURNED ON.
036355,000073: 
036356,000074:                                                                                                 #         ONMNITOR
036357,000075: 
036358,000076:                                                                                                 #                 A SEQUENCE OF THREE PASSES THROUGH QUICKREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 
036359,000077:                                                                                                 #                 SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS.
036360,000078: 
036361,000079:                                                                                                 #         QUIKREAD
036362,000080: 
036363,000081:                                                                                                 #                 READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO
036364,000082:                                                                                                 #                 DOWNLIST DURING ENTRY.
036365,000083: 
036366,000084:                                                                                                 #         SERVICER
036367,000085: 
036368,000086:                                                                                                 #                 DELV VALUES CHECKED TO DETECT RUNAWAY PIP -
036369,000087:                                                                                                 #                         IF BAD PIP      1) ALARM SENT.
036370,000088:                                                                                                 #                                         2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED.  CONTROL
036371,000089:                                                                                                 #                                            TRANSFERRED TO AVERAGE G.
036372,000090:                                                                                                 #                 PIPS COMPENSATED VIA 1/PIPA SUBROUTINE.
036373,000091:                                                                                                 #                 DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV.
036374,000092:                                                                                                 #                 THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON.
036375,000093:                                                                                                 #                 CONTROL TRANSFERRED TO AVERAGE G.
036376,000094: 
036377,000095:                                                                                                 #         DVMON
036378,000096: 
036379,000097:                                                                                                 #                 THRESHOLD VALUE (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK
036380,000098:                                                                                                 #                 THRUST LEVEL.
036381,000099: 
036382,000100:                                                                                                 #                         IF THRUST       1) ULLAGE OFF ROUTINE PERFORMED.
036383,000101:                                                                                                 #                                         2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST.
036384,000102:                                                                                                 #                                         3) CONTROL TRANSFERRED TO AVERAGE G.
036385,000103:                                                                                                 #                         IF NO THRUST    1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G.
036386,000104:                                                                                                 #                                         2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST
036387,000105:                                                                                                 #                                            HAS FAILED FOR 3 CONSECUTIVE PASSES.
036388,000106: 
036389,000107:                                                                                                 #         ENGINE FAIL
036390,000108: 
036391,000109:                                                                                                 #                 ENGFAIL1 TASK CALLED IN 2.5 SECONDS.  THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION
036392,000110:                                                                                                 #                         SEQUENCE MAY BE REPEATED.
036393,000111:                                                                                                 #                 ENGINOF3 PERFORMED.
036394,000112:                                                                                                 #                 DAP SET UP FOR RCS.
036395,000113:                                                                                                 #         
036396,000114:                                                                                                 #         AVERAGE G
036397,000115:                                                                                                 # # Page 825
036398,000116:                                                                                                 #                 RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
036399,000117:                                                                                                 #                 OF GDT/2
036400,000118:                                                                                                 #                 RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION.
036401,000119:                                                                                                 #                 CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVGEXIT.
036402,000120:                                                                                                 #                 LAST PASS (AVGEND)      1) FREE FALL GYRO COMPENSATION SET UP.
036403,000121:                                                                                                 #                                         2) DRIFT FLAG TURNED ON.
036404,000122:                                                                                                 #                                         3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE.
036405,000123:                                                                                                 #                                         4) ONMONITOR FLAG RESET.
036406,000124:                                                                                                 #                                         5) V37 FLAG RESET.
036407,000125:                                                                                                 #                                         6) TEST CONNECTOR OUTBIT RESET.
036408,000126:                                                                                                 #                                         7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00).
036409,000127: 
036410,000128:                                                                                                 #  CALLING SEQUENCE
036411,000129: 
036412,000130:                                                                                                 #         PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP.
036413,000131:                                                                                                 #         READACCS CALLED AS WAITLIST TASK.
036414,000132: 
036415,000133:                                                                                                 #  SUBROUTINES CALLED
036416,000134: 
036417,000135:                                                                                                 #         UTILITY ROUTINES - PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG
036418,000136: 
036419,000137:                                                                                                 #         OTHER - PIPASR  1/PIPA  CALCGRAV  CALCRVG  AVETOMID
036420,000138: 
036421,000139:                                                                                                 #  NORMAL EXIT MODES
036422,000140: 
036423,000141:                                                                                                 #         ENDOFJOB        TASKOVER        CANV37
036424,000142: 
036425,000143:                                                                                                 #         AVGEXIT - THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END
036426,000144:                                                                                                 #                   OF EACH CYCLE OF AVERAGE G.
036427,000145:                                                                                                 #                   THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE PERFORMED
036428,000146:                                                                                                 #                   AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT.
036429,000147:                                                                                                 #                   ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G.
036430,000148: 
036431,000149:                                                                                                 #         SERVEXIT - DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB.
036432,000150:                                                                                                 #                    THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER IF NO OTHER ROUTINE (SEE ABOVE).
036433,000151: 
036434,000152:                                                                                                 #         AVGEND - LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS).
036435,000153:                                                                                                 #                  FINAL EXIT IS TO CANV37.                               F AVERAGE G).
036436,000154: 
036437,000155:                                                                                                 #  OUTPUT
036438,000156: 
036439,000157:                                                                                                 #         DVTOTAL(2)  PIPTIME(2)  XPIPBUF(2)  YPIPBUF(2)  ZPIPBUF(2)
036440,000158:                                                                                                 #         RN(6)           REFERENCE COORD.        SCALED AT 2(+29) M/CS
036441,000159:                                                                                                 #         VN(6)           REFERENCE COORD.        SCALED AT 2(+7) M/CS
036442,000160:                                                                                                 #         GDT/2(6)        REFERENCE COORD.        SCALED AT 2(+7) M/CS
036443,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))
036444,000162:                                                                                                 # # Page 826
036445,000163:                                                                                                 #         DELVREF(6)      REFERENCE COORD.        SCALED AT 2(+7) M/CS
036446,000164: 
036447,000165:                                                                                                 #  INITIALIZATION
036448,000166: 
036449,000167:                                                                                                 #         ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED.
036450,000168:                                                                                                 #         IDLE FLAG ON IF DVMON TO BE BYPASSED.
036451,000169:                                                                                                 #         DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON.
036452,000170:                                                                                                 #         AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G.  IF NO ROUTINE
036453,000171:                                                                                                 #                 TO BE DONE, AVGEXIT SET TO SERVEXIT.
036454,000172:                                                                                                 #         VALUES NEEDED
036455,000173:                                                                                                 #                 REFSMMAT
036456,000174:                                                                                                 #                 UNITW - FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH'S ROTATIONAL VECTOR
036457,000175:                                                                                                 #                 RN1, VN1, PIPTIME1 - IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD.
036458,000176: 
036459,000177:                                                                                                 #  DEBRIS
036460,000178: 
036461,000179:                                                                                                 #         CENTRALS        A, L, Q
036462,000180:                                                                                                 #         OTHER           INTERNAL - DVCNTR(1)  PIPAGE(1)  PIPCTR(1)  AVGEXIT(2)
036463,000181:                                                                                                 #                         EXTERNAL - ITEMP1(1)  ITEMP2(1)  RUPTREG1(1)  TEMX(1)  TEMY(1)  TEMZ(1)
036464,000182:                                                                                                 #                         USEFUL DEBRIS
036465,000183:                                                                                                 #                                 RN1(6)  VN1(6)  GDT1/2  PIPTIME1(2)
036466,000184:                                                                                                 #                                         THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2,
036467,000185:                                                                                                 #                                         AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES.
036468,000186:                                                                                                 #                                 UNITR - HALF UNIT VECTOR OF RN, REFERENCE COORD.
036469,000187:                                                                                                 #                                 RMAG SCALED AT 2(+58) IN 36D.
036470,000188:                                                                                                 #                                 RMAGSQ SCALED AT 2(+58) IN 34D.
036471,000189:                                                                                                 #                                 (RE/RMAG)SQ IN 32D
036472,000190: 
036473,000191: 37,2000                                          SETLOC   SERVICES                              
036474,000192: 37,2000                                          BANK                                           
036475,000193: 
036476,000194: 37,2607  E7,1425                                 EBANK=   DVTOTAL                               
036477,000195: 
036478,000196:                                                                                                 #  *************************************   PREREAD   **************************************************************
036479,000197: 
036480,000198: 37,2607                                          COUNT*   $$/SERV                               
036481,000199: 37,2607           35057        PREREAD           CAF      PRIO21                                #  CALLER MUST PROTECT PREREAD
036482,000200: 37,2610           05121                          TC       NOVAC                                 
036483,000201: 37,2611  E3,1460                                 EBANK=   NBDX                                  
036484,000202: 37,2611           03655 14063                    2CADR    LASTBIAS                              #  DO LAST GYRO COMPENSATION IN FREE FALL
036485,000203: 
036486,000204:                                                                                                 #  CALL-TO AND LASTBIAS ITSELF ARE NOT
036487,000205:                                                                                                 #         PROTECTED. REREADAC SETS 1/PIPADT
036488,000206:                                                                                                 #         TO 2.0 SECS IN CASE LASTBIAS LOST.
036489,000207:                                                                                                 #         (REDUNDANT IF LASTBIAS IS AOK.)
036490,000208: 
036491,000209: 37,2613           02630        REDO5.31          TC       PREREAD1                              
036492,000210:                                                                                                 # # Page 827
036493,000211: 37,2614           37654                          CAF      PRIO32                                
036494,000212: 37,2615           05135                          TC       FINDVAC                               #  SET UP NORMLIZE JOB REQUIRED PRIOR TO
036495,000213: 37,2616  E7,1425                                 EBANK=   DVTOTAL                               
036496,000214: 37,2616           03154 76067                    2CADR    NORMLIZE                              
036497,000215: 
036498,000216: 37,2620           35017                          CAF      2SECS                                 
036499,000217: 37,2621           05233                          TC       WAITLIST                              
036500,000218: 37,2622  E6,1661                                 EBANK=   AOG                                   
036501,000219: 37,2622           02652 76066                    2CADR    READACCS                              
036502,000220: 
036503,000221: 37,2624           44767                          CS       TWO                                   
036504,000222: 37,2625           04126                          TC       NEWPHASE                              
036505,000223: 37,2626           00005                          OCT      5                                     
036506,000224: 
036507,000225: 37,2627  01,2234               5P2SPT2           =        5.2SPOT                               
036508,000226: 37,2627           15314                          TCF      TASKOVER                              
036509,000227: 
036510,000228: 37,2630           00006        PREREAD1          EXTEND                                         
036511,000229: 37,2631           22070                          QXCH     RUPTREG1                              
036512,000230: 
036513,000231: 37,2632           03171                          TC       PIPASR                                #  CLEAR + READ PIPS LAST TIME IN FREE FALL
036514,000232: 
036515,000233: 37,2633           34770                          CAF      ONE                                   #  SET UP PIPAGE FOR REREADAC IN CASE A
036516,000234: 37,2634           55067                          TS       PIPAGE                                #         RESTART OCCURS BEFORE READACCS
036517,000235: 
036518,000236: 37,2635           40075                          CS       FLAGWRD1                              #  SET AVEG FLAG
036519,000237: 37,2636           74770                          MASK     AVEGBIT                               
036520,000238: 37,2637           26075                          ADS      FLAGWRD1                              
036521,000239: 
036522,000240: 37,2640           44752                          CS       DRFTBIT                               
036523,000241: 37,2641           70076                          MASK     FLAGWRD2                              
036524,000242: 37,2642           54076                          TS       FLAGWRD2                              #  KNOCK DOWN DRIFT FLAG
036525,000243: 
036526,000244: 37,2643           40103                          CS       FLAGWRD7                              #  SET V37 FLAG
036527,000245: 37,2644           74763                          MASK     V37FLBIT                              
036528,000246: 37,2645           26103                          ADS      FLAGWRD7                              
036529,000247: 
036530,000248: 37,2646           34772                          CAF      ZERO                                  
036531,000249: 37,2647           55425                          TS       DVTOTAL                               #  CLEAR DVTOTAL
036532,000250: 37,2650           55426                          TS       DVTOTAL    +1                         
036533,000251: 
036534,000252: 37,2651           00070                          TC       RUPTREG1                              
036535,000253: 
036536,000254:                                                                                                 # # Page 828
036537,000255:                                                                                                 #  *************************************   READACCS   *************************************************************
036538,000256: 37,2652  E6,1661                                 EBANK=   AOG                                   
036539,000257: 37,2652           03171        READACCS          TC       PIPASR                                
036540,000258: 
036541,000259: 37,2653           34773        PIPSDONE          CAF      FIVE                                  
036542,000260: 37,2654           54001                          TS       L                                     
036543,000261: 37,2655           40000                          COM                                            
036544,000262: 37,2656           53166                          DXCH     -PHASE5                               
036545,000263: 
036546,000264: 37,2657  01,2253               5P5SPT1           =        5.5SPOT                               
036547,000265: 37,2657           34770        REDO5.5           CAF      ONE                                   #  SHOW PIPS HAVE BEEN READ
036548,000266: 37,2660           55067                          TS       PIPAGE                                
036549,000267: 
036550,000268: 37,2661           34767                          CA       TWO                                   #  SET PIPCTR FOR ONMINTOR
036551,000269: 37,2662           55066                          TS       PIPCTR                                #  AFTER ABOVE PHASCHNG
036552,000270: 
036553,000271: 37,2663           40102                          CS       CM/FLAGS                              
036554,000272: 37,2664           74767                          MASK     CM/DSBIT                              #  103D BIT2
036555,000273: 37,2665           10000                          CCS      A                                     
036556,000274: 37,2666           02740                          TC       CHEKAVEG                              
036557,000275: 
036558,000276: 37,2667           41105                          CS       PIPTIME1   +1                         
036559,000277: 37,2670           55271                          TS       TBASE6                                #  FOR RESTARTS
036560,000278: 37,2671           00006                          EXTEND                                         #  CONTINUE FOR ENTRY DAP
036561,000279: 37,2672           31662                          DCA      AOG                                   
036562,000280: 37,2673           53670                          DXCH     AOG/PIP                               
036563,000281: 37,2674           31663                          CA       AMG                                   
036564,000282: 37,2675           57671                          XCH      AMG/PIP                               
036565,000283: 37,2676           00006                          EXTEND                                         
036566,000284: 37,2677           31665                          DCA      ROLL/180                              
036567,000285: 37,2700           53673                          DXCH     ROLL/PIP                              
036568,000286: 37,2701           31666                          CA       BETA/180                              
036569,000287: 37,2702           57674                          XCH      BETA/PIP                              
036570,000288: 37,2703           30102                          CA       CM/FLAGS                              
036571,000289: 37,2704           74755                          MASK     CMARMBIT                              #  93D BIT12
036572,000290: 37,2705           00006                          EXTEND                                         #  DURING ENTRY, WHEN RCS DAP IS INACTIVE,
036573,000291: 37,2706           12723                          BZF      NOSAVPIP                              #  SAVE PIPAS EACH 0.5 SEC FOR TM.
036574,000292: 
036575,000293: 37,2707           35011                          CAF      .5SEC                                 
036576,000294: 37,2710           05223                          TC       TWIDDLE                               
036577,000295: 37,2711           02773                          ADRES    QUIKREAD                              
036578,000296:                                                                                                 #  NO NEED TO RESTART PROTECT THIS.
036579,000297: 37,2712           31314                          CA       DELVX                                 #  SAVE PIPAS AS READ (BUT NOT COMPENSATED)
036580,000298: 37,2713           57533                          XCH      XPIPBUF                               
036581,000299: 37,2714           55536                          TS       XOLDBUF                               
036582,000300: 
036583,000301: 37,2715           31316                          CA       DELVY                                 
036584,000302: 37,2716           57534                          XCH      YPIPBUF                               
036585,000303: 37,2717           55537                          TS       YOLDBUF                               
036586,000304:                                                                                                 # # Page 829
036587,000305: 37,2720           31320                          CA       DELVZ                                 
036588,000306: 37,2721           57535                          XCH      ZPIPBUF                               
036589,000307: 37,2722           55540                          TS       ZOLDBUF                               
036590,000308: 
036591,000309: 37,2723           34773        NOSAVPIP          CA       FIVE                                  
036592,000310: 37,2724           55725                          TS       CM/GYMDT                              
036593,000311: 
036594,000312: 37,2725           33153                          CA       JTAGTIME                              #  ACTIVATE CM/RCS AFTER PIPUP TO GO
036595,000313:                                                                                                 #  IN JTAGTIME +5 CS.
036596,000314: 37,2726           05233                          TC       WAITLIST                              
036597,000315: 37,2727  E6,1661                                 EBANK=   AOG                                   
036598,000316: 37,2727           02636 32066                    2CADR    SETJTAG                               
036599,000317: 
036600,000318: 37,2731           46214                          CS       THREE                                 #  1.3SPOT FOR SETJTAG
036601,000319: 37,2732           04126                          TC       NEWPHASE                              
036602,000320: 37,2733           00001                          OCT      1                                     
036603,000321: 
036604,000322: 37,2734  01,2014               1P3SPT1           =        1.3SPOT                               
036605,000323: 37,2734           34125                          CAF      OCT31                                 #  5.31SPOT FOR CHEKAVG
036606,000324: 37,2735           54001                          TS       L                                     
036607,000325: 37,2736           40000                          COM                                            
036608,000326: 37,2737           53166                          DXCH     -PHASE5                               
036609,000327: 
036610,000328: 37,2740  01,2311               5P31SPOT          =        5.31SPOT                              
036611,000329: 37,2740           40075        CHEKAVEG          CS       FLAGWRD1                              
036612,000330: 37,2741           74770                          MASK     AVEGBIT                               
036613,000331: 37,2742           10000                          CCS      A                                     #  IF AVEG FLAG DOWN SET FINAL EXIT AVEG
036614,000332: 37,2743           02762                          TC       AVEGOUT                               
036615,000333: 
036616,000334: 37,2744           35017                          CAF      2SECS                                 
036617,000335: 37,2745           05223                          TC       TWIDDLE                               
036618,000336: 37,2746           02652                          ADRES    READACCS                              
036619,000337: 37,2747           34753        MAKESERV          CAF      PRIO20                                #  ESTABLISH SERVICER ROUTINE
036620,000338: 37,2750           05135                          TC       FINDVAC                               
036621,000339: 37,2751  E7,1425                                 EBANK=   DVTOTAL                               
036622,000340: 37,2751           03010 76067                    2CADR    SERVICER                              
036623,000341: 
036624,000342: 37,2753           44766                          CS       FOUR                                  #  RESTART SERVICER AND READACCS
036625,000343: 37,2754           04126                          TC       NEWPHASE                              
036626,000344: 37,2755           00005                          OCT      5                                     
036627,000345: 
036628,000346: 37,2756  01,2242               5P4SPT1           =        5.4SPOT                               
036629,000347: 37,2756           34760                          CAF      BIT9                                  
036630,000348: 37,2757           00006                          EXTEND                                         
036631,000349: 37,2760           05011                          WOR      DSALMOUT                              #  TURN TEST CONNECTOR OUTBIT ON
036632,000350: 
036633,000351: 37,2761           15314                          TCF      TASKOVER                              #  END PREVIOUS READACCS WAITLIST TASK
036634,000352: 
036635,000353:                                                                                                 # # Page 830
036636,000354: 37,2762           00006        AVEGOUT           EXTEND                                         
036637,000355: 37,2763           32767                          DCA      AVOUTCAD                              
036638,000356: 37,2764           53062                          DXCH     AVGEXIT                               
036639,000357: 37,2765           12747                          TCF      MAKESERV                              
036640,000358: 
036641,000359: 37,2766  E7,1425                                 EBANK=   DVTOTAL                               
036642,000360: 37,2766           03100 76067  AVOUTCAD          2CADR    AVGEND                                
036643,000361: 
036644,000362:                                                                                                 # # Page 831
036645,000363:                                                                                                 #  ROUTINE NAME:  ONMNITOR
036646,000364:                                                                                                 #  MOD 04 BY BAIRNSFATHER 30 APR 1968     REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY.
036647,000365:                                                                                                 #  MOD 03 BY FISHER DECEMBER 1967
036648,000366:                                                                                                 #  MOD 02 BY RYE SEPT 1967
036649,000367:                                                                                                 #  MOD 01 BY KOSMALA 23 MAR 1967
036650,000368:                                                                                                 #  MOD 00 BY KOSMALA 27 FEB 1967
036651,000369: 
036652,000370:                                                                                                 #  FUNCTIONAL DESCRIPTION
036653,000371: 
036654,000372:                                                                                                 #         THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY.
036655,000373:                                                                                                 #         X,Y,XPIPBUF CONTAIN PRESET VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING.
036656,000374: 
036657,000375:                                                                                                 #  CALLING SEQUENCE
036658,000376: 
036659,000377:                                                                                                 #         CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER
036660,000378: 
036661,000379:                                                                                                 #  INITIALIZATION
036662,000380: 
036663,000381:                                                                                                 #         PIPCTR = 2 (FOR DT = 0.5 SEC)
036664,000382:                                                                                                 #         X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z
036665,000383: 
036666,000384:                                                                                                 #  OUTPUT
036667,000385: 
036668,000386:                                                                                                 #         X,Y,ZPIPBUF, X,Y,ZOLDBUF
036669,000387: 
036670,000388:                                                                                                 #  DEBRIS
036671,000389: 
036672,000390:                                                                                                 #         X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES
036673,000391:                                                                                                 #                 X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES
036674,000392:                                                                                                 #         RUPTREG1
036675,000393:                                                                                                 #         PIPCTR
036676,000394: 
036677,000395: 37,2770           55066        ONMNITOR          TS       PIPCTR                                
036678,000396: 
036679,000397: 37,2771           05255                          TC       FIXDELAY                              #  WAIT
036680,000398: 37,2772           00062        0.5SEC            DEC      50         B-14                       
036681,000399: 
036682,000400: 37,2773           34767        QUIKREAD          CAF      TWO                                   
036683,000401: 37,2774           54070                 +1       TS       RUPTREG1                              
036684,000402: 37,2775           50000                          INDEX    A                                     
036685,000403: 37,2776           30037                          CA       PIPAX                                 #  SAVE ACTUAL PIPAS FOR TM.
036686,000404: 37,2777           50070                          INDEX    RUPTREG1                              
036687,000405: 37,3000           57533                          XCH      XPIPBUF                               #  UPDATE X,Y,ZPIPBUF
036688,000406: 37,3001           50070                          INDEX    RUPTREG1                              
036689,000407: 37,3002           55536                          TS       XOLDBUF                               #  AND X,Y,ZOLDBUF
036690,000408: 37,3003           10070        CHKCTR            CCS      RUPTREG1                              
036691,000409: 37,3004           12774                          TCF      QUIKREAD   +1                         #  LOOP AGAIN
036692,000410: 37,3005           11066                          CCS      PIPCTR                                
036693,000411: 37,3006           12770                          TCF      ONMNITOR                              
036694,000412: 37,3007           05314                          TC       TASKOVER                              
036695,000413: 
036696,000414:                                                                                                 # # Page 832
036697,000415:                                                                                                 #  *************************************   SERVICER   *************************************************************
036698,000416: 
036699,000417: 37,2000                                          SETLOC   SERVICES                              
036700,000418: 37,2000                                          BANK                                           
036701,000419: 
036702,000420: 37,3010  E7,1425                                 EBANK=   DVTOTAL                               
036703,000421: 
036704,000422: 37,3010                                          COUNT*   $$/SERV                               
036705,000423: 37,3010           34767        SERVICER          CAF      TWO                                   
036706,000424: 37,3011           00004                          INHINT                                         
036707,000425: 37,3012           54070        PIPCHECK          TS       RUPTREG1                              
036708,000426: 
036709,000427: 37,3013           60000                          DOUBLE                                         
036710,000428: 37,3014           50000                          INDEX    A                                     
036711,000429: 37,3015           11314                          CCS      DELVX                                 
036712,000430: 37,3016           03020                          TC       +2                                    
036713,000431: 37,3017           03026                          TC       PIPLOOP                               
036714,000432: 
036715,000433: 37,3020           63152                          AD       -MAXDELV                              #  DO PIPA-SATURATION TEST BEFORE
036716,000434: 37,3021           00006                          EXTEND                                         
036717,000435: 37,3022           63026                          BZMF     PIPLOOP                               #  COMPENSATION.
036718,000436: 
036719,000437: 37,3023           05671                          TC       ALARM                                 
036720,000438: 37,3024           00205                          OCT      00205                                 #  SATURATED-PIPA ALARM   ***CHANGE LATER
036721,000439: 37,3025           03056                          TC       AVERAGEG                              
036722,000440: 
036723,000441: 37,3026           10070        PIPLOOP           CCS      RUPTREG1                              
036724,000442: 37,3027           13012                          TCF      PIPCHECK                              
036725,000443: 
036726,000444: 37,3030           05402                          TC       PHASCHNG                              #  RESTART REREADAC + SERVICER
036727,000445: 37,3031           16035                          OCT      16035                                 
036728,000446: 37,3032           20000                          OCT      20000                                 
036729,000447: 37,3033  01,2250               5P3SPT9           =        5.3SPOT                               
036730,000448: 37,3033  E7,1425                                 EBANK=   DVTOTAL                               
036731,000449: 
036732,000450: 37,3033           03037 76067                    2CADR    DVTOTUP                               
036733,000451: 
036734,000452: 37,3035           04636                          TC       BANKCALL                              #  PIPA COMPENSATION CALL
036735,000453: 37,3036           15276                          CADR     1/PIPA                                
036736,000454: 
036737,000455: 37,3037           06006        DVTOTUP           TC       INTPRET                               
036738,000456:                                                                                                 #  THE FOLLOWING SECTION DECREMENTS 'TTE' DURING P61
036739,000457:                                                                                                 #  THROUGH P63 ONLY. (IE: IN P60'S IF DRAG< 0.05 G)
036740,000458: 37,3040           71214        TICKTTE           BON      DLOAD                                 #  .05GSW IS SET =1 IN FRESH START.
036741,000459: 37,3041           03314                                   .05GSW                                #  FLAG IS ASSIGNED ONLY TO P61-P67.
036742,000460: 37,3042           77047                                   +5                                    #  DO NOT COUNT 'TTE' IF DRAG > 0.05 G.
036743,000461: 37,3043           03735                                   TTE2                                  
036744,000462: 37,3044           77615                          DAD                                            
036745,000463:                                                                                                 # # Page 833
036746,000464: 37,3045           01105                                   PIPTIME1                              #  DECREMENT 'TTE' BY 'PIPTIME1'. (BY 2 SEC)
036747,000465: 37,3046           03727                          STORE    TTE                                   #  NEGATIVE AS IN A COUNTDOWN.
036748,000466:                                                                                                 #  DURING P61 THRU P63, 'TTE' IS DECREMENTED 
036749,000467:                                                                                                 #  AND IS ON CALL AND ON ENTRY DNLIST.
036750,000468: 
036751,000469: 37,3047           51575                          VLOAD    ABVAL                                 #  GET ABS VALUE OF DELV
036752,000470: 37,3050           01315                                   DELV                                  
036753,000471: 37,3051           77405                          DMP      EXIT                                  
036754,000472: 37,3052           37365                                   KPIP1                                 #  SCALE AT 2(+7)
036755,000473: 
036756,000474: 37,3053           00006                          EXTEND                                         
036757,000475: 37,3054           30155                          DCA      MPAC                                  
036758,000476: 37,3055           21426                          DAS      DVTOTAL                               #  ACCUMULATE DVTOTAL
036759,000477: 37,3056           05402        AVERAGEG          TC       PHASCHNG                              
036760,000478: 37,3057           10035                          OCT      10035                                 
036761,000479: 
036762,000480: 37,3060  01,2250               5P3SPT10          =        5.3SPOT                               
036763,000481: 37,3060           06006                          TC       INTPRET                               
036764,000482: 37,3061           77624                          CALL                                           
036765,000483: 37,3062           77336                                   CALCRVG                               
036766,000484: 37,3063           77776                          EXIT                                           
036767,000485: 
036768,000486: 37,3064           05402                          TC       PHASCHNG                              
036769,000487: 37,3065           10035                          OCT      10035                                 
036770,000488: 
036771,000489: 37,3066  01,2250               5P3SPT11          =        5.3SPOT                               
036772,000490: 37,3066           34125                          CAF      OCT31                                 #  COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
036773,000491: 37,3067           05607                          TC       GENTRAN                               #  INTO RN, VN, GDT/12, GOBL/2,PIPTIME
036774,000492: 37,3070           01070                          ADRES    RN1                                   
036775,000493: 37,3071           01027                          ADRES    RN                                    
036776,000494: 37,3072           00003        ENDCOPY           RELINT                                         
036777,000495: 37,3073           05402                          TC       PHASCHNG                              
036778,000496: 37,3074           10035                          OCT      10035                                 
036779,000497: 
036780,000498: 37,3075  01,2250               5P3SPT12          =        5.3SPOT                               
036781,000499: 37,3075           00006                          EXTEND                                         
036782,000500: 37,3076           31062                          DCA      AVGEXIT                               
036783,000501: 37,3077           52006                          DXCH     Z                                     #  AVERAGEG EXIT
036784,000502: 
036785,000503: 37,3100           31044        AVGEND            CA       PIPTIME    +1                         #  FINAL AVERAGE G EXIT
036786,000504: 37,3101           55277                          TS       OLDBT1                                #  SET UP FREE FALL GYRO COMPENSATION
036787,000505: 
036788,000506: 37,3102           05547                          TC       UPFLAG                                #  SET DRIFTFLG
036789,000507: 37,3103           00036                          ADRES    DRIFTFLG                              #  BIT 15 FLAG 2
036790,000508: 37,3104           05362                          TC       2PHSCHNG                              
036791,000509: 37,3105           00005                          OCT      5                                     #  GROUP 5 OFF
036792,000510: 37,3106           05022                          OCT      05022                                 #  GROUP 2 ON FOR AVETOMID
036793,000511: 37,3107           20000                          OCT      20000                                 
036794,000512: 
036795,000513: 37,3110           06006                          TC       INTPRET                               
036796,000514:                                                                                                 # # Page 834
036797,000515: 37,3111           77624                          CALL                                           
036798,000516: 37,3112           73677                                   AVETOMID                              #  CONVERT STATE VECTOR TO REFERENCE SCALE.
036799,000517: 37,3113           77776                          EXIT                                           
036800,000518: 
036801,000519: 37,3114           04636                          TC       BANKCALL                              
036802,000520: 37,3115           17231                          CADR     PIPFREE                               
036803,000521: 
036804,000522: 37,3116           44760                          CS       BIT9                                  
036805,000523: 37,3117           55722                          TS       MRKBUF1                               #  INVALIDATE MARK BUFFER
036806,000524: 37,3120           00006                          EXTEND                                         
036807,000525: 37,3121           03011                          WAND     DSALMOUT                              
036808,000526: 
036809,000527: 37,3122           05561                          TC       DOWNFLAG                              
036810,000528: 37,3123           00147                          ADRES    CM/DSTBY                              
036811,000529: 
036812,000530: 37,3124           05561                          TC       DOWNFLAG                              
036813,000531: 37,3125           00162                          ADRES    V37FLAG                               
036814,000532: 
036815,000533: 37,3126           30104                          CA       FLAGWRD8                              
036816,000534: 37,3127           74760                          MASK     UTBIT                                 
036817,000535: 37,3130           10000                          CCS      A                                     
036818,000536: 37,3131           13146                          TCF      UTAVEND                               
036819,000537: 
036820,000538: 37,3132           34762                          CAF      RNDVZBIT                              #  RESTORE GROUP 1 + 2 IF P20 IS RUNNING
036821,000539: 37,3133           70074                          MASK     FLAGWRD0                              
036822,000540: 37,3134           00006                          EXTEND                                         
036823,000541: 37,3135           13141                          BZF      +4                                    
036824,000542: 
036825,000543: 37,3136           05362                          TC       2PHSCHNG                              
036826,000544: 37,3137           00111                          OCT      111                                   #  1.11SPOT
036827,000545: 37,3140           00132                          OCT      132                                   #  2.13SPOT
036828,000546: 
036829,000547: 37,3141  01,2025               1P11SPT7          =        1.11SPOT                              
036830,000548: 37,3141  01,2047               2P13SPT2          =        2.13SPOT                              
036831,000549: 37,3141           04655        ENDAVEG           TC       POSTJUMP                              
036832,000550: 37,3142           10162                          CADR     CANV37                                
036833,000551: 
036834,000552: 37,3143           05402        SERVEXIT          TC       PHASCHNG                              
036835,000553: 37,3144           00035                          OCT      00035                                 #  A, 5.3 = REREADAC  (ONLY)
036836,000554: 
036837,000555: 37,3145  01,2250               5P3SPT13          =        5.3SPOT                               
036838,000556: 37,3145           15205                          TCF      ENDOFJOB                              
036839,000557: 
036840,000558: 37,3146           05362        UTAVEND           TC       2PHSCHNG                              
036841,000559: 37,3147           00111                          OCT      111                                   
036842,000560: 37,3150           00002                          OCT      2                                     
036843,000561: 
036844,000562: 37,3151  01,2025               1P11SPT8          =        1.11SPOT                              
036845,000563: 37,3151           13141                          TCF      ENDAVEG                               
036846,000564:                                                                                                 # # Page 835
036847,000565: 37,3152     4775               DVTHRUSH          EQUALS   ELEVEN                                #  15 PERCENT OF 2SEC PIPA ACCUMULATION,
036848,000566:                                                                                                 #         FOR 503-FULL CSM/LEM....DELV SC.AT
036849,000567:                                                                                                 #         5.85 CM/SEC.
036850,000568: 
036851,000569: 37,3152           63401        -MAXDELV          DEC      -6398      B-14                       #  3200 PPS FOR 2 SEC CCS TAKES 1
036852,000570: 
036853,000571: 37,3153           00170        JTAGTIME          DEC      120        B-14                       #  = 1 SEC + T CDU, T CDU = .1 SEC
036854,000572: 
036855,000573:                                                                                                 #  SHOULD BE 2-4 SECS FOR NO START
036856,000574:                                                                                                 #             6-8 SECS FOR FAILURE
036857,000575: 
036858,000576:                                                                                                 # # Page 836
036859,000577:                                                                                                 #  NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
036860,000578:                                                                                                 #  HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
036861,000579:                                                                                                 #  SCALED AT 2(+24) M.
036862,000580: 
036863,000581: 37,3154           34776        NORMLIZE          CAF      THIRTEEN                              #  SET UP TO COPY 14 REGS- RN1,VN1,PIPTIME1
036864,000582: 37,3155           05607                          TC       GENTRAN                               #  INTO RN,VN,PIPTIME
036865,000583: 37,3156           01070                          ADRES    RN1                                   #  FROM HERE
036866,000584: 37,3157           01027                          ADRES    RN                                    #  TO HERE
036867,000585: 
036868,000586: 37,3160           00003                          RELINT                                         
036869,000587: 37,3161           06006                          TC       INTPRET                               
036870,000588: 37,3162           45175                          VLOAD    CALL                                  #  LOAD RN FOR CALCGRAV
036871,000589: 37,3163           01030                                   RN                                    
036872,000590: 37,3164           77270                                   CALCGRAV                              #  INITIALIZE UNITR RMAG GDT1
036873,000591: 
036874,000592: 37,3165           25046                          STOVL    GDT/2                                 
036875,000593: 37,3166           01115                                   GOBL1/2                               
036876,000594: 37,3167           35054                          STCALL   GOBL/2                                
036877,000595: 37,3170           31263                                   ENDPLAC                               
036878,000596: 
036879,000597:                                                                                                 # # Page 837
036880,000598:                                                                                                 #  *****  PIPA READER *****
036881,000599: 
036882,000600:                                                                                                 #                 MOD NO. 00  BY D. LICKLY  DEC. 9 1966
036883,000601: 
036884,000602:                                                                                                 #  FUNCTIONAL DESCRIPTION
036885,000603: 
036886,000604:                                                                                                 #  SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE.
036887,000605:                                                                                                 #  PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING,
036888,000606:                                                                                                 #  RESTARTS BEGIN AT REREADAC.
036889,000607: 
036890,000608:                                                                                                 #  AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A
036891,000609:                                                                                                 #  VECTOR IN CDUTEMP.  THE HIGH ORDER PART OF EACH COMPONENT CONTAINS
036892,000610:                                                                                                 #  THE CDU READING IN 2S COMP IN THE ORDER CDUX,Y,Z.  THE THRUST
036893,000611:                                                                                                 #  VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME.
036894,000612: 
036895,000613:                                                                                                 #  CALLING SEQUENCE AND EXIT
036896,000614: 
036897,000615:                                                                                                 #         CALL VIA TC, ISWCALL, ETC.
036898,000616: 
036899,000617:                                                                                                 #         EXIT IS VIA Q.
036900,000618: 
036901,000619:                                                                                                 #  INPUT
036902,000620: 
036903,000621:                                                                                                 #         INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2.
036904,000622: 
036905,000623:                                                                                                 #  OUTPUT
036906,000624: 
036907,000625:                                                                                                 #         HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS.
036908,000626:                                                                                                 #         PIPTIME CONTAINS TIME OF PIPA READING.
036909,000627: 
036910,000628:                                                                                                 #  DEBRIS (ERASABLE LOCATIONS DESTROYED BY THE PROGRAM)
036911,000629: 
036912,000630:                                                                                                 #         LOW ORDER DELV'S ARE ZEROED FOR TM INDICATION.
036913,000631:                                                                                                 #         TEMX    TEMY    TEMZ    PIPAGE
036914,000632: 
036915,000633: 37,3171           00006        PIPASR            EXTEND                                         
036916,000634: 37,3172           30025                          DCA      TIME2                                 
036917,000635: 37,3173           53105                          DXCH     PIPTIME1                              #  CURRENT TIME   POSITIVE VALUE
036918,000636: 37,3174           44772                          CS       ZERO                                  #  INITIALIZAE THESE AT NEG ZERO.
036919,000637: 37,3175           55063                          TS       TEMX                                  
036920,000638: 37,3176           55064                          TS       TEMY                                  
036921,000639: 37,3177           55065                          TS       TEMZ                                  
036922,000640:                                                                                                 # # Page 838
036923,000641: 37,3200           34772                          CA       ZERO                                  
036924,000642: 37,3201           55320                          TS       DELVZ                                 #  OTHER DELVS OK INCLUDING LOW ORDER
036925,000643: 37,3202           55316                          TS       DELVY                                 
036926,000644: 
036927,000645: 37,3203           55315                          TS       DELVX      +1                         #  LOW ORDER DELV'S ARE ZEROED FOR TM: THUS
036928,000646: 37,3204           55317                          TS       DELVY      +1                         #  IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY
036929,000647: 37,3205           55321                          TS       DELVZ      +1                         #  CONTAIN PROPER COMPENSATION. IF=0, THEN
036930,000648:                                                                                                 #  THE TM VALUES ARE BEFORE COMPENSATION.
036931,000649: 
036932,000650: 37,3206           55067                          TS       PIPAGE                                #  SHOW PIPA READING IN PROGRESS
036933,000651: 
036934,000652: 37,3207           00006        REPIP1            EXTEND                                         
036935,000653: 37,3210           40040                          DCS      PIPAX                                 #  X AND Y PIPS READ
036936,000654: 37,3211           53064                          DXCH     TEMX                                  
036937,000655: 37,3212           52040                          DXCH     PIPAX                                 #  PIPAS SET TO NEG ZERO AS READ.
036938,000656: 37,3213           55314                          TS       DELVX                                 
036939,000657: 37,3214           23316                          LXCH     DELVY                                 
036940,000658: 
036941,000659: 37,3215           40041        REPIP3            CS       PIPAZ                                 #  REPEAT PROCESS FOR Z PIP
036942,000660: 37,3216           57065                          XCH      TEMZ                                  
036943,000661: 37,3217           56041                          XCH      PIPAZ                                 
036944,000662: 37,3220           55320        DODELVZ           TS       DELVZ                                 
036945,000663: 
036946,000664: 37,3221           00002                          TC       Q                                     
036947,000665: 
036948,000666: 37,3222  E6,1661                                 EBANK=   AOG                                   
036949,000667: 
036950,000668: 37,3222           11166        REREADAC          CCS      PHASE5                                #  LAST PASS CHECK
036951,000669: 37,3223           13225                          TCF      +2                                    
036952,000670: 37,3224           15314                          TCF      TASKOVER                              
036953,000671: 
036954,000672: 37,3225           37652                          CAF      PRIO31                                #  RESTART MAY HAVE WIPED OUT LASTBIAS, AN
036955,000673: 37,3226           55277                          TS       1/PIPADT                              #         UNPROTECTED NOVAC FROM PREREAD,
036956,000674:                                                                                                 #         WHICH SET(S) UP 1/PIPADT (THUSLY)
036957,000675:                                                                                                 #         FOR NON-COASTING COMPENSATION....BE
036958,000676:                                                                                                 #         SURE 1/PIPADT IS AOK. (PRIO31 IS
036959,000677:                                                                                                 #         2.0SEC SC.AT B+8CS)
036960,000678: 
036961,000679: 37,3227           11067                          CCS      PIPAGE                                
036962,000680: 37,3230           12652                          TCF      READACCS                              #  PIP READING NOT STARTED. GO TO BEGINNING
036963,000681: 
036964,000682: 37,3231           33267                          CAF      DONEADR                               #  SET UP RETURN FROM PIPASR
036965,000683: 37,3232           54002                          TS       Q                                     
036966,000684: 
036967,000685: 37,3233           11320                          CCS      DELVZ                                 
036968,000686: 37,3234           00002                          TC       Q                                     #  Z DONE, GO DO CDUS
036969,000687: 37,3235           13240                          TCF      +3                                    #  Z NOT DONE, CHECK Y.
036970,000688: 37,3236           00002                          TC       Q                                     
036971,000689: 37,3237           00002                          TC       Q                                     
036972,000690:                                                                                                 # # Page 839
036973,000691: 37,3240           22007                          ZL                                             
036974,000692: 37,3241           11316                          CCS      DELVY                                 
036975,000693: 37,3242           13245                          TCF      +3                                    
036976,000694: 37,3243           13254                          TCF      CHKTEMX                               #  Y NOT DONE, CHECK X.
036977,000695: 37,3244           13245                          TCF      +1                                    
036978,000696: 37,3245           22041                          LXCH     PIPAZ                                 #  Y DONE, ZERO Z PIP.
036979,000697: 
036980,000698: 37,3246           11065                          CCS      TEMZ                                  
036981,000699: 37,3247           41065                          CS       TEMZ                                  #  TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
036982,000700: 37,3250           13220                          TCF      DODELVZ                               
036983,000701: 37,3251           13247                          TCF      -2                                    
036984,000702: 37,3252           23320                          LXCH     DELVZ                                 #  TEMZ = -0, L HAS ZPIP VALUE.
036985,000703: 37,3253           00002                          TC       Q                                     
036986,000704: 
036987,000705: 37,3254           11063        CHKTEMX           CCS      TEMX                                  #  HAS THIS CHANGED
036988,000706: 37,3255           41063                          CS       TEMX                                  #  YES
036989,000707: 37,3256           13261                          TCF      +3                                    #  YES
036990,000708: 37,3257           13255                          TCF      -2                                    #  YES
036991,000709: 37,3260           13207                          TCF      REPIP1                                #  NO
036992,000710: 37,3261           55314                          TS       DELVX                                 
036993,000711: 
036994,000712: 37,3262           41064                          CS       TEMY                                  
036995,000713: 37,3263           55316                          TS       DELVY                                 
036996,000714: 
036997,000715: 37,3264           44772                          CS       ZERO                                  #  ZERO X AND Y PIPS
036998,000716: 37,3265           52040                          DXCH     PIPAX                                 #  L STILL ZERO FROM ABOVE
036999,000717: 
037000,000718: 37,3266           13215                          TCF      REPIP3                                
037001,000719: 
037002,000720: 37,3267           02653        DONEADR           GENADR   PIPSDONE                              
037003,000721: 
037004,000722:                                                                                                 # # Page 840
037005,000723:                                                                                                 #  ****************************************************************************************************************
037006,000724: 
037007,000725:                                                                                                 #  ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL
037008,000726:                                                                                                 #  ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS.
037009,000727: 
037010,000728:                                                                                                 #  FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST
037011,000729:                                                                                                 #  HARMONIC COEFFICIENT J.
037012,000730: 
037013,000731:                                                                                                 #  ROUTINE CALCRVG REQUIRES...
037014,000732:                                                                                                 #         1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS.
037015,000733:                                                                                                 #         2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS.
037016,000734:                                                                                                 #         3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS.
037017,000735:                                                                                                 #         4) UNITW THE EARTH'S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS.
037018,000736: 
037019,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
037020,000738:                                                                                                 #  UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ.
037021,000739: 
037022,000740: 37,3270           41456        CALCGRAV          UNIT     PUSH                                  #  ENTER WITH RN IN MPAC
037023,000741: 37,3271           01756                          STORE    UNITR                                 
037024,000742: 37,3272           67340                          LXC,1    SLOAD                                 
037025,000743: 37,3273           03746                                   RTX2                                  
037026,000744: 37,3274           00047                                   X1                                    
037027,000745: 37,3275           77240                          BMN      VLOAD                                 
037028,000746: 37,3276           77324                                   ITISMOON                              
037029,000747: 37,3277           41441                          DOT      PUSH                                  
037030,000748: 37,3300           01712                                   UNITW                                 
037031,000749: 37,3301           44316                          DSQ      BDSU                                  
037032,000750: 37,3302           37375                                   DP1/20                                
037033,000751: 37,3303           56325                          PDDL     DDV                                   
037034,000752: 37,3304           37377                                   RESQ                                  
037035,000753: 37,3305           00043                                   34D                                   #  (RN)SQ
037036,000754: 37,3306           00041                          STORE    32D                                   #  TEMP FOR (RE/RN)SQ
037037,000755: 37,3307           41205                          DMP      DMP                                   
037038,000756: 37,3310           37401                                   20J                                   
037039,000757: 37,3311           65361                          VXSC     PDDL                                  
037040,000758: 37,3312           01756                                   UNITR                                 
037041,000759: 37,3313           41205                          DMP      DMP                                   
037042,000760: 37,3314           37403                                   2J                                    
037043,000761: 37,3315           00041                                   32D                                   
037044,000762: 37,3316           53361                          VXSC     VAD                                   
037045,000763: 37,3317           01712                                   UNITW                                 
037046,000764: 37,3320           77626                          STADR                                          
037047,000765: 37,3321           76662                          STORE    GOBL1/2                               
037048,000766: 37,3322           41455                          VAD      PUSH                                  
037049,000767: 37,3323           01756                                   UNITR                                 
037050,000768: 37,3324           63545        ITISMOON          DLOAD    DSQ                                   
037051,000769: 37,3325           00045                                   36D                                   
037052,000770: 37,3326           77701                          NORM                                           
037053,000771: 37,3327           00050                                   X2                                    
037054,000772:                                                                                                 # # Page 841
037055,000773: 37,3330           53663                          BDDV*    SLR*                                  
037056,000774: 37,3331           37367                                   -MUDT(E),1                            
037057,000775: 37,3332           56623                                   0          -21D,2                     
037058,000776: 37,3333           45561                          VXSC     STADR                                 
037059,000777: 37,3334           76670                          STORE    GDT1/2                                #  SCALED AT 2(+7) M/CS
037060,000778: 37,3335           77616                          RVQ                                            
037061,000779: 
037062,000780: 37,3336           74375        CALCRVG           VLOAD    VXSC                                  
037063,000781: 37,3337           01315                                   DELV                                  
037064,000782: 37,3340           37365                                   KPIP1                                 
037065,000783: 37,3341           76505                          VXM      VSL1                                  
037066,000784: 37,3342           01734                                   REFSMMAT                              
037067,000785: 37,3343           03432                          STORE    DELVREF                               #  DELV IN REF COORDS AT 2(+7)
037068,000786: 37,3344           41562                          VSR1     PUSH                                  
037069,000787: 37,3345           41455                          VAD      PUSH                                  #  (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS
037070,000788: 37,3346           01046                                   GDT/2                                 
037071,000789: 37,3347           74255                          VAD      VXSC                                  
037072,000790: 37,3350           01036                                   VN                                    
037073,000791: 37,3351           37373                                   2SEC(22)                              
037074,000792: 37,3352           44055                          VAD      STQ                                   
037075,000793: 37,3353           01030                                   RN                                    
037076,000794: 37,3354           00037                                   31D                                   
037077,000795: 37,3355           35071                          STCALL   RN1                                   #  TEMP STORAGE OF RN SCALED 2(+29)M
037078,000796: 37,3356           77270                                   CALCGRAV                              
037079,000797: 
037080,000798: 37,3357           53255                          VAD      VAD                                   
037081,000799: 37,3360           77655                          VAD                                            
037082,000800: 37,3361           01036                                   VN                                    
037083,000801: 37,3362           35077                          STCALL   VN1                                   #  TEMP STORAGE OF VN SCALED 2(+7) M/CS.
037084,000802: 37,3363           00037                                   31D                                   
037085,000803: 
037086,000804: 37,3364           02312 32537  KPIP1             2DEC     0.074880                              #  207 DELV SCALING.  1 PULSE = 5.85 CM/SEC.
037087,000805: 
037088,000806: 37,3366           61377 55754  -MUDT(E)          2DEC*    -7.9720645 E+12       B-44*           
037089,000807: 
037090,000808: 37,3370           77644 65556  -MUDT(M)          2DEC*    -9.805556  E+10       B-44*           
037091,000809: 
037092,000810: 37,3372           00000 31000  2SEC(22)          2DEC     200        B-22                       
037093,000811: 
037094,000812: 37,3374           01463 06315  DP1/20            2DEC     0.05                                  
037095,000813: 
037096,000814: 37,3376           00001 05000  RESQ              2DEC*    40.6809913 E12        B-59*           
037097,000815: 
037098,000816: 37,3400           02047 36332  20J               2DEC*    3.24692010 E-2        B1*             
037099,000817: 
037100,000818: 37,3402           00152 14511  2J                2DEC*    3.24692010 E-3        B1*             
037101,000819: 

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