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