Source Code

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