Source Code

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