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