Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
004653,000002: ## Copyright: Public domain.
004654,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
004655,000004: ## Purpose: A section of LUM69 revision 2.
004656,000005: ## It is part of the reconstructed source code for the flown
004657,000006: ## version of the flight software for the Lunar Module's (LM)
004658,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
004659,000008: ## been recreated from a copy of Luminary revsion 069, using
004660,000009: ## changes present in Luminary 099 which were described in
004661,000010: ## Luminary memos 75 and 78. The code has been adapted such
004662,000011: ## that the resulting bugger words exactly match those specified
004663,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
004664,000013: ## relatively high confidence that the reconstruction is correct.
004665,000014: ## Reference: pp. 106-167
004666,000015: ## Assembler: yaYUL
004667,000016: ## Contact: Ron Burkey <info@sandroid.org>.
004668,000017: ## Website: www.ibiblio.org/apollo/index.html
004669,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
004670,000019: ## 2019-07-27 MAS Added E3J22R2M and E32C31RM padload erasables
004671,000020: ## for LUM69 rev 2.
004672,000021: ## 2020-12-14 RSB Tweaked the annotation relevant to the
004673,000022: ## change mentioned above to conform to the
004674,000023: ## style and extent of similar justifying
004675,000024: ## annotations previously added to
004676,000025: ## Comanche 44 and 51.
004677,000026: ## 2021-05-30 ABS W.INDI -> W.IND1
004678,000027: ## TTPIO -> TTPI0
004679,000028:
|
|
Page 106
|
004681,000030: # CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
004682,000031:
004683,000032: # EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP
004684,000033: # OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
004685,000034: # CHANGING OF ONLY ONE CARD. EXAMPLE.
004686,000035:
004687,000036: # X EQUALS START
004688,000037: # Y EQUALS X +SIZE.X
004689,000038: # Z EQUALS Y +SIZE.Y
004690,000039:
004691,000040: # (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START. )
004692,000041: # (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
004693,000042: # USUALLY NUMERIC, IE. 1, 2, 6, 18D ETC. )
004694,000043:
004695,000044: # EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
004696,000045: # AND DIFFERENT DATA). EXAMPLE.
004697,000046:
004698,000047: # X EQUALS Y
004699,000048:
004700,000049: # = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
004701,000050: # (THIS IS LOGICAL EQUIVALENCE, NOT SHARING) EXAMPLE.
004702,000051:
004703,000052: # X = Y
004704,000053:
004705,000054: # THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
004706,000055: # THE COMMENTS IN THE FOLLOWING FORM. M(SIZE)N.
004707,000056:
004708,000057: # M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
004709,000058: # B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
004710,000059: # INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
004711,000060: # I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
004712,000061: # INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
004713,000062: # INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
004714,000063:
004715,000064: # SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
004716,000065:
004717,000066: # N INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
004718,000067: # PL MEANS THAT THE CONTENTS ARE PAD LOADED.
004719,000068: # DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
004720,000069: # PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
004721,000070: # IS USED DURING THE ENTIRE MISSION FOR ONE
004722,000071: # PURPOSE AND CANNOT BE SHARED.
004723,000072: # TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
004724,000073: # IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
004725,000074: # IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET
004726,000075: # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
004727,000076: # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS
004728,000077:
|
|
Page 107
|
004730,000079: # IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH
004731,000080: # IS NOT ACTIVE IN PARALLEL.
004732,000081: # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
004733,000082: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004734,000083: # OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
004735,000084: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004736,000085:
|
|
Page 108
|
004738,000087: # SPECIAL REGISTERS.
004739,000088:
004740,000089: 24,2022 A EQUALS 0
004741,000090: 24,2022 L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS.
004742,000091: 24,2022 Q EQUALS 2
004743,000092: 24,2022 EBANK EQUALS 3
004744,000093: 24,2022 FBANK EQUALS 4
004745,000094: 24,2022 Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
004746,000095: 24,2022 BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
004747,000096: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
004748,000097:
004749,000098: 24,2022 ARUPT EQUALS 10 # INTERRUPT STORAGE.
004750,000099: 24,2022 LRUPT EQUALS 11
004751,000100: 24,2022 QRUPT EQUALS 12
004752,000101: 24,2022 SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2.
004753,000102: 24,2022 ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
004754,000103: 24,2022 BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
004755,000104: 24,2022 BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
004756,000105:
004757,000106: 24,2022 CYR EQUALS 20
004758,000107: 24,2022 SR EQUALS 21
004759,000108: 24,2022 CYL EQUALS 22
004760,000109: 24,2022 EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
004761,000110:
004762,000111: 24,2022 TIME2 EQUALS 24
004763,000112: 24,2022 TIME1 EQUALS 25
004764,000113: 24,2022 TIME3 EQUALS 26
004765,000114: 24,2022 TIME4 EQUALS 27
004766,000115: 24,2022 TIME5 EQUALS 30
004767,000116: 24,2022 TIME6 EQUALS 31
004768,000117: 24,2022 CDUX EQUALS 32
004769,000118: 24,2022 CDUY EQUALS 33
004770,000119: 24,2022 CDUZ EQUALS 34
004771,000120: 24,2022 CDUT EQUALS 35 # REND RADAR TRUNNION CDU
004772,000121: 24,2022 CDUS EQUALS 36 # REND RADAR SHAFT CDU
004773,000122: 24,2022 PIPAX EQUALS 37
004774,000123: 24,2022 PIPAY EQUALS 40
004775,000124: 24,2022 PIPAZ EQUALS 41
004776,000125: 24,2022 Q-RHCCTR EQUALS 42 # RHC COUNTER REGISTERS
004777,000126: 24,2022 P-RHCCTR EQUALS 43
004778,000127: 24,2022 R-RHCCTR EQUALS 44
004779,000128: 24,2022 INLINK EQUALS 45
004780,000129: 24,2022 RNRAD EQUALS 46
004781,000130: 24,2022 GYROCMD EQUALS 47
004782,000131: 24,2022 CDUXCMD EQUALS 50
004783,000132: 24,2022 CDUYCMD EQUALS 51
004784,000133: 24,2022 CDUZCMD EQUALS 52
004785,000134: 24,2022 CDUTCMD EQUALS 53 # RADAR TRUNNION COMMAND
004786,000135: 24,2022 CDUSCMD EQUALS 54 # RADAR SHAFT COMMAND
004787,000136:
|
|
Page 109
|
004789,000138: 24,2022 THRUST EQUALS 55
004790,000139: 24,2022 LEMONM EQUALS 56
004791,000140: 24,2022 OUTLINK EQUALS 57
004792,000141: 24,2022 ALTM EQUALS 60
004793,000142:
004794,000143: # INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
004795,000144:
004796,000145: 24,2022 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
004797,000146: 24,2022 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
004798,000147: 24,2022 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTERS RELATIVE
004799,000148: 24,2022 X2 EQUALS 39D # TO THE WORK AREA.
004800,000149: 24,2022 S1 EQUALS 40D
004801,000150: 24,2022 S2 EQUALS 41D
004802,000151: 24,2022 QPRET EQUALS 42D
004803,000152:
004804,000153: # INPUT/OUTPUT CHANNELS
004805,000154:
004806,000155: # *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
004807,000156: 24,2022 0000001 LCHAN EQUALS L
004808,000157: 24,2022 0000002 QCHAN EQUALS Q
004809,000158: 24,2022 HISCALAR EQUALS 3
004810,000159: 24,2022 LOSCALAR EQUALS 4
004811,000160: 24,2022 CHAN5 EQUALS 5
004812,000161: 24,2022 CHAN6 EQUALS 6
004813,000162: 24,2022 SUPERBNK EQUALS 7 # SUPER-BANK.
004814,000163: 24,2022 OUT0 EQUALS 10
004815,000164: 24,2022 DSALMOUT EQUALS 11
004816,000165: 24,2022 CHAN12 EQUALS 12
004817,000166: 24,2022 CHAN13 EQUALS 13
004818,000167: 24,2022 CHAN14 EQUALS 14
004819,000168: 24,2022 MNKEYIN EQUALS 15
004820,000169: 24,2022 NAVKEYIN EQUALS 16
004821,000170: 24,2022 CHAN30 EQUALS 30
004822,000171: 24,2022 CHAN31 EQUALS 31
004823,000172: 24,2022 CHAN32 EQUALS 32
004824,000173: 24,2022 CHAN33 EQUALS 33
004825,000174: 24,2022 DNTM1 EQUALS 34
004826,000175: 24,2022 DNTM2 EQUALS 35
004827,000176: # END OF CHANNEL ASSIGNMENTS
004828,000177:
|
|
Page 110
|
004830,000179: # INTERPRETIVE SWITCH BIT ASSIGNMENTS
004831,000180:
004832,000181:
004833,000182: # ** FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION. **
004834,000183:
|
|
Page 111
|
004836,000185: # GENERAL ERASABLE ASSIGNMENTS.
004837,000186:
004838,000187: 0061 SETLOC 61
004839,000188: # INTERRUPT TEMPORARY STORAGE POOL. (11D)
004840,000189:
004841,000190: # (ITEMP1 THROUGH RUPTREG4)
004842,000191:
004843,000192: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
004844,000193: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
004845,000194:
004846,000195: 0061 ITEMP1 ERASE
004847,000196: 0062 0061 WAITEXIT EQUALS ITEMP1
004848,000197: 0062 0061 EXECTEM1 EQUALS ITEMP1
004849,000198:
004850,000199: 0062 ITEMP2 ERASE
004851,000200: 0063 0062 WAITBANK EQUALS ITEMP2
004852,000201: 0063 0062 EXECTEM2 EQUALS ITEMP2
004853,000202:
004854,000203: 0063 ITEMP3 ERASE
004855,000204: 0064 0063 RUPTSTOR EQUALS ITEMP3
004856,000205: 0064 0063 WAITADR EQUALS ITEMP3
004857,000206: 0064 0063 NEWPRIO EQUALS ITEMP3
004858,000207:
004859,000208: 0064 ITEMP4 ERASE
004860,000209: 0065 0064 LOCCTR EQUALS ITEMP4
004861,000210: 0065 0064 WAITTEMP EQUALS ITEMP4
004862,000211:
004863,000212: 0065 ITEMP5 ERASE
004864,000213: 0066 0065 NEWLOC EQUALS ITEMP5
004865,000214:
004866,000215: 0066 ITEMP6 ERASE
004867,000216: # NEWLOC+1 EQUALS ITEMP6 DP ADDRESS.
004868,000217:
004869,000218: 0067 SETLOC 67
004870,000219: 0067 NEWJOB ERASE # MUST BE AT LOC 67 DUE TO WIRING.
004871,000220:
004872,000221: 0070 RUPTREG1 ERASE
004873,000222: 0071 RUPTREG2 ERASE
004874,000223: 0072 RUPTREG3 ERASE
004875,000224: 0073 RUPTREG4 ERASE
004876,000225: 0074 0073 KEYTEMP1 EQUALS RUPTREG4
004877,000226: 0074 0073 DSRUPTEM EQUALS RUPTREG4
004878,000227:
004879,000228: # FLAGWORD RESERVATIONS. (16D)
004880,000229:
004881,000230: 0074 STATE ERASE +15D # FLAGWORD REGISTERS.
004882,000231:
004883,000232: # P25 RADAR STORAGE. (MAY BE UNSHARED IN E7) (TEMP OVERLAY) (2D) OVERLAYS FLGWRD 14 & 15
004884,000233:
|
|
Page 112
|
004886,000235: 0114 0112 LASTYCMD EQUALS STATE +14D # B(1)PRM THESE ARE CALLED BY T4RUPT
004887,000236: 0114 0113 LASTXCMD EQUALS LASTYCMD +1 # B(1)PRM THEY MUST BE CONTIGUOUS,Y FIRST
004888,000237:
004889,000238:
004890,000239:
004891,000240: # EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. (32D) (INTB15+ THROUGH RUPTMXTM)
004892,000241: 0114 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
004893,000242: 0115 0114 DSEXIT = INTB15+ # RETURN FOR DSPIN
004894,000243: 0115 0114 EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
004895,000244: 0115 0114 BLANKRET = INTB15+ # RETURN FOR 2BLANK
004896,000245:
004897,000246: 0115 INTBIT15 ERASE # SIMILAR TO ABOVE.
004898,000247: 0116 0115 WRDRET = INTBIT15 # RETURN FOR 5BLANK
004899,000248: 0116 0115 WDRET = INTBIT15 # RETURN FOR DSPWD
004900,000249: 0116 0115 DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
004901,000250: 0116 0115 21/22REG = INTBIT15 # TEMP FOR CHARIN
004902,000251:
004903,000252: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
004904,000253:
004905,000254: 0116 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
004906,000255: 0117 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
004907,000256: 0120 0117 UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB
004908,000257: 0120 0117 CHAR = POLISH # TEMP FOR CHARIN
004909,000258: 0120 0117 ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET
004910,000259: 0120 0117 DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
004911,000260:
004912,000261: 0120 FIXLOC ERASE # WORK AREA ADDRESS.
004913,000262: 0121 OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
004914,000263:
004915,000264: 0122 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
004916,000265: 0130 0122 SGNON = VBUF # TEMP FOR +,- ON
004917,000266: 0130 0122 NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH
004918,000267: 0130 0122 DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERBS
004919,000268: 0130 0122 DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
004920,000269:
004921,000270: 0130 0123 SGNOFF = VBUF +1 # TEMP FOR +,- ON
004922,000271: 0130 0123 NVTEMP = VBUF +1 # TEMP FOR NVSUB
004923,000272: 0130 0123 SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
004924,000273: 0130 0123 HITEMIN = VBUF +1 # TEMP FOR LOAD OF HRS, MIN, SEC
004925,000274: # MUST = LOTEMIN-1.
004926,000275: 0130 0124 CODE = VBUF +2 # FOR DSPIN
004927,000276: 0130 0124 SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
004928,000277: 0130 0124 LOTEMIN = VBUF +2 # TEMP FOR LOAD OF HRS, MIN, SEC
004929,000278: # MUST = HITEMIN+1.
004930,000279: 0130 0125 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA
004931,000280: 0130 0125 SIGNRET = VBUF +3 # RETURN FOR +,- ON
004932,000281:
004933,000282: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
004934,000283:
004935,000284: 0130 BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
004936,000285:
|
|
Page 113
|
004938,000287: 0133 BUF2 ERASE +1
004939,000288: 0135 0130 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
004940,000289: 0135 0130 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
004941,000290: 0135 0131 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN SWITCH WORD.
004942,000291: 0135 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT.
004943,000292: 0136 0135 DMPNTEMP = MPTEMP # DMPSUB TEMPORARY
004944,000293: 0136 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE.
004945,000294: 0137 0136 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT.
004946,000295: 0137 0136 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
004947,000296: 0137 0136 ENTRET = DOTINC # EXIT FROM ENTER
004948,000297:
004949,000298: 0137 DOTRET ERASE # RETURN FROM DOT SUBROUTINE.
004950,000299: 0140 0137 DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV.
004951,000300: 0140 0137 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH.
004952,000301: 0140 0137 WDCNT = DOTRET # CHAR COUNTER FOR DSPWD
004953,000302: 0140 0137 INREL = DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
004954,000303:
004955,000304: 0140 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM.
004956,000305: 0141 0140 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
004957,000306: 0141 0140 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
004958,000307: 0141 0140 DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM
004959,000308: 0141 0140 MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
004960,000309:
004961,000310: 0141 TEM1 ERASE # EXEC TEMP
004962,000311: 0142 0141 POLYRET = TEM1
004963,000312: 0142 0141 DSREL = TEM1 # REL ADDRESS FOR DSPIN
004964,000313:
004965,000314: 0142 TEM2 ERASE # EXEC TEMP
004966,000315: 0143 0142 DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN
004967,000316: 0143 0142 IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS STORAGE
004968,000317:
004969,000318: 0143 TEM3 ERASE # EXEC TEMP
004970,000319: 0144 0143 COUNT = TEM3 # FOR DSPIN
004971,000320:
004972,000321: 0144 TEM4 ERASE # EXEC TEMP
004973,000322: 0145 0144 LSTPTR = TEM4 # LIST POINTER FOR GRABUSY
004974,000323: 0145 0144 RELRET = TEM4 # RETURN FOR RELDSP
004975,000324: 0145 0144 FREERET = TEM4 # RETURN FOR FREEDSP
004976,000325: 0145 0144 DSPWDRET = TEM4 # RETURN FOR DSPSIGN
004977,000326: 0145 0144 SEPSCRET = TEM4 # RETURN FOR SEPSEC
004978,000327: 0145 0144 SEPMNRET = TEM4 # RETURN FOR SEPMIN
004979,000328:
004980,000329: 0145 TEM5 ERASE # EXEC TEMP
004981,000330: 0146 0145 NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS
004982,000331:
004983,000332: 0146 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
004984,000333: 0147 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
004985,000334: 0150 IDAD1TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004986,000335: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
004987,000336: 0151 IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004988,000337:
|
|
Page 114
|
004990,000339: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
004991,000340: 0152 IDAD3TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
004992,000341: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
004993,000342: 0153 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
004994,000343:
004995,000344: # AX*SR*T STORAGE. (6D)
004996,000345: 0154 0142 DEXDEX EQUALS TEM2 # B(1)TMP
004997,000346: 0154 0143 DEX1 EQUALS TEM3 # B(1)TMP
004998,000347: 0154 0144 DEX2 EQUALS TEM4 # B(1)TMP
004999,000348: 0154 0145 RTNSAVER EQUALS TEM5 # B(1)TMP
005000,000349: 0154 0157 TERM1TMP EQUALS MPAC +3 # B(2)TMP
005001,000350:
005002,000351: 0154 0143 DEXI = DEX1
005003,000352:
005004,000353: # THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
005005,000354: # SUBROUTINE ROOTPSRS. THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
005006,000355: # DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
005007,000356:
005008,000357: 0154 0142 DERCOF-8 = MPAC -12 # ROOTPSRS DER COF N-4 HI ORDER
005009,000358: 0154 0143 DERCOF-7 = MPAC -11 # ROOTPSRS DER COF N-4 LO ORDER
005010,000359: 0154 0144 DERCOF-6 = MPAC -10 # ROOTPSRS DER COF N-3 HI ORDER
005011,000360: 0154 0145 DERCOF-5 = MPAC -7 # ROOTPSRS DER COF N-3 LO ORDER
005012,000361: 0154 0146 DERCOF-4 = MPAC -6 # ROOTPSRS DER COF N-2 HI ORDER
005013,000362: 0154 0147 DERCOF-3 = MPAC -5 # ROOTPSRS DER COF N-2 LO ORDER
005014,000363: 0154 0150 DERCOF-2 = MPAC -4 # ROOTPSRS DER COF N-1 HI ORDER
005015,000364: 0154 0151 DERCOF-1 = MPAC -3 # ROOTPSRS DER COF N-1 LO ORDER
005016,000365: 0154 0152 DERCOFN = MPAC -2 # ROOTPSRS DER COF N HI ORDER
005017,000366: 0154 0153 DERCOF+1 = MPAC -1 # ROOTPSRS DER COF N LO ORDER
005018,000367:
005019,000368: 0154 0117 PWRPTR = POLISH # ROOTPSRS POWER TABLE POINTER
005020,000369: 0154 0124 DXCRIT = VBUF +2 # ROOTPSRS CRITERION FOR ENDING ITERS HI
005021,000370: 0154 0125 DXCRIT+1 = VBUF +3 # ROOTPSRS CRITERION FOR ENDING ITERS LO
005022,000371: 0154 0126 ROOTPS = VBUF +4 # ROOTPSRS ROOT HI ORDER
005023,000372: 0154 0127 ROOTPS+1 = VBUF +5 # ROOTPSRS ROOT LO ORDER
005024,000373: 0154 0132 RETROOT = BUF +2 # ROOTPSRS RETURN ADDRESS OF USER
005025,000374: 0154 0140 PWRCNT = MATINC # ROOTPSRS DER TABLE LOOP COUNTER
005026,000375: 0154 0141 DERPTR = TEM1 # ROOTPSRS DER TABLE POINTER
005027,000376:
|
|
Page 115
|
005029,000378: # DYNAMICALLY ALLOCATED CORE SETS FOR JOBS. (84D)
005030,000379:
005031,000380: 0154 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
005032,000381: 0163 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
005033,000382: 0164 LOC ERASE # LOCATION ASSOCIATED WITH JOB.
005034,000383: 0165 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
005035,000384: 0166 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
005036,000385: 0167 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
005037,000386:
005038,000387: 0170 ERASE +83D # EIGHT SETS OF 12 REGISTERS EACH
005039,000388:
005040,000389: # INCORP STORAGE: R22 (N29) (SHARES WITH FOLLOWING SECTION) (4D)
005041,000390:
005042,000391: 0314 0314 R22DISP EQUALS TIME2SAV # I(4) N49 DISPLAY OF DELTA R AND DELTA V
005043,000392:
005044,000393:
005045,000394: # STANDBY VERB ERASABLES. REDOCTR BEFORE THETADS. (14D)
005046,000395:
005047,000396: 0314 TIME2SAV ERASE +1
005048,000397: 0316 SCALSAVE ERASE +1
005049,000398: 0320 REDOCTR ERASE # CONTAINS NUMBER OF RESTARTS
005050,000399: 0321 THETAD ERASE +2
005051,000400: 0324 0321 CPHI = THETAD # O DESIRED GIMBAL ANGLES
005052,000401: 0324 0322 CTHETA = THETAD +1 # I FOR
005053,000402: 0324 0323 CPSI = THETAD +2 # M MANEUVER.
005054,000403: 0324 DELV ERASE +5
005055,000404: 0332 0324 DELVX = DELV
005056,000405: 0332 0326 DELVY = DELV +2
005057,000406: 0332 0330 DELVZ = DELV +4
005058,000407:
005059,000408:
005060,000409:
005061,000410: # DOWNLINK STORAGE. (28D)
005062,000411:
005063,000412: 0332 0332 DNLSTADR EQUALS DNLSTCOD
005064,000413:
005065,000414: 0332 DNLSTCOD ERASE # B(1)PRM DOWNLIINK LIST CODE
005066,000415: 0333 DUMPCNT ERASE # B(1)
005067,000416: 0334 LDATALST ERASE +25D # (26D)
005068,000417: 0366 0335 DNTMGOTO EQUALS LDATALST +1 # B(1)
005069,000418: 0366 0336 TMINDEX EQUALS DNTMGOTO +1 # B(1)
005070,000419: 0366 0336 DUMPLOC EQUALS TMINDEX # CONTAINS ECADR OF AGC DP WORD BEING DUMP
005071,000420: # ED AND COUNT OF COMPLETE DUMPS ALREADY S
005072,000421: # ENT.
005073,000422: 0366 0337 DNQ EQUALS TMINDEX +1 # B(1)
005074,000423: 0366 0340 DNTMBUFF EQUALS DNQ +1 # B(22)PRM DOWNLINK SNAPSHOT BUFFER
005075,000424:
005076,000425: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (10D) FIVE MORE IN EBANK 2
005077,000426:
|
|
Page 116
|
005079,000428: 0366 RESTREG ERASE # B(1)PRM FOR DISPLAY RESTARTS
005080,000429: 0367 NVWORD ERASE
005081,000430: 0370 MARKNV ERASE
005082,000431: 0371 NVSAVE ERASE
005083,000432: # (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
005084,000433: 0372 CADRFLSH ERASE
005085,000434: 0373 CADRMARK ERASE
005086,000435: 0374 TEMPFLSH ERASE
005087,000436: 0375 FAILREG ERASE +2 # B(3)PRM 3 ALARM CODE REGISTERS
005088,000437:
005089,000438: # VAC AREAS. -BE CAREFUL OF PLACEMENT- (220D)
005090,000439:
005091,000440: 0400 VAC1USE ERASE
005092,000441: 0401 VAC1 ERASE +42D
005093,000442: 0454 VAC2USE ERASE
005094,000443: 0455 VAC2 ERASE +42D
005095,000444: 0530 VAC3USE ERASE
005096,000445: 0531 VAC3 ERASE +42D
005097,000446: 0604 VAC4USE ERASE
005098,000447: 0605 VAC4 ERASE +42D
005099,000448: 0660 VAC5USE ERASE
005100,000449: 0661 VAC5 ERASE +42D
005101,000450:
005102,000451: # WAITLIST REPEAT FLAG. (1D)
005103,000452:
005104,000453: 0734 RUPTAGN ERASE
005105,000454: 0735 0734 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
005106,000455:
005107,000456:
005108,000457: # STARALIGN ERASABLES. (13D)
005109,000458:
005110,000459: 0735 STARCODE ERASE # (1)
005111,000460: 0736 0735 AOTCODE = STARCODE
005112,000461: 0736 STARALGN ERASE +11D
005113,000462: 0752 0736 SINCDU = STARALGN
005114,000463: 0752 0744 COSCDU = STARALGN +6
005115,000464:
005116,000465: 0752 0742 SINCDUX = SINCDU +4
005117,000466: 0752 0736 SINCDUY = SINCDU
005118,000467: 0752 0740 SINCDUZ = SINCDU +2
005119,000468: 0752 0750 COSCDUX = COSCDU +4
005120,000469: 0752 0744 COSCDUY = COSCDU
005121,000470: 0752 0746 COSCDUZ = COSCDU +2
005122,000471:
005123,000472:
005124,000473: # PHASE TABLE AND RESTART COUNTERS. (12D)
005125,000474:
005126,000475: 0752 -PHASE1 ERASE
005127,000476:
|
|
Page 117
|
005129,000478: 0753 PHASE1 ERASE
005130,000479: 0754 -PHASE2 ERASE
005131,000480: 0755 PHASE2 ERASE
005132,000481: 0756 -PHASE3 ERASE
005133,000482: 0757 PHASE3 ERASE
005134,000483: 0760 -PHASE4 ERASE
005135,000484: 0761 PHASE4 ERASE
005136,000485: 0762 -PHASE5 ERASE
005137,000486: 0763 PHASE5 ERASE
005138,000487: 0764 -PHASE6 ERASE
005139,000488: 0765 PHASE6 ERASE
005140,000489:
005141,000490: # A**SR*T STORAGE. (6D)
005142,000491:
005143,000492: 0766 CDUSPOT ERASE +5 # B(6)
005144,000493:
005145,000494: 0774 0766 CDUSPOTY = CDUSPOT
005146,000495: 0774 0770 CDUSPOTZ = CDUSPOT +2
005147,000496: 0774 0772 CDUSPOTX = CDUSPOT +4
005148,000497:
005149,000498: # VERB 37 STORAGE. (2D)
005150,000499:
005151,000500: 0774 MINDEX ERASE # B(1)TMP INDEX FOR MAJOR MODE
005152,000501: 0775 MMNUMBER ERASE # B(1)TMP MAJOR MODE REQUESTED BY V37
005153,000502:
005154,000503: # PINBALL INTERRUPT ACTION. (1D)
005155,000504:
005156,000505: 0776 DSPCNT ERASE # B(1)PRM COUNTER FOR DSPOUT.
005157,000506:
005158,000507: # PINBALL EXECUTIVE ACTION (44D)
005159,000508:
005160,000509: 0777 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR.
005161,000510: 1000 DECBRNCH ERASE # +DEC, -DEC, OCT INDICATOR
005162,000511: 1001 VERBREG ERASE # VERB CODE
005163,000512: 1002 NOUNREG ERASE # NOUN CODE
005164,000513: 1003 XREG ERASE # R1 INPUT BUFFER
005165,000514: 1004 YREG ERASE # R2 INPUT BUFFER
005166,000515: 1005 ZREG ERASE # R3 INPUT BUFFER
005167,000516: 1006 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
005168,000517: 1007 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
005169,000518: 1010 1007 HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
005170,000519: # MUST = LOTEMOUT-1.
005171,000520: 1010 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
005172,000521: 1011 1010 LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
005173,000522: # MUST = HITEMOUT+1.
005174,000523: 1011 MODREG ERASE # MODE CODE
005175,000524:
|
|
Page 118
|
005177,000526: 1012 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
005178,000527: 1013 REQRET ERASE # RETURN REGISTER FOR LOAD
005179,000528: 1014 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
005180,000529: 1015 CLPASS ERASE # PASS INDICATOR CLEAR
005181,000530: 1016 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
005182,000531: 1017 NOUNCADR ERASE # MACHINE CADR FOR NOUN
005183,000532: 1020 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
005184,000533: 1021 MONSAVE1 ERASE # NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
005185,000534: 1022 MONSAVE2 ERASE # NVMONOPT OPTIONS
005186,000535: 1023 DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
005187,000536: 1037 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
005188,000537: # MUST = NVBNKTEM-1
005189,000538: 1040 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
005190,000539: # MUST = NVQTEM+1
005191,000540: 1041 VERBSAVE ERASE # NEEDED FOR RECYCLE
005192,000541: 1042 CADRSTOR ERASE # ENDIDLE STORAGE
005193,000542: 1043 DSPLIST ERASE # WAITING REG FOR DSP SYST INTERNAL USE
005194,000543: 1044 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
005195,000544: 1045 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
005196,000545: 1050 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
005197,000546:
005198,000547: 1053 1051 DSPTEMX EQUALS DSPTEM2 +1 # B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
005199,000548: 1053 1045 NORMTEM1 EQUALS DSPTEM1 # B(3)DSP NORMAL DISPLAY REGISTERS.
005200,000549:
005201,000550:
005202,000551: # DISPLAY FOR EXTENDED VERBS (V82, R04(V62), V41(N72) ) (2D)
005203,000552:
005204,000553: 1053 1051 OPTIONX EQUALS DSPTEMX # (2) EXTENDED VERB OPTION CODE
005205,000554:
005206,000555: # TBASES AND PHSPRDT S. (12D)
005207,000556:
005208,000557: 1053 TBASE1 ERASE
005209,000558: 1054 PHSPRDT1 ERASE
005210,000559: 1055 TBASE2 ERASE
005211,000560: 1056 PHSPRDT2 ERASE
005212,000561: 1057 TBASE3 ERASE
005213,000562: 1060 PHSPRDT3 ERASE
005214,000563: 1061 TBASE4 ERASE
005215,000564: 1062 PHSPRDT4 ERASE
005216,000565: 1063 TBASE5 ERASE
005217,000566: 1064 PHSPRDT5 ERASE
005218,000567: 1065 TBASE6 ERASE
005219,000568: 1066 PHSPRDT6 ERASE
005220,000569:
005221,000570: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (6D)
005222,000571:
|
|
Page 119
|
005224,000573: 1067 NVWORD1 ERASE # B(1) PROBABLY FOR DISPLAY DURING SERVICER
005225,000574: 1070 EBANKSAV ERASE
005226,000575: 1071 MARKEBAN ERASE
005227,000576: 1072 EBANKTEM ERASE
005228,000577: 1073 MARK2PAC ERASE
005229,000578: 1074 R1SAVE ERASE
005230,000579:
005231,000580:
005232,000581: # IMU COMPENSATION UNSWITCHED ERASABLE. (1D)
005233,000582:
005234,000583: 1075 1/PIPADT ERASE
005235,000584:
005236,000585:
005237,000586: # SINGLE PRECISION SUBROUTINE TEMPORARIES. (2D)
005238,000587:
005239,000588: 1076 TEMK ERASE # (1)
005240,000589: 1077 SQ ERASE # (1)
005241,000590:
005242,000591:
005243,000592: # UNSWITCHED RADAR ERASABLE (13D)
005244,000593:
005245,000594: 1100 SAMPLIM ERASE
005246,000595: 1101 SAMPLSUM ERASE +3
005247,000596: 1105 TIMEHOLD ERASE +1
005248,000597: 1107 1101 RRTARGET EQUALS SAMPLSUM # HALF U IT VECTOR IN SM OR NB AXES.
005249,000598: 1107 TANG ERASE +1 # DESIRE TRUNNION AND SHAFT ANGLES.
005250,000599: 1111 1107 MODEA EQUALS TANG
005251,000600: 1111 MODEB ERASE +1 # DODES LOBBERS TANG +2.
005252,000601: 1113 1111 NSAMP EQUALS MODEB
005253,000602: 1113 DESRET ERASE
005254,000603: 1114 1113 OLDATAGD EQUALS DESRET # USED I DATA READING ROUTINES.
005255,000604: 1114 DESCOUNT ERASE
005256,000605:
005257,000606: # ****** P22 ****** (6D)
005258,000607:
005259,000608: 1115 1101 RSUBC EQUALS RRTARGET # I(6)S-S CSM POSITION VECTOR
005260,000609:
|
|
Page 120
|
005262,000611: # UNSWITCHED FOR ORBIT INTEGRATION. (21D)
005263,000612:
005264,000613: 1115 TDEC ERASE +20D # I(2)
005265,000614: 1142 1117 COLREG EQUALS TDEC +2 # I(1)
005266,000615: 1142 1120 LAT EQUALS COLREG +1 # I(2)
005267,000616: 1142 1122 LONG EQUALS LAT +2 # I(2)
005268,000617: 1142 1124 ALT EQUALS LONG +2 # I(2)
005269,000618: 1142 1126 YV EQUALS ALT +2 # I(6)
005270,000619: 1142 1134 ZV EQUALS YV +6 # I(6)
005271,000620:
005272,000621:
005273,000622: # MISCELLANEOUS UNSWITCHED. (20D)
005274,000623:
005275,000624: 1142 P40/RET ERASE # (WILL BE PUT IN E6 WHEN THERE IS ROOM)
005276,000625: 1143 GENRET ERASE # B(1) R61 RETURN CADR.
005277,000626: 1144 OPTION1 ERASE # B(1) NOUN 06 USES THIS
005278,000627: 1145 OPTION2 ERASE # B(1) NOUN 06 USES THIS
005279,000628: 1146 OPTION3 ERASE # B(1) NOUN 06 USES THIS
005280,000629: 1147 LONGCADR ERASE +1 # B(2) LONGCALL REGISTER
005281,000630: 1151 LONGBASE ERASE +1
005282,000631: 1153 LONGTIME ERASE +1 # B(2) LONGCALL REGISTER
005283,000632: 1155 CDUTEMPX ERASE # B(1)TMP
005284,000633: 1156 CDUTEMPY ERASE # B(1)TMP
005285,000634: 1157 CDUTEMPZ ERASE # B(1)TMP
005286,000635: 1160 PIPATMPX ERASE # B(1)TMP
005287,000636: 1161 PIPATMPY ERASE # B(1)TMP
005288,000637: 1162 PIPATMPZ ERASE # B(1)TMP
005289,000638:
005290,000639: 1163 DISPDEX ERASE # B(1)
005291,000640: 1164 TEMPR60 ERASE # B(1)
005292,000641: 1165 PRIOTIME ERASE # B(1)
005293,000642:
005294,000643: # P27 (UPDATE PROGRAM ) STORAGE. (26D)
005295,000644:
005296,000645: 1166 UPVERBSV ERASE # B(1) UPDATE VERB ATTEMPTED.
005297,000646: 1167 UPTEMP ERASE +24D # B(1)TMP SCRATCH
005298,000647: 1220 1167 INTWAK1Q EQUALS UPTEMP # (BORROWS UPTEMP REGISTERS)
005299,000648: # RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
005300,000649: 1220 1170 COMPNUMB EQUALS UPTEMP +1 # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
005301,000650: 1220 1171 UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP INTERRUPTED PROGRAM MM
005302,000651: 1220 1172 UPVERB EQUALS UPOLDMOD +1 # B(1)TMP VERB NUMBER
005303,000652: 1220 1173 UPCOUNT EQUALS UPVERB +1 # B(1)TMP UPBUFF INDEX
005304,000653: 1220 1174 UPBUFF EQUALS UPCOUNT +1 # B(20D)
005305,000654:
005306,000655:
005307,000656: # SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS. (2D)
005308,000657:
005309,000658: 1220 1167 EBUF2 EQUALS UPTEMP # B(2) FOR EXCLUSIVE USE OF SYSTEM TEST
005310,000659:
005311,000660:
|
|
Page 121
|
005313,000662: # PERM STATE VECTORS FOR BOOST AND DOWNLINK-WHOLE MISSION- (14D)
005314,000663:
005315,000664: 1220 RN ERASE +5 # B(6)PRM
005316,000665: 1226 VN ERASE +5 # B(6)PRM
005317,000666: 1234 PIPTIME ERASE +1 # B(2)PRM (MUST BE FOLLOWED BY GDT/2)
005318,000667:
005319,000668:
005320,000669: # SERVICER -MUST FOLLOW PIPTIME- (19D)
005321,000670:
005322,000671: 1236 GDT/2 ERASE +19D # B(6)TMP (MUST FOLLOW PIPTIME)
005323,000672: 1262 1244 MASS EQUALS GDT/2 +6 # B(2)
005324,000673: 1262 1244 WEIGHT/G = MASS
005325,000674: 1262 1246 ABDELV EQUALS MASS +2 # ALCMANU STORAGE)
005326,000675: 1262 1247 PGUIDE EQUALS ABDELV +1 # (2)
005327,000676: 1262 1251 DVTHRUSH EQUALS PGUIDE +2 # (1)
005328,000677: 1262 1252 AVEGEXIT EQUALS DVTHRUSH +1 # (2)
005329,000678: 1262 1252 AVGEXIT = AVEGEXIT
005330,000679: 1262 1254 TEMX EQUALS AVEGEXIT +2 # (1)
005331,000680: 1262 1255 TEMY EQUALS TEMX +1 # (1)
005332,000681: 1262 1256 TEMZ EQUALS TEMY +1 # (1)
005333,000682: 1262 1257 PIPAGE EQUALS TEMZ +1 # B(1)
005334,000683: 1262 1260 OUTROUTE EQUALS PIPAGE +1 # B(1)
005335,000684:
005336,000685:
005337,000686:
005338,000687: # PERMANENT LEM DAP STORAGE. (12D)
005339,000688:
005340,000689: 1262 CH5MASK ERASE # B(1)PRM
005341,000690: 1263 CH6MASK ERASE # B(1)PRM JET FAILURE MASK.
005342,000691: 1264 DTHETASM ERASE +5 # (6)
005343,000692: 1272 SPNDX ERASE # B(1)
005344,000693: 1273 RCSFLAGS ERASE # AUTOPILOT FLAG WORD
005345,000694: # BIT ASSIGNMENTS:
005346,000695: # 1) ALTERYZ SWITCH (ZEROOR1)
005347,000696: # 2) NEEDLER SWITCH
005348,000697: # 3) NEEDLER SWITCH
005349,000698: # 4) NEEDLER SWITCH
005350,000699: # 5) NEEDLER SWITCH
005351,000700: # 9) JUST-IN-DETENT SWITCH
005352,000701: # 10) PBIT - MANUAL CONTROL SWITCH
005353,000702: # 11) QRBIT - MANUAL CONTROL SWITCH
005354,000703: # 12) PSKIP CONTROL (PJUMPADR)
005355,000704: # 13) 1/ACCJOB CONTROL (ACCSET)
005356,000705: 1274 T5ADR ERASE +1 # GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
005357,000706: # BBCON OF NEXT LM DAP T5RUPT. 2CADR
005358,000707:
005359,000708:
005360,000709: # RCS FAILURE MONITOR STORAGE. (1)
005361,000710:
|
|
Page 122
|
005363,000712: 1276 PVALVEST ERASE # B(1)PRM
005364,000713:
005365,000714:
005366,000715: # KALCMANU/DAP INTERFACE. (3D)
005367,000716:
005368,000717: 1277 DELPEROR ERASE # B(1)PRM COMMAND LAGS.
005369,000718: 1300 DELQEROR ERASE # B(1)PRM
005370,000719: 1301 DELREROR ERASE # B(1)PRM
005371,000720:
005372,000721:
005373,000722: # MODE SWITCHING ERASABLE. (9D)
005374,000723:
005375,000724: # RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES.
005376,000725: 1302 IMODES30 ERASE # B(1)
005377,000726: 1303 IMODES33 ERASE
005378,000727: 1304 MODECADR ERASE +2 # B(3)PRM
005379,000728: 1307 1304 IMUCADR EQUALS MODECADR
005380,000729: 1307 1305 OPTCADR EQUALS MODECADR +1
005381,000730: 1307 1306 RADCADR EQUALS MODECADR +2
005382,000731: 1307 ATTCADR ERASE +2 # B(3)PRM
005383,000732: 1312 1311 ATTPRIO = ATTCADR +2
005384,000733: 1312 MARKSTAT ERASE
005385,000734:
005386,000735: # T4RUPT ERASABLE. (2D)
005387,000736:
005388,000737: 1313 DSRUPTSW ERASE
005389,000738: 1314 LGYRO ERASE # (1)
005390,000739:
005391,000740: # RENDEZVOUS RADAR TASK STORAGE (3D)
005392,000741:
005393,000742: 1315 RRRET ERASE +2D # B(1)TMP P20'S, PERHAPS R29 & R12
005394,000743: 1320 1316 RDES EQUALS RRRET +1 # B(1)TMP
005395,000744: 1320 1317 RRINDEX EQUALS RDES +1 # B(1)TMP
005396,000745:
005397,000746:
005398,000747:
005399,000748: # MEASINC (4D)
005400,000749:
005401,000750: 1320 WIXA ERASE # B(1)
005402,000751: 1321 WIXB ERASE # B(1)
005403,000752: 1322 ZIXA ERASE # B(1)
005404,000753: 1323 ZIXB ERASE # B(1)
005405,000754:
005406,000755: # AGS DUMMY ID WORD. (1D)
005407,000756:
005408,000757: 1324 AGSWORD ERASE
005409,000758:
005410,000759: # SOME MISCELLANEOUS UNSWITCHED. (6D)
005411,000760:
|
|
Page 123
|
005413,000762:
005414,000763: 1325 RATEINDX ERASE # (1) USED BY KALCMANU
005415,000764: 1326 DELAYLOC ERASE +2
005416,000765: 1331 LEMMASS ERASE # KEEP CONTIGUOUS W. CSMMASS (1)EACH
005417,000766: 1332 CSMMASS ERASE
005418,000767:
005419,000768: # LESS IS MORE.
005420,000769:
005421,000770: # RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE. (7D)
005422,000771:
005423,000772: # (NORMALLY USED DURING P20, BUT MAY ALSO)
005424,000773: # (BE REQUIRED FOR THE V62 SPURIOUS TEST.)
005425,000774:
005426,000775: # (PLEASE KEEP IN THIS ORDER)
005427,000776:
005428,000777: 1333 DNRRANGE ERASE +6 # B(1) TMP
005429,000778: 1342 1334 DNRRDOT EQUALS DNRRANGE +1 # B(1)TMP
005430,000779: 1342 1335 DNINDEX EQUALS DNRRDOT +1 # B(1)TMP
005431,000780: 1342 1336 DNLRVELX EQUALS DNINDEX +1 # B(1)TMP
005432,000781: 1342 1337 DNLRVELY EQUALS DNLRVELX +1 # B(1)TMP
005433,000782: 1342 1340 DNLRVELZ EQUALS DNLRVELY +1 # B(1)TMP
005434,000783: 1342 1341 DNLRALT EQUALS DNLRVELZ +1 # B(1) TMP
005435,000784:
005436,000785: # INCORPORATION UNSWITCHED. (2D)
005437,000786:
005438,000787: 1342 1257 W.IND EQUALS PIPAGE # B(1)
005439,000788: 1342 1260 W.IND1 EQUALS W.IND +1 # I(1)
005440,000789:
005441,000790:
005442,000791: # SUBROUTINE BALLANGS OF R60. (1D)
005443,000792:
005444,000793: 1342 BALLEXIT ERASE # B(1)SAVE LOCATION FOR BALLINGS SUBR EXIT
005445,000794:
005446,000795:
005447,000796: # SOME LEM DAP STORAGE. (4D)
005448,000797:
005449,000798: 1343 DAPDATR1 ERASE # B(1)DSP DAP CONFIG.
005450,000799: 1344 TEVENT ERASE +1 # B(2)DSP
005451,000800: 1346 DB ERASE # B(1)TMP DEAD BAND.
005452,000801:
005453,000802:
005454,000803:
005455,000804: # NOUN 87 (2D)
005456,000805:
005457,000806: 1347 AZ ERASE +1D # B(1) AZ AND EL MUST BE CONTIGUOUS
005458,000807: 1351 1350 EL EQUALS AZ +1D # B(1)
005459,000808:
005460,000809:
005461,000810: # ERASABLES FOR THE R2 LUNAR POTENTIAL MODEL (2D)
005462,000811:
|
|
Reconstruction: The two lines immediately following this annotation
were not present in Luminary 69. They have been added to Luminary 69/2 due
to incorporation of the R-2 Lunar Potential Model — see
LUMINARY Memo #75.
The lines have been taken without change from Luminary 99/1, which
also incorporates the R-2 model. According to
LUMINARY Memo #78",
the implementation of the R-2 model was dictated by Program Change Notice
(PCN) 761.1, of which we don't have a copy of the full text, but whose title
is "R-2 Lunar Potential Model". The memo goes on to state that PCN 761.1
required the addition of two single-precision padloads, E3J22R2M and E32C31RM.
A point which at first may confuse is that PCN 761.1 was incorporated in
Luminary 95. So why does the change appear in Luminary 69/2? But the
confusion is only momentary after a little thought: Luminary 95 derives from Luminary 69,
and Luminary 69/2 derives from Luminary 69 as well. So what? Luminary 69/2
does not derive from Luminary 95, or vice-versa. We don't know which of them
came first, and in the present context don't care.
|
005481,000830: 1351 E3J22R2M ERASE # I(1)
005482,000831: 1352 E32C31RM ERASE # I(1)
005483,000832:
005484,000833: 1353 END-UE EQUALS # NEXT UNUSED UE ADDRESS
005485,000834:
005486,000835:
005487,000836: # SELF-CHECK ASSIGNMENTS. (17D)
005488,000837:
|
|
Page 124
|
005490,000839: # (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
005491,000840:
005492,000841: 1353 SELFERAS ERASE 1357 - 1377 # *** MUST NOT BE MOVED ***
005493,000842: 1353 1357 SFAIL EQUALS SELFERAS # B(1)
005494,000843: 1353 1360 ERESTORE EQUALS SFAIL +1 # B(1)
005495,000844: 1353 1361 SELFRET EQUALS ERESTORE +1 # B(1) RETURN
005496,000845: 1353 1362 SMODE EQUALS SELFRET +1 # B(1)
005497,000846: 1353 1363 ALMCADR EQUALS SMODE +1 # B(2) ALARM-ABORT USER'S 2CADR
005498,000847: 1353 1365 ERCOUNT EQUALS ALMCADR +2 # B(1)
005499,000848: 1353 1366 SCOUNT EQUALS ERCOUNT +1 # B(3)
005500,000849: 1353 1371 SKEEP1 EQUALS SCOUNT +3 # B(1)
005501,000850: 1353 1372 SKEEP2 EQUALS SKEEP1 +1 # B(1)
005502,000851: 1353 1373 SKEEP3 EQUALS SKEEP2 +1 # B(1)
005503,000852: 1353 1374 SKEEP4 EQUALS SKEEP3 +1 # B(1)
005504,000853: 1353 1375 SKEEP5 EQUALS SKEEP4 +1 # B(1)
005505,000854: 1353 1376 SKEEP6 EQUALS SKEEP5 +1 # B(1)
005506,000855: 1353 1377 SKEEP7 EQUALS SKEEP6 +1 # B(1)
005507,000856:
|
|
Page 125
|
005509,000858: # EBANK-3 ASSIGNMENTS
005510,000859:
005511,000860: E3,1400 SETLOC 1400
005512,000861:
005513,000862: # WAITLIST TASK LISTS. (26D)
005514,000863:
005515,000864: E3,1400 LST1 ERASE +7 # B(8D)PRM DELTA T S.
005516,000865: E3,1410 LST2 ERASE +17D # B(18D)PRM TASK 2CADR ADDRESSES.
005517,000866:
005518,000867:
005519,000868: # RESTART STORAGE. (2D)
005520,000869:
005521,000870: E3,1432 RSBBQ ERASE +1 # B(2)PRM SAVE BB AND Q FOR RESTARTS.
005522,000871:
005523,000872: # MORE LONGCALL STORAGE.(MUST BE IN LST1 S BANK. (2D)
005524,000873:
005525,000874: E3,1434 LONGEXIT ERASE +1 # B(2)TMP MAY BE SELDOM OVERLAYED.
005526,000875:
005527,000876:
005528,000877: # PHASE-CHANGE LISTS PART II. (12D)
005529,000878:
005530,000879: E3,1436 PHSNAME1 ERASE # B(1)PRM
005531,000880: E3,1437 PHSBB1 ERASE # B(1)PRM
005532,000881: E3,1440 PHSNAME2 ERASE # B(1)PRM
005533,000882: E3,1441 PHSBB2 ERASE # B(1)PRM
005534,000883: E3,1442 PHSNAME3 ERASE # B(1)PRM
005535,000884: E3,1443 PHSBB3 ERASE # B(1)PRM
005536,000885: E3,1444 PHSNAME4 ERASE # B(1)PRM
005537,000886: E3,1445 PHSBB4 ERASE # B(1)PRM
005538,000887: E3,1446 PHSNAME5 ERASE # B(1)PRM
005539,000888: E3,1447 PHSBB5 ERASE # B(1)PRM
005540,000889: E3,1450 PHSNAME6 ERASE # B(1)PRM
005541,000890: E3,1451 PHSBB6 ERASE # B(1)PRM
005542,000891:
005543,000892:
005544,000893: # IMU COMPENSATION PARAMETERS. (22D)
005545,000894:
005546,000895: E3,1452 PBIASX ERASE # B(1) PIPA BIAS, PIPA SCALE FACTR TERMS
005547,000896: E3,1453 E3,1452 PIPABIAS = PBIASX # INTERMIXED.
005548,000897: E3,1453 PIPASCFX ERASE
005549,000898: E3,1454 E3,1453 PIPASCF = PIPASCFX
005550,000899: E3,1454 PBIASY ERASE
005551,000900: E3,1455 PIPASCFY ERASE
005552,000901: E3,1456 PBIASZ ERASE
005553,000902: E3,1457 PIPASCFZ ERASE
005554,000903:
005555,000904: E3,1460 NBDX ERASE # GYRO BIAS DRIFTS
005556,000905: E3,1461 NBDY ERASE
005557,000906: E3,1462 NBDZ ERASE
005558,000907:
|
|
Page 126
|
005560,000909: E3,1463 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
005561,000910: E3,1464 ADIAY ERASE # INPUT AXIS
005562,000911: E3,1465 ADIAZ ERASE
005563,000912:
005564,000913: E3,1466 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
005565,000914: E3,1467 ADSRAY ERASE # SPIN REFERENCE AXIS
005566,000915: E3,1470 ADSRAZ ERASE
005567,000916:
005568,000917: E3,1471 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES
005569,000918:
005570,000919: E3,1477 E3,1471 COMMAND EQUALS GCOMP
005571,000920: E3,1477 E3,1474 CDUIND EQUALS GCOMP +3
005572,000921:
005573,000922:
005574,000923: E3,1477 GCOMPSW ERASE
005575,000924:
005576,000925: # STATE VECTORS FOR ORBIT INTEGRATION. (44D)
005577,000926:
005578,000927: # (DIFEQCNT THRU XKEP MUST BE IN SAME
005579,000928: # EBANK AS RRECTCSM, RRECTLEM ETC
005580,000929: # BECAUSE THE COPY-CYCLES (ATOPCSM,
005581,000930: # PTOACSM ETC) ARE EXECUTED IN BASIC.
005582,000931: # ALL OTHER REFERENCES TO THIS GROUP
005583,000932: # ARE BY INTERPRETIVE INSTRUCTIONS.)
005584,000933:
005585,000934: E3,1500 DIFEQCNT ERASE +43D # B(1)
005586,000935: # (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
005587,000936:
005588,000937: E3,1554 E3,1501 UPSVFLAG EQUALS DIFEQCNT +1 # B(1)
005589,000938: E3,1554 E3,1502 RRECT EQUALS UPSVFLAG +1 # B(6)
005590,000939: E3,1554 E3,1510 VRECT EQUALS RRECT +6 # B(6)
005591,000940: E3,1554 E3,1516 TET EQUALS VRECT +6 # B(2)
005592,000941: E3,1554 E3,1520 TDELTAV EQUALS TET +2 # B(6)
005593,000942: E3,1554 E3,1526 TNUV EQUALS TDELTAV +6 # B(6)
005594,000943: E3,1554 E3,1534 RCV EQUALS TNUV +6 # B(6)
005595,000944: E3,1554 E3,1542 VCV EQUALS RCV +6 # B(6)
005596,000945: E3,1554 E3,1550 TC EQUALS VCV +6 # B(2)
005597,000946: E3,1554 E3,1552 XKEP EQUALS TC +2 # B(2)
005598,000947:
005599,000948: # PERMANENT STATE VECTORS AND TIMES. (99D)
005600,000949:
005601,000950: # (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
005602,000951:
005603,000952: # (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
005604,000953:
005605,000954: E3,1554 RRECTCSM ERASE +5 # B(6)PRM CSM VARIABLES.
005606,000955: E3,1562 E3,1554 RRECTOTH = RRECTCSM
005607,000956: E3,1562 VRECTCSM ERASE +5 # B(6)PRM
005608,000957:
|
|
Page 127
|
005610,000959: E3,1570 TETCSM ERASE +1 # B(2)PRM
005611,000960: E3,1572 E3,1570 TETOTHER = TETCSM
005612,000961: E3,1572 DELTACSM ERASE +5 # B(6)PRM
005613,000962: E3,1600 NUVCSM ERASE +5 # B(6)PRM
005614,000963: E3,1606 RCVCSM ERASE +5 # B(6)PRM
005615,000964: E3,1614 VCVCSM ERASE +5 # B(6)PRM
005616,000965: E3,1622 TCCSM ERASE +1 # B(2)PRM
005617,000966: E3,1624 XKEPCSM ERASE +1 # B(2)PRM
005618,000967:
005619,000968: # (RRECTLEM ...XKEPLEM MUST BE KEPT IN THIS ORDER)
005620,000969:
005621,000970: E3,1626 RRECTLEM ERASE +5 # B(6)PRM LEM VARIABLES
005622,000971: E3,1634 E3,1626 RRECTHIS = RRECTLEM
005623,000972: E3,1634 VRECTLEM ERASE +5 # B(6)PRM
005624,000973: E3,1642 TETLEM ERASE +1 # B(2)PRM
005625,000974: E3,1644 E3,1642 TETTHIS = TETLEM
005626,000975: E3,1644 DELTALEM ERASE +5 # B(6)PRM
005627,000976: E3,1652 NUVLEM ERASE +5 # B(6)PRM
005628,000977: E3,1660 RCVLEM ERASE +5 # B(6)PRM
005629,000978: E3,1666 VCVLEM ERASE +5 # B(6)PRM
005630,000979: E3,1674 TCLEM ERASE +1 # B(2)PRM
005631,000980: E3,1676 XKEPLEM ERASE +1 # B(2)PRM
005632,000981:
005633,000982: E3,1700 X789 ERASE +5
005634,000983: E3,1706 TEPHEM ERASE +2
005635,000984: E3,1711 AZO ERASE +1
005636,000985: E3,1713 -AYO ERASE +1
005637,000986: E3,1715 AXO ERASE +1
005638,000987:
005639,000988:
005640,000989:
005641,000990: # STATE VECTORS FOR DOWNLINK. (12D)
005642,000991:
005643,000992: E3,1717 R-OTHER ERASE +5 # B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
005644,000993: E3,1725 V-OTHER ERASE +5 # B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
005645,000994:
005646,000995: E3,1733 E3,1570 T-OTHER = TETCSM # TIME (OTHER VECH) FOR DNLINK
005647,000996:
005648,000997: # REFSMMAT. (18D)
005649,000998:
005650,000999: E3,1733 REFSMMAT ERASE +17D # I(18D)PRM
005651,001000:
005652,001001:
005653,001002: # ACTIVE VEHICLE CENTANG. MUST BE DISPLAYED ANYTIME (ALMOST.) (2D)
005654,001003:
005655,001004: E3,1755 ACTCENT ERASE +1 # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
005656,001005: # VEHICLE AT TPI TIG AND TARGET VECTOR.
005657,001006:
005658,001007: # **** USED IN CONICSEX (PLAN INERT ORIENT) ****
005659,001008:
|
|
Page 128
|
005661,001010: E3,1757 E3,1706 TIMSUBO EQUALS TEPHEM # CSEC B-42 (TRIPLE PRECISION)
005662,001011:
005663,001012:
005664,001013: # LPS20.1 STORAGE -ALL ARE PRM - (9D)
005665,001014:
005666,001015: E3,1757 LS21X ERASE # I(1)
005667,001016: E3,1760 LOSVEL ERASE +5 # I(6)
005668,001017: E3,1766 MLOSV ERASE +1 # I(2) MAGNITUDE OF LOS, METERS B-29
005669,001018:
005670,001019:
005671,001020: # ***** P22 ***** (OVERLAYS LPS 20.1 STORAGE) (6D)
005672,001021: E3,1770 E3,1760 VSUBC EQUALS LOSVEL # I(6) S-S CSM VELOCITY VECTOR
005673,001022:
005674,001023:
005675,001024: # PADLOADED ERASABLES FOR P20/P22 (6D)
005676,001025:
005677,001026: E3,1770 RANGEVAR ERASE +1 # I(2) RR RANGE ERROR VARIANCE
005678,001027: E3,1772 RATEVAR ERASE +1 # I(2) RR RANGE-RATE ERROR VARIANCE
005679,001028: E3,1774 RVARMIN ERASE # I(1) MINIMUM RANGE ERROR VARIANCE
005680,001029: E3,1775 VVARMIN ERASE # I(1) MINIMUM RANGE-RATE ERROR VARIANCE
005681,001030:
005682,001031:
005683,001032: E3,1776 END-E3 EQUALS # NEXT UNUSED E3 ADDRESS
005684,001033:
|
|
Page 129
|
005686,001035: # EBANK-4 ASSIGNMENTS
005687,001036:
005688,001037: E4,1400 SETLOC 2000
005689,001038:
005690,001039: # E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
005691,001040:
005692,001041: E4,1400 AMEMORY EQUALS
005693,001042:
005694,001043: # P20 STORAGE. -PAD LOADED- (6D)
005695,001044:
005696,001045: E4,1400 WRENDPOS ERASE # B(1)PL KM*2(-7)
005697,001046: E4,1401 WRENDVEL ERASE # B(1)PL KM(-1/2)*2(11)
005698,001047: E4,1402 WSHAFT ERASE # B(1)PL KM*2(-7)
005699,001048: E4,1403 WTRUN ERASE # B(1)PL KM*2(-7)
005700,001049: E4,1404 RMAX ERASE # B(1)PL METERS*2(-19)
005701,001050: E4,1405 VMAX ERASE # B(1)PL M/CSEC*2(-7)
005702,001051:
005703,001052:
005704,001053: # LUNAR SURFACE NAVIGATION (2D)
005705,001054:
005706,001055: E4,1406 WSURFPOS ERASE # B(1)PL
005707,001056: E4,1407 WSURFVEL ERASE # B(1)PL
005708,001057:
005709,001058: # P22 STORAGE. -PAD LOADED- (2D)
005710,001059:
005711,001060: E4,1410 SHAFTVAR ERASE # B(1)PL RAD SQ*2(12)
005712,001061: E4,1411 TRUNVAR ERASE # B(1)PL RAD SQ*2(10)
005713,001062:
005714,001063:
005715,001064: # CONISEX STORAGE.-PAD LOADED- (6D)
005716,001065:
005717,001066: E4,1412 504LM ERASE +5 # I(6)MOON LIBRATION VECTOR
005718,001067:
005719,001068: # V47(R47) AGS INITIALIZATION STORAGE. -PAD LOADED- (2D)
005720,001069:
005721,001070: E4,1420 AGSK ERASE +1
005722,001071:
005723,001072: # LUNAR LANDING STORAGE. -PAD LOADED- (6D)
005724,001073:
005725,001074: E4,1422 RLS ERASE +5 # I(6) LANDING SITE VECTOR -MOON REF
005726,001075:
005727,001076:
005728,001077: # INTEGRATION STORAGE. (102D)
005729,001078:
005730,001079: E4,1430 PBODY ERASE +101D # I(1)
005731,001080:
|
|
Page 130
|
005733,001082: E4,1576 E4,1431 ALPHAV EQUALS PBODY +1 # I(6)
005734,001083: E4,1576 E4,1437 BETAV EQUALS ALPHAV +6 # I(6)
005735,001084: E4,1576 E4,1445 PHIV EQUALS BETAV +6 # I(6)
005736,001085: E4,1576 E4,1453 PSIV EQUALS PHIV +6 # I(6)
005737,001086: E4,1576 E4,1461 FV EQUALS PSIV +6 # I(6) PERTURBING ACCELERATIONS
005738,001087: E4,1576 E4,1467 ALPHAM EQUALS FV +6 # I(2)
005739,001088: E4,1576 E4,1471 BETAM EQUALS ALPHAM +2 # I(2)
005740,001089: E4,1576 E4,1473 TAU. EQUALS BETAM +2 # I(2)
005741,001090: E4,1576 E4,1475 DT/2 EQUALS TAU. +2 # I(2)
005742,001091: E4,1576 E4,1477 H EQUALS DT/2 +2 # I(2)
005743,001092: E4,1576 E4,1501 GMODE EQUALS H +2 # I(1)
005744,001093: E4,1576 E4,1502 IRETURN EQUALS GMODE +1 # I(1)
005745,001094: E4,1576 E4,1503 NORMGAM EQUALS IRETURN +1 # I(1)
005746,001095: E4,1576 E4,1504 RPQV EQUALS NORMGAM +1
005747,001096: E4,1576 E4,1512 ORIGEX EQUALS RPQV +6 # I(1)
005748,001097: E4,1576 E4,1512 KEPRTN EQUALS ORIGEX # I(1)
005749,001098: E4,1576 E4,1513 RQVV EQUALS ORIGEX +1 # I(6)
005750,001099: E4,1576 E4,1521 RPSV EQUALS RQVV +6 # I(6)
005751,001100: E4,1576 E4,1527 XKEPNEW EQUALS RPSV +6 # I(2)
005752,001101: E4,1576 E4,1531 VECTAB EQUALS XKEPNEW +2 # I(36D)
005753,001102: E4,1576 E4,1574 VECTABND EQUALS VECTAB +35D # END MARK
005754,001103:
005755,001104:
005756,001105:
005757,001106: # THESE PROBABLY CAN SHARE MID-COURSE VARIABLES. (6D)
005758,001107:
005759,001108: E4,1576 E4,1537 VACX EQUALS VECTAB +6 # I(2)
005760,001109: E4,1576 E4,1541 VACY EQUALS VACX +2 # I(2)
005761,001110: E4,1576 E4,1543 VACZ EQUALS VACY +2 # I(2)
005762,001111:
005763,001112: # SERVICER STORAGE (USED BY ALL POWERED FLIGHT PROGS.) (18D)
005764,001113:
005765,001114: E4,1576 E4,1545 XNBPIP EQUALS VECTAB +12D # I(6)
005766,001115: E4,1576 E4,1553 YNBPIP EQUALS XNBPIP +6 # I(6)
005767,001116: E4,1576 E4,1561 ZNBPIP EQUALS YNBPIP +6 # I(6)
005768,001117:
005769,001118:
005770,001119: # SOME VERB 82 STORAGE (4D)
005771,001120:
005772,001121: E4,1576 E4,1517 HAPOX EQUALS RQVV +4 # I(2)
005773,001122: E4,1576 E4,1521 HPERX EQUALS HAPOX +2 # I(2)
005774,001123:
005775,001124:
005776,001125: # V82 STORAGE (6D)
005777,001126:
005778,001127: E4,1576 E4,1567 VONE' EQUALS VECTAB +30D # I(6)TMP NORMAL VELOCITY VONE /SQRT. MU
005779,001128:
005780,001129: # R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE- (28D)
005781,001130:
|
|
Page 131
|
005783,001132: E4,1576 E4,1504 BASETHV EQUALS RPQV # I(6) BASE VEL VECTOR THIS VEH
005784,001133:
005785,001134:
005786,001135: E4,1576 E4,1513 BASETIME EQUALS RQVV # I(2) TIME ASSOC WITH BASE VECS
005787,001136: E4,1576 E4,1515 ORIG EQUALS RQVV +2 # I(1) =0 FOR EARTH =2 FOR MOON
005788,001137: E4,1576 E4,1516 STATEXIT EQUALS RQVV +3 # I(1) STQ ADDRESS FOR STATEXTP
005789,001138: E4,1576 E4,1517 BASEOTV EQUALS RQVV +4 # I(6) BASE VEL VECTOR OTHER VEH
005790,001139:
005791,001140:
005792,001141: E4,1576 E4,1537 BASEOTP EQUALS VECTAB +6 # I(6) BASE POS VECTOR OTHER VEH
005793,001142:
005794,001143:
005795,001144: E4,1576 E4,1567 BASETHP EQUALS VECTAB +30D # I(6) BASE POS VECTOR THIS VEH
005796,001145:
005797,001146:
005798,001147:
005799,001148: # KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (6D)
005800,001149: # CONICS)
005801,001150:
005802,001151: E4,1576 XMODULO ERASE +5 # I(2)
005803,001152: E4,1604 E4,1600 TMODULO EQUALS XMODULO +2 # I(2)
005804,001153: E4,1604 E4,1602 EPSILONT EQUALS TMODULO +2 # I(2)
005805,001154:
005806,001155:
005807,001156: # VERB 83 STORAGE. (18D)
005808,001157:
005809,001158: E4,1604 RANGE ERASE +17D # I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
005810,001159: E4,1626 E4,1606 RRATE EQUALS RANGE +2 # I(2)DSP NOUN 54 RATE OF APPROACH.
005811,001160: E4,1626 E4,1610 RTHETA EQUALS RRATE +2 # I(2)DSP NOUN 54.
005812,001161: E4,1626 E4,1612 RONE EQUALS RTHETA +2 # I(6)TMP VECTOR STORAGE. (SCRATCH)
005813,001162: E4,1626 E4,1620 VONE EQUALS RONE +6 # I(6)TMP VECTOR STORAGE. (SCRATCH)
005814,001163:
005815,001164:
005816,001165: E4,1626 E4,1604 WWPOS = RANGE # NOUN 99 (V67)
005817,001166: E4,1626 E4,1606 WWVEL = RRATE # NOUN 99 (V67)
005818,001167: # V82 STORAGE. (CANNOT OVERLAY RONE OR VONE) (11D) TWO SEPARATE LOCATIONS
005819,001168:
005820,001169: E4,1626 E4,1537 V82FLAGS EQUALS VECTAB +6 # (1) FOR V82 BITS.
005821,001170: E4,1626 E4,1540 TFF EQUALS V82FLAGS +1 # I(2)
005822,001171: E4,1626 E4,1542 -TPER EQUALS TFF +2 # I(2)
005823,001172:
005824,001173:
005825,001174: E4,1626 E4,1604 HPERMIN EQUALS RANGE # I(2) SET TO 300KFT OR 35KFT FOR SR30.1
005826,001175: E4,1626 E4,1606 RPADTEM EQUALS HPERMIN +2 # I(2) PAD OR LANDING RADIUS FOR SR30.1
005827,001176: E4,1626 E4,1610 TSTART82 EQUALS RPADTEM +2 # I(2) TEMP TIME STORAGE FOR V82.
005828,001177:
005829,001178:
005830,001179:
005831,001180: # VARIOUS DISPLAY REGISTERS (6D) NOUN 84; P76
005832,001181:
|
|
Page 132
|
005834,001183: E4,1626 DELVOV ERASE +5D # (6)
005835,001184:
005836,001185:
005837,001186: # ALIGNMENT PLANETARY-INERTIAL TRANSFORMATION STORAGE. (18D)
005838,001187:
005839,001188: # UNSHARED WHILE LM ON LUNAR SURFACE.
005840,001189:
005841,001190: E4,1634 GSAV ERASE +17D # I(6)
005842,001191: E4,1656 E4,1642 YNBSAV EQUALS GSAV +6 # I(6)
005843,001192: E4,1656 E4,1650 ZNBSAV EQUALS YNBSAV +6 # I(6)
005844,001193:
005845,001194:
005846,001195:
005847,001196: # KALCMANU STORAGE. CAN OVERLAY GSAV. (18D)
005848,001197:
005849,001198: E4,1656 E4,1634 MFS EQUALS GSAV # I(18)
005850,001199: E4,1656 E4,1634 MFI EQUALS MFS # I
005851,001200: E4,1656 E4,1634 KEL EQUALS MFS # I(18)
005852,001201: E4,1656 E4,1634 E01 EQUALS MFS # I(6)
005853,001202: E4,1656 E4,1642 E02 EQUALS E01 +6 # I(6)
005854,001203:
005855,001204: # LR VEL BEAM VECTORS. (26D)
005856,001205:
005857,001206: # CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY.
005858,001207:
005859,001208: E4,1656 E4,1634 VZBEAMNB EQUALS GSAV # I(6) LR VELOCITY BEAMS IN NB COORDS.
005860,001209: E4,1656 E4,1642 VYBEAMNB EQUALS VZBEAMNB +6 # I(6)
005861,001210: E4,1656 E4,1650 VXBEAMNB EQUALS VYBEAMNB +6 # I(6) PRESERVE Z,Y,X ORDER.
005862,001211:
005863,001212:
005864,001213: E4,1656 E4,1656 LRVTIME = VXBEAMNB +6 # B(2) LR
005865,001214: E4,1656 E4,1660 LRXCDU = LRVTIME +2 # B(1) LR
005866,001215: E4,1656 E4,1661 LRYCDU = LRXCDU +1 # B(1) LR
005867,001216: E4,1656 E4,1662 LRZCDU = LRYCDU +1 # B(1) LR
005868,001217: E4,1656 E4,1663 PIPTEM = LRZCDU +1 # B(3) LR
005869,001218:
005870,001219:
005871,001220: # P32-P35, P72-P75 STORAGE. (40D)
005872,001221:
005873,001222: E4,1656 T1TOT2 ERASE +1 # (2) TIME FROM CSI TO CDH
005874,001223: E4,1660 T2TOT3 ERASE +1 # (2)
005875,001224: E4,1662 ELEV ERASE +1 # (2)
005876,001225: E4,1664 UP1 ERASE +5 # (6)
005877,001226: E4,1672 DELVEET1 ERASE +5 # I(6) DV CSI IN REF
005878,001227: E4,1700 DELVEET2 ERASE +5 # I(6) DV CSH IN REF
005879,001228: E4,1706 RACT1 ERASE +5 # (6) POS VEC OF ACTIVE AT CSI TIME
005880,001229: E4,1714 RACT2 ERASE +5 # (6) POS VEC OF ACTIVE AT CDH TIME
005881,001230:
|
|
Page 133
|
005883,001232: E4,1722 RTSR1/MU ERASE +1 # (2) SQ ROOT 1/MU STORAGE
005884,001233: E4,1724 RTMU ERASE +1 # (2) MU STORAGE
005885,001234:
005886,001235:
005887,001236:
005888,001237: # (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
005889,001238:
005890,001239: E4,1726 E4,1656 +MGA EQUALS T1TOT2 # (2) S-S + MID GIM ANGL TO DELVEET3
005891,001240:
005892,001241:
005893,001242: E4,1726 E4,1664 UNRM EQUALS UP1 # I(6) S-S
005894,001243:
005895,001244:
005896,001245: E4,1726 E4,1706 DVLOS EQUALS RACT1 # I(6) S-S DELTA VELOCITY,LOS COORD-DISPLA
005897,001246: E4,1726 E4,1714 ULOS EQUALS RACT2 # I(6) S-S UNIT LINE OF SIGHT VECTOR
005898,001247:
005899,001248:
005900,001249: E4,1726 E4,1722 NOMTPI EQUALS RTSR1/MU # (2) S-S NOMINAL TPI TIME FOR RECYCLE
005901,001250:
005902,001251:
005903,001252: # SOME P30 STORAGE. (4D)
005904,001253:
005905,001254: E4,1726 E4,1722 HAPO EQUALS RTSR1/MU # I(2)
005906,001255: E4,1726 E4,1724 HPER EQUALS HAPO +2 # I(2)
005907,001256:
005908,001257:
005909,001258:
005910,001259: # SOME P38-P39,P78-79 STORAGE. (6D)
005911,001260:
005912,001261: E4,1726 E4,1706 DELTAR EQUALS DVLOS # I(2)
005913,001262: E4,1726 E4,1710 DELTTIME EQUALS DELTAR +2 # I(2) TIME REPRESENTATION OF DELTAR
005914,001263: E4,1726 E4,1712 TARGTIME EQUALS DELTTIME +2 # I(2) TINT MINUS DELTTIME
005915,001264:
005916,001265: E4,1726 E4,1706 TINTSOI EQUALS DELTAR # I(2) TIME OF INTERCEPT FOR SOI PHASE
005917,001266:
005918,001267:
005919,001268:
005920,001269: # THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
005921,001270:
005922,001271: E4,1726 E4,1400 TRANSM1 = WRENDPOS # E4,1400
005923,001272: E4,1726 E4,1422 ALFDK = TRANSM1 +18D
005924,001273:
005925,001274:
005926,001275: # ******* THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE *******
005927,001276:
005928,001277:
005929,001278: # V47(R47)AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83) (14D)
005930,001279:
005931,001280: E4,1726 E4,1604 AGSBUFF EQUALS RANGE # B(14D)
005932,001281: E4,1726 E4,1621 AGSBUFFE EQUALS AGSBUFF +13D # ENDMARK
005933,001282:
|
|
Page 134
|
005935,001284:
005936,001285: # R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83) (12D)
005937,001286:
005938,001287: E4,1726 E4,1612 RPASS36 EQUALS RONE # I(6) S-S
005939,001288: E4,1726 E4,1620 UNP36 EQUALS RPASS36 +6 # I(6) S-S
005940,001289:
005941,001290:
005942,001291: # S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05(V64).(OVERLAYS V83) (10D)
005943,001292: # (OPERATES DURING P00 ONLY)
005944,001293:
005945,001294: E4,1726 E4,1604 ALPHASB EQUALS RANGE # B(2)DSP NOUN 51. PITCH ANGLE.
005946,001295: E4,1726 E4,1606 BETASB EQUALS ALPHASB +2 # B(2)DSP NOUN 51. YAW ANGLE.
005947,001296: E4,1726 E4,1610 RLM EQUALS BETASB +2 # I(6)S S/C POSITION VECTOR.
005948,001297:
005949,001298: # **** USED IN S-BAND ANTENNA FOR LM ****
005950,001299:
005951,001300: E4,1726 E4,1606 YAWANG EQUALS BETASB
005952,001301: E4,1726 E4,1604 PITCHANG EQUALS ALPHASB
005953,001302:
005954,001303:
005955,001304: # NOUN 56 DATA - COMPUTED AND DISPLAYED BY VERB 85. (4)
005956,001305:
005957,001306: E4,1726 E4,1604 RR-AZ EQUALS PITCHANG # I(2) ANGLE BETWEEN LOS AND X-Z PLANE.
005958,001307: E4,1726 E4,1606 RR-ELEV EQUALS RR-AZ +2 # I(2) ANGLE BETWEEN LOS AND Y-Z PLANE.
005959,001308:
005960,001309: # R04(V62) RADAR TEST STORAGE. (8D)
005961,001310: # R04 IS RESTRICTED TO P00.
005962,001311:
005963,001312: E4,1726 E4,1604 RSTACK EQUALS RANGE # B(8) BUFFER FOR R04 NOUNS.
005964,001313:
005965,001314:
005966,001315:
005967,001316: # INITVEL STORAGE. ALSO USED BY P31,P34,P35,P74,P75,P10,P11,MIDGIM,S40.1 AND S40.9. (18D)
005968,001317:
005969,001318: # (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
005970,001319:
005971,001320: E4,1726 RINIT ERASE +5 # I(6) ACTIVE VEHICLE POSITION
005972,001321: E4,1734 VINIT ERASE +5 # I(6) ACTIVE VEHICLE VELOCITY
005973,001322: E4,1742 VIPRIME ERASE +5 # I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
005974,001323:
005975,001324: # VARIOUS DISPLAY REGISTERS. BALLANGS (3D)
005976,001325:
005977,001326: E4,1750 FDAIX ERASE # I(1)
005978,001327: E4,1751 FDAIY ERASE # I(1)
005979,001328: E4,1752 FDAIZ ERASE # I(1)
005980,001329:
005981,001330: # P34-P35 STORAGE. DOWNLINKED.
005982,001331:
005983,001332: # (2D)
005984,001333:
|
|
Page 135
|
005986,001335: E4,1753 DELVTPF ERASE +1 # I(2) DELTA V FOR TPF
005987,001336:
005988,001337: # SOME R04(V62)-R77 RADAR TEST STORAGE (6D)
005989,001338:
005990,001339: E4,1755 RTSTDEX ERASE # (1)
005991,001340: E4,1756 RTSTMAX ERASE # (1)
005992,001341: E4,1757 RTSTBASE ERASE # (1)
005993,001342: E4,1760 RTSTLOC ERASE # (1)
005994,001343: E4,1761 E4,1760 RSTKLOC = RTSTLOC
005995,001344: E4,1761 RSAMPDT ERASE # (1)
005996,001345: E4,1762 RFAILCNT ERASE # (1)
005997,001346:
005998,001347:
005999,001348: # LPS20.1 STORAGE
006000,001349:
006001,001350: # (12D)
006002,001351:
006003,001352:
006004,001353: E4,1763 E4,1755 LMPOS EQUALS RTSTDEX # I(6)TEMP. STORAGE FOR LM POS. VECTOR.
006005,001354: E4,1763 E4,1763 LMVEL EQUALS LMPOS +6 # I(6)TEMP. STORAGE FOR LM VEL. VECTOR.
006006,001355:
006007,001356:
006008,001357: E4,1763 END-E4 EQUALS # FIRST UNUSED LOCATION IN E4
006009,001358:
006010,001359: # SECOND DPS GUIDANCE (LUNAR LANDING) (OVERLAY P32-35,INITVEL) (26D)
006011,001360:
006012,001361: E4,1763 E4,1666 VHORIZ EQUALS PIPTEM +3 # I(2) DISPLAY
006013,001362: E4,1763 E4,1670 ACG EQUALS VHORIZ +2 # I(6) GUIDANCE
006014,001363: E4,1763 E4,1676 JLING EQUALS ACG +6 # I(6) GUIDANCE
006015,001364: E4,1763 E4,1704 ANGTERM EQUALS JLING +6 # I(6) GUIDANCE
006016,001365: E4,1763 E4,1712 HBEAMNB EQUALS ANGTERM +6 # I(6) LANDING RADAR
006017,001366: E4,1763 E4,1740 LRXCDUDL EQUALS /LAND/ +2 # B(1) LANDING RADAR DOWNLINK
006018,001367: E4,1763 E4,1741 LRYCDUDL EQUALS LRXCDUDL +1 # B(1) LANDING RADAR DOWNLINK
006019,001368: E4,1763 E4,1742 LRZCDUDL EQUALS LRYCDUDL +1 # B(1) LANDING RADAR DOWNLINK
006020,001369: E4,1763 E4,1743 LRVTIMDL EQUALS LRZCDUDL +1 # B(2) LANDING RADAR DOWNLINK
006021,001370:
006022,001371:
006023,001372:
006024,001373:
006025,001374: # ASCENT GUIDANCE FOR LUNAR LANDING (62D)
006026,001375:
006027,001376: E4,1763 E4,1656 AT EQUALS T1TOT2 # I(2)TMP ENGINE DATA -- THRUST ACC.*2(9)
006028,001377: E4,1763 E4,1660 VE EQUALS AT +2 # I(2)TMP EXHAUST VELOCITY * 2(7)M/CS.
006029,001378: E4,1763 E4,1662 TTO EQUALS VE +2 # I(2)TMP TAILOFF TIME * 2(17)CS.
006030,001379: E4,1763 E4,1664 TBUP EQUALS TTO +2 # I(2)TMP (M/MDOT) * 2(17)CS.
006031,001380: E4,1763 E4,1666 RDOTD EQUALS TBUP +2 # I(2)TMP TARGET VELOCITY COMPONENTS
006032,001381: E4,1763 E4,1670 YDOTD EQUALS RDOTD +2 # I(2)TMP SCALING IS 2(7)M/CS.
006033,001382: E4,1763 E4,1672 ZDOTD EQUALS YDOTD +2 # I(2)TMP
006034,001383:
006035,001384: E4,1763 E4,1674 /R/MAG EQUALS ZDOTD +2 # I(2)TMP
006036,001385: E4,1763 E4,1676 LAXIS EQUALS /R/MAG +2 # I(6)TMP
006037,001386:
|
|
Page 136
|
006039,001388: E4,1763 E4,1704 ZAXIS1 EQUALS LAXIS +6 # I(6)TMP SYSTEM (R,L,Z).
006040,001389: E4,1763 E4,1712 RDOT EQUALS ZAXIS1 +6 # I(2)TMP RADIAL RATE *2 (-7).
006041,001390: E4,1763 E4,1714 YDOT EQUALS RDOT +2 # I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7)
006042,001391: E4,1763 E4,1716 ZDOT EQUALS YDOT +2 # I(2)TMP DOWN RANGE VEL *2(-7).
006043,001392: E4,1763 E4,1720 GEFF EQUALS ZDOT +2 # I(2)TMP EFFECTIVE GRAVITY
006044,001393:
006045,001394: # THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT SERVICER SECTION FOLLOWING THIS SECTION
006046,001395:
006047,001396: E4,1763 E4,1740 Y EQUALS /LAND/ +2 # I(2)TMP OUT-OF-PLANE DIST *2(24)M
006048,001397: E4,1763 E4,1742 DRDOT EQUALS Y +2 # I(2)TMP RDOTD - RDOT
006049,001398: E4,1763 E4,1744 DYDOT EQUALS DRDOT +2 # I(2)TMP YDOTD - YDOT
006050,001399: E4,1763 E4,1746 DZDOT EQUALS DYDOT +2 # I(2)TMP ZDOTD - ZDOT
006051,001400: E4,1763 E4,1750 PCONS EQUALS DZDOT +2 # I(2)TMP CONSTANT IN ATR EQUATION
006052,001401: E4,1763 E4,1752 YCONS EQUALS PCONS +2 # I(2)TMP CONSTANT IN ATY EQUATION
006053,001402: E4,1763 E4,1754 PRATE EQUALS YCONS +2 # I(2)TMP RATE COEFF. IN ATR EQUATION
006054,001403: E4,1763 E4,1756 YRATE EQUALS PRATE +2 # I(2)TMP RATE COEFF. IN ATY EQUATION
006055,001404: E4,1763 E4,1760 ATY EQUALS YRATE +2 # I(2)TMP OUT-OF-PLANE THRUST COMP.*2(9)
006056,001405: E4,1763 E4,1762 ATR EQUALS ATY +2 # I(2)TMP RADIAL THRUST COMP.*2(9)
006057,001406: E4,1763 E4,1764 ATP EQUALS ATR +2 # I(2)TMP DOWN-RANGE THRUST COMP
006058,001407: E4,1763 E4,1766 YAW EQUALS ATP +2 # I(2)TMP
006059,001408: E4,1763 E4,1770 PITCH EQUALS YAW +2 # I(2)RMP
006060,001409:
006061,001410:
006062,001411: # SERVICER FOR LUNAR ASCENT AND DESCENT (14D)
006063,001412:
006064,001413: E4,1763 E4,1722 G(CSM) EQUALS GEFF +2 # I(6) FOR UPDATE OF COMMAND MODULE STATE
006065,001414: E4,1763 E3,1717 R(CSM) EQUALS R-OTHER # VECTORS BY LEM; ANALOGS OF GDT/2,
006066,001415: E4,1763 E3,1725 V(CSM) EQUALS V-OTHER # R, AND V, RESPECTIVELY OF THE CSM
006067,001416: E4,1763 E4,1730 WM EQUALS G(CSM) +6 # I(6) TMP - LUNAR ROTATION VECTOR (SM)
006068,001417: E4,1763 E4,1736 /LAND/ EQUALS WM +6 # B(2) LUNAR RADIUS AT LANDING SITE
006069,001418:
|
|
Page 137
|
006071,001420: # EBANK-5 ASSIGNMENTS
006072,001421:
006073,001422: E5,1400 SETLOC 2400
006074,001423:
006075,001424: # W-MATRIX. ESSENTIALLY UNSHARABLE. (162D)
006076,001425:
006077,001426: E5,1400 W ERASE +161D
006078,001427: E5,1642 E5,1642 ENDW EQUALS W +162D
006079,001428:
006080,001429:
006081,001430:
006082,001431: # ******* OVERLAY NUMBER 1 IN EBANK 5 *******
006083,001432:
006084,001433:
006085,001434: # LUNAR LANDING TARGET PARAMETERS - PADLOADED - (64D)
006086,001435:
006087,001436: # PLEASE RETAIN THE ORDER OF TLAND THRU JAPFG
006088,001437:
006089,001438: E5,1642 E5,1400 TLAND EQUALS W # I(2) NOMINAL TIME OF LANDING
006090,001439: E5,1642 E5,1402 RBRFG EQUALS TLAND +2 # I(6) BRAKING
006091,001440: E5,1642 E5,1410 VBRFG EQUALS RBRFG +6 # I(6) PHASE
006092,001441: E5,1642 E5,1416 ABRFG EQUALS VBRFG +6 # I(6) TARGET
006093,001442: E5,1642 E5,1424 VBRFG* EQUALS ABRFG +6 # I(2) PARAMETERS:
006094,001443: E5,1642 E5,1426 ABRFG* EQUALS VBRFG* +2 # I(2) HIGH
006095,001444: E5,1642 E5,1430 JBRFG* EQUALS ABRFG* +2 # I(2) GATE
006096,001445: E5,1642 E5,1432 RAPFG EQUALS JBRFG* +2 # I(6) APPROACH
006097,001446: E5,1642 E5,1440 VAPFG EQUALS RAPFG +6 # I(6) PHASE
006098,001447: E5,1642 E5,1446 AAPFG EQUALS VAPFG +6 # I(6) TARGET
006099,001448: E5,1642 E5,1454 VAPFG* EQUALS AAPFG +6 # I(2) PARAMETERS:
006100,001449: E5,1642 E5,1456 AAPFG* EQUALS VAPFG* +2 # I(2) LOW
006101,001450: E5,1642 E5,1460 JAPFG* EQUALS AAPFG* +2 # I(2) GATE
006102,001451: E5,1642 E5,1462 VIGN EQUALS JAPFG* +2 # I(2) DESIRED SPEED FOR IGNITION
006103,001452: E5,1642 E5,1464 RIGNX EQUALS VIGN +2 # I(2) DESIRED 'ALTITUDE' FOR IGNITION
006104,001453: E5,1642 E5,1466 RIGNZ EQUALS RIGNX +2 # I(2) DESIRED GROUND RANGE FOR IGNITION
006105,001454: E5,1642 E5,1470 KIGNX/B4 EQUALS RIGNZ +2 # I(2)
006106,001455: E5,1642 E5,1472 KIGNY/B8 EQUALS KIGNX/B4 +2 # I(2)
006107,001456: E5,1642 E5,1474 KIGNV/B4 EQUALS KIGNY/B8 +2 # I(2)
006108,001457: E5,1642 E5,1476 LOWCRIT EQUALS KIGNV/B4 +2 # B(1) (HIGHCRIT MUST FOLLOW LOWCRIT)
006109,001458: E5,1642 E5,1477 HIGHCRIT EQUALS LOWCRIT +1 # B(1) %S OF NOMINAL MAXIMUM THRUST
006110,001459:
006111,001460: E5,1642 0130 L*WCR*T = BUF # TEMPORARY STORAGE IN UNSWITCHED
006112,001461: E5,1642 0131 H*GHCR*T = BUF +1 # FOR USE IN EBANK SWITCHING LOWCRIT
006113,001462:
006114,001463: E5,1642 E5,1500 DELQFIX EQUALS HIGHCRIT +1 # I(2) LR ALTITUDE DATA REASONABLE PARM.
006115,001464:
006116,001465:
006117,001466:
006118,001467: # P70-P71 PADLOADED * ASCENT * (5D)
006119,001468:
|
|
Page 138
|
006121,001470: E5,1642 E5,1502 TBRKPNT EQUALS DELQFIX +2 # I(1) TFI BRANCH TIME:ABORT TARGET PCR133
006122,001471: E5,1642 E5,1503 ABTVINJ1 EQUALS TBRKPNT +1 # I(2) ABORT VELOCITY;TFI LESSTHAN TBRKPNT
006123,001472: E5,1642 E5,1505 ABTVINJ2 EQUALS ABTVINJ1 +2 # I(2) ABORT VEL ;TFI GREATER THAN TBRKPNT
006124,001473:
006125,001474:
006126,001475: # SOME VARIABLES FOR SECOND DPS GUIDANCE (34D)
006127,001476:
006128,001477: E5,1642 E5,1507 CG EQUALS ABTVINJ2 +2 # I(18D) GUIDANCE
006129,001478: E5,1642 E5,1531 RANGEDSP = CG +18D # B(2) DISPLAY
006130,001479: E5,1642 E5,1533 OUTOFPLN = RANGEDSP +2 # B(2) DISPLAY
006131,001480: E5,1642 E5,1535 R60VSAVE EQUALS OUTOFPLN +2 # I(6)TMP SAVES VALUE OF POINTVSM THRU R51
006132,001481: E5,1642 E5,1543 RGU EQUALS R60VSAVE +6 # I(6) UNSHARED FOR DOWNLINK
006133,001482:
006134,001483: # ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE. (36D)
006135,001484:
006136,001485: E5,1642 E5,1642 XSM EQUALS ENDW # B(6)
006137,001486: E5,1642 E5,1650 YSM EQUALS XSM +6 # B(6)
006138,001487: E5,1642 E5,1656 ZSM EQUALS YSM +6 # B(6)
006139,001488:
006140,001489: E5,1642 E5,1664 XDC EQUALS ZSM +6 # B(6)
006141,001490: E5,1642 E5,1672 YDC EQUALS XDC +6 # B(6)
006142,001491: E5,1642 E5,1700 ZDC EQUALS YDC +6 # B(6)
006143,001492:
006144,001493: E5,1642 E5,1664 XNB = XDC
006145,001494: E5,1642 E5,1672 YNB = YDC
006146,001495: E5,1642 E5,1700 ZNB = ZDC
006147,001496:
006148,001497: # OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE. (4D)
006149,001498:
006150,001499: E5,1642 E5,1644 -COSB EQUALS XSM +2 # (2)TMP
006151,001500: E5,1642 E5,1646 SINB EQUALS -COSB +2 # (2)TMP
006152,001501:
006153,001502:
006154,001503: # MORE OVERLAYS TO ALIGNMENT /SYSTEST (THESE ARE P52) (6D)
006155,001504:
006156,001505: E5,1642 E5,1706 LANDLAT EQUALS STARAD # (2) LATITUDE, LONGITUDE
006157,001506: E5,1642 E5,1710 LANDLONG EQUALS LANDLAT +2 # (2) AND ALTITUDE
006158,001507: E5,1642 E5,1712 LANDALT EQUALS LANDLONG +2 # (2) OF LANDING SITE
006159,001508:
006160,001509: # ALIGNMENT/SYSTEST COMMON STORAGE. (31D)
006161,001510:
006162,001511: E5,1642 E5,1706 STARAD EQUALS ZDC +6 # I(18D)TMP
006163,001512: E5,1642 E5,1730 STAR EQUALS STARAD +18D # I(6)
006164,001513: E5,1642 E5,1736 GCTR EQUALS STAR +6 # B(1)
006165,001514: E5,1642 E5,1737 OGC EQUALS GCTR +1 # I(2)
006166,001515: E5,1642 E5,1741 IGC EQUALS OGC +2 # I(2)
006167,001516: E5,1642 E5,1743 MGC EQUALS IGC +2 # I(2)
006168,001517:
|
|
Page 139
|
006170,001519: # P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE) (12D)
006171,001520:
006172,001521: E5,1642 E5,1706 GACC = STARAD # (6) SS
006173,001522: E5,1642 E5,1714 GOUT = STARAD +6 # (6) SS
006174,001523:
006175,001524:
006176,001525: # OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE (24D)
006177,001526:
006178,001527: E5,1642 E5,1706 VEARTH EQUALS STARAD # (6)TMP
006179,001528: E5,1642 E5,1714 VSUN EQUALS VEARTH +6 # (6)TMP
006180,001529: E5,1642 E5,1722 VMOON EQUALS VSUN +6 # (6)TMP
006181,001530: E5,1642 E5,1730 SAX EQUALS VMOON +6 # (6)TMP
006182,001531:
006183,001532:
006184,001533: # P50'S,R50'S Q STORES. (2D)
006185,001534:
006186,001535: E5,1642 E5,1745 QMIN EQUALS MGC +2 # B(1)TMP
006187,001536: E5,1642 E5,1746 QMAJ EQUALS QMIN +1 # B(1)TMP
006188,001537:
006189,001538:
006190,001539: # **** USED IN P50S **** (SCATTERED OVERLAYS)
006191,001540: E5,1642 E5,1706 XSCI EQUALS STARAD
006192,001541: E5,1642 E5,1714 YSCI EQUALS XSCI +6
006193,001542: E5,1642 E5,1714 ZSCI EQUALS YSCI
006194,001543: E5,1642 E5,1706 CULTRIX EQUALS VEARTH # VEARTH, VSUN, VMOON
006195,001544: E5,1642 E5,1722 VEC1 EQUALS STARAD +12D
006196,001545: E5,1642 E5,1730 VEC2 EQUALS STAR
006197,001546:
006198,001547:
006199,001548:
006200,001549: # ALIGNMENT STORAGE. (23D)
006201,001550:
006202,001551: E5,1642 E5,1747 OGCT EQUALS QMAJ +1 # I(6)
006203,001552: E5,1642 E5,1755 BESTI EQUALS OGCT +6 # I(1)
006204,001553: E5,1642 E5,1756 BESTJ EQUALS BESTI +1
006205,001554: E5,1642 E5,1757 STARIND EQUALS BESTJ +1
006206,001555: # RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES.
006207,001556: E5,1642 E5,1760 STARSAV1 EQUALS STARIND +1 # I(6)
006208,001557: E5,1642 E5,1766 STARSAV2 EQUALS STARSAV1 +6 # I(6)
006209,001558: E5,1642 E5,1774 TALIGN EQUALS STARSAV2 +6 # B(2) TIME OF IMU ALIGNMENT (DOWNLINKED)
006210,001559: # VEL/C EQUALS STARSAV2 +6 I(6)TMP (NOT USED IN LEM)
006211,001560:
006212,001561:
006213,001562: E5,1642 ZPRIME = 22D
006214,001563: E5,1642 PDA = 22D
006215,001564: E5,1642 COSTH = 16D
006216,001565: E5,1642 SINTH = 18D
006217,001566: E5,1642 THETA = 20D
006218,001567: E5,1642 STARM = 32D
006219,001568:
|
|
Page 140
|
006221,001570: # ******* OVERLAY NUMBER 2 IN EBANK 5 *******
006222,001571:
006223,001572:
006224,001573: # CONICS ROUTINE STORAGE. (85D)
006225,001574:
006226,001575: E5,1642 E5,1642 DELX EQUALS ENDW # I(2)TMP
006227,001576: E5,1642 E5,1644 DELT EQUALS DELX +2 # I(2)TMP
006228,001577: E5,1642 E5,1646 URRECT EQUALS DELT +2 # I(6)TMP
006229,001578: E5,1642 RCNORM EQUALS 34D # I(2) TMP
006230,001579: E5,1642 E3,1552 XPREV EQUALS XKEP # I(2)TMP
006231,001580: E5,1642 E5,1654 R1VEC EQUALS URRECT +6 # I(6) TMP
006232,001581: E5,1642 E5,1662 R2VEC EQUALS R1VEC +6 # I(6)TMP
006233,001582: E5,1642 E5,1670 TDESIRED EQUALS R2VEC +6 # I(2)TMP
006234,001583: E5,1642 E5,1672 GEOMSGN EQUALS TDESIRED +2 # I(1)TMP
006235,001584: E5,1642 E5,1673 UN EQUALS GEOMSGN +1 # I(6)TMP
006236,001585: E5,1642 E5,1701 VTARGTAG EQUALS UN +6 # I(1)TMP
006237,001586: E5,1642 E5,1702 VTARGET EQUALS VTARGTAG +1 # I(6)TMP
006238,001587: E5,1642 E5,1710 RTNLAMB EQUALS VTARGET +6 # I(1)TMP
006239,001588: E5,1642 E5,1711 U2 EQUALS RTNLAMB +1 # I(6)TMP
006240,001589: E5,1642 E5,1717 MAGVEC2 EQUALS U2 +6 # I(2)TMP
006241,001590: E5,1642 E5,1721 UR1 EQUALS MAGVEC2 +2 # I(6)TMP
006242,001591: E5,1642 E5,1727 SNTH EQUALS UR1 +6 # I(2)TMP
006243,001592: E5,1642 E5,1731 CSTH EQUALS SNTH +2 # I(2)TMP
006244,001593: E5,1642 E5,1733 1-CSTH EQUALS CSTH +2 # I(2)TMP
006245,001594: E5,1642 E5,1735 CSTH-RHO EQUALS 1-CSTH +2 # I(2)TMP
006246,001595: E5,1642 E5,1737 P EQUALS CSTH-RHO +2 # I(2)TMP
006247,001596: E5,1642 E5,1741 R1A EQUALS P +2 # I(2)TMP
006248,001597: E5,1642 E5,1654 RVEC EQUALS R1VEC # I(6)TMP
006249,001598: E5,1642 E5,1743 VVEC EQUALS R1A +2 # I(6)TMP
006250,001599: E5,1642 E5,1710 RTNTT EQUALS RTNLAMB # I(1)TMP
006251,001600: E5,1642 E5,1751 ECC EQUALS VVEC +6 # I(2)TMP
006252,001601: E5,1642 E5,1710 RTNTR EQUALS RTNLAMB # I(1)TMP
006253,001602: E5,1642 E5,1710 RTNAPSE EQUALS RTNLAMB # I(1)TMP
006254,001603: E5,1642 E5,1717 R2 EQUALS MAGVEC2 # I(2)TMP
006255,001604: E5,1642 E5,1753 RTNPRM EQUALS ECC +2 # I(1)TMP
006256,001605: E5,1642 E5,1754 SGNRDOT EQUALS RTNPRM +1 # I(1)TMP
006257,001606: E5,1642 E5,1755 RDESIRED EQUALS SGNRDOT +1 # I(2)TMP
006258,001607: E5,1642 E5,1757 DELDEP EQUALS RDESIRED +2 # I(2)TMP
006259,001608: E5,1642 E5,1761 DEPREV EQUALS DELDEP +2 # I(2)TMP
006260,001609: E5,1642 E5,1757 TERRLAMB EQUALS DELDEP # I(2)TMP
006261,001610: E5,1642 E5,1761 TPREV EQUALS DEPREV # I(2)TMP
006262,001611: E5,1642 E5,1763 EPSILONL EQUALS DEPREV +2 # I(2)TMP
006263,001612: E5,1642 E5,1765 COGA EQUALS EPSILONL +2 # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE.
006264,001613: E5,1642 E5,1765 INDEP EQUALS COGA # USED BY SUBROUTINE'ITERATOR'.
006265,001614:
|
|
Page 141
|
006267,001616: # ******* OVERLAY NUMBER 3 IN EBANK 5 *******
006268,001617:
006269,001618: # INCORP STORAGE. (18D)
006270,001619:
006271,001620: E5,1642 E5,1642 ZI EQUALS ENDW # I(18)TMP
006272,001621:
006273,001622: # INCORP/L SR22.3 STORAGE. (21D)
006274,001623:
006275,001624: E5,1642 E5,1664 DELTAX EQUALS ZI +18D # I(18)
006276,001625: E5,1642 E5,1706 VARIANCE EQUALS DELTAX +18D # I(3)
006277,001626:
006278,001627: # MEASUREMENT INCORPORATION -R22- STORAGE. (49D)
006279,001628:
006280,001629: E5,1642 E5,1711 GRP2SVQ EQUALS VARIANCE +3 # I(1)TMP QSAVE FOR RESTARTS
006281,001630: E5,1642 E5,1712 OMEGAM1 EQUALS GRP2SVQ +1 # I(6)
006282,001631: E5,1642 E5,1720 OMEGAM2 EQUALS OMEGAM1 +6 # I(6)
006283,001632: E5,1642 E5,1726 OMEGAM3 EQUALS OMEGAM2 +6 # I(6)
006284,001633: E5,1642 E5,1734 HOLDW EQUALS OMEGAM3 +6 # I(18)
006285,001634: E5,1642 E5,1756 TDPOS EQUALS HOLDW +18D # I(6)
006286,001635: E5,1642 E5,1764 TDVEL EQUALS TDPOS +6 # I(6)
006287,001636:
006288,001637:
006289,001638: E5,1642 E5,1664 TRIPA EQUALS DELTAX # I(3)TMP
006290,001639: E5,1642 E5,1667 TEMPVAR EQUALS TRIPA +3 # I(3)TMP
006291,001640:
006292,001641:
006293,001642:
006294,001643:
006295,001644: # INCORPORATION/INTEGRATION Q STORAGE. (1D)
006296,001645:
006297,001646: E5,1642 E5,1772 EGRESS EQUALS TDVEL +6 # I(1)
006298,001647:
006299,001648:
006300,001649:
006301,001650: # P30/P31 STORAGE. (1D) AND ONE OVERLAY
006302,001651:
006303,001652: E5,1642 E5,1773 P30EXIT EQUALS EGRESS +1 # B(1)TMP
006304,001653:
006305,001654:
006306,001655: E5,1642 E5,1773 ORIGIN EQUALS P30EXIT # I(1)TMP INDEX DURING INITVEL
006307,001656:
006308,001657:
|
|
Page 142
|
006310,001659: # SYSTEM TEST ERASABLES. CAN OVERLAY W MATRIX. (127D)
006311,001660:
006312,001661: # ******* OVERLAY NUMBER 0 IN EBANK 5 *******
006313,001662:
006314,001663:
006315,001664: E5,1642 E5,1400 AZIMUTH EQUALS W # 2
006316,001665: E5,1642 E5,1402 LATITUDE EQUALS AZIMUTH +2 # 2
006317,001666: E5,1642 E5,1404 ERVECTOR EQUALS LATITUDE +2 # 6
006318,001667: E5,1642 E5,1412 LENGTHOT EQUALS ERVECTOR +6 # 1
006319,001668: E5,1642 E5,1413 LOSVEC EQUALS LENGTHOT +1 # 6
006320,001669: E5,1642 E5,1414 NDXCTR EQUALS LOSVEC +1 # 1
006321,001670: E5,1642 E5,1415 PIPINDEX EQUALS NDXCTR +1 # 1
006322,001671: E5,1642 E5,1416 POSITON EQUALS PIPINDEX +1 # 1
006323,001672: E5,1642 E5,1417 QPLACE EQUALS POSITON +1 # 1
006324,001673: E5,1642 E5,1420 QPLACES EQUALS QPLACE +1 # 1
006325,001674: E5,1642 E5,1421 SOUTHDR EQUALS QPLACES +1 # 7
006326,001675: E5,1642 E5,1430 TEMPTIME EQUALS SOUTHDR +7 # 2
006327,001676: E5,1642 E5,1432 TMARK EQUALS TEMPTIME +2 # 2
006328,001677: E5,1642 E5,1434 GENPL EQUALS TMARK +2
006329,001678: E5,1642 E5,1434 CDUTIMEI = GENPL
006330,001679: E5,1642 E5,1436 CDUTIMEF = GENPL +2
006331,001680: E5,1642 E5,1440 CDUDANG = GENPL +4
006332,001681: E5,1642 E5,1441 CDUREADF = GENPL +5
006333,001682: E5,1642 E5,1442 CDUREADI = GENPL +6
006334,001683: E5,1642 E5,1443 CDULIMIT = GENPL +7
006335,001684:
006336,001685: E5,1642 E5,1440 TEMPADD = GENPL +4
006337,001686: E5,1642 E5,1441 TEMP = GENPL +5
006338,001687: E5,1642 E5,1442 NOBITS = GENPL +6
006339,001688: E5,1642 E5,1443 CHAN = GENPL +7
006340,001689:
006341,001690: E5,1642 E5,1444 LOS1 = GENPL +8D
006342,001691: E5,1642 E5,1452 LOS2 = GENPL +14D
006343,001692:
006344,001693: E5,1642 E5,1460 CALCDIR EQUALS GENPL +20D
006345,001694: E5,1642 E5,1461 CDUFLAG EQUALS GENPL +21D
006346,001695: E5,1642 E5,1462 GYTOBETQ EQUALS GENPL +22D
006347,001696: E5,1642 E5,1463 OPTNREG EQUALS GENPL +23D
006348,001697: E5,1642 E5,1464 SAVE EQUALS GENPL +24D # THREE ONSEC LOC
006349,001698: E5,1642 E5,1467 SFCONST1 EQUALS GENPL +27D
006350,001699: E5,1642 E5,1470 TIMER EQUALS GENPL +28D
006351,001700:
006352,001701: E5,1642 E5,1472 DATAPL EQUALS GENPL +30D
006353,001702: E5,1642 E5,1434 RDSP EQUALS GENPL # FIX LA ER POSSIBLY KEEP1
006354,001703: E5,1642 E5,1534 MASKREG EQUALS GENPL +64D
006355,001704: E5,1642 E5,1536 CDUNDX EQUALS GENPL +66D
006356,001705: E5,1642 E5,1537 RESULTCT EQUALS GENPL +67D
006357,001706: E5,1642 E5,1542 COUNTPL EQUALS GENPL +70D
006358,001707:
006359,001708: E5,1642 E5,1543 CDUANG EQUALS GENPL +71D
006360,001709:
|
|
Page 143
|
006362,001711: E5,1642 E5,1434 AINLA = GENPL # 110 DE OR 156 OCT LOCATIONS
006363,001712:
006364,001713: E5,1642 E5,1434 WANGO EQUALS AINLA # VERT E ATE
006365,001714: E5,1642 E5,1436 WANGI EQUALS AINLA +2D # HORIZO TAL ERATE
006366,001715: E5,1642 E5,1440 WANGT EQUALS AINLA +4D # T
006367,001716: E5,1642 E5,1440 TORQNDX = WANGT
006368,001717: E5,1642 E5,1442 DRIFTT EQUALS AINLA +6D
006369,001718: E5,1642 E5,1444 ALX1S EQUALS AINLA +8D
006370,001719: E5,1642 E5,1445 CMPX1 EQUALS AINLA +9D # IND
006371,001720: E5,1642 E5,1446 ALK EQUALS AINLA +10D # GAINS
006372,001721: E5,1642 E5,1462 VLAUNS EQUALS AINLA +22D
006373,001722: E5,1642 E5,1464 WPLATO EQUALS AINLA +24D
006374,001723: E5,1642 E5,1470 INTY EQUALS AINLA +28D # SOUTH IP INTE
006375,001724: E5,1642 E5,1472 ANGZ EQUALS AINLA +30D # EAST A IS
006376,001725: E5,1642 E5,1474 INTZ EQUALS AINLA +32D # EAST P P I
006377,001726: E5,1642 E5,1476 ANGY EQUALS AINLA +34D # SOUTH
006378,001727: E5,1642 E5,1500 ANGX EQUALS AINLA +36D # VE
006379,001728: E5,1642 E5,1502 DRIFTO EQUALS AINLA +38D # VERT
006380,001729: E5,1642 E5,1504 DRIFTI EQUALS AINLA +40D # SOU
006381,001730: E5,1642 E5,1510 VLAUN EQUALS AINLA +44D
006382,001731: E5,1642 E5,1512 ACCWD EQUALS AINLA +46D
006383,001732: E5,1642 E5,1520 POSNV EQUALS AINLA +52D
006384,001733: E5,1642 E5,1522 DPIPAY EQUALS AINLA +54D # SOUTH
006385,001734: E5,1642 E5,1526 DPIPAZ EQUALS AINLA +58D # NORTH IP INCREMENT
006386,001735: E5,1642 E5,1530 ALTIM EQUALS AINLA +60D
006387,001736: E5,1642 E5,1531 ALTIMS EQUALS AINLA +61D # INDEX
006388,001737: E5,1642 E5,1532 ALDK EQUALS AINLA +62D # TIME ONSTAN
006389,001738: E5,1642 E5,1550 DELM EQUALS AINLA +76D
006390,001739: E5,1642 E5,1560 WPLATI EQUALS AINLA +84D
006391,001740: E5,1642 E5,1562 GEOCOMPS EQUALS AINLA +86D
006392,001741: E5,1642 E5,1563 ERCOMP EQUALS AINLA +87D
006393,001742: E5,1642 E5,1571 ZERONDX EQUALS AINLA +93D
006394,001743:
006395,001744: E5,1642 E5,1452 THETAN = ALK +4
006396,001745: E5,1642 E5,1460 FILDELV EQUALS THETAN +6 # AGS ALIGNMENT STORAGE
006397,001746: E5,1642 E5,1462 INTVEC EQUALS FILDELV +2
006398,001747: E5,1642 E5,1572 1SECXT = AINLA +94D
006399,001748: E5,1642 E5,1573 ASECXT = AINLA +95D
006400,001749: E5,1642 E5,1574 PERFDLAY EQUALS AINLA +96D # B(2) DELAY TIME BEF. START DRIFT MEASURE
006401,001750: E5,1642 E5,1576 OVFLOWCK EQUALS AINLA +98D # (1) SET MEANS OVERFLOW IN IMU PERF TEST
006402,001751: # AND CAUSES TERMINATION
006403,001752:
006404,001753:
006405,001754: E5,1642 E5,1774 END-E5 EQUALS STARSAV2 +6 # *** FIRST FREE LOCATION IN E5***
006406,001755:
|
|
Page 144
|
006408,001757: # EBANK-6 ASSIGNMENTS.
006409,001758:
006410,001759: E6,1400 SETLOC 3000
006411,001760:
006412,001761: # DAP PAD-LOADED DATA. (10D)
006413,001762:
006414,001763: # ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP
006415,001764:
006416,001765: E6,1400 HIASCENT ERASE # (1) MASS AFTER STAGING, SCALE AT B16 KG.
006417,001766: E6,1401 ROLLTIME ERASE # (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
006418,001767: E6,1402 PITTIME ERASE # (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
006419,001768: E6,1403 DKTRAP ERASE # (1) DAP STATE (POSSIBLE 77001
006420,001769: E6,1404 DKOMEGAN ERASE # (1) ESTIMATOR PARA- (VALUES 00012
006421,001770: E6,1405 DKKAOSN ERASE # (1) METERS FOR THE 00074
006422,001771: E6,1406 LMTRAP ERASE # (1) DOCKED AND 77001
006423,001772: E6,1407 LMOMEGAN ERASE # (1) LEM-ALONE CASES 00000
006424,001773: E6,1410 LMKAOSN ERASE # (1) RESPECTIVELY 00074
006425,001774: E6,1411 DKDB ERASE # (1) WIDTH OF DEADBAND FOR DOCKED RCS
006426,001775: # AUTOPILOT (DB=1.4DEG IN FRESH START)
006427,001776: # DEADBAND = PI/DKDB RAD.
006428,001777:
006429,001778: # AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES: (5D)
006430,001779:
006431,001780: E6,1412 M11 ERASE # SCALED AT 1
006432,001781: E6,1413 M21 ERASE # SCALED AT 1
006433,001782: E6,1414 M31 ERASE
006434,001783: E6,1415 M22 ERASE # SCALED AT 1.
006435,001784: E6,1416 M32 ERASE # SCALED AT 1.
006436,001785:
006437,001786: # ANGLE MEASUREMENTS. (31D)
006438,001787:
006439,001788: E6,1417 OMEGAP ERASE +4 # BODY-AXIS ROT. RATES SCALED AT PI/4 AND
006440,001789: E6,1424 E6,1420 OMEGAQ EQUALS OMEGAP +1 # BODY-AXIS ACCELERATIONS SCALED AT PI/8
006441,001790: E6,1424 E6,1421 OMEGAR EQUALS OMEGAP +2
006442,001791: # RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
006443,001792: E6,1424 E6,1422 ALPHAQ EQUALS OMEGAP +3
006444,001793: E6,1424 E6,1423 ALPHAR EQUALS OMEGAP +4
006445,001794: E6,1424 OMEGAU ERASE +1
006446,001795: E6,1426 E6,1425 OMEGAV = OMEGAU +1
006447,001796:
006448,001797: E6,1426 TRAPEDP ERASE +5
006449,001798: E6,1434 E6,1427 TRAPEDQ = TRAPEDP +1
006450,001799: E6,1434 E6,1430 TRAPEDR = TRAPEDP +2
006451,001800: E6,1434 E6,1431 NPTRAPS = TRAPEDP +3
006452,001801: E6,1434 E6,1432 NQTRAPS = TRAPEDP +4
006453,001802: E6,1434 E6,1433 NRTRAPS = TRAPEDP +5
006454,001803: E6,1434 E6,1425 EDOTP = EDOT
006455,001804: E6,1434 EDOTQ ERASE +1
006456,001805: E6,1436 E6,1435 EDOTR = EDOTQ +1 # MANY SHARING NAMES
006457,001806: E6,1436 E6,1434 QRATEDIF EQUALS EDOTQ # ALTERNATIVE NAMES:
006458,001807:
|
|
Page 145
|
006460,001809: E6,1436 E6,1435 RRATEDIF EQUALS EDOTR # DELETE WHEN NO. OF REFERENCES = 0
006461,001810:
006462,001811: E6,1436 E6,1424 URATEDIF EQUALS OMEGAU
006463,001812: E6,1436 E6,1425 VRATEDIF EQUALS OMEGAV
006464,001813: E6,1436 OLDXFORP ERASE +2 # STORED CDU READINGS FOR STATE
006465,001814: E6,1441 E6,1437 OLDYFORP EQUALS OLDXFORP +1 # DERIVATIONS: SCALED AT PI RADIANS (2'S)
006466,001815: E6,1441 E6,1440 OLDZFORQ EQUALS OLDXFORP +2
006467,001816:
006468,001817: # RATE-COMMAND AND MINIMUM IMPULSE MODES
006469,001818:
006470,001819: E6,1441 CH31TEMP ERASE
006471,001820: E6,1442 STIKSENS ERASE
006472,001821: E6,1443 TCP ERASE
006473,001822: E6,1444 DXERROR ERASE +5
006474,001823: E6,1452 E6,1446 DYERROR EQUALS DXERROR +2
006475,001824: E6,1452 E6,1450 DZERROR EQUALS DXERROR +4
006476,001825: E6,1452 PLAST ERASE
006477,001826: E6,1453 QLAST ERASE
006478,001827: E6,1454 RLAST ERASE
006479,001828: E6,1455 TCQR ERASE
006480,001829: # OTHER VARIABLES. (5D)
006481,001830:
006482,001831: E6,1456 OLDPMIN ERASE # THESE THREE USED IN MIN IMPULSE MODE.
006483,001832: E6,1457 OLDQRMIN ERASE
006484,001833: E6,1460 E6,1735 TEMP31 EQUALS DAPTEMP1
006485,001834:
006486,001835: E6,1460 SAVEHAND ERASE +1
006487,001836: E6,1462 PERROR ERASE
006488,001837: E6,1463 E6,1446 QERROR EQUALS DYERROR
006489,001838: E6,1463 E6,1450 RERROR EQUALS DZERROR
006490,001839: # JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW (10D)
006491,001840: # (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
006492,001841:
006493,001842: E6,1463 NXT6ADR ERASE
006494,001843: E6,1464 T6NEXT ERASE +1
006495,001844: E6,1466 T6FURTHA ERASE +1
006496,001845: E6,1470 NEXTP ERASE +2
006497,001846: E6,1473 E6,1471 NEXTU = NEXTP +1
006498,001847: E6,1473 E6,1472 NEXTV = NEXTP +2
006499,001848: E6,1473 -2JETLIM ERASE +1 # RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
006500,001849: E6,1475 E6,1474 -RATEDB EQUALS -2JETLIM +1 # AND RATE DEADBAND FOR ASCENT OR DESCENT
006501,001850:
006502,001851: E6,1475 E6,1474 TARGETDB EQUALS -RATEDB # MAN. CONTROL TARGET DB COMPLEMENT.
006503,001852:
006504,001853: # *** Q,R AXIS ERASABLES *** (3)
006505,001854:
006506,001855: E6,1475 4742 PBIT EQUALS BIT10
006507,001856: E6,1475 4741 QRBIT EQUALS BIT11
006508,001857: E6,1475 E6,1747 UERROR EQUALS DAPTREG5 # U,V-AXES ATT ERROR FOR RCS CONTROL LAWS
006509,001858: E6,1475 E6,1750 VERROR = UERROR +1
006510,001859: E6,1475 RETJADR ERASE
006511,001860:
|
|
Page 146
|
006513,001862: E6,1476 E6,1740 TEMPNUM EQUALS DAPTEMP4
006514,001863: E6,1476 E6,1741 NUMBERT EQUALS DAPTEMP5
006515,001864: E6,1476 E6,1742 ROTINDEX EQUALS DAPTEMP6
006516,001865: E6,1476 E6,1735 ROTEMP1 EQUALS DAPTEMP1
006517,001866: E6,1476 E6,1736 ROTEMP2 EQUALS DAPTEMP2
006518,001867: E6,1476 AXISCTR ERASE
006519,001868: E6,1477 E6,1737 POLYTEMP EQUALS DAPTEMP3
006520,001869: E6,1477 SENSETYP ERASE
006521,001870: E6,1500 E6,1735 ABSTJ EQUALS DAPTEMP1 # ABS VALUE OF JET-FIRING TIME
006522,001871: E6,1500 E6,1735 ABSEDOTP EQUALS DAPTEMP1
006523,001872:
006524,001873: E6,1500 E6,1746 DPSBURN EQUALS DAPTREG4 # USED WITH SNUFFBIT. VERY TEMPORARY.
006525,001874:
|
|
Page 147
|
006527,001876: # TRIM GIMBAL CONTROL LAW ERASABLES: (11D)
006528,001877:
006529,001878: E6,1500 E6,1735 GTSTEMPS EQUALS DAPTEMP1 # GTS IS PART OF THE JASK.
006530,001879: E6,1500 E6,1737 SHFTFLAG EQUALS GTSTEMPS +2 # COUNT HIGH ORDER ZERO BITS FOR SHIFTING.
006531,001880:
006532,001881: E6,1500 E6,1740 ININDEX EQUALS GTSTEMPS +3 # INDEX FOR SHIFT LOOP.
006533,001882:
006534,001883: E6,1500 E6,1476 SAVESR EQUALS AXISCTR # CANNOT BE A DAPTEMP - GTS USES THEM ALL.
006535,001884:
006536,001885: E6,1500 E6,1742 SCRATCH EQUALS GTSTEMPS +5 # ERASABLE FOR ROOTCYCL
006537,001886: E6,1500 E6,1743 HALFARG EQUALS GTSTEMPS +6
006538,001887:
006539,001888: E6,1500 E6,1735 K2THETA EQUALS GTSTEMPS # D.P. K(2)THETA AND NEGUSUM
006540,001889: E6,1500 E6,1737 A2CNTRAL EQUALS GTSTEMPS +2 # D.P. ALPHA(2), AT PI(2)/164 RAD/SEC(2)
006541,001890: E6,1500 E6,1741 KCENTRAL EQUALS GTSTEMPS +4 # S.P. K FROM KQ OR KR, AT PI/2(8)
006542,001891: E6,1500 E6,1741 OMEGA.K EQUALS KCENTRAL # D.P. OMEGA*K OVERLAYS K AND K(2)
006543,001892: E6,1500 E6,1742 K2CNTRAL EQUALS GTSTEMPS +5 # S.P. K(2) FROM Q OR R, AT PI(2)/2(16)
006544,001893: E6,1500 E6,1743 WCENTRAL EQUALS GTSTEMPS +6 # S.P. OMEGA, AT PI/4 RAD/SEC
006545,001894: E6,1500 E6,1744 ACENTRAL EQUALS GTSTEMPS +7 # S.P. ALPHA, AT PI/8 RAD/SEC(2)
006546,001895: E6,1500 E6,1745 DEL EQUALS GTSTEMPS +8D # S.P. SGN FUNCTION VALUE
006547,001896:
006548,001897: E6,1500 E6,1746 QRCNTR EQUALS GTSTEMPS +9D # INDEX FOR GTS LOOP THROUGH Q,R AXES.
006549,001898:
006550,001899: E6,1500 E6,1747 FUNCTION EQUALS GTSTEMPS +10D # D.P. WORD FOR DRIVE FUNCTION
006551,001900:
006552,001901: E6,1500 NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE
006553,001902: # NEGUQ +1 DEFINED AND USED ELSEWHERE
006554,001903: E6,1503 E6,1502 NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE
006555,001904:
006556,001905: E6,1503 KQ ERASE +3 # .3ACCDOTQ SCALED AT PI/2(8)
006557,001906: E6,1507 E6,1504 KQ2 EQUALS KQ +1 # KQ2 = KQ*KQ
006558,001907: E6,1507 E6,1505 KRDAP EQUALS KQ +2 # .3 ACCDOTR SCALED AT PI/2(8)
006559,001908: E6,1507 E6,1506 KR2 EQUALS KQ +3 # KR2 = KR*KR
006560,001909:
006561,001910: E6,1507 ACCDOTQ ERASE +3 # Q-JERK SCALED AT PI/2(7) UNSIGNED
006562,001911: E6,1513 E6,1510 QACCDOT EQUALS ACCDOTQ +1 # Q-JERK SCALED AT PI/2(7) SIGNED
006563,001912: E6,1513 E6,1511 ACCDOTR EQUALS ACCDOTQ +2 # R-JERK SCALED AT PI/2(7) UNSIGNED
006564,001913: E6,1513 E6,1512 RACCDOT EQUALS ACCDOTQ +3 # R-JERK SCALED AT PI/2(7) SIGNED
006565,001914:
006566,001915: E6,1513 E6,1446 QDIFF EQUALS QERROR # ATTITUDE ERRORS:
006567,001916: E6,1513 E6,1450 RDIFF EQUALS RERROR # SCALED AT PI RADIANS
006568,001917:
006569,001918:
006570,001919:
006571,001920:
006572,001921: # TORQUE VECTOR RECONSTRUCTION VARIABLES: (18D)
006573,001922:
006574,001923: E6,1513 E6,1743 JETRATE EQUALS DAPTREG1
006575,001924: E6,1513 E6,1744 JETRATEQ EQUALS JETRATE +1 # THE LAST CONTROL SAMPLE PERIOD OF 100 MS
006576,001925: E6,1513 E6,1745 JETRATER EQUALS JETRATE +2 # SCALED AT PI/4 RADIANS/SECOND
006577,001926:
|
|
Page 148
|
006579,001928:
006580,001929: E6,1513 DOWNTORK ERASE +5 # ACCUMULATED JET TORQUE COMMANDED ABOUT
006581,001930: E6,1521 E6,1513 POSTORKP EQUALS DOWNTORK # +,-P, +,-U, +,-V RESPECTIVELY.
006582,001931: E6,1521 E6,1514 NEGTOTKP EQUALS DOWNTORK +1 # EMPLOYED EXCLUSIVELY FOR DOWNLIST.
006583,001932: E6,1521 E6,1515 POSTORKU EQUALS DOWNTORK +2 # NOT INITIALIZED; PERMITTED TO OVERFLOW
006584,001933: E6,1521 E6,1516 NEGTORKU EQUALS DOWNTORK +3 # SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET-
006585,001934: E6,1521 E6,1517 POSTORKV EQUALS DOWNTORK +4 # MSEC PER BIT.
006586,001935: E6,1521 E6,1520 NEGTORKV EQUALS DOWNTORK +5
006587,001936:
006588,001937: E6,1521 NO.PJETS ERASE +2
006589,001938: E6,1524 E6,1522 NO.UJETS = NO.PJETS +1
006590,001939: E6,1524 E6,1523 NO.VJETS = NO.UJETS +1
006591,001940: E6,1524 TJP ERASE +2
006592,001941: E6,1527 E6,1525 TJU = TJP +1
006593,001942: E6,1527 E6,1526 TJV = TJP +2
006594,001943:
006595,001944: E6,1527 L,PVT-CG ERASE
006596,001945: E6,1530 1JACC ERASE +4 # ACCELERATIONS DUE TO 1 JET TORQUING
006597,001946: E6,1535 E6,1531 1JACCQ EQUALS 1JACC +1 # SCALED AT PI/4 RADIANS/SECOND
006598,001947: E6,1535 E6,1532 1JACCR EQUALS 1JACC +2
006599,001948: E6,1535 E6,1533 1JACCU EQUALS 1JACC +3 # FOR U,V-AXES THE SCALE FACTOR IS DIFF:
006600,001949: E6,1535 E6,1534 1JACCV EQUALS 1JACC +4 # SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
006601,001950:
006602,001951: # ASCENT VARIABLES: (10D)
006603,001952:
006604,001953: E6,1535 SKIPU ERASE +1
006605,001954: E6,1537 E6,1536 SKIPV = SKIPU +1
006606,001955: # THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
006607,001956: # SECTION OF THE AOSTASK. THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
006608,001957: # SECTIONS AND ELSEWHERE.
006609,001958:
006610,001959: E6,1537 AOSQ ERASE +5 # OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
006611,001960: E6,1545 E6,1541 AOSR EQUALS AOSQ +2 # AND SCALED AT PI/2.
006612,001961: E6,1545 E6,1543 AOSU EQUALS AOSQ +4 # UV-AXES OFFSET ACC. FROMED BY VECTOR
006613,001962: E6,1545 E6,1544 AOSV EQUALS AOSQ +5 # ADDITION OF Q,R. AT PI/2 RAD/SEC(2).
006614,001963:
006615,001964: E6,1545 AOSQTERM ERASE +1 # (.1-.05K)AOS
006616,001965: E6,1547 E6,1546 AOSRTERM EQUALS AOSQTERM +1 # SCALED AT PI/4 RADIANS/SECOND.
006617,001966:
006618,001967: # FOR TJET LAW SUBROUTINE: (TEMPS ONLY)
006619,001968:
006620,001969: # NUMBERT EQUALS DAPTEMP5 DEFINED IN QRAXIS.
006621,001970: E6,1547 E6,1735 EDOTSQ EQUALS DAPTEMP1
006622,001971: E6,1547 E6,1736 ROTSENSE EQUALS DAPTEMP2
006623,001972: E6,1547 E6,1737 FIREFCT EQUALS DAPTEMP3 # LOOKED AT BY PAXIS.
006624,001973: E6,1547 E6,1740 TTOAXIS EQUALS DAPTEMP4
006625,001974: E6,1547 E6,1742 ADRSDIF2 EQUALS DAPTEMP6
006626,001975: E6,1547 E6,1743 HOLDQ EQUALS DAPTREG1
006627,001976: E6,1547 E6,1744 ADRSDIF1 EQUALS DAPTREG2
006628,001977: E6,1547 E6,1745 HH EQUALS DAPTREG3 # DOUBLE PRECISION
006629,001978:
|
|
Page 149
|
006631,001980: # HH +1 EQUALS DAPTREG4
006632,001981: E6,1547 E6,1750 E EQUALS DAPTREG6 # TIME SHARE WITH VERROR
006633,001982: E6,1547 E6,1425 EDOT EQUALS OMEGAV
006634,001983:
006635,001984: # INPUT TO TJET LAW (PERMANENT ERASABLES). (48D)
006636,001985:
006637,001986: E6,1547 E6,1525 TJETU = TJU # EQUATE NAMES. INDEXED BY -1, 0, +1.
006638,001987: E6,1547 BLOCKTOP ERASE +47D
006639,001988: E6,1627 E6,1567 1/ANET1 = BLOCKTOP +16D # THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
006640,001989: E6,1627 E6,1570 1/ANET2 = 1/ANET1 +1 # FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
006641,001990: E6,1627 E6,1573 1/ACOAST = 1/ANET1 +4 # EDOT IS POSITIVE. TJETLAW INDEXES BY
006642,001991: E6,1627 E6,1575 ACCFCTZ1 = 1/ANET1 +6 # ADRSDIFF FROM THESE REGISTERS TO PICK UP
006643,001992: E6,1627 E6,1576 ACCFCTZ5 = 1/ANET1 +7 # PARAMETERS FOR THE PROPER AXIS, NUMBER
006644,001993: E6,1627 E6,1601 FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48
006645,001994: E6,1627 E6,1603 COASTDB = 1/ANET1 +12D # REGISTERS IN ALL IN THIS BLOCK.
006646,001995: E6,1627 E6,1605 AXISDIST = 1/ANET1 +14D # FOUR NOT REFERENCED (P-AXIS) ARE FILLED
006647,001996: # IN BY THE FOLLOWING:
006648,001997: E6,1627 E6,1547 ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
006649,001998: E6,1627 E6,1550 ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS.
006650,001999: E6,1627 E6,1555 FLAT = BLOCKTOP +6 # WIDTH OF MINIMUM IMPULSE ZONE.
006651,002000: E6,1627 E6,1556 ZONE3LIM = BLOCKTOP +7 # HEIGHT OF MINIMUM IMPULSE ZONE(AT 4 SEC)
006652,002001:
006653,002002:
006654,002003:
006655,002004: # VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE. (4)
006656,002005:
006657,002006: E6,1627 E6,1501 ALLOWGTS EQUALS NEGUQ +1 # INSERT INTO UNUSED LOCATION
006658,002007: E6,1627 COTROLER ERASE # INDICATES WHICH CONTROL SYSTEM TO USE.
006659,002008: E6,1630 QGIMTIMR ERASE +2 # Q-GIMBAL DRIVE ITMER, DECISECONDS.
006660,002009: E6,1633 E6,1631 INGTS EQUALS QGIMTIMR +1 # INDICATOR OF CURRENT GTS CONTROL.
006661,002010: E6,1633 E6,1632 RGIMTIMR EQUALS QGIMTIMR +2 # R-GIMBAL DRIVE TIMER, DECISECONDS.
006662,002011:
006663,002012: # PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
006664,002013:
006665,002014: # KALCMANU:DAP INTERFACE. (9D)
006666,002015:
006667,002016: E6,1633 CDUXD ERASE +2 # CDU DESIRED REGISTERS:
006668,002017: E6,1636 E6,1634 CDUYD EQUALS CDUXD +1 # SCALED AT PI RADIANS (180 DEGREES)
006669,002018: E6,1636 E6,1635 CDUZD EQUALS CDUXD +2 # (STORE IN 2S COMPLEMENT)
006670,002019:
006671,002020: E6,1636 DELCDUX ERASE +2 # NEGATIVE OF DESIRED 100MS CDU INCREMENT:
006672,002021: E6,1641 E6,1637 DELCDUY EQUALS DELCDUX +1 # SCALED AT PI RADIANS (180 DEGREES)
006673,002022: E6,1641 E6,1640 DELCDUZ EQUALS DELCDUX +2 # (STORE IN 2S COMPLEMENT)
006674,002023:
006675,002024: # RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
006676,002025: E6,1641 OMEGAPD ERASE +2 # ATTITUDE MANEUVER DESIRED RATES:
006677,002026: E6,1644 E6,1642 OMEGAQD EQUALS OMEGAPD +1 # (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
006678,002027: E6,1644 E6,1643 OMEGARD EQUALS OMEGAPD +2 # SCALED AT PI/4 RADIANS/SECOND
006679,002028:
006680,002029: # KALCMANU STORAGE. (24D)
006681,002030:
|
|
Page 150
|
006683,002032: E6,1644 MIS ERASE +23D # I(18D)
006684,002033: E6,1674 E6,1666 COF EQUALS MIS +18D # I(6)
006685,002034:
006686,002035:
006687,002036: # KALCMANU STORAGE. (33D)
006688,002037:
006689,002038: E6,1674 BCDU ERASE +30D # B(3)
006690,002039: E6,1733 E6,1677 KSPNDX EQUALS BCDU +3 # B(1)
006691,002040: E6,1733 E6,1700 KDPNDX EQUALS KSPNDX +1 # B(1)
006692,002041:
006693,002042: E6,1733 E6,1701 TMIS EQUALS KDPNDX +1 # I(18) MUST BE IN SAME BANK AS RCS DAP
006694,002043: E6,1733 E6,1723 COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN SAME BANK AS RCS DAP
006695,002044: E6,1733 E6,1731 CAM EQUALS COFSKEW +6 # I(2) MUST BE IN SAME BANK AS RCS DAP
006696,002045:
006697,002046:
006698,002047: E6,1733 AM ERASE +1 # I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
006699,002048:
006700,002049:
006701,002050: # FIRST-ORDER OVERLAYS IN KALCMANU (25D)
006702,002051:
006703,002052: E6,1735 E6,1701 KV1 EQUALS TMIS # I(6)
006704,002053: E6,1735 E6,1701 MFISYM EQUALS TMIS # I
006705,002054: E6,1735 E6,1701 TMFI EQUALS TMIS # I
006706,002055: E6,1735 E6,1701 NCDU EQUALS TMIS # B
006707,002056: E6,1735 E6,1704 NEXTIME EQUALS TMIS +3 # B
006708,002057: E6,1735 E6,1705 TTEMP EQUALS TMIS +4 # B
006709,002058: E6,1735 E6,1707 KV2 EQUALS TMIS +6 # I(6)
006710,002059: E6,1735 E6,1707 BIASTEMP EQUALS TMIS +6 # B
006711,002060: E6,1735 E6,1715 KV3 EQUALS TMIS +12D # I(6)
006712,002061: E6,1735 E6,1715 OGF EQUALS TMIS +12D # I
006713,002062:
006714,002063: E6,1735 E6,1723 BRATE EQUALS COFSKEW # B
006715,002064: E6,1735 E6,1723 IG EQUALS COFSKEW # I
006716,002065:
006717,002066: E6,1735 E6,1731 TM EQUALS CAM # B
006718,002067:
006719,002068: # SECOND-ORDER OVERLAYS IN KALCMANU (24D)
006720,002069:
006721,002070: E6,1735 E6,1701 K1 = KV1
006722,002071: E6,1735 E6,1707 K2 = KV2
006723,002072: E6,1735 E6,1715 K3 = KV3
006724,002073: E6,1735 E6,1701 P21 EQUALS KV1 # I(2)
006725,002074: E6,1735 E6,1703 D21 EQUALS KV1 +2 # I(2)
006726,002075: E6,1735 E6,1705 G21 EQUALS KV1 +4 # I(2)
006727,002076: E6,1735 E6,1707 C2SQP EQUALS KV2 # I(2)
006728,002077: E6,1735 E6,1711 C2SQM EQUALS KV2 +2 # I(2)
006729,002078: E6,1735 E6,1713 C2PP EQUALS KV2 +4 # I(2)
006730,002079: E6,1735 E6,1715 C2MP EQUALS KV3 # I(2)
006731,002080: E6,1735 E6,1717 C1PP EQUALS KV3 +2 # I(2)
006732,002081: E6,1735 E6,1721 C1MP EQUALS KV3 +4 # I(2)
006733,002082:
|
|
Page 151
|
006735,002084: E6,1735 E6,1723 VECQTEMP = COFSKEW
006736,002085:
006737,002086: E6,1735 E6,1633 DCDU = CDUXD
006738,002087: E6,1735 E6,1636 DELDCDU = DELCDUX
006739,002088: E6,1735 E6,1637 DELDCDU1 = DELCDUY
006740,002089: E6,1735 E6,1640 DELDCDU2 = DELCDUZ
006741,002090:
006742,002091:
006743,002092: # * * * * * * * * * * * * * * * * * * * * * * * *
006744,002093:
006745,002094: # STORAGE FOR FINDCDUW
006746,002095:
006747,002096: # OVERLAYING KALCMANU STORAGE: (26D)
006748,002097:
006749,002098: E6,1735 E6,1644 ECDUW EQUALS MIS
006750,002099: E6,1735 E6,1644 ECDUWUSR EQUALS ECDUW # B(1)TMP
006751,002100: E6,1735 E6,1645 QCDUWUSR EQUALS ECDUWUSR +1 # I(1)TMP
006752,002101: E6,1735 E6,1646 NDXCDUW EQUALS QCDUWUSR +1 # B(1)TMP
006753,002102: E6,1735 E6,1647 FLAGOODW EQUALS NDXCDUW +1 # B(1)TMP
006754,002103: E6,1735 E6,1650 FLPAUTNO EQUALS FLAGOODW +1 # B(1)TMP
006755,002104: E6,1735 E6,1651 UNFC/2 EQUALS FLPAUTNO +1 # I(6)IN
006756,002105: E6,1735 E6,1657 UNWC/2 EQUALS UNFC/2 +6 # I(6)IN
006757,002106: E6,1735 E6,1665 UNFV/2 EQUALS UNWC/2 +6 # I(6) S-S
006758,002107: E6,1735 E6,1665 UNFVX/2 = UNFV/2
006759,002108: E6,1735 E6,1667 UNFVY/2 = UNFV/2 +2
006760,002109: E6,1735 E6,1671 UNFVZ/2 = UNFV/2 +4
006761,002110: E6,1735 E6,1673 -DELGMB EQUALS UNFV/2 +6 # B(3)TMP
006762,002111:
006763,002112: # DEFINED IN THE WORK AREA: (18D)
006764,002113:
006765,002114: E6,1735 UNX/2 = 0
006766,002115: E6,1735 UNY/2 = 6
006767,002116: E6,1735 UNZ/2 = 14
006768,002117:
006769,002118: # END OF FINDCDUW ERASABLES
006770,002119:
006771,002120: # * * * * * * * * * * * * * * * * * * * * * * * *
006772,002121:
006773,002122: # THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS,NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
006774,002123: # ...ANYWAY, THE DAP CAN NOW BE INTERRUPTED. (18D)
006775,002124:
006776,002125: E6,1735 DAPTEMP1 ERASE +17D
006777,002126: E6,1757 E6,1736 DAPTEMP2 EQUALS DAPTEMP1 +1
006778,002127: E6,1757 E6,1737 DAPTEMP3 EQUALS DAPTEMP1 +2
006779,002128: E6,1757 E6,1740 DAPTEMP4 EQUALS DAPTEMP1 +3
006780,002129: E6,1757 E6,1741 DAPTEMP5 EQUALS DAPTEMP1 +4
006781,002130: E6,1757 E6,1742 DAPTEMP6 EQUALS DAPTEMP1 +5
006782,002131: E6,1757 E6,1743 DAPTREG1 EQUALS DAPTEMP1 +6
006783,002132: E6,1757 E6,1744 DAPTREG2 EQUALS DAPTEMP1 +7
006784,002133: E6,1757 E6,1745 DAPTREG3 EQUALS DAPTEMP1 +8D
006785,002134:
|
|
Page 152
|
006787,002136: E6,1757 E6,1746 DAPTREG4 EQUALS DAPTEMP1 +9D
006788,002137: E6,1757 E6,1747 DAPTREG5 EQUALS DAPTEMP1 +10D
006789,002138: E6,1757 E6,1750 DAPTREG6 EQUALS DAPTEMP1 +11D
006790,002139:
006791,002140: E6,1757 E6,1751 DAPARUPT EQUALS DAPTEMP1 +12D
006792,002141: E6,1757 E6,1752 DAPLRUPT EQUALS DAPARUPT +1
006793,002142: E6,1757 E6,1753 DAPBQRPT EQUALS DAPARUPT +2
006794,002143: E6,1757 E6,1755 DAPZRUPT EQUALS DAPARUPT +4
006795,002144:
006796,002145: # (DAPZRUPT IS ALSO JASK-IN-PROGRESS FLAG)
006797,002146:
006798,002147:
006799,002148:
006800,002149: # NEEDLER(ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE. (6D)
006801,002150:
006802,002151: E6,1757 0061 T5TEMP EQUALS ITEMP1
006803,002152: E6,1757 0063 DINDX EQUALS ITEMP3
006804,002153: E6,1757 AK ERASE +2 # NEEDLER ATTITUDE INPUTS, SCALED AT 180
006805,002154: E6,1762 E6,1760 AK1 EQUALS AK +1 # DEGREES. P,Q,R AXES IN AK,AK1,AK2.
006806,002155: E6,1762 E6,1761 AK2 EQUALS AK +2
006807,002156:
006808,002157: E6,1762 EDRIVEX ERASE +2 # NEEDLER DISPLAY REGS AT 1800 DEGREES.
006809,002158: E6,1765 E6,1763 EDRIVEY EQUALS EDRIVEX +1 # SO THAT 384 BITS REPRESENT 42 3/16 DEG.
006810,002159: E6,1765 E6,1764 EDRIVEZ EQUALS EDRIVEX +2
006811,002160:
006812,002161:
006813,002162: # INITVEL STORAGE. ALSO USED BY P31,P34,P35,P74,P75,S40.1 AND DOWNLINKED. (6D)
006814,002163:
006815,002164: E6,1765 DELVEET3 ERASE +5 # I(6) DELTA V IN INERTIAL
006816,002165:
006817,002166:
006818,002167: # P32-P33 STORAGE. (2)
006819,002168:
006820,002169: E6,1773 TCDH ERASE +1 # I(2) T2 CDH TIME IN C.S. ALSO DWNLINKED
006821,002170:
006822,002171:
006823,002172:
006824,002173: # P32 - 35 (2D)
006825,002174:
006826,002175: E6,1775 RTX1 ERASE # I(1) X1 -2 FOR EARTH, -10 FOR MOON
006827,002176: E6,1776 RTX2 ERASE # I(1) X2 FOR SHIFT-EARTH 0, MOON 2
006828,002177:
006829,002178:
006830,002179: E6,1777 E6,1776 END-E6 EQUALS RTX2 # LAST LOCATION USED IN E6.
006831,002180:
|
|
Page 153
|
006833,002182: # EBANK-7 ASSIGNMENTS
006834,002183:
006835,002184: E7,1400 SETLOC 3400
006836,002185:
006837,002186:
006838,002187: # P35 CONSTANTS. -PAD LOADED- (4D)
006839,002188:
006840,002189: E7,1400 ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST
006841,002190: E7,1402 PTIGINC ERASE +1 # B(2)PL
006842,002191:
006843,002192:
006844,002193: # AOTMARK STORAGE. -PAD LOADED- (6D)
006845,002194:
006846,002195: E7,1404 AOTAZ ERASE +2 # B(3)PL
006847,002196: E7,1407 AOTEL ERASE +2 # B(3)PL
006848,002197:
006849,002198:
006850,002199: # LANDING RADAR. -PAD LOADED- (10D)
006851,002200:
006852,002201: E7,1412 LRALPHA ERASE +3 # B(1) POS1 X ROTATION * MUST *
006853,002202: E7,1416 E7,1413 LRBETA1 EQUALS LRALPHA +1 # B(1) POS1 Y ROTATION * BE *
006854,002203: E7,1416 E7,1414 LRALPHA2 EQUALS LRBETA1 +1 # B(1) POS2 X ROTATION * IN *
006855,002204: E7,1416 E7,1415 LRBETA2 EQUALS LRALPHA2 +1 # B(1) POS2 Y ROTATION * ORDER *
006856,002205: E7,1416 LRHMAX ERASE # B(1)
006857,002206: E7,1417 LRVMAX ERASE # B(1)
006858,002207: E7,1420 LRWH ERASE # B(1)
006859,002208: E7,1421 LRWVZ ERASE # B(1) * MUST *
006860,002209: E7,1422 LRWVY ERASE # B(1) * BE IN *
006861,002210: E7,1423 LRWVX ERASE # B(1) * ORDER *
006862,002211:
006863,002212:
006864,002213:
006865,002214: # THROTTLE STORAGE. -PAD LOADED- (1D)
006866,002215:
006867,002216: E7,1424 ZOOMTIME ERASE # B(1)PL TIME OF DPS THROTTLE-UP COMMAND
006868,002217:
006869,002218: # P63 AND P64 CONSTANTS. -PAD LOADED- (2D)
006870,002219:
006871,002220: E7,1425 TENDBRAK ERASE # B(1) LANDING PHASE SWITCHING CRITERION
006872,002221: E7,1426 TENDAPPR ERASE # B(1) LANDING PHASE SWITCHING CRITERION
006873,002222:
006874,002223:
006875,002224: # LANDING RADAR -PAD LOADED- (2D)
006876,002225:
006877,002226: E7,1427 RPCRTIME ERASE # B(1) REPOSITIONING CRITERION (TIME)
006878,002227: E7,1430 RPCRTQSW ERASE # B(1) REPOSITIONING CRITERION (ANGLE)
006879,002228:
006880,002229:
006881,002230: # *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
006882,002231:
|
|
Page 154
|
006884,002233: # P32-35 P72-75 STORAGE. (6D)
006885,002234:
006886,002235: E7,1431 DELVLVC ERASE +5 # I(6) DELTA VELOCITY - LOCAL VERTICAL COO
006887,002236: E7,1437 E7,1431 DELVSLV = DELVLVC # (TEMP STORAGE OF SAME VECTOR) -RDINATE
006888,002237:
006889,002238:
006890,002239:
006891,002240: # P30-P40 INTERFACE UNSHARED. (2D)
006892,002241:
006893,002242: E7,1437 TIG ERASE +1 # B(2)
006894,002243:
006895,002244: # INITVEL STORAGE. ALSO USED BY P34,35,74,75,10,11 OTHERS (8D)
006896,002245:
006897,002246: E7,1441 RTARG ERASE +5 # I(6) TARGET VECTOR
006898,002247: E7,1447 DELLT4 ERASE +1 # I(2) TIME DIFFERENCE
006899,002248:
006900,002249:
006901,002250: # P30-P40 INTERFACE UNSHARED. (3D)
006902,002251:
006903,002252: E7,1451 TTOGO ERASE +1 # B(2)
006904,002253: E7,1453 E7,1451 TFI EQUALS TTOGO
006905,002254: E7,1453 WHICH ERASE # B(1)
006906,002255:
006907,002256:
006908,002257: # *** R21 *** (1D)
006909,002258:
006910,002259: E7,1454 LOSCOUNT ERASE # B(1)
006911,002260:
006912,002261:
006913,002262: # L SR22.3 (RENDEZVOUS NAVIGATION) STORAGE. (4D)
006914,002263:
006915,002264: # RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
006916,002265: E7,1455 AIG ERASE # B(1)OUT GIMGAL ANGLES
006917,002266: E7,1456 AMG ERASE # B(1)OUT (MUST BE
006918,002267: E7,1457 AOG ERASE # B(1)OUT CONSECUTIVE)
006919,002268:
006920,002269: E7,1460 TRKMKCNT ERASE # B(1)TMP TEMPORARY MARK STORAGE.
006921,002270: E7,1461 E7,1460 MARKCTR = TRKMKCNT
006922,002271:
006923,002272:
006924,002273: # P32-P35, P72-P75 STORAGE. -PERMANENT- (6)
006925,002274:
006926,002275: E7,1461 NORMEX ERASE # B(1) PRM SAVE FOR Q
006927,002276: E7,1462 QSAVED ERASE # B(1) PRM SAVE FOR Q
006928,002277: E7,1463 RTRN ERASE # B(1) PRM SAVE FOR Q
006929,002278: E7,1464 NN ERASE +1 # B(2)
006930,002279: E7,1466 SUBEXIT ERASE # B(1) PRM SAVE Q
006931,002280:
|
|
Page 155
|
006933,002282:
006934,002283: E7,1467 E7OVERLA EQUALS # START OF E7 OVERLAYS
006935,002284:
006936,002285: E7,1467 E7,1467 WHOCARES EQUALS E7OVERLA # A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
006937,002286:
|
|
Page 156
|
006939,002288: # ******* OVERLAY NUMBER 0 IN EBANK 7 *******
006940,002289:
006941,002290:
006942,002291:
006943,002292: # RENDEZVOUS GUIDANCE STORAGE -P32....P35- (89D)
006944,002293:
006945,002294: E7,1467 E7,1607 TSTRT EQUALS DELDV # MIDCOURSE START TIME
006946,002295: E7,1467 E7,1571 TDEC2 EQUALS DELVCSI # TEMP STORAGE FOR INTEGRATION TIME INPUT
006947,002296: E7,1467 E7,1573 KT EQUALS DELVTPI # TEMP STORAGE FOR MIDCOURSE DELTA TIME
006948,002297: E7,1467 VACT1 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CSI TIME
006949,002298: E7,1475 RPASS1 ERASE +5D # POSITION VECTOR OF PASSIVE AT CSI TIME
006950,002299: E7,1503 VPASS1 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CSI TIME
006951,002300: E7,1511 VACT2 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CDH TIME
006952,002301: E7,1517 RPASS2 ERASE +5D # POSITION VECTOR OF PASSIVE AT CDH TIME
006953,002302: E7,1525 VPASS2 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CDH TIME
006954,002303: E7,1533 RACT3 ERASE +5D # POSITION VECTOR OF ACTIVE AT TPI TIME
006955,002304: E7,1541 VACT3 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT TPI TIME
006956,002305: E7,1547 RPASS3 ERASE +5D # POSITION VECTOR OF PASSIVE AT TPI TIME
006957,002306: E7,1555 VPASS3 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT TPI TIME
006958,002307: E7,1563 VACT4 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT INTERCEPT
006959,002308: E7,1571 E7,1541 UNVEC EQUALS VACT3 # CDHMVR UNIT VECTOR TEMP STORAGE.
006960,002309: E7,1571 DELVCSI ERASE +1D # THRUST VALUE AT CSI
006961,002310: E7,1573 DELVTPI ERASE +1D # THRUST VALUE AT TPI OR MID
006962,002311: E7,1575 E7,1573 DELVMID EQUALS DELVTPI
006963,002312: E7,1575 DIFFALT ERASE +1D # ALT DIFFERENCE AT CDH
006964,002313: E7,1577 POSTCSI ERASE +1 # PERIGEE ALTITUDE AFTER CSI MANEUVER
006965,002314: E7,1601 POSTCDH ERASE +1 # PERIGEE ALTITUDE AFTER CDH MANEUVER
006966,002315: E7,1603 POSTTPI ERASE +1 # PERIGEE ALTITUDE AFTER TPI MANEUVER
006967,002316: E7,1605 E7,1603 LOOPCT EQUALS POSTTPI # CSI NEWTON ITERATION COUNTER
006968,002317: E7,1605 E7,1601 HAFPA1 EQUALS POSTCDH # HALF PERIOD
006969,002318: E7,1605 GAMPREV ERASE +1 # PREVIOUS GAMMA
006970,002319: E7,1607 E7,1573 DVPREV EQUALS DELVTPI # PREVIOUS DELVCSI
006971,002320: E7,1607 DELDV ERASE +1D
006972,002321: E7,1611 CSIALRM ERASE +1 # FIRST SOLUTION ALARM
006973,002322: E7,1613 VERBNOUN ERASE
006974,002323: E7,1614 E7,1611 TITER EQUALS CSIALRM # ITERATION COUNTER
006975,002324: E7,1614 RDOTV ERASE +1
006976,002325: E7,1616 E7,1503 VAPREC EQUALS VPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006977,002326: E7,1616 E7,1475 RAPREC EQUALS RPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006978,002327: E7,1616 E7,1525 VPPREC EQUALS VPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006979,002328: E7,1616 E7,1517 RPPREC EQUALS RPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006980,002329: E7,1616 E7,1573 DELEL EQUALS DELVTPI # I(2) S-S
006981,002330: E7,1616 E7,1607 DELTEE EQUALS DELDV # I(2)S-S
006982,002331: E7,1616 E7,1571 SECMAX EQUALS DELVCSI # I(2) S-S MAX STOP SIZE FOR ROUTINE
006983,002332: E7,1616 E7,1603 DELTEEO EQUALS POSTTPI # I(2) S-S BACK VALUES OF DELTA TIME
006984,002333: E7,1616 CENTANG ERASE +1 # I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
006985,002334:
|
|
Page 157
|
006987,002336: # SOME P47 STORAGE (6D)
006988,002337:
006989,002338: E7,1620 DELVIMU ERASE +5 # I(6)DSP NOUN 83 FOR P47 DELTA V (IMU)
006990,002339:
006991,002340:
006992,002341: # P30-P40 COMMON STORAGE. (3D)
006993,002342:
006994,002343: E7,1626 TPASS4 ERASE +1 # INTERCEPT TIME
006995,002344: E7,1630 QTEMP ERASE # I(1)TMP COMMON RETURN SAVE REGISTER.
006996,002345:
006997,002346:
006998,002347:
006999,002348: # P32,33,34 STORAGE. (6D)
007000,002349:
007001,002350: E7,1631 TCSI ERASE +1 # B(2) TMP CSI TIME IN CENTISECONDS
007002,002351: E7,1633 TTPI ERASE +1 # B(2) TMP TPI TIME IN CENTISECONDS
007003,002352: E7,1635 TTPI0 ERASE +1 # B(2) TMP TTPI STORAGE FOR RECYCLE
007004,002353:
007005,002354:
007006,002355: # P30,P40 INTERFACE. (21D)
007007,002356:
007008,002357: E7,1637 RTIG ERASE +19D # I(6)TMP
007009,002358: E7,1663 E7,1645 VTIG EQUALS RTIG +6 # I(6)TMP
007010,002359: E7,1663 E7,1653 DELVSIN EQUALS VTIG +6 # I(6)TMP
007011,002360: E7,1663 E7,1661 DELVSAB EQUALS DELVSIN +6 # I(2)TMP
007012,002361: E7,1663 E7,1661 VGDISP = DELVSAB
007013,002362:
007014,002363:
007015,002364: E7,1663 QTEMP1 ERASE # I(1)TMP HOLDS RETURN.
007016,002365: E7,1664 E7,1663 RGEXIT EQUALS QTEMP1 # SAVE Q
007017,002366: E7,1664 E7,1663 SAVQR52 EQUALS QTEMP1
007018,002367:
007019,002368:
007020,002369: # INITVEL STORAGE. (IN OVERLAY 0 AND OVERLAY 1. (2D)
007021,002370: # (CALLS LAMBERT, CONIC SUBROUTINES)
007022,002371:
007023,002372: E7,1664 E7,1563 VTPRIME EQUALS VACT4 # TOTAL VELOCITY AT DESIRED RADIUS
007024,002373: E7,1664 E7,1614 ITCTR EQUALS RDOTV # ITERATION COUNTER
007025,002374: E7,1664 COZY4 ERASE +1 # COS OF ANGLE WHEN ROTATION STARTS
007026,002375: E7,1666 E7,1607 X1INPUT EQUALS DELDV # X1 TEMP STORAGE
007027,002376: E7,1666 E7,1605 INTIME EQUALS GAMPREV # TIME OF RINIT
007028,002377:
007029,002378:
007030,002379:
007031,002380: # PERIAPO STORAGE. (2D) (2D)
007032,002381:
007033,002382: E7,1666 XXXALT ERASE +1 # RADIUS TO LAUNCH PAD OR LANDING SIGHT
007034,002383:
007035,002384: E7,1670 E7,1670 END-IN/M EQUALS XXXALT +2 # NEXT AVAIL ERASABLE AFTER INITVEL/MIDGIM
007036,002385:
|
|
Page 158
|
007038,002387: # S40.1 STORAGE. (19D)
007039,002388:
007040,002389: E7,1670 BDT ERASE +18D # I(6) IN
007041,002390: E7,1713 E7,1676 UT EQUALS BDT +6 # I(6)OUT THRUST DIRECTION
007042,002391: E7,1713 E7,1704 VGTIG EQUALS UT +6 # I(6)OUT
007043,002392: E7,1713 E7,1704 VGPREV = VGTIG
007044,002393: # S40.9 STORAGE. (16D)
007045,002394:
007046,002395: E7,1713 VG ERASE +15D # I(6)TMP
007047,002396: E7,1733 E7,1721 VRPREV EQUALS VG +6 # I(6)TMP
007048,002397: E7,1733 E7,1727 TNIT EQUALS VRPREV +6 # I(2)TMP TIME SIMCE LAST CALL TO S40.9
007049,002398: E7,1733 E7,1731 TNITPREV EQUALS TNIT +2 # I(2)TMP PREVIOUS INIT.
007050,002399:
007051,002400:
007052,002401: # P40 STORAGE. (6D)
007053,002402:
007054,002403: # F,MDOT,AND TDECAY MUST BE CONTIGUOUS FOR VLOAD.
007055,002404: E7,1733 F ERASE +5 # I(2)TMP S40.1 GENERATES THIS FOR S40.3
007056,002405: E7,1741 E7,1735 MDOT EQUALS F +2 # I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
007057,002406: E7,1741 E7,1737 TDECAY EQUALS MDOT +2 # I(2)IN DELTA-T TAILOFF, (2**28)CS.
007058,002407: E7,1741 VEX ERASE +1 # I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N
007059,002408:
007060,002409:
007061,002410:
007062,002411: # MIDTOAV1(2) STORAGE. (CALLED BY P40,P41,P42) (1D)
007063,002412:
007064,002413: E7,1743 IRETURN1 ERASE # B(1) RETURN FROM MIDTOAV1 AND 2
007065,002414:
|
|
Page 159
|
007067,002416: # ******* OVERLAY NUMBER 1 IN EBANK 7 *******
007068,002417:
007069,002418:
007070,002419:
007071,002420: # INITVEL (CALLED BY P34,35,38,39,10,11,S40.9,S40.1) (6D)
007072,002421:
007073,002422: E7,1744 E7,1467 RTARG1 EQUALS VACT1 # I(6)S TEMP STORAGE OF RTARG
007074,002423:
007075,002424:
007076,002425: # P35-P40 INTERFACE. (6D)
007077,002426:
007078,002427: E7,1744 E7,1503 VPASS4 EQUALS VPASS1 # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
007079,002428:
007080,002429:
007081,002430: # INITVEL OVERLAYS RENDESVOUS GUIDANCE (LISTED IN OVERLAY O)
007082,002431:
007083,002432: # SOME P38-39,P78-79 STORAGE. (2D)
007084,002433:
007085,002434: E7,1744 E7,1626 TINT EQUALS TPASS4 # I(2) TIME OF INTERCEPT
007086,002435:
007087,002436:
007088,002437: # LAT - LONG TEMPORARIES. CAN OVERLAY WITH S40.1 (3D)
007089,002438:
007090,002439: E7,1744 E7,1670 ERADM EQUALS BDT # I(2)
007091,002440: E7,1744 E7,1672 INCORPEX EQUALS ERADM +2 # I(1)
007092,002441:
007093,002442:
007094,002443: # LRS24.1 STORAGE. (CAN SHARE WITH P30'S) (40D)
007095,002444:
007096,002445: E7,1744 E7,1673 RLMSRCH EQUALS INCORPEX +1 # I(6) TMP LM POSITION VECTOR
007097,002446: E7,1744 E7,1701 VXRCM EQUALS RLMSRCH +6 # I(6) CM V X R VECTOR
007098,002447: E7,1744 E7,1707 LOSDESRD EQUALS VXRCM +6 # I(6) DESIRED LOS VECTOR
007099,002448: E7,1744 E7,1715 UXVECT EQUALS LOSDESRD +6 # I(6) X-AXIS SRCH PATTERN COORDS
007100,002449: E7,1744 E7,1723 UYVECT EQUALS UXVECT +6 # I(6) Y-AXIS SRCH PATTERN COORDS
007101,002450: E7,1744 E7,1731 DATAGOOD EQUALS UYVECT +6 # B(1)DSP FOR R1 - ALL 1-S WHEN LOCKON
007102,002451: E7,1744 E7,1732 OMEGDISP EQUALS DATAGOOD +1 # B(2) ANGLE OMEGA DISPLAYED IN R2
007103,002452: E7,1744 E7,1732 OMEGAD = OMEGDISP # PINBALL DEFINITION.
007104,002453: E7,1744 E7,1734 NSRCHPNT EQUALS OMEGDISP +2 # B(1)TMP SEARCH PATTERN POINT COUNTER.
007105,002454: E7,1744 E7,1735 SAVLEMV EQUALS NSRCHPNT +1 # I(6)S-S SAVES LOSVEL
007106,002455:
007107,002456:
007108,002457:
007109,002458:
|
|
Page 160
|
007111,002460: # ******* OVERLAY NUMBER 2 IN EBANK 7 *******
007112,002461:
007113,002462:
007114,002463:
007115,002464: # INCORP STORAGE IN E7. (47D)
007116,002465:
007117,002466: E7,1744 E7,1467 TX789 EQUALS E7OVERLA # I(6)
007118,002467: E7,1744 E7,1475 GAMMA EQUALS TX789 +6 # I(3)
007119,002468: E7,1744 E7,1500 OMEGA EQUALS GAMMA +3 # I(18)
007120,002469: E7,1744 E7,1522 BVECTOR EQUALS OMEGA +18D # I(18)
007121,002470: E7,1744 E7,1544 DELTAQ EQUALS BVECTOR +18D # I(2)
007122,002471: # AOTMARK STORAGE (3D)
007123,002472:
007124,002473: E7,1744 E7,1546 MARKCNTR EQUALS DELTAQ +2 # I(1)
007125,002474: E7,1744 E7,1547 XYMARK EQUALS MARKCNTR +1 # B(1)
007126,002475: E7,1744 E7,1550 MKDEX EQUALS XYMARK +1 # B(1)TMP INDEX FOR AOTMARK
007127,002476:
007128,002477:
007129,002478: # PLANET STORAGE. (8D)
007130,002479:
007131,002480: E7,1744 E7,1551 PLANVEC EQUALS MKDEX +1 # (6) REFER VECTOR OF PLANET
007132,002481: E7,1744 E7,1557 TSIGHT EQUALS PLANVEC +6 # (2) TIME OF MARK OR EST TIME OF MARK
007133,002482:
007134,002483:
007135,002484:
007136,002485: # LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1 (30D).
007137,002486:
007138,002487: E7,1744 E7,1673 LGRET EQUALS RLMSRCH # I(1) TMP
007139,002488: E7,1744 E7,1673 RDRET EQUALS LGRET # B(1) TEMP RETURN.
007140,002489: E7,1744 E7,1673 IGRET EQUALS LGRET # B(1) TEMP RETURN.
007141,002490: E7,1744 E7,1674 MX EQUALS RDRET +1 # I(6)
007142,002491: E7,1744 E7,1702 MY EQUALS MX +6 # I(6)
007143,002492: E7,1744 E7,1710 MZ EQUALS MY +6 # I(6)
007144,002493: E7,1744 E7,1674 E0 EQUALS MX # I(2)
007145,002494: E7,1744 E7,1676 E1 EQUALS MX +2 # I(2)
007146,002495: E7,1744 E7,1700 E2 EQUALS MX +4 # I(2)
007147,002496: E7,1744 E7,1702 E3 EQUALS E2 +2 # I(2)
007148,002497: E7,1744 E7,1716 SCALSHFT EQUALS MZ +6 # B(1) SCALE SHIFT FOR EARTH/MOON
007149,002498: E7,1744 E7,1717 RXZ EQUALS SCALSHFT +1 # I(2)
007150,002499: E7,1744 E7,1721 ULC EQUALS RXZ +2 # I(6)
007151,002500: E7,1744 E7,1727 SINTHETA EQUALS ULC +6 # I(2)
007152,002501:
007153,002502: # ***** IN OVERLAY ONE *****
007154,002503:
007155,002504: E7,1744 E7,1744 N49FLAG EQUALS RDOTMSAV # B(1)S FLAG INDICATING V0649 RESPONSE
007156,002505:
007157,002506:
007158,002507: # LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S) (13D)
007159,002508:
007160,002509: # (OUTPUTS ARE TO LRS22.3)
007161,002510:
|
|
Page 161
|
007163,002512: E7,1744 E7,1731 RRTRUN EQUALS SINTHETA +2 # B(2)OUT RR TRUNION ANGLE
007164,002513: E7,1744 E7,1733 RRSHAFT EQUALS RRTRUN +2 # B(2)OUT RRSHAFT ANGLE
007165,002514: E7,1744 E7,1735 LRS22.1X EQUALS RRSHAFT +2 # B(1)TMP
007166,002515: E7,1744 E7,1736 RRBORSIT EQUALS LRS22.1X +1 # I(6) TMP RADAR BORESIGHT VECTOR.
007167,002516: E7,1744 E7,1744 RDOTMSAV EQUALS RRBORSIT +6 # B(2) S RR RANGE-RATE(FPS)
007168,002517:
007169,002518:
007170,002519: # LRS22.1 (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR (R29)(8D) CANNOT SHARE WITH L.A.D.
007171,002520:
007172,002521: E7,1744 E7,1746 RDOTM EQUALS RDOTMSAV +2 # B(2)OUT RANGE-RATE READING
007173,002522: E7,1744 E7,1750 TANGNB EQUALS RDOTM +2 # B(2)TMP RR GIMBAL ANGLES
007174,002523: # RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
007175,002524: E7,1744 E7,1752 MKTIME EQUALS TANGNB +2 # B(2)OUT TIME OF RR READING
007176,002525: E7,1744 E7,1754 RM EQUALS MKTIME +2 # I(2)OUT RANGE READING
007177,002526:
007178,002527:
007179,002528: # R61LEM - PREFERRED TRACKING ATTITUDE ROUTINE **IN OVERLAY ONE*
007180,002529: # (CALLED BY P20,R22LEM,LSR22.3) (1D)
007181,002530:
007182,002531: E7,1744 E7,1743 R65CNTR EQUALS RRBORSIT +5 # B(1)SS COUNT NUMBER OF TIMES PREFERRED
007183,002532: # TRACKING ROUTINE IS TO CYCLE
007184,002533:
007185,002534:
007186,002535:
007187,002536:
007188,002537: # P21 STORAGE (2D)
007189,002538:
007190,002539: E7,1744 E7,1756 P21TIME EQUALS RM +2 # I(2)TMP
007191,002540:
007192,002541:
007193,002542: # KALCMANU, VECPOINT STORAGE. CALLED BY R63, R61, R65. (12D)
007194,002543:
007195,002544: E7,1744 E7,1760 SCAXIS EQUALS P21TIME +2 # I(6)
007196,002545: E7,1744 E7,1766 POINTVSM EQUALS SCAXIS +6 # I(6)
007197,002546:
007198,002547:
|
|
Page 162
|
007200,002549: # ******* OVERLAY NUMBER 3 IN EBANK 7 *******
007201,002550:
007202,002551:
007203,002552:
007204,002553: # SERVICER STORAGE (6D)
007205,002554:
007206,002555: E7,1744 E7,1467 ABVEL EQUALS E7OVERLA # B(2) DISPLAY
007207,002556: E7,1744 E7,1471 HDOTDISP EQUALS ABVEL +2 # B(2) DISPLAY
007208,002557: E7,1744 E7,1473 TTFDISP EQUALS HDOTDISP +2 # B(2) DISPLAY
007209,002558:
007210,002559:
007211,002560: # BURN PROG STORAGE. (2D)
007212,002561:
007213,002562: E7,1744 E7,1475 SAVET-30 EQUALS TTFDISP +2 # B(2)TMP TIG-30 RESTART
007214,002563:
007215,002564:
007216,002565: # SERVICER STORAGE. (69D)
007217,002566:
007218,002567: E7,1744 E7,1477 VGBODY EQUALS SAVET-30 +2 # B(6)OUT SET.BY S41.1 VG LEM, SC.COORDS
007219,002568: E7,1744 E7,1477 DELVCTL = VGBODY
007220,002569: E7,1744 E7,1505 DVTOTAL EQUALS VGBODY +6 # B(2) DISPLAY NOUN
007221,002570: E7,1744 E7,1507 GOBLTIME EQUALS DVTOTAL +2 # B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
007222,002571: E7,1744 E7,1511 ABDVCONV EQUALS GOBLTIME +2 # I(2)
007223,002572: E7,1744 E7,1513 DVCNTR EQUALS ABDVCONV +2 # B(1)
007224,002573: E7,1744 E7,1514 TGO EQUALS DVCNTR +1 # B(2)
007225,002574: E7,1744 E7,1516 R EQUALS TGO +2 # I(6)
007226,002575: E7,1744 E7,1516 UNITGOBL EQUALS R # I(6)
007227,002576: E7,1744 E7,1524 V EQUALS R +6
007228,002577: E7,1744 E7,1524 DELVREF EQUALS V # I(6)
007229,002578: E7,1744 E7,1532 HCALC EQUALS DELVREF +6 # B(2) LR
007230,002579: E7,1744 E7,1534 UNIT/R/ EQUALS HCALC +2 # I(6)
007231,002580: # (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
007232,002581:
007233,002582: E7,1744 E7,1542 RN1 EQUALS UNIT/R/ +6 # B(6)
007234,002583: E7,1744 E7,1550 VN1 EQUALS RN1 +6 # I(6) (IN ORDER )
007235,002584: E7,1744 E7,1556 PIPTIME1 EQUALS VN1 +6 # B(2) ( FOR )
007236,002585: E7,1744 E7,1560 GDT1/2 EQUALS PIPTIME1 +2 # I(6) ( COPY )
007237,002586: E7,1744 E7,1566 MASS1 EQUALS GDT1/2 +6 # I(2) ( CYCLE )
007238,002587: E7,1744 E7,1570 R1S EQUALS MASS1 +2 # I(6)
007239,002588: E7,1744 E7,1576 V1S EQUALS R1S +6 # I(6)
007240,002589:
007241,002590:
007242,002591: # ALIGNMENT/S40.2.3 COMMON STORAGE. (18D)
007243,002592:
007244,002593: E7,1744 E7,1604 XSMD EQUALS V1S +6 # I(6)
007245,002594: E7,1744 E7,1612 YSMD EQUALS XSMD +6 # I(6)
007246,002595: E7,1744 E7,1620 ZSMD EQUALS YSMD +6 # I(6)
007247,002596:
007248,002597: E7,1744 E7,1604 XSCREF = XSMD
007249,002598: E7,1744 E7,1612 YSCREF = YSMD
007250,002599:
|
|
Page 163
|
007252,002601: E7,1744 E7,1620 ZSCREF = ZSMD
007253,002602:
007254,002603: E7,1744 E7,1626 END-ALIG EQUALS ZSMD +6 # NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
007255,002604:
007256,002605:
007257,002606: # ****** P22 ****** (24D)
007258,002607:
007259,002608: E7,1744 E7,1626 RSUBL EQUALS END-ALIG # I(6)S-S LM POSITION VECTOR
007260,002609: E7,1744 E7,1634 UCSM EQUALS RSUBL +6 # I(6)S-S VECTOR U
007261,002610: E7,1744 E7,1642 NEWVEL EQUALS UCSM +6 # I(6)S-S TERMINAL VELOCITY VECTOR
007262,002611: E7,1744 E7,1650 NEWPOS EQUALS NEWVEL +6 # I(6)S-S TERMINAL POSITION VECTOR
007263,002612: E7,1744 E7,1656 LNCHTM EQUALS NEWPOS +6 # I(2)S-S EST. LAUNCH TIME FOR LEM
007264,002613: E7,1744 E7,1660 TRANSTM EQUALS LNCHTM +2 # I(2)S-S TRANSFER TIME
007265,002614: E7,1744 E7,1662 NCSMVEL EQUALS TRANSTM +2 # I(6)S-S NEW CSM VELOCITY
007266,002615:
|
|
Page 164
|
007268,002617: # ******* OVERLAY NUMBER 4 IN EBANK 7 *******
007269,002618:
007270,002619:
007271,002620: # AUTO-OPTICS STORAGE. -R52- (1)
007272,002621:
007273,002622: E7,1744 E7,1467 XNB1 = WHOCARES # THESE WHOCARES THINGS ARE REFERENCED.
007274,002623: E7,1744 E7,1467 YNB1 = WHOCARES # BUT NOT USED IN SUNDANCE
007275,002624: E7,1744 E7,1467 ZNB1 = WHOCARES
007276,002625:
007277,002626:
007278,002627: # VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING) (84D)
007279,002628:
007280,002629: # THESE ERASABLES MAY BE SHARED WITH CARE
007281,002630:
007282,002631: E7,1744 E7,1542 OURTEMPS = RN1 # OVERLAY LAST PART OF SERVICER
007283,002632: E7,1744 E7,1542 LANDTEMP = OURTEMPS # B(6) GUIDANCE
007284,002633: E7,1744 E7,1550 TTF/8TMP = LANDTEMP +6 # B(2) GUIDANCE
007285,002634: E7,1744 E7,1552 ELINCR = TTF/8TMP +2 # B(2) GUIDANCE
007286,002635: E7,1744 E7,1554 AZINCR = ELINCR +2 # B(2) GUIDANCE
007287,002636: E7,1744 E7,1556 KEEP-2 = AZINCR +2 # B(2) TO PREVENT PIPTIME1 OVERLAY
007288,002637: E7,1744 E7,1560 TABLTTF = KEEP-2 +2 # B(2) GUIDANCE
007289,002638: E7,1744 E7,1571 TPIPOLD = TABLTTF +9D # B(2) GUIDANCE
007290,002639: E7,1744 E7,1573 /AFC/ = TPIPOLD +2 # B(2) GUIDANCE AND THROTTLE
007291,002640:
007292,002641:
007293,002642:
007294,002643: # (ERASABLES WHICH OVERLAP WITH THE ABOVE BLOCK)
007295,002644:
007296,002645: E7,1744 E7,1560 FCODD = TABLTTF # B(2) THROTTLE
007297,002646: E7,1744 E7,1562 FP = FCODD +2 # B(2) THROTTLE
007298,002647: E7,1744 E7,1617 E2DPS EQUALS OURPERMS
007299,002648:
007300,002649:
007301,002650:
007302,002651: # THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
007303,002652: E7,1744 E7,1604 PIFPSET = XSMD # B(1) THROTTLE
007304,002653: E7,1744 E7,1605 RTNHOLD = PIFPSET +1 # B(1) THROTTLE
007305,002654: E7,1744 E7,1606 FWEIGHT = RTNHOLD +1 # B(2) THROTTLE
007306,002655: E7,1744 E7,1610 PIF = FWEIGHT +2 # B(2) THROTTLE
007307,002656: E7,1744 E7,1612 PSEUDO55 = PIF +2 # B(1) THROTTLE DOWNLINK
007308,002657: E7,1744 E7,1613 FC = PSEUDO55 +1 # B(2) THROTTLE
007309,002658: E7,1744 E7,1615 TTHROT = FC +2 # B(1) THROTTLE
007310,002659: E7,1744 E7,1616 FCOLD = TTHROT +1 # B(1) THROTTLE
007311,002660:
007312,002661:
007313,002662:
007314,002663: # THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
007315,002664:
007316,002665: E7,1744 E7,1617 OURPERMS = FCOLD +1 # MUSTN'T OVERLAY OURTEMPS OR SERVICER
007317,002666: E7,1744 E7,1617 WCHPHOLD = OURPERMS # B(1) GUIDANCE
007318,002667:
|
|
Page 165
|
007320,002669: E7,1744 E7,1620 WCHPHASE = WCHPHOLD +1 # B(1) GUIDANCE
007321,002670: E7,1744 E7,1621 FLPASS0 = WCHPHASE +1 # B(1) GUIDANCE
007322,002671: E7,1744 E7,1622 TPIP = FLPASS0 +1 # B(2)
007323,002672: E7,1744 E7,1624 VGU = TPIP +2 # B(6) GUIDANCE
007324,002673: E7,1744 E7,1632 LAND = VGU +6 # B(6) GUIDANCE CONTIGUOUS
007325,002674: E7,1744 E7,1640 TTF/8 = LAND +6 # B(2) GUIDANCE CONTIGUOUS
007326,002675: E7,1744 E7,1642 ELINCR1 = TTF/8 +2 # B(1) GUIDANCE
007327,002676: E7,1744 E7,1643 AZINCR1 = ELINCR1 +1 # B(1) GUIDANCE
007328,002677: E7,1744 E7,1644 ZERLINA = AZINCR1 +1 # B(1) GUIDANCE
007329,002678: E7,1744 E7,1645 ELVIRA = ZERLINA +1 # B(1) GUIDANCE
007330,002679: E7,1744 E7,1646 LRADRET = ELVIRA +1 # B(1) LR
007331,002680: E7,1744 E7,1647 VSELECT = LRADRET +1 # B(1) LR
007332,002681: E7,1744 E7,1650 VMEAS = VSELECT +1 # B(2) LR
007333,002682: E7,1744 E7,1652 HMEAS = VMEAS +2 # B(2) LR
007334,002683: E7,1744 E7,1654 VN2 = HMEAS +2 # B(6) LR
007335,002684: E7,1744 E7,1654 GNUR = VN2 # B(6) LR
007336,002685: E7,1744 E7,1654 GNUV = VN2 # B(6) LR
007337,002686: E7,1744 E7,1654 LRADRET1 = VN2 # B(1) LR
007338,002687: E7,1744 E7,1662 DELTAH = VN2 +6 # B(2) DISPLAY
007339,002688: E7,1744 E7,1664 FUNNYDSP = DELTAH +2 # B(2) DISPLAY
007340,002689: E7,1744 E7,1666 EOURPERM EQUALS FUNNYDSP +2 # NEXT AVAILABLE ERASABLE AFTER OURPERMS
007341,002690:
007342,002691:
007343,002692: # (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
007344,002693:
007345,002694: E7,1744 E7,1642 VDGVERT = ELINCR1 # B(2) P65,66
007346,002695: E7,1744 E7,1644 NIGNLOOP = ZERLINA # B(1) IGNALG
007347,002696: E7,1744 E7,1645 NGUIDSUB = ELVIRA # B(1) IGNALG
007348,002697: E7,1744 E7,1644 RODCOUNT = ZERLINA # B(1) P66
007349,002698: E7,1744 E7,1645 WCHVERT = ELVIRA # B(1) P65,66,67
007350,002699: E7,1744 E7,1664 FUELNEED = FUNNYDSP # B(1) DISPLAY
007351,002700: E7,1744 E7,1664 TREDES = FUNNYDSP # B(1) DISPLAY
007352,002701: E7,1744 E7,1665 LOOKANGL = FUNNYDSP +1 # B(1) DISPLAY
007353,002702:
007354,002703:
007355,002704: # ERASABLES CONVENIENTLY DEFINABLE IN THE WORK AREA
007356,002705:
007357,002706: E7,1744 PROJ = 18D # I(2) GUIDANCE
007358,002707: E7,1744 UNLRB/2 = 20D # I(6) GUIDANCE (DURING P64 ONLY)
007359,002708: E7,1744 UNLR/2 = 20D # I(6) GUIDANCE
007360,002709:
007361,002710:
007362,002711: # THE END OF THE LUNAR LANDING ERASABLES
007363,002712:
007364,002713:
007365,002714:
007366,002715: # R12 (FOR LUNAR LANDING) (6D)
007367,002716:
007368,002717: E7,1744 E7,1666 LRLCTR EQUALS EOURPERM # B(1) LR DATA TEST
007369,002718: E7,1744 E7,1667 LRRCTR EQUALS LRLCTR +1 # B(1)
007370,002719:
|
|
Page 166
|
007372,002721: E7,1744 E7,1670 LRMCTR EQUALS LRRCTR +1 # B(1)
007373,002722: E7,1744 E7,1671 LRSCTR EQUALS LRMCTR +1 # B(1)
007374,002723: E7,1744 E7,1672 STILBADH EQUALS LRSCTR +1 # B(1)
007375,002724: E7,1744 E7,1673 STILBADV EQUALS STILBADH +1 # B(1)
007376,002725:
007377,002726:
007378,002727:
007379,002728: # LANDING ANALOGS DISPLAY STORAGE. (40D)
007380,002729:
007381,002730: E7,1744 E7,1674 LATVMETR EQUALS STILBADV +1 # B(1)PRM LATVEL MONITOR METER (AN ORDER)
007382,002731: E7,1744 E7,1675 FORVMETR EQUALS LATVMETR +1 # B(1)PRM FORVEL MONITOR METER (-ED PAIR)
007383,002732: E7,1744 E7,1676 LATVEL EQUALS FORVMETR +1 # B(1)PRM LATERAL VELOCITY (AN ORDER)
007384,002733: E7,1744 E7,1677 FORVEL EQUALS LATVEL +1 # B(1)PRM FORWARD VELOCITY (-ED PAIR)
007385,002734: E7,1744 E7,1700 TRAKLATV EQUALS FORVEL +1 # B(1)PRM MONITOR FLG 4 LATVEL (AN ORDER)
007386,002735: E7,1744 E7,1701 TRAKFWDV EQUALS TRAKLATV +1 # B(1)PRM MONIT. FLAG FOR FORVEL (ED PAIR)
007387,002736: E7,1744 E7,1702 VHY EQUALS TRAKFWDV +1 # B(1)PRM VHY=VMP.UHYP (AN ORDER)
007388,002737: E7,1744 E7,1703 VHZ EQUALS VHY +1 # B(1)PRM VHZ=VMP.UHZP (-ED PAIR)
007389,002738: E7,1744 E7,1704 VVECT EQUALS VHZ +1 # B(3)PRM UPDATED S.P. VELOCITY VECTOR
007390,002739: E7,1744 E7,1707 ALTRATE EQUALS VVECT +3 # B(1)PRM ALTITUDE RATE IN BIT UNITS
007391,002740: E7,1744 E7,1710 ALTSAVE EQUALS ALTRATE +1 # B(2)PRM ALTITUDE IN BIT UNITS
007392,002741: E7,1744 E7,1712 LADQSAVE EQUALS ALTSAVE +2 # B(1)PRM SAVE Q IN LANDISP
007393,002742: E7,1744 E7,1713 DT EQUALS LADQSAVE +1 # B(1)PRM TIME 1 MINUS (PIPTIME +1)
007394,002743: E7,1744 E7,1714 DALTRATE EQUALS DT +1 # B(1)PRM ALTITUDE RATE ERROR CORRECTION
007395,002744: E7,1744 E7,1715 UHYP EQUALS DALTRATE +1 # B(6)PRM SM UNIT VECTOR
007396,002745: E7,1744 E7,1715 QAXIS = UHYP
007397,002746: E7,1744 E7,1723 UHZP EQUALS UHYP +6 # B(6)PRM SM UNIT VECTOR
007398,002747: E7,1744 E7,1731 DELVS EQUALS UHZP +6 # B(6)PRM DELVS = WMXR
007399,002748: E7,1744 E7,1737 ALTBITS EQUALS DELVS +6 # B(2)PRM ALTITUDE IN BIT UNITS, 2.34FT/BT
007400,002749: E7,1744 E7,1741 RUNIT EQUALS ALTBITS +2 # B(3)PRM SM HALF-UNIT R VECTOR
007401,002750: E7,1744 E7,1743 LASTLADW EQUALS RUNIT +2 # ONLY A TAG TO SIGNIFY LAST L.A.D. WORD
007402,002751:
007403,002752:
|
|
Page 167
|
007405,002754: # ******* OVERLAY NUMBER 5 IN EBANK 7 *******
007406,002755:
007407,002756:
007408,002757:
007409,002758: # ASCENT GUIDANCE ERASABLES. (23D)
007410,002759:
007411,002760: E7,1744 E7,1626 RCO EQUALS END-ALIG # I(2)TMP TARGET RADIUS AND OUT-OF-PLANE
007412,002761: E7,1744 E7,1630 YCO EQUALS RCO +2 # I(2)TMP DISTANCE, SCALED AT 2(24).
007413,002762: E7,1744 E7,1632 1/DV1 EQUALS YCO +2 # B(2)TMP ATMAG
007414,002763: E7,1744 E7,1634 1/DV2 EQUALS 1/DV1 +2 # B(2)TMP ATMAG
007415,002764: E7,1744 E7,1636 1/DV3 EQUALS 1/DV2 +2 # B(2)TMP ATMAG
007416,002765: E7,1744 E7,1640 XRANGE EQUALS 1/DV3 +2 # B(2)TMP
007417,002766: E7,1744 E7,1642 APO EQUALS XRANGE +2 # B(2)TMP APOLUNE ALTITUDE DESIRED - M.
007418,002767: # SCALED AT 2(2().
007419,002768:
007420,002769: E7,1744 E7,1644 ENGOFFDT EQUALS APO +2 # B(1)TMP PROTECTION OFENGOFF1 CALL
007421,002770: E7,1744 E7,1645 VGVECT EQUALS ENGOFFDT +1 # I(6)OUT VELOCITY-TO-BE-GAINED
007422,002771: E7,1744 E7,1653 TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
007423,002772: # IS ALLOWED.
007424,002773:
007425,002774: # END OF THE ASCENT GUIDANCE ERASABLES.
007426,002775:
007427,002776: # THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.
007428,002777:
007429,002778: E7,1744 E7,1744 END-E7.0 EQUALS IRETURN1 +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 0
007430,002779: E7,1744 E7,1745 END-E7.1 EQUALS N49FLAG +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 1
007431,002780: E7,1744 E7,1774 END-E7.2 EQUALS POINTVSM +6 # FIRST UNUSED LOCATION IN E7 OVERLAY 2
007432,002781: E7,1744 E7,1626 END-E7.3 EQUALS END-ALIG # FIRST UNUSED LOCATION IN E7 OVERLAY 3
007433,002782: E7,1744 E7,1744 END-E7.4 EQUALS LASTLADW +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 4
007434,002783: E7,1744 E7,1655 END-E7.5 EQUALS TXO +2 # FIRST UNUSED LOCATION IN E7 OVERLAY 5
007435,002784: E7,1744 END-E7 EQUALS 3777 # **LAST LOCATION USED IN E7 **
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc