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