Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
003916,000002: ## Copyright: Public domain.
003917,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
003918,000004: ## Purpose: A section of Luminary revision 210.
003919,000005: ## It is part of the source code for the Lunar Module's (LM)
003920,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
003921,000007: ## This file is intended to be a faithful transcription, except
003922,000008: ## that the code format has been changed to conform to the
003923,000009: ## requirements of the yaYUL assembler rather than the
003924,000010: ## original YUL assembler.
003925,000011: ## Reference: pp. 92-160
003926,000012: ## Assembler: yaYUL
003927,000013: ## Contact: Ron Burkey <info@sandroid.org>.
003928,000014: ## Website: www.ibiblio.org/apollo/index.html
003929,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
003930,000016: ## 2016-11-19 HG Transcribed
003931,000017: ## 2016-11-25 HG Fix operand MARKCNTR -> WHATMARK
003932,000018: ## ASBC0 -> ABSC0
003933,000019: ## ARPFGZ -> ABRFGZ
003934,000020: ## label HCASCLAD -> HCALCLAD
003935,000021: ## NETTOTKP -> NEGTORKP
003936,000022: ## RBRRGZ -> RBRFGZ
003937,000023: ## 2016-11-26 HG Fix label REULTCT -> RESULTCT
003938,000024: ## 2016-11-28 HG Fix operand SAMPLIN -> SAMPLIM
003939,000025: ## 2016-11-29 HG fix label DVCNTRL -> DVCNTR1
003940,000026: ## 2016-12-02 HG fix operand FLPASSO -> FLPASS0
003941,000027: ## 2016-12-07 HG fix operand QAXIZ -> QAXIS adn mofidier +2 -> +6, fixes ZAXIS1
003942,000028: ## label 1/DVO -> 1/DV0
003943,000029: ## ACSAVE -> ASCSAVE
003944,000030: ## DSPFLAG -> DSPLG
003945,000031: ## add missing definition for label ZV
003946,000032: ## 2016-12-11 HG Fix operand modification VVECT(X,Y,Z) + 1 -> VVECT(X,Y,Z)+ 2
003947,000033: ## 2016-12-22 RSB Proofed comment text with octopus/ProoferComments
003948,000034: ## and fixed all errors found.
003949,000035: ## 2017-03-11 MAS Corrected errors found during transcription of Luminary 116.
003950,000036: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
003951,000037: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
003952,000038: ## side-by-side diff of Luminary 69/99/116/131/210.
003953,000039: ## 2021-05-30 ABS Removed RUPTSTOR definition not present in scans.
003954,000040: ## TTPIO -> TTPI0
003955,000041:
|
|
Page 92 |
003957,000043: # CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
003958,000044:
003959,000045: # EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP
003960,000046: # OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
003961,000047: # CHANGING OF ONLY ONE CARD. EXAMPLE.
003962,000048:
003963,000049: # X EQUALS START
003964,000050: # Y EQUALS X +SIZE.X
003965,000051: # Z EQUALS Y +SIZE.Y
003966,000052:
003967,000053: # (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START. )
003968,000054: # (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
003969,000055: # USUALLY NUMERIC, IE. 1, 2, 6, 18D ETC. )
003970,000056:
003971,000057: # EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
003972,000058: # AND DIFFERENT DATA). EXAMPLE.
003973,000059:
003974,000060: # X EQUALS Y
003975,000061:
003976,000062:
003977,000063: # = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
003978,000064: # (THIS IS LOGICAL EQUIVALENCE, NOT SHARING) EXAMPLE.
003979,000065:
003980,000066: # X = Y
003981,000067:
003982,000068: # THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
003983,000069: # THE COMMENTS IN THE FOLLOWING FORM. M(SIZE)N.
003984,000070:
003985,000071: # M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
003986,000072: # B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
003987,000073: # INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
003988,000074: # I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
003989,000075: # INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
003990,000076: # INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
003991,000077:
003992,000078: # SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
003993,000079:
003994,000080: # N INDICATES THE NATURE OF PERMANENCE OF THE CONTENTS.
003995,000081: # PL MEANS THAT THE CONTENTS ARE PAD LOADED.
003996,000082: # DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
003997,000083: # PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
003998,000084: # IS USED DURING THE ENTIRE MISSION FOR ONE
003999,000085: # PURPOSE AND CANNOT BE SHARED.
004000,000086: # TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
004001,000087: # IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
004002,000088: # IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET
004003,000089: # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
004004,000090: # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS
004005,000091:
|
|
Page 93 |
004007,000093: # IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH
004008,000094: # IS NOT ACTIVE IN PARALLEL.
004009,000095: # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
004010,000096: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004011,000097: # OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
004012,000098: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
004013,000099:
|
|
Page 94 |
004015,000101: # SPECIAL REGISTERS.
004016,000102:
004017,000103: 26,2024 A EQUALS 0
004018,000104: 26,2024 L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS.
004019,000105: 26,2024 Q EQUALS 2
004020,000106: 26,2024 EBANK EQUALS 3
004021,000107: 26,2024 FBANK EQUALS 4
004022,000108: 26,2024 Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
004023,000109: 26,2024 BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
004024,000110: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
004025,000111:
004026,000112: 26,2024 ARUPT EQUALS 10 # INTERRUPT STORAGE.
004027,000113: 26,2024 LRUPT EQUALS 11
004028,000114: 26,2024 QRUPT EQUALS 12
004029,000115: 26,2024 SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2.
004030,000116: 26,2024 ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
004031,000117: 26,2024 BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
004032,000118: 26,2024 BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
004033,000119:
004034,000120: 26,2024 CYR EQUALS 20
004035,000121: 26,2024 SR EQUALS 21
004036,000122: 26,2024 CYL EQUALS 22
004037,000123: 26,2024 EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
004038,000124:
004039,000125: 26,2024 TIME2 EQUALS 24
004040,000126: 26,2024 TIME1 EQUALS 25
004041,000127: 26,2024 TIME3 EQUALS 26
004042,000128: 26,2024 TIME4 EQUALS 27
004043,000129: 26,2024 TIME5 EQUALS 30
004044,000130: 26,2024 TIME6 EQUALS 31
004045,000131: 26,2024 CDUX EQUALS 32
004046,000132: 26,2024 CDUY EQUALS 33
004047,000133: 26,2024 CDUZ EQUALS 34
004048,000134: 26,2024 CDUT EQUALS 35 # REND RADAR TRUNNION CDU
004049,000135: 26,2024 CDUS EQUALS 36 # REND RADAR SHAFT CDU
004050,000136: 26,2024 PIPAX EQUALS 37
004051,000137: 26,2024 PIPAY EQUALS 40
004052,000138: 26,2024 PIPAZ EQUALS 41
004053,000139: 26,2024 Q-RHCCTR EQUALS 42 # RHC COUNTER REGISTERS
004054,000140: 26,2024 P-RHCCTR EQUALS 43
004055,000141: 26,2024 R-RHCCTR EQUALS 44
004056,000142: 26,2024 INLINK EQUALS 45
004057,000143: 26,2024 RNRAD EQUALS 46
004058,000144: 26,2024 GYROCMD EQUALS 47
004059,000145: 26,2024 CDUXCMD EQUALS 50
004060,000146: 26,2024 CDUYCMD EQUALS 51
004061,000147: 26,2024 CDUZCMD EQUALS 52
004062,000148: 26,2024 CDUTCMD EQUALS 53 # RADAR TRUNNION COMMAND
004063,000149: 26,2024 CDUSCMD EQUALS 54 # RADAR SHAFT COMMAND
004064,000150:
|
|
Page 95 |
004066,000152: 26,2024 THRUST EQUALS 55
004067,000153: 26,2024 LEMONM EQUALS 56
004068,000154: 26,2024 OUTLINK EQUALS 57
004069,000155: 26,2024 ALTM EQUALS 60
004070,000156:
004071,000157: # INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
004072,000158:
004073,000159: 26,2024 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
004074,000160: 26,2024 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
004075,000161: 26,2024 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTERS RELATIVE
004076,000162: 26,2024 X2 EQUALS 39D # TO THE WORK AREA.
004077,000163: 26,2024 S1 EQUALS 40D
004078,000164: 26,2024 S2 EQUALS 41D
004079,000165: 26,2024 QPRET EQUALS 42D
004080,000166:
004081,000167: # INPUT/OUTPUT CHANNELS
004082,000168:
004083,000169: # *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
004084,000170: 26,2024 0000001 LCHAN EQUALS L
004085,000171: 26,2024 0000002 QCHAN EQUALS Q
004086,000172: 26,2024 HISCALAR EQUALS 3
004087,000173: 26,2024 LOSCALAR EQUALS 4
004088,000174: 26,2024 CHAN5 EQUALS 5
004089,000175: 26,2024 CHAN6 EQUALS 6
004090,000176: 26,2024 SUPERBNK EQUALS 7 # SUPER-BANK.
004091,000177: 26,2024 OUT0 EQUALS 10
004092,000178: 26,2024 DSALMOUT EQUALS 11
004093,000179: 26,2024 CHAN12 EQUALS 12
004094,000180: 26,2024 CHAN13 EQUALS 13
004095,000181: 26,2024 CHAN14 EQUALS 14
004096,000182: 26,2024 MNKEYIN EQUALS 15
004097,000183: 26,2024 NAVKEYIN EQUALS 16
004098,000184: 26,2024 CHAN30 EQUALS 30
004099,000185: 26,2024 CHAN31 EQUALS 31
004100,000186: 26,2024 CHAN32 EQUALS 32
004101,000187: 26,2024 CHAN33 EQUALS 33
004102,000188: 26,2024 DNTM1 EQUALS 34
004103,000189: 26,2024 DNTM2 EQUALS 35
004104,000190: 26,2024 CHAN76 EQUALS 76
004105,000191: 26,2024 CHAN77 EQUALS 77
004106,000192: # END OF CHANNEL ASSIGNMENTS
004107,000193:
|
|
Page 96 |
004109,000195: # INTERPRETIVE SWITCH BIT ASSIGNMENTS
004110,000196:
004111,000197: # ** FLAGWORDS AND BITS NOW ASSIGNED AND DEFINED IN THEIR OWN LOG SECTION. **
004112,000198:
|
|
Page 97 |
004114,000200: # GENERAL ERASABLE ASSIGNMENTS.
004115,000201:
004116,000202: 0061 SETLOC 61
004117,000203: # INTERRUPT TEMPORARY STORAGE POOL. (11D)
004118,000204:
004119,000205: # (ITEMP1 THROUGH RUPTREG4)
004120,000206:
004121,000207: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
004122,000208: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
004123,000209:
004124,000210: 0061 ITEMP1 ERASE
004125,000211: 0062 0061 WAITEXIT EQUALS ITEMP1
004126,000212: 0062 0061 EXECTEM1 EQUALS ITEMP1
004127,000213:
004128,000214: 0062 ITEMP2 ERASE
004129,000215: 0063 0062 WAITBANK EQUALS ITEMP2
004130,000216: 0063 0062 EXECTEM2 EQUALS ITEMP2
004131,000217:
004132,000218: 0063 ITEMP3 ERASE
004133,000219: 0064 0063 WAITADR EQUALS ITEMP3
004134,000220: 0064 0063 NEWPRIO EQUALS ITEMP3
004135,000221:
004136,000222: 0064 ITEMP4 ERASE
004137,000223: 0065 0064 LOCCTR EQUALS ITEMP4
004138,000224: 0065 0064 WAITTEMP EQUALS ITEMP4
004139,000225:
004140,000226: 0065 ITEMP5 ERASE
004141,000227: 0066 0065 NEWLOC EQUALS ITEMP5
004142,000228:
004143,000229: 0066 ITEMP6 ERASE
004144,000230: # NEWLOC+1 EQUALS ITEMP6 DP ADDRESS.
004145,000231:
004146,000232: 0067 SETLOC 67
004147,000233: 0067 NEWJOB ERASE # MUST BE AT LOC 67 DUE TO WIRING.
004148,000234:
004149,000235:
004150,000236: 0070 RUPTREG1 ERASE
004151,000237: 0071 RUPTREG2 ERASE
004152,000238: 0072 RUPTREG3 ERASE
004153,000239: 0073 RUPTREG4 ERASE
004154,000240: 0074 0073 KEYTEMP1 EQUALS RUPTREG4
004155,000241: 0074 0073 DSRUPTEM EQUALS RUPTREG4
004156,000242:
004157,000243: # FLAGWORD RESERVATIONS. (16D)
004158,000244:
004159,000245: 0074 STATE ERASE +15D # FLAGWORD REGISTERS.
004160,000246:
004161,000247: # P25 RADAR STORAGE. (MAY BE UNSHARED IN E7) (TEMP OVERLAY) (2D) OVERLAYS FLGWRD 14 & 15
004162,000248:
|
|
Page 98 |
004164,000250: 0114 0112 LASTYCMD EQUALS STATE +14D # B(1)PRM THESE ARE CALLED BY T4RUPT
004165,000251: 0114 0113 LASTXCMD EQUALS LASTYCMD +1 # B(1)PRM THEY MUST BE CONTIGUOUS, Y FIRST
004166,000252:
004167,000253:
004168,000254:
004169,000255: # EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. (32D) (INTB15+ THROUGH RUPTMXTM)
004170,000256: 0114 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
004171,000257: 0115 0114 DSEXIT = INTB15+ # RETURN FOR DSPIN
004172,000258: 0115 0114 EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
004173,000259: 0115 INTBIT15 ERASE # SIMILAR TO ABOVE.
004174,000260: 0116 0115 WDRET = INTBIT15 # RETURN FOR DSPWD
004175,000261: 0116 0115 DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
004176,000262: 0116 0115 21/22REG = INTBIT15 # TEMP FOR CHARIN
004177,000263:
004178,000264: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
004179,000265:
004180,000266: 0116 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
004181,000267: 0117 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
004182,000268: 0120 0117 UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB
004183,000269: 0120 0117 CHAR = POLISH # TEMP FOR CHARIN
004184,000270: 0120 0117 ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET
004185,000271: 0120 0117 DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
004186,000272:
004187,000273: 0120 FIXLOC ERASE # WORK AREA ADDRESS.
004188,000274: 0121 OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
004189,000275:
004190,000276: 0122 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
004191,000277: 0130 0122 SGNON = VBUF # TEMP FOR +,- ON
004192,000278: 0130 0122 NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH
004193,000279: 0130 0122 DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERBS
004194,000280: 0130 0122 DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
004195,000281:
004196,000282: 0130 0123 SGNOFF = VBUF +1 # TEMP FOR +,- ON
004197,000283: 0130 0123 NVTEMP = VBUF +1 # TEMP FOR NVSUB
004198,000284: 0130 0123 SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
004199,000285: 0130 0123 HITEMIN = VBUF +1 # TEMP FOR LOAD OF HRS, MIN, SEC
004200,000286: # MUST = LOTEMIN-1.
004201,000287: 0130 0124 CODE = VBUF +2 # FOR DSPIN
004202,000288: 0130 0124 SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
004203,000289: 0130 0124 LOTEMIN = VBUF +2 # TEMP FOR LOAD OF HRS, MIN, SEC
004204,000290: # MUST = HITEMIN+1.
004205,000291: 0130 0125 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA
004206,000292: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
004207,000293:
004208,000294: 0130 BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
004209,000295: 0133 BUF2 ERASE +1
004210,000296: 0135 0130 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
004211,000297: 0135 0130 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
004212,000298: 0135 0131 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN SWITCH WORD.
004213,000299: 0135 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT.
004214,000300:
|
|
Page 99 |
004216,000302: 0136 0135 DMPNTEMP = MPTEMP # DMPSUB TEMPORARY
004217,000303: 0136 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE.
004218,000304: 0137 0136 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT.
004219,000305: 0137 0136 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
004220,000306: 0137 0136 ENTRET = DOTINC # EXIT FROM ENTER
004221,000307:
004222,000308: 0137 DOTRET ERASE # RETURN FROM DOT SUBROUTINE.
004223,000309: 0140 0137 DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV.
004224,000310: 0140 0137 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH.
004225,000311: 0140 0137 WDCNT = DOTRET # CHAR COUNTER FOR DSPWD
004226,000312: 0140 0137 INREL = DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
004227,000313:
004228,000314: 0140 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM.
004229,000315: 0141 0140 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
004230,000316: 0141 0140 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
004231,000317: 0141 0140 DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM
004232,000318: 0141 0140 MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
004233,000319:
004234,000320: 0141 TEM1 ERASE # EXEC TEMP
004235,000321: 0142 0141 POLYRET = TEM1
004236,000322: 0142 0141 DSREL = TEM1 # REL ADDRESS FOR DSPIN
004237,000323:
004238,000324: 0142 TEM2 ERASE # EXEC TEMP
004239,000325: 0143 0142 DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN
004240,000326: 0143 TEM3 ERASE # EXEC TEMP
004241,000327: 0144 0143 COUNT = TEM3 # FOR DSPIN
004242,000328:
004243,000329: 0144 TEM4 ERASE # EXEC TEMP
004244,000330: 0145 0144 RELRET = TEM4 # RETURN FOR RELDSP
004245,000331: 0145 0144 DSPWDRET = TEM4 # RETURN FOR DSPSIGN
004246,000332: 0145 0144 SEPSCRET = TEM4 # RETURN FOR SEPSEC
004247,000333: 0145 0144 SEPMNRET = TEM4 # RETURN FOR SEPMIN
004248,000334:
004249,000335: 0145 TEM5 ERASE # EXEC TEMP
004250,000336: 0146 0145 NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS
004251,000337:
004252,000338: 0146 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
004253,000339: 0147 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
004254,000340: 0150 IDAD1TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004255,000341: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
004256,000342: 0151 IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004257,000343: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
004258,000344: 0152 IDAD3TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
004259,000345: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
004260,000346: 0153 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
004261,000347:
004262,000348: # AX*SR*T STORAGE. (6D)
004263,000349:
004264,000350: 0154 0142 DEXDEX EQUALS TEM2 # B(1)TMP
004265,000351: 0154 0143 DEX1 EQUALS TEM3 # B(1)TMP
004266,000352:
|
|
Page 100 |
004268,000354: 0154 0144 DEX2 EQUALS TEM4 # B(1)TMP
004269,000355: 0154 0145 RTNSAVER EQUALS TEM5 # B(1)TMP
004270,000356: 0154 0157 TERM1TMP EQUALS MPAC +3 # B(2)TMP
004271,000357:
004272,000358: 0154 0143 DEXI = DEX1
004273,000359:
004274,000360: # THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
004275,000361: # SUBROUTINE ROOTPSRS. THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
004276,000362: # DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
004277,000363:
004278,000364: 0154 0142 DERCOF-8 = MPAC -12 # ROOTPSRS DER COF N-4 HI ORDER
004279,000365: 0154 0143 DERCOF-7 = MPAC -11 # ROOTPSRS DER COF N-4 LO ORDER
004280,000366: 0154 0144 DERCOF-6 = MPAC -10 # ROOTPSRS DER COF N-3 HI ORDER
004281,000367: 0154 0145 DERCOF-5 = MPAC -7 # ROOTPSRS DER COF N-3 LO ORDER
004282,000368: 0154 0146 DERCOF-4 = MPAC -6 # ROOTPSRS DER COF N-2 HI ORDER
004283,000369: 0154 0147 DERCOF-3 = MPAC -5 # ROOTPSRS DER COF N-2 LO ORDER
004284,000370: 0154 0150 DERCOF-2 = MPAC -4 # ROOTPSRS DER COF N-1 HI ORDER
004285,000371: 0154 0151 DERCOF-1 = MPAC -3 # ROOTPSRS DER COF N-1 LO ORDER
004286,000372: 0154 0152 DERCOFN = MPAC -2 # ROOTPSRS DER COF N HI ORDER
004287,000373: 0154 0153 DERCOF+1 = MPAC -1 # ROOTPSRS DER COF N LO ORDER
004288,000374:
004289,000375: 0154 0117 PWRPTR = POLISH # ROOTPSRS POWER TABLE POINTER
004290,000376: 0154 0124 DXCRIT = VBUF +2 # ROOTPSRS CRITERION FOR ENDING ITERS HI
004291,000377: 0154 0125 DXCRIT+1 = VBUF +3 # ROOTPSRS CRITERION FOR ENDING ITERS LO
004292,000378: 0154 0126 ROOTPS = VBUF +4 # ROOTPSRS ROOT HI ORDER
004293,000379: 0154 0127 ROOTPS+1 = VBUF +5 # ROOTPSRS ROOT LO ORDER
004294,000380: 0154 0132 RETROOT = BUF +2 # ROOTPSRS RETURN ADDRESS OF USER
004295,000381: 0154 0140 PWRCNT = MATINC # ROOTPSRS DER TABLE LOOP COUNTER
004296,000382: 0154 0141 DERPTR = TEM1 # ROOTPSRS DER TABLE POINTER
004297,000383:
|
|
Page 101 |
004299,000385: # DYNAMICALLY ALLOCATED CORE SETS FOR JOBS. (84D)
004300,000386:
004301,000387: 0154 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
004302,000388: 0163 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
004303,000389: 0164 LOC ERASE # LOCATION ASSOCIATED WITH JOB.
004304,000390: 0165 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
004305,000391: 0166 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
004306,000392: 0167 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
004307,000393:
004308,000394: 0170 ERASE +83D # EIGHT SETS OF 12 REGISTERS EACH
004309,000395:
004310,000396: # INCORP STORAGE: R22 (N29) (SHARES WITH FOLLOWING SECTION) (4D)
004311,000397:
004312,000398: 0314 0314 R22DISP EQUALS TIME2SAV # I(4) N49 DISPLAY OF DELTA R AND DELTA V
004313,000399:
004314,000400: # STANDBY VERB ERASABLES (4D)
004315,000401:
004316,000402: 0314 TIME2SAV ERASE +1
004317,000403: 0316 SCALSAVE ERASE +1
004318,000404:
004319,000405: # HARDWARE RESTART COUNTER (1D)
004320,000406:
004321,000407: 0320 REDOCTR ERASE # CONTAINS NUMBER OF RESTARTS
004322,000408:
004323,000409: # UNSHARED STORAGE FOR DESIRED GIMBAL ANGLES (3D)
004324,000410:
004325,000411: 0321 THETAD ERASE +2
004326,000412: 0324 0321 CPHI = THETAD # O DESIRED GIMBAL ANGLES
004327,000413: 0324 0322 CTHETA = THETAD +1 # I FOR
004328,000414: 0324 0323 CPSI = THETAD +2 # M MANEUVER.
004329,000415:
004330,000416: # STORAGE FOR DELTAV/S (6D)
004331,000417:
004332,000418: 0324 DELV ERASE +5
004333,000419: 0332 0324 DELVX = DELV
004334,000420: 0332 0326 DELVY = DELV +2
004335,000421: 0332 0330 DELVZ = DELV +4
004336,000422:
004337,000423: # WAITLIST REPEAT FLAG (1D)
004338,000424:
004339,000425: 0332 RUPTAGN ERASE
004340,000426: 0333 0332 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
004341,000427:
004342,000428: # DOWNLINK STORAGE. (27D)
004343,000429:
|
|
Page 102 |
004345,000431: 0333 DNTMERAS ERASE +26D # B(27D)PRM ERASABLES USED BY DOWN-
004346,000432: # TELEMETRY PROGRAM -- CANNOT BE SHARED.
004347,000433:
004348,000434: 0366 0333 DNLSTCOD EQUALS DNTMERAS # B(1)PRM CODE SPECIFYING WHICH DOWNLIST
004349,000435: # WILL BE SELECTED FOR TRANSMISSION
004350,000436: 0366 0334 CTLIST EQUALS DNLSTCOD +1 # B(1)PRM POINTER TO CURRENT LOCATION OF
004351,000437: # THE CONTROL LIST.
004352,000438: 0366 0335 DNTMGOTO EQUALS CTLIST +1 # B(1)PRM POINTER TO LOCATION WHERE DNTM
004353,000439: # PROCESSING WILL RESUME NEXT DOWNRUPT.
004354,000440: 0366 0336 DNECADR EQUALS DNTMGOTO +1 # B(1)PRM HOLDS CONTENTS OF CURRENT
004355,000441: # CONTROL LIST LOCATION.
004356,000442: 0366 0336 TMINDEX EQUALS DNECADR # B(1) INDEX FOR LOADING SNAPSHOT BUFFER.
004357,000443: 0366 0336 DUMPLOC EQUALS DNECADR # B(1) BITS 1-11 CONTAIN ECADR OF AGC DP
004358,000444: # WORD BEING DUMPED BY V74 ERASABLE DUMP.
004359,000445: # BITS 12-15 CONTAIN COUNT OF
004360,000446: # COMPLETE DUMPS ALREADY SENT.
004361,000447: 0366 0337 SUBLIST EQUALS DNECADR +1 # B(1)PRM POINTER TO CURRENT SUBLIST LOC.
004362,000448: 0366 0340 DNTMBUFF EQUALS SUBLIST +1 # B(22)PRM DOWNLINK SNAPSHOT BUFFER
004363,000449:
004364,000450:
004365,000451: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (6D)
004366,000452:
004367,000453: 0366 NVWORD ERASE
004368,000454: 0367 MARKNV ERASE
004369,000455: 0370 NVSAVE ERASE # PURPOSES)
004370,000456: 0371 CADRFLSH ERASE
004371,000457: 0372 CADRMARK ERASE
004372,000458: 0373 TEMPFLSH ERASE
004373,000459:
004374,000460:
004375,000461: # CHANNEL BIT FAILURE PROTECTION WORD - PAD LOADED AS ZERO (1D)
004376,000462:
004377,000463: 0374 CHANBKUP ERASE # B(1)PRM
004378,000464:
004379,000465:
004380,000466: # ALARM CODE REGISTERS (3D)
004381,000467:
004382,000468: 0375 FAILREG ERASE +2 # B(3)PRM 3 ALARM CODE REGISTERS
004383,000469:
004384,000470: # VAC AREAS. -BE CAREFUL OF PLACEMENT- (220D)
004385,000471:
004386,000472: 0400 VAC1USE ERASE
004387,000473: 0401 VAC1 ERASE +42D
004388,000474: 0454 VAC2USE ERASE
004389,000475: 0455 VAC2 ERASE +42D
004390,000476: 0530 VAC3USE ERASE
004391,000477: 0531 VAC3 ERASE +42D
004392,000478: 0604 VAC4USE ERASE
004393,000479: 0605 VAC4 ERASE +42D
004394,000480:
|
|
Page 103 |
004396,000482: 0660 VAC5USE ERASE
004397,000483: 0661 VAC5 ERASE +42D
004398,000484:
004399,000485:
004400,000486: # TEMPORARIES USED BY RESTARTS ROUTINE
004401,000487:
004402,000488: 0734 0705 GOLOC EQUALS VAC5 +20D # B(4)
004403,000489:
004404,000490:
004405,000491: # R59 - STAR ACQUISITION ROUTINE (1D)
004406,000492:
004407,000493: 0734 POSCODE ERASE # B(1)TMP DETENT POSITION CNTR IN R59
004408,000494:
004409,000495: # CALCSMSC (12D)
004410,000496:
004411,000497: 0735 STARALGN ERASE +11D
004412,000498: 0751 0735 SINCDU = STARALGN
004413,000499: 0751 0743 COSCDU = STARALGN +6
004414,000500:
004415,000501: 0751 0741 SINCDUX = SINCDU +4
004416,000502: 0751 0735 SINCDUY = SINCDU
004417,000503: 0751 0737 SINCDUZ = SINCDU +2
004418,000504: 0751 0747 COSCDUX = COSCDU +4
004419,000505: 0751 0743 COSCDUY = COSCDU
004420,000506: 0751 0745 COSCDUZ = COSCDU +2
004421,000507:
004422,000508:
004423,000509: # PHASE TABLE AND RESTART COUNTERS. (12D)
004424,000510:
004425,000511: 0751 -PHASE1 ERASE
004426,000512: 0752 PHASE1 ERASE
004427,000513: 0753 -PHASE2 ERASE
004428,000514: 0754 PHASE2 ERASE
004429,000515: 0755 -PHASE3 ERASE
004430,000516: 0756 PHASE3 ERASE
004431,000517: 0757 -PHASE4 ERASE
004432,000518: 0760 PHASE4 ERASE
004433,000519: 0761 -PHASE5 ERASE
004434,000520: 0762 PHASE5 ERASE
004435,000521: 0763 -PHASE6 ERASE
004436,000522: 0764 PHASE6 ERASE
004437,000523:
004438,000524: # A**SR*T STORAGE. (6D)
004439,000525:
004440,000526: 0765 CDUSPOT ERASE +5 # B(6)
004441,000527:
004442,000528: 0773 0765 CDUSPOTY = CDUSPOT
004443,000529: 0773 0767 CDUSPOTZ = CDUSPOT +2
004444,000530:
|
|
Page 104 |
004446,000532: 0773 0771 CDUSPOTX = CDUSPOT +4
004447,000533:
004448,000534:
004449,000535: # VERB 37 STORAGE. (2D)
004450,000536:
004451,000537: 0773 MINDEX ERASE # B(1)TMP INDEX FOR MAJOR MODE
004452,000538: 0774 MMNUMBER ERASE # B(1)TMP MAJOR MODE REQUESTED BY V37
004453,000539:
004454,000540:
004455,000541: # PINBALL INTERRUPT ACTION. (1D)
004456,000542:
004457,000543: 0775 DSPCNT ERASE # B(1)PRM COUNTER FOR DSPOUT.
004458,000544:
004459,000545:
004460,000546: # PINBALL EXECUTIVE ACTION (44D)
004461,000547:
004462,000548: 0776 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR.
004463,000549: 0777 DECBRNCH ERASE # +DEC, - DEC, OCT INDICATOR
004464,000550: 1000 VERBREG ERASE # VERB CODE
004465,000551: 1001 NOUNREG ERASE # NOUN CODE
004466,000552: 1002 XREG ERASE # R1 INPUT BUFFER
004467,000553: 1003 YREG ERASE # R2 INPUT BUFFER
004468,000554: 1004 ZREG ERASE # R3 INPUT BUFFER
004469,000555: 1005 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
004470,000556: 1006 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
004471,000557: 1007 1006 HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
004472,000558: # MUST = LOTEMOUT-1.
004473,000559: 1007 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
004474,000560: 1010 1007 LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
004475,000561: # MUST = HITEMOUT+1.
004476,000562: 1010 MODREG ERASE # MODE CODE
004477,000563: 1011 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
004478,000564: 1012 REQRET ERASE # RETURN REGISTER FOR LOAD
004479,000565: 1013 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
004480,000566: 1014 CLPASS ERASE # PASS INDICATOR CLEAR
004481,000567: 1015 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
004482,000568: 1016 NOUNCADR ERASE # MACHINE CADR FOR NOUN
004483,000569: 1017 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
004484,000570: 1020 MONSAVE1 ERASE # NOUNCADR FOR MONITOR(MATBS) =MONSAVE+1
004485,000571: 1021 MONSAVE2 ERASE # NVMONOPT OPTIONS
004486,000572: 1022 DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
004487,000573: 1036 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
004488,000574: # MUST = NVBNKTEM-1
004489,000575: 1037 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
004490,000576: # MUST = NVQTEM+1
004491,000577: 1040 VERBSAVE ERASE # NEEDED FOR RECYCLE
004492,000578: 1041 CADRSTOR ERASE # ENDIDLE STORAGE
004493,000579: 1042 DSPLIST ERASE # WAITING REG FOR DSP SYST INTERNAL USE
004494,000580: 1043 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
004495,000581: 1044 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
004496,000582:
|
|
Page 105 |
004498,000584: 1047 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
004499,000585:
004500,000586: 1052 1050 DSPTEMX EQUALS DSPTEM2 +1 # B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
004501,000587: 1052 1044 NORMTEM1 EQUALS DSPTEM1 # B(3)DSP NORMAL DISPLAY REGISTERS.
004502,000588:
004503,000589:
004504,000590:
004505,000591: # DISPLAY FOR EXTENDED VERBS (V82, R04(V62), V41(N72) ) (2D)
004506,000592:
004507,000593: 1052 1050 OPTIONX EQUALS DSPTEMX # (2) EXTENDED VERB OPTION CODE
004508,000594:
004509,000595: # TBASES AND PHSPRDT S. (12D)
004510,000596:
004511,000597: 1052 TBASE1 ERASE
004512,000598: 1053 PHSPRDT1 ERASE
004513,000599: 1054 TBASE2 ERASE
004514,000600: 1055 PHSPRDT2 ERASE
004515,000601: 1056 TBASE3 ERASE
004516,000602: 1057 PHSPRDT3 ERASE
004517,000603: 1060 TBASE4 ERASE
004518,000604: 1061 PHSPRDT4 ERASE
004519,000605: 1062 TBASE5 ERASE
004520,000606: 1063 PHSPRDT5 ERASE
004521,000607: 1064 TBASE6 ERASE
004522,000608: 1065 PHSPRDT6 ERASE
004523,000609:
004524,000610:
004525,000611: 1066 1055 PIPCTR = PHSPRDT2 # USED TO COUNT DOWN R10 CYLCES. USED IN
004526,000612: # CONJUNCTION WITH TBASE2, SO THIS
004527,000613: # LOCATION IS FUNCTIONALLY =. SEE R10,R11
004528,000614:
004529,000615:
004530,000616: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (5D)
004531,000617:
004532,000618: 1066 NVWORD1 ERASE # B(1) * USED DURING POWERED FLIGHT ONLY *
004533,000619:
004534,000620: 1067 EBANKSAV ERASE
004535,000621: 1070 1067 DSPFLG = EBANKSAV
004536,000622: 1070 MARKFLAG ERASE
004537,000623: 1071 EBANKTEM ERASE
004538,000624: 1072 MARK2PAC ERASE
004539,000625:
004540,000626:
004541,000627:
004542,000628: # CODE WORD FOR AGS RENDEZVOUS DOWNLIST XFER OF RADAR DATA (1D)
004543,000629:
004544,000630: 1073 AGSCODE ERASE # B(1) DO NOT SHARE.
004545,000631:
|
|
Page 106 |
004547,000633: # IMU COMPENSATION UNSWITCHED ERASABLE. (1D)
004548,000634:
004549,000635: 1074 1/PIPADT ERASE
004550,000636:
004551,000637: # TEMPORARIES FOR SPCOS AND SPSIN (2D)
004552,000638:
004553,000639: 1075 TEMK ERASE # (1)
004554,000640: 1076 SQ ERASE # (1)
004555,000641:
004556,000642:
004557,000643: # **** RADAR **** (13D)
004558,000644:
004559,000645: 1077 SAMPLIM ERASE # B(1) LR R12,P60S,R04,R77
004560,000646: 1100 1077 RADUSE EQUALS SAMPLIM # B(1)PRM BOTH P20,P22,R12,R04
004561,000647: 1100 SAMPLSUM ERASE +3 # B(2),I(2) BOTH
004562,000648: 1104 1100 RRTARGET EQUALS SAMPLSUM # I(6) RR P20,P22,R04,V41
004563,000649:
004564,000650: 1104 TIMEHOLD ERASE +1 # B(2) BOTH
004565,000651: 1106 TANG ERASE +1 # B(2),I RR
004566,000652: 1110 1106 MODEA EQUALS TANG # B(2),I RR
004567,000653:
004568,000654: 1110 MODEB ERASE +1 # B(2),I RR
004569,000655: 1112 1110 NSAMP EQUALS MODEB # B(1) BOTH
004570,000656:
004571,000657: 1112 DESRET ERASE # B(1),I RR
004572,000658: 1113 1112 OLDATAGD EQUALS DESRET # B(1) BOTH
004573,000659:
004574,000660: 1113 DESCOUNT ERASE # B(1) RR
004575,000661:
004576,000662:
004577,000663:
004578,000664: # ****** P22 ****** (6D)
004579,000665:
004580,000666: 1114 1100 RSUBC EQUALS RRTARGET # I(6)S-S CSM POSITION VECTOR
004581,000667:
|
|
Page 107 |
004583,000669: # UNSWITCHED FOR ORBIT INTEGRATION. (21D)
004584,000670:
004585,000671: 1114 TDEC ERASE +20D # I(2)
004586,000672: 1141 1116 COLREG EQUALS TDEC +2 # I(1)
004587,000673: 1141 1117 LAT EQUALS COLREG +1 # I(2)
004588,000674: 1141 1121 LONG EQUALS LAT +2 # I(2)
004589,000675: 1141 1123 ALT EQUALS LONG +2 # I(2)
004590,000676: 1141 1125 YV EQUALS ALT +2 # I(6)
004591,000677: 1141 1133 ZV EQUALS YV +6 # I(6)
004592,000678:
004593,000679:
004594,000680: # MISCELLANEOUS UNSWITCHED. (20D)
004595,000681:
004596,000682: 1141 P40/RET ERASE # (WILL BE PUT IN E6 WHEN THERE IS ROOM)
004597,000683: 1142 GENRET ERASE # B(1) R61 RETURN CADR.
004598,000684: 1143 OPTION1 ERASE # B(1) NOUN 06 USES THIS
004599,000685: 1144 OPTION2 ERASE # B(1) NOUN 06 USES THIS
004600,000686: 1145 OPTION3 ERASE # B(1) NOUN 06 USES THIS
004601,000687: 1146 LONGCADR ERASE +1 # B(2) LONGCALL REGISTER
004602,000688: 1150 LONGBASE ERASE +1
004603,000689: 1152 LONGTIME ERASE +1 # B(2) LONGCALL REGISTER
004604,000690: 1154 CDUTEMPX ERASE # B(1)TMP
004605,000691: 1155 CDUTEMPY ERASE # B(1)TMP
004606,000692: 1156 CDUTEMPZ ERASE # B(1)TMP
004607,000693: 1157 PIPATMPX ERASE # B(1)TMP
004608,000694: 1160 PIPATMPY ERASE # B(1)TMP
004609,000695: 1161 PIPATMPZ ERASE # B(1)TMP
004610,000696:
004611,000697: 1162 DISPDEX ERASE # B(1)
004612,000698: 1163 TEMPR60 ERASE # B(1)
004613,000699: 1164 PRIOTIME ERASE # B(1)
004614,000700:
004615,000701: # P27 (UPDATE PROGRAM ) STORAGE. (26D)
004616,000702:
004617,000703: 1165 UPVERBSV ERASE # B(1) UPDATE VERB ATTEMPTED.
004618,000704: 1166 UPTEMP ERASE +24D # B(1)TMP SCRATCH
004619,000705: # RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
004620,000706: 1217 1167 COMPNUMB EQUALS UPTEMP +1 # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
004621,000707: 1217 1170 UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP INTERRUPTED PROGRAM MM
004622,000708: 1217 1171 UPVERB EQUALS UPOLDMOD +1 # B(1)TMP VERB NUMBER
004623,000709: 1217 1172 UPCOUNT EQUALS UPVERB +1 # B(1)TMP UPBUFF INDEX
004624,000710: 1217 1173 UPBUFF EQUALS UPCOUNT +1 # B(20D)
004625,000711:
004626,000712:
004627,000713:
004628,000714: # TEMPORARY FOR RESTART PROTECTION IN SERVICER (2D)
004629,000715:
004630,000716: 1217 1173 DVTEMP EQUALS UPBUFF # B(2) TEMP. SAVE DVTOTAL FOR RESTARTS.
004631,000717:
|
|
Page 108 |
004633,000719: # SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS. (2D)
004634,000720:
004635,000721: 1217 1166 EBUF2 EQUALS UPTEMP # B(2) FOR EXCLUSIVE USE OF SYSTEM TEST
004636,000722:
004637,000723:
004638,000724: # PERM STATE VECTORS FOR BOOST AND DOWNLINK-WHOLE MISSION- (14D)
004639,000725:
004640,000726: 1217 RN ERASE +5 # B(6)PRM
004641,000727: 1225 VN ERASE +5 # B(6)PRM
004642,000728: 1233 PIPTIME ERASE +1 # B(2)PRM (MUST BE FOLLOWED BY GDT/2)
004643,000729:
004644,000730:
004645,000731: # SERVICER -MUST FOLLOW PIPTIME- (18D)
004646,000732:
004647,000733: 1235 GDT/2 ERASE +17D # B(6)TMP ** MUST FOLLOW PIPTIME **
004648,000734: 1257 1243 MASS EQUALS GDT/2 +6 # B(2)
004649,000735: 1257 1243 WEIGHT/G = MASS
004650,000736: 1257 1245 ABDELV EQUALS MASS +2 # (1)
004651,000737: 1257 1246 PGUIDE EQUALS ABDELV +1 # (2)
004652,000738: 1257 1250 DVTHRUSH EQUALS PGUIDE +2 # (1)
004653,000739: 1257 1251 AVEGEXIT EQUALS DVTHRUSH +1 # (2)
004654,000740: 1257 1251 AVGEXIT = AVEGEXIT
004655,000741: 1257 1253 TEMX EQUALS AVEGEXIT +2 # (1)
004656,000742: 1257 1254 TEMY EQUALS TEMX +1 # (1)
004657,000743: 1257 1255 TEMZ EQUALS TEMY +1 # (1)
004658,000744: 1257 1256 PIPAGE EQUALS TEMZ +1 # B(1)
004659,000745:
004660,000746:
004661,000747:
004662,000748:
004663,000749: # ALIGNMENT (7D)
004664,000750:
004665,000751: 1257 1235 AOTCODE EQUALS GDT/2 # B(1)TMP DOWNLINKED -- STAR CODE
004666,000752: 1257 1235 STARCODE = AOTCODE # B(1)TMP DSP N70,N71
004667,000753: 1257 1236 XCOUNT = AOTCODE +1 # B(1)TMP DSP N70,N71 X MARK COUNTER
004668,000754: 1257 1237 YCOUNT = AOTCODE +2 # B(1)TMP DSP N70,N71 Y MARK COUNTER
004669,000755:
004670,000756: 1257 1240 CURSOR EQUALS AOTCODE +3 # B(1)TMP DOWNLNK -- STAR MEASUREMENT QTY
004671,000757: 1257 1241 SPIRAL EQUALS CURSOR +1 # B(1)TMP DOWNLNK -- STAR MEASUREMENT QTY
004672,000758: 1257 1241 SITIME EQUALS SPIRAL # B(2)TMP TIME USED IN LANDING SITE COMP
004673,000759:
004674,000760:
004675,000761: # S34/35.5 TEMPORARY (2)
004676,000762:
004677,000763: 1257 1235 TMPDV EQUALS GDT/2 # B(2) TMP SAVE FOR DVLVC
004678,000764:
004679,000765:
004680,000766: # USED FOR SUMMATION OF UPRUPT DURING PRELAUNCH & SYS TEST LEADIN(3D)
004681,000767:
004682,000768: 1257 1245 UPSUM EQUALS ABDELV # (3)
004683,000769:
|
|
Page 109 |
004685,000771: # P 76 DISPLAY N84 (6D)
004686,000772: 1257 1250 DELVOV EQUALS UPSUM +3 # I(6)
004687,000773:
004688,000774:
004689,000775: # P76 - P77 STORAGE (1D)
004690,000776:
004691,000777: 1257 1235 OPTFLAG EQUALS GDT/2 # B(1)TMP FLAG FOR P76 OR P77
004692,000778:
004693,000779:
004694,000780: # PERMANENT LEM DAP STORAGE. (5D)
004695,000781:
004696,000782: 1257 CH5MASK ERASE # B(1)PRM
004697,000783: 1260 CH6MASK ERASE # B(1)PRM JET FAILURE MASK.
004698,000784: 1261 SPNDX ERASE # B(1)
004699,000785: 1262 T5ADR ERASE +1 # GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
004700,000786: # BBCON OF NEXT LM DAP T5RUPT. 2CADR
004701,000787:
004702,000788: # DISPLAY INTERFACE RESTART PROTECTION STORAGE (1D)
004703,000789:
004704,000790: 1264 RESTREG ERASE # B(1)PRM
004705,000791:
004706,000792:
004707,000793: # ERASABLES FOR RADAR READ PROTECTION (C13STALL) (4D)
004708,000794:
004709,000795: 1265 C13QSAV ERASE # B(1) QSAVE FOR C13STALL USERS.
004710,000796: 1266 C13FSAV ERASE # B(1) FBANK SAVE FOR C13STALL.
004711,000797: 1267 RADTIME ERASE # B(1) NEG. TIME OF SCALAR READ.
004712,000798: 1270 RADDEL ERASE # B(1) DELTA TIME FROM SCALAR READ TO T5.
004713,000799:
004714,000800:
004715,000801: # RADAREAD STORAGE (2D)
004716,000802:
004717,000803: 1271 TTOTIG ERASE +1 # B(2) LATEST ESTIMATE OF TIME TO IGNITION
004718,000804:
004719,000805: # RCS FAILURE MONITOR STORAGE (1)
004720,000806: 1273 PVALVEST ERASE # B(1)PRM
004721,000807:
004722,000808:
004723,000809: # KALCMANU/DAP INTERFACE. (3D)
004724,000810:
004725,000811: 1274 DELPEROR ERASE # B(1)PRM COMMAND LAGS.
004726,000812: 1275 DELQEROR ERASE # B(1)PRM
004727,000813: 1276 DELREROR ERASE # B(1)PRM
004728,000814:
004729,000815: # MODE SWITCHING ERASABLE. (9D)
004730,000816:
|
|
Page 110 |
004732,000818: # RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES.
004733,000819: 1277 IMODES30 ERASE # B(1)
004734,000820: 1300 IMODES33 ERASE
004735,000821: 1301 MODECADR ERASE +2 # B(3)PRM
004736,000822: 1304 1301 IMUCADR EQUALS MODECADR
004737,000823: 1304 1302 OPTCADR EQUALS MODECADR +1
004738,000824: 1304 1303 RADCADR EQUALS MODECADR +2
004739,000825: 1304 ATTCADR ERASE +2 # B(3)PRM
004740,000826: 1307 1306 ATTPRIO = ATTCADR +2
004741,000827: 1307 MARKSTAT ERASE
004742,000828:
004743,000829: # T4RUPT ERASABLE. (2D)
004744,000830:
004745,000831: 1310 DSRUPTSW ERASE
004746,000832: 1311 LGYRO ERASE # (1)
004747,000833:
004748,000834: # RENDEZVOUS RADAR TASK STORAGE (3D)
004749,000835:
004750,000836: 1312 RRRET ERASE +2D # B(1)TMP P20'S, PERHAPS R29 & R12
004751,000837: 1315 1313 RDES EQUALS RRRET +1 # B(1)TMP
004752,000838: 1315 1314 RRINDEX EQUALS RDES +1 # B(1)TMP
004753,000839:
004754,000840:
004755,000841:
004756,000842:
004757,000843: # MEASUREMENT INCORPORATION (4D)
004758,000844:
004759,000845: 1315 WIXA ERASE # B(1)
004760,000846: 1316 WIXB ERASE # B(1)
004761,000847: 1317 ZIXA ERASE # B(1)
004762,000848: 1320 ZIXB ERASE # B(1)
004763,000849:
004764,000850: # LANDING RADAR PADLOAD (1D)
004765,000851:
004766,000852: 1321 1315 LRWH1 EQUALS WIXA # B(1) P.L. P64 LR WEIGHTING FUNCTION
004767,000853:
004768,000854:
004769,000855:
004770,000856:
004771,000857: # AGS DOWNLINK ID CODE FOR RESTART PURPOSES (1D)
004772,000858:
004773,000859: 1321 AGSWORD ERASE
004774,000860:
004775,000861: # SOME MISCELLANEOUS UNSWITCHED. (6D)
004776,000862:
004777,000863: 1322 RATEINDX ERASE # (1) USED BY KALCMANU
004778,000864: 1323 DELAYLOC ERASE +2
004779,000865: 1326 LEMMASS ERASE # KEEP CONTIGUOUS W. CSMMASS (1) EACH
004780,000866: 1327 CSMMASS ERASE
004781,000867:
004782,000868: # LESS IS MORE.
004783,000869:
|
|
Page 111 |
004785,000871:
004786,000872: # RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE. (7D)
004787,000873:
004788,000874: # (NORMALLY USED DURING P20, BUT MAY ALSO)
004789,000875: # (BE REQUIRED FOR THE V62 SPURIOUS TEST.)
004790,000876:
004791,000877: # (PLEASE KEEP IN THIS ORDER)
004792,000878:
004793,000879: 1330 DNRRANGE ERASE +6 # B(1) TMP
004794,000880: 1337 1331 DNRRDOT EQUALS DNRRANGE +1 # B(1)TMP
004795,000881: 1337 1332 DNINDEX EQUALS DNRRDOT +1 # B(1)TMP
004796,000882: 1337 1333 DNLRVELX EQUALS DNINDEX +1 # B(1)TMP
004797,000883: 1337 1334 DNLRVELY EQUALS DNLRVELX +1 # B(1)TMP
004798,000884: 1337 1335 DNLRVELZ EQUALS DNLRVELY +1 # B(1)TMP
004799,000885: 1337 1336 DNLRALT EQUALS DNLRVELZ +1 # B(1) TMP
004800,000886:
004801,000887: # RADAR -- RR AND LR (1D)
004802,000888:
004803,000889: 1337 1332 RADBITS EQUALS DNINDEX # B(1)PRM SHOWS TYPE OF RADAR READ
004804,000890:
004805,000891:
004806,000892: # INCORPORATION UNSWITCHED. (2D)
004807,000893:
004808,000894: 1337 1256 W.IND EQUALS PIPAGE # B(1) TMP -- INDEX IN CLOSED LOOP
004809,000895:
004810,000896:
004811,000897: # SUBROUTINE BALLANGS OF R60. (1D)
004812,000898:
004813,000899: 1337 BALLEXIT ERASE # B(1) SAVE LOCATION FOR BALLINGS SUBR EXIT
004814,000900:
004815,000901:
004816,000902: # SOME LEM DAP STORAGE. (4D)
004817,000903:
004818,000904: 1340 DAPDATR1 ERASE # B(1)DSP DAP CONFIG.
004819,000905: 1341 TEVENT ERASE +1 # B(2)DSP
004820,000906: 1343 DB ERASE # B(1) PRM DEAD BAND
004821,000907: 1344 1343 DBVAL1 = DB # B(1) PRM
004822,000908:
004823,000909:
004824,000910:
004825,000911: # NOUN 87 USED IN R52 AUTO OPTICS (2D)
004826,000912:
004827,000913: 1344 AZ ERASE +1D # B(1) AZ AND EL MUST BE CONTIGUOUS
004828,000914: 1346 1345 EL EQUALS AZ +1D # B(1)
004829,000915:
004830,000916:
004831,000917: # P63, P64, P65, P66, AND P67. (1D)
004832,000918:
004833,000919: 1346 WCHPHASE ERASE # B(1)
004834,000920:
|
|
Page 112 |
004836,000922:
004837,000923: # PADLOADS FOR R2 LUNAR POTENTIAL MODEL. (2D)
004838,000924:
004839,000925: 1347 E3J22R2M ERASE # I(1)
004840,000926: 1350 E32C31RM ERASE # I(1)
004841,000927:
004842,000928:
004843,000929:
004844,000930:
004845,000931: # ERASABLES FOR TRUNNION AND SHAFT COMMANDS (2D)
004846,000932:
004847,000933: 1351 TRUNNCMD ERASE # *** THESE TWO ERASABLES ***
004848,000934: 1352 SHAFTCMD ERASE # *** MUST BE IN ORDER ***
004849,000935:
004850,000936:
004851,000937: # R22 OF P20 (1D)
004852,000938: 1353 WHCHREAD ERASE # B(1)TMP MEASUREMENT BEING PROCESSED.
004853,000939:
004854,000940: # LANDING PADLOAD (1D)
004855,000941:
004856,000942: 1354 1353 ELBIAS EQUALS WHCHREAD # B(1) PL LPD ELEVATION BIAS. PI RADIANS.
004857,000943:
004858,000944: # P66 PADLOAD (1D)
004859,000945:
004860,000946: 1354 TOOFEW ERASE # B(1) TOO FEW THROTTLINGS PER OMISSION:
004861,000947: # ONE LESS THAN NO. THROTTLES REQUIRED
004862,000948: # BETWEEN SKIPPED THROTTLES
004863,000949: # 1466 ALARM IF THROTTLINGS <= TOOFEW
004864,000950: # TLOSS INDICATORS FOR DOWNLINK (2D)
004865,000951:
004866,000952: 1355 SERVDURN ERASE # B(1) AT SERVOUT: TIME1 - PIPTIME +1
004867,000953: 1356 DUMLOOPS ERASE # B(1) LOOP COUNTER IN DUMMYJOB AT ADVAN
004868,000954:
004869,000955:
004870,000956: # SELF-CHECK ASSIGNMENTS. (17D)
004871,000957:
004872,000958: # (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
004873,000959:
004874,000960: 1357 SELFERAS ERASE 1357 - 1377 # *** MUST NOT BE MOVED ***
004875,000961: 1357 1357 SFAIL EQUALS SELFERAS # B(1)
004876,000962: 1357 1360 ERESTORE EQUALS SFAIL +1 # B(1)
004877,000963: 1357 1361 SELFRET EQUALS ERESTORE +1 # B(1) RETURN
004878,000964: 1357 1362 SMODE EQUALS SELFRET +1 # B(1)
004879,000965: 1357 1363 ALMCADR EQUALS SMODE +1 # B(2) ALARM-ABORT USER'S 2CADR
004880,000966: 1357 1365 ERCOUNT EQUALS ALMCADR +2 # B(1)
004881,000967: 1357 1366 SCOUNT EQUALS ERCOUNT +1 # B(3)
004882,000968: 1357 1371 SKEEP1 EQUALS SCOUNT +3 # B(1)
004883,000969: 1357 1372 SKEEP2 EQUALS SKEEP1 +1 # B(1)
004884,000970: 1357 1373 SKEEP3 EQUALS SKEEP2 +1 # B(1)
004885,000971: 1357 1374 SKEEP4 EQUALS SKEEP3 +1 # B(1)
004886,000972:
|
|
Page 113 |
004888,000974: 1357 1375 SKEEP5 EQUALS SKEEP4 +1 # B(1)
004889,000975: 1357 1376 SKEEP6 EQUALS SKEEP5 +1 # B(1)
004890,000976: 1357 1377 SKEEP7 EQUALS SKEEP6 +1 # B(1)
004891,000977:
|
|
Page 114 |
004893,000979: # EBANK-3 ASSIGNMENTS
004894,000980:
004895,000981: E3,1400 SETLOC 1400
004896,000982:
004897,000983: # WAITLIST TASK LISTS. (26D)
004898,000984:
004899,000985: E3,1400 LST1 ERASE +7 # B(8D)PRM DELTA T S.
004900,000986: E3,1410 LST2 ERASE +17D # B(18D)PRM TASK 2CADR ADDRESSES.
004901,000987:
004902,000988: # RESTART STORAGE. (2D)
004903,000989:
004904,000990: E3,1432 RSBBQ ERASE +1 # B(2)PRM SAVE BB AND Q FOR RESTARTS.
004905,000991:
004906,000992:
004907,000993: # MORE LONGCALL STORAGE.(MUST BE IN LST1 S BANK. (2D)
004908,000994:
004909,000995: E3,1434 LONGEXIT ERASE +1 # B(2)TMP MAY BE SELDOM OVERLAYED.
004910,000996:
004911,000997:
004912,000998: # PHASE-CHANGE LISTS PART II. (12D)
004913,000999:
004914,001000: E3,1436 PHSNAME1 ERASE # B(1)PRM
004915,001001: E3,1437 PHSBB1 ERASE # B(1)PRM
004916,001002: E3,1440 PHSNAME2 ERASE # B(1)PRM
004917,001003: E3,1441 PHSBB2 ERASE # B(1)PRM
004918,001004: E3,1442 PHSNAME3 ERASE # B(1)PRM
004919,001005: E3,1443 PHSBB3 ERASE # B(1)PRM
004920,001006: E3,1444 PHSNAME4 ERASE # B(1)PRM
004921,001007: E3,1445 PHSBB4 ERASE # B(1)PRM
004922,001008: E3,1446 PHSNAME5 ERASE # B(1)PRM
004923,001009: E3,1447 PHSBB5 ERASE # B(1)PRM
004924,001010: E3,1450 PHSNAME6 ERASE # B(1)PRM
004925,001011: E3,1451 PHSBB6 ERASE # B(1)PRM
004926,001012:
004927,001013: # IMU COMPENSATION PARAMETERS. (22D)
004928,001014:
004929,001015: E3,1452 PBIASX ERASE # B(1) PIPA BIAS, PIPA SCALE FACTR TERMS
004930,001016: E3,1453 E3,1452 PIPABIAS = PBIASX # INTERMIXED.
004931,001017: E3,1453 PIPASCFX ERASE
004932,001018: E3,1454 E3,1453 PIPASCF = PIPASCFX
004933,001019: E3,1454 PBIASY ERASE
004934,001020: E3,1455 PIPASCFY ERASE
004935,001021: E3,1456 PBIASZ ERASE
004936,001022: E3,1457 PIPASCFZ ERASE
004937,001023:
004938,001024: E3,1460 NBDX ERASE # GYRO BIAS DRIFTS
004939,001025: E3,1461 NBDY ERASE
004940,001026: E3,1462 NBDZ ERASE
004941,001027:
|
|
Page 115 |
004943,001029: E3,1463 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
004944,001030: E3,1464 ADIAY ERASE # INPUT AXIS
004945,001031: E3,1465 ADIAZ ERASE
004946,001032:
004947,001033: E3,1466 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
004948,001034: E3,1467 ADSRAY ERASE # SPIN REFERENCE AXIS
004949,001035: E3,1470 ADSRAZ ERASE
004950,001036:
004951,001037: E3,1471 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES
004952,001038:
004953,001039: E3,1477 E3,1471 COMMAND EQUALS GCOMP
004954,001040: E3,1477 E3,1474 CDUIND EQUALS GCOMP +3
004955,001041:
004956,001042: E3,1477 GCOMPSW ERASE
004957,001043:
004958,001044:
004959,001045:
004960,001046: # STATE VECTORS FOR ORBIT INTEGRATION. (44D)
004961,001047:
004962,001048: # (DIFEQCNT THRU XKEP MUST BE IN SAME
004963,001049: # EBANK AS RRECTCSM, RRECTLEM ETC
004964,001050: # BECAUSE THE COPY-CYCLES (ATOPCSM,
004965,001051: # PTOACSM ETC) ARE EXECUTED IN BASIC.
004966,001052: # ALL OTHER REFERENCES TO THIS GROUP
004967,001053: # ARE BY INTERPRETIVE INSTRUCTIONS.)
004968,001054:
004969,001055:
004970,001056: E3,1500 DIFEQCNT ERASE +43D # B(1)
004971,001057: # (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
004972,001058:
004973,001059: E3,1554 E3,1501 UPSVFLAG EQUALS DIFEQCNT +1 # B(1)
004974,001060: E3,1554 E3,1502 RRECT EQUALS UPSVFLAG +1 # B(6)
004975,001061: E3,1554 E3,1510 VRECT EQUALS RRECT +6 # B(6)
004976,001062: E3,1554 E3,1516 TET EQUALS VRECT +6 # B(2)
004977,001063: E3,1554 E3,1520 TDELTAV EQUALS TET +2 # B(6)
004978,001064: E3,1554 E3,1526 TNUV EQUALS TDELTAV +6 # B(6)
004979,001065: E3,1554 E3,1534 RCV EQUALS TNUV +6 # B(6)
004980,001066: E3,1554 E3,1542 VCV EQUALS RCV +6 # B(6)
004981,001067: E3,1554 E3,1550 TC EQUALS VCV +6 # B(2)
004982,001068: E3,1554 E3,1552 XKEP EQUALS TC +2 # B(2)
004983,001069:
004984,001070: # CONIC ROUTINES STORAGE (2D)
004985,001071:
004986,001072: E3,1554 E3,1552 XPREV EQUALS XKEP # I(2)TMP
004987,001073:
004988,001074:
004989,001075: # PERMANENT STATE VECTORS AND TIMES. (97D)
004990,001076:
004991,001077: # (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
004992,001078:
|
|
Page 116 |
004994,001080: # (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
004995,001081:
004996,001082: E3,1554 RRECTCSM ERASE +5 # B(6)PRM CSM VARIABLES.
004997,001083: E3,1562 E3,1554 RRECTOTH = RRECTCSM
004998,001084: E3,1562 VRECTCSM ERASE +5 # B(6)PRM
004999,001085: E3,1570 TETCSM ERASE +1 # B(2)PRM
005000,001086: E3,1572 E3,1570 TETOTHER = TETCSM
005001,001087: E3,1572 DELTACSM ERASE +5 # B(6)PRM
005002,001088: E3,1600 NUVCSM ERASE +5 # B(6)PRM
005003,001089: E3,1606 RCVCSM ERASE +5 # B(6)PRM
005004,001090: E3,1614 VCVCSM ERASE +5 # B(6)PRM
005005,001091: E3,1622 TCCSM ERASE +1 # B(2)PRM
005006,001092: E3,1624 XKEPCSM ERASE +1 # B(2)PRM
005007,001093:
005008,001094: # (RRECTLEM ...XKEPLEM MUST BE KEPT IN THIS ORDER)
005009,001095:
005010,001096: E3,1626 RRECTLEM ERASE +5 # B(6)PRM LEM VARIABLES
005011,001097: E3,1634 E3,1626 RRECTHIS = RRECTLEM
005012,001098: E3,1634 VRECTLEM ERASE +5 # B(6)PRM
005013,001099: E3,1642 TETLEM ERASE +1 # B(2)PRM
005014,001100: E3,1644 E3,1642 TETTHIS = TETLEM
005015,001101: E3,1644 DELTALEM ERASE +5 # B(6)PRM
005016,001102: E3,1652 NUVLEM ERASE +5 # B(6)PRM
005017,001103: E3,1660 RCVLEM ERASE +5 # B(6)PRM
005018,001104: E3,1666 VCVLEM ERASE +5 # B(6)PRM
005019,001105: E3,1674 TCLEM ERASE +1 # B(2)PRM
005020,001106: E3,1676 XKEPLEM ERASE +1 # B(2)PRM
005021,001107:
005022,001108: E3,1700 X789 ERASE +5
005023,001109: E3,1706 TEPHEM ERASE +2
005024,001110: E3,1711 -AYO ERASE +1
005025,001111: E3,1713 AXO ERASE +1
005026,001112:
005027,001113:
005028,001114: # STATE VECTORS FOR DOWNLINK. (12D)
005029,001115:
005030,001116: E3,1715 R-OTHER ERASE +5 # B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
005031,001117: E3,1723 V-OTHER ERASE +5 # B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
005032,001118:
005033,001119: E3,1731 E3,1570 T-OTHER = TETCSM # TIME (OTHER VECH) FOR DNLINK
005034,001120:
005035,001121:
005036,001122: # SERVICER FOR LUNAR ASCENT AND DESCENT (12D)
005037,001123:
005038,001124: E3,1731 E3,1715 R(CSM) EQUALS R-OTHER # I(6) FOR UPDATE OF CM STATE VECS BY LM.
005039,001125: E3,1731 E3,1723 V(CSM) EQUALS V-OTHER # I(6)
005040,001126:
005041,001127:
005042,001128: # REFSMMAT. (18D)
005043,001129:
|
|
Page 117 |
005045,001131: E3,1731 REFSMMAT ERASE +17D # I(18D)PRM
005046,001132:
005047,001133: # ACTIVE VEHICLE CENTANG. MUST BE DISPLAYED ANYTIME (ALMOST.) (2D)
005048,001134:
005049,001135: E3,1753 ACTCENT ERASE +1 # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
005050,001136: # VEHICLE AT TPI TIG AND TARGET VECTOR.
005051,001137:
005052,001138: # **** USED IN CONICSEX (PLAN INERT ORIENT) ****
005053,001139:
005054,001140: E3,1755 E3,1706 TIMSUBO EQUALS TEPHEM # CSEC B-42 (TRIPLE PRECISION)
005055,001141:
005056,001142:
005057,001143: # LPS20.1 STORAGE -ALL ARE PRM- (9D)
005058,001144:
005059,001145: E3,1755 LS21X ERASE # I(1)
005060,001146: E3,1756 LOSVEL ERASE +5 # I(6)
005061,001147: E3,1764 MLOSV ERASE +1 # I(2) MAGNITUDE OF LOS, METERS B-29
005062,001148:
005063,001149:
005064,001150: # ***** P22 ***** (OVERLAYS LPS 20.1 STORAGE) (6D)
005065,001151: E3,1766 E3,1756 VSUBC EQUALS LOSVEL # I(6)S-S CSM VELOCITY VECTOR
005066,001152:
005067,001153: # PADLOADED ERASABLES FOR P20/P22 (6D)
005068,001154:
005069,001155: E3,1766 RANGEVAR ERASE +1 # I(2) RR RANGE ERROR VARIANCE
005070,001156: E3,1770 RATEVAR ERASE +1 # I(2) RR RANGE-RATE ERROR VARIANCE
005071,001157: E3,1772 RVARMIN ERASE # I(1) MINIMUM RANGE ERROR VARIANCE
005072,001158: E3,1773 VVARMIN ERASE # I(1) MINIMUM RANGE-RATE ERROR VARIANCE
005073,001159:
005074,001160:
005075,001161: # P32-P33 STORAGE (2D)
005076,001162:
005077,001163: E3,1774 TCDH ERASE +1 # I(2) T2 CDH TIME IN CS. (ALSO DOWNLINKED
005078,001164:
005079,001165: # TIME SAVE FOR P20 AGS DOWNLIST (2D)
005080,001166:
Warning: May overflow memory bank.
005081,001167: E3,1776 OLDAGS ERASE +1 # I(2)
005082,001168:
|
|
Page 118 |
005084,001170: # EBANK-4 ASSIGNMENTS
005085,001171:
005086,001172: E4,1400 SETLOC 2000
005087,001173:
005088,001174: # E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
005089,001175:
005090,001176: # P20 STORAGE. -PAD LOADED- (6D)
005091,001177:
005092,001178: E4,1400 WRENDPOS ERASE # B(1)PL KM*2(-7)
005093,001179: E4,1401 WRENDVEL ERASE # B(1)PL KM(-1/2)*2(11)
005094,001180: E4,1402 WSHAFT ERASE # B(1)PL KM*2(-7)
005095,001181: E4,1403 WTRUN ERASE # B(1)PL KM*2(-7)
005096,001182: E4,1404 RMAX ERASE # B(1)PL METERS*2(-19)
005097,001183: E4,1405 VMAX ERASE # B(1)PL M/CSEC*2(-7)
005098,001184:
005099,001185: # LUNAR SURFACE NAVIGATION -- PAD LOADED -- (2D)
005100,001186:
005101,001187: E4,1406 WSURFPOS ERASE # B(1)PL
005102,001188: E4,1407 WSURFVEL ERASE # B(1)PL
005103,001189:
005104,001190:
005105,001191: # P22 STORAGE. -PAD LOADED- (2D)
005106,001192:
005107,001193: E4,1410 SHAFTVAR ERASE # B(1)PL RAD SQ*2(12)
005108,001194: E4,1411 TRUNVAR ERASE # B(1)PL RAD SQ*2(10)
005109,001195:
005110,001196: # CONISEX STORAGE.-PAD LOADED- (6D)
005111,001197:
005112,001198: E4,1412 504LM ERASE +5 # I(6)MOON LIBRATION VECTOR
005113,001199:
005114,001200:
005115,001201: # STORAGE FOR RLS AND TLAND - PAD LOADS - ORDER IS RETAINED FOR UPLINK. (8D)
005116,001202:
005117,001203: E4,1420 RLS ERASE +5 # I(6) LANDING SITE VECTOR - MOON REF.
005118,001204: E4,1426 TLAND ERASE +1 # B(2) NOMINAL LANDING TIME.
005119,001205:
005120,001206: # INTEGRATION STORAGE. (94D)
005121,001207:
005122,001208: E4,1430 PBODY ERASE +93D # I(1)
005123,001209: E4,1566 E4,1431 ALPHAV EQUALS PBODY +1 # I(6)
005124,001210: E4,1566 E4,1437 BETAV EQUALS ALPHAV +6 # I(6)
005125,001211: E4,1566 E4,1445 PHIV EQUALS BETAV +6 # I(6)
005126,001212: E4,1566 E4,1453 PSIV EQUALS PHIV +6 # I(6)
005127,001213: E4,1566 E4,1461 FV EQUALS PSIV +6 # I(6) PERTURBING ACCELERATIONS
005128,001214: E4,1566 E4,1467 ALPHAM EQUALS FV +6 # I(2)
005129,001215: E4,1566 E4,1471 BETAM EQUALS ALPHAM +2 # I(2)
005130,001216: E4,1566 E4,1473 TAU. EQUALS BETAM +2 # I(2)
005131,001217:
|
|
Page 119 |
005133,001219: E4,1566 E4,1475 DT/2 EQUALS TAU. +2 # I(2)
005134,001220: E4,1566 E4,1477 H EQUALS DT/2 +2 # I(2)
005135,001221: E4,1566 E4,1501 IRETURN EQUALS H +2 # I(1)
005136,001222: E4,1566 E4,1502 NORMGAM EQUALS IRETURN +1 # I(1)
005137,001223: E4,1566 E4,1503 RPQV EQUALS NORMGAM +1
005138,001224: E4,1566 E4,1511 ORIGEX EQUALS RPQV +6 # I(1)
005139,001225: E4,1566 E4,1511 KEPRTN EQUALS ORIGEX # I(1)
005140,001226: E4,1566 E4,1512 RPSV EQUALS ORIGEX +1 # I(6)
005141,001227: E4,1566 E4,1520 XKEPNEW EQUALS RPSV +6 # I(2)
005142,001228: E4,1566 E4,1522 VECTAB EQUALS XKEPNEW +2 # I(36D)
005143,001229:
005144,001230:
005145,001231: # R04 - R77 FAIL COUNTER (1D)
005146,001232:
005147,001233: E4,1566 RFAILCNT ERASE # B(1)
005148,001234:
005149,001235:
005150,001236: # SERVICER STORAGE (USED BY ALL POWERED FLIGHT PROGS.) (18D)
005151,001237:
005152,001238: E4,1567 E4,1536 XNBPIP EQUALS VECTAB +12D # I(6)
005153,001239: E4,1567 E4,1544 YNBPIP EQUALS XNBPIP +6 # I(6)
005154,001240: E4,1567 E4,1552 ZNBPIP EQUALS YNBPIP +6 # I(6)
005155,001241:
005156,001242:
005157,001243: # SOME VERB 82 STORAGE (4D)
005158,001244:
005159,001245: E4,1567 E4,1512 HAPOX EQUALS RPSV # I(2)
005160,001246: E4,1567 E4,1514 HPERX EQUALS HAPOX +2 # I(2)
005161,001247:
005162,001248: # V82 STORAGE (6D)
005163,001249:
005164,001250: E4,1567 E4,1560 VONE' EQUALS VECTAB +30D # I(6)TMP NORMAL VELOCITY VONE /SQRT. MU
005165,001251:
005166,001252:
005167,001253: # R31 (V83) STORAGE. -SHARES WITH INTEGRATION STORAGE- (26D)
005168,001254:
005169,001255: E4,1567 E4,1503 BASETHV EQUALS RPQV # I(6) BASE VEL VECTOR THIS VEH
005170,001256:
005171,001257:
005172,001258: E4,1567 E4,1512 BASETIME EQUALS RPSV # I(2) TIME ASSOC WITH BASE VECTORS
005173,001259: E4,1567 E4,1571 BASEOTV EQUALS YLEM # I(6) BASE VELOC VECTOR OTHER VEH
005174,001260:
005175,001261:
005176,001262: E4,1567 E4,1530 BASEOTP EQUALS VECTAB +6 # I(6) BASE POS VECTOR OTHER VEH
005177,001263:
005178,001264: E4,1567 E4,1560 BASETHP EQUALS VECTAB +30D # I(6) BASE POS VECTOR THIS VEH
005179,001265:
|
|
Page 120 |
005181,001267: # KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (2D)
005182,001268: # CONICS)
005183,001269:
005184,001270: E4,1567 EPSILONT ERASE +1 # I(2)
005185,001271:
005186,001272:
005187,001273: # R36 STORAGE (N90) (6D)
005188,001274: E4,1571 YLEM ERASE +5 # I(2)
005189,001275: E4,1577 E4,1573 YDOTLEM EQUALS YLEM +2 # I(2)
005190,001276: E4,1577 E4,1575 PHILEM EQUALS YDOTLEM +2 # I(2)
005191,001277:
005192,001278:
005193,001279: # VERB 83 STORAGE. (18D)
005194,001280:
005195,001281: E4,1577 RONE ERASE +17D # I(6)
005196,001282: E4,1621 E4,1605 VONE EQUALS RONE +6 # I(6)TMP VECTOR STORAGE. (SCRATCH)
005197,001283:
005198,001284:
005199,001285: E4,1621 E4,1613 RANGE EQUALS VONE +6 # I(2)
005200,001286: E4,1621 E4,1615 RRATE EQUALS RANGE +2 # I(2)
005201,001287: E4,1621 E4,1617 RTHETA EQUALS RRATE +2 # I(2)
005202,001288:
005203,001289:
005204,001290: # VERB 67 STORAGE (6D)
005205,001291:
005206,001292: E4,1621 E4,1571 WWPOS EQUALS YLEM # B(2) NOUN 99 (V67)
005207,001293: E4,1621 E4,1573 WWVEL EQUALS WWPOS +2 # B(2) NOUN 99 (V67)
005208,001294: E4,1621 E4,1575 WWBIAS EQUALS WWVEL +2 # B(2) NOUN 99 (V67)
005209,001295:
005210,001296:
005211,001297:
005212,001298:
005213,001299: # V82 STORAGE. (CANNOT OVERLAY RONE OR VONE) (5D)
005214,001300:
005215,001301: E4,1621 E4,1530 V82FLAGS EQUALS VECTAB +6 # (1) FOR V82 BITS.
005216,001302: E4,1621 E4,1531 TFF EQUALS V82FLAGS +1 # I(2)
005217,001303: E4,1621 E4,1533 -TPER EQUALS TFF +2 # I(2)
005218,001304:
005219,001305: # MORE V82 STORAGE. (CANNOT OVERLAY RONE OR VONE) (6D)
005220,001306:
005221,001307: E4,1621 E4,1571 HPERMIN EQUALS YLEM # I(2) SET TO 300K FT OR 35K FT SR30.1
005222,001308: E4,1621 E4,1573 RPADTEM EQUALS HPERMIN +2 # I(2) PAD OR LANDING RADIUS FOR SR30.1
005223,001309: E4,1621 E4,1575 TSTART82 EQUALS RPADTEM +2 # I(2) TEMP TIME STORAGE FOR V82.
005224,001310:
005225,001311:
005226,001312: # ALIGNMENT PLANETARY-INERTIAL TRANSFORMATION STORAGE. (18D)
005227,001313:
|
|
Page 121 |
005229,001315: # UNSHARED WHILE LM ON LUNAR SURFACE.
005230,001316:
005231,001317: E4,1621 GSAV ERASE +17D # I(6)
005232,001318: E4,1643 E4,1627 YNBSAV EQUALS GSAV +6 # I(6)
005233,001319: E4,1643 E4,1635 ZNBSAV EQUALS YNBSAV +6 # I(6)
005234,001320:
005235,001321:
005236,001322: # KALCMANU STORAGE. CAN OVERLAY GSAV. (18D)
005237,001323:
005238,001324: E4,1643 E4,1621 MFS EQUALS GSAV # I(18)
005239,001325: E4,1643 E4,1621 MFI EQUALS MFS # I
005240,001326: E4,1643 E4,1621 KEL EQUALS MFS # I(18)
005241,001327:
005242,001328: # P32-P35, P72-P75 STORAGE. (40D)
005243,001329:
005244,001330: E4,1643 T1TOT2 ERASE +1 # (2) TIME FROM CSI TO CDH
005245,001331: E4,1645 T2TOT3 ERASE +1 # (2)
005246,001332: E4,1647 ELEV ERASE +1 # (2)
005247,001333: E4,1651 UP1 ERASE +5 # (6)
005248,001334: E4,1657 DELVEET1 ERASE +5 # I(6) DV CSI IN REF
005249,001335: E4,1665 DELVEET2 ERASE +5 # I(6) DV CSH IN REF
005250,001336: E4,1673 RACT1 ERASE +5 # (6) POS VEC OF ACTIVE AT CSI TIME
005251,001337: E4,1701 RACT2 ERASE +5 # (6) POS VEC OF ACTIVE AT CDH TIME
005252,001338: E4,1707 RTSR1/MU ERASE +1 # (2) SQ ROOT 1/MU STORAGE
005253,001339: E4,1711 RTMU ERASE +1 # (2) MU STORAGE
005254,001340:
005255,001341:
005256,001342: # (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
005257,001343:
005258,001344: E4,1713 E4,1643 +MGA EQUALS T1TOT2 # (2) S-S + MID GIM ANGL TO DELVEET3
005259,001345:
005260,001346:
005261,001347: E4,1713 E4,1651 UNRM EQUALS UP1 # I(6) S-S
005262,001348:
005263,001349:
005264,001350: E4,1713 E4,1673 DVLOS EQUALS RACT1 # I(6) S-S DELTA VELOCITY,LOS COORD-DISPLA
005265,001351: E4,1713 E4,1701 ULOS EQUALS RACT2 # I(6) S-S UNIT LINE OF SIGHT VECTOR
005266,001352:
005267,001353:
005268,001354: E4,1713 E4,1707 NOMTPI EQUALS RTSR1/MU # (2) S-S NOMINAL TPI TIME FOR RECYCLE
005269,001355:
005270,001356:
005271,001357: # SOME P30 STORAGE. (4D)
005272,001358:
005273,001359: E4,1713 E4,1707 HAPO EQUALS RTSR1/MU # I(2)
005274,001360: E4,1713 E4,1711 HPER EQUALS HAPO +2 # I(2)
005275,001361:
|
|
Page 122 |
005277,001363: # THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
005278,001364:
005279,001365: E4,1713 E4,1400 TRANSM1 EQUALS WRENDPOS # E4,1400
005280,001366: E4,1713 E4,1422 ALFDK EQUALS TRANSM1 +18D
005281,001367:
005282,001368:
005283,001369: # ******* THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE *******
005284,001370:
005285,001371:
005286,001372: # V47(R47)AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83) (14D)
005287,001373:
005288,001374: E4,1713 E4,1571 AGSBUFF EQUALS YLEM # B(14)
005289,001375: E4,1713 E4,1606 AGSBUFFE EQUALS AGSBUFF +13D # ENDMARK
005290,001376:
005291,001377:
005292,001378: # R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83) (12D)
005293,001379:
005294,001380: E4,1713 E4,1577 RPASS36 EQUALS RONE # I(6) S-S
005295,001381: E4,1713 E4,1605 UNP36 EQUALS RPASS36 +6 # I(6) S-S
005296,001382:
005297,001383:
005298,001384: # S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05(V64). (OVERLAYS V83) (10D)
005299,001385:
005300,001386:
005301,001387: E4,1713 E4,1571 ALPHASB EQUALS YLEM # B(2) DSP NOUN 51 PITCH ANGLE
005302,001388: E4,1713 E4,1573 BETASB EQUALS ALPHASB +2 # B(2)DSP NOUN 51. YAW ANGLE.
005303,001389: E4,1713 E4,1575 RLM EQUALS BETASB +2 # I(6)S S/C POSITION VECTOR.
005304,001390:
005305,001391: # **** USED IN S-BAND ANTENNA FOR LM **** (4D)
005306,001392:
005307,001393: E4,1713 E4,1571 PITCHANG EQUALS ALPHASB # I(2) PITCH/ANTENNA GIMBAL ANGLE REQUIRED
005308,001394: E4,1713 E4,1573 YAWANG EQUALS BETASB # I(2) YAW /TO POINT LM STEERABLE ANTENNA
005309,001395: # /TOWARD CENTER OF EARTH
005310,001396: # NOUN 56 DATA - COMPUTED AND DISPLAYED BY VERB 85. (4)
005311,001397:
005312,001398: E4,1713 E4,1571 RR-AZ EQUALS PITCHANG # I(2) ANGLE BETWEEN LOS AND X-Z PLANE.
005313,001399: E4,1713 E4,1573 RR-ELEV EQUALS RR-AZ +2 # I(2) ANGLE BETWEEN LOS AND Y-Z PLANE.
005314,001400:
005315,001401: # R04(V62) RADAR TEST STORAGE. (8D)
005316,001402:
005317,001403:
005318,001404: E4,1713 E4,1571 RSTACK EQUALS YLEM # B(8) BUFFER FOR R04 NOUNS
005319,001405:
005320,001406:
005321,001407:
005322,001408: # INITVEL STORAGE. ALSO USED BY P31,P34,P35,P74,P75,P10,P11,MIDGIM,S40.1 AND S40.9. (18D)
005323,001409:
005324,001410: # (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
005325,001411: E4,1713 RINIT ERASE +5 # I(6) ACTIVE VEHICLE POSITION
005326,001412: E4,1721 VINIT ERASE +5 # I(6) ACTIVE VEHICLE VELOCITY
005327,001413:
|
|
Page 123 |
005329,001415: E4,1727 VIPRIME ERASE +5 # I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
005330,001416:
005331,001417: # BALLANGS-AUTOMATIC MANEUVER -- R60,(N18 (3D)
005332,001418:
005333,001419: E4,1735 FDAIX ERASE # I(1)
005334,001420: E4,1736 FDAIY ERASE # I(1)
005335,001421: E4,1737 FDAIZ ERASE # I(1)
005336,001422:
005337,001423:
005338,001424: # P34-P35 STORAGE. DOWNLINKED. (2D)
005339,001425:
005340,001426: E4,1740 DELVTPF ERASE +1 # I(2) DELTA V FOR TPF
005341,001427:
005342,001428:
005343,001429: # LPS20.1 STORAGE. CALLED BY R65. (12D)
005344,001430:
005345,001431: E4,1742 LMPOS ERASE +5 # I(6)TEMP. STORAGE FOR LM POS. VECTOR.
005346,001432: E4,1750 LMVEL ERASE +5 # I(6)TEMP. STORAGE FOR LM VEL. VECTOR.
005347,001433:
005348,001434: # INITVEL STORAGE. ALSO USED BY P31,34,35,74,75,S40.1 AND DOWNLINKED. (6D)
005349,001435:
005350,001436: E4,1756 DELVEET3 ERASE +5 # I(6) DELTA V IN INERTIAL COORDINATES.
005351,001437:
005352,001438:
005353,001439: # SOME R04(V63)-R77 STORAGE. (5D)
005354,001440:
005355,001441: E4,1764 RTSTDEX ERASE # B(1)
005356,001442: E4,1765 RTSTMAX ERASE # B(1)
005357,001443: E4,1766 RTSTBASE ERASE # B(1)
005358,001444: E4,1767 RTSTLOC ERASE # B(1)
005359,001445: E4,1770 RSAMPDT ERASE # B(1)
005360,001446:
005361,001447:
005362,001448: # SECOND DPS GUIDANCE (LUNAR LANDING) (OVERLAYS KALCMANU & P57) (6D)
005363,001449:
005364,001450: E4,1771 E4,1621 ANGTERM = GSAV # I(6) GUIDANCE
005365,001451:
005366,001452:
005367,001453:
005368,001454:
005369,001455: # ASCENT GUIDANCE FOR LUNAR LANDING (54D)
005370,001456:
005371,001457: E4,1771 E4,1653 AT EQUALS UP1 +2 # I(2)TMP ENGINE DATA -- THRUST ACC*2 (9)
005372,001458: E4,1771 E4,1655 VE EQUALS AT +2 # I(2)TMP EXHAUST VELOCITY * 2(7)M/CS.
005373,001459: E4,1771 E4,1657 TTO EQUALS VE +2 # I(2)TMP TAILOFF TIME * 2(17)CS.
005374,001460: E4,1771 E4,1661 TBUP EQUALS TTO +2 # I(2)TMP (M/MDOT) * 2(17)CS.
005375,001461: E4,1771 E4,1663 RDOTD EQUALS TBUP +2 # I(2)TMP TARGET VELOCITY COMPONENTS
005376,001462: E4,1771 E4,1665 YDOTD EQUALS RDOTD +2 # I(2)TMP SCALING IS 2(7)M/CS.
005377,001463: E4,1771 E4,1667 ZDOTD EQUALS YDOTD +2 # I(2)TMP
005378,001464:
|
|
Page 124 |
005380,001466: E4,1771 E4,1671 /R/MAG EQUALS ZDOTD +2 # I(2)TMP
005381,001467: E4,1771 E4,1673 LAXIS EQUALS /R/MAG +2 # I(6)TMP
005382,001468:
005383,001469:
005384,001470: E4,1771 E4,1701 YDOT = LAXIS +6 # I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7)
005385,001471: E4,1771 E4,1703 ZDOT EQUALS YDOT +2 # I(2)TMP DOWN RANGE VEL *2(-7).
005386,001472: E4,1771 E4,1705 GEFF EQUALS ZDOT +2 # I(2)TMP EFFECTIVE GRAVITY
005387,001473:
005388,001474: # THESE TWO GROUPS OF ASCENT GUIDANCE ARE SPLIT BY THE ASCENT-DESCENT SERVICER SECTION FOLLOWING THIS SECTION
005389,001475:
005390,001476: E4,1771 E4,1725 Y EQUALS /LAND/ +2 # I(2)TMP OUT-OF-PLANE DIST *2(24)M
005391,001477: E4,1771 E4,1727 DRDOT EQUALS Y +2 # I(2)TMP RDOTD - RDOT
005392,001478: E4,1771 E4,1731 DYDOT EQUALS DRDOT +2 # I(2)TMP YDOTD - YDOT
005393,001479: E4,1771 E4,1733 DZDOT EQUALS DYDOT +2 # I(2)TMP ZDOTD - ZDOT
005394,001480: E4,1771 E4,1735 PCONS EQUALS DZDOT +2 # I(2)TMP CONSTANT IN ATR EQUATION
005395,001481: E4,1771 E4,1737 YCONS EQUALS PCONS +2 # I(2)TMP CONSTANT IN ATY EQUATION
005396,001482: E4,1771 E4,1741 PRATE EQUALS YCONS +2 # I(2)TMP RATE COEFF. IN ATR EQUATION
005397,001483: E4,1771 E4,1743 YRATE EQUALS PRATE +2 # I(2)TMP RATE COEFF. IN ATY EQUATION
005398,001484: E4,1771 E4,1745 ATY EQUALS YRATE +2 # I(2)TMP OUT-OF-PLANE THRUST COMP.*2(9)
005399,001485: E4,1771 E4,1747 ATR EQUALS ATY +2 # I(2)TMP RADIAL THRUST COMP.* 2(9)
005400,001486: E4,1771 E4,1751 ATP EQUALS ATR +2 # I(2)TMP DOWN-RANGE THRUST COMP
005401,001487: E4,1771 E4,1753 YAW EQUALS ATP +2 # I(2)TMP
005402,001488: E4,1771 E4,1755 PITCH EQUALS YAW +2 # I(2)RMP
005403,001489:
005404,001490:
005405,001491: # SERVICER FOR LUNAR ASCENT AND DESCENT (14D)
005406,001492:
005407,001493: E4,1771 E4,1707 G(CSM) EQUALS GEFF +2 # I(6) FOR UPDATE OF COMMAND MODULE STATE
005408,001494: # R(CSM) EQUALS R-OTHER VECTORS BY LEM; ANALOGS OF GDT/2,
005409,001495: # V(CSM) EQUALS V-OTHER R, AND V, RESPECTIVELY OF THE CSM
005410,001496: E4,1771 E4,1715 WM EQUALS G(CSM) +6 # I(6) TMP - LUNAR ROTATION VECTOR (SM)
005411,001497: E4,1771 E4,1723 /LAND/ EQUALS WM +6 # B(2) LUNAR RADIUS AT LANDING SITE
005412,001498:
005413,001499:
005414,001500: # NOTE: R(CSM) AND V(CSM) DEFINED IN E3.
005415,001501: # NOUN 26 ERASABLES (UNSHARED) (3D)
005416,001502:
005417,001503: E4,1771 E4,1771 N26/PRI EQUALS RSAMPDT +1 # B(1) PRIO/DELAY
005418,001504: E4,1771 E4,1772 N26/2CAD EQUALS N26/PRI +1 # B(1) JOB/TASK 2CADR
005419,001505:
|
|
Page 125 |
005421,001507: # EBANK-5 ASSIGNMENTS
005422,001508:
005423,001509: E5,1400 SETLOC 2400
005424,001510:
005425,001511: # W-MATRIX. ESSENTIALLY UNSHARABLE. (162D)
005426,001512:
005427,001513: E5,1400 W ERASE +161D
005428,001514: E5,1642 E5,1642 ENDW EQUALS W +162D
005429,001515:
005430,001516:
005431,001517:
005432,001518: # ******* OVERLAY NUMBER 1 IN EBANK 5 *******
005433,001519:
005434,001520:
005435,001521: # W-MATRIX OVERLAY: PADLOADS -- LANDING, ABORTS (122D)
005436,001522: E5,1642 E5,1400 VELBIAS EQUALS W # I(2) PL BIAS VALUE FOR VELOCITY.
005437,001523: # REASONABILITY TEST, 2(6) M/CS
005438,001524: # PLEASE PRESERVE THE ORDER OF RBRFGX THROUGH TCGIAPPR.
005439,001525: E5,1642 E5,1402 RBRFGX EQUALS VELBIAS +2 # I(2) POSITION TARGETS
005440,001526: E5,1642 E5,1404 RAPFGX EQUALS RBRFGX +2 # I(2)
005441,001527: E5,1642 E5,1406 RBRFGZ EQUALS RAPFGX +2 # I(2)
005442,001528: E5,1642 E5,1410 RAPFGZ EQUALS RBRFGZ +2 # I(2)
005443,001529: E5,1642 E5,1412 VBRFGX EQUALS RAPFGZ +2 # I(2) VELOCITY TARGETS
005444,001530: E5,1642 E5,1414 VAPFGX EQUALS VBRFGX +2 # I(2)
005445,001531: E5,1642 E5,1416 VBRFGZ EQUALS VAPFGX +2 # I(2)
005446,001532: E5,1642 E5,1420 VAPFGZ EQUALS VBRFGZ +2 # I(2)
005447,001533: E5,1642 E5,1422 ABRFGX EQUALS VAPFGZ +2 # I(2) ACCELERATION TARGETS
005448,001534: E5,1642 E5,1424 AAPFGX EQUALS ABRFGX +2 # I(2)
005449,001535: E5,1642 E5,1426 ABRFGZ EQUALS AAPFGX +2 # I(2)
005450,001536: E5,1642 E5,1430 AAPFGZ EQUALS ABRFGZ +2 # I(2)
005451,001537: E5,1642 E5,1432 VBRFG* EQUALS AAPFGZ +2 # I(2) SCALED TARGETS FOR TTF/8CL
005452,001538: E5,1642 E5,1434 VAPFG* EQUALS VBRFG* +2 # I(2)
005453,001539: E5,1642 E5,1436 ABRFG* EQUALS VAPFG* +2 # I(2)
005454,001540: E5,1642 E5,1440 AAPFG* EQUALS ABRFG* +2 # I(2)
005455,001541: E5,1642 E5,1442 JBRFG* EQUALS AAPFG* +2 # I(2)
005456,001542: E5,1642 E5,1444 JAPFG* EQUALS JBRFG* +2 # I(2)
005457,001543: # * SEE PARAMETER TABLE IN LUNAR LANDING GUIDANCE EQUATIONS FOR
005458,001544: # INDIRECT ADDRESSING INTO ABOVE AREA.
005459,001545:
005460,001546: E5,1642 E5,1446 GAINBRAK EQUALS JAPFG* +2 # I(2) GAINS FOR GUIDANCE FRAME ERECTION
005461,001547: E5,1642 E5,1450 GAINAPPR EQUALS GAINBRAK +2 # I(2)
005462,001548: E5,1642 E5,1452 TCGFBRAK EQUALS GAINAPPR +2 # I(2) TIME CRITERIA FOR GUIDANCE FRAME
005463,001549: E5,1642 E5,1453 TCGIBRAK EQUALS TCGFBRAK +1 # I(1)
005464,001550: E5,1642 E5,1454 TCGFAPPR EQUALS TCGIBRAK +1 # I(1)
005465,001551: E5,1642 E5,1455 TCGIAPPR EQUALS TCGFAPPR +1 # I(1)
005466,001552: E5,1642 E5,1456 VIGN EQUALS TCGIAPPR +1 # I(2) DESIRED SPEED FOR PDI
005467,001553: E5,1642 E5,1460 RIGNX EQUALS VIGN +2 # I(2) DESIRED 'ALTITUDE' FOR IGNITION
005468,001554: E5,1642 E5,1462 RIGNZ EQUALS RIGNX +2 # I(2) DESIRED GROUND RANGE FOR IGNITION
005469,001555: E5,1642 E5,1464 KIGNX/B4 EQUALS RIGNZ +2 # I(2)
005470,001556:
|
|
Page 126 |
005472,001558: E5,1642 E5,1466 KIGNY/B8 EQUALS KIGNX/B4 +2 # I(2)
005473,001559: E5,1642 E5,1470 KIGNV/B4 EQUALS KIGNY/B8 +2 # I(2)
005474,001560: E5,1642 E5,1472 LOWCRIT EQUALS KIGNV/B4 +2 # B(1) (HIGHCRIT MUST FOLLOW LOWCRIT)
005475,001561: E5,1642 E5,1473 HIGHCRIT EQUALS LOWCRIT +1 # B(1)
005476,001562: E5,1642 E5,1474 TAUHZ EQUALS HIGHCRIT +1 # P66 HORIZONTAL
005477,001563: E5,1642 E5,1475 QHZ EQUALS TAUHZ +1 # VELOCITY NULLING
005478,001564: E5,1642 E5,1476 AHZLIM EQUALS QHZ +1 # CONSTANTS
005479,001565: E5,1642 E5,1477 2LATE466 EQUALS AHZLIM +1 # I(2) MIN ELAPSED TIME SINCE PIPTIME ERE
005480,001566: # A P66(2 R/D) WILL BE OMITTED
005481,001567: E5,1642 E5,1503 DELQFIX EQUALS 2LATE466 +4 # I(2) LR ALT. DATA REASONABILITY PARAM
005482,001568:
005483,001569: # ** NOTE: 6 ERASABLES HERE IN THIS "LANDING/ABORTS" OVERLAY ARE FREE
005484,001570: # THEY SHARE ONLY WITH W-MATRIX AND SYSTEM TEST ERASABLES **
005485,001571:
005486,001572: E5,1642 E5,1511 LRVMAX EQUALS DELQFIX +6 # B(1) LR VEL WEIGHTING FUNCTIONS
005487,001573: E5,1642 E5,1512 LRVF EQUALS LRVMAX +1 # B(1) LR VEL WEIGHTING FUNCTIONS
005488,001574: E5,1642 E5,1513 LRWVZ EQUALS LRVF +1 # B(1) LR VEL WEIGH ING FUNCTIONS
005489,001575: E5,1642 E5,1514 LRWVY EQUALS LRWVZ +1 # B(1) LR VEL WEIGH ING FUNCTIONS
005490,001576: E5,1642 E5,1515 LRWVX EQUALS LRWVY +1 # B(1) LR VEL WEIGH ING FUNCTIONS
005491,001577: E5,1642 E5,1516 LRWVFZ EQUALS LRWVX +1 # B(1) LR VEL WEIGH ING FUNCTIONS
005492,001578: E5,1642 E5,1517 LRWVFY EQUALS LRWVFZ +1 # B(1) LR VEL WEIG ING FUNC IONS
005493,001579: E5,1642 E5,1520 LRWVFX EQUALS LRWVFY +1 # B(1) LR VEL WEIG ING FUNC IONS
005494,001580: E5,1642 E5,1521 LRWVFF EQUALS LRWVFX +1 # B(1) LR VEL WEIG ING FUNC IONS
005495,001581:
005496,001582: E5,1642 E5,1522 ABSC0 EQUALS LRWVFF +1 # B(1) ABSCISSAE DEFINING TERRAIN MODEL
005497,001583: E5,1642 E5,1523 ABSC1 EQUALS ABSC0 +1 # B(1)
005498,001584: E5,1642 E5,1524 ABSC2 EQUALS ABSC1 +1 # B(1)
005499,001585: E5,1642 E5,1525 ABSC3 EQUALS ABSC2 +1 # B(1)
005500,001586: E5,1642 E5,1526 ABSC4 EQUALS ABSC3 +1 # B(1)
005501,001587: E5,1642 E5,1527 SLOPE0 EQUALS ABSC4 +1 # B(1) SLOPES DEFINING TERRAIN MODEL
005502,001588: E5,1642 E5,1530 SLOPE1 EQUALS SLOPE0 +1 # B(1)
005503,001589: E5,1642 E5,1531 SLOPE2 EQUALS SLOPE1 +1 # B(1)
005504,001590: E5,1642 E5,1532 SLOPE3 EQUALS SLOPE2 +1 # B(1)
005505,001591: E5,1642 E5,1533 SLOPE4 EQUALS SLOPE3 +1 # B(1)
005506,001592:
005507,001593: E5,1642 0130 ABVEL* EQUALS BUF # B(1) LR TEMP
005508,001594: E5,1642 0131 VSELECT* EQUALS BUF +1 # B(1) LR TEMP
005509,001595:
005510,001596: E5,1642 E5,1534 RODSCALE EQUALS SLOPE4 +1 # I(2) CLICK SCALE FACTOR FOR R.O.D.
005511,001597: E5,1642 E5,1535 TAUROD EQUALS RODSCALE +1 # I(2) TIME CONSTANT FOR R.O.D.
005512,001598: E5,1642 E5,1537 LAG/TAU EQUALS TAUROD +2 # I(2) LAG TIME DIVIDED BY TAUROD (P66)
005513,001599: E5,1642 E5,1541 MINFORCE EQUALS LAG/TAU +2 # I(2) MINIMUM FORCE P66 WILL COMMAND.
005514,001600: E5,1642 E5,1543 MAXFORCE EQUALS MINFORCE +2 # I(2) MAXIMUM FORCE P66 WILL COMMAND.
005515,001601: E5,1642 E5,1545 J1PARM EQUALS MAXFORCE +2 # I(2) PARAMETER SET # 1:
005516,001602: E5,1642 E5,1547 K1PARM EQUALS J1PARM +2 # I(2) ABORT ORBIT SEMI-MAJOR AXIS COMP
005517,001603: E5,1642 E5,1551 J2PARM EQUALS K1PARM +2 # I(2) PARAMETER SET # 2:
005518,001604: E5,1642 E5,1553 K2PARM EQUALS J2PARM +2 # I(2) ABORT ORBIT SEMI-MAJOR AXIS COMP
005519,001605: E5,1642 E5,1555 THETCRIT EQUALS K2PARM +2 # I(2) CENTRAL ANGLE SWITCHING CRITERION.
005520,001606: E5,1642 E5,1557 RAMIN EQUALS THETCRIT +2 # I(2) MINIMUM ALLOWABLE APOLUNE.
005521,001607: E5,1642 E5,1561 YLIM EQUALS RAMIN +2 # I(2) MAXIMUM CROSS-RANGE DIST. IN ABORTS
005522,001608:
|
|
Page 127 |
005524,001610: E5,1642 E5,1563 ABTRDOT EQUALS YLIM +2 # I(2) DESIRED RADIAL VEL. FOR ABORTS.
005525,001611: E5,1642 E5,1565 COSTHET1 EQUALS ABTRDOT +2 # I(2) COS OF CONE 1 ANGLE FOR ABORTS
005526,001612: E5,1642 E5,1567 COSTHET2 EQUALS COSTHET1 +2 # I(2) COS OF CONE 2 ANGLE FOR ABORTS.
005527,001613:
005528,001614:
005529,001615: # SOME VARIABLES FOR SECOND DPS GUIDANCE (38D)
005530,001616:
005531,001617: E5,1642 E5,1571 CG EQUALS COSTHET2 +2 # I(18D) GUIDANCE
005532,001618: E5,1642 E5,1613 RANGEDSP EQUALS CG +18D # B(2) DISPLAY
005533,001619: E5,1642 E5,1613 OUTOFPLN EQUALS RANGEDSP # *** OUTOFPLN CAN OVERLAY RANGEDSP ***
005534,001620: E5,1642 E5,1615 VBIAS EQUALS OUTOFPLN +2 # I(6) PIPA BIAS EQUIV VELOCITY VECTOR
005535,001621: E5,1642 E5,1623 RGU EQUALS VBIAS +6 # I(6) UNSHARED POSITION, GUIDANCE COORDS
005536,001622: E5,1642 E5,1631 DLAND EQUALS RGU +6 # B(6) PL LANDING SITE CORRECTION,SM FRAME
005537,001623: E5,1642 E5,1631 DLANDX EQUALS DLAND
005538,001624: E5,1642 E5,1633 DLANDY EQUALS DLAND +2
005539,001625: E5,1642 E5,1635 DLANDZ EQUALS DLAND +4
005540,001626:
005541,001627: # OVERLAYS OF THE BLOCK ABOVE (ASCENT AND DESCENT)
005542,001628:
005543,001629: E5,1642 E5,1571 JPARM EQUALS CG # I(2) JPARM WILL EQUAL J1PARM OR J2PARM
005544,001630: E5,1642 E5,1573 KPARM EQUALS JPARM +2 # I(2) KPARM WILL EQUAL K1PARM OR K2PARM
005545,001631: E5,1642 E5,1575 RP EQUALS KPARM +2 # I(2) PREDICTED BURNOUT RADIUS-M*2(-24)
005546,001632: E5,1642 E5,1577 QAXIS EQUALS RP +2 # I(6) ASCENT CROSSRANGE HALF-UNIT VECTOR
005547,001633: E5,1642 E5,1605 ZAXIS1 EQUALS QAXIS +6 # I(6) ASCENT DOWNRANGE HALF-UNIT VECTOR
005548,001634: E5,1642 0130 L*WCR*T = BUF
005549,001635: E5,1642 0131 H*GHCR*T = BUF +1
005550,001636:
005551,001637:
005552,001638: # Q-SAVE REGISTER FOR ASCENT (1D)
005553,001639:
005554,001640: E5,1642 E5,1637 ASCSAVE EQUALS DLAND +6 # I(1)TMP ASCENT Q-SAVE
005555,001641:
005556,001642:
005557,001643: # ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE. (36D)
005558,001644:
005559,001645: E5,1642 E5,1642 XSM EQUALS ENDW # B(6)
005560,001646: E5,1642 E5,1650 YSM EQUALS XSM +6 # B(6)
005561,001647: E5,1642 E5,1656 ZSM EQUALS YSM +6 # B(6)
005562,001648:
005563,001649: E5,1642 E5,1664 XDC EQUALS ZSM +6 # B(6)
005564,001650: E5,1642 E5,1672 YDC EQUALS XDC +6 # B(6)
005565,001651: E5,1642 E5,1700 ZDC EQUALS YDC +6 # B(6)
005566,001652:
005567,001653: E5,1642 E5,1664 XNB = XDC
005568,001654: E5,1642 E5,1672 YNB = YDC
005569,001655: E5,1642 E5,1700 ZNB = ZDC
005570,001656:
005571,001657: # MORE OVERLAYS TO ALIGNMENT/SYSTEST (THESE ARE P52) (6D)
005572,001658:
|
|
Page 128 |
005574,001660:
005575,001661: E5,1642 E5,1706 LANDLAT EQUALS STARAD # (2) LATITUDE, LONGITUDE
005576,001662: E5,1642 E5,1710 LANDLONG EQUALS LANDLAT +2 # (2) AND ALTITUDE
005577,001663: E5,1642 E5,1712 LANDALT EQUALS LANDLONG +2 # (2) OF LANDING SITE
005578,001664:
005579,001665:
005580,001666: # ALIGNMENT/SYSTEST COMMON STORAGE. (31D)
005581,001667:
005582,001668: E5,1642 E5,1706 STARAD EQUALS ZDC +6 # I(18D)TMP
005583,001669: E5,1642 E5,1730 STAR EQUALS STARAD +18D # I(6)
005584,001670: E5,1642 E5,1736 GCTR EQUALS STAR +6 # B(1)
005585,001671: E5,1642 E5,1737 OGC EQUALS GCTR +1 # I(2)
005586,001672: E5,1642 E5,1741 IGC EQUALS OGC +2 # I(2)
005587,001673: E5,1642 E5,1743 MGC EQUALS IGC +2 # I(2)
005588,001674:
005589,001675: # P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE) (12D)
005590,001676:
005591,001677: E5,1642 E5,1706 GACC = STARAD # (6) SS
005592,001678: E5,1642 E5,1714 GOUT = STARAD +6 # (6) SS
005593,001679:
005594,001680:
005595,001681: # OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE (24D)
005596,001682:
005597,001683: E5,1642 E5,1706 VEARTH EQUALS STARAD # (6)TMP
005598,001684: E5,1642 E5,1714 VSUN EQUALS VEARTH +6 # (6)TMP
005599,001685: E5,1642 E5,1722 VMOON EQUALS VSUN +6 # (6)TMP
005600,001686: E5,1642 E5,1730 SAX EQUALS VMOON +6 # (6)TMP
005601,001687:
005602,001688:
005603,001689: # P50'S,R50'S Q STORES. (2D)
005604,001690:
005605,001691: E5,1642 E5,1745 QMIN EQUALS MGC +2 # B(1)TMP
005606,001692: E5,1642 E5,1746 QMAJ EQUALS QMIN +1 # B(1)TMP
005607,001693:
005608,001694:
005609,001695: # **** USED IN P50S **** (SCATTERED OVERLAYS) (18D)
005610,001696: E5,1642 E5,1706 CULTRIX EQUALS VEARTH # VEARTH, VSUN, VMOON
005611,001697:
005612,001698:
005613,001699: # ALIGNMENT STORAGE. (23D)
005614,001700:
005615,001701: E5,1642 E5,1747 OGCT EQUALS QMAJ +1 # I(6)
005616,001702: E5,1642 E5,1755 BESTI EQUALS OGCT +6 # I(1)
005617,001703: E5,1642 E5,1756 BESTJ EQUALS BESTI +1
005618,001704: E5,1642 E5,1757 STARIND EQUALS BESTJ +1
005619,001705: # RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES.
005620,001706: E5,1642 E5,1760 STARSAV1 EQUALS STARIND +1 # I(6)
005621,001707: E5,1642 E5,1766 STARSAV2 EQUALS STARSAV1 +6 # I(6)
005622,001708: E5,1642 E5,1774 TALIGN EQUALS STARSAV2 +6 # B(2) TIME OF IMU ALIGNMENT (DOWNLINKED)
005623,001709:
|
|
Page 129 |
005625,001711: # P32-35 + SERVICER (2D)
005626,001712:
005627,001713: E5,1642 E5,1776 RTX1 EQUALS TALIGN +2 # I(1) X1 -2 EARTH, -10 MOON
005628,001714: E5,1642 E5,1777 RTX2 EQUALS RTX1 +1 # I(1) X2 0 EARTH, 2 MOON
005629,001715:
005630,001716: E5,1642 ZPRIME = 22D
005631,001717: E5,1642 COSTH = 16D
005632,001718: E5,1642 SINTH = 18D
005633,001719: E5,1642 THETA = 20D
005634,001720:
|
|
Page 130 |
005636,001722: # ******* OVERLAY NUMBER 2 IN EBANK 5 *******
005637,001723:
005638,001724: # CONICS ROUTINE STORAGE. (85D)
005639,001725:
005640,001726: E5,1642 E5,1642 DELX EQUALS ENDW # I(2)TMP
005641,001727: E5,1642 E5,1644 DELT EQUALS DELX +2 # I(2)TMP
005642,001728: E5,1642 E5,1646 URRECT EQUALS DELT +2 # I(6)TMP
005643,001729: E5,1642 RCNORM EQUALS 34D # I(2) TMP
005644,001730: # NOTE: RCNORM (ABOVE) IS DEFINED IN VAC AREA
005645,001731:
005646,001732: E5,1642 E5,1654 R1VEC EQUALS URRECT +6 # I(6) TMP
005647,001733: E5,1642 E5,1662 R2VEC EQUALS R1VEC +6 # I(6)TMP
005648,001734: E5,1642 E5,1670 TDESIRED EQUALS R2VEC +6 # I(2)TMP
005649,001735: E5,1642 E5,1672 GEOMSGN EQUALS TDESIRED +2 # I(1)TMP
005650,001736: E5,1642 E5,1673 UN EQUALS GEOMSGN +1 # I(6)TMP
005651,001737: E5,1642 E5,1701 VTARGTAG EQUALS UN +6 # I(1)TMP
005652,001738: E5,1642 E5,1702 VTARGET EQUALS VTARGTAG +1 # I(6)TMP
005653,001739: E5,1642 E5,1710 RTNLAMB EQUALS VTARGET +6 # I(1)TMP
005654,001740: E5,1642 E5,1711 U2 EQUALS RTNLAMB +1 # I(6)TMP
005655,001741: E5,1642 E5,1717 MAGVEC2 EQUALS U2 +6 # I(2)TMP
005656,001742: E5,1642 E5,1721 UR1 EQUALS MAGVEC2 +2 # I(6)TMP
005657,001743: E5,1642 E5,1727 SNTH EQUALS UR1 +6 # I(2)TMP
005658,001744: E5,1642 E5,1731 CSTH EQUALS SNTH +2 # I(2)TMP
005659,001745: E5,1642 E5,1733 1-CSTH EQUALS CSTH +2 # I(2)TMP
005660,001746: E5,1642 E5,1735 CSTH-RHO EQUALS 1-CSTH +2 # I(2)TMP
005661,001747: E5,1642 E5,1737 P EQUALS CSTH-RHO +2 # I(2)TMP
005662,001748: E5,1642 E5,1741 R1A EQUALS P +2 # I(2)TMP
005663,001749: E5,1642 E5,1654 RVEC EQUALS R1VEC # I(6)TMP
005664,001750: E5,1642 E5,1743 VVEC EQUALS R1A +2 # I(6)TMP
005665,001751: E5,1642 E5,1710 RTNTT EQUALS RTNLAMB # I(1)TMP
005666,001752: E5,1642 E5,1751 ECC EQUALS VVEC +6 # I(2)TMP
005667,001753: E5,1642 E5,1710 RTNTR EQUALS RTNLAMB # I(1)TMP
005668,001754: E5,1642 E5,1710 RTNAPSE EQUALS RTNLAMB # I(1)TMP
005669,001755: E5,1642 E5,1717 R2 EQUALS MAGVEC2 # I(2)TMP
005670,001756: E5,1642 E5,1753 RTNPRM EQUALS ECC +2 # I(1)TMP
005671,001757: E5,1642 E5,1754 SGNRDOT EQUALS RTNPRM +1 # I(1)TMP
005672,001758: E5,1642 E5,1755 RDESIRED EQUALS SGNRDOT +1 # I(2)TMP
005673,001759: E5,1642 E5,1757 DELDEP EQUALS RDESIRED +2 # I(2)TMP
005674,001760: E5,1642 E5,1761 DEPREV EQUALS DELDEP +2 # I(2)TMP
005675,001761: E5,1642 E5,1757 TERRLAMB EQUALS DELDEP # I(2)TMP
005676,001762: E5,1642 E5,1761 TPREV EQUALS DEPREV # I(2)TMP
005677,001763: E5,1642 E5,1763 EPSILONL EQUALS DEPREV +2 # I(2)TMP
005678,001764: E5,1642 E5,1765 COGA EQUALS EPSILONL +2 # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE.
005679,001765: E5,1642 E5,1765 INDEP EQUALS COGA # USED BY SUBROUTINE'ITERATOR'.
005680,001766:
|
|
Page 131 |
005682,001768: # ******* OVERLAY NUMBER 3 IN EBANK 5 *******
005683,001769:
005684,001770:
005685,001771: # INCORP STORAGE. (18D)
005686,001772:
005687,001773: E5,1642 E5,1642 ZI EQUALS ENDW # I(18)TMP
005688,001774:
005689,001775: # INCORP/L SR22.3 STORAGE. (21D)
005690,001776:
005691,001777: E5,1642 E5,1664 DELTAX EQUALS ZI +18D # I(18)
005692,001778: E5,1642 E5,1706 VARIANCE EQUALS DELTAX +18D # I(3)
005693,001779:
005694,001780: # MEASUREMENT INCORPORATION -R22- STORAGE. (49D)
005695,001781:
005696,001782: E5,1642 E5,1711 GRP2SVQ EQUALS VARIANCE +3 # I(1)TMP QSAVE FOR RESTARTS
005697,001783: E5,1642 E5,1712 OMEGAM1 EQUALS GRP2SVQ +1 # I(6)
005698,001784: E5,1642 E5,1720 OMEGAM2 EQUALS OMEGAM1 +6 # I(6)
005699,001785: E5,1642 E5,1726 OMEGAM3 EQUALS OMEGAM2 +6 # I(6)
005700,001786: E5,1642 E5,1734 HOLDW EQUALS OMEGAM3 +6 # I(18)
005701,001787:
005702,001788: E5,1642 E5,1664 TRIPA EQUALS DELTAX # I(3)TMP
005703,001789: E5,1642 E5,1667 TEMPVAR EQUALS TRIPA +3 # I(3)TMP
005704,001790:
005705,001791:
005706,001792:
005707,001793: # INCORPORATION/INTEGRATION Q STORAGE. (1D)
005708,001794:
005709,001795: E5,1642 E5,1767 EGRESS EQUALS COGA +2 # I(1)
005710,001796:
|
|
Page 132 |
005712,001798: # SYSTEM TEST ERASABLES. CAN OVERLAY W MATRIX. (127D)
005713,001799:
005714,001800: # ******* OVERLAY NUMBER 0 IN EBANK 5 *******
005715,001801:
005716,001802: E5,1642 E5,1400 AZIMUTH EQUALS W # 2
005717,001803: E5,1642 E5,1402 LATITUDE EQUALS AZIMUTH +2 # 2
005718,001804: E5,1642 E5,1404 ERVECTOR EQUALS LATITUDE +2 # 6
005719,001805: E5,1642 E5,1412 LENGTHOT EQUALS ERVECTOR +6 # 1
005720,001806: E5,1642 E5,1413 LOSVEC EQUALS LENGTHOT +1 # 6
005721,001807: E5,1642 E5,1414 NDXCTR EQUALS LOSVEC +1 # 1
005722,001808: E5,1642 E5,1415 PIPINDEX EQUALS NDXCTR +1 # 1
005723,001809: E5,1642 E5,1416 POSITON EQUALS PIPINDEX +1 # 1
005724,001810: E5,1642 E5,1417 QPLACE EQUALS POSITON +1 # 1
005725,001811: E5,1642 E5,1420 QPLACES EQUALS QPLACE +1 # 1
005726,001812: E5,1642 E5,1421 SOUTHDR EQUALS QPLACES +1 # 7
005727,001813: E5,1642 E5,1430 TEMPTIME EQUALS SOUTHDR +7 # 2
005728,001814: E5,1642 E5,1432 TMARK EQUALS TEMPTIME +2 # 2
005729,001815: E5,1642 E5,1434 GENPL EQUALS TMARK +2
005730,001816: E5,1642 E5,1440 TEMPADD = GENPL +4
005731,001817: E5,1642 E5,1441 TEMP = GENPL +5
005732,001818: E5,1642 E5,1442 NOBITS = GENPL +6
005733,001819: E5,1642 E5,1443 CHAN = GENPL +7
005734,001820:
005735,001821: E5,1642 E5,1444 LOS1 = GENPL +8D
005736,001822: E5,1642 E5,1452 LOS2 = GENPL +14D
005737,001823:
005738,001824: E5,1642 E5,1472 DATAPL EQUALS GENPL +30D
005739,001825: E5,1642 E5,1537 RESULTCT EQUALS GENPL +67D
005740,001826: E5,1642 E5,1434 AINLA = GENPL # 110 DE OR 156 OCT LOCATIONS
005741,001827:
005742,001828: E5,1642 E5,1434 WANGO EQUALS AINLA # VERT E ATE
005743,001829: E5,1642 E5,1436 WANGI EQUALS AINLA +2D # HORIZO TAL ERATE
005744,001830: E5,1642 E5,1440 WANGT EQUALS AINLA +4D # T
005745,001831: E5,1642 E5,1440 TORQNDX = WANGT
005746,001832: E5,1642 E5,1442 DRIFTT EQUALS AINLA +6D
005747,001833: E5,1642 E5,1444 ALX1S EQUALS AINLA +8D
005748,001834: E5,1642 E5,1445 CMPX1 EQUALS AINLA +9D # IND
005749,001835: E5,1642 E5,1446 ALK EQUALS AINLA +10D # GAINS
005750,001836: E5,1642 E5,1462 VLAUNS EQUALS AINLA +22D
005751,001837: E5,1642 E5,1464 WPLATO EQUALS AINLA +24D
005752,001838: E5,1642 E5,1470 INTY EQUALS AINLA +28D # SOUTH IP INTE
005753,001839: E5,1642 E5,1472 ANGZ EQUALS AINLA +30D # EAST A IS
005754,001840: E5,1642 E5,1474 INTZ EQUALS AINLA +32D # EAST P P I
005755,001841: E5,1642 E5,1476 ANGY EQUALS AINLA +34D # SOUTH
005756,001842: E5,1642 E5,1500 ANGX EQUALS AINLA +36D # VE
005757,001843: E5,1642 E5,1502 DRIFTO EQUALS AINLA +38D # VERT
005758,001844: E5,1642 E5,1504 DRIFTI EQUALS AINLA +40D # SOU
005759,001845: E5,1642 E5,1510 VLAUN EQUALS AINLA +44D
005760,001846: E5,1642 E5,1512 ACCWD EQUALS AINLA +46D
005761,001847:
|
|
Page 133 |
005763,001849: E5,1642 E5,1520 POSNV EQUALS AINLA +52D
005764,001850: E5,1642 E5,1522 DPIPAY EQUALS AINLA +54D # SOUTH
005765,001851: E5,1642 E5,1526 DPIPAZ EQUALS AINLA +58D # NORTH IP INCREMENT
005766,001852: E5,1642 E5,1530 ALTIM EQUALS AINLA +60D
005767,001853: E5,1642 E5,1531 ALTIMS EQUALS AINLA +61D # INDEX
005768,001854: E5,1642 E5,1532 ALDK EQUALS AINLA +62D # TIME ONSTAN
005769,001855: E5,1642 E5,1550 DELM EQUALS AINLA +76D
005770,001856: E5,1642 E5,1560 WPLATI EQUALS AINLA +84D
005771,001857: E5,1642 E5,1562 GEOCOMPS EQUALS AINLA +86D
005772,001858: E5,1642 E5,1563 ERCOMP EQUALS AINLA +87D
005773,001859: E5,1642 E5,1571 ZERONDX EQUALS AINLA +93D
005774,001860:
005775,001861: E5,1642 E5,1452 THETAN = ALK +4
005776,001862: E5,1642 E5,1460 FILDELV EQUALS THETAN +6 # AGS ALIGNMENT STORAGE
005777,001863: E5,1642 E5,1462 INTVEC EQUALS FILDELV +2
005778,001864: E5,1642 E5,1572 1SECXT = AINLA +94D
005779,001865: E5,1642 E5,1573 ASECXT = AINLA +95D
005780,001866: E5,1642 E5,1574 PERFDLAY EQUALS AINLA +96D # B(2) DELAY TIME BEF. START DRIFT MEASURE
005781,001867: E5,1642 E5,1576 OVFLOWCK EQUALS AINLA +98D # (1) SET MEANS OVERFLOW IN IMU PERF TEST
005782,001868: # AND CAUSES TERMINATION
005783,001869:
005784,001870:
005785,001871: E5,1642 END-E5 EQUALS 2777 # END OF EBANK 5
005786,001872:
|
|
Page 134 |
005788,001874: # EBANK-6 ASSIGNMENTS.
005789,001875:
005790,001876: E6,1400 SETLOC 3000
005791,001877:
005792,001878: # DAP PAD-LOADED DATA. (10D)
005793,001879:
005794,001880: # ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP
005795,001881:
005796,001882: E6,1400 HIASCENT ERASE # (1) MASS AFTER STAGING, SCALE AT B16 KG.
005797,001883: E6,1401 ROLLTIME ERASE # (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
005798,001884: E6,1402 PITTIME ERASE # (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
005799,001885: E6,1403 DKTRAP ERASE # (1) DAP STATE (POSSIBLE 77001
005800,001886: E6,1404 DKOMEGAN ERASE # (1) ESTIMATOR PARA- (VALUES 00012
005801,001887: E6,1405 DKKAOSN ERASE # (1) METERS FOR THE 00074
005802,001888: E6,1406 LMTRAP ERASE # (1) DOCKED AND 77001
005803,001889: E6,1407 LMOMEGAN ERASE # (1) LEM-ALONE CASES 00000
005804,001890: E6,1410 LMKAOSN ERASE # (1) RESPECTIVELY 00074
005805,001891: E6,1411 DKDB ERASE # (1) WIDTH OF DEADBAND FOR DOCKED RCS
005806,001892: # AUTOPILOT (DB=1.4DEG IN FRESH START)
005807,001893: # DEADBAND = PI/DKDB RAD.
005808,001894:
005809,001895: # PADLOADS FOR INITIALIZATION OF DAP BIAS ACCELERATION (AT P12 IGNITION) (2D)
005810,001896:
005811,001897: E6,1412 IGNAOSQ ERASE # B(1)PL
005812,001898: E6,1413 IGNAOSR ERASE # B(1)PL
005813,001899:
005814,001900:
005815,001901: # AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES: (5D)
005816,001902:
005817,001903: E6,1414 M11 ERASE # SCALED AT 1
005818,001904: E6,1415 M21 ERASE # SCALED AT 1
005819,001905: E6,1416 M31 ERASE
005820,001906: E6,1417 M22 ERASE # SCALED AT 1.
005821,001907: E6,1420 M32 ERASE # SCALED AT 1.
005822,001908:
005823,001909: # ANGLE MEASUREMENTS. (31D)
005824,001910:
005825,001911: E6,1421 OMEGAP ERASE +4 # BODY-AXIS ROT. RATES SCALED AT PI/4 AND
005826,001912: E6,1426 E6,1422 OMEGAQ EQUALS OMEGAP +1 # BODY-AXIS ACCELERATIONS SCALED AT PI/8
005827,001913: E6,1426 E6,1423 OMEGAR EQUALS OMEGAP +2
005828,001914: # RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
005829,001915: E6,1426 E6,1424 ALPHAQ EQUALS OMEGAP +3
005830,001916: E6,1426 E6,1425 ALPHAR EQUALS OMEGAP +4
005831,001917: E6,1426 OMEGAU ERASE +1
005832,001918: E6,1430 E6,1427 OMEGAV = OMEGAU +1
005833,001919:
005834,001920: E6,1430 TRAPEDP ERASE +5
005835,001921: E6,1436 E6,1431 TRAPEDQ = TRAPEDP +1
005836,001922: E6,1436 E6,1432 TRAPEDR = TRAPEDP +2
005837,001923: E6,1436 E6,1433 NPTRAPS = TRAPEDP +3
005838,001924:
|
|
Page 135 |
005840,001926: E6,1436 E6,1434 NQTRAPS = TRAPEDP +4
005841,001927: E6,1436 E6,1435 NRTRAPS = TRAPEDP +5
005842,001928: E6,1436 E6,1427 EDOTP = EDOT
005843,001929: E6,1436 EDOTQ ERASE +1
005844,001930: E6,1440 E6,1437 EDOTR = EDOTQ +1 # MANY SHARING NAMES
005845,001931: E6,1440 E6,1436 QRATEDIF EQUALS EDOTQ # ALTERNATIVE NAMES:
005846,001932: E6,1440 E6,1437 RRATEDIF EQUALS EDOTR # DELETE WHEN NO. OF REFERENCES = 0
005847,001933:
005848,001934: E6,1440 E6,1426 URATEDIF EQUALS OMEGAU
005849,001935: E6,1440 E6,1427 VRATEDIF EQUALS OMEGAV
005850,001936: E6,1440 OLDXFORP ERASE +2 # STORED CDU READINGS FOR STATE
005851,001937: E6,1443 E6,1441 OLDYFORP EQUALS OLDXFORP +1 # DERIVATIONS: SCALED AT PI RADIANS (2'S)
005852,001938: E6,1443 E6,1442 OLDZFORQ EQUALS OLDXFORP +2
005853,001939: # RATE-COMMAND AND MINIMUM IMPULSE MODES
005854,001940:
005855,001941: E6,1443 CH31TEMP ERASE
005856,001942: E6,1444 STIKSENS ERASE
005857,001943: E6,1445 TCP ERASE
005858,001944: E6,1446 DXERROR ERASE +5
005859,001945: E6,1454 E6,1450 DYERROR EQUALS DXERROR +2
005860,001946: E6,1454 E6,1452 DZERROR EQUALS DXERROR +4
005861,001947: E6,1454 PLAST ERASE
005862,001948: E6,1455 QLAST ERASE
005863,001949: E6,1456 RLAST ERASE
005864,001950: E6,1457 TCQR ERASE
005865,001951:
005866,001952: # OTHER VARIABLES. (5D)
005867,001953:
005868,001954: E6,1460 OLDPMIN ERASE # THESE THREE USED IN MIN IMPULSE MODE.
005869,001955: E6,1461 OLDQRMIN ERASE
005870,001956: E6,1462 E6,1736 TEMP31 EQUALS DAPTEMP1
005871,001957:
005872,001958: E6,1462 SAVEHAND ERASE +1
005873,001959: E6,1464 PERROR ERASE
005874,001960: E6,1465 E6,1450 QERROR EQUALS DYERROR
005875,001961: E6,1465 E6,1452 RERROR EQUALS DZERROR
005876,001962:
005877,001963: # JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW (10D)
005878,001964: # (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
005879,001965:
005880,001966: E6,1465 NXT6ADR ERASE
005881,001967: E6,1466 T6NEXT ERASE +1
005882,001968: E6,1470 T6FURTHA ERASE +1
005883,001969: E6,1472 NEXTP ERASE +2
005884,001970: E6,1475 E6,1473 NEXTU = NEXTP +1
005885,001971: E6,1475 E6,1474 NEXTV = NEXTP +2
005886,001972: E6,1475 -2JETLIM ERASE +1 # RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
005887,001973: E6,1477 E6,1476 -RATEDB EQUALS -2JETLIM +1 # AND RATE DEADBAND FOR ASCENT OR DESCENT
005888,001974:
005889,001975: E6,1477 E6,1476 TARGETDB EQUALS -RATEDB # MAN. CONTROL TARGET DB COMPLEMENT.
005890,001976:
005891,001977: # *** Q,R AXIS ERASABLES *** (3)
005892,001978:
|
|
Page 136 |
005894,001980: E6,1477 4733 PBIT EQUALS BIT10
005895,001981: E6,1477 4732 QRBIT EQUALS BIT11
005896,001982: E6,1477 E6,1750 UERROR EQUALS DAPTREG5 # U,V-AXES ATT ERROR FOR RCS CONTROL LAWS
005897,001983: E6,1477 E6,1751 VERROR = UERROR +1
005898,001984: E6,1477 RETJADR ERASE
005899,001985: E6,1500 E6,1741 TEMPNUM EQUALS DAPTEMP4
005900,001986: E6,1500 E6,1742 NUMBERT EQUALS DAPTEMP5
005901,001987: E6,1500 E6,1743 ROTINDEX EQUALS DAPTEMP6
005902,001988: E6,1500 E6,1736 ROTEMP1 EQUALS DAPTEMP1
005903,001989: E6,1500 E6,1737 ROTEMP2 EQUALS DAPTEMP2
005904,001990: E6,1500 E6,1740 POLYTEMP EQUALS DAPTEMP3
005905,001991: E6,1500 SENSETYP ERASE
005906,001992: E6,1501 E6,1736 ABSTJ EQUALS DAPTEMP1 # ABS VALUE OF JET-FIRING TIME
005907,001993: E6,1501 E6,1736 ABSEDOTP EQUALS DAPTEMP1
005908,001994:
|
|
Page 137 |
005910,001996: # TRIM GIMBAL CONTROL LAW ERASABLES: (11D)
005911,001997:
005912,001998: E6,1501 E6,1736 GTSTEMPS EQUALS DAPTEMP1 # GTS IS PART OF THE JASK.
005913,001999: E6,1501 E6,1740 SHFTFLAG EQUALS GTSTEMPS +2 # COUNT BITS FOR GTSQRT SHIFTING.
005914,002000: E6,1501 E6,1743 ININDEX EQUALS GTSTEMPS +5 # INDEX FOR SHIFT LOOP IN GTSQRT.
005915,002001:
005916,002002: E6,1501 E6,1505 SAVESR EQUALS AXISCTR # CANNOT BE A DAPTEMP - GTS USES THEM ALL.
005917,002003:
005918,002004: E6,1501 E6,1745 SCRATCH EQUALS GTSTEMPS +7 # ROOTCYCL ERASABLE
005919,002005: E6,1501 E6,1746 HALFARG EQUALS GTSTEMPS +8D # ROOTCYCL ERASABLE.
005920,002006:
005921,002007: E6,1501 E6,1736 K2THETA EQUALS GTSTEMPS # D.P., K*ERROR, NEGUSUM
005922,002008: E6,1501 E6,1740 KCENTRAL EQUALS GTSTEMPS +2 # S.P., K FROM KQ OR KRDAP, AT PI/2(8)
005923,002009: E6,1501 E6,1741 K2CNTRAL EQUALS GTSTEMPS +3 # D.P., GTS SCRATCH CELLS.
005924,002010: E6,1501 E6,1742 WCENTRAL EQUALS GTSTEMPS +4 # S.P., OMEGA, AT PI/4 RAD/SEC
005925,002011: E6,1501 E6,1743 ACENTRAL EQUALS GTSTEMPS +5 # S.P., ALPHA, AT PI/4 RAD/SEC(2)
005926,002012: E6,1501 E6,1744 DEL EQUALS GTSTEMPS +6 # S.P., SGN FUNCTION VALUE.
005927,002013: E6,1501 E6,1745 A2CNTRAL EQUALS GTSTEMPS +7 # D.P., GTS SCRATCH CELLS.
005928,002014: E6,1501 E6,1747 QRCNTR EQUALS GTSTEMPS +9D # S.P.,INDEX FOR GTS LOOP THROUGH Q,R AXES
005929,002015: E6,1501 E6,1750 FUNCTION EQUALS GTSTEMPS +10D # D.P.,ARGUMENT FOR GRSQRT,SCRATCH FOR GTS
005930,002016:
005931,002017: E6,1501 NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE
005932,002018: # NEGUQ +1 DEFINED AND USED ELSEWHERE
005933,002019: E6,1504 E6,1503 NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE
005934,002020:
005935,002021: E6,1504 KQ ERASE +2 # S.P.,JERK TERM FOR GTS, AT PI/2(8)
005936,002022: E6,1507 E6,1505 AXISCTR EQUALS KQ +1
005937,002023: E6,1507 E6,1506 KRDAP EQUALS KQ +2 # .3 ACCDOTR SCALED AT PI/2(8)
005938,002024:
005939,002025: E6,1507 ACCDOTQ ERASE +3 # Q-JERK SCALED AT PI/2(7) UNSIGNED
005940,002026: E6,1513 E6,1510 QACCDOT EQUALS ACCDOTQ +1 # Q-JERK SCALED AT PI/2(7) SIGNED
005941,002027: E6,1513 E6,1511 ACCDOTR EQUALS ACCDOTQ +2 # R-JERK SCALED AT PI/2(7) UNSIGNED
005942,002028: E6,1513 E6,1512 RACCDOT EQUALS ACCDOTQ +3 # R-JERK SCALED AT PI/2(7) SIGNED
005943,002029:
005944,002030: E6,1513 E6,1450 QDIFF EQUALS QERROR # ATTITUDE ERRORS:
005945,002031: E6,1513 E6,1452 RDIFF EQUALS RERROR # SCALED AT PI RADIANS
005946,002032:
005947,002033:
005948,002034:
005949,002035:
005950,002036: # TORQUE VECTOR RECONSTRUCTION VARIABLES: (17D)
005951,002037:
005952,002038: E6,1513 E6,1744 JETRATE EQUALS DAPTREG1
005953,002039: E6,1513 E6,1745 JETRATEQ EQUALS JETRATE +1 # THE LAST CONTROL SAMPLE PERIOD OF 100 MS
005954,002040: E6,1513 E6,1746 JETRATER EQUALS JETRATE +2 # SCALED AT PI/4 RADIANS/SECOND
005955,002041:
005956,002042: E6,1513 DOWNTORK ERASE +5 # ACCUMULATED JET TORQUE COMMANDED ABOUT
005957,002043: E6,1521 E6,1513 POSTORKP EQUALS DOWNTORK # +,-P, +,-U, +,-V RESPECTIVELY.
005958,002044: E6,1521 E6,1514 NEGTORKP EQUALS DOWNTORK +1
005959,002045: E6,1521 E6,1515 POSTORKU EQUALS DOWNTORK +2 # NOT INITIALIZED; PERMITTED TO OVERFLOW
005960,002046:
|
|
Page 138 |
005962,002048: E6,1521 E6,1516 NEGTORKU EQUALS DOWNTORK +3 # SCALED AT 32 JET-SEC, OR ABOUT 2.0 JET-
005963,002049: E6,1521 E6,1517 POSTORKV EQUALS DOWNTORK +4 # MSEC PER BIT.
005964,002050: E6,1521 E6,1520 NEGTORKV EQUALS DOWNTORK +5
005965,002051:
005966,002052: E6,1521 NO.PJETS ERASE +2
005967,002053: E6,1524 E6,1522 NO.UJETS = NO.PJETS +1
005968,002054: E6,1524 E6,1523 NO.VJETS = NO.UJETS +1
005969,002055: E6,1524 TJP ERASE +2
005970,002056: E6,1527 E6,1525 TJU = TJP +1
005971,002057: E6,1527 E6,1526 TJV = TJP +2
005972,002058:
005973,002059: E6,1527 L,PVT-CG ERASE
005974,002060: E6,1530 1JACC ERASE +3
005975,002061: E6,1534 E6,1531 1JACCQ EQUALS 1JACC +1 # SCALED AT PI/4 RADIANS/SECOND
005976,002062: E6,1534 E6,1532 1JACCR EQUALS 1JACC +2
005977,002063: E6,1534 E6,1533 1JACCU EQUALS 1JACC +3 # FOR U,V-AXES THE SCALE FACTOR IS DIFF:
005978,002064: # SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
005979,002065: # ASCENT VARIABLES: (10D)
005980,002066:
005981,002067:
005982,002068: E6,1534 SKIPU ERASE +1
005983,002069: E6,1536 E6,1535 SKIPV = SKIPU +1
005984,002070: # THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
005985,002071: # SECTION OF THE AOSTASK. THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
005986,002072: # SECTIONS AND ELSEWHERE.
005987,002073:
005988,002074: E6,1536 AOSQ ERASE +5 # OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
005989,002075: E6,1544 E6,1540 AOSR EQUALS AOSQ +2 # AND SCALED AT PI/2.
005990,002076: E6,1544 E6,1542 AOSU EQUALS AOSQ +4 # UV-AXES OFFSET ACC. FROMED BY VECTOR
005991,002077: E6,1544 E6,1543 AOSV EQUALS AOSQ +5 # ADDITION OF Q,R. AT PI/2 RAD/SEC(2).
005992,002078:
005993,002079: E6,1544 AOSQTERM ERASE +1 # (.1-.05K)AOS
005994,002080: E6,1546 E6,1545 AOSRTERM EQUALS AOSQTERM +1 # SCALED AT PI/4 RADIANS/SECOND.
005995,002081:
005996,002082: # FOR TJET LAW SUBROUTINE: (TEMPS ONLY)
005997,002083:
005998,002084: # NUMBERT EQUALS DAPTEMP5 DEFINED IN QRAXIS.
005999,002085: E6,1546 E6,1736 EDOTSQ EQUALS DAPTEMP1
006000,002086: E6,1546 E6,1737 ROTSENSE EQUALS DAPTEMP2
006001,002087: E6,1546 E6,1740 FIREFCT EQUALS DAPTEMP3 # LOOKED AT BY PAXIS.
006002,002088: E6,1546 E6,1741 TTOAXIS EQUALS DAPTEMP4
006003,002089: E6,1546 E6,1743 ADRSDIF2 EQUALS DAPTEMP6
006004,002090: E6,1546 E6,1744 HOLDQ EQUALS DAPTREG1
006005,002091: E6,1546 E6,1745 ADRSDIF1 EQUALS DAPTREG2
006006,002092: E6,1546 E6,1746 HH EQUALS DAPTREG3 # DOUBLE PRECISION
006007,002093: # HH +1 EQUALS DAPTREG4
006008,002094: E6,1546 E6,1751 E EQUALS DAPTREG6 # TIME SHARE WITH VERROR
006009,002095: E6,1546 E6,1427 EDOT EQUALS OMEGAV
006010,002096:
006011,002097: # INPUT TO TJET LAW (PERMANENT ERASABLES). (48D)
006012,002098:
|
|
Page 139 |
006014,002100: E6,1546 E6,1525 TJETU = TJU # EQUATE NAMES. INDEXED BY -1, 0, +1.
006015,002101: E6,1546 BLOCKTOP ERASE +47D
006016,002102: # * SEE AOSTASK AND AOSJOB LOG SECTION FOR ERASABLE DEFINITIONS
006017,002103: # IN THIS AREA.
006018,002104:
006019,002105: E6,1626 E6,1566 1/ANET1 = BLOCKTOP +16D # THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
006020,002106: E6,1626 E6,1567 1/ANET2 = 1/ANET1 +1 # FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
006021,002107: E6,1626 E6,1572 1/ACOAST = 1/ANET1 +4 # EDOT IS POSITIVE. TJETLAW INDEXES BY
006022,002108: E6,1626 E6,1574 ACCFCTZ1 = 1/ANET1 +6 # ADRSDIFF FROM THESE REGISTERS TO PICK UP
006023,002109: E6,1626 E6,1575 ACCFCTZ5 = 1/ANET1 +7 # PARAMETERS FOR THE PROPER AXIS, NUMBER
006024,002110: E6,1626 E6,1600 FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48
006025,002111: E6,1626 E6,1602 COASTDB = 1/ANET1 +12D # REGISTERS IN ALL IN THIS BLOCK.
006026,002112: E6,1626 E6,1604 AXISDIST = 1/ANET1 +14D # FOUR NOT REFERENCED (P-AXIS) ARE FILLED
006027,002113: # IN BY THE FOLLOWING:
006028,002114: E6,1626 E6,1546 ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
006029,002115: E6,1626 E6,1547 ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS.
006030,002116: E6,1626 E6,1554 FLAT = BLOCKTOP +6 # WIDTH OF MINIMUM IMPULSE ZONE.
006031,002117: E6,1626 E6,1555 ZONE3LIM = BLOCKTOP +7 # HEIGHT OF MINIMUM IMPULSE ZONE (AT 4 SEC)
006032,002118:
006033,002119: E6,1626 COEFFQ ERASE +1 # COEFFQ AND COEFFR ARE USED IN ROT-TOUV
006034,002120: E6,1630 E6,1627 COEFFR EQUALS COEFFQ +1 # TO RESOLVE Q,R COMPONENTS INTO U,V COMP.
006035,002121:
006036,002122: # VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE. (4)
006037,002123:
006038,002124: E6,1630 E6,1502 ALLOWGTS EQUALS NEGUQ +1 # INSERT INTO UNUSED LOCATION
006039,002125: E6,1630 COTROLER ERASE # INDICATES WHICH CONTROL SYSTEM TO USE.
006040,002126: E6,1631 QGIMTIMR ERASE +2 # Q-GIMBAL DRIVE ITMER, DECISECONDS.
006041,002127: E6,1634 E6,1632 INGTS EQUALS QGIMTIMR +1 # INDICATOR OF CURRENT GTS CONTROL.
006042,002128: E6,1634 E6,1633 RGIMTIMR EQUALS QGIMTIMR +2 # R-GIMBAL DRIVE TIMER, DECISECONDS.
006043,002129:
006044,002130: # PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
006045,002131:
006046,002132: # KALCMANU:DAP INTERFACE. (9D)
006047,002133:
006048,002134: E6,1634 CDUXD ERASE +2 # CDU DESIRED REGISTERS:
006049,002135: E6,1637 E6,1635 CDUYD EQUALS CDUXD +1 # SCALED AT PI RADIANS (180 DEGREES)
006050,002136: E6,1637 E6,1636 CDUZD EQUALS CDUXD +2 # (STORE IN 2S COMPLEMENT)
006051,002137:
006052,002138: E6,1637 DELCDUX ERASE +2 # NEGATIVE OF DESIRED 100MS CDU INCREMENT:
006053,002139: E6,1642 E6,1640 DELCDUY EQUALS DELCDUX +1 # SCALED AT PI RADIANS (180 DEGREES)
006054,002140: E6,1642 E6,1641 DELCDUZ EQUALS DELCDUX +2 # (STORE IN 2S COMPLEMENT)
006055,002141:
006056,002142: # RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
006057,002143:
006058,002144: E6,1642 OMEGAPD ERASE +2 # ATTITUDE MANEUVER DESIRED RATES:
006059,002145: E6,1645 E6,1643 OMEGAQD EQUALS OMEGAPD +1 # (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
006060,002146: E6,1645 E6,1644 OMEGARD EQUALS OMEGAPD +2 # SCALED AT PI/4 RADIANS/SECOND
006061,002147:
006062,002148: # KALCMANU STORAGE. (24D)
006063,002149:
|
|
Page 140 |
006065,002151: E6,1645 MIS ERASE +23D # I(18D)
006066,002152: E6,1675 E6,1667 COF EQUALS MIS +18D # I(6)
006067,002153:
006068,002154:
006069,002155: # KALCMANU STORAGE. (33D)
006070,002156:
006071,002157: E6,1675 BCDU ERASE +30D # B(3)
006072,002158: E6,1734 E6,1700 KSPNDX EQUALS BCDU +3 # B(1)
006073,002159: E6,1734 E6,1701 KDPNDX EQUALS KSPNDX +1 # B(1)
006074,002160:
006075,002161: E6,1734 E6,1702 TMIS EQUALS KDPNDX +1 # I(18) MUST BE IN SAME BANK AS RCS DAP
006076,002162: E6,1734 E6,1724 COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN SAME BANK AS RCS DAP
006077,002163: E6,1734 E6,1732 CAM EQUALS COFSKEW +6 # I(2) MUST BE IN SAME BANK AS RCS DAP
006078,002164:
006079,002165: E6,1734 AM ERASE +1 # I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
006080,002166:
006081,002167: # FIRST-ORDER OVERLAYS IN KALCMANU (25D)
006082,002168:
006083,002169: E6,1736 E6,1702 MFISYM EQUALS TMIS # I
006084,002170: E6,1736 E6,1702 TMFI EQUALS TMIS # I
006085,002171: E6,1736 E6,1702 NCDU EQUALS TMIS # B
006086,002172: E6,1736 E6,1705 NEXTIME EQUALS TMIS +3 # B
006087,002173: E6,1736 E6,1706 TTEMP EQUALS TMIS +4 # B
006088,002174: E6,1736 E6,1724 BRATE EQUALS COFSKEW # B
006089,002175: E6,1736 E6,1732 TM EQUALS CAM # B
006090,002176:
006091,002177: # SECOND-ORDER OVERLAYS IN KALCMANU (?)
006092,002178:
006093,002179: E6,1736 E6,1724 VECQTEMP = COFSKEW
006094,002180:
006095,002181: E6,1736 E6,1634 DCDU = CDUXD
006096,002182: E6,1736 E6,1637 DELDCDU = DELCDUX
006097,002183: E6,1736 E6,1640 DELDCDU1 = DELCDUY
006098,002184: E6,1736 E6,1641 DELDCDU2 = DELCDUZ
006099,002185:
006100,002186:
006101,002187: # * * * * * * * * * * * * * * * * * * * * * * * *
006102,002188:
006103,002189: # STORAGE FOR FINDCDUW
006104,002190:
006105,002191: # OVERLAYING KALCMANU STORAGE: (26D)
006106,002192:
006107,002193: E6,1736 E6,1645 ECDUW EQUALS MIS
006108,002194: E6,1736 E6,1645 ECDUWUSR EQUALS ECDUW # B(1)TMP
006109,002195: E6,1736 E6,1646 QCDUWUSR EQUALS ECDUWUSR +1 # I(1)TMP
006110,002196: E6,1736 E6,1647 NDXCDUW EQUALS QCDUWUSR +1 # B(1)TMP
006111,002197: E6,1736 E6,1650 FLAGOODW EQUALS NDXCDUW +1 # B(1)TMP
006112,002198: E6,1736 E6,1651 UNFC/2 EQUALS FLAGOODW +1 # I(6)IN
006113,002199:
|
|
Page 141 |
006115,002201: E6,1736 E6,1657 UNWC/2 EQUALS UNFC/2 +6 # I(6)IN
006116,002202: E6,1736 E6,1665 UNFV/2 EQUALS UNWC/2 +6 # I(6) S-S
006117,002203: E6,1736 E6,1665 UNFVX/2 = UNFV/2
006118,002204: E6,1736 E6,1667 UNFVY/2 = UNFV/2 +2
006119,002205: E6,1736 E6,1671 UNFVZ/2 = UNFV/2 +4
006120,002206: E6,1736 E6,1673 -DELGMB EQUALS UNFV/2 +6 # B(3)TMP
006121,002207: E6,1736 E6,1676 OGABIAS EQUALS -DELGMB +3 # B(1)IN
006122,002208:
006123,002209: # DEFINED IN THE WORK AREA: (18D)
006124,002210:
006125,002211: E6,1736 UNX/2 = 0
006126,002212: E6,1736 UNY/2 = 6
006127,002213: E6,1736 UNZ/2 = 14
006128,002214:
006129,002215: # END OF FINDCDUW ERASABLES
006130,002216:
006131,002217: # * * * * * * * * * * * * * * * * * * * * * * * *
006132,002218:
006133,002219: # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
006134,002220:
006135,002221: # STORAGE FOR P57
006136,002222:
006137,002223: # OVERLAYING KALCMANU AND FINDCDUW STORAGE: (12D)
006138,002224:
006139,002225: E6,1736 E6,1645 VEC1 EQUALS MIS # I(6)TMP
006140,002226: E6,1736 E6,1653 VEC2 EQUALS VEC1 +6 # I(6)TMP
006141,002227:
006142,002228: # END OF P57 ERASABLES
006143,002229:
006144,002230: # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
006145,002231:
006146,002232: # THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS,NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
006147,002233: # ... ANYWAY, THE DAP CAN NOW BE INTERRUPTED. (18D)
006148,002234:
006149,002235: E6,1736 DAPTEMP1 ERASE +17D
006150,002236: E6,1760 E6,1737 DAPTEMP2 EQUALS DAPTEMP1 +1
006151,002237: E6,1760 E6,1740 DAPTEMP3 EQUALS DAPTEMP1 +2
006152,002238: E6,1760 E6,1741 DAPTEMP4 EQUALS DAPTEMP1 +3
006153,002239: E6,1760 E6,1742 DAPTEMP5 EQUALS DAPTEMP1 +4
006154,002240: E6,1760 E6,1743 DAPTEMP6 EQUALS DAPTEMP1 +5
006155,002241: E6,1760 E6,1744 DAPTREG1 EQUALS DAPTEMP1 +6
006156,002242: E6,1760 E6,1744 OLDSENSE EQUALS DAPTREG1 # B(1)TMP RCS JET CONTROL
006157,002243: E6,1760 E6,1745 DAPTREG2 EQUALS DAPTEMP1 +7
006158,002244: E6,1760 E6,1746 DAPTREG3 EQUALS DAPTEMP1 +8D
006159,002245: E6,1760 E6,1747 DAPTREG4 EQUALS DAPTEMP1 +9D
006160,002246: E6,1760 E6,1750 DAPTREG5 EQUALS DAPTEMP1 +10D
006161,002247: E6,1760 E6,1751 DAPTREG6 EQUALS DAPTEMP1 +11D
006162,002248:
006163,002249: E6,1760 E6,1752 DAPARUPT EQUALS DAPTEMP1 +12D
006164,002250: E6,1760 E6,1753 DAPLRUPT EQUALS DAPARUPT +1
006165,002251:
|
|
Page 142 |
006167,002253: E6,1760 E6,1754 DAPBQRPT EQUALS DAPARUPT +2
006168,002254: E6,1760 E6,1756 DAPZRUPT EQUALS DAPARUPT +4
006169,002255:
006170,002256: # (DAPZRUPT IS ALSO JASK-IN-PROGRESS FLAG)
006171,002257:
006172,002258:
006173,002259: # NEEDLER(ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE. (6D)
006174,002260:
006175,002261: E6,1760 0061 T5TEMP EQUALS ITEMP1
006176,002262: E6,1760 0063 DINDX EQUALS ITEMP3
006177,002263: E6,1760 AK ERASE +2 # NEEDLER ATTITUDE INPUTS, SCALED AT 180
006178,002264: E6,1763 E6,1761 AK1 EQUALS AK +1 # DEGREES. P,Q,R AXES IN AK,AK1,AK2.
006179,002265: E6,1763 E6,1762 AK2 EQUALS AK +2
006180,002266:
006181,002267: E6,1763 EDRIVEX ERASE +2 # NEEDLER DISPLAY REGS AT 1800 DEGREES.
006182,002268: E6,1766 E6,1764 EDRIVEY EQUALS EDRIVEX +1 # SO THAT 384 BITS REPRESENT 42 3/16 DEG.
006183,002269: E6,1766 E6,1765 EDRIVEZ EQUALS EDRIVEX +2
006184,002270:
006185,002271: # DOCKED JET INHIBITION COUNTERS (3D)
006186,002272:
006187,002273: E6,1766 PJETCTR ERASE +2
006188,002274: E6,1771 E6,1767 UJETCTR EQUALS PJETCTR +1
006189,002275: E6,1771 E6,1770 VJETCTR EQUALS PJETCTR +2
006190,002276:
006191,002277: # V47 (R47) AGS INITIALIZATION STORAGE -PAD LOADED. (2D)
006192,002278:
006193,002279: E6,1771 AGSK ERASE +1 # I(2) PL
006194,002280:
006195,002281: # WINDOW BIAS PADLOAD (1D)
006196,002282:
006197,002283: E6,1773 AZBIAS ERASE # B(1) PL LPD AZIMUTH BIAS, UNITS - PI RAD
006198,002284:
006199,002285: # DAP PERMANENT STORAGE (1D)
006200,002286:
006201,002287: E6,1774 RCSFLAGS ERASE # AUTOPILOT FLAG WORD
006202,002288: # BIT ASSIGNMENTS:
006203,002289: # 1) ALTERYZ SWITCH (ZEROOR1)
006204,002290: # 2) NEEDLER SWITCH
006205,002291: # 3) NEEDLER SWITCH
006206,002292: # 4) NEEDLER SWITCH
006207,002293: # 5) NEEDLER SWITCH
006208,002294: # 9) JUST-IN-DETENT SWITCH
006209,002295: # 10) PBIT - MANUAL CONTROL SWITCH
006210,002296: # 11) QRBIT- MANUAL CONTROL SWITCH
006211,002297: # 12) PSKIP CONTROL (PJUMPADR)
006212,002298: # 13) 1/ACCJOB CONTROL (ACCSET)
006213,002299:
|
|
Page 143 |
006215,002301: E6,1775 E6,1774 END-E6 EQUALS AZBIAS +1 # NEXT AVAILABLE LOC IN E6.
006216,002302:
|
|
Page 144 |
006218,002304: # EBANK-7 ASSIGNMENTS
006219,002305:
006220,002306: E7,1400 SETLOC 3400
006221,002307:
006222,002308: # P35 CONSTANTS. - PAD LOADED - (4D)
006223,002309:
006224,002310: E7,1400 ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST
006225,002311: E7,1402 PTIGINC ERASE +1 # B(2)PL
006226,002312:
006227,002313:
006228,002314: # AOTMARK STORAGE. - PAD LOADED - (12D)
006229,002315:
006230,002316: E7,1404 AOTAZ ERASE +5 # B(6)PL
006231,002317: E7,1412 AOTEL ERASE +5 # B(6)PL
006232,002318:
006233,002319: # LANDING RADAR. - PAD LOADED - (3D)
006234,002320:
006235,002321: E7,1420 LRHMAX ERASE # B(1)
006236,002322: E7,1421 LRWH ERASE # B(1)
006237,002323:
006238,002324:
006239,002325: # THROTTLE STORAGE. - PAD LOADED - (1D)
006240,002326:
006241,002327: E7,1422 ZOOMTIME ERASE # B(1)PL TIME OF DPS THROTTLE-UP COMMAND
006242,002328:
006243,002329: # P63 AND P64 CONSTANTS. - PAD LOADED - (4D)
006244,002330:
006245,002331: E7,1423 TENDBRAK ERASE # B(1) LANDING PHASE SWITCHING CRITERION
006246,002332: E7,1424 TENDAPPR ERASE # B(1) LANDING PHASE SWITCHING CRITERION
006247,002333: E7,1425 DELTTFAP ERASE # B(1) INCREMENT ADDED TO TTF/8 WHEN
006248,002334: # SWITCHING FROM P63 TO P64
006249,002335: E7,1426 LEADTIME ERASE # B(1) TIME INCREMENT SPECIFYING HOW MUCH
006250,002336: # GUIDANCE IS PROJECTED FORWARD.
006251,002337:
006252,002338: # LANDING RADAR - PAD LOADED - (2D)
006253,002339:
006254,002340: E7,1427 RPCRTIME ERASE # B(1) REPOSITIONING CRITERION (TIME)
006255,002341: E7,1430 RPCRTQSW ERASE # B(1) REPOSITIONING CRITERION (ANGLE)
006256,002342:
006257,002343: # ASTEER - PAD LOADED - (2D)
006258,002344:
006259,002345: E7,1431 TNEWA ERASE +1 # I(2)PL LAMBERT CYCLE PERIOD
006260,002346:
006261,002347: # P22 STORAGE - OVERLAYS LANDING PADLOADS - (5D)
006262,002348:
|
|
Page 145 |
006264,002350: E7,1433 E7,1423 REPOSCNT EQUALS TENDBRAK # B(1)TMP COUNTS NUMBER OF PASSES THROUGH
006265,002351: # REPOSITION ROUTINE.
006266,002352: E7,1433 E7,1424 REPOSTM EQUALS REPOSCNT +1 # I(2)TMP PRESENT TIME PLUS INCREMENTS OF
006267,002353: # TEN SECONDS.
006268,002354: E7,1433 E7,1426 DELTATM EQUALS REPOSTM +2 # I(2)TMP TIME INTERVAL FOR RUNNING
006269,002355: # DESIGNATE TASK.
006270,002356:
006271,002357: # *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
006272,002358:
006273,002359:
006274,002360: # P40S, P32-P35 P72-P75 STORAGE (6D)
006275,002361:
006276,002362: E7,1433 DELVLVC ERASE +5 # I(6) DELTA VELOCITY - LOCAL VERTICAL COO
006277,002363: E7,1441 E7,1433 DELVSLV = DELVLVC # (TEMP STORAGE OF SAME VECTOR) -RDINATE
006278,002364:
006279,002365:
006280,002366:
006281,002367: # P30-P40 INTERFACE UNSHARED. (2D)
006282,002368:
006283,002369: # ******* NOTE: TIG IS USED BY ALL POWERED FLIGHT PROGRAMS *******
006284,002370: # ******* INCLUDING P12, ABORTS, AND LUNAR LANDING. ********
006285,002371:
006286,002372: E7,1441 TIG ERASE +1 # B(2)
006287,002373:
006288,002374:
006289,002375: # INITVEL STORAGE: USED BY P34,35,74,75, P40-42 (8D)
006290,002376:
006291,002377: E7,1443 RTARG ERASE +5 # I(6) TARGET VECTOR
006292,002378: E7,1451 DELLT4 ERASE +1 # I(2) TIME DIFFERENCE
006293,002379:
006294,002380:
006295,002381: # LANDING RADAR - R12 (OVERLAY) (2D)
006296,002382:
006297,002383: E7,1453 E7,1451 HLROFF EQUALS DELLT4 # B(1),I(2) TMP NO LANDING RADAR UPDATES
006298,002384: # BELOW THIS ALTITUDE.
006299,002385:
006300,002386:
006301,002387: # CLOKTASK, BURNBABY (3D)
006302,002388:
006303,002389: E7,1453 TTOGO ERASE +1 # B(2)
006304,002390: E7,1455 WHICH ERASE # B(1)
006305,002391:
006306,002392:
006307,002393: # *** R21 *** (1D)
006308,002394:
006309,002395: E7,1456 LOSCOUNT ERASE # B(1)
006310,002396:
006311,002397: # L SR22.3 (RNDEZVOUS NAVIGATION) AND
006312,002398:
|
|
Page 146 |
006314,002400: # LANDING RADAR -- VELUPDAT (SERVICER), P63, AND R12. (4D)
006315,002401:
006316,002402: # ***** NOTE: AOG, AMG, AND AIG ARE USED BY LANDING RADAR AS WELL AS RR.
006317,002403: # ***** R12DL STORES CDUS THERE FOR DOWNLINKING ON DESCENT/ASCENT DL
006318,002404: # ***** MOREOVER, TRKMKCNT SHARES WITH VSELECT, ALSO SET UP BY R12DL
006319,002405: # ***** (DOWNLINKED ON THE DESCENT/ASCENT LIST AS THE
006320,002406: # ***** LOW ORDER PART OF AOG TELEMETRY WORD)
006321,002407: # ***** AND USED IN SERVICER, P63 RESTART, AND R12READ.
006322,002408:
006323,002409: # RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
006324,002410:
006325,002411: E7,1457 AIG ERASE # B(1)OUT GIMGAL ANGLES
006326,002412: E7,1460 AMG ERASE # B(1)OUT (MUST BE
006327,002413: E7,1461 AOG ERASE # B(1)OUT CONSECUTIVE)
006328,002414:
006329,002415: E7,1462 TRKMKCNT ERASE # B(1)TMP TEMPORARY MARK STORAGE.
006330,002416: E7,1463 E7,1462 MARKCTR = TRKMKCNT
006331,002417:
006332,002418:
006333,002419: E7,1463 E7,1462 VSELECT EQUALS TRKMKCNT # B(1) X,Y OR Z LR BEAM ASSOC WITH VMEAS.
006334,002420:
006335,002421:
006336,002422: # P32-P35, P72-P75 STORAGE. -PERMANENT- (6)
006337,002423:
006338,002424: E7,1463 NORMEX ERASE # B(1) PRM SAVE FOR Q
006339,002425: E7,1464 QSAVED ERASE # B(1) PRM SAVE FOR Q
006340,002426: E7,1465 RTRN ERASE # B(1) PRM SAVE FOR Q
006341,002427: E7,1466 NN ERASE +1 # B(2)
006342,002428: E7,1470 SUBEXIT ERASE # B(1) PRM SAVE Q
006343,002429:
006344,002430:
006345,002431: E7,1471 E7OVERLA EQUALS # START OF E7 OVERLAYS.
006346,002432: E7,1471 E7,1471 WHOCARES EQUALS E7OVERLA # DUMMY FOR EBANK INSENSITIVE 2CADRS
006347,002433:
006348,002434: # LUNAR LANDING OVERLAYS (6D)
006349,002435:
006350,002436: E7,1471 E7,1463 /AFC/ EQUALS NORMEX # B(2)TMP THROTTLE
006351,002437: E7,1471 E7,1465 FCODD EQUALS /AFC/ +2 # B(2)TMP THROTTLE
006352,002438: E7,1471 E7,1467 FP EQUALS FCODD +2 # B(2)TMP THROTTLE
006353,002439:
|
|
Page 147 |
006355,002441: # ******* OVERLAY NUMBER 0 IN EBANK 7 *******
006356,002442:
006357,002443:
006358,002444: # RENDEZVOUS GUIDANCE STORAGE -P32....P35- (89D)
006359,002445:
006360,002446: E7,1471 E7,1611 TSTRT EQUALS DELDV # MIDCOURSE START TIME
006361,002447: E7,1471 E7,1573 TDEC2 EQUALS DELVCSI # TEMP STORAGE FOR INTEGRATION TIME INPUT
006362,002448: E7,1471 E7,1575 KT EQUALS DELVTPI # TEMP STORAGE FOR MIDCOURSE DELTA TIME
006363,002449: E7,1471 VACT1 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CSI TIME
006364,002450: E7,1477 RPASS1 ERASE +5D # POSITION VECTOR OF PASSIVE AT CSI TIME
006365,002451: E7,1505 VPASS1 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CSI TIME
006366,002452: E7,1513 VACT2 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CDH TIME
006367,002453: E7,1521 RPASS2 ERASE +5D # POSITION VECTOR OF PASSIVE AT CDH TIME
006368,002454: E7,1527 VPASS2 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CDH TIME
006369,002455: E7,1535 RACT3 ERASE +5D # POSITION VECTOR OF ACTIVE AT TPI TIME
006370,002456: E7,1543 VACT3 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT TPI TIME
006371,002457: E7,1551 RPASS3 ERASE +5D # POSITION VECTOR OF PASSIVE AT TPI TIME
006372,002458: E7,1557 VPASS3 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT TPI TIME
006373,002459: E7,1565 VACT4 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT INTERCEPT
006374,002460: E7,1573 E7,1543 UNVEC EQUALS VACT3 # CDHMVR UNIT VECTOR TEMP STORAGE.
006375,002461: E7,1573 DELVCSI ERASE +1D # THRUST VALUE AT CSI
006376,002462: E7,1575 DELVTPI ERASE +1D # THRUST VALUE AT TPI OR MID
006377,002463: E7,1577 DIFFALT ERASE +1D # ALT DIFFERENCE AT CDH
006378,002464: E7,1601 POSTCSI ERASE +1 # PERIGEE ALTITUDE AFTER CSI MANEUVER
006379,002465: E7,1603 POSTCDH ERASE +1 # PERIGEE ALTITUDE AFTER CDH MANEUVER
006380,002466: E7,1605 POSTTPI ERASE +1 # PERIGEE ALTITUDE AFTER TPI MANEUVER
006381,002467: E7,1607 E7,1605 LOOPCT EQUALS POSTTPI # CSI NEWTON ITERATION COUNTER
006382,002468: E7,1607 E7,1603 HAFPA1 EQUALS POSTCDH # HALF PERIOD
006383,002469: E7,1607 GAMPREV ERASE +1 # PREVIOUS GAMMA
006384,002470: E7,1611 E7,1575 DVPREV EQUALS DELVTPI # PREVIOUS DELVCSI
006385,002471: E7,1611 DELDV ERASE +1D
006386,002472: E7,1613 CSIALRM ERASE +1 # FIRST SOLUTION ALARM
006387,002473: E7,1615 VERBNOUN ERASE
006388,002474: E7,1616 E7,1613 TITER EQUALS CSIALRM # ITERATION COUNTER
006389,002475: E7,1616 RDOTV ERASE +1
006390,002476: E7,1620 E7,1505 VAPREC EQUALS VPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006391,002477: E7,1620 E7,1477 RAPREC EQUALS RPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
006392,002478: E7,1620 E7,1527 VPPREC EQUALS VPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006393,002479: E7,1620 E7,1521 RPPREC EQUALS RPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
006394,002480: E7,1620 E7,1575 DELEL EQUALS DELVTPI # I(2) S-S
006395,002481: E7,1620 E7,1573 SECMAX EQUALS DELVCSI # I(2) S-S MAX STOP SIZE FOR ROUTINE
006396,002482: E7,1620 E7,1605 DELTEEO EQUALS POSTTPI # I(2) S-S BACK VALUES OF DELTA TIME
006397,002483: E7,1620 CENTANG ERASE +1 # I(2) S-S CENTRAL ANGLE COVERED (TPI-TPF)
006398,002484:
006399,002485:
006400,002486:
006401,002487: # SOME P47 STORAGE (6D)
006402,002488:
|
|
Page 148 |
006404,002490: E7,1622 DELVIMU ERASE +5 # I(6)DSP N83 FOR P47 DELTA V IN BODY COOR
006405,002491:
006406,002492:
006407,002493: # P34-35-40-41-42 INTERFACE (2D)
006408,002494:
006409,002495: E7,1630 TPASS4 ERASE +1 # INTERCEPT TIME
006410,002496:
006411,002497:
006412,002498: # P30-P40-41-42 COMMON STORAGE (1D)
006413,002499:
006414,002500: E7,1632 QTEMP ERASE # I(1)TMP COMMON RETURN SAVE REGISTER.
006415,002501:
006416,002502:
006417,002503:
006418,002504: # P32,33,34 STORAGE. (6D)
006419,002505:
006420,002506: E7,1633 TCSI ERASE +1 # B(2)TMP CSI TIME IN CENTISECONDS
006421,002507: E7,1635 TTPI ERASE +1 # B(2)TMP TPI TIME IN CENTISECONDS
006422,002508: E7,1637 TTPI0 ERASE +1 # B(2)TMP TTPI STORAGE FOR RECYCLE
006423,002509:
006424,002510:
006425,002511: # P30,P40 INTERFACE. (20D)
006426,002512:
006427,002513: E7,1641 RTIG ERASE +19D # I(6)TMP
006428,002514: E7,1665 E7,1647 VTIG EQUALS RTIG +6 # I(6)TMP
006429,002515: E7,1665 E7,1655 DELVSIN EQUALS VTIG +6 # I(6)TMP
006430,002516: E7,1665 E7,1663 DELVSAB EQUALS DELVSIN +6 # I(2)TMP
006431,002517: E7,1665 E7,1663 VGDISP = DELVSAB
006432,002518:
006433,002519:
006434,002520: # P40-P42 TEMPORARY (1D)
006435,002521:
006436,002522: E7,1665 QTEMP1 ERASE # I(1)TMP HOLDS RETURN.
006437,002523:
006438,002524:
006439,002525:
006440,002526: # R52 TEMPORARY (1D)
006441,002527:
006442,002528: E7,1666 E7,1665 SAVQR52 EQUALS QTEMP1
006443,002529:
006444,002530:
006445,002531: # INITVEL STORAGE. (IN OVERLAY 0 AND OVERLAY 1. (2D)
006446,002532: # (CALLS LAMBERT, CONIC SUBROUTINES)
006447,002533:
006448,002534: E7,1666 E7,1565 VTPRIME EQUALS VACT4 # TOTAL VELOCITY AT DESIRED RADIUS
006449,002535: E7,1666 E7,1616 ITCTR EQUALS RDOTV # ITERATION COUNTER
006450,002536: E7,1666 COZY4 ERASE +1 # COS OF ANGLE WHEN ROTATION STARTS
006451,002537: E7,1670 E7,1607 INTIME EQUALS GAMPREV # TIME OF RINIT
006452,002538:
|
|
Page 149 |
006454,002540: # PERIAPO STORAGE. (2D) (2D)
006455,002541:
006456,002542: E7,1670 XXXALT ERASE +1 # RADIUS TO LAUNCH PAD OR LANDING SIGHT
006457,002543:
006458,002544: # S40.1 STORAGE. (12D)
006459,002545:
006460,002546: E7,1672 UT ERASE +11D # I(6) THRUST DIRECTION
006461,002547: E7,1706 E7,1700 VGTIG EQUALS UT +6 # I(6)OUT
006462,002548: E7,1706 E7,1700 VGPREV = VGTIG
006463,002549: # ASTEER STORAGE. (22D)
006464,002550:
006465,002551: E7,1706 VG ERASE +21D # I(6)
006466,002552: E7,1734 E7,1714 RMAG EQUALS VG +6 # I(2)
006467,002553: E7,1734 E7,1716 MUASTEER EQUALS RMAG +2 # I(2)
006468,002554: E7,1734 E7,1720 MU/A EQUALS MUASTEER +2 # I(2)
006469,002555: E7,1734 E7,1722 RTMAG EQUALS MU/A +2 # I(2)
006470,002556: E7,1734 E7,1724 R1C EQUALS RTMAG +2 # I(6)
006471,002557: E7,1734 E7,1732 SS EQUALS R1C +6 # I(2)
006472,002558:
006473,002559: # ASTEER (11D)
006474,002560:
006475,002561: E7,1734 E7,1655 IC = DELVSIN # I(6) CHORD VECTOR: RTARG VEC - POS VEC
006476,002562: E7,1734 E7,1762 TIGSAVE = P21TIME # I(2) USED TO DETERMINE WHEN YOU
006477,002563: E7,1734 E7,1764 TIGSAVEP = SCAXIS # I(2) WANT TO DO ASTEER NEXT
006478,002564: E7,1734 E7,1766 MUSCALE = SCAXIS +2 # I(1) HOLDS INDEX VALUE
006479,002565:
006480,002566:
006481,002567: # P40 STORAGE. (8D)
006482,002568:
006483,002569: # F, MDOT, AND TDECAY MUST BE CONTIGUOUS FOR VLOAD.
006484,002570: E7,1734 F ERASE +5 # I(2)TMP THRUST MAG 10**4 NEWTONS (B-7)
006485,002571: E7,1742 E7,1736 MDOT EQUALS F +2 # I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
006486,002572: E7,1742 E7,1740 TDECAY EQUALS MDOT +2 # I(2)IN DELTA-T TAILOFF, (2**28)CS.
006487,002573: E7,1742 VEX ERASE +1 # I(2) EXHAUST VELOCITY FOR TGO COMPUTAT'N
006488,002574:
006489,002575:
006490,002576: # MIDTOAV1(2) STORAGE. (CALLED BY P40,P41,P42) (1D)
006491,002577:
006492,002578: E7,1744 IRETURN1 ERASE # B(1) RETURN FROM MIDTOAV1 AND 2
006493,002579:
|
|
Page 150 |
006495,002581: # ******* OVERLAY NUMBER 1 IN EBANK 7 *******
006496,002582:
006497,002583:
006498,002584: # INITVEL (CALLED BY P34,35,38,39,10,11,S40.9,S40.1) (6D)
006499,002585:
006500,002586: E7,1745 E7,1471 RTARG1 EQUALS VACT1 # I(6)S TEMP STORAGE OF RTARG
006501,002587:
006502,002588:
006503,002589: # P35-P40 INTERFACE. (6D)
006504,002590:
006505,002591: E7,1745 E7,1505 VPASS4 EQUALS VPASS1 # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
006506,002592:
006507,002593:
006508,002594: # LAT-LONG TEMPORARIES. CAN OVERLAY WITH S40.1 (3D)
006509,002595:
006510,002596: E7,1745 E7,1672 ERADM EQUALS UT # I(2)
006511,002597: E7,1745 E7,1674 INCORPEX EQUALS ERADM +2 # I(1)
006512,002598:
006513,002599: # LRS24.1 STORAGE. (CAN SHARE WITH P30'S) (40D)
006514,002600:
006515,002601: E7,1745 E7,1675 RLMSRCH EQUALS INCORPEX +1 # I(6) TMP LM POSITION VECTOR
006516,002602: E7,1745 E7,1703 VXRCM EQUALS RLMSRCH +6 # I(6) CM V X R VECTOR
006517,002603: E7,1745 E7,1711 LOSDESRD EQUALS VXRCM +6 # I(6) DESIRED LOS VECTOR
006518,002604: E7,1745 E7,1717 UXVECT EQUALS LOSDESRD +6 # I(6) X-AXIS SRCH PATTERN COORDS
006519,002605: E7,1745 E7,1725 UYVECT EQUALS UXVECT +6 # I(6) Y-AXIS SRCH PATTERN COORDS
006520,002606: E7,1745 E7,1733 DATAGOOD EQUALS UYVECT +6 # B(1)DSP FOR R1 - ALL 1-S WHEN LOCKON
006521,002607: E7,1745 E7,1734 OMEGDISP EQUALS DATAGOOD +1 # B(2) ANGLE OMEGA DISPLAYED IN R2
006522,002608: E7,1745 E7,1734 OMEGAD = OMEGDISP # PINBALL DEFINITION.
006523,002609: E7,1745 E7,1736 NSRCHPNT EQUALS OMEGDISP +2 # B(1)TMP SEARCH PATTERN POINT COUNTER.
006524,002610: E7,1745 E7,1737 SAVLEMV EQUALS NSRCHPNT +1 # I(6) S-S SAVES LOSVEL
006525,002611:
|
|
Page 151 |
006527,002613: # ******* OVERLAY NUMBER 2 IN EBANK 7 *******
006528,002614:
006529,002615:
006530,002616:
006531,002617: # INCORP STORAGE IN E7. (47D)
006532,002618:
006533,002619: E7,1745 E7,1471 TX789 EQUALS E7OVERLA # I(6)
006534,002620: E7,1745 E7,1477 GAMMA EQUALS TX789 +6 # I(3)
006535,002621: E7,1745 E7,1502 OMEGA EQUALS GAMMA +3 # I(18)
006536,002622: E7,1745 E7,1524 BVECTOR EQUALS OMEGA +18D # I(18)
006537,002623: E7,1745 E7,1546 DELTAQ EQUALS BVECTOR +18D # I(2)
006538,002624: # AOTMARK STORAGE (3D)
006539,002625:
006540,002626: E7,1745 E7,1550 WHATMARK EQUALS DELTAQ +2 # B(1)TMP SIGHTING TECHNIQUE DETERMINATOR
006541,002627: E7,1745 E7,1551 XYMARK EQUALS WHATMARK +1 # B(1)TMP MARK IDENTIFICATION REGISTER
006542,002628: E7,1745 E7,1552 MKDEX EQUALS XYMARK +1 # B(1)TMP INDEX FOR AOTMARK
006543,002629:
006544,002630:
006545,002631: # P50S. AOTMARK (14D)
006546,002632:
006547,002633: E7,1745 E7,1524 XPLANE EQUALS BVECTOR # I(6)TMP MARK PLANE
006548,002634: E7,1745 E7,1532 YPLANE EQUALS XPLANE +6 # I(6)TMP MARK PLANE
006549,002635: E7,1745 E7,1762 XMKCNTR EQUALS P21TIME # B(1) X SIGHTING MK CNTR
006550,002636: E7,1745 E7,1763 YMKCNTR EQUALS P21TIME +1 # B(1) Y SIGHTING MK CNTR
006551,002637:
006552,002638:
006553,002639: # PLANET STORAGE. (8D)
006554,002640:
006555,002641: E7,1745 E7,1553 PLANVEC EQUALS MKDEX +1 # (6) REFER VECTOR OF PLANET
006556,002642: E7,1745 E7,1561 TSIGHT EQUALS PLANVEC +6 # (2) TIME OF MARK OR EST TIME OF MARK
006557,002643:
006558,002644:
006559,002645:
006560,002646: # AOTMARK STORAGE (15D)
006561,002647:
006562,002648: E7,1745 E7,1563 THETEST EQUALS TSIGHT +2 # I(2)TMP STAR VECTOR COMPUTATION TMP
006563,002649: E7,1745 E7,1565 ESTER1 EQUALS THETEST +2 # I(2)TMP STAR VECTOR COMPUTATION TMP
006564,002650: E7,1745 E7,1567 ESTER2 EQUALS ESTER1 +2 # I(2)TMP STAR VECTOR COMPUTATION TMP
006565,002651: E7,1745 E7,1571 DELTHET EQUALS ESTER2 +2 # I(2)TMP STAR VECTOR COMPUTATION TMP
006566,002652: E7,1745 E7,1573 NOMKCNT EQUALS DELTHET +2 # B(1)TMP MARK SET REJECT CTR
006567,002653: E7,1745 E7,1574 BODY EQUALS NOMKCNT +1 # I(6)TMP STAR VEC IN NAV BASE COOR
006568,002654: # LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1 (30D).
006569,002655:
006570,002656: E7,1745 E7,1675 LGRET EQUALS RLMSRCH # I(1)TMP
006571,002657: E7,1745 E7,1675 RDRET EQUALS LGRET # B(1) TEMP RETURN.
006572,002658: E7,1745 E7,1675 IGRET EQUALS LGRET # B(1) TEMP RETURN.
006573,002659: E7,1745 E7,1676 MX EQUALS RDRET +1 # I(6)
006574,002660: E7,1745 E7,1704 MY EQUALS MX +6 # I(6)
006575,002661: E7,1745 E7,1712 MZ EQUALS MY +6 # I(6)
006576,002662: E7,1745 E7,1720 SCALSHFT EQUALS MZ +6 # B(1) SCALE SHIFT FOR EARTH/MOON
006577,002663:
|
|
Page 152 |
006579,002665: E7,1745 E7,1721 RXZ EQUALS SCALSHFT +1 # I(2)
006580,002666: E7,1745 E7,1723 ULC EQUALS RXZ +2 # I(6)
006581,002667: E7,1745 E7,1731 SINTHETA EQUALS ULC +6 # I(2)
006582,002668:
006583,002669: # ***** IN OVERLAY ONE *****
006584,002670:
006585,002671: # R22 / NOUN 49 DISPLAY
006586,002672:
006587,002673: E7,1745 E7,1746 N49FLAG EQUALS RDOTMSAV # B(1)S FLAG INDICATING V0649 RESPONSE
006588,002674:
006589,002675:
006590,002676: # LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S) (13D)
006591,002677:
006592,002678: # (OUTPUTS ARE TO LRS22.3)
006593,002679:
006594,002680: E7,1745 E7,1733 RRTRUN EQUALS SINTHETA +2 # B(2)OUT RR TRUNION ANGLE
006595,002681: E7,1745 E7,1735 RRSHAFT EQUALS RRTRUN +2 # B(2)OUT RR SHAFT ANGLE
006596,002682: E7,1745 E7,1737 LRS22.1X EQUALS RRSHAFT +2 # B(1)TMP
006597,002683: E7,1745 E7,1740 RRBORSIT EQUALS LRS22.1X +1 # I(6) TMP RADAR BORESIGHT VECTOR.
006598,002684: E7,1745 E7,1746 RDOTMSAV EQUALS RRBORSIT +6 # B(2) S RR RANGE-RATE(FPS)
006599,002685:
006600,002686:
006601,002687: # LRS22.1 (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR (R29)(10D) CANNOT SHARE WITH L.A.D.
006602,002688:
006603,002689: # NOTE: MKTIME IS USED BY LANDING AS WELL AS REND RADAR.
006604,002690:
006605,002691: E7,1745 E7,1750 RDOTM EQUALS RDOTMSAV +2 # B(2)OUT RANGE-RATE READING
006606,002692: E7,1745 E7,1752 TANGNB EQUALS RDOTM +2 # B(2)TMP RR GIMBAL ANGLES
006607,002693: # RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
006608,002694: E7,1745 E7,1754 MKTIME EQUALS TANGNB +2 # B(2) TIME OF RADAR READING (RR AND LR)
006609,002695: E7,1745 E7,1756 RM EQUALS MKTIME +2 # I(2)OUT RANGE READING
006610,002696: E7,1745 E7,1760 RANGRDOT EQUALS RM +2 # B(2) DOWNLINKED RAW RANGE AND RRATE
006611,002697:
006612,002698: # LANDING OVERLAY (1D)
006613,002699:
006614,002700: E7,1745 E7,1750 THRDISP EQUALS RDOTM # B(1) PERCENT OF FTP I 10,500 LBS.
006615,002701:
006616,002702:
006617,002703: E7,1745 E7,1752 GTCTIME EQUALS TANGNB # B(2) STATE VECTOR TIME CORRESPONDING
006618,002704: # TO FP -- GUIDANCE THRUST COMMAND
006619,002705:
006620,002706: # R61LEM - PREFERRED TRACKING ATTITUDE ROUTINE **IN OVERLAY ONE*
006621,002707: # (CALLED BY P20,R22LEM,LSR22.3) (1D)
006622,002708:
006623,002709: E7,1745 E7,1745 R65CNTR EQUALS RRBORSIT +5 # B(1)SS COUNT NUMBER OF TIMES PREFERRED
006624,002710: # TRACKING ROUTINE IS TO CYCLE
006625,002711:
006626,002712: # P21 STORAGE (2D)
006627,002713:
|
|
Page 153 |
006629,002715: E7,1745 E7,1762 P21TIME EQUALS RANGRDOT +2 # I(2)TMP
006630,002716:
006631,002717:
006632,002718: # INPUTS TO VECPOINT. CALLED BY R60-65 (ATTITUDE MANEUVERS) (12D)
006633,002719: E7,1745 E7,1764 SCAXIS EQUALS P21TIME +2 # I(6)
006634,002720: E7,1745 E7,1772 POINTVSM EQUALS SCAXIS +6 # I(6)
006635,002721:
|
|
Page 154 |
006637,002723:
006638,002724: # ******* OVERLAY NUMBER 3 IN EBANK 7 *******
006639,002725:
006640,002726:
006641,002727:
006642,002728: # SERVICER STORAGE (6D)
006643,002729:
006644,002730: E7,1745 E7,1471 ABVEL EQUALS E7OVERLA # B(2) DISPLAY
006645,002731: E7,1745 E7,1473 HDOTDISP EQUALS ABVEL +2 # B(2) DISPLAY
006646,002732: E7,1745 E7,1475 TTFDISP EQUALS HDOTDISP +2 # B(2) DISPLAY
006647,002733:
006648,002734:
006649,002735: # ASCENT GUIDANCE FOR LUNAR LANDING (2D)
006650,002736:
006651,002737: E7,1745 E7,1473 RDOT EQUALS HDOTDISP # I(2)
006652,002738:
006653,002739:
006654,002740: # BURN PROG STORAGE. (2D)
006655,002741:
006656,002742: E7,1745 E7,1477 SAVET-30 EQUALS TTFDISP +2 # B(2)TMP TIG-30 RESTART
006657,002743:
006658,002744:
006659,002745: # SERVICER STORAGE. (69D)
006660,002746:
006661,002747: E7,1745 E7,1501 VGBODY EQUALS SAVET-30 +2 # B(6)OUT SET.BY S41.1 VG LEM, SC.COORDS
006662,002748: E7,1745 E7,1501 DELVCTL = VGBODY
006663,002749: E7,1745 E7,1507 DVTOTAL EQUALS VGBODY +6 # B(2) DISPLAY NOUN
006664,002750: E7,1745 E7,1511 GOBLTIME EQUALS DVTOTAL +2 # B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
006665,002751: E7,1745 E7,1513 ABDVCONV EQUALS GOBLTIME +2 # I(2)
006666,002752: E7,1745 E7,1515 DVCNTR EQUALS ABDVCONV +2 # B(1)
006667,002753: E7,1745 E7,1516 TGO EQUALS DVCNTR +1 # B(2)
006668,002754: E7,1745 E7,1520 R EQUALS TGO +2 # I(6)
006669,002755: E7,1745 E7,1520 UNITGOBL EQUALS R # I(6)
006670,002756: E7,1745 E7,1526 V EQUALS R +6
006671,002757: E7,1745 E7,1526 DELVREF EQUALS V # I(6)
006672,002758: E7,1745 E7,1534 HCALC EQUALS DELVREF +6 # B(2) LR
006673,002759: E7,1745 E7,1536 UNIT/R/ EQUALS HCALC +2 # I(6)
006674,002760: # (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
006675,002761:
006676,002762: E7,1745 E7,1544 RN1 EQUALS UNIT/R/ +6 # B(6)
006677,002763: E7,1745 E7,1552 VN1 EQUALS RN1 +6 # I(6) ( IN ORDER )
006678,002764: E7,1745 E7,1560 PIPTIME1 EQUALS VN1 +6 # B(2) ( FOR )
006679,002765: E7,1745 E7,1562 GDT1/2 EQUALS PIPTIME1 +2 # I(6) ( COPY )
006680,002766: E7,1745 E7,1570 MASS1 EQUALS GDT1/2 +6 # I(2) ( CYCLE )
006681,002767: E7,1745 E7,1570 DVCNTR1 EQUALS MASS1 # B(1)TMP RESTART REG FOR DVCNTR
006682,002768: E7,1745 E7,1572 R1S EQUALS MASS1 +2 # I(6)
006683,002769: E7,1745 E7,1600 V1S EQUALS R1S +6 # I(6)
006684,002770:
006685,002771:
006686,002772: # P71 RESTART PROTECTION (2D)
006687,002773:
|
|
Page 155 |
006689,002775: E7,1745 E7,1501 TGO1 EQUALS VGBODY # B(2)TMP
006690,002776:
006691,002777:
006692,002778: # ALIGNMENT/S40.2.3 COMMON STORAGE. (18D)
006693,002779:
006694,002780: E7,1745 E7,1606 XSMD EQUALS V1S +6 # I(6)
006695,002781: E7,1745 E7,1614 YSMD EQUALS XSMD +6 # I(6)
006696,002782: E7,1745 E7,1622 ZSMD EQUALS YSMD +6 # I(6)
006697,002783:
006698,002784: E7,1745 E7,1606 XSCREF = XSMD
006699,002785: E7,1745 E7,1614 YSCREF = YSMD
006700,002786: E7,1745 E7,1622 ZSCREF = ZSMD
006701,002787:
006702,002788: E7,1745 E7,1630 END-ALIG EQUALS ZSMD +6 # NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
006703,002789:
006704,002790:
006705,002791: # **** P22 **** (34D)
006706,002792:
006707,002793: E7,1745 E7,1630 RSUBL EQUALS END-ALIG # I(6)S-S LM POSITION VECTOR
006708,002794: E7,1745 E7,1636 UCSM EQUALS RSUBL +6 # I(6)S-S VECTOR U
006709,002795: E7,1745 E7,1644 NEWVEL EQUALS UCSM +6 # I(6)S-S TERMINAL VELOCITY VECTOR
006710,002796: E7,1745 E7,1652 NEWPOS EQUALS NEWVEL +6 # I(6)S-S TERMINAL POSITION VECTOR
006711,002797: E7,1745 E7,1660 LNCHTM EQUALS NEWPOS +6 # I(2)S-S EST. LAUNCH TIME FOR LEM
006712,002798: E7,1745 E7,1662 TRANSTM EQUALS LNCHTM +2 # I(2)S-S TRANSFER TIME
006713,002799: E7,1745 E7,1664 NCSMVEL EQUALS TRANSTM +2 # I(6)S-S NEW CSM VELOCITY
006714,002800:
006715,002801:
006716,002802: # ***** P21 ***** (18D)
006717,002803:
006718,002804: E7,1745 1162 P21ORIG = DISPDEX
006719,002805: E7,1745 E7,1675 P21BASER EQUALS RLMSRCH # I(6)TMP
006720,002806: E7,1745 E7,1703 P21BASEV EQUALS P21BASER +6 # I(6)TMP
006721,002807: E7,1745 E7,1711 P21VEL EQUALS P21BASEV +6 # I(2)TMP *** NOUN 91 ***
006722,002808: E7,1745 E7,1713 P21GAM EQUALS P21VEL +2 # I(2)TMP *** NOUN 91 ***
006723,002809: E7,1745 E7,1715 P21ALT EQUALS P21GAM +2 # I(2)TMP *** NOUN 91 ***
006724,002810:
|
|
Page 156 |
006726,002812: # ******* OVERLAY NUMBER 4 IN EBANK 7 *******
006727,002813:
006728,002814:
006729,002815: # VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING) (80D)
006730,002816:
006731,002817: # THESE ERASABLES MAY BE SHARED WITH CARE
006732,002818:
006733,002819: E7,1745 E7,1544 OURTEMPS = RN1 # OVERLAY LAST PART OF SERVICER
006734,002820: E7,1745 E7,1544 LANDTEMP = OURTEMPS # B(6) GUIDANCE
006735,002821: E7,1745 E7,1552 TTF/8TMP = LANDTEMP +6 # B(2) GUIDANCE
006736,002822: E7,1745 E7,1554 ELINCR = TTF/8TMP +2 # B(2) GUIDANCE
006737,002823: E7,1745 E7,1556 AZINCR = ELINCR +2 # B(2) GUIDANCE
006738,002824: E7,1745 E7,1560 KEEP-2 = AZINCR +2 # B(2) TO PREVENT PIPTIME1 OVERLAY
006739,002825: E7,1745 E7,1562 TABLTTF = KEEP-2 +2 # B(2) GUIDANCE
006740,002826: E7,1745 E7,1573 TPIPOLD = TABLTTF +9D # B(2) GUIDANCE
006741,002827: E7,1745 E7,1621 E2DPS EQUALS OURPERMS
006742,002828:
006743,002829:
006744,002830:
006745,002831: # THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
006746,002832:
006747,002833: E7,1745 E7,1606 PIFPSET = XSMD # B(1) THROTTLE
006748,002834: E7,1745 E7,1607 RTNHOLD = PIFPSET +1 # B(1) THROTTLE
006749,002835: E7,1745 E7,1610 FWEIGHT = RTNHOLD +1 # B(2) THROTTLE
006750,002836: E7,1745 E7,1612 PIF = FWEIGHT +2 # B(2) THROTTLE
006751,002837: E7,1745 E7,1614 PSEUDO55 = PIF +2 # B(1) THROTTLE DOWNLINK
006752,002838: E7,1745 E7,1615 FC = PSEUDO55 +1 # B(2) THROTTLE
006753,002839: E7,1745 E7,1617 TTHROT = FC +2 # B(1) THROTTLE
006754,002840: E7,1745 E7,1620 FCOLD = TTHROT +1 # B(1) THROTTLE
006755,002841:
006756,002842:
006757,002843:
006758,002844: # THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
006759,002845:
006760,002846: E7,1745 E7,1621 OURPERMS = FCOLD +1 # MUSTN'T OVERLAY OURTEMPS OR SERVICER
006761,002847: E7,1745 E7,1621 WCHPHOLD = OURPERMS # B(1) GUIDANCE
006762,002848: E7,1745 E7,1622 511CTR = WCHPHOLD +1 # B(1) R12 - CONTROLS 511 ALARM
006763,002849: E7,1745 E7,1623 FLPASS0 = 511CTR +1 # B(1) GUIDANCE
006764,002850: E7,1745 E7,1623 CNTTHROT EQUALS FLPASS0 # B(1) CNT THROTS BETWEEN OMISSIONS OF P66
006765,002851: E7,1745 E7,1624 TPIP = FLPASS0 +1 # B(2)
006766,002852: E7,1745 E7,1626 VGU = TPIP +2 # B(6) GUIDANCE
006767,002853: E7,1745 E7,1634 LAND = VGU +6 # B(6) GUIDANCE CONTIGUOUS
006768,002854: E7,1745 E7,1642 TTF/8 = LAND +6 # B(2) GUIDANCE CONTIGUOUS
006769,002855: E7,1745 E7,1644 AZINCR1 = TTF/8 +2 # B(1) REDESIGNATOR
006770,002856: E7,1745 E7,1645 ELINCR1 = AZINCR1 +1 # B(1) REDESIGNATOR
006771,002857: E7,1745 E7,1646 ZERLINA = ELINCR1 +1 # B(1) REDESIGNATOR
006772,002858: E7,1745 E7,1647 ELVIRA = ZERLINA +1 # B(1) REDESIGNATOR
006773,002859: E7,1745 E7,1650 LRPOS = ELVIRA +1 # B(1) LAST LR ANTENNA POSITION
006774,002860:
006775,002861: # ** NOTE: GAP OF 1 SP LOCATION HERE IN THIS P63 THRU P66 OVERLAY **
006776,002862:
|
|
Page 157 |
006778,002864: E7,1745 E7,1652 VMEAS = LRPOS +2 # B(2) LR VELOCITY READ BY BEAM X, Y OR Z.
006779,002865: E7,1745 E7,1654 HMEAS = VMEAS +2 # B(2) LR
006780,002866: E7,1745 E7,1656 VN2 = HMEAS +2 # B(6) LR
006781,002867: E7,1745 E7,1656 GNUR = VN2 # B(6) LR
006782,002868: E7,1745 E7,1656 GNUV = VN2 # B(6) LR
006783,002869: E7,1745 E7,1664 DELTAH = VN2 +6 # B(2) DISPLAY
006784,002870: E7,1745 E7,1666 FUNNYDSP = DELTAH +2 # B(2) DISPLAY
006785,002871: E7,1745 E7,1670 EOURPERM EQUALS FUNNYDSP +2 # NEXT AVAILABLE ERASABLE AFTER OURPERMS
006786,002872: E7,1745 E7,1456 OVFRET EQUALS LOSCOUNT # B(1) RETURN FROM DESCENT OVERFLOW SUBRO
006787,002873:
006788,002874:
006789,002875:
006790,002876: # (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
006791,002877:
006792,002878: E7,1745 E7,1644 VDGVERT = AZINCR1 # B(2) DESIRED VERTICAL VELOCITY - P66
006793,002879: E7,1745 E7,1646 NIGNLOOP = ZERLINA # B(1) IGNALG
006794,002880: E7,1745 E7,1647 NGUIDSUB = ELVIRA # B(1) IGNALG
006795,002881: E7,1745 E7,1666 TREDES = FUNNYDSP # B(1) DISPLAY
006796,002882: E7,1745 E7,1667 LOOKANGL = FUNNYDSP +1 # B(1) DISPLAY
006797,002883:
006798,002884:
006799,002885: # THE END OF THE LUNAR LANDING ERASABLES
006800,002886:
006801,002887:
006802,002888:
006803,002889: # R12 (FOR LUNAR LANDING) (6D)
006804,002890:
006805,002891: E7,1745 E7,1670 LRLCTR EQUALS EOURPERM # B(1) LR DATA TEST
006806,002892: E7,1745 E7,1671 LRRCTR EQUALS LRLCTR +1 # B(1)
006807,002893: E7,1745 E7,1672 LRMCTR EQUALS LRRCTR +1 # B(1)
006808,002894: E7,1745 E7,1673 LRSCTR EQUALS LRMCTR +1 # B(1)
006809,002895: E7,1745 E7,1674 STILBADH EQUALS LRSCTR +1 # B(1)
006810,002896: E7,1745 E7,1675 STILBADV EQUALS STILBADH +1 # B(1)
006811,002897:
006812,002898:
006813,002899:
006814,002900: # LANDING ANALOGS DISPLAY STORAGE. (32D)
006815,002901:
006816,002902: E7,1745 E7,1676 G-VBIASX = STILBADV +1 # B(1) ACC DUE TO GRAVITY AND PIPA BIAS
006817,002903: E7,1745 E7,1677 G-VBIASY = G-VBIASX +1 # B(1) ACC DUE TO GRAVITY AND PIPA BIAS
006818,002904: E7,1745 E7,1700 G-VBIASZ = G-VBIASY +1 # B(1) ACC DUE TO GRAVITY AND PIPA BIAS
006819,002905: E7,1745 E7,1701 VSURFACE = G-VBIASZ +1 # B(6) LUNAR SURFACE VELOCITY
006820,002906: E7,1745 E7,1707 HCALCLAD = VSURFACE +6 # B(2) ALTITUDE IN UNITS OF 2(15) M
006821,002907: E7,1745 E7,1711 HDOTLAD = HCALCLAD +2 # B(2) ALTRATE IN UNITS OF 2(5) M/CS
006822,002908: E7,1745 E7,1713 DALTRATE = HDOTLAD +2 # B(1) DALTRATE UNITS OF 2(-9) M/CS/CS
006823,002909: E7,1745 E7,1714 RUNITX = DALTRATE +1 # B(1) X-COMPONENT OF UNIT/R/ FULL-SIZE
006824,002910: E7,1745 E7,1715 RUNITY = RUNITX +1 # B(1) Y-COMPONENT OF UNIT/R/ FULL-SIZE
006825,002911: E7,1745 E7,1716 RUNITZ = RUNITY +1 # B(1) Z-COMPONENT OF UNIT/R/ FULL-SIZE
006826,002912: E7,1745 E7,1717 DT = RUNITZ +1 # B(1) TIME SINCE LAST PIPTIME
006827,002913: E7,1745 E7,1720 VVECTX = DT +1 # B(2) X-COMPONENT OF SM REL. VELOCITY
006828,002914:
|
|
Page 158 |
006830,002916: E7,1745 E7,1722 VVECTY = VVECTX +2 # B(2) Y-COMPONENT OF SM REL. VELOCITY
006831,002917: E7,1745 E7,1724 VVECTZ = VVECTY +2 # B(2) Z-COMPONENT OF SM REL. VELOCITY
006832,002918: E7,1745 E7,1726 ALTRATE = VVECTZ +2 # B(2) ALTRATE IN UNITS OF 2(5) M/CS
006833,002919: E7,1745 E7,1730 ALTITUDE = ALTRATE +2 # B(2) ALTITUDE IN UNITS OF 2(15) M
006834,002920: E7,1745 E7,1732 LATVMETR = ALTITUDE +2 # B(1) LATERAL VELOCITY METER INDICATOR
006835,002921: E7,1745 E7,1733 FORVMETR = LATVMETR +1 # B(1) FORWARD VELOCITY METER INDICATOR
006836,002922: E7,1745 E7,1734 FORVEL = FORVMETR +1 # B(2) FORWARD VELOCITY FOR DSKY (N60)
006837,002923: E7,1745 E7,1722 PIPCTR1 = VVECTY # B(1) TEMPORARY FOR PIPCTR
006838,002924:
006839,002925:
006840,002926: E7,1745 0063 ALTRTEMP = ITEMP3 # B(2) ALTITUDE-RATE TEMPORARY
006841,002927: E7,1745 0063 ALTTEMP = ITEMP3 # B(2) ALTITUDE TEMPORARY
006842,002928: E7,1745 0063 VHY = ITEMP3 # B(2) VELOCITY ALONG UHYP (I.E. SM-Y)
006843,002929: E7,1745 0065 VHZ = ITEMP5 # B(2) VELOCITY ALONG UHZP
006844,002930: E7,1745 0070 FORVTEMP = RUPTREG1 # B(2) FORWARD VELOCITY TEMPORARY
006845,002931: E7,1745 0072 LATVEL = RUPTREG3 # B(2) LATERAL VELOCITY TEMPORARY
006846,002932:
006847,002933:
006848,002934:
006849,002935: # DOWNLINK QTY -- GOOD THROUGHOUT LANDING -- LOADED IN SERVICER (2D)
006850,002936:
006851,002937: E7,1745 E7,1736 TRUDELH EQUALS FORVEL +2 # I(2)DNLK TRUE DELTA H FOR DOWNLINK,
006852,002938: # LOADED BEFORE ENTERING TERRAIN MODEL
006853,002939:
006854,002940:
006855,002941: # P66 ERASABLES (HORIZONTAL VELOCITY NULLING GUIDANCE)
006856,002942: E7,1745 E7,1433 VHZC EQUALS DELVLVC # B(6) VELOCITY HORIZONTAL COMMAND
006857,002943:
006858,002944:
006859,002945:
006860,002946: # P66 ERASABLES (R.O.D.) (1D)
006861,002947:
006862,002948: E7,1745 E7,1746 RODCOUNT EQUALS R65CNTR +1 # B(1) ROD CLICK COUNTER
006863,002949:
006864,002950:
006865,002951: # P66 ERASABLES (R.O.D.) (14D)
006866,002952:
006867,002953: # **** NOTE: OLDPIPAX,Y,Z AND DELVROD MUST BE KEPT ADJACENT AND IN THAT ORDER FOR P66 INITIALIZATIONS ****
006868,002954:
006869,002955: E7,1745 E7,1756 RODSCAL1 EQUALS RM # B(1)
006870,002956: E7,1745 E7,1757 LASTTPIP EQUALS RODSCAL1 +1 # I(2)
006871,002957: E7,1745 E7,1761 THISTPIP EQUALS LASTTPIP +2 # B(2)
006872,002958: E7,1745 E7,1763 OLDPIPAX EQUALS THISTPIP +2 # B(1)
006873,002959: E7,1745 E7,1764 OLDPIPAY EQUALS OLDPIPAX +1 # B(1)
006874,002960: E7,1745 E7,1765 OLDPIPAZ EQUALS OLDPIPAY +1 # B(1)
006875,002961: E7,1745 E7,1766 DELVROD EQUALS OLDPIPAZ +1 # B(6)
006876,002962:
006877,002963:
006878,002964:
006879,002965: # TERRAIN MODEL TEMPORARY -- LOADED IN SERVICER (2D)
006880,002966:
|
|
Page 159 |
006882,002968: E7,1745 E7,1766 TEMDELH EQUALS DELVROD # I(2)TMP STORES TRUE DELTAH IN TER. MOD.
006883,002969:
006884,002970:
006885,002971: # NOUN 63 COMPONENT (2D)
006886,002972: E7,1745 E7,1774 HCALC1 EQUALS DELVROD +6 # I(2)
006887,002973:
006888,002974:
006889,002975: # LANDING RADAR DOWNLINK (2D)
006890,002976: E7,1745 E7,1776 HMEASDL EQUALS HCALC1 +2 # B(2)
006891,002977:
006892,002978:
|
|
Page 160 |
006894,002980: # ******* OVERLAY NUMBER 5 IN EBANK 7 *******
006895,002981:
006896,002982:
006897,002983:
006898,002984:
006899,002985: # ASCENT GUIDANCE ERASABLES. (21D)
006900,002986:
006901,002987: E7,1745 E7,1630 RCO EQUALS END-ALIG # I(2)TMP TARGET RADIUS AND OUT-OF-PLANE
006902,002988: E7,1745 E7,1632 YCO EQUALS RCO +2 # I(2)TMP DISTANCE, SCALED AT 2(24).
006903,002989: E7,1745 E7,1634 1/DV1 EQUALS YCO +2 # B(2)TMP ATMAG
006904,002990: E7,1745 E7,1636 1/DV2 EQUALS 1/DV1 +2 # B(2)TMP ATMAG
006905,002991: E7,1745 E7,1640 1/DV3 EQUALS 1/DV2 +2 # B(2)TMP ATMAG
006906,002992: E7,1745 E7,1642 XRANGE EQUALS 1/DV3 +2 # B(2)TMP
006907,002993: E7,1745 E7,1644 ENGOFFDT EQUALS XRANGE +2 # B(1)TMP
006908,002994: E7,1745 E7,1645 VGVECT EQUALS ENGOFFDT +1 # I(6)OUT VELOCITY-TO-BE-GAINED
006909,002995: E7,1745 E7,1653 TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
006910,002996: # IS ALLOWED.
006911,002997:
006912,002998: E7,1745 E7,1570 1/DV0 EQUALS MASS1 # B(2)TMP ATMAG TEMPORARY
006913,002999:
006914,003000:
006915,003001: # END OF THE ASCENT GUIDANCE ERASABLES.
006916,003002:
006917,003003: E7,1745 END-E7 EQUALS 3777 # ** LAST LOCATION USED IN E7 **
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc