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