Source Code

003523,000001: # Copyright: Public domain. 003524,000002: # Filename: ERASABLE ASSIGNMENTS.agc 003525,000003: # Purpose: The main source file for Luminary 1C, revision 131. 003526,000004: # It is part of the source code for the Lunar Module's (LM) 003527,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 003528,000006: # Assembler: yaYUL 003529,000007: # Reference: pp. 95-159 of 1729.pdf. 003530,000008: # Contact: Ron Burkey <info@sandroid.org>. 003531,000009: # Website: www.ibiblio.org/apollo/index.html 003532,000010: # Mod history: 04/23/03 RSB. Began. 003533,000011: # 05/04/03 RSB. Draft finished. 003534,000012: # 05/14/05 RSB Corrected website reference above. 003535,000013: # 2010-08-24 JL Added missing page number. 003536,000014: 003537,000015: # The contents of the "Luminary131" files, in general, are 003538,000016: # transcribed from a scanned document obtained from MIT's website, 003539,000017: # http://hrst.mit.edu/hrs/apollo/public/archive/1729.pdf. Notations on this 003540,000018: # document read, in part: 003541,000019: 003542,000020: # NASA Apollo LUMINARY 131 (1C) Program Source Code Listing. 003543,000021: # MIT Instrumentation/Draper Laboratory -- 19 December 1969, 1742 pages. 003544,000022: # This listing contains the flight program for the Lunar Module 003545,000023: # as created by MIT's Draper Lab for the Apollo 13/14 moon missions. 003546,000024: 003547,000025: # Refer directly to the online document mentioned above for further information. 003548,000026: # Please report any errors (relative to 1729.pdf) to info@sandroid.org. 003549,000027: 003550,000028: # Page 95 003551,000029: # CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS. 003552,000030: 003553,000031: # EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP 003554,000032: # OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE 003555,000033: # CHANGING OF ONLY ONE CARD. EXAMPLE: 003556,000034: 003557,000035: # X EQUALS START 003558,000036: # Y EQUALS X +SIZE.X 003559,000037: # Z EQUALS Y +SIZE.Y 003560,000038: 003561,000039: # (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START. 003562,000040: # SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y. 003563,000041: # USUALLY NUMERIC, IE. 1, 2, 6, 18D, ETC.) 003564,000042: 003565,000043: # EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES 003566,000044: # AND DIFFERENT DATA). EXAMPLE: 003567,000045: 003568,000046: # X EQUALS Y 003569,000047: 003570,000048: # = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA. 003571,000049: # (THIS IS LOGICAL EQUIVALENCE, NOT SHARING.) EXAMPLE: 003572,000050: 003573,000051: # X = Y 003574,000052: 003575,000053: # THE SIE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN 003576,000054: # THE COMMENTS IN THE FOLLOWING FORM: M(SIZE)N. 003577,000055: 003578,000056: # M REFERS TO THE MOBILITY OF THE ASSIGNMENT. 003579,000057: # B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC 003580,000058: # INSTRUCTIONS AND THUS IS E-BANK SENSITIVE. 003581,000059: # I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY 003582,000060: # INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK 003583,000061: # INSENSITIVE AND MAY APPEAR IN ANY E-BANK. 003584,000062: 003585,000063: # SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL. 003586,000064: 003587,000065: # N INDICATES THE NATURE OF PERMANENCE OF THE CONTENTS. 003588,000066: # PL MEANS THAT THE CONTENTS ARE PAD LOADED. 003589,000067: # DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY. 003590,000068: # PRM MEANS THAT THE REGISTER IS PERMANENT. IE., IT 003591,000069: # IS USED DURING THE ENTIRE MISSION FOR ONE 003592,000070: # PURPOSE AND CANNOT BE SHARED. 003593,000071: # TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR 003594,000072: # IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH 003595,000073: # IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET 003596,000074: # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT 003597,000075: # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS 003598,000076: # Page 96 003599,000077: # IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH 003600,000078: # IS NOT ACTIVE IN PARALLEL 003601,000079: # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY 003602,000080: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM. 003603,000081: # OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY 003604,000082: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM. 003605,000083: 003606,000084: # Page 97 003607,000085: # SPECIAL REGISTERS. 003608,000086: 003609,000087: 26,2022 A EQUALS 0 003610,000088: 26,2022 L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS 003611,000089: 26,2022 Q EQUALS 2 003612,000090: 26,2022 EBANK EQUALS 3 003613,000091: 26,2022 FBANK EQUALS 4 003614,000092: 26,2022 Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z 003615,000093: 26,2022 BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF). 003616,000094: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL. 003617,000095: 003618,000096: 26,2022 ARUPT EQUALS 10 # INTERRUPT STORAGE 003619,000097: 26,2022 LRUPT EQUALS 11 003620,000098: 26,2022 QRUPT EQUALS 12 003621,000099: 26,2022 SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2. 003622,000100: 26,2022 ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.) 003623,000101: 26,2022 BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK. 003624,000102: 26,2022 BRUPT EQUALS 17 # RESUME ADDRESS AS WELL. 003625,000103: 003626,000104: 26,2022 CYR EQUALS 20 003627,000105: 26,2022 SR EQUALS 21 003628,000106: 26,2022 CYL EQUALS 22 003629,000107: 26,2022 EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS. 003630,000108: 003631,000109: 26,2022 TIME2 EQUALS 24 003632,000110: 26,2022 TIME1 EQUALS 25 003633,000111: 26,2022 TIME3 EQUALS 26 003634,000112: 26,2022 TIME4 EQUALS 27 003635,000113: 26,2022 TIME5 EQUALS 30 003636,000114: 26,2022 TIME6 EQUALS 31 003637,000115: 26,2022 CDUX EQUALS 32 003638,000116: 26,2022 CDUY EQUALS 33 003639,000117: 26,2022 CDUZ EQUALS 34 003640,000118: 26,2022 CDUT EQUALS 35 # REND RADAR TRUNNION CDU 003641,000119: 26,2022 CDUS EQUALS 36 # REND RADAR SHAFT CDU 003642,000120: 26,2022 PIPAX EQUALS 37 003643,000121: 26,2022 PIPAY EQUALS 40 003644,000122: 26,2022 PIPAZ EQUALS 41 003645,000123: 26,2022 Q-RHCCTR EQUALS 42 # RHC COUNTER REGISTERS 003646,000124: 26,2022 P-RHCCTR EQUALS 43 003647,000125: 26,2022 R-RHCCTR EQUALS 44 003648,000126: 26,2022 INLINK EQUALS 45 003649,000127: 26,2022 RNRAD EQUALS 46 003650,000128: 26,2022 GYROCMD EQUALS 47 003651,000129: 26,2022 CDUXCMD EQUALS 50 003652,000130: 26,2022 CDUYCMD EQUALS 51 003653,000131: 26,2022 CDUZCMD EQUALS 52 003654,000132: 26,2022 CDUTCMD EQUALS 53 003655,000133: 26,2022 CDUSCMD EQUALS 54 003656,000134: # Page 98 003657,000135: 26,2022 THRUST EQUALS 55 003658,000136: 26,2022 LEMONM EQUALS 56 003659,000137: 26,2022 OUTLINK EQUALS 57 003660,000138: 26,2022 ALTM EQUALS 60 003661,000139: 003662,000140: # INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA. 003663,000141: 003664,000142: 26,2022 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT 003665,000143: 26,2022 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT. 003666,000144: 26,2022 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTER RELATIVE 003667,000145: 26,2022 X2 EQUALS 39D # TO THE WORK AREA. 003668,000146: 26,2022 S1 EQUALS 40D 003669,000147: 26,2022 S2 EQUALS 41D 003670,000148: 26,2022 QPRET EQUALS 42D 003671,000149: 003672,000150: # INPUT/OUTPUT CHANNELS 003673,000151: 003674,000152: # *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. *** 003675,000153: 26,2022 0000001 LCHAN EQUALS L 003676,000154: 26,2022 0000002 QCHAN EQUALS Q 003677,000155: 26,2022 HISCALAR EQUALS 3 003678,000156: 26,2022 LOSCALAR EQUALS 4 003679,000157: 26,2022 CHAN5 EQUALS 5 003680,000158: 26,2022 CHAN6 EQUALS 6 003681,000159: 26,2022 SUPERBNK EQUALS 7 # SUPER-BANK. 003682,000160: 26,2022 OUT0 EQUALS 10 003683,000161: 26,2022 DSALMOUT EQUALS 11 003684,000162: 26,2022 CHAN12 EQUALS 12 003685,000163: 26,2022 CHAN13 EQUALS 13 003686,000164: 26,2022 CHAN14 EQUALS 14 003687,000165: 26,2022 MNKEYIN EQUALS 15 003688,000166: 26,2022 NAVKEYIN EQUALS 16 003689,000167: 26,2022 CHAN30 EQUALS 30 003690,000168: 26,2022 CHAN31 EQUALS 31 003691,000169: 26,2022 CHAN32 EQUALS 32 003692,000170: 26,2022 CHAN33 EQUALS 33 003693,000171: 26,2022 DNTM1 EQUALS 34 003694,000172: 26,2022 DNTM2 EQUALS 35 003695,000173: 003696,000174: # END OF CHANNEL ASSIGNMENTS 003697,000175: 003698,000176: # Page 99 003699,000177: # INTERPRETIVE SWITCH BIT ASSIGNMENTS 003700,000178: 003701,000179: # ** FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION. ** 003702,000180: 003703,000181: # Page 100 003704,000182: # GENERAL ERASABLE ASSIGNMENTS 003705,000183: 003706,000184: 0061 SETLOC 61 003707,000185: # INTERRUPT TEMPORARY STORAGE POOL. (11D) 003708,000186: 003709,000187: # (ITEMP1 THROUGH RUPTREG4) 003710,000188: 003711,000189: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES 003712,000190: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST -- THE RUPTREGS ARE NOT. 003713,000191: 003714,000192: 0061 ITEMP1 ERASE 003715,000193: 0062 0061 WAITEXIT EQUALS ITEMP1 003716,000194: 0062 0061 EXECTEM1 EQUALS ITEMP1 003717,000195: 003718,000196: 0062 ITEMP2 ERASE 003719,000197: 0063 0062 WAITBANK EQUALS ITEMP2 003720,000198: 0063 0062 EXECTEM2 EQUALS ITEMP2 003721,000199: 003722,000200: 0063 ITEMP3 ERASE 003723,000201: 0064 0063 RUPTSTOR EQUALS ITEMP3 003724,000202: 0064 0063 WAITADR EQUALS ITEMP3 003725,000203: 0064 0063 NEWPRIO EQUALS ITEMP3 003726,000204: 003727,000205: 0064 ITEMP4 ERASE 003728,000206: 0065 0064 LOCCTR EQUALS ITEMP4 003729,000207: 0065 0064 WAITTEMP EQUALS ITEMP4 003730,000208: 003731,000209: 0065 ITEMP5 ERASE 003732,000210: 0066 0065 NEWLOC EQUALS ITEMP5 003733,000211: 003734,000212: 0066 ITEMP6 ERASE 003735,000213: 0067 0066 NEWLOC+1 EQUALS ITEMP6 # DP ADDRESS. 003736,000214: 003737,000215: 0067 SETLOC 67 003738,000216: 0067 NEWJOB ERASE # MUST BE AT LOC 67 DUE TO WIRING. 003739,000217: 003740,000218: 0070 RUPTREG1 ERASE 003741,000219: 0071 RUPTREG2 ERASE 003742,000220: 0072 RUPTREG3 ERASE 003743,000221: 0073 RUPTREG4 ERASE 003744,000222: 0074 0073 KEYTEMP1 EQUALS RUPTREG4 003745,000223: 0074 0073 DSRUPTEM EQUALS RUPTREG4 003746,000224: 003747,000225: # FLAGWORD RESERVATIONS. (16D) 003748,000226: 003749,000227: 0074 STATE ERASE +15D # +15D FLAGWORD REGISTERS 003750,000228: 003751,000229: # P25 RADAR STORAGE. (MAY BE UNSHARED IN E7) (TEMP OVERLAY) (2D) OVERLAYS FLGWRD 14 & 15 003752,000230: # Page 101 003753,000231: 0114 0112 LASTYCMD EQUALS STATE +14D # B(1)PRM THESE ARE CALLED BY T4RUPT 003754,000232: 0114 0113 LASTXCMD EQUALS LASTYCMD +1 # B(1)PRM THEY MUST BE CONTIGUOUS, Y FIRST 003755,000233: 003756,000234: # EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS (32D) (INTB15+ THROUGH RUPTMXTM) 003757,000235: 0114 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES 003758,000236: 0115 0114 DSEXIT = INTB15+ # RETURN FOR DSPIN 003759,000237: 0115 0114 EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT 003760,000238: 0115 0114 BLANKRET = INTB15+ # RETURN FOR 2BLANK 003761,000239: 003762,000240: 0115 INTBIT15 ERASE # SIMILAR TO ABOVE. 003763,000241: 0116 0115 WRDRET = INTBIT15 # RETURN FOR 5BLANK. 003764,000242: 0116 0115 WDRET = INTBIT15 # RETURN FOR DSPWD 003765,000243: 0116 0115 DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD) 003766,000244: 0116 0115 21/22REG = INTBIT15 # TEMP FOR CHARIN 003767,000245: 003768,000246: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE. 003769,000247: 003770,000248: 0116 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS. 003771,000249: 0117 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESSE. 003772,000250: 0120 0117 UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB 003773,000251: 0120 0117 CHAR = POLISH # TEMP FOR CHARIN 003774,000252: 0120 0117 ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET 003775,000253: 0120 0117 DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC) 003776,000254: 003777,000255: 0120 FIXLOC ERASE # WORK AREA ADDRESS 003778,000256: 0121 OVFIND ERASE # SET NON-ZERO ON OVERFLOW. 003779,000257: 003780,000258: 0122 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS. 003781,000259: 0130 0122 SGNON = VBUF # TEMP FOR +,- ON 003782,000260: 0130 0122 NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH 003783,000261: 0130 0122 DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERB 003784,000262: 0130 0122 DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS) 003785,000263: 003786,000264: 0130 0123 SGNOFF = VBUF +1 # TEMP FOR +,- ON 003787,000265: 0130 0123 NVTEMP = VBUF +1 # TEMP FOR NVSUB 003788,000266: 0130 0123 SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART (=SFTEMP2-1) 003789,000267: 0130 0123 HITEMIN = VBUF +1 # TEMP FOR LOAD OF HRS,MIN,SEC 003790,000268: # MUST = LOTEMIN-1. 003791,000269: 003792,000270: 0130 0124 CODE = VBUF +2 # FOR DSPIN 003793,000271: 0130 0124 SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART (=SFTEMP1+1) 003794,000272: 0130 0124 LOTEMIN = VBUF +2 # TEMP FOR LOAD OF HRS,MIN,SEC 003795,000273: # MUST = HITEMIN+1 003796,000274: 003797,000275: 0130 0125 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA 003798,000276: 0130 0125 SIGNRET = VBUF +3 # RETURN FOR +,- ON 003799,000277: 003800,000278: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5 003801,000279: 003802,000280: 0130 BUF ERASE +2 # TEMPORARY SCALAR STORAGE 003803,000281: # Page 102 003804,000282: 0133 BUF2 ERASE +1 003805,000283: 0135 0130 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX. 003806,000284: 0135 0130 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD 003807,000285: 0135 0131 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN THE SWITCH WORD 003808,000286: 0135 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT 003809,000287: 0136 0135 DMPNTEMP = MPTEMP # DMPSUB TEMPORARY 003810,000288: 0136 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE 003811,000289: 0137 0136 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT 003812,000290: 0137 0136 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS. 003813,000291: 0137 0136 ENTRET = DOTINC # EXIT FROM ENTER 003814,000292: 003815,000293: 0137 DOTRET ERASE # RETURN FROM DOT SUBROUTINE 003816,000294: 0140 0137 DVNORMCT EQUALS DOTRET # DIVIDENT NORMALIZATION COUNT IN DDV. 003817,000295: 0140 0137 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH 003818,000296: 0140 0137 WDCNT = DOTRET # CHAR COUNTER FOR DSPWD 003819,000297: 0140 0137 INREL = DOTRET # INPUT BUFFER SELECTION 003820,000298: 003821,000299: 0140 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM 003822,000300: 0141 0140 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE -- ELSE -1. 003823,000301: 0141 0140 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER 003824,000302: 0141 0140 DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM 003825,000303: 0141 0140 MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN 003826,000304: 003827,000305: 0141 TEM1 ERASE # EXEC TEMP 003828,000306: 0142 0141 POLYRET = TEM1 003829,000307: 0142 0141 DSREL = TEM1 # REL ADDRESS FOR DSPIN 003830,000308: 003831,000309: 0142 TEM2 ERASE # EXEC TEMP 003832,000310: 0143 0142 DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN 003833,000311: 0143 0142 IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS (garbled) 003834,000312: 003835,000313: 0143 TEM3 ERASE # EXEC TEMP 003836,000314: 0144 0143 COUNT = TEM3 # FOR DSPIN 003837,000315: 003838,000316: 0144 TEM4 ERASE # EXEC TEMP 003839,000317: 0145 0144 LSTPTR = TEM4 # LIST POINTER FOR GRABUST 003840,000318: 0145 0144 RELRET = TEM4 # RETURN FOR RELDSP 003841,000319: 0145 0144 FREERET = TEM4 # RETURN FOR FREEDSP 003842,000320: 0145 0144 DSPWDRET = TEM4 # RETURN FOR DSPSIGN 003843,000321: 0145 0144 SEPSCRET = TEM4 # RETURN FOR SEPSEC 003844,000322: 0145 0144 SEPMNRET = TEM4 # RETURN FOR SEPMIN 003845,000323: 003846,000324: 0145 TEM5 ERASE # EXEC TEMP 003847,000325: 0146 0145 NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS 003848,000326: 003849,000327: 0146 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY 003850,000328: 0147 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY 003851,000329: 0150 IDAD1TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) 003852,000330: # MUST = IDAD2TEM-1, = IDAD3TEM-2 003853,000331: 0151 IDAD2TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) 003854,000332: # Page 103 003855,000333: # MUST = IDAD1TEM+1, IDAD3TEM-1. 003856,000334: 0152 IDAD3TEM ERASE # TEMP FOR INDIR ADDRESS TABLE ENTRY (MIXNN) 003857,000335: # MUST = IDAD1TEM+2, IDAD2TEM+1. 003858,000336: 0153 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY) 003859,000337: 003860,000338: # AX*SR*T STORAGE. 003861,000339: 0154 0142 DEXDEX EQUALS TEM2 # B(1)TMP 003862,000340: 0154 0143 DEX1 EQUALS TEM3 # B(1)TMP 003863,000341: 0154 0144 DEX2 EQUALS TEM4 # B(1)TMP 003864,000342: 0154 0145 RTNSAVER EQUALS TEM5 # B(1)TMP 003865,000343: 0154 0157 TERM1TMP EQUALS MPAC +3 # B(2)TMP 003866,000344: 003867,000345: 0154 0143 DEXI = DEX1 003868,000346: 003869,000347: # THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF 003870,000348: # SUBROUTIN ROOTPSRS. THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY). 003871,000349: # DMPSUB, DMPNSUB, SHORTMP, CDV/BOCV, ABS, AND USPRCADR. 003872,000350: 003873,000351: 0154 0142 DERCOF-8 = MPAC -12 # ROOTPSRS DER COF N-4 HI ORDER 003874,000352: 0154 0143 DERCOF-7 = MPAC -11 # ROOTPSRS DER COF N-4 LO ORDER 003875,000353: 0154 0144 DERCOF-6 = MPAC -10 # ROOTPSRS DER COF N-3 HI ORDER 003876,000354: 0154 0145 DERCOF-5 = MPAC -7 # ROOTPSRS DER COF N-3 LO ORDER 003877,000355: 0154 0146 DERCOF-4 = MPAC -6 # ROOTPSRS DER COF N-2 HI ORDER 003878,000356: 0154 0147 DERCOF-3 = MPAC -5 # ROOTPSRS DER COF N-2 LO ORDER 003879,000357: 0154 0150 DERCOF-2 = MPAC -4 # ROOTPSRS DER COF N-1 HI ORDER 003880,000358: 0154 0151 DERCOF-1 = MPAC -3 # ROOTPSRS DER COF N-1 LO ORDER 003881,000359: 0154 0152 DERCOFN = MPAC -2 # ROOTPSRS DER COF N, HI ORDER 003882,000360: 0154 0153 DERCOF+1 = MPAC -1 # ROOTPSRS DER COF N, LO ORDER 003883,000361: 003884,000362: 0154 0117 PWRPTR = POLISH # ROOTPSRS POWER TABLE POINTER 003885,000363: 0154 0124 DXCRIT = VBUF +2 # ROOTPSRS CRITERION FOR ENDING ITERS HI 003886,000364: 0154 0125 DXCRIT+1 = VBUF +3 # ROOTPSRS CRITERION FOR ENDING ITERS LOW 003887,000365: 0154 0126 ROOTPS = VBUF +4 # ROOTPSRS ROOT HI ORDER 003888,000366: 0154 0127 ROOTPS+1 = VBUF +5 # ROOTPSRS ROOT LO ORDER 003889,000367: 0154 0132 RETROOT = BUF +2 # ROOTPSRS RETURN ADDRESS OF USER 003890,000368: 0154 0140 PWRCNT = MATINC # ROOTPSRS DER TABLE LOOP COUNTER 003891,000369: 0154 0141 DERPTR = TEM1 # ROOTPSRS DER TABLE POINTER 003892,000370: 003893,000371: # Page 104 003894,000372: # DYNAMICALLY ALLOCATED CORE SETS FOR JOBS (84D) 003895,000373: 003896,000374: 0154 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR. 003897,000375: 0163 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR. 003898,000376: 0164 LOC ERASE # LOCATION ASSOCIATED WITH JOB. 003899,000377: 0165 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING. 003900,000378: 0166 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS. 003901,000379: 0167 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA. 003902,000380: 003903,000381: 0170 ERASE +83D # EIGHT SETS OF 12 REGISTERS EACH 003904,000382: 003905,000383: # INCORP STORAGE: R22 (N29) (SHARES WITH FOLLOWING SECTION) (4D) 003906,000384: 003907,000385: 0314 0314 R22DISP EQUALS TIME2SAV # I(4) N49 DISPLAY OF DELTA R AND DELTA V 003908,000386: 003909,000387: # STANDBY VERB ERASABLES. REDOCTR BEFORE THETADS. 003910,000388: 003911,000389: 0314 TIME2SAV ERASE +1 003912,000390: 0316 SCALSAVE ERASE +1 003913,000391: 0320 REDOCTR ERASE # CONTAINS NUMBER OF RESTARTS 003914,000392: 0321 THETAD ERASE +2 003915,000393: 0324 0321 CPHI = THETAD # O DESIRED GIMBAL ANGLES 003916,000394: 0324 0322 CTHETA = THETAD +1 # I FOR 003917,000395: 0324 0323 CPSI = THETAD +2 # M MANEUVER 003918,000396: 0324 DELV ERASE +5 003919,000397: 0332 0324 DELVX = DELV 003920,000398: 0332 0326 DELVY = DELV +2 003921,000399: 0332 0330 DELVZ = DELV +4 003922,000400: 003923,000401: # WAITLIST REPEAT FLAG (1D) 003924,000402: 003925,000403: 0332 RUPTAGN ERASE 003926,000404: 0333 0332 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT UPRUPT 003927,000405: 003928,000406: # DOWNLINK STORAGE. (27D) 003929,000407: 003930,000408: 0333 0333 DNLSTADR EQUALS DNLSTCOD 003931,000409: 003932,000410: 0333 DNLSTCOD ERASE # B(1)PRM DOWNLINK LIST CODE 003933,000411: 0334 LDATALST ERASE +25D # (26D) 003934,000412: 0366 0335 DNTMGOTO EQUALS LDATALST +1 # B(1) 003935,000413: 0366 0336 TMINDEX EQUALS DNTMGOTO +1 # B(1) 003936,000414: 0366 0336 DUMPLOC EQUALS TMINDEX # CONTAINS ECADR OF AGC DP WORD BEING DUMPED 003937,000415: # AND COUNT OF COMPLETE DUMPS ALREADY 003938,000416: # SENT. 003939,000417: 0366 0337 DNQ EQUALS TMINDEX +1 # B(1) 003940,000418: # Page 105 003941,000419: 0366 0340 DNTMBUFF EQUALS DNQ +1 # B(22)PRM DOWNLINK SNAPSHOT BUFFER 003942,000420: 003943,000421: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (10D) FIVE MORE IN EBANK 2. 003944,000422: 003945,000423: 0366 RESTREG ERASE # B(1)PRM FOR DISPLAY RESTARTS. 003946,000424: 0367 NVWORD ERASE 003947,000425: 0370 MARKNV ERASE 003948,000426: 0371 NVSAVE ERASE 003949,000427: # (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES) 003950,000428: 0372 CADRFLSH ERASE 003951,000429: 0373 CADRMARK ERASE 003952,000430: 0374 TEMPFLSH ERASE 003953,000431: 0375 FAILREG ERASE +2 # B(3)PRM 3 ALARM CODE REGISTERS 003954,000432: 003955,000433: # VAC AREAS. -- BE CAREFUL OF PLACEMENT -- (220D) 003956,000434: 003957,000435: 0400 VAC1USE ERASE 003958,000436: 0401 VAC1 ERASE +42D 003959,000437: 0454 VAC2USE ERASE 003960,000438: 0455 VAC2 ERASE +42D 003961,000439: 0530 VAC3USE ERASE 003962,000440: 0531 VAC3 ERASE +42D 003963,000441: 0604 VAC4USE ERASE 003964,000442: 0605 VAC4 ERASE +42D 003965,000443: 0660 VAC5USE ERASE 003966,000444: 0661 VAC5 ERASE +42D 003967,000445: 003968,000446: # STARALIGN ERASABLES. (13D) 003969,000447: 003970,000448: 0734 STARCODE ERASE # (1) 003971,000449: 0735 0734 AOTCODE = STARCODE 003972,000450: 0735 STARALGN ERASE +11D 003973,000451: 0751 0735 SINCDU = STARALGN 003974,000452: 0751 0743 COSCDU = STARALGN +6 003975,000453: 003976,000454: 0751 0741 SINCDUX = SINCDU +4 003977,000455: 0751 0735 SINCDUY = SINCDU 003978,000456: 0751 0737 SINCDUZ = SINCDU +2 003979,000457: 0751 0747 COSCDUX = COSCDU +4 003980,000458: 0751 0743 COSCDUY = COSCDU 003981,000459: 0751 0745 COSCDUZ = COSCDU +2 003982,000460: 003983,000461: # PHASE TABLE AND RESTART COUNTERS (12D) 003984,000462: 003985,000463: 0751 -PHASE1 ERASE 003986,000464: 0752 PHASE1 ERASE 003987,000465: 0753 -PHASE2 ERASE 003988,000466: # Page 106 003989,000467: 0754 PHASE2 ERASE 003990,000468: 0755 -PHASE3 ERASE 003991,000469: 0756 PHASE3 ERASE 003992,000470: 0757 -PHASE4 ERASE 003993,000471: 0760 PHASE4 ERASE 003994,000472: 0761 -PHASE5 ERASE 003995,000473: 0762 PHASE5 ERASE 003996,000474: 0763 -PHASE6 ERASE 003997,000475: 0764 PHASE6 ERASE 003998,000476: 003999,000477: # A**SR*T STORAGE (6D) 004000,000478: 004001,000479: 0765 CDUSPOT ERASE +5 # B(6) 004002,000480: 004003,000481: 0773 0765 CDUSPOTY = CDUSPOT 004004,000482: 0773 0767 CDUSPOTZ = CDUSPOT +2 004005,000483: 0773 0771 CDUSPOTX = CDUSPOT +4 004006,000484: 004007,000485: # VERB 37 STORAGE (2D) 004008,000486: 004009,000487: 0773 MINDEX ERASE # B(1)TMP INDEX FOR MAJOR MODE 004010,000488: 0774 MMNUMBER ERASE # B(1)TMP MAJOR MODE REQUESTED BY V37 004011,000489: 004012,000490: # PINBALL INTERRUPT ACTION (1D) 004013,000491: 004014,000492: 0775 DSPCNT ERASE # B(1)PRM COUNTER FOR DSPOUT 004015,000493: 004016,000494: # PINBALL EXECUTIVE ACTION (44D) 004017,000495: 004018,000496: 0776 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR 004019,000497: 0777 DECBRNCH ERASE # +DEC, -DEC, OCT INDICATOR 004020,000498: 1000 VERBREG ERASE # VERB CODE 004021,000499: 1001 NOUNREG ERASE # NOUN CODE 004022,000500: 1002 XREG ERASE # R1 INPUT BUFFER 004023,000501: 1003 YREG ERASE # R2 INPUT BUFFER 004024,000502: 1004 ZREG ERASE # R3 INPUT BUFFER 004025,000503: 1005 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY) 004026,000504: 1006 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY) 004027,000505: 1007 1006 HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC 004028,000506: # MUST = LOTEMOUT-1. 004029,000507: 1007 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY) 004030,000508: 1010 1007 LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC 004031,000509: # MUST = HITEMOUT+1 004032,000510: 1010 MODREG ERASE # MODE CODE 004033,000511: 1011 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK 004034,000512: 1012 REQRET ERASE # RETURN REGISTER FOR LOAD 004035,000513: # Page 107 004036,000514: 1013 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST 004037,000515: 1014 CLPASS ERASE # PASS INDICATOR FOR CLEAR 004038,000516: 1015 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB 004039,000517: 1016 NOUNCADR ERASE # MACHINE CADR FOR NOUN 004040,000518: 1017 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1) 004041,000519: 1020 MONSAVE1 ERASE # NOUNCADR FOR MONITOR (MATBS1) = MONSAVE+1 004042,000520: 1021 MONSAVE2 ERASE # NVMONOPT OPTIONS 004043,000521: 1022 DSPTAB ERASE +11D # 0-100, DISPLAY PANEL BUFF. 11D, C/S LTS. 004044,000522: 1036 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS 004045,000523: # MUST = NVBNKTEM-1. 004046,000524: 1037 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK 004047,000525: # MUST = NVQTEM+1 004048,000526: 1040 VERBSAVE ERASE # NEEDED FOR RECYCLE 004049,000527: 1041 CADRSTOR ERASE # ENDIDLE STORAGE 004050,000528: 1042 DSPLIST ERASE # WAITING REG FOR DSP SYST INTERNAL USE 004051,000529: 1043 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK 004052,000530: 1044 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME) 004053,000531: 1047 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG) 004054,000532: 004055,000533: 1052 1050 DSPTEMX EQUALS DSPTEM2 +1 # B(2) S-S DISPLAY BUFFER FOR EXT. VERBS 004056,000534: 1052 1044 NORMTEM1 EQUALS DSPTEM1 # B(3)DSP NORMAL DISPLAY REGISTERS. 004057,000535: 004058,000536: # DISPLAY FOR EXTENDED VERBS (V82, R04 (V62), V41 (N72) ) (2D) 004059,000537: 004060,000538: 1052 1050 OPTIONX EQUALS DSPTEMX # (2) EXTENDED VERB OPTION CODE 004061,000539: 004062,000540: # TBASES AND PHSPRDT S. (12D) 004063,000541: 004064,000542: 1052 TBASE1 ERASE 004065,000543: 1053 PHSPRDT1 ERASE 004066,000544: 1054 TBASE2 ERASE 004067,000545: 1055 PHSPRDT2 ERASE 004068,000546: 1056 TBASE3 ERASE 004069,000547: 1057 PHSPRDT3 ERASE 004070,000548: 1060 TBASE4 ERASE 004071,000549: 1061 PHSPRDT4 ERASE 004072,000550: 1062 TBASE5 ERASE 004073,000551: 1063 PHSPRDT5 ERASE 004074,000552: 1064 TBASE6 ERASE 004075,000553: 1065 PHSPRDT6 ERASE 004076,000554: 004077,000555: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (6D) 004078,000556: 1066 NVWORD1 ERASE # B(1) PROBABLY FOR DISPLAY DURING SERVICER 004079,000557: 1067 EBANKSAV ERASE 004080,000558: # Page 108 004081,000559: 1070 MARKEBAN ERASE 004082,000560: 1071 EBANKTEM ERASE 004083,000561: 1072 MARK2PAC ERASE 004084,000562: 1073 R1SAVE ERASE 004085,000563: 004086,000564: # IMU COMPENSATION UNSWITCHED ERASABLE. (1D) 004087,000565: 004088,000566: 1074 1/PIPADT ERASE 004089,000567: 004090,000568: # SINGLE PRECISION SUBROUTINE TEMPORARIES (2D) 004091,000569: 004092,000570: 1075 TEMK ERASE # (1) 004093,000571: 1076 SQ ERASE # (1) 004094,000572: 004095,000573: # UNSWITCHED RADAR ERASABLE 004096,000574: 004097,000575: 1077 SAMPLIM ERASE 004098,000576: 1100 SAMPLSUM ERASE +3 004099,000577: 1104 TIMEHOLD ERASE +1 004100,000578: 1106 1100 RRTARGET EQUALS SAMPLSUM # HALF U IT VECTOR IN SM OR NB AXES. (garbled) 004101,000579: 1106 TANG ERASE +1 # DESIRE TRUNNION AND SHAFT ANGLES. 004102,000580: 1110 1106 MODEA EQUALS TANG 004103,000581: 1110 MODEB ERASE +1 # DODES LOBBERS TANG +2. 004104,000582: 1112 1110 NSAMP EQUALS MODEB 004105,000583: 1112 DESRET ERASE 004106,000584: 1113 1112 OLDATAGD EQUALS DESRET # USED IN DATA READING ROUTINES. 004107,000585: 1113 DESCOUNT ERASE 004108,000586: 004109,000587: # ****** P22 ****** (6D) 004110,000588: 004111,000589: 1114 1100 RSUBC EQUALS RRTARGET # I(6) S-S CSM POSITION VECTOR. 004112,000590: 004113,000591: # Page 109 004114,000592: # UNSWITCHED FOR ORBIT INTEGRATION (21D) 004115,000593: 004116,000594: 1114 TDEC ERASE +20D # I(2) 004117,000595: 1141 1116 COLREG EQUALS TDEC +2 # I(1) 004118,000596: 1141 1117 LAT EQUALS COLREG +1 # I(2) 004119,000597: 1141 1121 LONG EQUALS LAT +2 # I(2) 004120,000598: 1141 1123 ALT EQUALS LONG +2 # I(2) 004121,000599: 1141 1125 YV EQUALS ALT +2 # I(6) 004122,000600: 1141 1133 ZV EQUALS YV +6 # I(6) 004123,000601: 004124,000602: # MISCELLANEOUS UNSWITCHED. (20D) 004125,000603: 004126,000604: 1141 P40/RET ERASE # (WILL BE PUT IN E6 WHEN THERE IS ROOM) 004127,000605: 1142 GENRET ERASE # B(1) R61 RETURN CODE. 004128,000606: 1143 OPTION1 ERASE # B(1) NOUN 06 USES THIS. 004129,000607: 1144 OPTION2 ERASE # B(1) NOUN 06 USES THIS. 004130,000608: 1145 OPTION3 ERASE # B(1) NOUN 06 USES THIS. 004131,000609: 1146 LONGCADR ERASE +1 # B(2) LONGCALL REGISTER. 004132,000610: 1150 LONGBASE ERASE +1 004133,000611: 1152 LONGTIME ERASE +1 # B(2) LONGCALL REGISTER. 004134,000612: 1154 CDUTEMPX ERASE # B(1)TMP 004135,000613: 1155 CDUTEMPY ERASE # B(1)TMP 004136,000614: 1156 CDUTEMPZ ERASE # B(1)TMP 004137,000615: 1157 PIPATMPX ERASE # B(1)TMP 004138,000616: 1160 PIPATMPY ERASE # B(1)TMP 004139,000617: 1161 PIPATMPZ ERASE # B(1)TMP 004140,000618: 004141,000619: 1162 DISPDEX ERASE # B(1) 004142,000620: 1163 TEMPR60 ERASE # B(1) 004143,000621: 1164 PRIOTIME ERASE # B(1) 004144,000622: 004145,000623: # P27 (UPDATE PROGRAM) STORAGE (26D) 004146,000624: 004147,000625: 1165 UPVERBSV ERASE # B(1) UPDATE VERB ATTEMPTED 004148,000626: 1166 UPTEMP ERASE +24D # B(1)TMP SCRATCH 004149,000627: 1217 1166 INTWAK1Q EQUALS UPTEMP # (BORROWS UPTEMP REGISTERS) 004150,000628: # RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES. 004151,000629: 1217 1167 COMPNUMB EQUALS UPTEMP +1 # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED 004152,000630: 1217 1170 UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP INTERRUPTD PROGRAM MM 004153,000631: 1217 1171 UPVERB EQUALS UPOLDMOD +1 # B(1)TMP VERB NUMBER 004154,000632: 1217 1172 UPCOUNT EQUALS UPVERB +1 # B(1)TMP UPBUFF INDEX 004155,000633: 1217 1173 UPBUFF EQUALS UPCOUNT +1 # B(20D) 004156,000634: 004157,000635: # SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS. (2D) 004158,000636: 004159,000637: 1217 1166 EBUF2 EQUALS UPTEMP # B(2) FOR EXCLUSIVE USE OF SYSTEM TEST. 004160,000638: 004161,000639: # Page 110 004162,000640: # PERM STATE VECTORS FOR BOOST AND DOWNLINK -- WHOLE MISSION -- (14D) 004163,000641: 004164,000642: 1217 RN ERASE +5 # B(6)PRM 004165,000643: 1225 VN ERASE +5 # B(6)PRM 004166,000644: 1233 PIPTIME ERASE +1 # B(2)PRM (MUST BE FOLLOWED BY GDT/2) 004167,000645: 004168,000646: # SERVICER -- MUST FOLLOW PIPTIME -- (18D) 004169,000647: 004170,000648: 1235 GDT/2 ERASE +17D # B(6)TMP ** MUST FOLLOW PIPTIME ** 004171,000649: 1257 1243 MASS EQUALS GDT/2 +6 # B(2) 004172,000650: 1257 1243 WEIGHT/G = MASS 004173,000651: 1257 1245 ABDELV EQUALS MASS +2 # (KALCMANU STORAGE) 004174,000652: 1257 1246 PGUIDE EQUALS ABDELV +1 # (2) 004175,000653: 1257 1250 DVTHRUSH EQUALS PGUIDE +2 # (1) 004176,000654: 1257 1251 AVEGEXIT EQUALS DVTHRUSH +1 # (2) 004177,000655: 1257 1251 AVGEXIT = AVEGEXIT 004178,000656: 1257 1253 TEMX EQUALS AVEGEXIT +2 # (1) 004179,000657: 1257 1254 TEMY EQUALS TEMX +1 # (1) 004180,000658: 1257 1255 TEMZ EQUALS TEMY +1 # (1) 004181,000659: 1257 1256 PIPAGE EQUALS TEMZ +1 # B(1) 004182,000660: 004183,000661: # PERMANENT LEM DAP STORAGE (6D) 004184,000662: 004185,000663: 1257 CH5MASK ERASE # B(1)PRM 004186,000664: 1260 CH6MASK ERASE # B(1)PRM JET FAILURE MASK. 004187,000665: 1261 SPNDX ERASE # B(1) 004188,000666: 1262 RCSFLAGS ERASE # AUTOPILOT FLAG WORD 004189,000667: # BIT ASSIGNMENTS: 004190,000668: # 1) ALTERYZ SWITCH (ZEROOR1) 004191,000669: # 2) NEEDLER SWITCH 004192,000670: # 3) NEEDLER SWITCH 004193,000671: # 4) NEEDLER SWITCH 004194,000672: # 5) NEEDLER SWITCH 004195,000673: # 9) JUST-IN-DETENT SWITCH 004196,000674: # 10) PBIT -- MANUAL CONTROL SWITCH 004197,000675: # 11) QRBIT -- MANUAL CONTROL SWITCH 004198,000676: # 12) PSKIP CONTROL (PJUMPADR) 004199,000677: # 13) 1/ACCJOB CONTROL (ACCSET) 004200,000678: 1263 T5ADR ERASE +1 # GENADR OF NEXT LM DAP T5RUPT. * 2CADR * 004201,000679: # BBCON OF NEXT LM DAP T5RUPT. 2CADR 004202,000680: 004203,000681: # ERASABLES FOR RADAR READ PROTECTION (C13STALL) (4D) 004204,000682: 004205,000683: 1265 C13QSAV ERASE # B(1) QSAVE FOR C13STALL USERS 004206,000684: 1266 C13FSAV ERASE # B(1) FBANK SAVE FOR C13STALL 004207,000685: 1267 RADTIME ERASE # B(1) NEG. TIME OF SCALAR READ. 004208,000686: # Page 111 004209,000687: 1270 RADDEL ERASE # B(1) DELTA TIME FROM SCALAR READ TO T5. 004210,000688: 004211,000689: # RADARREAD STORAGE (2D) 004212,000690: 004213,000691: 1271 TTOTIG ERASE +1 # B(2) LATEST ESTIMATE OF TIME TO IGNITION. 004214,000692: 004215,000693: # RCS FAILURE MONITOR STORAGE (1) 004216,000694: 004217,000695: 1273 PVALVEST ERASE # B(1)PRM 004218,000696: 004219,000697: # KALCMANU/DAP INTERFACE (3D) 004220,000698: 004221,000699: 1274 DELPEROR ERASE # B(1)PRM COMMAND LAGS. 004222,000700: 1275 DELQEROR ERASE # B(1)PRM 004223,000701: 1276 DELREROR ERASE # B(1)PRM 004224,000702: 004225,000703: # MODE SWITCHING ERASABLE. (9D) 004226,000704: 004227,000705: # RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES 004228,000706: 1277 IMODES30 ERASE # B(1) 004229,000707: 1300 IMODES33 ERASE 004230,000708: 1301 MODECADR ERASE +2 # B(3)PRM 004231,000709: 1304 1301 IMUCADR EQUALS MODECADR 004232,000710: 1304 1302 OPTCADR EQUALS MODECADR +1 004233,000711: 1304 1303 RADCADR EQUALS MODECADR +2 004234,000712: 1304 ATTCADR ERASE +2 # B(3)PRM 004235,000713: 1307 1306 ATTPRIO = ATTCADR +2 004236,000714: 1307 MARKSTAT ERASE 004237,000715: 004238,000716: # T4RUPT ERASABLE (2D) 004239,000717: 004240,000718: 1310 DSRUPTSW ERASE 004241,000719: 1311 LGYRO ERASE # (1) 004242,000720: 004243,000721: # RENDEZVOUS RADAR TASK STORAGE (3D) 004244,000722: 004245,000723: 1312 RRRET ERASE +2D # B(1)TMP P20'S, PERHAPS R29 & R12 004246,000724: 1315 1313 RDES EQUALS RRRET +1 # B(1)TMP 004247,000725: 1315 1314 RRINDEX EQUALS RDES +1 # B(1)TMP 004248,000726: 004249,000727: # MEASINC (4D) 004250,000728: 004251,000729: 1315 WIXA ERASE # B(1) 004252,000730: 1316 WIXB ERASE # B(1) 004253,000731: 1317 ZIXA ERASE # B(1) 004254,000732: # Page 112 004255,000733: 1320 ZIXB ERASE # B(1) 004256,000734: 004257,000735: # AGS DUMMY ID WORD. (1D) 004258,000736: 004259,000737: 1321 AGSWORD ERASE 004260,000738: 004261,000739: # SOME MISCELLANEOUS UNSWITCHED. (6D) 004262,000740: 004263,000741: 1322 RATEINDX ERASE # (1) USED BY KALCMANU 004264,000742: 1323 DELAYLOC ERASE +2 004265,000743: 1326 LEMMASS ERASE # KEEP CONTIGUOUS W. CSMMASS. (1) EACH 004266,000744: 1327 CSMMASS ERASE 004267,000745: 004268,000746: # LESS IS MORE 004269,000747: 004270,000748: # RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE. (7D) 004271,000749: 004272,000750: # (NORMALLY USED DURING P20, BUT MAY ALSO 004273,000751: # BE REQUIRED FOR THE V62 SPURIOUS TEST.) 004274,000752: 004275,000753: # (PLEASE KEEP IN THIS ORDER) 004276,000754: 004277,000755: 1330 DNRRANGE ERASE +6 # B(1)TMP 004278,000756: 1337 1331 DNRRDOT EQUALS DNRRANGE +1 # B(1)TMP 004279,000757: 1337 1332 DNINDEX EQUALS DNRRDOT +1 # B(1)TMP 004280,000758: 1337 1333 DNLRVELX EQUALS DNINDEX +1 # B(1)TMP 004281,000759: 1337 1334 DNLRVELY EQUALS DNLRVELX +1 # B(1)TMP 004282,000760: 1337 1335 DNLRVELZ EQUALS DNLRVELY +1 # B(1)TMP 004283,000761: 1337 1336 DNLRALT EQUALS DNLRVELZ +1 # B(1)TMP 004284,000762: 004285,000763: # INCORPORATION UNSWITCHED (2D) 004286,000764: 004287,000765: 1337 1256 W.IND EQUALS PIPAGE # B(1) 004288,000766: 1337 1257 W.INDI EQUALS W.IND +1 # I(1) 004289,000767: 004290,000768: # SUBROUTINE BALLANGS OF R60. 004291,000769: 004292,000770: 1337 BALLEXIT ERASE # B(1) SAVE LOCATION FOR BALLINGS SUBR EXIT 004293,000771: 004294,000772: # SOME LEM DAP STORAGE. (4D) 004295,000773: 004296,000774: 1340 DAPDATR1 ERASE # B(1)DSP DAP CONFIG. 004297,000775: 1341 TEVENT ERASE +1 # B(2)DSP 004298,000776: 1343 DB ERASE # B(1)TMP DEAD BAND. 004299,000777: 004300,000778: # NOUN 87 (2D) 004301,000779: # Page 113 004302,000780: 1344 AZ ERASE +1D # B(1) AZ AND EL MUST BE CONTIGUOUS 004303,000781: 1346 1345 EL EQUALS AZ +1D # B(1) 004304,000782: 004305,000783: # P63, P64, P65, P66, AND P67. (1D) 004306,000784: 004307,000785: 1346 WCHPHASE ERASE # B(1) 004308,000786: 004309,000787: # PADLOADS FOR R2 LUNAR POTENTIAL MODEL (2D) 004310,000788: 004311,000789: 1347 E3J22R2M ERASE # I(1) 004312,000790: 1350 E32C31RM ERASE # I(1) 004313,000791: 004314,000792: # PADLOADS FOR R12 DOPPLER COMPENSATION (3D) 004315,000793: 004316,000794: 1351 RADSKAL ERASE +1 # LR ALT DOPPLER BIAS: 2T/LAMBDA SCALED 004317,000795: # AT 1/(2(7) M/CS) 004318,000796: 1353 SKALSKAL ERASE # LR ALT SCALE FACTOR RATIO: .2 NOM 004319,000797: 004320,000798: # ERASABLES FOR TRUNNION AND SHAFT COMMANDS (2D) 004321,000799: 004322,000800: 1354 TRUNNCMD ERASE # *** THESE TWO ERASABLES *** 004323,000801: 1355 SHAFTCMD ERASE # *** MUST BE IN ORDER *** 004324,000802: 004325,000803: # ERASABLE FOR REGISTER 3 OF NOUN 49 (1D) 004326,000804: 004327,000805: 1356 WHCHREAD ERASE # B(1)TMP MEASUREMENT BEING PROCESSED. 004328,000806: 004329,000807: # LANDING PADLOAD (1D) 004330,000808: 004331,000809: 1357 1356 ELBIAS EQUALS WHCHREAD # B(1) PL LPD ELEVATION BIAS. PI RADIANS 004332,000810: 004333,000811: 1357 END-UE EQUALS 1377 004334,000812: 004335,000813: # SELF-CHECK ASSIGNMENTS (17D) 004336,000814: 004337,000815: 1357 SELFERAS ERASE 1357 - 1377 # *** MUST NOT BE MOVED *** # 004338,000816: 1357 1357 SFAIL EQUALS SELFERAS # B(1) 004339,000817: 1357 1360 ERESTORE EQUALS SFAIL +1 # B(1) 004340,000818: 1357 1361 SELFRET EQUALS ERESTORE +1 # B(1) RETURN 004341,000819: 1357 1362 SMODE EQUALS SELFRET +1 # B(1) 004342,000820: 1357 1363 ALMCADR EQUALS SMODE +1 # B(2) ALARM ABORD USER'S 2CADR 004343,000821: 1357 1365 ERCOUNT EQUALS ALMCADR +2 # B(1) 004344,000822: # Page 114 004345,000823: 1357 1366 SCOUNT EQUALS ERCOUNT +1 # B(3) 004346,000824: 1357 1371 SKEEP1 EQUALS SCOUNT +3 # B(1) 004347,000825: 1357 1372 SKEEP2 EQUALS SKEEP1 +1 # B(1) 004348,000826: 1357 1373 SKEEP3 EQUALS SKEEP2 +1 # B(1) 004349,000827: 1357 1374 SKEEP4 EQUALS SKEEP3 +1 # B(1) 004350,000828: 1357 1375 SKEEP5 EQUALS SKEEP4 +1 # B(1) 004351,000829: 1357 1376 SKEEP6 EQUALS SKEEP5 +1 # B(1) 004352,000830: 1357 1377 SKEEP7 EQUALS SKEEP6 +1 # B(1) 004353,000831: 004354,000832: # Page 115 004355,000833: # EBANK-3 ASSIGNMENTS 004356,000834: 004357,000835: E3,1400 SETLOC 1400 004358,000836: 004359,000837: # WAITLIST TASK LISTS. (26D) 004360,000838: 004361,000839: E3,1400 LST1 ERASE +7 # B(8D)PRM DELTA T'S. 004362,000840: E3,1410 LST2 ERASE +17D # B(18D)PRM TASK 2CADR ADDRESSES. 004363,000841: 004364,000842: # RESTART STORAGE. (2D) 004365,000843: 004366,000844: E3,1432 RSBBQ ERASE +1 # B(2)PRM SAVE BB AND Q FOR RESTARTS 004367,000845: 004368,000846: # MORE LONGCALL STORAGE. (MUST BE IN LST1'S BANK. (2D) 004369,000847: 004370,000848: E3,1434 LONGEXIT ERASE +1 # B(2)TMP MAY BE SELDOM OVERLAYED(?) (garbled) 004371,000849: 004372,000850: # PHASE-CHANGE LISTS PART II. (12D) 004373,000851: 004374,000852: 004375,000853: E3,1436 PHSNAME1 ERASE # B(1)PRM 004376,000854: E3,1437 PHSBB1 ERASE # B(1)PRM 004377,000855: E3,1440 PHSNAME2 ERASE # B(1)PRM 004378,000856: E3,1441 PHSBB2 ERASE # B(1)PRM 004379,000857: E3,1442 PHSNAME3 ERASE # B(1)PRM 004380,000858: E3,1443 PHSBB3 ERASE # B(1)PRM 004381,000859: E3,1444 PHSNAME4 ERASE # B(1)PRM 004382,000860: E3,1445 PHSBB4 ERASE # B(1)PRM 004383,000861: E3,1446 PHSNAME5 ERASE # B(1)PRM 004384,000862: E3,1447 PHSBB5 ERASE # B(1)PRM 004385,000863: E3,1450 PHSNAME6 ERASE # B(1)PRM 004386,000864: E3,1451 PHSBB6 ERASE # B(1)PRM 004387,000865: 004388,000866: # IMU COMPENSATION PARAMETERS (22D) 004389,000867: 004390,000868: E3,1452 PBIASX ERASE # B(1) PIPA BIAS, PIPA SCALE FACTOR TERMS 004391,000869: E3,1453 E3,1452 PIPABIAS = PBIASX # INTERMIXED. 004392,000870: E3,1453 PIPASCFX ERASE 004393,000871: E3,1454 E3,1453 PIPASCF = PIPASCFX 004394,000872: E3,1454 PBIASY ERASE 004395,000873: E3,1455 PIPASCFY ERASE 004396,000874: E3,1456 PBIASZ ERASE 004397,000875: E3,1457 PIPASCFZ ERASE 004398,000876: 004399,000877: E3,1460 NBDX ERASE # GYRO BIAS DRIFT 004400,000878: E3,1461 NBDY ERASE 004401,000879: E3,1462 NBDZ ERASE 004402,000880: 004403,000881: # Page 116 004404,000882: E3,1463 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE 004405,000883: E3,1464 ADIAY ERASE # INPUT AXIS 004406,000884: E3,1465 ADIAZ ERASE 004407,000885: 004408,000886: E3,1466 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE 004409,000887: E3,1467 ADSRAY ERASE # SPIN REFERENCE AXIS 004410,000888: E3,1470 ADSRAZ ERASE 004411,000889: 004412,000890: E3,1471 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES 004413,000891: 004414,000892: E3,1477 E3,1471 COMMAND EQUALS GCOMP 004415,000893: E3,1477 E3,1474 CDUIND EQUALS GCOMP +3 004416,000894: 004417,000895: E3,1477 GCOMPSW ERASE 004418,000896: 004419,000897: # STATE VECTORS FOR ORBIT INTEGRATION. (44D) 004420,000898: 004421,000899: # (DIFEQCNT THUR XKEP MUST BE IN THE SAME 004422,000900: # EBANK AS RRECTCSM, RRECTLEM ETC 004423,000901: # BECAUSE THE COPY CYCLES (ATOPCSM, 004424,000902: # PTOACSM ETC) ARE EXECUTED IN BASIC. 004425,000903: # ALL OTHER REFERENCES TO THIS GROUP 004426,000904: # ARE BY INTERPRETIVE INSTRUCTIONS.) 004427,000905: 004428,000906: 004429,000907: E3,1500 DIFEQCNT ERASE +43D # B(1) 004430,000908: # (UPSVFLAG...XKEP MUST BE KEPT IN ORDER). 004431,000909: E3,1554 E3,1501 UPSVFLAG EQUALS DIFEQCNT +1 # B(1) 004432,000910: E3,1554 E3,1502 RRECT EQUALS UPSVFLAG +1 # B(6) 004433,000911: E3,1554 E3,1510 VRECT EQUALS RRECT +6 # B(6) 004434,000912: E3,1554 E3,1516 TET EQUALS VRECT +6 # B(2) 004435,000913: E3,1554 E3,1520 TDELTAV EQUALS TET +2 # B(6) 004436,000914: E3,1554 E3,1526 TNUV EQUALS TDELTAV +6 # B(6) 004437,000915: E3,1554 E3,1534 RCV EQUALS TNUV +6 # B(6) 004438,000916: E3,1554 E3,1542 VCV EQUALS RCV +6 # B(6) 004439,000917: E3,1554 E3,1550 TC EQUALS VCV +6 # B(2) 004440,000918: E3,1554 E3,1552 XKEP EQUALS TC +2 # B(2) 004441,000919: 004442,000920: # PERMANENT STATE VECTORS AND TIMES. 004443,000921: 004444,000922: # (DO NOT OVERLAY WITH ANYTHING AFTER BOOST) 004445,000923: 004446,000924: # (RRECTCSM...XKEPCSM MUST BE KEPT IN THIS ORDER) 004447,000925: 004448,000926: E3,1554 RRECTCSM ERASE +5 # B(6)PRM CSM VARIABLES 004449,000927: E3,1562 E3,1554 RRECTOTH = RRECTCSM 004450,000928: E3,1562 VRECTCSM ERASE +5 # B(6)PRM 004451,000929: # Page 117 004452,000930: E3,1570 TETCSM ERASE +1 # B(2)PRM 004453,000931: E3,1572 E3,1570 TETOTHER = TETCSM 004454,000932: E3,1572 DELTACSM ERASE +5 # B(6)PRM 004455,000933: E3,1600 NUVCSM ERASE +5 # B(6)PRM 004456,000934: E3,1606 RCVCSM ERASE +5 # B(6)PRM 004457,000935: E3,1614 VCVCSM ERASE +5 # B(6)PRM 004458,000936: E3,1622 TCCSM ERASE +1 # B(2)PRM 004459,000937: E3,1624 XKEPCSM ERASE +1 # B(2)PRM 004460,000938: 004461,000939: # (RRECTLEM...XKEPLEM MUST BE KEPT IN THIS ORDER) 004462,000940: 004463,000941: E3,1626 RRECTLEM ERASE +5 # B(6)PRM LEM VARIABLES 004464,000942: E3,1634 E3,1626 RRECTHIS = RRECTLEM 004465,000943: E3,1634 VRECTLEM ERASE +5 # B(6)PRM 004466,000944: E3,1642 TETLEM ERASE +1 # B(2)PRM 004467,000945: E3,1644 E3,1642 TETTHIS = TETLEM 004468,000946: E3,1644 DELTALEM ERASE +5 # B(6)PRM 004469,000947: E3,1652 NUVLEM ERASE +5 # B(6)PRM 004470,000948: E3,1660 RCVLEM ERASE +5 # B(6)PRM 004471,000949: E3,1666 VCVLEM ERASE +5 # B(6)PRM 004472,000950: E3,1674 TCLEM ERASE +1 # B(2)PRM 004473,000951: E3,1676 XKEPLEM ERASE +1 # B(2)PRM 004474,000952: 004475,000953: E3,1700 X789 ERASE +5 004476,000954: E3,1706 TEPHEM ERASE +2 004477,000955: E3,1711 AZO ERASE +1 004478,000956: E3,1713 -AYO ERASE +1 004479,000957: E3,1715 AXO ERASE +1 004480,000958: 004481,000959: # STATE VECTORS FOR DOWNLINK (12D) 004482,000960: 004483,000961: E3,1717 R-OTHER ERASE +5 # B(6)PRM POS VECT (OTHER VECH) FOR DNLINK 004484,000962: E3,1725 V-OTHER ERASE +5 # B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK 004485,000963: 004486,000964: E3,1733 E3,1570 T-OTHER = TETCSM # TIME (OTHER VECH) FOR DNLINK 004487,000965: 004488,000966: # REFSMMAT. (18D) 004489,000967: 004490,000968: E3,1733 REFSMMAT ERASE +17D # I(18D)PRM 004491,000969: 004492,000970: # ACTIVE VEHICLE CENTANG. MUST BE DISPLAYED ANYTIME (ALMOST.) (2D) 004493,000971: 004494,000972: E3,1755 ACTCENT ERASE +1 # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE 004495,000973: # VEHICLE AT TPI TIG AND TARGET VECTOR. 004496,000974: 004497,000975: # **** USED IN CONICSEX (PLAN INERT ORIENT) **** 004498,000976: # Page 118 004499,000977: E3,1757 E3,1706 TIMSUBO EQUALS TEPHEM # CSEC B-42 (TRIPLE PRECISION) 004500,000978: 004501,000979: # LPS20.1 STORAGE -- ALL ARE PRM -- (9D) 004502,000980: 004503,000981: E3,1757 LS21X ERASE # I(1) 004504,000982: E3,1760 LOSVEL ERASE +5 # I(6) 004505,000983: E3,1766 MLOSV ERASE +1 # I(2) MAGNITUDE OF LOS. METERS B-29 004506,000984: 004507,000985: # ***** P22 ***** (OVERLAYS LPS 20.1 STORAGE) (6D) 004508,000986: E3,1770 E3,1760 VSUBC EQUALS LOSVEL # I(6) S-S CSM VELOCITY VECTOR 004509,000987: 004510,000988: # PADLOADED ERASABLES FOR P20/P22 (6D) 004511,000989: 004512,000990: E3,1770 RANGEVAR ERASE +1 # I(2) RR RANGE ERROR VARIANCE 004513,000991: E3,1772 RATEVAR ERASE +1 # I(2) RR RANGE RATE ERROR VARIANCE 004514,000992: E3,1774 RVARMIN ERASE # I(1) MINIMUM RANGE ERROR VARIANCE 004515,000993: E3,1775 VVARMIN ERASE # I(1) MINIMUM RANGE-RATE ERROR VARIANCE 004516,000994: 004517,000995: # P32-P33 STORAGE (2D) 004518,000996: Warning: May overflow memory bank. 004519,000997: E3,1776 TCDH ERASE +1 # I(2) T2 CDH TIME IN CS. (ALSO DOWNLINKED) 004520,000998: 004521,000999: E3,1777 END-E3 EQUALS 1777 # ** LAST LOCATION USED IN E3 ** 004522,001000: 004523,001001: # Page 119 004524,001002: # EBANK-4 ASSIGNMENTS 004525,001003: 004526,001004: E4,1400 SETLOC 2000 004527,001005: 004528,001006: # E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE. 004529,001007: 004530,001008: E4,1400 AMEMORY EQUALS 004531,001009: 004532,001010: # P20 STORAGE. -- PAD LOADED -- (6D) 004533,001011: 004534,001012: E4,1400 WRENDPOS ERASE # B(1)PL KM*2(-7) 004535,001013: E4,1401 WRENDVEL ERASE # B(1)PL KM(-1/2)*2(11) 004536,001014: E4,1402 WSHAFT ERASE # B(1)PL KM*2(-7) 004537,001015: E4,1403 WTRUN ERASE # B(1)PL KM*2(-7) 004538,001016: E4,1404 RMAX ERASE # B(1)PL METERS*2(-19) 004539,001017: E4,1405 VMAX ERASE # B(1)PL M/CSEC*2(-7) 004540,001018: 004541,001019: # LUNAR SURFACE NAVIGATION (2D) 004542,001020: 004543,001021: E4,1406 WSURFPOS ERASE # B(1)PL 004544,001022: E4,1407 WSURFVEL ERASE # B(1)PL 004545,001023: 004546,001024: # P22 STORAGE. -- PAD LOADED -- (2D) 004547,001025: 004548,001026: E4,1410 SHAFTVAR ERASE # B(1)PL 004549,001027: E4,1411 TRUNVAR ERASE # B(1)PL 004550,001028: 004551,001029: # CONISEX STORAGE. -- PAD LOADED -- 004552,001030: 004553,001031: E4,1412 504LM ERASE +5 # I(6) MOON LIBRATION VECTOR 004554,001032: 004555,001033: # V47 (R47) AGS INITIALIZATION STORAGE. -- PAD LOADED -- (2D) 004556,001034: 004557,001035: E4,1420 AGSK ERASE +1 004558,001036: 004559,001037: # LUNAR LANDING STORAGE. -- PAD LOADED -- (6D) 004560,001038: 004561,001039: E4,1422 RLS ERASE +5 # I(6) LANDING SITE VECTOR -- MOON REF 004562,001040: 004563,001041: # INTEGRATION STORAGE. (102D) 004564,001042: 004565,001043: E4,1430 PBODY ERASE +101D # I(1) 004566,001044: # Page 120 004567,001045: E4,1576 E4,1431 ALPHAV EQUALS PBODY +1 # I(6) 004568,001046: E4,1576 E4,1437 BETAV EQUALS ALPHAV +6 # I(6) 004569,001047: E4,1576 E4,1445 PHIV EQUALS BETAV +6 # I(6) 004570,001048: E4,1576 E4,1453 PSIV EQUALS PHIV +6 # I(6) 004571,001049: E4,1576 E4,1461 FV EQUALS PSIV +6 # I(6) 004572,001050: E4,1576 E4,1467 ALPHAM EQUALS FV +6 # I(2) 004573,001051: E4,1576 E4,1471 BETAM EQUALS ALPHAM +2 # I(2) 004574,001052: E4,1576 E4,1473 TAU. EQUALS BETAM +2 # I(2) 004575,001053: E4,1576 E4,1475 DT/2 EQUALS TAU. +2 # I(2) 004576,001054: E4,1576 E4,1477 H EQUALS DT/2 +2 # I(2) 004577,001055: E4,1576 E4,1501 GMODE EQUALS H +2 # I(1) 004578,001056: E4,1576 E4,1502 IRETURN EQUALS GMODE +1 # I(1) 004579,001057: E4,1576 E4,1503 NORMGAM EQUALS IRETURN +1 # I(1) 004580,001058: E4,1576 E4,1504 RPQV EQUALS NORMGAM +1 004581,001059: E4,1576 E4,1512 ORIGEX EQUALS RPQV +6 # I(1) 004582,001060: E4,1576 E4,1512 KEPRTN EQUALS ORIGEX # I(1) 004583,001061: E4,1576 E4,1513 RQVV EQUALS ORIGEX +1 # I(6) 004584,001062: E4,1576 E4,1521 RPSV EQUALS RQVV +6 # I(6) 004585,001063: E4,1576 E4,1527 XKEPNEW EQUALS RPSV +6 # I(2) 004586,001064: E4,1576 E4,1531 VECTAB EQUALS XKEPNEW +2 # I(36D) 004587,001065: E4,1576 E4,1574 VECTABND EQUALS VECTAB +35D # END MARK 004588,001066: 004589,001067: # THESE PROBABLY CAN SHARE MID-COURSE VARIABLES (6D) 004590,001068: 004591,001069: E4,1576 E4,1537 VACX EQUALS VECTAB +6 # I(2) 004592,001070: E4,1576 E4,1541 VACY EQUALS VACX +2 # I(2) 004593,001071: E4,1576 E4,1543 VACZ EQUALS VACY +2 # I(2) 004594,001072: 004595,001073: # SERVICER STORAGE (USED BY ALL POWERED FLIGHT PROGS.) (18D) 004596,001074: 004597,001075: E4,1576 E4,1545 XNBPIP EQUALS VECTAB +12D # I(6) 004598,001076: E4,1576 E4,1553 YNBPIP EQUALS XNBPIP +6 # I(6) 004599,001077: E4,1576 E4,1561 ZNBPIP EQUALS YNBPIP +6 # I(6) 004600,001078: 004601,001079: # SOME VERB 82 STORAGE (4D) 004602,001080: 004603,001081: E4,1576 E4,1517 HAPOX EQUALS RQVV +4 # I(2) 004604,001082: E4,1576 E4,1521 HPERX EQUALS HAPOX +2 # I(2) 004605,001083: 004606,001084: # V82 STORAGE (6D) 004607,001085: 004608,001086: E4,1576 E4,1567 VONE' EQUALS VECTAB +30D # I(T)TMP NORMAL VELOCITY VONE / SQRT. MU 004609,001087: 004610,001088: # R32 (V83) STORAGE. -- SHARES WITH INTEGRATION STORAGE -- (28D) 004611,001089: 004612,001090: # Page 121 004613,001091: E4,1576 E4,1504 BASETHV EQUALS RPQV # I(6) BASE VEL VECTOR THIS VEH 004614,001092: 004615,001093: E4,1576 E4,1513 BASETIME EQUALS RQVV # I(2) TIME ASSOC WITH BASE VECS 004616,001094: E4,1576 E4,1515 ORIG EQUALS RQVV +2 # I(1) =0 FOR EARTH =2 FOR MOON 004617,001095: E4,1576 E4,1516 STATEXIT EQUALS RQVV +3 # I(1) STQ ADDRESS FOR STATEXTP 004618,001096: E4,1576 E4,1517 BASEOTV EQUALS RQVV +4 # I(6) BASE VEL VECTOR OTHER VEH 004619,001097: 004620,001098: E4,1576 E4,1537 BASEOTP EQUALS VECTAB +6 # I(6) BASE POS VECTOR OTHER VEH 004621,001099: 004622,001100: E4,1576 E4,1567 BASETHP EQUALS VECTAB +30D # I(6) BASE POS VECTOR THIS VEH 004623,001101: 004624,001102: # KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (2D) 004625,001103: # CONICS) 004626,001104: 004627,001105: E4,1576 EPSILONT ERASE +1 # I(2) 004628,001106: 004629,001107: # VERB 83 STORAGE (18D) 004630,001108: 004631,001109: E4,1600 RANGE ERASE +17D # I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ 004632,001110: E4,1622 E4,1602 RRATE EQUALS RANGE +2 # I(2)DSP NOUN 54 RATE OF APPROACH 004633,001111: E4,1622 E4,1604 RTHETA EQUALS RRATE +2 # I(2)DSP NOUN 54. 004634,001112: E4,1622 E4,1606 RONE EQUALS RTHETA +2 # I(6)TMP VECTOR STORAGE. (SCRATCH) 004635,001113: E4,1622 E4,1614 VONE EQUALS RONE +6 # I(6)TMP VECTOR STORAGE. (SCRATCH) 004636,001114: 004637,001115: # VERB 67 STORAGE 004638,001116: 004639,001117: E4,1622 E4,1600 WWPOS = RANGE # NOUN 99 (V67) 004640,001118: E4,1622 E4,1602 WWVEL = RRATE # NOUN 99 (V67) 004641,001119: E4,1622 E4,1604 WWBIAS = RTHETA # NOUN 99 (V67) 004642,001120: 004643,001121: # V82 STORAGE. (CANNOT OVERLAY RONE OR VONE) (11D) TWO SEPARAT LOCATIONS 004644,001122: 004645,001123: E4,1622 E4,1537 V82FLAGS EQUALS VECTAB +6 # (1) FOR V82 BITS. 004646,001124: E4,1622 E4,1540 TFF EQUALS V82FLAGS +1 # I(2) 004647,001125: E4,1622 E4,1542 -TPER EQUALS TFF +2 # I(2) 004648,001126: 004649,001127: E4,1622 E4,1600 HPERMIN EQUALS RANGE # I(2) SET TO 300KFT FOR SR30.1 004650,001128: E4,1622 E4,1602 RPADTEM EQUALS HPERMIN +2 # I(2) PAD OR LANDING RADIUS FOR SR30.1 004651,001129: E4,1622 E4,1604 TSTART82 EQUALS RPADTEM +2 # I(2) TEMP TIME STORATE VOR V82. 004652,001130: 004653,001131: # VARIOUS DISPLAY REGISTERS (6D) NOUN 84; P76 004654,001132: # Page 122 004655,001133: E4,1622 DELVOV ERASE +5D # (6) 004656,001134: 004657,001135: # ALIGNMENT PLANETARY -- INERTIAL TRANSFORMATION STORAGE. (18D) 004658,001136: 004659,001137: # UNSHARED WHILE LM ON LUNAR SURFACE. 004660,001138: 004661,001139: E4,1630 GSAV ERASE +17D # I(6) 004662,001140: E4,1652 E4,1636 YNBSAV EQUALS GSAV +6 # I(6) 004663,001141: E4,1652 E4,1644 ZNBSAV EQUALS YNBSAV +6 # I(6) 004664,001142: 004665,001143: # KALCMANU STORAGE, CAN OVERLAY GSAV. (18D) 004666,001144: 004667,001145: E4,1652 E4,1630 MFS EQUALS GSAV # I(18) 004668,001146: E4,1652 E4,1630 MFI EQUALS MFS # I 004669,001147: E4,1652 E4,1630 KEL EQUALS MFS # I(18) 004670,001148: E4,1652 E4,1630 E01 EQUALS MFS # I(6) 004671,001149: E4,1652 E4,1636 E02 EQUALS E01 +6 # I(6) 004672,001150: 004673,001151: # LR VEL BEAM VECTORS. (26D) 004674,001152: 004675,001153: # CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY. 004676,001154: 004677,001155: E4,1652 E4,1630 VZBEAMNB EQUALS GSAV # I(6) LR VELOCITY BEAMS IN NB COORDS. 004678,001156: E4,1652 E4,1636 VYBEAMNB EQUALS VZBEAMNB +6 # I(6) 004679,001157: E4,1652 E4,1644 VXBEAMNB EQUALS VYBEAMNB +6 # I(6) PRESERVE Z,Y,X ORDER 004680,001158: 004681,001159: E4,1652 E4,1652 LRVTIME = VXBEAMNB +6 # B(2) LR 004682,001160: E4,1652 E4,1654 LRXCDU = LRVTIME +2 # B(1) LR 004683,001161: E4,1652 E4,1655 LRYCDU = LRXCDU +1 # B(1) LR 004684,001162: E4,1652 E4,1656 LRZCDU = LRYCDU +1 # B(1) LR 004685,001163: E4,1652 E4,1657 PIPTEM = LRZCDU +1 # B(3) LR 004686,001164: 004687,001165: # P32-P35, P72-P75 STORAGE. (40D) 004688,001166: 004689,001167: E4,1652 T1TOT2 ERASE +1 # (2) TIME FROM CSI TO CDH 004690,001168: E4,1654 T2TOT3 ERASE +1 # (2) 004691,001169: E4,1656 ELEV ERASE +1 # (2) 004692,001170: E4,1660 UP1 ERASE +5 # (6) 004693,001171: E4,1666 DELVEET1 ERASE +5 # I(6) DV CSI IN REF 004694,001172: E4,1674 DELVEET2 ERASE +5 # I(6) DV CSH IN REF 004695,001173: E4,1702 RACT1 ERASE +5 # (6) POS VEC OF ACTIVE AT CSI TIME 004696,001174: E4,1710 RACT2 ERASE +5 # (6) POS VEC OF ACTIVE AT CDH TIME 004697,001175: # Page 123 004698,001176: E4,1716 RTSR1/MU ERASE +1 # (2) SQ ROOT 1/MU STORAGE 004699,001177: E4,1720 RTMU ERASE +1 # (2) MU STORAGE 004700,001178: 004701,001179: # (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION) 004702,001180: 004703,001181: E4,1722 E4,1652 +MGA EQUALS T1TOT2 # (2) S-S + MID GIM ANGL TO DELVEET3 004704,001182: 004705,001183: E4,1722 E4,1660 UNRM EQUALS UP1 # I(6) S-S 004706,001184: 004707,001185: E4,1722 E4,1702 DVLOS EQUALS RACT1 # I(6) S-S DELTA VELOCITY, LOS COORD-DISPLAY 004708,001186: E4,1722 E4,1710 ULOS EQUALS RACT2 # I(6) S-S UNIT LINE OF SIGHT VECTOR 004709,001187: 004710,001188: E4,1722 E4,1716 NOMTPI EQUALS RTSR1/MU # (2) S-S NOMINAL TPI-TIME FOR RECYCLE 004711,001189: 004712,001190: # SOME P30 STORAGE. (4D) 004713,001191: 004714,001192: E4,1722 E4,1716 HAPO EQUALS RTSR1/MU # I(2) 004715,001193: E4,1722 E4,1720 HPER EQUALS HAPO +2 # I(2) 004716,001194: 004717,001195: # THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST. 004718,001196: 004719,001197: E4,1722 E4,1400 TRANSM1 = WRENDPOS # E4,1400 004720,001198: E4,1722 E4,1422 ALFDK = TRANSM1 +18D 004721,001199: 004722,001200: # ****** THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE ****** 004723,001201: 004724,001202: # V47 (R47) AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83) (14D) 004725,001203: 004726,001204: E4,1722 E4,1600 AGSBUFF EQUALS RANGE # B(14D) 004727,001205: E4,1722 E4,1615 AGSBUFFE EQUALS AGSBUFF +13D # ENDMARK 004728,001206: 004729,001207: # R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83) (12D) 004730,001208: 004731,001209: E4,1722 E4,1606 RPASS36 EQUALS RONE # I(6) S-S 004732,001210: E4,1722 E4,1614 UNP36 EQUALS RPASS36 +6 # I(6) S-S 004733,001211: 004734,001212: # S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05 (V64). (OVERLAYS V83) (10D) 004735,001213: # (OPERATES DURING P00 ONLY) 004736,001214: # Page 124 004737,001215: E4,1722 E4,1600 ALPHASB EQUALS RANGE # B(2)DSP NOUN 51. PITCH ANGLE. 004738,001216: E4,1722 E4,1602 BETASB EQUALS ALPHASB +2 # B(2)DSP NOUN 51. YAW ANGLE. 004739,001217: E4,1722 E4,1604 RLM EQUALS BETASB +2 # I(6)S S/C POSITION VECTOR. 004740,001218: 004741,001219: # **** USED IN S-BAND ANTENNA FOR LM **** 004742,001220: 004743,001221: E4,1722 E4,1602 YAWANG EQUALS BETASB 004744,001222: E4,1722 E4,1600 PITCHANG EQUALS ALPHASB 004745,001223: 004746,001224: # NOUN 56 DATA -- COMPUTED AND DISPLAYED BY VERB 85. 004747,001225: 004748,001226: E4,1722 E4,1600 RR-AZ EQUALS PITCHANG # I(2) ANGLE BETWEEN LOS AND X-Z PLANE 004749,001227: E4,1722 E4,1602 RR-ELEV EQUALS RR-AZ +2 # I(2) ANGLE BETWEEN LOS AND Y-Z PLANE 004750,001228: 004751,001229: # R04 (V62) RADAR TEST STORAGE. 004752,001230: # R04 IS RESTRICTED TO P00. 004753,001231: 004754,001232: E4,1722 E4,1600 RSTACK EQUALS RANGE # B(8) BUFFER FOR R04 NOUNS. 004755,001233: 004756,001234: # INITVEL STORAGE. ALSO USED BY P31, P34, P35, P74, P75, P10, P11, MIDGIM, S40.1 AND S40.9. (18D) 004757,001235: 004758,001236: # (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE) 004759,001237: 004760,001238: E4,1722 RINIT ERASE +5 # I(6) ACTIVE VEHICLE POSITION 004761,001239: E4,1730 VINIT ERASE +5 # I(6) ACTIVE VEHICLE VELOCITY 004762,001240: E4,1736 VIPRIME ERASE +5 # I(6) NEW VEL REQUIRED AT INITIAL RADIUS. 004763,001241: 004764,001242: # VARIOUS DISPLAY REGISTERS. BALLANGS (3D) 004765,001243: 004766,001244: E4,1744 FDAIX ERASE # I(1) 004767,001245: E4,1745 FDAIY ERASE # I(1) 004768,001246: E4,1746 FDAIZ ERASE # I(1) 004769,001247: 004770,001248: # P34-P35 STORAGE. DOWNLINKED. (2D) 004771,001249: 004772,001250: E4,1747 DELVTPF ERASE +1 # I(2) DELTA V FOR TPF 004773,001251: 004774,001252: # LPS20.1 STORAGE. CALLED BY R65. (12D) 004775,001253: 004776,001254: E4,1751 LMPOS ERASE +5 # I(6)TMP STORAGE FOR LM POS. VECTOR. 004777,001255: E4,1757 LMVEL ERASE +5 # I(6)TMP STORAGE FOR LM VEL. VECTOR. 004778,001256: 004779,001257: # INITVEL STORAGE. ALSU USED BY P31,34,35,74,75,S40.1 AND DOWNLINKED. (6D) 004780,001258: 004781,001259: E4,1765 DELVEET3 ERASE +5 # I(6) DELTA V IN INERTIAL COORDINATES 004782,001260: 004783,001261: # Page 125 004784,001262: # SOME R04(V63)-R77 STORAGE. (6D) 004785,001263: 004786,001264: E4,1773 RTSTDEX ERASE # B(1) 004787,001265: E4,1774 RTSTMAX ERASE # B(1) 004788,001266: E4,1775 RTSTBASE ERASE # B(1) 004789,001267: E4,1776 RTSTLOC ERASE # B(1) Warning: Next code may overflow storage. 004790,001268: E4,1777 RSAMPDT ERASE # B(1) 004791,001269: E4,1777 E4,1575 RFAILCNT EQUALS PBODY +101D # B(1) 004792,001270: 004793,001271: E4,1777 END-E4 EQUALS # FIRST UNUSED LOCATION IN E4 004794,001272: 004795,001273: # SECOND DPS GUIDANCE (LUNAR LANDING) (OVERLAY P32-35, INITVEL) (12D) 004796,001274: 004797,001275: E4,1777 E4,1664 ANGTERM EQUALS PIPTEM +5 # I(6) GUIDANCE 004798,001276: E4,1777 E4,1672 HBEAMNB EQUALS ANGTERM +6 # I(6) LANDING RADAR 004799,001277: 004800,001278: # R12 DOWNLINK QUANTITIES (5D) 004801,001279: 004802,001280: E4,1777 E4,1734 LRXCDUDL EQUALS /LAND/ +2 # B(1) LANDING RADAR DOWNLINK 004803,001281: E4,1777 E4,1735 LRYCDUDL EQUALS LRXCDUDL +1 # B(1) LANDING RADAR DOWNLINK 004804,001282: E4,1777 E4,1736 LRZCDUDL EQUALS LRYCDUDL +1 # B(1) LANDING RADAR DOWNLINK 004805,001283: E4,1777 E4,1737 LRVTIMDL EQUALS LRZCDUDL +1 # B(2) LANDING RADAR DOWNLINK 004806,001284: 004807,001285: # ASCENT GUIDANCE FOR LUNAR LANDING (54D) 004808,001286: 004809,001287: E4,1777 E4,1662 AT EQUALS PIPTEM +3 # I(2)TMP ENGINE DATA -- THRUST ACC*2(9) 004810,001288: E4,1777 E4,1664 VE EQUALS AT +2 # I(2)TMP EXHAUST VELOCITY * 2(7)M/CS. 004811,001289: E4,1777 E4,1666 TTO EQUALS VE +2 # I(2)TMP TAILOFF TIME * 2(17)CS. 004812,001290: E4,1777 E4,1670 TBUP EQUALS TTO +2 # I(2)TMP (M/MDOT) * 2(17)CS. 004813,001291: E4,1777 E4,1672 RDOTD EQUALS TBUP +2 # I(2)TMP TARGET VELOCITY COMPONENTS 004814,001292: E4,1777 E4,1674 YDOTD EQUALS RDOTD +2 # I(2)TMP SCALING IS 2(7)M/CS. 004815,001293: E4,1777 E4,1676 ZDOTD EQUALS YDOTD +2 # I(2)TMP 004816,001294: 004817,001295: E4,1777 E4,1700 /R/MAG EQUALS ZDOTD +2 # I(2)TMP 004818,001296: E4,1777 E4,1702 LAXIS EQUALS /R/MAG +2 # I(6)TMP 004819,001297: E4,1777 E7,1725 ZAXIS1 = UHZP 004820,001298: E4,1777 E7,1473 RDOT = HDOTDISP 004821,001299: E4,1777 E4,1710 YDOT = LAXIS +6 # I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7) 004822,001300: E4,1777 E4,1712 ZDOT EQUALS YDOT +2 # I(2)TMP DOWN RANGE VEL * 2(-7) 004823,001301: E4,1777 E4,1714 GEFF EQUALS ZDOT +2 # I(2)TMP EFFECTIVE GRAVITY 004824,001302: 004825,001303: # THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT SERVICER SECTION FOLLOWING THIS SECTION 004826,001304: 004827,001305: E4,1777 E4,1734 Y EQUALS /LAND/ +2 # I(2)TMP OUT-OF-PLANE DIST *2(24)M 004828,001306: E4,1777 E4,1736 DRDOT EQUALS Y +2 # I(2)TMP RDOTD - RDOT 004829,001307: # Page 126 004830,001308: E4,1777 E4,1740 DYDOT EQUALS DRDOT +2 # I(2)TMP YDOTD - YDOT 004831,001309: E4,1777 E4,1742 DZDOT EQUALS DYDOT +2 # I(2)TMP ZDOTD - ZDOT 004832,001310: E4,1777 E4,1744 PCONS EQUALS DZDOT +2 # I(2)TMP CONSTANT IN ATR EQUATION 004833,001311: E4,1777 E4,1746 YCONS EQUALS PCONS +2 # I(2)TMP CONSTANT IN ATY EQUATION 004834,001312: E4,1777 E4,1750 PRATE EQUALS YCONS +2 # I(2)TMP RATE COEFF. IN ATR EQUATION 004835,001313: E4,1777 E4,1752 YRATE EQUALS PRATE +2 # I(2)TMP RATE COEFF. IN ATY EQUATION 004836,001314: E4,1777 E4,1754 ATY EQUALS YRATE +2 # I(2)TMP OUT-OF-PLANE THRUST COMP. *2(9) 004837,001315: E4,1777 E4,1756 ATR EQUALS ATY +2 # I(2)TMP RADIAL THRUST COMP. * 2(9) 004838,001316: E4,1777 E4,1760 ATP EQUALS ATR +2 # I(2)TMP DOWN-RANGE THRUST COMP 004839,001317: E4,1777 E4,1762 YAW EQUALS ATP +2 # I(2)TMP 004840,001318: E4,1777 E4,1764 PITCH EQUALS YAW +2 # I(2)TMP 004841,001319: 004842,001320: # SERVICER FOR LUNAR ASCENT AND DESCENT (14D) 004843,001321: 004844,001322: E4,1777 E4,1716 G(CSM) EQUALS GEFF +2 # I(6) FOR UPDATE OF COMMAND MODULE STATE 004845,001323: E4,1777 E3,1717 R(CSM) EQUALS R-OTHER # VECTORS BY LEM: ANALOGS OF GDT/2, 004846,001324: E4,1777 E3,1725 V(CSM) EQUALS V-OTHER # R, AND V, RESPECTIVELY OF THE CSM 004847,001325: E4,1777 E4,1724 WM EQUALS G(CSM) +6 # I(6)TMP -- LUNAR ROTATION VECTOR (SM) 004848,001326: E4,1777 E4,1732 /LAND/ EQUALS WM +6 # B(2) LUNAR RADIUS AT LANDING SITE 004849,001327: 004850,001328: # Page 127 004851,001329: # EBANK-5 ASSIGNMENTS 004852,001330: 004853,001331: E5,1400 SETLOC 2400 004854,001332: 004855,001333: # W-MATRIX. ESSENTIALLY UNSHARABLE. (162D) 004856,001334: 004857,001335: E5,1400 W ERASE +161D 004858,001336: E5,1642 E5,1642 ENDW EQUALS W +162D 004859,001337: 004860,001338: # ******* OVERLAY NUMBER 1 IN EBANK 5 ******* 004861,001339: 004862,001340: # W-MATRIX PADLOADS (124D) 004863,001341: 004864,001342: E5,1642 E5,1400 TLAND EQUALS W # I(2) NOMINAL TIME OF LANDING 004865,001343: E5,1642 E5,1402 RBRFG EQUALS TLAND +2 # I(6) BRAKING 004866,001344: E5,1642 E5,1410 VBRFG EQUALS RBRFG +6 # I(6) PHASE 004867,001345: E5,1642 E5,1416 ABRFG EQUALS VBRFG +6 # I(6) TARGET 004868,001346: E5,1642 E5,1424 VBRFG* EQUALS ABRFG +6 # I(2) PARAMETERS: 004869,001347: E5,1642 E5,1426 ABRFG* EQUALS VBRFG* +2 # I(2) HIGH 004870,001348: E5,1642 E5,1430 JBRFG* EQUALS ABRFG* +2 # I(2) GATE 004871,001349: E5,1642 E5,1432 GAINBRAK EQUALS JBRFG* +2 # B(2) 004872,001350: E5,1642 E5,1434 TCGFBRAK EQUALS GAINBRAK +2 # B(1) 004873,001351: E5,1642 E5,1435 TCGIBRAK EQUALS TCGFBRAK +1 # B(1) 004874,001352: E5,1642 E5,1436 RAPFG EQUALS TCGIBRAK +1 # I(6) APPROACH 004875,001353: E5,1642 E5,1444 VAPFG EQUALS RAPFG +6 # I(6) PHASE 004876,001354: E5,1642 E5,1452 AAPFG EQUALS VAPFG +6 # I(6) TARGET 004877,001355: E5,1642 E5,1460 VAPFG* EQUALS AAPFG +6 # I(2) PARAMETERS: 004878,001356: E5,1642 E5,1462 AAPFG* EQUALS VAPFG* +2 # I(2) LOW 004879,001357: E5,1642 E5,1464 JAPFG* EQUALS AAPFG* +2 # I(2) GATE 004880,001358: E5,1642 E5,1466 GAINAPPR EQUALS JAPFG* +2 # B(2) 004881,001359: E5,1642 E5,1470 TCGFAPPR EQUALS GAINAPPR +2 # B(1) 004882,001360: E5,1642 E5,1471 TCGIAPPR EQUALS TCGFAPPR +1 # B(1) 004883,001361: E5,1642 E5,1472 VIGN EQUALS TCGIAPPR +1 # I(2) DESIRED SPEED FOR IGNITION 004884,001362: E5,1642 E5,1474 RIGNX EQUALS VIGN +2 # I(2) DESIRED `ALTITUDE' FOR IGNITION 004885,001363: E5,1642 E5,1476 RIGNZ EQUALS RIGNX +2 # I(2) DESIRED GROUND RANGE FOR IGNITION 004886,001364: E5,1642 E5,1500 KIGNX/B4 EQUALS RIGNZ +2 # I(2) 004887,001365: E5,1642 E5,1502 KIGNY/B8 EQUALS KIGNX/B4 +2 # I(2) 004888,001366: E5,1642 E5,1504 KIGNV/B4 EQUALS KIGNY/B8 +2 # I(2) 004889,001367: E5,1642 E5,1506 LOWCRIT EQUALS KIGNV/B4 +2 # B(1) (HIGHCRIT MUST FOLLOW LOWCRIT) 004890,001368: E5,1642 E5,1507 HIGHCRIT EQUALS LOWCRIT +1 # B(1) 004891,001369: E5,1642 E5,1510 V2FG EQUALS HIGHCRIT +1 # I(6) DESIRED VELOCITY FOR P65. 004892,001370: E5,1642 E5,1516 TAUVERT EQUALS V2FG +6 # I(2) TIME CONSTANT FOR P65 VEL. NULLING. 004893,001371: E5,1642 E5,1520 DELQFIX EQUALS TAUVERT +2 # I(2) LR ALTITUDE DATA REASONABLE PARM. 004894,001372: E5,1642 E5,1522 LRALPHA EQUALS DELQFIX +2 # B(1) POS1 X ROTATION * MUST * 004895,001373: # Page 128 004896,001374: E5,1642 E5,1523 LRBETA1 EQUALS LRALPHA +1 # B(1) POS1 Y ROTATION * BE * 004897,001375: E5,1642 E5,1524 LRALPHA2 EQUALS LRBETA1 +1 # B(1) POS2 X ROTATION * IN * 004898,001376: E5,1642 E5,1525 LRBETA2 EQUALS LRALPHA2 +1 # B(1) POS2 Y ROTATION * ORDER* 004899,001377: E5,1642 E5,1526 LRVMAX EQUALS LRBETA2 +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004900,001378: E5,1642 E5,1527 LRVF EQUALS LRVMAX +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004901,001379: E5,1642 E5,1530 LRWVZ EQUALS LRVF +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004902,001380: E5,1642 E5,1531 LRWVY EQUALS LRWVZ +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004903,001381: E5,1642 E5,1532 LRWVX EQUALS LRWVY +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004904,001382: E5,1642 E5,1533 LRWVFZ EQUALS LRWVX +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004905,001383: E5,1642 E5,1534 LRWVFY EQUALS LRWVFZ +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004906,001384: E5,1642 E5,1535 LRWVFX EQUALS LRWVFY +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004907,001385: E5,1642 E5,1536 LRWVFF EQUALS LRWVFX +1 # B(1) LR VEL WEIGHTING FUNCTIONS 004908,001386: 004909,001387: E5,1642 0130 ABVEL* EQUALS BUF # B(1) LR TEMP 004910,001388: E5,1642 0131 VSELECT* EQUALS BUF +1 # B(1) LR TEMP 004911,001389: 004912,001390: E5,1642 E5,1537 RODSCALE EQUALS LRWVFF +1 # I(1) CLICK SCALE FACTOR FOR ROD 004913,001391: E5,1642 E5,1540 TAUROD EQUALS RODSCALE +1 # I(2) TIME CONSTANT FOR R.O.D. (garbled) 004914,001392: E5,1642 E5,1542 LAG/TAU EQUALS TAUROD +2 # I(2) LAG TIME DIVIDED BY TAUROD (P66) 004915,001393: E5,1642 E5,1544 MINFORCE EQUALS LAG/TAU +2 # I(2) MINIMUM FORCE P66 WILL COMMAND 004916,001394: E5,1642 E5,1546 MAXFORCE EQUALS MINFORCE +2 # I(2) MAXIMUM FORCE P66 WILL COMMAND. 004917,001395: E5,1642 E5,1550 J1PARM EQUALS MAXFORCE +2 # I(2) PARAMETER SET #1: 004918,001396: E5,1642 E5,1552 K1PARM EQUALS J1PARM +2 # I(2) ABORT ORBIT SEMI-MAJOR AXIS COMP. 004919,001397: E5,1642 E5,1554 J2PARM EQUALS K1PARM +2 # I(2) PARAMETER SET #2: 004920,001398: E5,1642 E5,1556 K2PARM EQUALS J2PARM +2 # I(2) ABORT ORBIT SEMI-MAJOR AXIS COMP 004921,001399: E5,1642 E5,1560 THETCRIT EQUALS K2PARM +2 # I(2) CENTRAL ANGLE SWITCHING CRITERION. 004922,001400: E5,1642 E5,1562 RAMIN EQUALS THETCRIT +2 # I(2) MINIMUM ALLOWABLE APOLUNE. 004923,001401: E5,1642 E5,1564 YLIM EQUALS RAMIN +2 # I(2) MAXIMUM CROSS-RANGE DIST. IN ABORTS 004924,001402: E5,1642 E5,1566 ABTRDOT EQUALS YLIM +2 # I(2) DESIRED RADIAL VEL. FOR ABORTS. 004925,001403: E5,1642 E5,1570 COSTHET1 EQUALS ABTRDOT +2 # I(2) COS CONE 1 ANGLE FOR ABORTS. 004926,001404: E5,1642 E5,1572 COSTHET2 EQUALS COSTHET1 +2 # I(2) COS OF CONE 2 ANGLE FOR ABORTS. 004927,001405: 004928,001406: # SOME VARIABLES FOR SECOND DPS GUIDANCE. (38D) 004929,001407: 004930,001408: E5,1642 E5,1574 CG EQUALS COSTHET2 +2 # I(18D) GUIDANCE 004931,001409: E5,1642 E5,1616 RANGEDSP EQUALS CG +18D # B(2) DISPLAY 004932,001410: E5,1642 E5,1616 OUTOFPLN EQUALS RANGEDSP # *** OUTOFPLN CAN OVERLAY RANGEDSP *** 004933,001411: E5,1642 E5,1620 R60VSAVE EQUALS OUTOFPLN +2 # I(6)TMP SAVES VALUE OF POINTVSM THRU R51 004934,001412: E5,1642 E5,1626 RGU EQUALS R60VSAVE +6 # I(6) UNSHARED FOR DOWNLINK 004935,001413: E5,1642 E5,1634 DLAND EQUALS RGU +6 # I(6) LANDING SITE CORRECTION SM FRAME 004936,001414: E5,1642 E5,1634 DLANDX EQUALS DLAND 004937,001415: E5,1642 E5,1636 DLANDY EQUALS DLAND +2 004938,001416: E5,1642 E5,1640 DLANDZ EQUALS DLAND +4 004939,001417: E5,1642 E5,1620 VBIAS EQUALS R60VSAVE # I(6) PIPA BIAS EQUIV. VELOCITY VECTOR. 004940,001418: E5,1642 E5,1620 JPARM EQUALS R60VSAVE # I(2) JPARM WILL EQUAL J1PARM OR J2PARM. 004941,001419: E5,1642 E5,1622 KPARM EQUALS JPARM +2 # I(2) KPARM WILL EQUAL K1PARM OR K2PARM. 004942,001420: E5,1642 E5,1624 RP EQUALS KPARM +2 # I(2) PREDICTED BURNOUT RADIUS M*2(-24) 004943,001421: E5,1642 0130 L*WCR*T = BUF 004944,001422: E5,1642 0131 H*GHCR*T = BUF +1 004945,001423: 004946,001424: # Page 129 004947,001425: # ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE (36D) 004948,001426: 004949,001427: E5,1642 E5,1642 XSM EQUALS ENDW # B(6) 004950,001428: E5,1642 E5,1650 YSM EQUALS XSM +6 # B(6) 004951,001429: E5,1642 E5,1656 ZSM EQUALS YSM +6 # B(6) 004952,001430: 004953,001431: E5,1642 E5,1664 XDC EQUALS ZSM +6 # B(6) 004954,001432: E5,1642 E5,1672 YDC EQUALS XDC +6 # B(6) 004955,001433: E5,1642 E5,1700 ZDC EQUALS YDC +6 # B(6) 004956,001434: 004957,001435: E5,1642 E5,1664 XNB = XDC 004958,001436: E5,1642 E5,1672 YNB = YDC 004959,001437: E5,1642 E5,1700 ZNB = ZDC 004960,001438: 004961,001439: # OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE (4D) 004962,001440: 004963,001441: E5,1642 E5,1644 -COSB EQUALS XSM +2 # (2)TMP 004964,001442: E5,1642 E5,1646 SING EQUALS -COSB +2 # (2)TMP 004965,001443: 004966,001444: # MORE OVERLAYS TO ALIGNMENT/SYSTEST (THESE ARE P52) (6D) 004967,001445: 004968,001446: E5,1642 E5,1706 LANDLAT EQUALS STARAD # (2) LATTITUDE, LONGITUDE 004969,001447: E5,1642 E5,1710 LANDLONG EQUALS LANDLAT +2 # (2) AND ALTITUDE 004970,001448: E5,1642 E5,1712 LANDALT EQUALS LANDLONG +2 # (2) OF LANDING SITE 004971,001449: 004972,001450: # ALIGNMENT/SYSTEST COMMON STORAGE. (31D) 004973,001451: 004974,001452: E5,1642 E5,1706 STARAD EQUALS ZDC +6 # I(18D)TMP 004975,001453: E5,1642 E5,1730 STAR EQUALS STARAD +18D # I(6) 004976,001454: E5,1642 E5,1736 GCTR EQUALS STAR +6 # B(1) 004977,001455: E5,1642 E5,1737 OGC EQUALS GCTR +1 # I(2) 004978,001456: E5,1642 E5,1741 IGC EQUALS OGC +2 # I(2) 004979,001457: E5,1642 E5,1743 MGC EQUALS IGC +2 # I(2) 004980,001458: 004981,001459: # P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE) (12D) 004982,001460: 004983,001461: E5,1642 E5,1706 GACC = STARAD # (6) SS 004984,001462: E5,1642 E5,1714 GOUT = STARAD +6 # (6) SS 004985,001463: 004986,001464: # OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE (24D) 004987,001465: 004988,001466: E5,1642 E5,1706 VEARTH EQUALS STARAD # (6)TMP 004989,001467: E5,1642 E5,1714 VSUN EQUALS VEARTH +6 # (6)TMP 004990,001468: E5,1642 E5,1722 VMOON EQUALS VSUN +6 # (6)TMP 004991,001469: # Page 130 004992,001470: E5,1642 E5,1730 SAX EQUALS VMOON +6 # (6)TMP 004993,001471: 004994,001472: # P50'S, R50'S Q STORES (2D) 004995,001473: 004996,001474: E5,1642 E5,1745 QMIN EQUALS MGC +2 # B(1)TMP 004997,001475: E5,1642 E5,1746 QMAJ EQUALS QMIN +1 # B(1)TMP 004998,001476: 004999,001477: # **** USED IN P50S **** (SCATTERED OVERLAYS) 005000,001478: 005001,001479: E5,1642 E5,1706 XSCI EQUALS STARAD 005002,001480: E5,1642 E5,1714 YSCI EQUALS XSCI +6 005003,001481: E5,1642 E5,1714 ZSCI EQUALS YSCI 005004,001482: E5,1642 E5,1706 CULTRIX EQUALS VEARTH # VEARTH, VSUN, VMOON 005005,001483: 005006,001484: # ALIGNMENT STORAGE. (23D) 005007,001485: 005008,001486: E5,1642 E5,1747 OGCT EQUALS QMAJ +1 # I(6) 005009,001487: E5,1642 E5,1755 BESTI EQUALS OGCT +6 # I(1) 005010,001488: E5,1642 E5,1756 BESTJ EQUALS BESTI +1 005011,001489: E5,1642 E5,1757 STARIND EQUALS BESTJ +1 005012,001490: # RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES 005013,001491: E5,1642 E5,1760 STARSAV1 EQUALS STARIND +1 # I(6) 005014,001492: E5,1642 E5,1766 STARSAV2 EQUALS STARSAV1 +6 # I(6) 005015,001493: E5,1642 E5,1774 TALIGN EQUALS STARSAV2 +6 # B(2) TIME OF IMU ALIGNMENT (DOWNLINKED) 005016,001494: 005017,001495: # P32-35 + SERVICER 005018,001496: 005019,001497: E5,1642 E5,1776 RTX1 EQUALS TALIGN +2 # I(1) X1 -2 EARTH, -10 MOON 005020,001498: E5,1642 E5,1777 RTX2 EQUALS RTX1 +1 # I(1) X2 0 EARTH, 2 MOON 005021,001499: 005022,001500: E5,1642 ZPRIME = 22D 005023,001501: E5,1642 PDA = 22D 005024,001502: E5,1642 COSTH = 16D 005025,001503: E5,1642 SINTH = 18D 005026,001504: E5,1642 THETA = 20D 005027,001505: E5,1642 STARM = 32D 005028,001506: 005029,001507: # Page 131 005030,001508: # ******* OVERLAY NUMBER 2 IN EBANK 5 ******* 005031,001509: 005032,001510: # CONICS ROUTINE STORAGE. (85D) 005033,001511: 005034,001512: E5,1642 E5,1642 DELX EQUALS ENDW # I(2)TMP 005035,001513: E5,1642 E5,1644 DELT EQUALS DELX +2 # I(2)TMP 005036,001514: E5,1642 E5,1646 URRECT EQUALS DELT +2 # I(6)TMP 005037,001515: E5,1642 RCNORM EQUALS 34D # I(2)TMP 005038,001516: E5,1642 E3,1552 XPREV EQUALS XKEP # I(2)TMP 005039,001517: E5,1642 E5,1654 R1VEC EQUALS URRECT +6 # I(6)TMP 005040,001518: E5,1642 E5,1662 R2VEC EQUALS R1VEC +6 # I(6)TMP 005041,001519: E5,1642 E5,1670 TDESIRED EQUALS R2VEC +6 # I(2)TMP 005042,001520: E5,1642 E5,1672 GEOMSGN EQUALS TDESIRED +2 # I(1)TMP 005043,001521: E5,1642 E5,1673 UN EQUALS GEOMSGN +1 # I(6)TMP 005044,001522: E5,1642 E5,1701 VTARGTAG EQUALS UN +6 # I(1)TMP 005045,001523: E5,1642 E5,1702 VTARGET EQUALS VTARGTAG +1 # I(6)TMP 005046,001524: E5,1642 E5,1710 RTNLAMB EQUALS VTARGET +6 # I(1)TMP 005047,001525: E5,1642 E5,1711 U2 EQUALS RTNLAMB +1 # I(6)TMP 005048,001526: E5,1642 E5,1717 MAGVEC2 EQUALS U2 +6 # I(2)TMP 005049,001527: E5,1642 E5,1721 UR1 EQUALS MAGVEC2 +2 # I(6)TMP 005050,001528: E5,1642 E5,1727 SNTH EQUALS UR1 +6 # I(2)TMP 005051,001529: E5,1642 E5,1731 CSTH EQUALS SNTH +2 # I(2)TMP 005052,001530: E5,1642 E5,1733 1-CSTH EQUALS CSTH +2 # I(2)TMP 005053,001531: E5,1642 E5,1735 CSTH-RHO EQUALS 1-CSTH +2 # I(2)TMP 005054,001532: E5,1642 E5,1737 P EQUALS CSTH-RHO +2 # I(2)TMP 005055,001533: E5,1642 E5,1741 R1A EQUALS P +2 # I(2)TMP 005056,001534: E5,1642 E5,1654 RVEC EQUALS R1VEC # I(6)TMP 005057,001535: E5,1642 E5,1743 VVEC EQUALS R1A +2 # I(6)TMP 005058,001536: E5,1642 E5,1710 RTNTT EQUALS RTNLAMB # I(1)TMP 005059,001537: E5,1642 E5,1751 ECC EQUALS VVEC +6 # I(2)TMP 005060,001538: E5,1642 E5,1710 RTNTR EQUALS RTNLAMB # I(1)TMP 005061,001539: E5,1642 E5,1710 RTNAPSE EQUALS RTNLAMB # I(1)TMP 005062,001540: E5,1642 E5,1717 R2 EQUALS MAGVEC2 # I(2)TMP 005063,001541: E5,1642 E5,1753 RTNPRM EQUALS ECC +2 # I(1)TMP 005064,001542: E5,1642 E5,1754 SGNRDOT EQUALS RTNPRM +1 # I(1)TMP 005065,001543: E5,1642 E5,1755 RDESIRED EQUALS SGNRDOT +1 # I(2)TMP 005066,001544: E5,1642 E5,1757 DELDEP EQUALS RDESIRED +2 # I(2)TMP 005067,001545: E5,1642 E5,1761 DEPREV EQUALS DELDEP +2 # I(2)TMP 005068,001546: E5,1642 E5,1757 TERRLAMB EQUALS DELDEP # I(2)TMP 005069,001547: E5,1642 E5,1761 TPREV EQUALS DEPREV # I(2)TMP 005070,001548: E5,1642 E5,1763 EPSILONL EQUALS DEPREV +2 # I(2)TMP 005071,001549: E5,1642 E5,1765 COGA EQUALS EPSILONL +2 # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE. 005072,001550: E5,1642 E5,1765 INDEP EQUALS COGA # USED BY SUBROUTINE `ITERATOR'. 005073,001551: 005074,001552: # Page 132 005075,001553: # ******* OVERLAY NUMBER 3 IN EBANK 5 ******* 005076,001554: 005077,001555: # INCORP STORAGE. (18D) 005078,001556: 005079,001557: E5,1642 E5,1642 ZI EQUALS ENDW # I(18D) 005080,001558: 005081,001559: # INCORP/L SR22.3 STORAGE. (21D) 005082,001560: 005083,001561: E5,1642 E5,1664 DELTAX EQUALS ZI +18D # I(18) 005084,001562: E5,1642 E5,1706 VARIANCE EQUALS DELTAX +18D # I(3) 005085,001563: 005086,001564: # MEASUREMENT INCORPORATION -R22- STORAGE. (49D) 005087,001565: 005088,001566: E5,1642 E5,1711 GRP2SVQ EQUALS VARIANCE +3 # I(1)TMP QSAVE FOR RESTARTS 005089,001567: E5,1642 E5,1712 OMEGAM1 EQUALS GRP2SVQ +1 # I(6) 005090,001568: E5,1642 E5,1720 OMEGAM2 EQUALS OMEGAM1 +6 # I(6) 005091,001569: E5,1642 E5,1726 OMEGAM3 EQUALS OMEGAM2 +6 # I(6) 005092,001570: E5,1642 E5,1734 HOLDW EQUALS OMEGAM3 +6 # I(18) 005093,001571: E5,1642 E5,1756 TDPOS EQUALS HOLDW +18D # I(6) 005094,001572: E5,1642 E5,1764 TDVEL EQUALS TDPOS +6 # I(6) 005095,001573: 005096,001574: E5,1642 E5,1664 TRIPA EQUALS DELTAX # I(3)TMP 005097,001575: E5,1642 E5,1667 TEMPVAR EQUALS TRIPA +3 # I(3)TMP 005098,001576: 005099,001577: # INCORPORATION/INTEGRATION Q STORAGE. (1D) 005100,001578: 005101,001579: E5,1642 E5,1772 EGRESS EQUALS TDVEL +6 # I(1) 005102,001580: 005103,001581: # P30/P31 STORAGE. (1D) AND ONE OVERLAY 005104,001582: 005105,001583: E5,1642 E5,1773 P30EXIT EQUALS EGRESS +1 # B(1)TMP 005106,001584: 005107,001585: E5,1642 E5,1773 ORIGIN EQUALS P30EXIT # I(1)TMP INTEX DURING INITVEL. 005108,001586: 005109,001587: # Page 133 005110,001588: # SYSTEM TEST ERASABLES. CAN OVERLAY W MATRIX. (127D) 005111,001589: 005112,001590: # ******* OVERLAY NUMBER 0 IN EBANK 5 ******* 005113,001591: 005114,001592: E5,1642 E5,1400 AZIMUTH EQUALS W # 2 005115,001593: E5,1642 E5,1402 LATITUDE EQUALS AZIMUTH +2 # 2 005116,001594: E5,1642 E5,1404 ERVECTOR EQUALS LATITUDE +2 # 6 005117,001595: E5,1642 E5,1412 LENGTHOT EQUALS ERVECTOR +6 # 1 005118,001596: E5,1642 E5,1413 LOSVEC EQUALS LENGTHOT +1 # 6 005119,001597: E5,1642 E5,1414 NDXCTR EQUALS LOSVEC +1 # 1 005120,001598: E5,1642 E5,1415 PIPINDEX EQUALS NDXCTR +1 # 1 005121,001599: E5,1642 E5,1416 POSITON EQUALS PIPINDEX +1 # 1 005122,001600: E5,1642 E5,1417 QPLACE EQUALS POSITON +1 # 1 005123,001601: E5,1642 E5,1420 QPLACES EQUALS QPLACE +1 # 1 005124,001602: E5,1642 E5,1421 SOUTHDR EQUALS QPLACES +1 # 7 005125,001603: E5,1642 E5,1430 TEMPTIME EQUALS SOUTHDR +7 # 2 005126,001604: E5,1642 E5,1432 TMARK EQUALS TEMPTIME +2 # 2 005127,001605: E5,1642 E5,1434 GENPL EQUALS TMARK +2 005128,001606: E5,1642 E5,1434 CDUTIMEI = GENPL 005129,001607: E5,1642 E5,1436 CDUTIMEF = GENPL +2 005130,001608: E5,1642 E5,1440 CDUDANG = GENPL +4 005131,001609: E5,1642 E5,1441 CDUREADF = GENPL +5 005132,001610: E5,1642 E5,1442 CDUREADI = GENPL +6 005133,001611: E5,1642 E5,1443 CDULIMIT = GENPL +7 005134,001612: 005135,001613: E5,1642 E5,1440 TEMPADD = GENPL +4 005136,001614: E5,1642 E5,1441 TEMP = GENPL +5 005137,001615: E5,1642 E5,1442 NOBITS = GENPL +6 005138,001616: E5,1642 E5,1443 CHAN = GENPL +7 005139,001617: 005140,001618: E5,1642 E5,1444 LOS1 = GENPL +8D 005141,001619: E5,1642 E5,1452 LOS2 = GENPL +14D 005142,001620: 005143,001621: E5,1642 E5,1460 CALCDIR EQUALS GENPL +20D 005144,001622: E5,1642 E5,1461 CDUFLAG EQUALS GENPL +21D 005145,001623: E5,1642 E5,1462 GYTOBETQ EQUALS GENPL +22D 005146,001624: E5,1642 E5,1463 OPTNREG EQUALS GENPL +23D 005147,001625: E5,1642 E5,1464 SAVE EQUALS GENPL +24D # THREE ONSEC LOC 005148,001626: E5,1642 E5,1467 SFCONST1 EQUALS GENPL +27D 005149,001627: E5,1642 E5,1470 TIMER EQUALS GENPL +28D 005150,001628: 005151,001629: E5,1642 E5,1472 DATAPL EQUALS GENPL +30D 005152,001630: E5,1642 E5,1434 RDSP EQUALS GENPL # FIX LATER POSSIBLY KEEP1 005153,001631: E5,1642 E5,1534 MASKREG EQUALS GENPL +64D 005154,001632: E5,1642 E5,1536 CDUNDX EQUALS GENPL +66D 005155,001633: E5,1642 E5,1537 RESULTCT EQUALS GENPL +67D 005156,001634: E5,1642 E5,1542 COUNTPL EQUALS GENPL +70D 005157,001635: 005158,001636: E5,1642 E5,1543 CDUANG EQUALS GENPL +71D 005159,001637: # Page 134 005160,001638: E5,1642 E5,1434 AINLA = GENPL # 110 DEC OR 156 OCT LOCATIONS 005161,001639: 005162,001640: E5,1642 E5,1434 WANGO EQUALS AINLA # VERT ERATE 005163,001641: E5,1642 E5,1436 WANGI EQUALS AINLA +2D # HORIZONTAL ERATE 005164,001642: E5,1642 E5,1440 WANGT EQUALS AINLA +4D # T 005165,001643: E5,1642 E5,1440 TORQNDX = WANGT 005166,001644: E5,1642 E5,1442 DRIFTT EQUALS AINLA +6D 005167,001645: E5,1642 E5,1444 ALX1S EQUALS AINLA +8D 005168,001646: E5,1642 E5,1445 CMPX1 EQUALS AINLA +9D # IND 005169,001647: E5,1642 E5,1446 ALK EQUALS AINLA +10D # GAINS 005170,001648: E5,1642 E5,1462 VLAUNS EQUALS AINLA +22D 005171,001649: E5,1642 E5,1464 WPLATO EQUALS AINLA +24D 005172,001650: E5,1642 E5,1470 INTY EQUALS AINLA +28D # SOUTH IP INTE 005173,001651: E5,1642 E5,1472 ANGZ EQUALS AINLA +30D # EAST A IS 005174,001652: E5,1642 E5,1474 INTZ EQUALS AINLA +32D # EAST P P I 005175,001653: E5,1642 E5,1476 ANGY EQUALS AINLA +34D # SOUTH 005176,001654: E5,1642 E5,1500 ANGX EQUALS AINLA +36D # VE 005177,001655: E5,1642 E5,1502 DRIFTO EQUALS AINLA +38D # VERT 005178,001656: E5,1642 E5,1504 DRIFTI EQUALS AINLA +40D # SOU 005179,001657: E5,1642 E5,1510 VLAUN EQUALS AINLA +44D 005180,001658: E5,1642 E5,1512 ACCWD EQUALS AINLA +46D 005181,001659: E5,1642 E5,1520 POSNV EQUALS AINLA +52D 005182,001660: E5,1642 E5,1522 DPIPAY EQUALS AINLA +54D # SOUTH 005183,001661: E5,1642 E5,1526 DPIPAZ EQUALS AINLA +58D # NORTH IP INCREMENT 005184,001662: E5,1642 E5,1530 ALTIM EQUALS AINLA +60D 005185,001663: E5,1642 E5,1531 ALTIMS EQUALS AINLA +61D # INDEX 005186,001664: E5,1642 E5,1532 ALDK EQUALS AINLA +62D # TIME ONSTAN 005187,001665: E5,1642 E5,1550 DELM EQUALS AINLA +76D 005188,001666: E5,1642 E5,1560 WPLATI EQUALS AINLA +84D 005189,001667: E5,1642 E5,1562 GEOCOMPS EQUALS AINLA +86D 005190,001668: E5,1642 E5,1563 ERCOMP EQUALS AINLA +87D 005191,001669: E5,1642 E5,1571 ZERONDX EQUALS AINLA +93D 005192,001670: 005193,001671: E5,1642 E5,1452 THETAN = ALK +4 005194,001672: E5,1642 E5,1460 FILDELV EQUALS THETAN +6 # AGS ALIGNMENT STORAGE 005195,001673: E5,1642 E5,1462 INTVEC EQUALS FILDELV +2 005196,001674: E5,1642 E5,1572 1SECXT = AINLA +94D 005197,001675: E5,1642 E5,1573 ASECXT = AINLA +95D 005198,001676: E5,1642 E5,1574 PERFDLAY EQUALS AINLA +96D # B(2) DELAY TIME BEF. START DRIFT MEASURE 005199,001677: E5,1642 E5,1576 OVFLOWCK EQUALS AINLA +98D # (1) SET MEANS OVERFLOW IN IMU PERF TEST 005200,001678: 005201,001679: E5,1642 E5,1774 END-E5 EQUALS STARSAV2 +6 # *** FIRST FREE LOCATION IN E5 *** 005202,001680: 005203,001681: # Page 135 005204,001682: # EBANK-6 ASSIGNMENTS. 005205,001683: 005206,001684: E6,1400 SETLOC 3000 005207,001685: 005208,001686: # DAP PAD-LOADED DATA. (10D) 005209,001687: 005210,001688: # ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP. 005211,001689: 005212,001690: E6,1400 HIASCENT ERASE # (1) MASS AFTER STAGING, SCALE AT B16 KG. 005213,001691: E6,1401 ROLLTIME ERASE # (1) TIME TO TRIM Z GIMBAL IN R03, CSEC. 005214,001692: E6,1402 PITTIME ERASE # (1) TIME TO TRIM Y GIMBAL IN R03, CSEC. 005215,001693: E6,1403 DKTRAP ERASE # (1) DAP STATE (POSSIBLE 77001 005216,001694: E6,1404 DKOMEGAN ERASE # (1) ESTIMATOR PARA- (VALUES 00012 005217,001695: E6,1405 DKKAOSN ERASE # (1) METERS FOR THE 00074 005218,001696: E6,1406 LMTRAP ERASE # (1) DOCKED AND 77001 005219,001697: E6,1407 LMOMEGAN ERASE # (1) LEM-ALONE CASES 00000 005220,001698: E6,1410 LMKAOSN ERASE # (1) RESPECTIVELY 00074 005221,001699: E6,1411 DKDB ERASE # (1) WIDTH OF DEADBAND FOR DOCKED RCS 005222,001700: # AUTOPILOT (DB=1.4DEG IN FRESH START 005223,001701: # DEADBAND = PI/DKDB RAD. 005224,001702: 005225,001703: # PADLOADS FOR INTITIALIZATION OF DAP BIAS ACCELERATION (AT P12 IGNITION) (2D) 005226,001704: 005227,001705: E6,1412 IGNAOSQ ERASE # B(1)PL 005228,001706: E6,1413 IGNAOSR ERASE # B(1)PL 005229,001707: 005230,001708: # AXIS TRANSFORMATION MATRIX -- GIMBAL TO PILOT AXES: (5D) 005231,001709: 005232,001710: E6,1414 M11 ERASE # SCALED AT 1 005233,001711: E6,1415 M21 ERASE # SCALED AT 1 005234,001712: E6,1416 M31 ERASE 005235,001713: E6,1417 M22 ERASE # SCALED AT 1. 005236,001714: E6,1420 M32 ERASE # SCALED AT 1. 005237,001715: 005238,001716: # ANGLE MEASUREMENTS 005239,001717: 005240,001718: E6,1421 OMEGAP ERASE +4 # BODY-AXIS ROT. RATES SCALED AT PI/4 AND 005241,001719: E6,1426 E6,1422 OMEGAQ EQUALS OMEGAP +1 # BODY-AXIS ACCELERATIONS SCALED AT PI/8. 005242,001720: E6,1426 E6,1423 OMEGAR EQUALS OMEGAP +2 005243,001721: # RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES 005244,001722: E6,1426 E6,1424 ALPHAQ EQUALS OMEGAP +3 005245,001723: E6,1426 E6,1425 ALPHAR EQUALS OMEGAP +4 005246,001724: E6,1426 OMEGAU ERASE +1 005247,001725: E6,1430 E6,1427 OMEGAV = OMEGAU +1 005248,001726: 005249,001727: E6,1430 TRAPEDP ERASE +5 005250,001728: E6,1436 E6,1431 TRAPEDQ = TRAPEDP +1 005251,001729: E6,1436 E6,1432 TRAPEDR = TRAPEDP +2 005252,001730: E6,1436 E6,1433 NPTRAPS = TRAPEDP +3 005253,001731: # Page 136 005254,001732: E6,1436 E6,1434 NQTRAPS = TRAPEDP +4 005255,001733: E6,1436 E6,1435 NRTRAPS = TRAPEDP +5 005256,001734: E6,1436 E6,1427 EDOTP = EDOT 005257,001735: E6,1436 EDOTQ ERASE +1 005258,001736: E6,1440 E6,1437 EDOTR = EDOTQ +1 # MANY SHAREING NAMES 005259,001737: E6,1440 E6,1436 QRATEDIF EQUALS EDOTQ # ALTERNATIVE NAMES: 005260,001738: E6,1440 E6,1437 RRATEDIF EQUALS EDOTR # DELETE WHEN NO. OF REFERENCES = 0 005261,001739: 005262,001740: E6,1440 E6,1426 URATEDIF EQUALS OMEGAU 005263,001741: E6,1440 E6,1427 VRATEDIF EQUALS OMEGAV 005264,001742: E6,1440 OLDXFORP ERASE +2 # STORED CDU READINGS FOR STATE 005265,001743: E6,1443 E6,1441 OLDYFORP EQUALS OLDXFORP +1 # DERIVATIONS: SCALED AT PI RADIANS (2'S) 005266,001744: E6,1443 E6,1442 OLDZFORQ EQUALS OLDXFORP +2 005267,001745: 005268,001746: # RATE-COMMAND AND MINIMUM IMPULSE MODES 005269,001747: 005270,001748: E6,1443 CH31TEMP ERASE 005271,001749: E6,1444 STIKSENS ERASE 005272,001750: E6,1445 TCP ERASE 005273,001751: E6,1446 DXERROR ERASE +5 005274,001752: E6,1454 E6,1450 DYERROR EQUALS DXERROR +2 005275,001753: E6,1454 E6,1452 DZERROR EQUALS DXERROR +4 005276,001754: E6,1454 PLAST ERASE 005277,001755: E6,1455 QLAST ERASE 005278,001756: E6,1456 RLAST ERASE 005279,001757: E6,1457 TCQR ERASE 005280,001758: 005281,001759: # OTHER VARIABLES (5D) 005282,001760: 005283,001761: E6,1460 OLDPMIN ERASE # THESE THREE USED IN MIN IMPUSE MODE 005284,001762: E6,1461 OLDQRMIN ERASE 005285,001763: E6,1462 E6,1736 TEMP31 EQUALS DAPTEMP1 005286,001764: 005287,001765: E6,1462 SAVEHAND ERASE +1 005288,001766: E6,1464 PERROR ERASE 005289,001767: E6,1465 E6,1450 QERROR EQUALS DYERROR 005290,001768: E6,1465 E6,1452 RERROR EQUALS DZERROR 005291,001769: 005292,001770: # JET STATE CHANGE VARIABLES -- TIME (TOFJTCHG), JET BITS WRITTEN NOW (10D) 005293,001771: # (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG). 005294,001772: 005295,001773: E6,1465 NXT6ADR ERASE 005296,001774: E6,1466 T6NEXT ERASE +1 005297,001775: E6,1470 T6FURTHA ERASE +1 005298,001776: E6,1472 NEXTP ERASE +2 005299,001777: E6,1475 E6,1473 NEXTU = NEXTP +1 005300,001778: E6,1475 E6,1474 NEXTV = NEXTP +2 005301,001779: E6,1475 -2JETLIM ERASE +1 # RATE COMMAND 4-JET RATE DIFFERENCE LIMIT 005302,001780: E6,1477 E6,1476 -RATEDB EQUALS -2JETLIM +1 # AND RATE DEADBAND FOR ASCENT OR DESCENT 005303,001781: 005304,001782: E6,1477 E6,1476 TARGETDB EQUALS -RATEDB # MAN. CONTROL TARGET DB COMPLEMENT. 005305,001783: # Page 137 005306,001784: E6,1477 4742 PBIT EQUALS BIT10 005307,001785: E6,1477 4741 QRBIT EQUALS BIT11 005308,001786: E6,1477 E6,1750 UERROR EQUALS DAPTREG5 # U,V-AXES ATT ERROR FOR RCS CONTROL LAWS. 005309,001787: E6,1477 E6,1751 VERROR = UERROR +1 005310,001788: E6,1477 RETJADR ERASE 005311,001789: E6,1500 E6,1741 TEMPNUM EQUALS DAPTEMP4 005312,001790: E6,1500 E6,1742 NUMBERT EQUALS DAPTEMP5 005313,001791: E6,1500 E6,1743 ROTINDEX EQUALS DAPTEMP6 005314,001792: E6,1500 E6,1736 ROTEMP1 EQUALS DAPTEMP1 005315,001793: E6,1500 E6,1737 ROTEMP2 EQUALS DAPTEMP2 005316,001794: E6,1500 E6,1740 POLYTEMP EQUALS DAPTEMP3 005317,001795: E6,1500 SENSETYP ERASE 005318,001796: E6,1501 E6,1736 ABSTJ EQUALS DAPTEMP1 # ABS VALUE OF JET-FIRING TIME 005319,001797: E6,1501 E6,1736 ABSEDOTP EQUALS DAPTEMP1 005320,001798: 005321,001799: E6,1501 E6,1747 DPSBURN EQUALS DAPTREG4 # USED WITH SNUFFBIT. VERY TEMPORARY. 005322,001800: 005323,001801: # Page 138 005324,001802: # GIMBAL CONTROL LAW ERASABLES (11D) 005325,001803: 005326,001804: E6,1501 E6,1736 GTSTEMPS EQUALS DAPTEMP1 # GTS IS PART OF THE JASK. 005327,001805: E6,1501 E6,1740 SHFTFLAG EQUALS GTSTEMPS +2 # COUNT BITS FOR GTSQRT SHIFTING. 005328,001806: E6,1501 E6,1743 ININDEX EQUALS GTSTEMPS +5 # INDEX FOR SHIFT LOOP IN GTSQRT. 005329,001807: 005330,001808: E6,1501 E6,1505 SAVESR EQUALS AXISCTR # CANNOT BE A DAPTEMP -- GTS USES THEM ALL. 005331,001809: 005332,001810: E6,1501 E6,1745 SCRATCH EQUALS GTSTEMPS +7 # ROOTCYCL ERASABLE. 005333,001811: E6,1501 E6,1746 HALFARG EQUALS GTSTEMPS +8D # ROOTCYCL ERASABLE. 005334,001812: 005335,001813: E6,1501 E6,1736 K2THETA EQUALS GTSTEMPS # D,P., K*ERROR, NEGUSUM 005336,001814: E6,1501 E6,1740 KCENTRAL EQUALS GTSTEMPS +2 # S.P., K FROM KQ OR KRDAP, AT PI/2(8) 005337,001815: E6,1501 E6,1741 K2CNTRAL EQUALS GTSTEMPS +3 # D.P., GTS SCRATCH CELLS. 005338,001816: E6,1501 E6,1742 WCENTRAL EQUALS GTSTEMPS +4 # S.P., OMEGA, AT PI/4 RAD/SEC 005339,001817: E6,1501 E6,1743 ACENTRAL EQUALS GTSTEMPS +5 # S.P., ALPHA, AT PI/4 RAD/SEC(2) 005340,001818: E6,1501 E6,1744 DEL EQUALS GTSTEMPS +6 # S.P., SGN FUNCTION VALUE. 005341,001819: E6,1501 E6,1745 A2CNTRAL EQUALS GTSTEMPS +7 # D.P., GTS SCRATCH CECLS. 005342,001820: E6,1501 E6,1747 QRCNTR EQUALS GTSTEMPS +9D # S.P., INDEX FOR GTS LOOP THROUGH Q,R AXES 005343,001821: E6,1501 E6,1750 FUNCTION EQUALS GTSTEMPS +10D # D.P., ARGUMENT FOR GRSQRT, SCRATCH FOR GTS. 005344,001822: 005345,001823: E6,1501 NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE. 005346,001824: E6,1504 EQUALS NEGUQ +1 # DEFINED AND USED ELSEWHERE. 005347,001825: E6,1504 E6,1503 NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE. 005348,001826: 005349,001827: E6,1504 KQ ERASE +2 # S.P., JERK TERM FOR GTS, AT PI/2(8) 005350,001828: E6,1507 E6,1505 AXISCTR EQUALS KQ +1 005351,001829: E6,1507 E6,1506 KRDAP EQUALS KQ +2 # .3 ACCDOTR SCALED AT PI/2(8) 005352,001830: 005353,001831: E6,1507 ACCDOTQ ERASE +3 # Q-JERK SCALED AT P8/2(7) UNSIGNED 005354,001832: E6,1513 E6,1510 QACCDOT EQUALS ACCDOTQ +1 # Q-JERK SCALED AT PI/2(7) SIGNED 005355,001833: E6,1513 E6,1511 ACCDOTR EQUALS ACCDOTQ +2 # R-JERK SCALED AT PI/2(7) UNSIGNED 005356,001834: E6,1513 E6,1512 RACCDOT EQUALS ACCDOTQ +3 # R-JERK SCALED AT PI/2(7) SIGNED 005357,001835: 005358,001836: E6,1513 E6,1450 QDIFF EQUALS QERROR # ATTITUDE ERRORS: 005359,001837: E6,1513 E6,1452 RDIFF EQUALS RERROR # SCALED AT PI RADIANS. 005360,001838: 005361,001839: # TORQUE VECTOR RECONSTRUCTION VARIABLES: (17D) 005362,001840: 005363,001841: E6,1513 E6,1744 JETRATE EQUALS DAPTREG1 005364,001842: E6,1513 E6,1745 JETRATEQ EQUALS JETRATE +1 # THE LAST CONTROL SAMPLE PERIOD OF 100 MS. 005365,001843: E6,1513 E6,1746 JETRATER EQUALS JETRATE +2 # SCALED AT PI/4 RADIANS/SECOND 005366,001844: 005367,001845: E6,1513 DOWNTORK ERASE +5 # ACCUMULATED JET TORQUE COMMANDED ABOUT 005368,001846: E6,1521 E6,1513 POSTORKP EQUALS DOWNTORK # +,-p, +,-u, +,-v RESPECTIVELY. 005369,001847: E6,1521 E6,1514 NETTOTKP EQUALS DOWNTORK +1 # EMPLOYED EXCLUSIVELY FOR DOWNLIST. 005370,001848: E6,1521 E6,1515 POSTORKU EQUALS DOWNTORK +2 # NOT INITIALIZED: PERMITTED TO OVERFLOW. 005371,001849: # Page 139 005372,001850: E6,1521 E6,1516 NEGTORKU EQUALS DOWNTORK +3 # SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET- 005373,001851: E6,1521 E6,1517 POSTORKV EQUALS DOWNTORK +4 # MSEC. PER BIT. 005374,001852: E6,1521 E6,1520 NEGTORKV EQUALS DOWNTORK +5 005375,001853: 005376,001854: E6,1521 NO.PJETS ERASE +2 005377,001855: E6,1524 E6,1522 NO.UJETS = NO.PJETS +1 005378,001856: E6,1524 E6,1523 NO.VJETS = NO.UJETS +1 005379,001857: E6,1524 TJP ERASE +2 005380,001858: E6,1527 E6,1525 TJU = TJP +1 005381,001859: E6,1527 E6,1526 TJV = TJP +2 005382,001860: 005383,001861: E6,1527 L,PVT-CG ERASE 005384,001862: E6,1530 1JACC ERASE +3 005385,001863: E6,1534 E6,1531 1JACCQ EQUALS 1JACC +1 # SCALED AT PI/4 RADIANS/SECOND 005386,001864: E6,1534 E6,1532 1JACCR EQUALS 1JACC +2 005387,001865: E6,1534 E6,1533 1JACCU EQUALS 1JACC +3 # FOR U,V-AXES THE SCALE FACTOR IS DOFF: 005388,001866: # SCALED AT PI/2 RADIANS/SECOND (FOR ASC) 005389,001867: 005390,001868: # ASCENT VARIABLES (10D) 005391,001869: 005392,001870: E6,1534 SKIPU ERASE +1 005393,001871: E6,1536 E6,1535 SKIPV = SKIPU +1 005394,001872: 005395,001873: # THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE CDASTASC 005396,001874: # SECTION OF THE AOSTASK. THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE 005397,001875: # SECTIONS AND ELSEWHERE. 005398,001876: 005399,001877: E6,1536 AOSQ ERASE +5 # OFFSET ACC. ESTIMATES, UPDATED IN D.P., 005400,001878: E6,1544 E6,1540 AOSR EQUALS AOSQ +2 # AND SCALED AT PI/2. 005401,001879: E6,1544 E6,1542 AOSU EQUALS AOSQ +4 # UV-AXES OFFSET ACC. FROMED BY VECTOR 005402,001880: E6,1544 E6,1543 AOSV EQUALS AOSQ +5 # ADDITION OF Q.R. AT PI/2 RAD/SEC(2). 005403,001881: 005404,001882: E6,1544 AOSQTERM ERASE +1 # (.1-.05K)AOS 005405,001883: E6,1546 E6,1545 AOSRTERM EQUALS AOSQTERM +1 # SCALED AT PI/4 RADIANS/SECOND. 005406,001884: 005407,001885: # FOR TJET LAW SUBROUTINES: (TEMPS ONLY) 005408,001886: 005409,001887: # NUMBERT EQUALS DAPTEMP5 # DEFINED IN QRAXIS. 005410,001888: E6,1546 E6,1736 EDOTSQ EQUALS DAPTEMP1 005411,001889: E6,1546 E6,1737 ROTSENSE EQUALS DAPTEMP2 005412,001890: E6,1546 E6,1740 FIREFCT EQUALS DAPTEMP3 # LOOKED AT BY PAXIS. 005413,001891: E6,1546 E6,1741 TTOAXIS EQUALS DAPTEMP4 005414,001892: E6,1546 E6,1743 ADRSDIF2 EQUALS DAPTEMP6 005415,001893: E6,1546 E6,1744 HOLDQ EQUALS DAPTREG1 005416,001894: E6,1546 E6,1745 ADRSDIF1 EQUALS DAPTREG2 005417,001895: E6,1546 E6,1746 HH EQUALS DAPTREG3 # DOUBLE PRECISION. 005418,001896: # HH +1 EQUALS DAPTREG4 005419,001897: E6,1546 E6,1751 E EQUALS DAPTREG6 # TIME SHARE WITH VERROR 005420,001898: E6,1546 E6,1427 EDOT EQUALS OMEGAV 005421,001899: 005422,001900: # INPUT TO TJET LAW (PERMANENT ERASABLES). (48D) 005423,001901: 005424,001902: # Page 140 005425,001903: E6,1546 E6,1525 TJETU = TJU # EQUATE NAMES. INDEXED BY -1, 0, +1. 005426,001904: E6,1546 BLOCKTOP ERASE +47D 005427,001905: E6,1626 E6,1566 1/ANET1 = BLOCKTOP +16D # THESE 8 PARAMETERS ARE SET UP BY 1/ACCS 005428,001906: E6,1626 E6,1567 1/ANET2 = 1/ANET1 +1 # FOR MINIMUM JETS ABOUT THE U-AXIS WHEN 005429,001907: E6,1626 E6,1572 1/ACOAST = 1/ANET1 +4 # EDOT IS POSITIVE. TJETLAW INDEXES BY 005430,001908: E6,1626 E6,1574 ACCFCTZ1 = 1/ANET1 +6 # ADRSDIFF FROM THESE REGISTERS TO PICK UP 005431,001909: E6,1626 E6,1575 ACCFCTZ5 = 1/ANET1 +7 # PARAMETERS FOR THE PROPER AXIS, NUMBER 005432,001910: E6,1626 E6,1600 FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48 005433,001911: E6,1626 E6,1602 COASTDB = 1/ANET1 +12D # REGISTERS IN ALL IN THIS BLOCK. 005434,001912: E6,1626 E6,1604 AXISDIST = 1/ANET1 +14D # FOUR NOT REFERENCED (P-AXIS) ARE FILLED 005435,001913: # IN BY THE FOLLOWING: 005436,001914: E6,1626 E6,1546 ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM 005437,001915: E6,1626 E6,1547 ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS. 005438,001916: E6,1626 E6,1554 FLAT = BLOCKTOP +6 # WIDTH OF MINIMUM IMPULSE ZONE. 005439,001917: E6,1626 E6,1555 ZONE3LIM = BLOCKTOP +7 # HEIGHT OF MINIMUM IMPULSE ZONE (AT 4 SEC.) 005440,001918: 005441,001919: E6,1626 COEFFQ ERASE +1 # COEFFQ AND COEFFR ARE USED IN ROT-TOUV 005442,001920: E6,1630 E6,1627 COEFFR EQUALS COEFFQ +1 # TO REXOLVE Q,R COMPONENTS INTO U,V COMP. 005443,001921: 005444,001922: # VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE. (4) 005445,001923: 005446,001924: E6,1630 E6,1502 ALLOWGTS EQUALS NEGUQ +1 # INSERT INTO UNUSED LOCATION 005447,001925: E6,1630 COTROLER ERASE # INDICATES WHICH CONTROL SYSTEM TO USE. 005448,001926: E6,1631 QGIMTIMR ERASE +2 # Q-GIMBAL DRIVE ITMER, DECISECONDS. 005449,001927: E6,1634 E6,1632 INGTS EQUALS QGIMTIMR +1 # INDICATOR OF CURRENT GTS CONTROL. 005450,001928: E6,1634 E6,1633 RGIMTIMR EQUALS QGIMTIMR +2 # R-GIMBAL DRIVE TIMER, DECISECONDS. 005451,001929: 005452,001930: # PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES. 005453,001931: 005454,001932: # KALCMANU:DAP INTERFACE (9D) 005455,001933: 005456,001934: E6,1634 CDUXD ERASE +2 # CDU DESIRED REGISTERS: 005457,001935: E6,1637 E6,1635 CDUYD EQUALS CDUXD +1 # SCALED AT PI RADIANS (180 DEGREES) 005458,001936: E6,1637 E6,1636 CDUZD EQUALS CDUXD +2 # (STORE IN 2'S COMPLEMENT) 005459,001937: 005460,001938: E6,1637 DELCDUX ERASE +2 # NEGATIVE OF DESIRED 100MS CDU INCREMENT: 005461,001939: E6,1642 E6,1640 DELCDUY EQUALS DELCDUX +1 # SCALED AT PI RADIANS (180 DEGREES) 005462,001940: E6,1642 E6,1641 DELCDUZ EQUALS DELCDUX +2 # (STORE IN 2'S COMPLEMENT) 005463,001941: 005464,001942: # RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES. 005465,001943: 005466,001944: E6,1642 OMEGAPD ERASE +2 # ATTITUDE MANEUVER DESIRED RATES: 005467,001945: E6,1645 E6,1643 OMEGAQD EQUALS OMEGAPD +1 # (NOT EXPLICITLY REFERENCED IN GTS CNTRL) 005468,001946: E6,1645 E6,1644 OMEGARD EQUALS OMEGAPD +2 # SCALED AT PI/4 RADIANS/SECOND 005469,001947: 005470,001948: # KALCMANU STORAGE. (24D) 005471,001949: 005472,001950: E6,1645 MIS ERASE +23D # I(18D) 005473,001951: E6,1675 E6,1667 COF EQUALS MIS +18D # I(6) 005474,001952: 005475,001953: # Page 141 005476,001954: # KALCMANU STORAGE. (33D) 005477,001955: E6,1675 BCDU ERASE +30D # B(3) 005478,001956: E6,1734 E6,1700 KSPNDX EQUALS BCDU +3 # B(1) 005479,001957: E6,1734 E6,1701 KDPNDX EQUALS KSPNDX +1 # B(1) 005480,001958: 005481,001959: E6,1734 E6,1702 TMIS EQUALS KDPNDX +1 # I(18) MUST BE IN SAME BANK AS RCS DAP 005482,001960: E6,1734 E6,1724 COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN THE SAME BANK AS RCS DAP 005483,001961: E6,1734 E6,1732 CAM EQUALS COFSKEW +6 # I(2) MUST BE IN THE SAME BANK AS RCS DAP 005484,001962: 005485,001963: E6,1734 AM ERASE +1 # I(2) THIS WAS ONCE IN E5 OVERLAYING OGC 005486,001964: 005487,001965: # FIRST-ODER OVERLAYS IN KALCMANU (25D) 005488,001966: E6,1736 E6,1702 KV1 EQUALS TMIS # I(6) 005489,001967: E6,1736 E6,1702 MFISYM EQUALS TMIS # I 005490,001968: E6,1736 E6,1702 TMFI EQUALS TMIS # I 005491,001969: E6,1736 E6,1702 NCDU EQUALS TMIS # B 005492,001970: E6,1736 E6,1705 NEXTIME EQUALS TMIS +3 # B 005493,001971: E6,1736 E6,1706 TTEMP EQUALS TMIS +4 # B 005494,001972: E6,1736 E6,1710 KV2 EQUALS TMIS +6 # I(6) 005495,001973: E6,1736 E6,1710 BIASTEMP EQUALS TMIS +6 # B 005496,001974: E6,1736 E6,1716 KV3 EQUALS TMIS +12D # I(6) 005497,001975: E6,1736 E6,1716 OGF EQUALS TMIS +12D # I 005498,001976: 005499,001977: E6,1736 E6,1724 BRATE EQUALS COFSKEW # B 005500,001978: E6,1736 E6,1724 IG EQUALS COFSKEW # I 005501,001979: 005502,001980: E6,1736 E6,1732 TM EQUALS CAM # B 005503,001981: 005504,001982: # SECOND-ORDER OVERLAYS IN KALCMANU (24D) 005505,001983: 005506,001984: E6,1736 E6,1702 K1 = KV1 005507,001985: E6,1736 E6,1710 K2 = KV2 005508,001986: E6,1736 E6,1716 K3 = KV3 005509,001987: E6,1736 E6,1702 P21 EQUALS KV1 # I(2) 005510,001988: E6,1736 E6,1704 D21 EQUALS KV1 +2 # I(2) 005511,001989: E6,1736 E6,1706 G21 EQUALS KV1 +4 # I(2) 005512,001990: E6,1736 E6,1710 C2SQP EQUALS KV2 # I(2) 005513,001991: E6,1736 E6,1712 C2SQM EQUALS KV2 +2 # I(2) 005514,001992: E6,1736 E6,1714 C2PP EQUALS KV2 +4 # I(2) 005515,001993: E6,1736 E6,1716 C2MP EQUALS KV3 # I(2) 005516,001994: E6,1736 E6,1720 C1PP EQUALS KV3 +2 # I(2) 005517,001995: E6,1736 E6,1722 C1MP EQUALS KV3 +4 # I(2) 005518,001996: 005519,001997: E6,1736 E6,1724 VECQTEMP = COFSKEW 005520,001998: # Page 142 005521,001999: E6,1736 E6,1634 DCDU = CDUXD 005522,002000: E6,1736 E6,1637 DELDCDU = DELCDUX 005523,002001: E6,1736 E6,1640 DELDCDU1 = DELCDUY 005524,002002: E6,1736 E6,1641 DELDCDU2 = DELCDUZ 005525,002003: 005526,002004: # * * * * * * * * * * * * * * * * * * * * * * * * * 005527,002005: 005528,002006: # STORAGE FOR FINDCDUW 005529,002007: 005530,002008: # OVERLAYING KALCMANU STORAGE: (27D) 005531,002009: 005532,002010: E6,1736 E6,1645 ECDUW EQUALS MIS 005533,002011: E6,1736 E6,1645 ECDUWUSR EQUALS ECDUW # B(1)TMP 005534,002012: E6,1736 E6,1646 QCDUWUSR EQUALS ECDUWUSR +1 # I(1)TMP 005535,002013: E6,1736 E6,1647 NDXCDUW EQUALS QCDUWUSR +1 # B(1)TMP 005536,002014: E6,1736 E6,1650 FLAGOODW EQUALS NDXCDUW +1 # B(1)TMP 005537,002015: E6,1736 E6,1651 FLPAUTNO EQUALS FLAGOODW +1 # B(1)TMP 005538,002016: E6,1736 E6,1652 UNFC/2 EQUALS FLPAUTNO +1 # I(6)IN 005539,002017: E6,1736 E6,1660 UNWC/2 EQUALS UNFC/2 +6 # I(6)IN 005540,002018: E6,1736 E6,1666 UNFV/2 EQUALS UNWC/2 +6 # I(6) S-S 005541,002019: E6,1736 E6,1666 UNFVX/2 = UNFV/2 005542,002020: E6,1736 E6,1670 UNFVY/2 = UNFV/2 +2 005543,002021: E6,1736 E6,1672 UNFVZ/2 = UNFV/2 +4 005544,002022: E6,1736 E6,1674 -DELGMB EQUALS UNFV/2 +6 # B(3)TMP 005545,002023: E6,1736 E6,1677 OGABIAS EQUALS -DELGMB +3 # B(1)IN 005546,002024: 005547,002025: # DEFINED IN THE WORK AREA: (18D) 005548,002026: 005549,002027: E6,1736 UNX/2 = 0 005550,002028: E6,1736 UNY/2 = 6 005551,002029: E6,1736 UNZ/2 = 14 005552,002030: 005553,002031: # END OF FINDCDUW ERASABLES 005554,002032: 005555,002033: # * * * * * * * * * * * * * * * * * * * * * * * * * 005556,002034: 005557,002035: # * * * * * * * * * * * * * * * * * * * * * * * * * 005558,002036: 005559,002037: # STORAGE FOR P57 005560,002038: 005561,002039: # OVERLAYING KALCMANU AND FINDCDUW STORAGE: (12D) 005562,002040: 005563,002041: E6,1736 E6,1645 VEC1 EQUALS MIS # I(6)TMP 005564,002042: E6,1736 E6,1653 VEC2 EQUALS VEC1 +6 # I(6)TMP 005565,002043: 005566,002044: # * * * * * * * * * * * * * * * * * * * * * * * * * 005567,002045: 005568,002046: # Page 143 005569,002047: # THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS, NEEDED BECAUSE DAP 15 IS NOW A TOB,JASK,JAB,TOSK 005570,002048: # ... ANYWAY, THE DAP CAN NOW BE INTERRUPTED. (18D) 005571,002049: 005572,002050: E6,1736 DAPTEMP1 ERASE +17D 005573,002051: E6,1760 E6,1737 DAPTEMP2 EQUALS DAPTEMP1 +1 005574,002052: E6,1760 E6,1740 DAPTEMP3 EQUALS DAPTEMP1 +2 005575,002053: E6,1760 E6,1741 DAPTEMP4 EQUALS DAPTEMP1 +3 005576,002054: E6,1760 E6,1742 DAPTEMP5 EQUALS DAPTEMP1 +4 005577,002055: E6,1760 E6,1743 DAPTEMP6 EQUALS DAPTEMP1 +5 005578,002056: E6,1760 E6,1744 DAPTREG1 EQUALS DAPTEMP1 +6 005579,002057: E6,1760 E6,1745 DAPTREG2 EQUALS DAPTEMP1 +7 005580,002058: E6,1760 E6,1746 DAPTREG3 EQUALS DAPTEMP1 +8D 005581,002059: E6,1760 E6,1747 DAPTREG4 EQUALS DAPTEMP1 +9D 005582,002060: E6,1760 E6,1750 DAPTREG5 EQUALS DAPTEMP1 +10D 005583,002061: E6,1760 E6,1751 DAPTREG6 EQUALS DAPTEMP1 +11D 005584,002062: 005585,002063: E6,1760 E6,1752 DAPARUPT EQUALS DAPTEMP1 +12D 005586,002064: E6,1760 E6,1753 DAPLRUPT EQUALS DAPARUPT +1 005587,002065: E6,1760 E6,1754 DAPBQRPT EQUALS DAPARUPT +2 005588,002066: E6,1760 E6,1756 DAPZRUPT EQUALS DAPARUPT +4 005589,002067: # (DAPZRUPT IS ALSO A JASK-IN-PROGRESS FLAG) 005590,002068: 005591,002069: # NEEDLER (ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE (6D) 005592,002070: 005593,002071: E6,1760 0061 T5TEMP EQUALS ITEMP1 005594,002072: E6,1760 0063 DINDX EQUALS ITEMP3 005595,002073: E6,1760 AK ERASE +2 # NEEDLER ATTITUDE INPUTS, SCALED AT 180 005596,002074: E6,1763 E6,1761 AK1 EQUALS AK +1 # DEGREES. P,Q,R AXES IN AK,AK1,AK2. 005597,002075: E6,1763 E6,1762 AK2 EQUALS AK +2 005598,002076: 005599,002077: E6,1763 EDRIVEX ERASE +2 # NEEDLER DISPLAY REGS AT 1800 DEGREES. 005600,002078: E6,1766 E6,1764 EDRIVEY EQUALS EDRIVEX +1 # SO THAT 384 BITS REPRESENT 42 3/16 DEGREES. 005601,002079: E6,1766 E6,1765 EDRIVEZ EQUALS EDRIVEX +2 005602,002080: 005603,002081: # DOCKED JET INHIBITION COUNTERS (3D) 005604,002082: 005605,002083: E6,1766 PJETCTR ERASE +2 005606,002084: E6,1771 E6,1767 UJETCTR EQUALS PJETCTR +1 005607,002085: E6,1771 E6,1770 VJETCTR EQUALS PJETCTR +2 005608,002086: 005609,002087: # LANDING PADLOADS (3D) 005610,002088: 005611,002089: E6,1771 VELBIAS ERASE +1 # B(2) PL BIAS VALUE FOR VELOCITY 005612,002090: # REASONABILITY TEST, 2(6)M/CS. 005613,002091: E6,1773 AZBIAS ERASE # B(1) PL LPD AZIMUTH BIAS, UNITS -- PI RAD. 005614,002092: 005615,002093: # Page 144 005616,002094: E6,1774 E6,1774 END-E6 EQUALS AZBIAS +1 # NEXT AVAILABLE E6 LOCATION. 005617,002095: 005618,002096: # Page 145 005619,002097: # EBANK-7 ASSIGNMENTS 005620,002098: 005621,002099: E7,1400 SETLOC 3400 005622,002100: 005623,002101: # P35 CONSTANTS. -- PAD LOADED -- (4D) 005624,002102: 005625,002103: E7,1400 ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST 005626,002104: E7,1402 PTIGINC ERASE +1 # B(2)PL 005627,002105: 005628,002106: # AOTMARK STORAGE. -- PAD LOADED -- (12D) 005629,002107: 005630,002108: E7,1404 AOTAZ ERASE +5 # B(6)PL 005631,002109: E7,1412 AOTEL ERASE +5 # B(6)PL 005632,002110: 005633,002111: # LANDING RADAR -- PAD LOADED -- (2D) 005634,002112: 005635,002113: E7,1420 LRHMAX ERASE # B(1) 005636,002114: E7,1421 LRWH ERASE # B(1) 005637,002115: 005638,002116: # THROTTLE STORAGE. -- PAD LOADED -- (1D) 005639,002117: 005640,002118: E7,1422 ZOOMTIME ERASE # B(1)PL TIME OF DPS THROTTLE-UP COMMAND 005641,002119: 005642,002120: # P63 AND P64 CONSTANTS. -- PAD LOADED -- (4D) 005643,002121: 005644,002122: E7,1423 TENDBRAK ERASE # B(1) LANDING PHASE SWITCHING CRITERION. 005645,002123: E7,1424 TENDAPPR ERASE # B(1) LANDING PHASE SWITCHING CRITERION. 005646,002124: E7,1425 DELTTFAP ERASE # B(1) INCREMENT ADDED TO TTF/8 WHEN 005647,002125: # SWITCHING FROM P63 TO P64. 005648,002126: E7,1426 LEADTIME ERASE # B(1) TIME INCREMENT SPECIFYING HOW MUCH 005649,002127: # GUIDANCE IS PROJECTED FORWARD 005650,002128: 005651,002129: # LANDING RADAR. -- PAD LOADED -- (2D) 005652,002130: 005653,002131: E7,1427 RPCRTIME ERASE # B(1) REPOSITIONING CRITERION (TIME) 005654,002132: E7,1430 RPCRTQSW ERASE # B(1) REPOSITIONING CRITERION (ANGLE) 005655,002133: 005656,002134: # ASTEER. -- PAD LOADED -- (2D) 005657,002135: 005658,002136: E7,1431 TNEWA ERASE +1 # I(2)PL LAMBERT CYCLE PERIOD. 005659,002137: 005660,002138: # P22 STORAGE -- OVERLAYS LANDING PADLOADS -- (5D) 005661,002139: # Page 146 005662,002140: E7,1433 E7,1423 REPOSCNT EQUALS TENDBRAK # B(1)TMP COUNTS NUMBER OF PASSES THROUGH 005663,002141: # REPOSITION ROUTINE. 005664,002142: E7,1433 E7,1424 REPOSTM EQUALS REPOSCNT +1 # I(2)TMP PRESENT TIME PLUS INCREMENTS OF 005665,002143: # TEN SECONDS. 005666,002144: E7,1433 E7,1426 DELTATM EQUALS REPOSTM +2 # I(2)TMP TIME INTERVAL FOR RUNNING 005667,002145: # DESIGNATE TASK. 005668,002146: 005669,002147: # *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. *** 005670,002148: 005671,002149: # P32-35 P72-75 STORAGE. (6D) 005672,002150: 005673,002151: E7,1433 DELVLVC ERASE +5 # I(6) DELTA VELOCITY -- LOCAL VERTICAL COO 005674,002152: E7,1441 E7,1433 DELVSLV = DELVLVC # (TEMP STORAGE OF SAME VECTOR) -RDINATE 005675,002153: 005676,002154: # P30-P40 INTERFACE UNSHARED. (2D) 005677,002155: 005678,002156: E7,1441 TIG ERASE +1 # B(2) 005679,002157: 005680,002158: # INITVEL STORAGE. ALSO USED BY P34,35,74,75,10,11 OTHER (8D) 005681,002159: 005682,002160: E7,1443 RTARG ERASE +5 # I(6) TARGET VECTOR 005683,002161: E7,1451 DELLT4 ERASE +1 # I(2) TIME DIFFERENCE 005684,002162: 005685,002163: # P30-P40 INTERFACE UNSHARED. (3D) 005686,002164: 005687,002165: E7,1453 TTOGO ERASE +1 # B(2) 005688,002166: E7,1455 E7,1453 TFI EQUALS TTOGO 005689,002167: E7,1455 WHICH ERASE # B(1) 005690,002168: 005691,002169: # *** R21 *** (1D) 005692,002170: 005693,002171: E7,1456 LOSCOUNT ERASE # B(1) 005694,002172: 005695,002173: # L SR22.3 (RENDEZVOUS NAVIGATION) STORAGE. (6D) 005696,002174: 005697,002175: # RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES. 005698,002176: 005699,002177: E7,1457 AIG ERASE # B(1)OUT GIMBAL ANGLES 005700,002178: E7,1460 AMG ERASE # B(1)OUT (MUST BE 005701,002179: E7,1461 AOG ERASE # B(1)OUT CONSECUTIVE) 005702,002180: 005703,002181: E7,1462 TRKMKCNT ERASE # B(1)TMP TEMPORARY MARK STORAGE. 005704,002182: E7,1463 E7,1462 MARKCTR = TRKMKCNT 005705,002183: 005706,002184: # Page 147 005707,002185: # P32-P35, P72-P75 STORAGE. -- PERMANENT -- (6) 005708,002186: 005709,002187: E7,1463 NORMEX ERASE # B(1)PRM SAVE FOR Q 005710,002188: E7,1464 QSAVED ERASE # B(1)PRM SAVE FOR Q 005711,002189: E7,1465 RTRN ERASE # B(1)PRM SAVE FOR Q 005712,002190: E7,1466 NN ERASE +1 # B(2) 005713,002191: E7,1470 SUBEXIT ERASE # B(1)PRM SAVE Q 005714,002192: 005715,002193: E7,1471 E7OVERLA EQUALS # START OF E7 OVERLAYS 005716,002194: E7,1471 E7,1471 WHOCARES EQUALS E7OVERLA # DUMMY FOR EBANK INSENSITIVE 2CADRS. 005717,002195: 005718,002196: # LUNAR LANDING OVERLAYS (6D) 005719,002197: 005720,002198: E7,1471 E7,1463 /AFC/ EQUALS NORMEX # B(2)TMP THROTTLE 005721,002199: E7,1471 E7,1465 FCODD EQUALS /AFC/ +2 # B(2)TMP THROTTLE 005722,002200: E7,1471 E7,1467 FP EQUALS FCODD +2 # B(2)TMP THROTTLE 005723,002201: 005724,002202: # ERASABLES FRO P64: OVERLAY OF RTARG (4D) 005725,002203: 005726,002204: E7,1471 E7,1443 ZERLINA EQUALS RTARG # B(1) P64 005727,002205: E7,1471 E7,1444 ELVIRA EQUALS ZERLINA +1 # B(1) P64 005728,002206: E7,1471 E7,1445 AZINCR1 EQUALS ELVIRA +1 # B(1) P64 005729,002207: E7,1471 E7,1446 ELINCR1 EQUALS AZINCR1 +1 # B(1) P64 005730,002208: 005731,002209: # Page 148 005732,002210: # ******* OVERLAY NUMBER 0 IN EBANK 7 ******* 005733,002211: 005734,002212: # RENDEZVOUS GUIDANCE STORAGE --P32.....P35-- (89D) 005735,002213: 005736,002214: E7,1471 E7,1611 TSTRT EQUALS DELDV # MIDCOURSE START TIME 005737,002215: E7,1471 E7,1573 TDEC2 EQUALS DELVCSI # TEMP STORAGE FOR INTEGRATION TIME INPUT 005738,002216: E7,1471 E7,1575 KT EQUALS DELVTPI # TEMP STORAGE FOR MIDCOURSE DELTA TIME 005739,002217: E7,1471 VACT1 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CSI TIME 005740,002218: E7,1477 RPASS1 ERASE +5D # POSITION VECTOR OF PASSIVE AT CSI TIME 005741,002219: E7,1505 VPASS1 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CSI TIME 005742,002220: E7,1513 VACT2 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CDH TIME 005743,002221: E7,1521 RPASS2 ERASE +5D # POSITION VECTOR OF PASSIVE AT CDH TIME 005744,002222: E7,1527 VPASS2 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CDH TIME 005745,002223: E7,1535 RACT3 ERASE +5D # POSITION VECTOR OF ACTIVE AT TPI TIME 005746,002224: E7,1543 VACT3 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT TPI TIME 005747,002225: E7,1551 RPASS3 ERASE +5D # POSITION VECTOR OF PASSIVE AT TPI TIME 005748,002226: E7,1557 VPASS3 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT TPI TIME 005749,002227: E7,1565 VACT4 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT INTERCEPT 005750,002228: E7,1573 E7,1543 UNVEC EQUALS VACT3 # CDHMVR UNIT VECTOR TEMP STORAGE. 005751,002229: E7,1573 DELVCSI ERASE +1D # THRUST VALUE AT CSI 005752,002230: E7,1575 DELVTPI ERASE +1D # THRUST VALUE AT TPI OR MID 005753,002231: E7,1577 E7,1575 DELVMID EQUALS DELVTPI 005754,002232: E7,1577 DIFFALT ERASE +1D # ALT DIFFERENT AT CDH 005755,002233: E7,1601 POSTCSI ERASE +1 # PERIGEE ALTITUDE AFTER CSI MANEUVER 005756,002234: E7,1603 POSTCDH ERASE +1 # PERIGEE ALTITUDE AFTER CDH MANEUVER 005757,002235: E7,1605 POSTTPI ERASE +1 # PERIGEE ALTITUDE AFTER TPI MANEUVER 005758,002236: E7,1607 E7,1605 LOOPCT EQUALS POSTTPI # CSI NEWTON ITERATION COUNTER 005759,002237: E7,1607 E7,1603 HAFPA1 EQUALS POSTCDH # HALF PERIOD 005760,002238: E7,1607 GAMPREV ERASE +1 # PREVIOUS GAMMA 005761,002239: E7,1611 E7,1575 DVPREV EQUALS DELVTPI # PREVIOUS DELVCSI 005762,002240: E7,1611 DELDV ERASE +1D 005763,002241: E7,1613 CSIALRM ERASE +1 # FIRST SOLUTION ALARM 005764,002242: E7,1615 VERBNOUN ERASE 005765,002243: E7,1616 E7,1613 TITER EQUALS CSIALRM # ITERATION COUNTER 005766,002244: E7,1616 RDOTV ERASE +1 005767,002245: E7,1620 E7,1505 VAPREC EQUALS VPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME (ACTIVE) 005768,002246: E7,1620 E7,1477 RAPREC EQUALS RPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME (ACTIVE) 005769,002247: E7,1620 E7,1527 VPPREC EQUALS VPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME (PASSIVE) 005770,002248: E7,1620 E7,1521 RPPREC EQUALS RPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME (PASSIVE) 005771,002249: E7,1620 E7,1575 DELEL EQUALS DELVTPI # I(2) S-S 005772,002250: E7,1620 E7,1611 DELTEE EQUALS DELDV # I(2) S-S 005773,002251: E7,1620 E7,1573 SECMAX EQUALS DELVCSI # I(2) S-S MAX STOP SIZE FOR ROUTINE 005774,002252: E7,1620 E7,1605 DELTEEO EQUALS POSTTPI # I(2) S-S BACK VALUES OF DELTA TIME 005775,002253: E7,1620 CENTANG ERASE +1 # I(2) CENTRAL ANGLE COVERED (TPI-TPF) 005776,002254: 005777,002255: # Page 149 005778,002256: # SOME P47 STORAGE (6D) 005779,002257: 005780,002258: E7,1622 DELVIMU ERASE +5 # I(6)DSP NOUN 83 FOR P47 DELTA V (IMU) 005781,002259: 005782,002260: # P30-P40 COMMON STORAGE. (3D) 005783,002261: 005784,002262: E7,1630 TPASS4 ERASE +1 # INTERCEPT TIME 005785,002263: E7,1632 QTEMP ERASE # I(1)TMP COMMON RETURN SAVE REGISTER. 005786,002264: 005787,002265: # P32,33,34 STORAGE. (6D) 005788,002266: 005789,002267: E7,1633 TCSI ERASE +1 # B(2)TMP CSI TIME IN CENTISECONDS 005790,002268: E7,1635 TTPI ERASE +1 # B(2)TMP TPI TIME IN CENTISECONDS 005791,002269: E7,1637 TTPIO ERASE +1 # B(2)TMP TTPI STORAGE FOR RECYCLE 005792,002270: 005793,002271: # P30,P40 INTERFACE. (21D) 005794,002272: 005795,002273: E7,1641 RTIG ERASE +19D # I(6)TMP 005796,002274: E7,1665 E7,1647 VTIG EQUALS RTIG +6 # I(6)TMP 005797,002275: E7,1665 E7,1655 DELVSIN EQUALS VTIG +6 # I(6)TMP 005798,002276: E7,1665 E7,1663 DELVSAB EQUALS DELVSIN +6 # I(2)TMP 005799,002277: E7,1665 E7,1663 VGDISP = DELVSAB 005800,002278: 005801,002279: E7,1665 QTEMP1 ERASE # I(1)TMP HOLDS RETURN. 005802,002280: E7,1666 E7,1665 RGEXIT EQUALS QTEMP1 # SAVE Q 005803,002281: E7,1666 E7,1665 SAVQR52 EQUALS QTEMP1 005804,002282: 005805,002283: # INITVEL STORAGE. (IN OVERLAY 0 AND OVERLAY 1. (2D) 005806,002284: # (CALLS LAMBERT, CONIC SUBROUTINES) 005807,002285: 005808,002286: E7,1666 E7,1565 VTPRIME EQUALS VACT4 # TOTAL VELOCITY AT DESIRED RADIUS 005809,002287: E7,1666 E7,1616 ITCTR EQUALS RDOTV # ITERATION COUNTER 005810,002288: E7,1666 COZY4 ERASE +1 # COS OF ANGLE WHEN ROTATION STARTS 005811,002289: E7,1670 E7,1611 X1INPUT EQUALS DELDV # X1 TEMP STORAGE 005812,002290: E7,1670 E7,1607 INTIME EQUALS GAMPREV # TIME OF RINIT 005813,002291: 005814,002292: # PERIAPO STORAGE. (2D) 005815,002293: 005816,002294: E7,1670 XXXALT ERASE +1 # RADIUS TO LAUNCH PAD OR LANDING SITE 005817,002295: 005818,002296: # END-IN/M EQUALS XXXALT +2 # NEXT AVAIL ERASABLE AFTER INITVEL/MIDGIM 005819,002297: 005820,002298: # Page 150 005821,002299: # S40.1 STORAGE. (12D) 005822,002300: 005823,002301: E7,1672 UT ERASE +11D # I(6) THRUST DIRECTION 005824,002302: E7,1706 E7,1700 VGTIG EQUALS UT +6 # I(6)OUT 005825,002303: E7,1706 E7,1700 VGPREV = VGTIG 005826,002304: 005827,002305: # ASTEER STORAGE. (22D) 005828,002306: 005829,002307: E7,1706 VG ERASE +21D # I(6) 005830,002308: E7,1734 E7,1714 RMAG EQUALS VG +6 # I(2) 005831,002309: E7,1734 E7,1716 MUASTEER EQUALS RMAG +2 # I(2) 005832,002310: E7,1734 E7,1720 MU/A EQUALS MUASTEER +2 # I(2) 005833,002311: E7,1734 E7,1722 RTMAG EQUALS MU/A +2 # I(2) 005834,002312: E7,1734 E7,1724 R1C EQUALS RTMAG +2 # I(6) 005835,002313: E7,1734 E7,1732 SS EQUALS R1C +6 # I(2) 005836,002314: 005837,002315: E7,1734 E7,1655 IC = DELVSIN 005838,002316: E7,1734 E7,1762 TIGSAVE = P21TIME 005839,002317: E7,1734 E7,1764 TIGSAVEP = SCAXIS 005840,002318: E7,1734 E7,1766 MUSCALE = SCAXIS +2 005841,002319: 005842,002320: # P40 STORAGE. (6D) 005843,002321: 005844,002322: # F, MDOT, AND TDECAY MUST BE CONTIGUOUS FOR WLOAD 005845,002323: 005846,002324: E7,1734 F ERASE +5 # I(2)TMP S40.1 GENERATES THIS FOR S40.3 005847,002325: E7,1742 E7,1736 MDOT EQUALS F +2 # I(2)TMP MASS CHNG RATE, KG/CS AT 2**3. 005848,002326: E7,1742 E7,1740 TDECAY EQUALS MDOT +2 # I(2)IN DELTA-T TAILOFF, (2**28)CS. 005849,002327: E7,1742 VEX ERASE +1 # I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N 005850,002328: 005851,002329: # MIDTOAV1(2) STORAGE. (CALLED BY P40,P41,P42) (1D) 005852,002330: 005853,002331: E7,1744 IRETURN1 ERASE # B(1) RETURN FROM MIDTOAV1 AND 2. 005854,002332: 005855,002333: # Page 151 005856,002334: # ******* OVERLAY NUMBER 1 IN EBANK 7 ******* 005857,002335: 005858,002336: # INITVEL (CALLED BY P34,35,38,39,10,11,S40.9,S40.1) (6D) 005859,002337: 005860,002338: E7,1745 E7,1471 RTARG1 EQUALS VACT1 # I(6)S TEMP STORAGE OF RTARG 005861,002339: 005862,002340: # P35-P40 INTERFACE. (6D) 005863,002341: 005864,002342: E7,1745 E7,1505 VPASS4 EQUALS VPASS1 # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT 005865,002343: 005866,002344: # LAT-LONG TEMPORARIES. CAN OVERLAY WITH S40.1 (3D) 005867,002345: 005868,002346: E7,1745 E7,1672 ERADM EQUALS UT # I(2)TMP LM POSITION VECTOR 005869,002347: E7,1745 E7,1674 INCORPEX EQUALS ERADM +2 # I(1) CM V X R VECTOR 005870,002348: 005871,002349: # LRS24.1 STORAGE. (CAN SHARE WITH P30'S) (40D) 005872,002350: 005873,002351: E7,1745 E7,1675 RLMSRCH EQUALS INCORPEX +1 # I(6)TMP LM POSITION VECTOR 005874,002352: E7,1745 E7,1703 VXRCM EQUALS RLMSRCH +6 # I(6) CM V X R VECTOR 005875,002353: E7,1745 E7,1711 LOSDESRD EQUALS VXRCM +6 # I(6) DESIRED LOS VECTOR 005876,002354: E7,1745 E7,1717 UXVECT EQUALS LOSDESRD +6 # I(6) X-AXIS SRCH PATTERN COORDS 005877,002355: E7,1745 E7,1725 UYVECT EQUALS UXVECT +6 # I(6) Y-AXIS SRCH PATTERN COORDS 005878,002356: E7,1745 E7,1733 DATAGOOD EQUALS UYVECT +6 # B(1)DSP FOR R1 -- ALL 1-S WHEN LOCKON 005879,002357: E7,1745 E7,1734 OMEGDISP EQUALS DATAGOOD +1 # B(2) ANGLE OMEGA DISPLAYED IN R2 005880,002358: E7,1745 E7,1734 OMEGAD = OMEGDISP # PINBALL DEFINITION 005881,002359: E7,1745 E7,1736 NSRCHPNT EQUALS OMEGDISP +2 # B(1)TMP SEARCH PATTERN POINT COUNTER. 005882,002360: E7,1745 E7,1737 SAVLEMV EQUALS NSRCHPNT +1 # I(6)S-S SAVES LOSVEL 005883,002361: 005884,002362: # Page 152 005885,002363: # ******* OVERLAY NUMBER 2 IN EBANK 7 ******* 005886,002364: 005887,002365: # INCORP STORAGE IN E7. (47D) 005888,002366: 005889,002367: E7,1745 E7,1471 TX789 EQUALS E7OVERLA # I(6) 005890,002368: E7,1745 E7,1477 GAMMA EQUALS TX789 +6 # I(3) 005891,002369: E7,1745 E7,1502 OMEGA EQUALS GAMMA +3 # I(18) 005892,002370: E7,1745 E7,1524 BVECTOR EQUALS OMEGA +18D # I(18) 005893,002371: E7,1745 E7,1546 DELTAQ EQUALS BVECTOR +18D # I(2) 005894,002372: 005895,002373: # AOTMARK STORAGE (3D) 005896,002374: 005897,002375: E7,1745 E7,1550 MARKCNTR EQUALS DELTAQ +2 # I(1) 005898,002376: E7,1745 E7,1551 XYMARK EQUALS MARKCNTR +1 # B(1) 005899,002377: E7,1745 E7,1552 MKDEX EQUALS XYMARK +1 # B(1)TMP INDEX FOR AOTMARK 005900,002378: 005901,002379: # PLANET STORAGE (8D) 005902,002380: 005903,002381: E7,1745 E7,1553 PLANVEC EQUALS MKDEX +1 # (6) REFER VECTOR OF PLANET 005904,002382: E7,1745 E7,1561 TSIGHT EQUALS PLANVEC +6 # (2) TIME OF MARK OR EST TIME OF MARK 005905,002383: 005906,002384: # LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1) (30D) 005907,002385: 005908,002386: E7,1745 E7,1675 LGRET EQUALS RLMSRCH # I(1)TMP 005909,002387: E7,1745 E7,1675 RDRET EQUALS LGRET # B(1) TEMP RETURN. 005910,002388: E7,1745 E7,1675 IGRET EQUALS LGRET # B(1) TEMP RETURN. 005911,002389: E7,1745 E7,1676 MX EQUALS RDRET +1 # I(6) 005912,002390: E7,1745 E7,1704 MY EQUALS MX +6 # I(6) 005913,002391: E7,1745 E7,1712 MZ EQUALS MY +6 # I(6) 005914,002392: E7,1745 E7,1676 E0 EQUALS MX # I(2) 005915,002393: E7,1745 E7,1700 E1 EQUALS MX +2 # I(2) 005916,002394: E7,1745 E7,1702 E2 EQUALS MX +4 # I(2) 005917,002395: E7,1745 E7,1704 E3 EQUALS E2 +2 # I(2) 005918,002396: E7,1745 E7,1720 SCALSHFT EQUALS MZ +6 # B(1) SCALE SHIFT FOR EARTH/MOON 005919,002397: E7,1745 E7,1721 RXZ EQUALS SCALSHFT +1 # I(2) 005920,002398: E7,1745 E7,1723 ULC EQUALS RXZ +2 # I(6) 005921,002399: E7,1745 E7,1731 SINTHETA EQUALS ULC +6 # I(2) 005922,002400: 005923,002401: # ***** IN OVERLAY ONE ***** 005924,002402: 005925,002403: E7,1745 E7,1746 N49FLAG EQUALS RDOTMSAV # B(1)S FLAG INDICATING V0649 RESPONSE 005926,002404: 005927,002405: # LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S) (13D) 005928,002406: 005929,002407: # (OUTPUTS ARE TO LRS22.3) 005930,002408: 005931,002409: # Page 153 005932,002410: E7,1745 E7,1733 RRTRUN EQUALS SINTHETA +2 # B(2)OUT RR TRUNNION ANGLE 005933,002411: E7,1745 E7,1735 RRSHAFT EQUALS RRTRUN +2 # B(2)OUT RR SHAFT ANGLE 005934,002412: E7,1745 E7,1737 LRS22.1X EQUALS RRSHAFT +2 # B(1)TMP 005935,002413: E7,1745 E7,1740 RRBORSIT EQUALS LRS22.1X +1 # I(6)TMP RADAR BORESIGHT VECTOR. 005936,002414: E7,1745 E7,1746 RDOTMSAV EQUALS RRBORSIT +6 # B(2)S RR RANGE-RATE (FPS) 005937,002415: 005938,002416: # LRS22.1 (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR (R29) (10D) CANNOT SHARE WITH L.A.D. 005939,002417: 005940,002418: E7,1745 E7,1750 RDOTM EQUALS RDOTMSAV +2 # B(2)OUT RANGE-RATE READING 005941,002419: E7,1745 E7,1752 TANGNB EQUALS RDOTM +2 # B(2)TMP RR GIMBAL ANGLES 005942,002420: # RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES 005943,002421: E7,1745 E7,1754 MKTIME EQUALS TANGNB +2 # B(2)OUT TIME OF RR READING 005944,002422: E7,1745 E7,1756 RM EQUALS MKTIME +2 # I(2)OUT RANGE READING 005945,002423: E7,1745 E7,1760 RANGRDOT EQUALS RM +2 # B(2) DOWNLINKED RAW RANGE AND RRATE 005946,002424: 005947,002425: # LANDING OVERLAY (1D) 005948,002426: 005949,002427: E7,1745 E7,1750 THRDISP EQUALS RDOTM # B(1) PERCENT OF FTP I 10,500 LBS. 005950,002428: 005951,002429: # R61LEM -- PREFERRED TRACKING ATTITUDE ROUTINE **IN OVERLAY ONE** 005952,002430: # (CALLED BY P20, R22LEM, LSR22.3) (1D) 005953,002431: 005954,002432: E7,1745 E7,1745 R65CNTR EQUALS RRBORSIT +5 # B(1)SS COUNT NUMBER OF TIMES PREFERRED 005955,002433: # TRACKING ROUTINE IS TO CYCLE 005956,002434: 005957,002435: # P21 STORAGE (2D) 005958,002436: 005959,002437: E7,1745 E7,1762 P21TIME EQUALS RANGRDOT +2 # I(2)TMP 005960,002438: 005961,002439: # KALCMANU, VECPOINT STORAGE. CALLED BY R63, R61, R65. (12D) 005962,002440: 005963,002441: E7,1745 E7,1764 SCAXIS EQUALS P21TIME +2 # I(6) 005964,002442: E7,1745 E7,1772 POINTVSM EQUALS SCAXIS +6 # I(6) 005965,002443: 005966,002444: # Page 154 005967,002445: 005968,002446: # ******* OVERLAY NUMBER 3 IN EBANK 7 ******* 005969,002447: 005970,002448: # SERVICER STORAGE (6D) 005971,002449: 005972,002450: E7,1745 E7,1471 ABVEL EQUALS E7OVERLA # B(2) DISPLAY 005973,002451: E7,1745 E7,1473 HDOTDISP EQUALS ABVEL +2 # B(2) DISPLAY 005974,002452: E7,1745 E7,1475 TTFDISP EQUALS HDOTDISP +2 # B(2) DISPLAY 005975,002453: 005976,002454: # BURN PROG STORAGE. (2D) 005977,002455: 005978,002456: E7,1745 E7,1477 SAVET-30 EQUALS TTFDISP +2 # B(2)TMP TIG-30 RESTART 005979,002457: 005980,002458: # SERVICER STORAGE. (69D) 005981,002459: 005982,002460: E7,1745 E7,1501 VGBODY EQUALS SAVET-30 +2 # B(6)OUT SET BY S41.1 VG LEM, SC.COORDS 005983,002461: E7,1745 E7,1501 DELVCTL = VGBODY 005984,002462: E7,1745 E7,1507 DVTOTAL EQUALS VGBODY +6 # B(2) DISPLAY NOUN 005985,002463: E7,1745 E7,1511 GOBLTIME EQUALS DVTOTAL +2 # B(2) NOMINAL TIG FOR CALC. OF GOBLATE. 005986,002464: E7,1745 E7,1513 ABDVCONV EQUALS GOBLTIME +2 # I(2) 005987,002465: E7,1745 E7,1515 DVCNTR EQUALS ABDVCONV +2 # B(1) 005988,002466: E7,1745 E7,1516 TGO EQUALS DVCNTR +1 # B(2) 005989,002467: E7,1745 E7,1520 R EQUALS TGO +2 # I(6) 005990,002468: E7,1745 E7,1520 UNITGOBL EQUALS R # I(6) 005991,002469: E7,1745 E7,1526 V EQUALS R +6 005992,002470: E7,1745 E7,1526 DELVREF EQUALS V # I(6) 005993,002471: E7,1745 E7,1534 HCALC EQUALS DELVREF +6 # B(2) LR 005994,002472: E7,1745 E7,1536 UNIT/R/ EQUALS HCALC +2 # I(6) 005995,002473: 005996,002474: # (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE) 005997,002475: 005998,002476: E7,1745 E7,1544 RN1 EQUALS UNIT/R/ +6 # B(6) 005999,002477: E7,1745 E7,1552 VN1 EQUALS RN1 +6 # I(6) ( IN ORDER ) 006000,002478: E7,1745 E7,1560 PIPTIME1 EQUALS VN1 +6 # B(2) ( FOR ) 006001,002479: E7,1745 E7,1562 GDT1/2 EQUALS PIPTIME1 +2 # I(6) ( COPY ) 006002,002480: E7,1745 E7,1570 MASS1 EQUALS GDT1/2 +6 # I(2) ( CYCLE ) 006003,002481: E7,1745 E7,1572 R1S EQUALS MASS1 +2 # I(6) 006004,002482: E7,1745 E7,1600 V1S EQUALS R1S +6 # I(6) 006005,002483: 006006,002484: # ALIGNMENT/S40.2,3 COMMON STORAGE. (18D) 006007,002485: 006008,002486: E7,1745 E7,1606 XSMD EQUALS V1S +6 # I(6) 006009,002487: E7,1745 E7,1614 YSMD EQUALS XSMD +6 # I(6) 006010,002488: E7,1745 E7,1622 ZSMD EQUALS YSMD +6 # I(6) 006011,002489: 006012,002490: E7,1745 E7,1606 XSCREF = XSMD 006013,002491: E7,1745 E7,1614 YSCREF = YSMD 006014,002492: # Page 155 006015,002493: E7,1745 E7,1622 ZSCREF = ZSMD 006016,002494: 006017,002495: E7,1745 E7,1630 END-ALIG EQUALS ZSMD +6 # NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3 006018,002496: 006019,002497: # ****** P22 ****** (24D) 006020,002498: 006021,002499: E7,1745 E7,1630 RSUBL EQUALS END-ALIG # I(6)S-S LM POSITION VECTOR 006022,002500: E7,1745 E7,1636 UCSM EQUALS RSUBL +6 # I(6)S-S VECTOR U 006023,002501: E7,1745 E7,1644 NEWVEL EQUALS UCSM +6 # I(6)S-S TERMINAL VELOCITY VECTOR 006024,002502: E7,1745 E7,1652 NEWPOS EQUALS NEWVEL +6 # I(6)S-S TERMINAL POSITION VECTOR 006025,002503: E7,1745 E7,1660 LNCHTM EQUALS NEWPOS +6 # I(2)S-S EST. LAUNCH TIME FOR LEM 006026,002504: E7,1745 E7,1662 TRANSTM EQUALS LNCHTM +2 # I(2)S-S TRANSFER TIME 006027,002505: E7,1745 E7,1664 NCSMVEL EQUALS TRANSTM +2 # I(6)S-S NEW CSM VELOCITY 006028,002506: 006029,002507: # ****** P21 ****** (18D) 006030,002508: 006031,002509: E7,1745 1162 P21ORIG = DISPDEX 006032,002510: E7,1745 E7,1675 P21BASER EQUALS RLMSRCH # I(6)TMP 006033,002511: E7,1745 E7,1703 P21BASEV EQUALS P21BASER +6 # I(6)TMP 006034,002512: E7,1745 E7,1711 P21VEL EQUALS P21BASEV +6 # I(2)TMP *** NOUN 91 *** 006035,002513: E7,1745 E7,1713 P21GAM EQUALS P21VEL +2 # I(2)TMP *** NOUN 91 *** 006036,002514: E7,1745 E7,1715 P21ALT EQUALS P21GAM +2 # I(2)TMP *** NOUN 91 *** 006037,002515: 006038,002516: # Page 156 006039,002517: # ******* OVERLAY NUMBER 4 IN EBANK 7 ******* 006040,002518: 006041,002519: # VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING) (18D) 006042,002520: 006043,002521: # THESE ERASABLES MAY BE SHARED WITH CARE 006044,002522: 006045,002523: E7,1745 E7,1544 OURTEMPS = RN1 # OVERLAY LAST PART OF SERVICER 006046,002524: E7,1745 E7,1544 LANDTEMP = OURTEMPS # B(6) GUIDANCE 006047,002525: E7,1745 E7,1552 TTF/8TMP = LANDTEMP +6 # B(2) GUIDANCE 006048,002526: E7,1745 E7,1554 ELINCR = TTF/8TMP +2 # B(2) GUIDANCE 006049,002527: E7,1745 E7,1556 AZINCR = ELINCR +2 # B(2) GUIDANCE 006050,002528: E7,1745 E7,1560 KEEP-2 = AZINCR +2 # B(2) GUIDANCE 006051,002529: E7,1745 E7,1562 TABLTTF = KEEP-2 +2 # B(2) GUIDANCE 006052,002530: E7,1745 E7,1573 TPIPOLD = TABLTTF +9D # B(2) GUIDANCE 006053,002531: E7,1745 E7,1621 E2DPS EQUALS OURPERMS 006054,002532: 006055,002533: # THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER 006056,002534: 006057,002535: E7,1745 E7,1606 PIFPSET = XSMD # B(1) THROTTLE 006058,002536: E7,1745 E7,1607 RTNHOLD = PIFPSET +1 # B(1) THROTTLE 006059,002537: E7,1745 E7,1610 FWEIGHT = RTNHOLD +1 # B(2) THROTTLE 006060,002538: E7,1745 E7,1612 PIF = FWEIGHT +2 # B(2) THROTTLE 006061,002539: E7,1745 E7,1614 PSEUDO55 = PIF +2 # B(1) THROTTLE DOWNLINK 006062,002540: E7,1745 E7,1615 FC = PSEUDO55 +1 # B(2) THROTTLE 006063,002541: E7,1745 E7,1617 TTHROT = FC +2 # B(1) THROTTLE 006064,002542: E7,1745 E7,1620 FCOLD = TTHROT +1 # B(1) THROTTLE 006065,002543: 006066,002544: # THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67 006067,002545: 006068,002546: E7,1745 E7,1621 OURPERMS = FCOLD +1 # B(1) GUIDANCE 006069,002547: E7,1745 E7,1621 WCHPHOLD = OURPERMS # B(1) GUIDANCE 006070,002548: E7,1745 E7,1622 FILLER = WCHPHOLD +1 006071,002549: E7,1745 E7,1623 FLPASS0 = FILLER +1 # B(1) GUIDANCE 006072,002550: E7,1745 E7,1624 TPIP = FLPASS0 +1 # B(2) 006073,002551: E7,1745 E7,1626 VGU = TPIP +2 # B(6) GUIDANCE 006074,002552: E7,1745 E7,1634 LAND = VGU +6 # B(6) GUIDANCE CONTIGUOUS 006075,002553: E7,1745 E7,1642 TTF/8 = LAND +6 # B(2) GUIDANCE CONTIGUOUS 006076,002554: E7,1745 E7,1644 ELIDUMMY = TTF/8 +2 # (1) DUMMY FOR ELINCR1 006077,002555: E7,1745 E7,1645 AZIDUMMY = ELIDUMMY +1 # (1) DUMMY FOR AZONCR1 006078,002556: E7,1745 E7,1646 ZERDUMMY = AZIDUMMY +1 # (1) DUMMY FOR ZERLINA 006079,002557: E7,1745 E7,1647 ELVDUMMY = ZERDUMMY +1 # (1) DUMMY FOR ELVIRA 006080,002558: E7,1745 E7,1650 LRADRET = ELVDUMMY +1 # B(1) LR 006081,002559: E7,1745 E7,1651 VSELECT = LRADRET +1 # B(1) LR 006082,002560: E7,1745 E7,1652 VMEAS = VSELECT +1 # B(2) LR 006083,002561: E7,1745 E7,1654 HMEAS = VMEAS +2 # B(2) LR 006084,002562: E7,1745 E7,1656 VN2 = HMEAS +2 # B(6) LR 006085,002563: # Page 157 006086,002564: E7,1745 E7,1656 GNUR = VN2 # B(6) LR 006087,002565: E7,1745 E7,1656 GNUV = VN2 # B(6) LR 006088,002566: E7,1745 E7,1656 LRADRET1 = VN2 # B(1) LR 006089,002567: E7,1745 E7,1664 DELTAH = VN2 +6 # B(2) DISPLAY 006090,002568: E7,1745 E7,1666 FUNNYDSP = DELTAH +2 # B(2) DISPLAY 006091,002569: E7,1745 E7,1670 EOURPERM EQUALS FUNNYDSP +2 # NEXT AVAILABLE ERASABLE AFTER OURPERMS 006092,002570: 006093,002571: # (ERASABLES WHICH OVERLAY THE ABOVE BLOCK) 006094,002572: 006095,002573: E7,1745 E7,1644 VDGVERT = ELIDUMMY # B(2) P65,P66 006096,002574: E7,1745 E7,1646 NIGNLOOP = ZERDUMMY # B(1) IGNALG 006097,002575: E7,1745 E7,1647 NGUIDSUB = ELVDUMMY # B(1) IGNALG 006098,002576: E7,1745 E7,1647 WCHVERT = ELVDUMMY # B(1) P65,P66,P67 006099,002577: E7,1745 E7,1666 FUELNEED = FUNNYDSP # B(1) DISPLAY 006100,002578: E7,1745 E7,1666 TREDES = FUNNYDSP # B(1) DISPLAY 006101,002579: E7,1745 E7,1667 LOOKANGL = FUNNYDSP +1 # B(1) DISPLAY 006102,002580: 006103,002581: # ERASABLES CONVENIENTLY DEFINABLE IN THE WORK AREA 006104,002582: 006105,002583: E7,1745 PROJ = 18D # I(2) GUIDANCE 006106,002584: E7,1745 UNLRB/2 = 20D # I(6) GUIDANCE (DURING P64 ONLY) 006107,002585: E7,1745 UNLR/2 = 20D # I(6) GUIDANCE 006108,002586: 006109,002587: # THE END OF THE LUNAR LANDING ERASABLES 006110,002588: 006111,002589: # R12 (FOR LUNAR LANDING) (6D) 006112,002590: 006113,002591: E7,1745 E7,1670 LRLCTR EQUALS EOURPERM # B(1) LR DATA TEST 006114,002592: E7,1745 E7,1671 LRRCTR EQUALS LRLCTR +1 # B(1) 006115,002593: E7,1745 E7,1672 LRMCTR EQUALS LRRCTR +1 # B(1) 006116,002594: E7,1745 E7,1673 LRSCTR EQUALS LRMCTR +1 # B(1) 006117,002595: E7,1745 E7,1674 STILBADH EQUALS LRSCTR +1 # B(1) 006118,002596: E7,1745 E7,1675 STILBADV EQUALS STILBADH +1 # B(1) 006119,002597: 006120,002598: # LANDING ANALOGS DISPLAY STORAGE. (40D) 006121,002599: 006122,002600: E7,1745 E7,1676 LATVMETR EQUALS STILBADV +1 # B(1)PRM LATVEL MONITOR METER (AN ORDER) 006123,002601: E7,1745 E7,1677 FORVMETR EQUALS LATVMETR +1 # B(1)PRM FORVEL MONITOR METER (-ED PAIR) 006124,002602: E7,1745 E7,1700 LATVEL EQUALS FORVMETR +1 # B(1)PRM LATERAL VELOCITY (AN ORDER) 006125,002603: E7,1745 E7,1701 FORVEL EQUALS LATVEL +1 # B(1)PRM FORWARD VELOCITY (-ED PAIR) 006126,002604: E7,1745 E7,1702 TRAKLATV EQUALS FORVEL +1 # B(1)PRM MONITOR FLG 4 LATVEL (AN ORDER) 006127,002605: E7,1745 E7,1703 TRAKFWDV EQUALS TRAKLATV +1 # B(1)PRM MONIT. FLAG FOR FORVEL (ED PAIR) 006128,002606: E7,1745 E7,1704 VHY EQUALS TRAKFWDV +1 # B(1)PRM VHY=VMP.UHYP (AN ORDER) 006129,002607: # Page 158 006130,002608: E7,1745 E7,1705 VHZ EQUALS VHY +1 # B(1)PRM VHZ=VMP.UHZP (-ED PAIR) 006131,002609: E7,1745 E7,1706 VVECT EQUALS VHZ +1 # B(3)PRM UPDATED S.P. VELOCITY VECTOR 006132,002610: E7,1745 E7,1711 ALTRATE EQUALS VVECT +3 # B(1)PRM ALTITUDE RATE IN BIT UNITS 006133,002611: E7,1745 E7,1712 ALTSAVE EQUALS ALTRATE +1 # B(2)PRM ALTITUDE IN BIT UNITS 006134,002612: E7,1745 E7,1714 LADQSAVE EQUALS ALTSAVE +2 # B(1)PARM SAVE Q IN LAND1SP 006135,002613: E7,1745 E7,1715 DT EQUALS LADQSAVE +1 # B(1)PRM TIME 1 MINUS (PIPTIME +1) 006136,002614: E7,1745 E7,1716 DALTRATE EQUALS DT +1 # B(1)PRM ALTITUDE RATE ERROR CORRECTION 006137,002615: E7,1745 E7,1717 UHYP EQUALS DALTRATE +1 # B(6)PRM SM UNIT VECTOR 006138,002616: E7,1745 E7,1717 QAXIS = UHYP 006139,002617: E7,1745 E7,1725 UHZP EQUALS UHYP +6 # B(6)PRM SM UNIT VECTOR 006140,002618: E7,1745 E7,1733 DELVS EQUALS UHZP +6 # B(6)PRM DELVS = WMXR 006141,002619: E7,1745 E7,1741 ALTBITS EQUALS DELVS +6 # B(2)PRM ALTITUDE IN BIT UNITS. 2.34 FT/BIT 006142,002620: E7,1745 E7,1743 RUNIT EQUALS ALTBITS +2 # B(3)PRM SM HALF-UNIT R VECTOR 006143,002621: E7,1745 E7,1745 LASTLADW EQUALS RUNIT +2 # ONLY A TAG TO SIGNIFY LAST L.A.D. WORD 006144,002622: 006145,002623: # P66 ERASABLES (R.O.D.) (1D) 006146,002624: 006147,002625: E7,1745 E7,1746 RODCOUNT EQUALS RUNIT +3 006148,002626: 006149,002627: # P66 ERASABLES (R.O.D.) (14D) 006150,002628: 006151,002629: E7,1745 E7,1756 RODSCAL1 EQUALS RM # B(1) 006152,002630: E7,1745 E7,1757 LASTTPIP EQUALS RODSCAL1 +1 # I(2) 006153,002631: E7,1745 E7,1761 THISTPIP EQUALS LASTTPIP +2 # B(2) 006154,002632: E7,1745 E7,1763 OLDPIPAX EQUALS THISTPIP +2 # B(1) 006155,002633: E7,1745 E7,1764 OLDPIPAY EQUALS OLDPIPAX +1 # B(1) 006156,002634: E7,1745 E7,1765 OLDPIPAZ EQUALS OLDPIPAY +1 # B(1) 006157,002635: E7,1745 E7,1766 DELVROD EQUALS OLDPIPAZ +1 # B(6) 006158,002636: 006159,002637: # NOUN 63 COMPONENT (2D) 006160,002638: 006161,002639: E7,1745 E7,1774 HCALC1 EQUALS DELVROD +6 # I(2) 006162,002640: 006163,002641: # Page 159 006164,002642: # ******* OVERLAY NUMBER 5 IN EBANK 7 ******* 006165,002643: 006166,002644: # ASCENT GUIDANCE ERASABLES. (21D) 006167,002645: 006168,002646: E7,1745 E7,1630 RCO EQUALS END-ALIG # I(2)TMP TARGET RADIUS AND OUT-OF-PLANE 006169,002647: E7,1745 E7,1632 YCO EQUALS RCO +2 # I(2)TMP DISTANCE, SCALED AT 2(24). 006170,002648: E7,1745 E7,1634 1/DV1 EQUALS YCO +2 # B(2)TMP ATMAG 006171,002649: E7,1745 E7,1636 1/DV2 EQUALS 1/DV1 +2 # B(2)TMP ATMAG 006172,002650: E7,1745 E7,1640 1/DV3 EQUALS 1/DV2 +2 # B(2)TMP ATMAG 006173,002651: E7,1745 E7,1642 XRANGE EQUALS 1/DV3 +2 # B(2)TMP 006174,002652: E7,1745 E7,1644 ENGOFFDT EQUALS XRANGE +2 # B(1)TMP 006175,002653: E7,1745 E7,1645 VGVECT EQUALS ENGOFFDT +1 # I(6)OUT VELOCITY-TO-BE-GAINED. 006176,002654: E7,1745 E7,1653 TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE 006177,002655: # IS ALLOWED. 006178,002656: 006179,002657: # END OF THE ASCENT GUIDANCE ERASABLES 006180,002658: 006181,002659: # THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES. 006182,002660: 006183,002661: E7,1745 E7,1745 END-E7.0 EQUALS IRETURN1 +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 0 006184,002662: E7,1745 E7,1747 END-E7.1 EQUALS N49FLAG +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 1 006185,002663: E7,1745 E7,1777 END-E7.2 EQUALS POINTVSM +6 # FIRST UNUSED LOCATION IN E7 OVERLAY 2 006186,002664: E7,1745 E7,1630 END-E7.3 EQUALS END-ALIG # FIRST UNUSED LOCATION IN E7 OVERLAY 3 006187,002665: E7,1745 END-E7.4 EQUALS 3777 # ** LAST LOCATION USED IN E7 OVERLAY 4 ** 006188,002666: E7,1745 E7,1655 END-E7.5 EQUALS TXO +2 # FIRST UNUSED LOCATION IN E7 OVERLAY 5 006189,002667: E7,1745 END-E7 EQUALS 3777 # ** LAST LOCATION USED IN E7 ** 006190,002668: End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc