Source Code

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