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