Source Code

034162,000001: # Copyright: Public domain. 034163,000002: # Filename: Template.agc 034164,000003: # Purpose: Part of the source code for Colossus, build 249. 034165,000004: # It is part of the source code for the Command Module's (CM) 034166,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 034167,000006: # Assembler: yaYUL 034168,000007: # Reference: pp. 777-794 of 1701.pdf. 034169,000008: # Contact: Ron Burkey <info@sandroid.org>. 034170,000009: # Website: www.ibiblio.org/apollo. 034171,000010: # Mod history: 08/19/04 RSB. Began transcribing. 034172,000011: 034173,000012: # The contents of the "Colossus249" files, in general, are transcribed 034174,000013: # from a scanned document obtained from MIT's website, 034175,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 034176,000015: # document read, in part: 034177,000016: 034178,000017: # Assemble revision 249 of AGC program Colossus by NASA 034179,000018: # 2021111-041. October 28, 1968. 034180,000019: 034181,000020: # This AGC program shall also be referred to as 034182,000021: # Colossus 1A 034183,000022: 034184,000023: # Prepared by 034185,000024: # Massachusetts Institute of Technology 034186,000025: # 75 Cambridge Parkway 034187,000026: # Cambridge, Massachusetts 034188,000027: # under NASA contract NAS 9-4065. 034189,000028: 034190,000029: # Refer directly to the online document mentioned above for further information. 034191,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 034192,000031: 034193,000032: # In some cases, where the source code for Luminary 131 overlaps that of 034194,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131 034195,000034: # source file, and then is proofed to incorporate any changes. 034196,000035: 034197,000036: # Page 777 034198,000037: # SERVICER207 034199,000038: 034200,000039: # PROGRAM NAME: PREREAD, READACCS, SERVICER, AVERAGE G. 034201,000040: # MOD NO. 00 BY M. HAMILTON DEC. 12, 1966 034202,000041: 034203,000042: # FUNCTIONAL DESCRIPTION 034204,000043: 034205,000044: # THE ROUTINES DESCRIBED BELOW ARE USED TO CALCULATE VALUES OF RN, VN, AND GDT/2 DURING ACCELERATED FLIGHT. 034206,000045: # THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO BE USED AS SEPARATE SUBROUTINES. 034207,000046: 034208,000047: # GENERAL REFERENCES TO SERVICER OR AVERAGE G ARE UNDERSTOOD TO REFER TO THE ENTIRE SET OF ROUTINES INCLUDING 034209,000048: # RRADACCS, SERVICER, AVERAGE G, INTEREAD, SMOOTHER, AND ANY ADDITIONAL ROUTINES ATTACHED AT AVGEXIT (SEE BELOW). 034210,000049: 034211,000050: # PROGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIST CALL FOR PREREAD (OR, IF LIFTOFF, FOR BIBIBIAS) 034212,000051: # AT 2 SECONDS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE, WHICH WILL RECUR EVERY 034213,000052: # 2 SECONDS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS SET. 034214,000053: 034215,000054: # THE USE OF ERASABLE AVGEXIT ALLOWS VARIOUS ROUTINES TO BE PERFORMED AS PART OF THE NORMAL CYCLE (SEE 034216,000055: # EXPLANATION OF AVGEXIT BELOW). 034217,000056: 034218,000057: # DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLOW. 034219,000058: 034220,000059: # PREREAD 034221,000060: 034222,000061: # PREVIOUSLY EXTRAPOLATED VALUES COPIED FROM RN1, VN1, AND PIPTIME1 INTO RN, VN, AND PIPTIME. 034223,000062: # LASTBIAS JOB SCHEDULED. 034224,000063: # PIPS READ AND CLEARED VIA PIPASR SUBROUTINE. 034225,000064: # AVERAGE G FLAG SET ON. 034226,000065: # DRIFT FLAG SET OFF. 034227,000066: # V37 FLAG SET ON. 034228,000067: # INITIALIZATION OF 1) THRUST MONITOR (DVMON) -- DVCNTR SET TO ONE. 034229,000068: # 2) TOTAL ACCUMULATED DELV VALUE (DVTOTAL) -- SET TO ZERO. 034230,000069: # 3) AXIS VECTOR (AXIS) -- SET TO (.5,0,0). 034231,000070: # NORMLIZE JOB SCHEDULED. 034232,000071: # READACCS TASH CALLED IN 2 SECONDS. 034233,000072: 034234,000073: # NORMLIZE 034235,000074: 034236,000075: # GDT/2 INITIALIZED VIA CALCGRAV ROUTINE. 034237,000076: 034238,000077: # READACCS 034239,000078: 034240,000079: # IF ONMON FLAG SET QUIKREAD ROUTINE IS PERFORMED BEFORE PIPASR ZEROS THE PIPA REGISTERS, AND THE 1/2 SEC 034241,000080: # ONMONITOR LOOP IS INITIATED TO PROVIDE DOWNLINK INFORMATION DURING ENTRY. 034242,000081: # PIPS READ AND CLEARED BY PIPASR SUBROUTINE. 034243,000082: # IF CM/DSTBY IS ON, ENTRY VARIABLES INITIALIZED AND SETJTAG TASK CALLED. 034244,000083: # Page 778 034245,000084: 034246,000085: # SERVICER207 034247,000086: 034248,000087: # IF AVERAGEG FLAG ON READACCS CALLED TO RECYCLE IN 2 SECONDS. 034249,000088: # IF AVERAGEG FLAG OFF AVERAGE G EXIT (AVGEXIT) SET TO 2CADR AVGEND FOR FINAL PASS. 034250,000089: # SERVICER JOB SCHEDULED. 034251,000090: # TEST CONNECTOR OUTBIT TURNED ON. 034252,000091: 034253,000092: # ONMNITOR 034254,000093: 034255,000094: # A SEQUENCE OF THESE PASSES THROUGH QUICREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2 034256,000095: # SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS. 034257,000096: 034258,000097: # QUIKREAD 034259,000098: 034260,000099: # READS CURRENT PIPS INTO X,Y,ZPIPBUF. READS OLD X,Y,ZPIPBUF INTO X,Y,ZOLDBUF. VALUES ARE SENT TO 034261,000100: # DOWNLIST DURING ENTRY. 034262,000101: 034263,000102: # SERVICER 034264,000103: 034265,000104: # DELV VALUES CHECKED TO DETECT RUNAWAY PIP: 034266,000105: 034267,000106: # IF BAD PIP 1) ALARM SENT. 034268,000107: # 2) COMPENSATION, DVTOTAL ACCUMULATION, AND DVMON BYPASSED. CONTROL 034269,000108: # TRANSFERRED TO AVERAGEG. 034270,000109: 034271,000110: # PIPS COMPENSATED VIA 1/PIPA SUBROUTINE. 034272,000111: # DVTOTAL INCREMENTED BY ABSOLUTE VALUE OF DELV. 034273,000112: # THRUST MONITOR (DVMON) PERFORMED UNLESS IDLE FLAG IS ON. 034274,000113: # CONTROL TRANSFERRED TO AVERAGE Q. 034275,000114: 034276,000115: # DVMON 034277,000116: 034278,000117: # THRESHOLD VALUD (PLACED IN DVTHRUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK 034279,000118: # THRUST LEVEL. 034280,000119: 034281,000120: # IF THRUST 1) ULLAGE OFF ROUTINE PERFORMED. 034282,000121: # 2) STEERING FLAG TURNED ON AT FIRST DETECTION OF THRUST 034283,000122: # 3) CONTROL TRANSFERRED TO AVERAGE G. 034284,000123: # IF NO THRUST 1) ON FIRST PASS THROUGH MONITOR, CONTROL TRANSFERRED TO AVERAGE G. 034285,000124: # 2) ON SUBSEQUENT PASSES, CONTROL TRANSFERRED TO ENGINE FAIL ROUTINE IF THRUST 034286,000125: # HAS FAILED FOR 3 CONSECUTIVE PASSES. 034287,000126: # ENGINE FAIL 034288,000127: 034289,000128: # ENGFAIL1 TASK CALLED IN 2.5 SECONDS. THIS WILL RETURN CONTROL TO TIG-5 SO THAT THE IGNITION 034290,000129: # SEQUENCE MAY BE REPEATED. 034291,000130: # ENGINOF3 PERFORMED. 034292,000131: # DAP SET UP FOR RCS. 034293,000132: # 034294,000133: # AVERAGE G 034295,000134: # Page 779 034296,000135: # RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE 034297,000136: # OF GDT/2 034298,000137: # RN1, VN1, GDT1/2, PIPTIME1 COPIED INTO RN, VN, GDT/2, PIPTIME FOR RESTART PROTECTION. 034299,000138: # CONTROL TRANSFERRED TO ADDRESS SPECIFIED BY USER (OR BY READACCS FOR LAST PASS) IN AVEGEXIT. 034300,000139: # LAST PASS (AVGEND) 1) FREE FALL GYRO COMPENSATION SET UP. 034301,000140: # 2) DRIFT FLAG TURNED ON. 034302,000141: # 3) STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE. 034303,000142: # 4) ONMONITOR FLAG RESET. 034304,000143: # 5) V37 FLAG RESET. 034305,000144: # 6) TEST CONNECTOR OUTBIT RESET. 034306,000145: # 7) CONTROL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (R00). 034307,000146: 034308,000147: # CALLING SEQUENCE 034309,000148: 034310,000149: # PREREAD ENTERED DIRECTLY FROM TIG-30 VIA POSTJUMP. 034311,000150: # READACCS CALLED AS WAITLIST TASK. 034312,000151: 034313,000152: # SUBROUTINES CALLED 034314,000153: 034315,000154: # UTILITY ROUTINES: PHASCHNG FLAGUP FLAGDOWN NOVAC FINDVAC WAITLIST ALARM NEWPHASE 2PHSCHNG 034316,000155: 034317,000156: # OTHER: PIPASR 1/PIPA CALCGRAV CALCRVG AVETOMID 034318,000157: 034319,000158: # NORMAL EXIT MODES 034320,000159: 034321,000160: # ENDOFJOB TASKOVER CANV37 034322,000161: 034323,000162: # AVGEXIT: THIS IS A DOUBLE PRECISION ERASABLE LOCATION BY WHICH CONTROL IS TRANSFERRED AT THE END 034324,000163: # OF EACH CYCLE OF AVERAGE G. 034325,000164: # THE 2CADR OF A ROUTINE TO BE PERFORMED AT THAT TIME (E.G., STEERING EQUATIONS TO BE REPORTED 034326,000165: # AT 2 SECOND INTERVALS) MAY BE SET BY THE USER INTO AVGEXIT. 034327,000166: # ALL SUCH ROUTINES SHOULD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G. 034328,000167: 034329,000168: # SERVEXIT: DOES A PHASE CHANGE FOR RESTART PROTECTION AND GOES TO ENDOFJOB. 034330,000169: # THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY THE USER F NO OTHER ROUTINE (SEE ABOVE). 034331,000170: 034332,000171: # AVGEND: LAST PASS OF AVERAGE G EXITS HERE, BYPASSING SPECIAL ROUTINE (SEE ABOVE UNDER READACCS). 034333,000172: # FINAL EXIT IS TO CANV37. F AVERAGE G). 034334,000173: 034335,000174: # OUTPUT 034336,000175: 034337,000176: # DVTOTAL(2) PIPTIME(2) XPIPBUF(2) YPIPBUF(2) ZPIPBUF(2) 034338,000177: # RN(6) REFERENCE COORD. SCALED AT 2(+29) M/CS 034339,000178: # VN(6) REFERENCE COORD. SCALED AT 2(+7) M/CS 034340,000179: # GDT/2(6) REFERENCE COORD. SCALED AT 2(+7) M/CS 034341,000180: # DELV(6) STABLE MEMB. COORD. SCALED AT 2(+14)*5.85*10(-4) M/CS (KPIP1 USED TO GET DV/2 AT 2(+7)) 034342,000181: # Page 780 034343,000182: # DELVREF(6) REFERENCE COORD. SCALED AT 2(+7) M/CS 034344,000183: 034345,000184: # INITIALIZATION 034346,000185: 034347,000186: # ONMONITOR FLAG SET BY ENTRY TO SHOW PIPBUF VALUES REQUIRED. 034348,000187: # IDLE FLAG ON IF DVMON TO BE BYPASSED. 034349,000188: # DVTHRUSH SET TO APPROPRIATE VALUE FOR DVMON. 034350,000189: # AVGEXIT SET TO 2CADR OF ROUTINE, IF ANY, TO BE PERFORMED AFTER EACH CYCLE OF AVERAGE G. IF NO ROUTINE 034351,000190: # TO BE DONE, AVGEXIT SET TO SERVEXIT. 034352,000191: # VALUES NEEDED 034353,000192: # REFSMMAT 034354,000193: # UNITW: FULL UNIT VECTOR, IN REFERENCE COORD., OF EARTH'S ROTATIONAL VECTOR 034355,000194: # RN1, VN1, PIPTIME1: IN REFERENCE COORD., CONSISTENT WITH TIME OF EXECUTION OF PREREAD. 034356,000195: 034357,000196: # DEBRIS 034358,000197: 034359,000198: # CENTRALS A, L, Q 034360,000199: # OTHER INTERNAL: DVCNTR(1) PIPAGE(1) PIPCTR(1) AVGEXIT(2) 034361,000200: # EXTERNAL: ITEMP1(1) ITEMP2(1) RUPTREG1(1) TEMX(1) TEMY(1) TEMZ(1) 034362,000201: # USEFUL DEBRIS 034363,000202: # RN1(0), VN1(0) GDT1/0 PIPTIME1(2?) 034364,000203: # THESE LOCATIONS USED AS BUFFER STORAGE FOR NEWLY CALCULATED VALUES OF RN, VN, GDT/2, 034365,000204: # AND PIPTIME DURING PERFORMANCE OF SERVICER ROUTINES. 034366,000205: # UNITR: HALF UNIT VECTOR OF RN, REFERENCE COORD. 034367,000206: # RMAG SCALED AT 2(+58) IN 36D. 034368,000207: # RMAGSQ SCALED AT 2(+58) IN 34D. 034369,000208: # (RE/RMAG)SQ IN 32D 034370,000209: 034371,000210: 27,2633 BANK 27 034372,000211: 37,2000 SETLOC SERVICES 034373,000212: 37,2000 BANK 034374,000213: 034375,000214: 37,2604 E7,1431 EBANK= DVCNTR 034376,000215: # ********************* PREREAD *************************************** 034377,000216: 034378,000217: 37,2604 COUNT 37/SERV 034379,000218: 034380,000219: 37,2604 34766 PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD 034381,000220: 37,2605 05027 TC NOVAC 034382,000221: 37,2606 E3,1460 EBANK= NBDX 034383,000222: 37,2606 03636 14063 2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL 034384,000223: 034385,000224: # CALL-TO AND LASTBIAS ITSELF ARE NOT 034386,000225: # PROTECTED. REREADAC SETS 1/PIPADT 034387,000226: # TO 2.0 SECS IN CASE LASTBIAS LOST. 034388,000227: # (REDUNDANT IF LASTBIAS IS AOK.) 034389,000228: # Page 781 034390,000229: 37,2610 02625 REDO5.31 TC PREREAD1 034391,000230: 034392,000231: 37,2611 37667 CAF PRIO32 034393,000232: 37,2612 05042 TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO 034394,000233: 37,2613 E7,1431 EBANK= DVCNTR # FIRST AVERAGE G PASS 034395,000234: 37,2613 03141 76067 2CADR NORMLIZE 034396,000235: 034397,000236: 37,2615 34735 CAF 2SECS 034398,000237: 37,2616 05140 TC WAITLIST 034399,000238: 37,2617 E6,1661 EBANK= AOG 034400,000239: 37,2617 02647 76066 2CADR READACCS 034401,000240: 034402,000241: 37,2621 44711 CS TWO 034403,000242: 37,2622 04114 TC NEWPHASE 034404,000243: 37,2623 00005 OCT 5 034405,000244: 034406,000245: 37,2624 15213 TCF TASKOVER 034407,000246: 37,2625 00006 PREREAD1 EXTEND 034408,000247: 37,2626 22070 QXCH RUPTREG1 034409,000248: 034410,000249: 37,2627 03157 TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL 034411,000250: 034412,000251: 37,2630 34712 CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A 034413,000252: 37,2631 55230 TS PIPAGE # RESTART OCCURS BEFORE READACCS 034414,000253: 034415,000254: 37,2632 40075 CS FLAGWRD1 # SET AVEG FLAG 034416,000255: 37,2633 74712 MASK BIT1 034417,000256: 37,2634 26075 ADS FLAGWRD1 034418,000257: 034419,000258: 37,2635 34672 CA POSMAX 034420,000259: 37,2636 70076 MASK FLAGWRD2 034421,000260: 37,2637 54076 TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG 034422,000261: 034423,000262: 37,2640 40103 CS FLAGWRD7 # SET V37 FLAG 034424,000263: 37,2641 74705 MASK BIT6 034425,000264: 37,2642 26103 ADS FLAGWRD7 034426,000265: 034427,000266: 37,2643 34714 CAF ZERO 034428,000267: 37,2644 55425 TS DVTOTAL # CLEAR DVTOTAL 034429,000268: 37,2645 55426 TS DVTOTAL +1 034430,000269: 034431,000270: 37,2646 00070 TC RUPTREG1 034432,000271: 034433,000272: # Page 782 034434,000273: # ********************* READACCS *************************************** 034435,000274: 034436,000275: 37,2647 E6,1661 EBANK= AOG 034437,000276: 37,2647 03157 READACCS TC PIPASR 034438,000277: 034439,000278: 37,2650 34715 PIPSDONE CAF FIVE 034440,000279: 37,2651 54001 TS L 034441,000280: 37,2652 40000 COM 034442,000281: 37,2653 52763 DXCH -PHASE5 034443,000282: 034444,000283: 37,2654 34712 REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ 034445,000284: 37,2655 55230 TS PIPAGE 034446,000285: 034447,000286: 37,2656 34711 CA TWO # SET PIPCTR FOR ONMINTOR 034448,000287: 37,2657 55227 TS PIPCTR # AFTER ABOVE PHASCHNG 034449,000288: 034450,000289: 37,2660 40102 CS CM/FLAGS 034451,000290: 37,2661 74711 MASK BIT2 # CM/DSTBY 034452,000291: 37,2662 10000 CCS A 034453,000292: 37,2663 02736 TC CHEKAVEG 034454,000293: 034455,000294: 37,2664 41246 CS PIPTIME1 +1 034456,000295: 37,2665 55065 TS TBASE6 # FOR RESTARTS 034457,000296: 37,2666 00006 EXTEND # CONTINUE FOR ENTRY DAP 034458,000297: 37,2667 31662 DCA AOG 034459,000298: 37,2670 53670 DXCH AOG/PIP 034460,000299: 37,2671 31663 CA AMG 034461,000300: 37,2672 57671 XCH AMG/PIP 034462,000301: 37,2673 00006 EXTEND 034463,000302: 37,2674 31665 DCA ROLL/180 034464,000303: 37,2675 53673 DXCH ROLL/PIP 034465,000304: 37,2676 31666 CA BETA/180 034466,000305: 37,2677 57674 XCH BETA/PIP 034467,000306: 37,2700 30102 CA CM/FLAGS 034468,000307: 37,2701 74677 MASK BIT12 # CM/DAPARM 93D BIT12 034469,000308: 37,2702 00006 EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE, 034470,000309: 37,2703 12721 BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM. 034471,000310: 034472,000311: 37,2704 32771 CA 0.5SEC 034473,000312: 37,2705 05140 TC WAITLIST 034474,000313: 37,2706 E6,1533 EBANK= XPIPBUF 034475,000314: 37,2706 02772 76066 2CADR QUIKREAD 034476,000315: 034477,000316: # NO NEED TO RESTART PROTECT THIS. 034478,000317: 37,2710 31162 CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED) 034479,000318: 37,2711 57533 XCH XPIPBUF 034480,000319: 37,2712 55536 TS XOLDBUF 034481,000320: 034482,000321: 37,2713 31164 CA DELVY 034483,000322: 37,2714 57534 XCH YPIPBUF 034484,000323: 37,2715 55537 TS YOLDBUF 034485,000324: # Page 783 034486,000325: 37,2716 31166 CA DELVZ 034487,000326: 37,2717 57535 XCH ZPIPBUF 034488,000327: 37,2720 55540 TS ZOLDBUF 034489,000328: 034490,000329: 37,2721 34715 NOSAVPIP CA FIVE 034491,000330: 37,2722 55725 TS CM/GYMDT 034492,000331: 034493,000332: 37,2723 33136 CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO 034494,000333: # IN JTAGTIME +5 CS. 034495,000334: 37,2724 05140 TC WAITLIST 034496,000335: 37,2725 E6,1661 EBANK= AOG 034497,000336: 37,2725 03227 32066 2CADR SETJTAG 034498,000337: 034499,000338: 37,2727 46214 CS THREE # 1.3SPOT FOR SETJTAG 034500,000339: 37,2730 04114 TC NEWPHASE 034501,000340: 37,2731 00001 OCT 1 034502,000341: 034503,000342: 37,2732 34362 CAF OCT37 034504,000343: 37,2733 54001 TS L 034505,000344: 37,2734 40000 COM 034506,000345: 37,2735 52763 DXCH -PHASE5 034507,000346: 034508,000347: 37,2736 40075 CHEKAVEG CS FLAGWRD1 034509,000348: 37,2737 74712 MASK BIT1 034510,000349: 37,2740 10000 CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG 034511,000350: 37,2741 02761 TC AVEGOUT 034512,000351: 034513,000352: 37,2742 34735 CAF 2SECS 034514,000353: 37,2743 05140 TC WAITLIST 034515,000354: 37,2744 E6,1661 EBANK= AOG 034516,000355: 37,2744 02647 76066 2CADR READACCS 034517,000356: 034518,000357: 37,2746 34675 MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE 034519,000358: 37,2747 05042 TC FINDVAC 034520,000359: 37,2750 E7,1431 EBANK= DVCNTR 034521,000360: 37,2750 03007 76067 2CADR SERVICER 034522,000361: 034523,000362: 37,2752 44710 CS FOUR # RESTART SERVICER AND READACCS 034524,000363: 37,2753 04114 TC NEWPHASE 034525,000364: 37,2754 00005 OCT 5 034526,000365: 034527,000366: 37,2755 34702 CAF BIT9 034528,000367: 37,2756 00006 EXTEND 034529,000368: 37,2757 05011 WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON 034530,000369: 034531,000370: 37,2760 15213 TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK 034532,000371: 034533,000372: # Page 784 034534,000373: 37,2761 00006 AVEGOUT EXTEND 034535,000374: 37,2762 32766 DCA AVOUTCAD 034536,000375: 37,2763 53223 DXCH AVGEXIT 034537,000376: 37,2764 12746 TCF MAKESERV 034538,000377: 034539,000378: 37,2765 E7,1431 EBANK= DVCNTR 034540,000379: 37,2765 03070 76067 AVOUTCAD 2CADR AVGEND 034541,000380: 034542,000381: # Page 785 034543,000382: # ROUTINE NAME: ONMNITOR 034544,000383: # MOD 04 BY BAIRNSFATHER 30 APR 1968 REDO ONMNITOR TO SAVE PIPS EACH 0.5 SEC FOR TM,ENTRY. 034545,000384: # MOD 03 BY FISHER DECEMBER 1967 034546,000385: # MOD 02 BY RYE SEPT 1967 034547,000386: # MOD 01 BY KOSMALA 23 MAR 1967 034548,000387: # MOD 00 BY KOSMALA 27 FEB 1967 034549,000388: 034550,000389: # FUNCTIONAL DESCRIPTION 034551,000390: 034552,000391: # THE PURPOSE OF ONMONITOR IS TO PROVIDE 1/2 SEC. READING OF PIPAS FOR DOWNLIST DURING ENTRY. 034553,000392: # X,Y,XPIPBUF CONTAIN PRESET VALUES X,Y,ZOLDBUF CONTAIN VALUES FROM PREVIOUS READING. 034554,000393: 034555,000394: # CALLING SEQUENCE 034556,000395: 034557,000396: # CALL AS WAITLIST TASK. TERMINATES ITSELF IN TASKOVER 034558,000397: 034559,000398: # INITIALIZATION 034560,000399: 034561,000400: # PIPCTR = 2 (FOR DT = 0.5 SEC) 034562,000401: # X,Y,ZPIPBUF SET TO PREVIOUS PIPAX,Y,Z 034563,000402: 034564,000403: # OUTPUT 034565,000404: 034566,000405: # X,Y,ZPIPBUF, X,Y,ZOLDBUF 034567,000406: 034568,000407: # DEBRIS 034569,000408: 034570,000409: # X,Y,ZPIPBUF CONTAIN LAST PIPAX,Y,Z VALUES 034571,000410: # X,Y,ZOLDBUF CONTAIN LAST-BUT-ONE PIPAX,Y,Z VALUES 034572,000411: # RUPTREG1 034573,000412: # PIPCTR 034574,000413: 034575,000414: 37,2767 55227 ONMNITOR TS PIPCTR 034576,000415: 034577,000416: 37,2770 05156 TC FIXDELAY # WAIT 034578,000417: 37,2771 00062 0.5SEC DEC 50 B-14 034579,000418: 034580,000419: 37,2772 34711 QUIKREAD CAF TWO 034581,000420: 37,2773 54070 TS RUPTREG1 034582,000421: 37,2774 50000 INDEX A 034583,000422: 37,2775 30037 CA PIPAX # SAVE ACTUAL PIPAS FOR TM. 034584,000423: 37,2776 50070 INDEX RUPTREG1 034585,000424: 37,2777 57533 XCH XPIPBUF # UPDATE X,Y,ZPIPBUF 034586,000425: 37,3000 50070 INDEX RUPTREG1 034587,000426: 37,3001 55536 TS XOLDBUF # AND X,Y,ZOLDBUF 034588,000427: 37,3002 10070 CHKCTR CCS RUPTREG1 034589,000428: 37,3003 12773 TCF QUIKREAD +1 # LOOP AGAIN 034590,000429: 37,3004 11227 CCS PIPCTR 034591,000430: 37,3005 12767 TCF ONMNITOR 034592,000431: 37,3006 05213 TC TASKOVER 034593,000432: 034594,000433: # Page 786 034595,000434: # ********************* SERVICER *************************************** 034596,000435: 034597,000436: 37,3007 E7,1431 EBANK= DVCNTR 034598,000437: 034599,000438: 37,3007 34711 SERVICER CAF TWO 034600,000439: 37,3010 00004 INHINT 034601,000440: 37,3011 54070 PIPCHECK TS RUPTREG1 034602,000441: 034603,000442: 37,3012 60000 DOUBLE 034604,000443: 37,3013 50000 INDEX A 034605,000444: 37,3014 11162 CCS DELVX 034606,000445: 37,3015 03017 TC +2 034607,000446: 37,3016 03025 TC PIPLOOP 034608,000447: 034609,000448: 37,3017 63135 AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE 034610,000449: 37,3020 00006 EXTEND 034611,000450: 37,3021 63025 BZMF PIPLOOP # COMPENSATION. 034612,000451: 034613,000452: 37,3022 05537 TC ALARM 034614,000453: 37,3023 00205 OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER 034615,000454: 37,3024 03046 TC AVERAGEG 034616,000455: 034617,000456: 37,3025 10070 PIPLOOP CCS RUPTREG1 034618,000457: 37,3026 13011 TCF PIPCHECK 034619,000458: 034620,000459: 37,3027 05301 TC PHASCHNG # RESTART REREADAC + SERVICER 034621,000460: 37,3030 16035 OCT 16035 034622,000461: 37,3031 20000 OCT 20000 034623,000462: 37,3032 E7,1431 EBANK= DVCNTR 034624,000463: 37,3032 03036 76067 2CADR DVTOTUP 034625,000464: 034626,000465: 37,3034 04555 TC BANKCALL # PIPA COMPENSATION CALL 034627,000466: 37,3035 15262 CADR 1/PIPA 034628,000467: 034629,000468: 37,3036 06006 DVTOTUP TC INTPRET 034630,000469: 37,3037 51575 VLOAD ABVAL # GET ABS VALUE OF DELV 034631,000470: 37,3040 01163 DELV 034632,000471: 37,3041 77405 DMP EXIT 034633,000472: 37,3042 37354 KPIP1 # SCALE AT 2(+7) 034634,000473: 034635,000474: 37,3043 00006 EXTEND 034636,000475: 37,3044 30155 DCA MPAC 034637,000476: 37,3045 21426 DAS DVTOTAL # ACCUMULATE DVTOTAL 034638,000477: 37,3046 05301 AVERAGEG TC PHASCHNG 034639,000478: 37,3047 10035 OCT 10035 034640,000479: 034641,000480: 37,3050 06006 TC INTPRET 034642,000481: 37,3051 77624 CALL 034643,000482: # Page 787 034644,000483: 37,3052 77323 CALCRVG 034645,000484: 37,3053 77776 EXIT 034646,000485: 034647,000486: 37,3054 05301 TC PHASCHNG 034648,000487: 37,3055 10035 OCT 10035 034649,000488: 034650,000489: 37,3056 34113 CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1 034651,000490: 37,3057 05475 TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME 034652,000491: 37,3060 01231 ADRES RN1 034653,000492: 37,3061 01170 ADRES RN 034654,000493: 37,3062 00003 RELINT # GENTRAN DOES AN INHINT 034655,000494: 37,3063 05301 TC PHASCHNG 034656,000495: 37,3064 10035 OCT 10035 034657,000496: 034658,000497: 37,3065 00006 EXTEND 034659,000498: 37,3066 31223 DCA AVGEXIT 034660,000499: 37,3067 52006 DXCH Z # AVERAGEG EXIT 034661,000500: 034662,000501: 37,3070 31205 AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT 034663,000502: 37,3071 55074 TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION 034664,000503: 034665,000504: 37,3072 05435 TC UPFLAG # SET DRIFTFLG 034666,000505: 37,3073 00036 ADRES DRIFTFLG # BIT 15 FLAG 2 034667,000506: 37,3074 05261 TC 2PHSCHNG 034668,000507: 37,3075 00005 OCT 5 # GROUP 5 OFF 034669,000508: 37,3076 05022 OCT 05022 # GROUP 2 ON FOR AVETOMID 034670,000509: 37,3077 20000 OCT 20000 034671,000510: 034672,000511: 37,3100 06006 TC INTPRET 034673,000512: 37,3101 77624 CALL 034674,000513: 37,3102 27472 AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE. 034675,000514: 37,3103 77776 EXIT 034676,000515: 034677,000516: 37,3104 34714 CAF ZERO # ZERO MARK COUNTERS. 034678,000517: 37,3105 55125 TS VHFCNT 034679,000518: 37,3106 55126 TS TRKMKCNT 034680,000519: 034681,000520: 37,3107 04555 TC BANKCALL 034682,000521: 37,3110 17112 CADR PIPFREE 034683,000522: 034684,000523: 37,3111 44702 CS BIT9 034685,000524: 37,3112 55734 TS MRKBUF2 # INVALIDATE MARK BUFFER 034686,000525: 37,3113 00006 EXTEND 034687,000526: 37,3114 03011 WAND DSALMOUT 034688,000527: 034689,000528: 37,3115 05447 TC DOWNFLAG 034690,000529: 37,3116 00147 ADRES CM/DSTBY 034691,000530: 034692,000531: 37,3117 05447 TC DOWNFLAG 034693,000532: 37,3120 00162 ADRES V37FLAG 034694,000533: 034695,000534: # Page 788 034696,000535: 37,3121 34704 CAF BIT7 # RESTORE GROUP 1 + 2 IF P20 IS RUNNING. 034697,000536: 37,3122 70074 MASK FLAGWRD0 034698,000537: 37,3123 00006 EXTEND 034699,000538: 37,3124 13130 BZF +4 034700,000539: 034701,000540: 37,3125 05261 TC 2PHSCHNG 034702,000541: 37,3126 00111 OCT 111 # 1.11SPOT 034703,000542: 37,3127 00132 OCT 132 # 2.13SPOT 034704,000543: 034705,000544: 37,3130 04574 TC POSTJUMP 034706,000545: 37,3131 10123 CADR CANV37 034707,000546: 034708,000547: 37,3132 05301 SERVEXIT TC PHASCHNG 034709,000548: 37,3133 00035 OCT 00035 # A, 5.3 = REREADAC (ONLY) 034710,000549: 034711,000550: 37,3134 15112 TCF ENDOFJOB 034712,000551: 034713,000552: 37,3135 4717 DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION, 034714,000553: # FOR 503-FULL CSM/LEM....DELV SC.AT 034715,000554: # 5.85 CM/SEC. 034716,000555: 034717,000556: 37,3135 63401 -MAXDELV DEC -6398 B-14 # 3200 PPS FOR 2 SEC CCS TAKES 1 034718,000557: 37,3136 00170 JTAGTIME DEC 120 B-14 # = 1 SEC + T CDU, T CDU = .1 SEC 034719,000558: 034720,000559: 37,3137 00372 2.5SEC DEC 250 B-14 034721,000560: 37,3140 00044 MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC 034722,000561: # SHOULD BE 2-4 SECS FOR NO START 034723,000562: # 6-8 SECS FOR FAILURE 034724,000563: 034725,000564: # Page 789 034726,000565: # NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT 034727,000566: # HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE 034728,000567: # SCALED AT 2(+24) M. 034729,000568: 034730,000569: 37,3141 34720 NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS: RN1,VN1,PIPTIME1 034731,000570: 37,3142 05475 TC GENTRAN # INTO RN,VN,PIPTIME 034732,000571: 37,3143 01231 ADRES RN1 # FROM HERE 034733,000572: 37,3144 01170 ADRES RN # TO HERE 034734,000573: 034735,000574: 37,3145 00003 RELINT 034736,000575: 37,3146 06006 TC INTPRET 034737,000576: 37,3147 45175 VLOAD CALL # LOAD RN FOR CALCGRAV 034738,000577: 37,3150 01171 RN 034739,000578: 37,3151 77256 CALCGRAV # INITIALIZE UNITR RMAG GDT1 034740,000579: 034741,000580: 37,3152 25207 STOVL GDT/2 034742,000581: 37,3153 01256 GOBL1/2 034743,000582: 37,3154 01215 STORE GOBL/2 034744,000583: 37,3155 77776 EXIT 034745,000584: 37,3156 15112 TCF ENDOFJOB 034746,000585: 034747,000586: # Page 790 034748,000587: # ***** PIPA READER ***** 034749,000588: # MOD NO. 00 BY D. LICKLY DEC. 9 1966 034750,000589: 034751,000590: # FUNCTIONAL DESCRIPTION 034752,000591: 034753,000592: # SUBROUTINE TO READ PIPA COUNTERS, TRYING TO BE VERY CAREFUL SO THAT IT WILL BE RESTARTABLE. 034754,000593: # PIPA READINGS ARE STORED IN THE VECTOR DELV. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS THE PIPA READING, 034755,000594: # RESTARTS BEGIN AT REREADAC. 034756,000595: 034757,000596: # AT THE END OF THE PIPA READER THE CDUS ARE READ AND STORED AS A 034758,000597: # VECTOR IN CDUTEMP. THE HIGH ORDER PART OF EACH COMPONENT CONTAINS 034759,000598: # THE CDU READING IN 2'S COMP IN THE ORDER CDUX,Y,Z. THE THRUST 034760,000599: # VECTOR ESTIMATOR IN FINDCDUD REQUIRES THE CDUS BE READ AT PIPTIME. 034761,000600: 034762,000601: # CALLING SEQUENCE AND EXIT 034763,000602: 034764,000603: # CALL VIA TC, ISWCALL, ETC. 034765,000604: 034766,000605: # EXIT IS VIA Q. 034767,000606: 034768,000607: # INPUT 034769,000608: 034770,000609: # INPUT IS THROUGH THE COUNTERS PIPAX, PIPAY, PIPAZ, AND TIME2. 034771,000610: 034772,000611: # OUTPUT 034773,000612: 034774,000613: # HIGH ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS. 034775,000614: 034776,000615: # PIPTIME CONTAINS TIME OF PIPA READING. 034777,000616: 034778,000617: # DEBRIS 034779,000618: 034780,000619: # LOW ORDER COMPONENTS OF THE VECTOR DELV CONTAIN THE PIPA READINGS. 034781,000620: # TEMX TEMY TEMZ PIPAGE 034782,000621: 034783,000622: 37,3157 00006 PIPASR EXTEND 034784,000623: 37,3160 30025 DCA TIME2 034785,000624: 37,3161 53246 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE 034786,000625: 37,3162 44714 CS ZERO # INITIALIZAE THESE AT NEG ZERO. 034787,000626: 37,3163 55224 TS TEMX 034788,000627: 37,3164 55225 TS TEMY 034789,000628: 37,3165 55226 TS TEMZ 034790,000629: # Page 791 034791,000630: 37,3166 34714 CA ZERO 034792,000631: 37,3167 55166 TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER 034793,000632: 37,3170 55164 TS DELVY 034794,000633: 034795,000634: 37,3171 55163 TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THIS 034796,000635: 37,3172 55165 TS DELVY +1 # IF DNLNK=D LOW ORDER DELVS ARE NZ, THEY 034797,000636: 37,3173 55167 TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN 034798,000637: # THE TM VALUES ARE BEFORE COMPENSATION. 034799,000638: 034800,000639: 37,3174 55230 TS PIPAGE # SHOW PIPA READING IN PROGRESS 034801,000640: 034802,000641: 37,3175 00006 REPIP1 EXTEND 034803,000642: 37,3176 40040 DCS PIPAX # X AND Y PIPS READ 034804,000643: 37,3177 53225 DXCH TEMX 034805,000644: 37,3200 52040 DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ. 034806,000645: 37,3201 55162 TS DELVX 034807,000646: 37,3202 23164 LXCH DELVY 034808,000647: 034809,000648: 37,3203 40041 REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP 034810,000649: 37,3204 57226 XCH TEMZ 034811,000650: 37,3205 56041 XCH PIPAZ 034812,000651: 37,3206 55166 DODELVZ TS DELVZ 034813,000652: 034814,000653: 37,3207 00002 TC Q 034815,000654: 37,3210 E6,1661 EBANK= AOG 034816,000655: 034817,000656: 37,3210 10763 REREADAC CCS PHASE5 # LAST PASS CHECK 034818,000657: 37,3211 13213 TCF +2 034819,000658: 37,3212 15213 TCF TASKOVER 034820,000659: 034821,000660: 37,3213 37665 CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN 034822,000661: 37,3214 55074 TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD, 034823,000662: # WHICH SET(S) UP 1/PIPADT (THUSLY) 034824,000663: # FOR NON-COASTING COMPENSATION....BE 034825,000664: # SURE 1/PIPADT IS AOK. (PRIO31 IS 034826,000665: # 2.0SEC SC.AT B+8(CS) 034827,000666: 034828,000667: 37,3215 11230 CCS PIPAGE 034829,000668: 37,3216 12647 TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING 034830,000669: 034831,000670: 37,3217 33255 CAF DONEADR # SET UP RETURN FROM PIPASR 034832,000671: 37,3220 54002 TS Q 034833,000672: 034834,000673: 37,3221 11166 CCS DELVZ 034835,000674: 37,3222 00002 TC Q # Z DONE, GO DO CDUS 034836,000675: 37,3223 13226 TCF +3 # Z NOT DONE, CHECK Y. 034837,000676: 37,3224 00002 TC Q 034838,000677: 37,3225 00002 TC Q 034839,000678: # Page 792 034840,000679: 37,3226 22007 ZL 034841,000680: 37,3227 11164 CCS DELVY 034842,000681: 37,3230 13233 TCF +3 034843,000682: 37,3231 13242 TCF CHKTEMX # Y NOT DONE, CHECK X. 034844,000683: 37,3232 13233 TCF +1 034845,000684: 37,3233 22041 LXCH PIPAZ # Y DONE, ZERO Z PIP. 034846,000685: 034847,000686: 37,3234 11226 CCS TEMZ 034848,000687: 37,3235 41226 CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE. 034849,000688: 37,3236 13206 TCF DODELVZ 034850,000689: 37,3237 13235 TCF -2 034851,000690: 37,3240 23166 LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE. 034852,000691: 37,3241 00002 TC Q 034853,000692: 034854,000693: 37,3242 11224 CHKTEMX CCS TEMX # HAS THIS CHANGED 034855,000694: 37,3243 41224 CS TEMX # YES 034856,000695: 37,3244 13247 TCF +3 # YES 034857,000696: 37,3245 13243 TCF -2 # YES 034858,000697: 37,3246 13175 TCF REPIP1 # NO 034859,000698: 37,3247 55162 TS DELVX 034860,000699: 034861,000700: 37,3250 41225 CS TEMY 034862,000701: 37,3251 55164 TS DELVY 034863,000702: 034864,000703: 37,3252 44714 CS ZERO # ZERO X AND Y PIPS 034865,000704: 37,3253 52040 DXCH PIPAX # L STILL ZERO FROM ABOVE 034866,000705: 034867,000706: 37,3254 13203 TCF REPIP3 034868,000707: 034869,000708: 37,3255 02650 DONEADR GENADR PIPSDONE 034870,000709: 034871,000710: # Page 793 034872,000711: # ********************************************************************************************* 034873,000712: 034874,000713: # ROUTINE CALCRVG INTEGRATES THE EQUATIONS OF MOTION BY AVERAGING THE THRUST AND GRAVITATIONAL 034875,000714: # ACCELERATIONS OVER A TIME INTERVAL OF 2 SECONDS. 034876,000715: 034877,000716: # FOR THE EARTH-CENTERED GRAVITATIONAL FIELD, THE PERTURBATION DUE TO OBLATENESS IS COMPUTED TO THE FIRST 034878,000717: # HARMONIC COEFFICIENT J. 034879,000718: 034880,000719: # ROUTINE CALCRVG REQUIRES... 034881,000720: # 1) THRUST ACCELERATION INCREMENTS IN DELV SCALED SAME AS PIPAX,Y,Z IN STABLE MEMBER COORDS. 034882,000721: # 2) VN SCALED 2(+7) M/CS IN REFERENCE COORDS. 034883,000722: # 3) RN SCALED AT 2(+29) METERS IN REFERENCE COORDS. 034884,000723: # 4) UNITW THE EARTH'S UNIT ROTATIONAL VECTOR (SCALED AS A FULL UNIT VECTOR) IN REFERENCE COORDS. 034885,000724: 034886,000725: # 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 034887,000726: # UNIT VECTOR UNITR, RMAG IN 36D SCALED AT 2(+29)M, R MAG SQ. IN 34D SCALED AT 2(+58) M SQ. 034888,000727: 034889,000728: 37,3256 41456 CALCGRAV UNIT PUSH # ENTER WITH RN IN MPAC 034890,000729: 37,3257 01760 STORE UNITR 034891,000730: 37,3260 67340 LXC,1 SLOAD 034892,000731: 37,3261 03746 RTX2 034893,000732: 37,3262 00047 X1 034894,000733: 37,3263 77240 BMN VLOAD 034895,000734: 37,3264 77312 ITISMOON 034896,000735: 37,3265 41441 DOT PUSH 034897,000736: 37,3266 01714 UNITW 034898,000737: 37,3267 44316 DSQ BDSU 034899,000738: 37,3270 37364 DP1/20 034900,000739: 37,3271 56325 PDDL DDV 034901,000740: 37,3272 37366 RESQ 034902,000741: 37,3273 00043 34D # (RN)SQ 034903,000742: 37,3274 00041 STORE 32D # TEMP FOR (RE/RN)SQ 034904,000743: 37,3275 41205 DMP DMP 034905,000744: 37,3276 37370 20J 034906,000745: 37,3277 65361 VXSC PDDL 034907,000746: 37,3300 01760 UNITR 034908,000747: 37,3301 41205 DMP DMP 034909,000748: 37,3302 37372 2J 034910,000749: 37,3303 00041 32D 034911,000750: 37,3304 53361 VXSC VAD 034912,000751: 37,3305 01714 UNITW 034913,000752: 37,3306 77626 STADR 034914,000753: 37,3307 76521 STORE GOBL1/2 034915,000754: 37,3310 41455 VAD PUSH 034916,000755: 37,3311 01760 UNITR 034917,000756: 37,3312 60345 ITISMOON DLOAD NORM 034918,000757: 37,3313 00043 34D 034919,000758: 37,3314 00050 X2 034920,000759: 37,3315 53663 BDDV* SLR* 034921,000760: # Page 794 034922,000761: 37,3316 37356 -MUDT(E),1 034923,000762: 37,3317 56623 0 -21D,2 034924,000763: 37,3320 45561 VXSC STADR 034925,000764: 37,3321 76527 STORE GDT1/2 # SCALED AT 2(+7) M/CS 034926,000765: 37,3322 77616 RVQ 034927,000766: 034928,000767: 37,3323 74375 CALCRVG VLOAD VXSC 034929,000768: 37,3324 01163 DELV 034930,000769: 37,3325 37354 KPIP1 034931,000770: 37,3326 76505 VXM VSL1 034932,000771: 37,3327 01736 REFSMMAT 034933,000772: 37,3330 03433 STORE DELVREF # DELV IN REF COORDS AT 2(+7) 034934,000773: 37,3331 41562 VSR1 PUSH 034935,000774: 37,3332 41455 VAD PUSH # (DV-OLDGDT)/2 TO PD SCALED AT 2(+7)M/CS 034936,000775: 37,3333 01207 GDT/2 034937,000776: 37,3334 74255 VAD VXSC 034938,000777: 37,3335 01177 VN 034939,000778: 37,3336 37362 2SEC(22) 034940,000779: 37,3337 44055 VAD STQ 034941,000780: 37,3340 01171 RN 034942,000781: 37,3341 00037 31D 034943,000782: 37,3342 35232 STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M 034944,000783: 37,3343 77256 CALCGRAV 034945,000784: 034946,000785: 37,3344 53255 VAD VAD 034947,000786: 37,3345 77655 VAD 034948,000787: 37,3346 01177 VN 034949,000788: 37,3347 35240 STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS. 034950,000789: 37,3350 00037 31D 034951,000790: 034952,000791: 37,3351 03215 27057 KPIP 2DEC .1024 # SCALES DELV TO 2(+4) 034953,000792: 37,3353 02312 32537 KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC. 034954,000793: 37,3355 61377 55754 -MUDT(E) 2DEC* -7.9720645 E+12 B-44* 034955,000794: 37,3357 77644 65556 -MUDT(M) 2DEC* -9.805556 E+10 B-44* 034956,000795: 37,3361 00000 31000 2SEC(22) 2DEC 200 B-22 034957,000796: 37,3363 01463 06315 DP1/20 2DEC 0.05 034958,000797: 37,3365 00001 05000 RESQ 2DEC* 40.6809913 E12 B-59* 034959,000798: 37,3367 02047 36332 20J 2DEC* 3.24692010 E-2 B1* 034960,000799: 37,3371 00152 14511 2J 2DEC* 3.24692010 E-3 B1* 034961,000800: End of include-file SERVICER207.agc. Parent file is MAIN.agc