GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
001417,000002: ## Copyright: Public domain.
001418,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
001419,000004: ## Purpose: Part of the source code for Colossus build 237.
001420,000005: ## This is for the Command Module's (CM) Apollo Guidance
001421,000006: ## Computer (AGC), for Apollo 8.
001422,000007: ## Assembler: yaYUL
001423,000008: ## Contact: Sergio Navarro <sergionavarrog@gmail.com>
001424,000009: ## Website: www.ibiblio.org/apollo/index.html
001425,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
001426,000011: ## Mod history: 2009-10-21 SN Adapted from corresponding Colossus 249 file.
001427,000012: ## 2011-01-22 JL Minor fixes to whitespace and comments.
001428,000013: ## 2011-04-27 JL Fixed symbol name.
001429,000014: ## 2016-12-29 RSB Proofed comment text using octopus/ProoferComments,
001430,000015: ## and corrected errors found.
001431,000016: ## 2017-01-08 RSB Fixed comment errors detected in cross-diff vs
001432,000017: ## Colossus 249, but only through page 87 of Colossus
001433,000018: ## 249 -- page 86 of Colossus 237 -- so far.
001434,000019: ## 2017-01-12 RSB Completed the 3-way cross-proofing.
001435,000020: ## 2017-01-22 RSB Back-ported comment error fixes detected in diff'ing
001436,000021: ## Artemis 72 vs Comanche 55.
001437,000022: ## 2021-05-30 ABS NORMSBIT -> NDRMSBIT
001438,000023: ## GONBYBIT -> G0NBYBIT
001439,000024: ## CGF -> OGF
001440,000025:
|
|
Page 34 |
001442,000027:
001443,000028: # CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
001444,000029:
001445,000030: # EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP
001446,000031: # OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
001447,000032: # CHANGING OF ONLY ONE CARD. EXAMPLE.
001448,000033:
001449,000034: # X EQUALS START
001450,000035: # Y EQUALS X +SIZE.X
001451,000036: # Z EQUALS Y +SIZE.Y
001452,000037:
001453,000038: # (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START. )
001454,000039: # (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
001455,000040: # USUALLY NUMERIC, IE. 1, 2, 6, 18D ETC. )
001456,000041:
001457,000042: # EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
001458,000043: # AND DIFFERENT DATA). EXAMPLE.
001459,000044:
001460,000045: # X EQUALS Y
001461,000046:
001462,000047: # = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
001463,000048: # (THIS IS LOGICAL EQUIVALENCE, NOT SHARING) EXAMPLE.
001464,000049:
001465,000050: # X = Y
001466,000051:
001467,000052: # THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
001468,000053: # THE COMMENTS IN THE FOLLOWING FORM. M(SIZE)N.
001469,000054:
001470,000055: # M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
001471,000056: # B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
001472,000057: # INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
001473,000058: # I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
001474,000059: # INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
001475,000060: # INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
001476,000061:
001477,000062: # SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
001478,000063:
001479,000064: # N INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
001480,000065: # PL MEANS THAT THE CONTENTS ARE PAD LOADED.
001481,000066: # DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
001482,000067: # PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
001483,000068: # IS USED DURING THE ENTIRE MISSION FOR ONE
001484,000069: # PURPOSE AND CANNOT BE SHARED.
001485,000070: # TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
001486,000071: # IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
001487,000072: # IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET
001488,000073: # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
001489,000074: # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS
|
|
Page 35 |
001491,000076: # IT MAY BE SHARED WITH ANY OTHER ROUTINE WHICH
001492,000077: # IS NOT ACTIVE IN PARALLEL.
001493,000078: # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
001494,000079: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001495,000080: # OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
001496,000081: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001497,000082:
|
|
Page 36 |
001499,000084:
001500,000085: # SPECIAL REGISTERS.
001501,000086:
001502,000087: 37,2001 A EQUALS 0
001503,000088: 37,2001 L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS.
001504,000089: 37,2001 Q EQUALS 2
001505,000090: 37,2001 EBANK EQUALS 3
001506,000091: 37,2001 FBANK EQUALS 4
001507,000092: 37,2001 Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
001508,000093: 37,2001 BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
001509,000094: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
001510,000095:
001511,000096: 37,2001 ARUPT EQUALS 10 # INTERRUPT STORAGE.
001512,000097: 37,2001 LRUPT EQUALS 11
001513,000098: 37,2001 QRUPT EQUALS 12
001514,000099: 37,2001 SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2.
001515,000100: 37,2001 ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
001516,000101: 37,2001 BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
001517,000102: 37,2001 BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
001518,000103:
001519,000104: 37,2001 CYR EQUALS 20
001520,000105: 37,2001 SR EQUALS 21
001521,000106: 37,2001 CYL EQUALS 22
001522,000107: 37,2001 EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
001523,000108:
001524,000109: 37,2001 TIME2 EQUALS 24
001525,000110: 37,2001 TIME1 EQUALS 25
001526,000111: 37,2001 TIME3 EQUALS 26
001527,000112: 37,2001 TIME4 EQUALS 27
001528,000113: 37,2001 TIME5 EQUALS 30
001529,000114: 37,2001 TIME6 EQUALS 31
001530,000115: 37,2001 CDUX EQUALS 32
001531,000116: 37,2001 CDUY EQUALS 33
001532,000117: 37,2001 CDUZ EQUALS 34
001533,000118: 37,2001 CDUT EQUALS 35 # OPTICS TRUNNION CDU (WAS OPTY).
001534,000119: 37,2001 0000035 OPTY = CDUT
001535,000120: 37,2001 CDUS EQUALS 36 # OPTICS SHAFT CDU (WAS OPTX).
001536,000121: 37,2001 0000036 OPTX = CDUS
001537,000122: 37,2001 PIPAX EQUALS 37
001538,000123: 37,2001 PIPAY EQUALS 40
001539,000124: 37,2001 PIPAZ EQUALS 41
001540,000125: 37,2001 BMAGX EQUALS 42
001541,000126: 37,2001 BMAGY EQUALS 43
001542,000127: 37,2001 BMAGZ EQUALS 44
001543,000128: 37,2001 INLINK EQUALS 45
001544,000129: 37,2001 RNRAD EQUALS 46
001545,000130: 37,2001 GYROCTR EQUALS 47
001546,000131: 37,2001 GYROCMD EQUALS 47
001547,000132: 37,2001 CDUXCMD EQUALS 50
001548,000133: 37,2001 CDUYCMD EQUALS 51
|
|
Page 37 |
001550,000135: 37,2001 CDUZCMD EQUALS 52
001551,000136: 37,2001 CDUTCMD EQUALS 53 # OPTICS TRUNNION COMMAND (WAS OPTYCMD).
001552,000137: 37,2001 0000053 OPTYCMD = CDUTCMD
001553,000138: 37,2001 0000053 TVCYAW EQUALS CDUTCMD # SPS YAW COMMAND IN TVC MODE.
001554,000139: 37,2001 CDUSCMD EQUALS 54 # OPTICS SHAFT COMMAND (WAS OPTXCMD).
001555,000140: 37,2001 0000054 TVCPITCH EQUALS CDUSCMD # SPS PITCH COMMAND IN TVC MODE.
001556,000141: 37,2001 0000054 OPTXCMD = CDUSCMD
001557,000142: 37,2001 EMSD EQUALS 55
001558,000143: 37,2001 THRUST EQUALS 55
001559,000144: 37,2001 LEMONM EQUALS 56
001560,000145: 37,2001 OUTLINK EQUALS 57
001561,000146: 37,2001 ALTM EQUALS 60
001562,000147:
001563,000148:
001564,000149: # INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
001565,000150:
001566,000151: 37,2001 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
001567,000152: 37,2001 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
001568,000153: 37,2001 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTERS RELATIVE
001569,000154: 37,2001 X2 EQUALS 39D # TO THE WORK AREA.
001570,000155: 37,2001 S1 EQUALS 40D
001571,000156: 37,2001 S2 EQUALS 41D
001572,000157: 37,2001 QPRET EQUALS 42D
001573,000158:
|
|
Page 38 |
001575,000160: # INPUT/OUTPUT CHANNELS
001576,000161:
001577,000162: # *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
001578,000163: 37,2001 0000001 LCHAN EQUALS L
001579,000164: 37,2001 0000002 QCHAN EQUALS Q
001580,000165: 37,2001 HISCALAR EQUALS 3
001581,000166: 37,2001 LOSCALAR EQUALS 4
001582,000167: 37,2001 PYJETS EQUALS 5
001583,000168: 37,2001 ROLLJETS EQUALS 6
001584,000169: 37,2001 SUPERBNK EQUALS 7
001585,000170: 37,2001 OUT0 EQUALS 10
001586,000171: 37,2001 DSALMOUT EQUALS 11
001587,000172: 37,2001 CHAN12 EQUALS 12
001588,000173: 37,2001 CHAN13 EQUALS 13
001589,000174: 37,2001 CHAN14 EQUALS 14
001590,000175: 37,2001 MNKEYIN EQUALS 15
001591,000176: 37,2001 NAVKEYIN EQUALS 16
001592,000177: 37,2001 CHAN30 EQUALS 30
001593,000178: 37,2001 CHAN31 EQUALS 31
001594,000179: 37,2001 CHAN32 EQUALS 32
001595,000180: 37,2001 CHAN33 EQUALS 33
001596,000181: 37,2001 DNTM1 EQUALS 34
001597,000182: 37,2001 DNTM2 EQUALS 35
001598,000183: # END OF CHANNEL ASSIGNMENTS
001599,000184:
|
|
Page 39 |
001601,000186:
001602,000187: # FLAGWORDS
001603,000188:
001604,000189:
001605,000190: # FLAGWRD0 STATE +0 (000-014)
001606,000191: # FLAGWRD1 STATE +1 (015-029)
001607,000192: # FLAGWRD2 STATE +2 (030-044)
001608,000193: # FLAGWRD3 STATE +3 (045-059)
001609,000194: # FLAGWRD4 STATE +4 (060-074)
001610,000195: # FLAGWRD5 STATE +5 (075-089)
001611,000196: # FLAGWRD6 STATE +6 (090-104)
001612,000197: # FLAGWRD7 STATE +7 (105-119)
001613,000198: # FLAGWRD8 STATE +8D (120-134)
001614,000199: # FLAGWRD9 STATE +9D (135-149)
001615,000200:
001616,000201:
001617,000202: # SORTED LIST OF
001618,000203:
001619,000204: # INTERPITIVE SWITCH BIT ASSIGNMENTS
001620,000205:
001621,000206: # INTERPRETIVE SWITCH BIT ASSIGNMENTS
001622,000207: # FLAGWORD DEC NUM BIT + FLAG EQUIVALENT FLAGWORDS
001623,000208:
001624,000209: # 22DSPFLG 032D BIT 13 FLAG 2
001625,000210: # 360SW 134D BIT 1 FLAG 8
001626,000211: # 3AXISFLG 084D BIT 6 FLAG 5
001627,000212: # ADVTRK 125D BIT 10 FLAG 8
001628,000213: # APSESW 130D BIT 5 FLAG 8
001629,000214: # ASTNFLAG 108D BIT 12 FLAG 7
001630,000215: # ATTCHFLG 118D BIT 2 FLAG 7
001631,000216: # AVEGFLAG 029D BIT 1 FLAG 1
001632,000217: # AVEMIDSW 149D BIT 1 FLAG 9
001633,000218: # AVFLAG 040D BIT 5 FLAG 2
001634,000219: # CALCMAN2 043D BIT 2 FLAG 2
001635,000220: # CALCMAN3 042D BIT 3 FLAG 2
001636,000221: # CMDAPARM 093D BIT 12 FLAG 6
001637,000222: # CMOONFLG 123D BIT 12 FLAG 8
001638,000223: # CM/DSTBY 103D BIT 2 FLAG 6
001639,000224: # COGAFLAG 131D BIT 4 FLAG 8
001640,000225: # COMPUTER 082D BIT 8 FLAG 5
001641,000226: # CPHIFLAG 000D BIT 15 FLAG 0
001642,000227: # CULTFLAG 053D BIT 7 FLAG 3
001643,000228: # CYCLESW 035D BIT 10 FLAG 2
001644,000229: # D6OR9FLG 058D BIT 2 FLAG 3
001645,000230: # DAPBIT1 090D BIT 15 FLAG 6
001646,000231: # DAPBIT2 091D BIT 14 FLAG 6
001647,000232: # DIM0FLAG 059D BIT 1 FLAG 3
001648,000233: # DMENFLG 081D BIT 9 FLAG 5
001649,000234: # DRIFTFLG 030D BIT 15 FLAG 2
001650,000235: # DSKYFLAG 075D BIT 15 FLAG 5
|
|
Page 40 |
001652,000237: # EGSW 97D BIT 8 FLAG 6 KNOWNFLG R57FLAG
001653,000238: # ENG1FLAG 018D BIT 12 FLAG 1
001654,000239: # ENG2FLAG 019D BIT 11 FLAG 1
001655,000240: # ENGONFLG 083D BIT 7 FLAG 5
001656,000241: # ERADFLAG 017D BIT 13 FLAG 1
001657,000242: # ETPIFLAG 038D BIT 7 FLAG 2 FIRSTFLG OPTNSW
001658,000243: # F2RTE 10D BIT 5 FLAG 0
001659,000244: # FINALFLG 039D BIT 6 FLAG 2
001660,000245: # FIRSTFLG 38D BIT 7 FLAG 2 ETPIFLAG OPTNSW
001661,000246: # FREEFLAG 012D BIT 3 FLAG 0
001662,000247: # GAMDIFSW 094D BIT 11 FLAG 6
001663,000248: # GLOKFAIL 046D BIT 14 FLAG 3
001664,000249: # GMBDRVSW 095D BIT 10 FLAG 6 GONEPAST
001665,000250: # GONEBY 112D BIT 8 FLAG 7
001666,000251: # GONEPAST 095D BIT 10 FLAG 6 GMBDRVSW
001667,000252: # GRRBKFLG 085D BIT 5 FLAG 5
001668,000253: # GUESSW 028D BIT 2 FLAG 1
001669,000254: # GYMDIFSW 104D BIT 1 FLAG 6
001670,000255: # .05GSW 102D BIT 3 FLAG 6
001671,000256: # HIND 099D BIT 6 FLAG 6
001672,000257: # IDLEFAIL 024D BIT 6 FLAG 1
001673,000258: # IDLEFLAG 113D BIT 7 FLAG 7
001674,000259: # IGNFLAG 107D BIT 13 FLAG 7
001675,000260: # IMPULSW 036D BIT 9 FLAG 2
001676,000261: # IMUSE 007D BIT 8 FLAG 0
001677,000262: # INCORFLG 079D BIT 11 FLAG 5
001678,000263: # INFINFLG 128D BIT 7 FLAG 8
001679,000264: # INRLSW 100D BIT 5 FLAG 6
001680,000265: # INTFLAG 151D BIT 14 FLAG 10
001681,000266: # INTYPFLG 056D BIT 4 FLAG 3
001682,000267: # ITSWICH 106D BIT 14 FLAG 7
001683,000268: # KFLAG 014D BIT 1 FLAG 0
001684,000269: # KNOWNFLG 097D BIT 8 FLAG 6 EGSW R57FLAG
001685,000270: # LATSW 101D BIT 4 FLAG 6
001686,000271: # LMOONFLG 124D BIT 11 FLAG 8
001687,000272: # LUNAFLAG 048D BIT 12 FLAG 3
001688,000273: # MAXDBFLG 138D BIT 12 FLAG 9
001689,000274: # MGLVFLAG 088D BIT 2 FLAG 5
001690,000275: # MID1FLAG 147D BIT 3 FLAG 9
001691,000276: # MIDAVFLG 148D BIT 2 FLAG 9
001692,000277: # MIDFLAG 002D BIT 13 FLAG 0
001693,000278: # MKOVFLAG 072D BIT 3 FLAG 4
001694,000279: # MOONFLAG 003D BIT 12 FLAG 0
001695,000280: # MRKIDFLG 060D BIT 15 FLAG 4
001696,000281: # MRKNVFLG 066D BIT 9 FLAG 4
001697,000282: # MRUPTFLG 070D BIT 5 FLAG 4
001698,000283: # MWAITFLG 064D BIT 11 FLAG 4
001699,000284: # N22ORN17 144D BIT 6 FLAG 9
001700,000285: # NEEDLFLG 006D BIT 9 FLAG 0
001701,000286: # NEWIFLG 122D BIT 13 FLAG 8
|
|
Page 41 |
001703,000288: # NJETSFLG 015D BIT 15 FLAG 1
001704,000289: # NODOFLAG 044D BIT 1 FLAG 2
001705,000290: # NORFHOR 004D BIT 11 FLAG 0
001706,000291: # NORMSW 110D BIT 10 FLAG 7
001707,000292: # NOSWITCH 098D BIT 7 FLAG 6
001708,000293: # NRMIDFLG 062D BIT 13 FLAG 4
001709,000294: # NRMNVFLG 067D BIT 8 FLAG 4
001710,000295: # NRUPTFLG 071D BIT 4 FLAG 4
001711,000296: # NTARGFLG 102D BIT 3 FLAG 6
001712,000297: # NWAITFLG 065D BIT 10 FLAG 4
001713,000298: # OPTNSW 038D BIT 7 FLAG 2 ETPIFLAG FIRSTFLG
001714,000299: # ORBWFLAG 054D BIT 6 FLAG 3
001715,000300: # ORDERSW 129D BIT 6 FLAG 8
001716,000301: # P22MKFLG 49D BIT 11 FLAG 3
001717,000302: # P39/79SW 126D BIT 9 FLAG 8
001718,000303: # PDSPFLAG 063D BIT 12 FLAG 4
001719,000304: # PFRATFLG 041D BIT 4 FLAG 2
001720,000305: # PINBRFLG 069D BIT 6 FLAG 4
001721,000306: # PRECIFLG 052D BIT 8 FLAG 3
001722,000307: # PRFTRKAT 080D BIT 10 FLAG 5
001723,000308: # PRIODFLG 061D BIT 14 FLAG 4
001724,000309: # PRONVFLG 068D BIT 7 FLAG 4
001725,000310: # QUITFLAG 145D BIT 5 FLAG 9
001726,000311: # R21MARK 031D BIT 14 FLAG 2
001727,000312: # R22CAFLG 143D BIT 7 FLAG 9
001728,000313: # R23FLG 021D BIT 9 FLAG 1
001729,000314: # R31FLAG 146D BIT 4 FLAG 9
001730,000315: # R53FLAG 009D BIT 6 FLAG 0
001731,000316: # R57FLAG 097D BIT 8 FLAG 6 KNOWNFLG EGSW
001732,000317: # R60FLAG 086D BIT 4 FLAG 5
001733,000318: # REFSMFLG 047D BIT 13 FLAG 3
001734,000319: # REINTFLG 158D BIT 7 FLAG 10
001735,000320: # RELVELSW 096D BIT 9 FLAG 6
001736,000321: # RENDWFLG 089D BIT 1 FLAG 5
001737,000322: # RNDVZFLG 008D BIT 7 FLAG 0
001738,000323: # RPQFLAG 120D BIT 15 FLAG 8
001739,000324: # RVSW 111D BIT 9 FLAG 7
001740,000325: # SAVECFLG 140D BIT 10 FLAG 9
001741,000326: # SLOPESW 027D BIT 3 FLAG 1
001742,000327: # SOLNSW 087D BIT 3 FLAG 5
001743,000328: # SOURCFLG 142D BIT 8 FLAG 9
001744,000329: # STATEFLG 055D BIT 5 FLAG 3
001745,000330: # STEERSW 034D BIT 11 FLAG 2
001746,000331: # STIKFLAG 016D BIT 14 FLAG 1
001747,000332: # STRULLSW 92D BIT 13 FLAG 6
001748,000333: # SURFFLAG 127D BIT 8 FLAG 8
001749,000334: # SWTOVER 135D BIT 15 FLAG 9
001750,000335: # TARG1FLG 020D BIT 10 FLAG 1
001751,000336: # TARG2FLG 021D BIT 9 FLAG 1
001752,000337: # TERMIFLG 105D BIT 15 FLAG 7
|
|
Page 42 |
001754,000339: # TFFSW 119D BIT 1 FLAG 7
001755,000340: # TIMRFLAG 109D BIT 11 FLAG 7
001756,000341: # TRACKFLG 025D BIT 5 FLAG 1
001757,000342: # TRM03FLG 26D BIT 4 FLAG 1
001758,000343: # TRUNFLAG 011D BIT 4 FLAG 0
001759,000344: # UPDATFLG 023D BIT 7 FLAG 1
001760,000345: # UPLOCKFL 116D BIT 4 FLAG 7
001761,000346: # V37FLAG 114D BIT 6 FLAG 7
001762,000347: # V59FLAG 078D BIT 12 FLAG 5
001763,000348: # V67FLAG 136D BIT 14 FLAG 9
001764,000349: # V82EMFLG 137D BIT 13 FLAG 9
001765,000350: # V94FLAG 139D BIT 11 FLAG 9
001766,000351: # VEHUPFLG 022D BIT 8 FLAG 1
001767,000352: # VERIFLAG 117D BIT 3 FLAG 7
001768,000353: # VFLAG 050D BIT 10 FLAG 3
001769,000354: # VHFRFLAG 141D BIT 9 FLAG 9
001770,000355: # VINTFLAG 057D BIT 3 FLAG 3
001771,000356: # XDELVFLG 037D BIT 8 FLAG 2
001772,000357: # XDSPFLAG 074D BIT 1 FLAG 4
001773,000358:
|
|
Page 43 |
001775,000360:
001776,000361: # INTERPRETIVE SWITCH BIT ASSIGNMENTS
001777,000362: 37,2001 0074 FLAGWRD0 = STATE +0 # (000-014)
001778,000363:
001779,000364: # (SET) (RESET)
001780,000365:
001781,000366: # BIT 15 FLAG 0
001782,000367: 37,2001 CPHIFLAG = 000D # OUTPUT OF CALCGA IS OUTPUT OF CALCGA IS
001783,000368: # CPHIX THETAD
001784,000369:
001785,000370: 37,2001 4674 CPHIBIT = BIT15
001786,000371:
001787,000372: # BIT 14 FLAG 0
001788,000373: 37,2001 JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE
001789,000374: # MATRIX VECTOR
001790,000375:
001791,000376: 37,2001 4675 JSWCHBIT = BIT14
001792,000377:
001793,000378: # BIT 13 FLAG 0
001794,000379: 37,2001 MIDFLAG = 002D # INTEGRATION WITH INTEGRATION WITHOUT
001795,000380: # SOLAR PERTURBATIONS SOLAR PERTURBATIONS
001796,000381:
001797,000382: 37,2001 4676 MIDFLBIT = BIT13
001798,000383:
001799,000384: # BIT 12 FLAG 0
001800,000385: 37,2001 MOONFLAG = 003D # MOON IS SPHERE OF EARTH IS SPHERE OF
001801,000386: # INFLUENCE INFLUENCE
001802,000387:
001803,000388: 37,2001 4677 MOONBIT = BIT12
001804,000389:
001805,000390: # BIT 11 FLAG 0
001806,000391: 37,2001 NORFHOR = 004D # FAR HORIZON NEAR HORIZON
001807,000392:
001808,000393:
001809,000394: 37,2001 4700 NORFBIT = BIT11
001810,000395:
001811,000396: # BIT 10 FLAG 0
001812,000397: 37,2001 ZMEASURE = 005D # MEASUREMENT PLANET MEASUREMENT PLANET
001813,000398: # AND PRIMARY PLANET AND PRIMARY PLANET
001814,000399: # DIFFERENT SAME
001815,000400:
001816,000401: 37,2001 4701 ZMEASBIT = BIT10
001817,000402:
001818,000403: # BIT 9 FLAG 0
001819,000404: 37,2001 NEEDLFLG = 006D # TOTAL ATTIDUDE A/P FOLLOWING ERROR
001820,000405: # ERROR DISPLAYED DISPLAYED
001821,000406:
001822,000407: 37,2001 4702 NEEDLBIT = BIT9
001823,000408:
001824,000409: # BIT 8 FLAG 0
001825,000410: 37,2001 IMUSE = 007D # IMU IN USE IMU NOT IN USE
001826,000411:
|
|
Page 44 |
001828,000413: 37,2001 4703 IMUSEBIT = BIT8
001829,000414:
001830,000415: # BIT 7 FLAG 0
001831,000416: 37,2001 RNDVZFLG = 008D # P20 RUNNING P20 NOT RUNNING
001832,000417: 37,2001 4704 RNDVZBIT = BIT7
001833,000418:
001834,000419: # BIT 6 FLAG 0
001835,000420: 37,2001 R53FLAG = 009D # V51 INITIATED V51 NOT INITIATED
001836,000421:
001837,000422:
001838,000423: 37,2001 4705 R53FLBIT = BIT6
001839,000424:
001840,000425: # BIT 5 FLAG 0
001841,000426: 37,2001 F2RTE = 010D # IN TIME CRITICAL NOT IN TIME CRITICAL
001842,000427: # MODE MODE
001843,000428:
001844,000429: 37,2001 4706 F2RTEBIT = BIT5
001845,000430:
001846,000431: # BIT 4 FLAG 0
001847,000432: 37,2001 TRUNFLAG = 011D # DRIVING OF TRUNNION DRIVING OF TRUNNION
001848,000433: # ALLOWED NOT ALLOWED
001849,000434:
001850,000435: 37,2001 4707 TRUNBIT = BIT4
001851,000436:
001852,000437: # BIT 3 FLAG 0
001853,000438: 37,2001 FREEFLAG = 012D # (TEMPORARY FLAG USED IN MANY ROUTINES)
001854,000439:
001855,000440: 37,2001 4710 FREEFBIT = BIT3
001856,000441:
001857,000442: # BIT 2 FLAG 0
001858,000443: # = 013D
001859,000444:
001860,000445: # BIT 1 FLAG 0
001861,000446: 37,2001 KFLAG = 014D # SEARCH SECTOR MORE SEARCH SECTOR LESS
001862,000447: # THAN 180 DEGREES THAN 180 DEGREES
001863,000448:
001864,000449: 37,2001 4712 KBIT = BIT1
001865,000450:
001866,000451: 37,2001 0075 FLAGWRD1 = STATE +1 # (015-029)
001867,000452:
001868,000453: # (SET) (RESET)
001869,000454:
001870,000455: # BIT 15 FLAG 1
001871,000456: 37,2001 NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN
001872,000457:
001873,000458: 37,2001 4674 NJETSBIT = BIT15
001874,000459:
001875,000460: # BIT 14 FLAG 1
001876,000461: 37,2001 STIKFLAG = 016D # RHC CONTROL CMC CONTROL
001877,000462:
|
|
Page 45 |
001879,000464: 37,2001 4675 STIKBIT = BIT14
001880,000465:
001881,000466: # BIT 13 FLAG 1
001882,000467: 37,2001 ERADFLAG = 017D # EARTH, COMPUTE EARTH, USE FIXED
001883,000468: # FISCHER ELLIPSOID RADIUS
001884,000469: # RADIUS
001885,000470: # MOON, USE FIXED MOON, USE RLS FOR
001886,000471: # RADIUS LUNAR RADIUS
001887,000472:
001888,000473:
001889,000474: 37,2001 4676 ERADFBIT = BIT13
001890,000475:
001891,000476: # BIT 12 FLAG 1
001892,000477: # = 018D
001893,000478:
001894,000479:
001895,000480: # BIT 11 FLAG 1
001896,000481: 37,2001 ENG2FLAG = 019D # RCS BURN SPS BURN
001897,000482:
001898,000483: 37,2001 4700 ENG2BIT = BIT11
001899,000484:
001900,000485: # BIT 10 FLAG 1
001901,000486: 37,2001 TARG1FLG = 020D # SIGHTING LEM NOT SIGHTING LEM
001902,000487:
001903,000488: 37,2001 4701 TARG1BIT = BIT10
001904,000489:
001905,000490: # BIT 9 FLAG 1
001906,000491: 37,2001 TARG2FLG = 021D # SIGHTING LANDMARK SIGHTING STAR
001907,000492:
001908,000493: 37,2001 4702 TARG2BIT = BIT9
001909,000494:
001910,000495: # BIT 9 FLAG 1
001911,000496: 37,2001 R23FLG = 021D # R23 MARKING R21 MARKING
001912,000497:
001913,000498:
001914,000499: 37,2001 4702 R23BIT = BIT9
001915,000500:
001916,000501: # BIT 8 FLAG 1
001917,000502: 37,2001 VEHUPFLG = 022D # CSM STATE VECTOR LEM STATE VECTOR
001918,000503: # BEING UPDATED BEING UPDATED
001919,000504:
001920,000505: 37,2001 4703 VEHUPBIT = BIT8
001921,000506:
001922,000507: # BIT 7 FLAG 1
001923,000508: 37,2001 UPDATFLG = 023D # UPDATING BY MARKS UPDATING BY MARKS
001924,000509: # ALLOWED NOT ALLOWED
001925,000510:
001926,000511: 37,2001 4704 UPDATBIT = BIT7
001927,000512:
001928,000513: # BIT 6 FLAG 1
|
|
Page 46 |
001930,000515: 37,2001 IDLEFAIL = 024D # INHIBIT R41 ENABLE R41 (ENGFAIL)
001931,000516:
001932,000517: 37,2001 4705 IDLEBIT = BIT6
001933,000518:
001934,000519: # BIT 5 FLAG 1
001935,000520: 37,2001 TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED
001936,000521:
001937,000522: 37,2001 4706 TRACKBIT = BIT5
001938,000523:
001939,000524: # BIT 4 FLAG 1
001940,000525: 37,2001 TRM03FLG = 26D # REQUEST TO NO REQUEST TO
001941,000526: 37,2001 4707 TRM03BIT = BIT4 # TERMINATE P03 HAS TERMINATE P03 HAS
001942,000527: # BEEN ENTERED BEEN ENTERED
001943,000528:
001944,000529:
001945,000530: # BIT 3 FLAG 1
001946,000531: 37,2001 SLOPESW = 27D # ITERATE WITH BIAS ITERATE WITH REGULA
001947,000532: # METHOD IN ITERATOR FALSI METHOD IN
001948,000533: # ITERATOR
001949,000534:
001950,000535:
001951,000536: 37,2001 4710 SLOPEBIT = BIT3
001952,000537:
001953,000538: # BIT 2 FLAG 1
001954,000539: 37,2001 GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR
001955,000540: # FOR ITERATION ITERATION EXISTS
001956,000541:
001957,000542: 37,2001 4711 GUESSBIT = BIT2
001958,000543:
001959,000544: # BIT 1 FLAG 1
001960,000545: 37,2001 AVEGFLAG = 029D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
001961,000546: # TO CONTINUE TO CEASE
001962,000547:
001963,000548: 37,2001 4712 AVEGBIT = BIT1
001964,000549:
001965,000550: 37,2001 0076 FLAGWRD2 = STATE +2 # (030-044)
001966,000551:
001967,000552: # (SET) (RESET)
001968,000553:
001969,000554: # BIT 15 FLAG 2
001970,000555: 37,2001 DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO
001971,000556: # COMPENSATION COMPENSATION
001972,000557:
001973,000558: 37,2001 4674 DRFTBIT = BIT15
001974,000559:
001975,000560: # BIT 14 FLAG 2
001976,000561: 37,2001 R21MARK = 031D # OPTION ONE FOR OPTION TWO FOR
001977,000562: # MARKRUPT MARKRUPT
001978,000563:
001979,000564: 37,2001 4675 R21BIT = BIT14
001980,000565:
|
|
Page 47 |
001982,000567: # BIT 13 FLAG 2
001983,000568: 37,2001 22DSPFLG = 032D # DISPLAY DR,DV DO NOT DISPLAY DR,DV
001984,000569:
001985,000570:
001986,000571: 37,2001 4676 22DSPBIT = BIT13
001987,000572:
001988,000573: # BIT 12 FLAG 2
001989,000574: # = 033D
001990,000575:
001991,000576:
001992,000577: # BIT 11 FLAG 2
001993,000578: 37,2001 STEERSW = 034D # STEERING TO BE DONE STEERING OMITTED
001994,000579:
001995,000580: 37,2001 4700 STEERBIT = BIT11
001996,000581:
001997,000582: # BIT 10 FLAG 2
001998,000583: 37,2001 CYCLESW = 035D # VG CALCULATION TO VG CALCULATION
001999,000584: # BE DONE OMITTED
002000,000585:
002001,000586: 37,2001 4701 CYCLEBIT = BIT10
002002,000587:
002003,000588: # BIT 9 FLAG 2
002004,000589: 37,2001 IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO
002005,000590: # BURN (CUTOFF TIME CUTOFF TIME YET
002006,000591: # SPECIFIED) AVAILABLE)
002007,000592:
002008,000593: 37,2001 4702 IMPULBIT = BIT9
002009,000594:
002010,000595: # BIT 8 FLAG 2
002011,000596: 37,2001 XDELVFLG = 037D # EXTERNAL DELTAV VG LAMBERT (AIMPOINT)
002012,000597: # COMPUTATION VG COMPUTATION
002013,000598:
002014,000599: 37,2001 4704 XDELVBIT = BIT7
002015,000600:
002016,000601: # BIT 7 FLAG 2
002017,000602: 37,2001 ETPIFLAG = 038D # ELEVATION ANGLE TPI TIME SUPPLIED
002018,000603: # SUPPLIED FOR P34,74 FOR P34,74
002019,000604:
002020,000605: # BIT 7 FLAG 2
002021,000606: 37,2001 0000046 FIRSTFLG = ETPIFLAG # SUCCEEDING PASS FIRST PASS THRU
002022,000607: # THRU S40.9 S40.9
002023,000608:
002024,000609: 37,2001 4704 FIRSTBIT = BIT7
002025,000610:
002026,000611: # BIT 7 FLAG 2
002027,000612: 37,2001 0000046 OPTNSW = ETPIFLAG # SOI PHASE P38/P78 SOR PHASE OF P38/P78
002028,000613:
002029,000614: 37,2001 4705 FINALBIT = BIT6
002030,000615:
002031,000616: # BIT 6 FLAG 2
|
|
Page 48 |
002033,000618: 37,2001 FINALFLG = 039D # LSAT PASS THROUGH INTERIM PASS THROUGH
002034,000619: # RENDEZVOUS PROGRAM RENDEZVOUS PROGRAM
002035,000620: # COMPUTATIONS COMPUTATIONS
002036,000621:
002037,000622: 37,2001 4706 AVFLBIT = BIT5
002038,000623:
002039,000624: # BIT 5 FLAG 2
002040,000625: 37,2001 AVFLAG = 040D # LEM IS ACTIVE CSM IS ACTIVE
002041,000626: # VEHICLE VEHICLE
002042,000627:
002043,000628: # BIT 4 FLAG 2
002044,000629: 37,2001 PFRATFLG = 041D # PREFERRED ATTITUDE PREFERRED ATTITUDE
002045,000630: # COMPUTED NOT COMPUTED
002046,000631:
002047,000632: 37,2001 4707 PFRATBIT = BIT4
002048,000633:
002049,000634: # BIT 3 FLAG 2
002050,000635: 37,2001 CALCMAN3 = 042D # NO FINAL ROLL FINAL ROLL IS
002051,000636: # NECESSARY
002052,000637:
002053,000638: 37,2001 4710 CALC3BIT = BIT3
002054,000639:
002055,000640: # BIT 2 FLAG 2
002056,000641: 37,2001 CALCMAN2 = 043D # PERFORM MANEUVER BYPASS STARTING
002057,000642: # STARTING PROCEDURE PROCEDURE
002058,000643:
002059,000644: 37,2001 4711 CALC2BIT = BIT2
002060,000645:
002061,000646: # BIT 1 FLAG 2
002062,000647: 37,2001 NODOFLAG = 044D # V37 NOT PERMITTED V37 PERMITTED
002063,000648:
002064,000649: 37,2001 4712 NODOBIT = BIT1
002065,000650:
002066,000651: 37,2001 0077 FLAGWRD3 = STATE +3 # (045-059)
002067,000652:
002068,000653: # (SET) (RESET)
002069,000654:
002070,000655: # BIT 15 FLAG 3
002071,000656: # = 045D
002072,000657:
002073,000658:
002074,000659: # BIT 14 FLAG 3
002075,000660: 37,2001 GLOKFAIL = 046D # GIMBAL LOCK HAS NOT IN GIMBAL LOCK
002076,000661: # OCCURED
002077,000662:
002078,000663: 37,2001 4675 GLOKFBIT = BIT14
002079,000664:
002080,000665: # BIT 13 FLAG 3
002081,000666: 37,2001 REFSMFLG = 047D # REFSMMAT GOOD REFSMMAT NO GOOD
002082,000667:
|
|
Page 49 |
002084,000669: 37,2001 4676 REFSMBIT = BIT13
002085,000670:
002086,000671: # BIT 12 FLAG 3
002087,000672: 37,2001 LUNAFLAG = 048D # LUNAR LAT-LONG EARTH LAT-LONG
002088,000673:
002089,000674: 37,2001 4677 LUNABIT = BIT12
002090,000675:
002091,000676: # BIT 11 FLAG 3
002092,000677: 37,2001 P22MKFLG = 049D # P22 DOWNLINKED MARK P22 DOWLINK MARK
002093,000678: # DATA WAS JUST TAKEN DATA NOT JUST TAKEN
002094,000679:
002095,000680: 37,2001 4700 P22MKBIT = BIT11
002096,000681:
002097,000682: # BIT 10 FLAG 3
002098,000683: 37,2001 VFLAG = 050D # LESS THAN TWO STARS TWO STARS IN FIELD
002099,000684: # IN FIELD OF VIEW OF VIEW
002100,000685:
002101,000686: 37,2001 4701 VFLAGBIT = BIT10
002102,000687:
002103,000688: # BIT 9 FLAG 3
002104,000689: # = 051D
002105,000690:
002106,000691:
002107,000692: # BIT 8 FLAG 3
002108,000693: 37,2001 PRECIFLG = 052D # CSMPREC OR LEMPREC INTEGRV OR INTEGRVS
002109,000694: # CALLED CALLED
002110,000695:
002111,000696: 37,2001 4703 PRECIBIT = BIT8
002112,000697:
002113,000698: # BIT 7 FLAG 3
002114,000699: 37,2001 CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED
002115,000700:
002116,000701: 37,2001 4704 CULTBIT = BIT7
002117,000702:
002118,000703: # BIT 6 FLAG 3
002119,000704: 37,2001 ORBWFLAG = 054D # W MATRIX VALID FOR W MATRIX INVALID FOR
002120,000705: # ORBITAL N1VIGATION ORBITAL NAVIGATION
002121,000706:
002122,000707: 37,2001 4705 ORBWFBIT = BIT6
002123,000708:
002124,000709: # BIT 5 FLAG 3
002125,000710: 37,2001 STATEFLG = 055D # PERMANENT STATE PERMANENT STATE
002126,000711: # VECTOR UPDATED VECTOR NOT UPDATED
002127,000712:
002128,000713: 37,2001 4706 STATEBIT = BIT5
002129,000714:
002130,000715: # BIT 4 FLAG 3
002131,000716: 37,2001 INTYPFLG = 056D # CONIC INTEGRATION ENCKE INTEGRATION
002132,000717:
002133,000718: 37,2001 4707 INTYBIT = BIT4
002134,000719:
|
|
Page 50 |
002136,000721: # BIT 3 FLAG 3
002137,000722: 37,2001 VINTFLAG = 057D # CSM STATE VECTOR LEM STATE VECTOR
002138,000723: # BEING INTEGRATED BEING INTEGRATED
002139,000724:
002140,000725: 37,2001 4710 VINTFBIT = BIT3
002141,000726:
002142,000727: # BIT 2 FLAG 3
002143,000728: 37,2001 D6OR9FLG = 058D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
002144,000729: # FOR INTEGRATION FOR INTEGRATION
002145,000730:
002146,000731: 37,2001 4711 D6OR9BIT = BIT2
002147,000732:
002148,000733: # BIT 1 FLAG 3
002149,000734: 37,2001 DIM0FLAG = 059D # W MATRIX IS TO BE W MATRIX IS NOT TO
002150,000735: # USED BE USED
002151,000736:
002152,000737: 37,2001 0100 FLAGWRD4 = STATE +4 # (060-074)
002153,000738:
002154,000739: # (SET) (RESET)
002155,000740:
002156,000741: 37,2001 4712 DIM0BIT = BIT1
002157,000742:
002158,000743: # BIT 15 FLAG 4
002159,000744: 37,2001 MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN
002160,000745: # ENDIDLE ENDIDLE
002161,000746:
002162,000747: 37,2001 4674 MRKIDBIT = BIT15
002163,000748:
002164,000749: # BIT 14 FLAG 4
002165,000750: 37,2001 PRIODFLG = 061D # PRIORITY DISPLAY IN NO PRIORITY DISPLAY
002166,000751: # ENDIDLE IN ENDIDLE
002167,000752:
002168,000753: 37,2001 4675 PRIODBIT = BIT14
002169,000754:
002170,000755: # BIT 13 FLAG 4
002171,000756: 37,2001 NRMIDFLG = 062D # NORMAL DISPLAY IN NO NORMAL DISPLAY
002172,000757: # ENDIDLE IN ENDIDLE
002173,000758:
002174,000759: 37,2001 4676 NRMIDBIT = BIT13
002175,000760:
002176,000761: # BIT 12 FLAG 4
002177,000762: 37,2001 PDSPFLAG = 063D # CAN'T INTERRUPT SEE M. HAMILTON
002178,000763: # PRIORITY DISPLAY
002179,000764:
002180,000765: 37,2001 4677 PDSPFBIT = BIT12
002181,000766:
002182,000767: # BIT 11 FLAG 4
002183,000768: 37,2001 MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY
002184,000769: # DISPLAY OPERATING DISPLAY OPERATING
002185,000770: # WHEN MARK DISPLAY WHEN MARK DISPLAY
|
|
Page 51 |
002187,000772: # INITIATED INITIATED
002188,000773:
002189,000774: 37,2001 4700 MWAITBIT = BIT11
002190,000775:
002191,000776: # BIT 10 FLAG 4
002192,000777: 37,2001 NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY
002193,000778: # DISPLAY OPERATING DISPLAY OPERATING
002194,000779: # WHEN NORMAL WHEN NORMAL DISPLAY
002195,000780: # DISPLAY INITIATED INITIATED
002196,000781:
002197,000782: 37,2001 4701 NWAITBIT = BIT10
002198,000783:
002199,000784: # BIT 9 FLAG 4
002200,000785: 37,2001 MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING
002201,000786: # KEYBOARD WHEN MARK KEYBOARD WHEN MARK
002202,000787: # DISPLAY INITIATED DISPLAY INITIATED
002203,000788:
002204,000789: 37,2001 4702 MRKNVBIT = BIT9
002205,000790:
002206,000791: # BIT 8 FLAG 4
002207,000792: 37,2001 NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING
002208,000793: # KEYBOARD WHEN KEYBOARD WHEN
002209,000794: # NORMAL DISPLAY NORMAL DISPLAY
002210,000795: # INITIATED INITIATED
002211,000796:
002212,000797: 37,2001 4703 NRMNVBIT = BIT8
002213,000798:
002214,000799: # BIT 7 FLAG 4
002215,000800: 37,2001 PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
002216,000801: # KEYBOARD WHEN KEYBOARD WHEN
002217,000802: # PRIORITY DISPLAY PRIORITY DISPLAY
002218,000803: # INITIATED INITIATED
002219,000804:
002220,000805: 37,2001 4704 PRONVBIT = BIT7
002221,000806:
002222,000807: # BIT 6 FLAG 4
002223,000808: 37,2001 PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT
002224,000809: # INTERFERED WITH INTERFERED WITH
002225,000810: # EXISTING DISPLAY EXISTING DISPLAY
002226,000811:
002227,000812: 37,2001 4705 PINBRBIT = BIT6
002228,000813:
002229,000814: # BIT 5 FLAG 4
002230,000815: 37,2001 MRUPTFLG = 070D # MARK DISPLAY MARK DISPLAY NOT
002231,000816: # INTERRUPTED BY INTERRUPTED BY
002232,000817: # PRIORITY DISPLAY PRIORITY DISPLAY
002233,000818:
002234,000819: 37,2001 4706 MRUPTBIT = BIT5
002235,000820:
002236,000821: # BIT 4 FLAG 4
|
|
Page 52 |
002238,000823: 37,2001 NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT
002239,000824: # INTERRUPTED BY INTERRUPTED BY
002240,000825: # PRIORITY OR MARK PRIORITY OR MARK
002241,000826: # DISPLAY DISPLAY
002242,000827:
002243,000828: 37,2001 4707 NRUPTBIT = BIT4
002244,000829:
002245,000830: # BIT 3 FLAG 4
002246,000831: 37,2001 MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER
002247,000832: # NORMAL NORMAL
002248,000833:
002249,000834: 37,2001 4710 MKOVBIT = BIT3
002250,000835:
002251,000836: # BIT 2 FLAG 4 DISPLAY BIT
002252,000837: # = 073D CLEARED AT INTERVALS
002253,000838:
002254,000839:
002255,000840: # BIT 1 FLAG 4 MARK DISPLAY NOT TO NO SPECIAL MARK
002256,000841: 37,2001 XDSPFLAG = 074D # BE INTERRUPTED INFORMATION.
002257,000842:
002258,000843:
002259,000844: 37,2001 4712 XDSPBIT = BIT1
002260,000845:
002261,000846: 37,2001 0101 FLAGWRD5 = STATE +5 # (075-099)
002262,000847:
002263,000848: # (SET) (RESET)
002264,000849:
002265,000850: # BIT 15 FLAG 5
002266,000851: 37,2001 DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY
002267,000852: # DSKY
002268,000853:
002269,000854:
002270,000855: 37,2001 4674 DSKYBIT = BIT15
002271,000856:
002272,000857: # BIT 14 FLAG 5
002273,000858: # = 76D
002274,000859:
002275,000860: # BIT 13 FLAG 5
002276,000861: # = 77D
002277,000862:
002278,000863: # BIT 12 FLAG 5
002279,000864: 37,2001 V59FLAG = 078D # CALIBRATING FOR NORMAL MARKING FOR
002280,000865: # P23 P23
002281,000866:
002282,000867: 37,2001 4677 V59FLBIT = BIT12
002283,000868:
002284,000869: # BIT 11 FLAG 5
002285,000870: 37,2001 INCORFLG = 079D # FIRST INCORPORATION SECOND INCORPORATION
002286,000871:
002287,000872: 37,2001 4700 INCORBIT = BIT11
002288,000873:
|
|
Page 53 |
002290,000875: # BIT 10 FLAG 5
002291,000876: 37,2001 RNGSCFLG = 080D # ANOTHER TAG FOR PRFTKAT
002292,000877:
002293,000878: # BIT 10 FLAG 5
002294,000879: 37,2001 0000120 PRFTRKAT = RNGSCFLG # PREF TRACK ATT +X AXIS TRACK ATT
002295,000880:
002296,000881:
002297,000882: 37,2001 4701 PRFTRBIT = BIT10
002298,000883:
002299,000884: # BIT 9 FLAG 5
002300,000885: 37,2001 DMENFLG = 081D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
002301,000886: # FOR INCORPORATION FOR INCORPORATION
002302,000887:
002303,000888: 37,2001 4702 DMENFBIT = BIT9
002304,000889:
002305,000890: # BIT 8 FLAG 5
002306,000891: 37,2001 COMPUTER = 082D # COMPUTER IS CMC COMPUTER IS LGC
002307,000892:
002308,000893: 37,2001 4703 COMPTBIT = BIT8
002309,000894:
002310,000895: # BIT 7 FLAG 5
002311,000896: 37,2001 ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF
002312,000897:
002313,000898: 37,2001 4704 ENGONBIT = BIT7
002314,000899:
002315,000900: # BIT 6 FLAG 5
002316,000901: 37,2001 3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED
002317,000902: # BY THREE AXES BY ONE AXIS
002318,000903:
002319,000904: 37,2001 4705 3AXISBIT = BIT6
002320,000905:
002321,000906: # BIT 5 FLAG 5
002322,000907: 37,2001 GRRBKFLG = 085D # BACKUP GRR RECEIVED BACKUP GRR NOT
002323,000908: # RECEIVED
002324,000909:
002325,000910: 37,2001 4706 GRRBKBIT = BIT5
002326,000911:
002327,000912: # BIT 4 FLAG 5
002328,000913: 37,2001 R60FLAG = 086D # R61 MUST USE R60 NORMAL R61
002329,000914:
002330,000915:
002331,000916: 37,2001 4707 R60FLBIT = BIT4
002332,000917:
002333,000918: # BIT 3 FLAG 5
002334,000919: 37,2001 SOLNSW = 087D # LAMBERT DOES NOT LAMBERT CONVERGES OR
002335,000920: # CONVERGE, OR TIME- TIME-RADIUS NON
002336,000921: # RADIUS NEARLY CIRC. CIRCULAR.
002337,000922:
|
|
Page 54 |
002339,000924: 37,2001 4710 SOLNSBIT = BIT3
002340,000925:
002341,000926: # BIT 2 FLAG 5
002342,000927: 37,2001 MGLVFLAG = 088D # LOCAL VERTICAL MIDDLE GIMBAL ANGLE
002343,000928: # COORDINATES COMPUTED
002344,000929: # COMPUTED
002345,000930:
002346,000931: 37,2001 4711 MGLVFBIT = BIT2
002347,000932:
002348,000933: # BIT 1 FLAG 5
002349,000934: 37,2001 RENDWFLG = 089D # W MATRIX VALID W MATRIX INVALID
002350,000935: # FOR RENDEZVOUS FOR RENDEZVOUS
002351,000936: # NAVIGATION NAVIGATION
002352,000937:
002353,000938: 37,2001 4712 RENDWBIT = BIT1
002354,000939:
002355,000940: 37,2001 0102 FLAGWRD6 = STATE +6 # (090-104)
002356,000941:
002357,000942: # (SET) (RESET)
002358,000943:
002359,000944: # BIT 15 FLAG 6
002360,000945: 37,2001 DAPBIT1 = 090D # 1 SATURN 1 TVC 0 RCS 0 NO
002361,000946:
002362,000947: 37,2001 4674 DAP1BIT = BIT15
002363,000948:
002364,000949: # BIT 14 FLAG 6
002365,000950: 37,2001 DAPBIT2 = 091D # 1 A/P 0 A/P 1 A/P 0 A/P
002366,000951:
002367,000952: 37,2001 4675 DAP2BIT = BIT14
002368,000953:
002369,000954: # BIT 13 FLAG 6
002370,000955: 37,2001 STRULLSW = 92D # DO STEERULL DO ULAGEOFF ONLY
002371,000956:
002372,000957: 37,2001 4676 STRULBIT = BIT13
002373,000958:
002374,000959: # BIT 13 FLAG 6
002375,000960: 37,2001 0000134 ENTRYDSP = STRULLSW # DO ENTRY DISPLAY OMIT ENTRY DISPLAY
002376,000961: # VIA ENTRYVN.
002377,000962:
002378,000963: 37,2001 4676 ENDSPBIT = BIT13
002379,000964:
002380,000965: # BIT 12 FLAG 6
002381,000966: 37,2001 CMDAPARM = 093D # ALOW ENTRY FIRINGS INHIBIT ENTRY FIRING
002382,000967: # AND CALCULATIONS AND CONTROL FUNCTION
002383,000968:
002384,000969: 37,2001 4677 CMARMBIT = BIT12
002385,000970:
002386,000971: # BIT 11 FLAG 6
002387,000972: 37,2001 GAMDIFSW = 094D # CALCULATE GAMDOT GAMDOT NOT TO BE
|
|
Page 55 |
002389,000974: # CALCULATED
002390,000975:
002391,000976: 37,2001 4700 GMDIFBIT = BIT11
002392,000977:
002393,000978: # BIT 10 FLAG 6
002394,000979: 37,2001 GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER
002395,000980:
002396,000981: 37,2001 4701 GMBDRBIT = BIT10
002397,000982:
002398,000983: # BIT 10 FLAG 6
002399,000984: 37,2001 0000137 GONEPAST = GMBDRVSW # LATERAL CONTROL LATERAL CONTROL
002400,000985: # CALCULATIONS TO BE CALCULATIONS TO BE
002401,000986: # OMITTED DONE
002402,000987:
002403,000988: 37,2001 4701 GONEBIT = BIT10
002404,000989:
002405,000990: # BIT 9 FLAG 6
002406,000991: 37,2001 RELVELSW = 096D # TARGETING USES TARGETING USES
002407,000992: # EARTH-RELATIVE INERTIAL VELOCITY
002408,000993: # VELOCITY
002409,000994:
002410,000995: 37,2001 4702 RELVBIT = BIT9
002411,000996:
002412,000997: # BIT 8 FLAG 6
002413,000998: 37,2001 EGSW = 097D # IN FINAL PHASE NOT IN FINAL PHASE
002414,000999:
002415,001000: 37,2001 4703 EGFLGBIT = BIT8
002416,001001:
002417,001002: # BIT 8 FLAG 6
002418,001003: 37,2001 0000141 KNOWNFLG = EGSW # LANDMARK KNOWN LANDMARK UNKNOWN
002419,001004:
002420,001005: 37,2001 4703 KNOWNBIT = BIT8
002421,001006:
002422,001007: # BIT 8 FLAG 6
002423,001008: 37,2001 0000141 R57FLAG = KNOWNFLG # DO NOT DO R57 DO R57, TRUNION
002424,001009: # TRUNION BIAS HAS BIAS NEEDED
002425,001010: # BEEN OBTAINED.
002426,001011:
002427,001012: 37,2001 4703 R57BIT = BIT8
002428,001013:
002429,001014: # BIT 7 FLAG 6
002430,001015: 37,2001 NOSWITCH = 098D # LATERAL ROLL LATERAL ROLL MANUVER
002431,001016: 37,2001 4704 NOSWBIT = BIT7 # MANUVER INHIBITED PERMITED IN ENTRY
002432,001017: # IN ENTRY
002433,001018:
002434,001019:
002435,001020: # BIT 6 FLAG 6
002436,001021: 37,2001 HIND = 099D # ITERATING HUNTEST ITERATING OF HUNTEST
002437,001022: # CALCULATIONS TO BE CALCULATIONS TO BE
002438,001023: # DONE AFTER RANGE OMITTED AFTER RANGE
|
|
Page 56 |
002440,001025: # PREDICTION PREDICTION
002441,001026:
002442,001027: 37,2001 4705 HINDBIT = BIT6
002443,001028:
002444,001029: # BIT 5 FLAG 6
002445,001030: 37,2001 INRLSW = 100D # INITIAL ROLL INITIAL ROLL
002446,001031: # V(LV) V(LV)
002447,001032:
002448,001033: 37,2001 4706 INRLBIT = BIT5
002449,001034:
002450,001035: # ATTITUDE NOT HELD ATTITUDE HELD
002451,001036:
002452,001037: # BIT 4 FLAG 6
002453,001038: 37,2001 LATSW = 101D # DOWNLIFT NOT DOWNLIFT INHIBITED
002454,001039: # INHIBITED
002455,001040:
002456,001041: 37,2001 4707 LATSWBIT = BIT4
002457,001042:
002458,001043: # BIT 3 FLAG 6
002459,001044: 37,2001 .05GSW = 102D # DRAG OVER .05G DRAG LESS THAN .05G
002460,001045:
002461,001046: 37,2001 4710 .05GBIT = BIT3
002462,001047:
002463,001048: # BIT 3 FLAG 6
002464,001049: 37,2001 NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT
002465,001050: # OVERWRITE DELTA OVERWRITE DELTA
002466,001051: 37,2001 4710 NTARGBIT = BIT3
002467,001052:
002468,001053: # BIT 2 FLAG 6
002469,001054: 37,2001 CM/DSTBY = 103D # ENTRY DAP ACTIVATED ENTRY DAP NOT
002470,001055: # ACTIVATED
002471,001056:
002472,001057: 37,2001 4711 CM/DSBIT = BIT2
002473,001058:
002474,001059: # BIT 1 FLAG 6
002475,001060: 37,2001 GYMDIFSW = 104D # CDU DIFFERENCES AND CDU DIFFERENCES AND
002476,001061: # BODY RATES COMPUTED BODY RATES NOT
002477,001062: # COMPUTED
002478,001063:
002479,001064: 37,2001 4712 GYMDIBIT = BIT1
002480,001065:
002481,001066: 37,2001 0103 FLAGWRD7 = STATE +7 # (105-119)
002482,001067:
002483,001068: # (SET) (RESET)
002484,001069:
002485,001070: # BIT 15 FLAG 7
002486,001071: 37,2001 TERMIFLG = 105D # TERMINATE R21,R22 DO NOT TERMINATE
002487,001072: # R21,R22
002488,001073:
002489,001074: 37,2001 4674 TERMIBIT = BIT15
002490,001075:
|
|
Page 57 |
002492,001077: # BIT 14 FLAG 7
002493,001078: 37,2001 ITSWICH = 106D # ACCEPT NEXT LAMBERT TEST LAMBERT ANSWER
002494,001079: # TPI SEARCH SOLUTION AGAINST LIMITS
002495,001080:
002496,001081: 37,2001 4675 ITSWBIT = BIT14
002497,001082:
002498,001083: # BIT 13 FLAG 7
002499,001084: 37,2001 IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED
002500,001085:
002501,001086: 37,2001 4676 IGNFLBIT = BIT13
002502,001087:
002503,001088: # BIT 12 FLAG 7
002504,001089: 37,2001 ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT
002505,001090: # OKAYED IGNITION OKAYED IGNITION
002506,001091:
002507,001092: 37,2001 4677 ASTNBIT = BIT12
002508,001093:
002509,001094: # BIT 11 FLAG 7
002510,001095: 37,2001 TIMRFLAG = 109D # CLOKTASK OPERATING CLOKTASK INOPERATIVE
002511,001096:
002512,001097: 37,2001 4700 TIMRBIT = BIT11
002513,001098:
002514,001099: # BIT 10 FLAG 7
002515,001100: 37,2001 NORMSW = 110D # UNIT NORMAL INPUT LAMBERT COMPUTE ITS
002516,001101: # TO LAMBERT. OWN UNIT NORMAL.
002517,001102:
002518,001103: 37,2001 4701 NDRMSBIT = BIT10
002519,001104:
002520,001105: # BIT 9 FLAG 7
002521,001106: 37,2001 RVSW = 111D # DO NOT COMPUTE FINAL COMPUTE FINAL STATE
002522,001107: # STATE VECTOR IN VECTOR IN TIME-THETA
002523,001108: # TIME-THETA.
002524,001109:
002525,001110:
002526,001111: 37,2001 4702 RVSWBIT = BIT9
002527,001112:
002528,001113: # BIT 8 FLAG 7
002529,001114: 37,2001 GONEBY = 112D # PASSED TARGET APPROACHING TARGET
002530,001115:
002531,001116: 37,2001 4703 G0NBYBIT = BIT8
002532,001117:
002533,001118: # BIT 7 FLAG 7
002534,001119: 37,2001 IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR
002535,001120:
002536,001121: 37,2001 4704 IDLEFBIT = BIT7
002537,001122:
002538,001123: # BIT 6 FLAG 7
002539,001124: 37,2001 V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
002540,001125: # RUNNING OFF
002541,001126:
|
|
Page 58 |
002543,001128: 37,2001 4705 V37FLBIT = BIT6
002544,001129:
002545,001130: # BIT 5 FLAG 7
002546,001131: # = 115D
002547,001132: # = BIT5
002548,001133:
002549,001134:
002550,001135: # BIT 4 FLAG 7
002551,001136: 37,2001 UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL
002552,001137:
002553,001138: 37,2001 4707 UPLOCBIT = BIT4
002554,001139:
002555,001140: # BIT 3 FLAG 7
002556,001141: 37,2001 VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27
002557,001142:
002558,001143: 37,2001 4710 VERIFBIT = BIT3
002559,001144:
002560,001145: # BIT 2 FLAG 7
002561,001146: 37,2001 ATTCHFLG = 118D # LM,CM ATTACHED LM,CM NOT ATTACHED
002562,001147:
002563,001148: 37,2001 4711 ATTCHBIT = BIT2
002564,001149:
002565,001150: # BIT 1 FLAG 7
002566,001151: 37,2001 TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF
002567,001152:
002568,001153: 37,2001 4712 TFFSWBIT = BIT1
002569,001154:
002570,001155: 37,2001 0104 FLAGWRD8 = STATE +8D # (120-134)
002571,001156:
002572,001157: # (SET) (RESET)
002573,001158:
002574,001159: # BIT 15 FLAG 8
002575,001160: 37,2001 RPQFLAG = 120D # RPQ NOT COMPUTED RPQ COMPUTED
002576,001161:
002577,001162: 37,2001 4674 RPQFLBIT = BIT15
002578,001163:
002579,001164: # BIT 14 FLAG 8
002580,001165: # = 121D
002581,001166:
002582,001167:
002583,001168: # BIT 13 FLAG 8
002584,001169: 37,2001 NEWIFLG = 122D # FIRST PASS THROUGH SUCCEEDING ITERATION
002585,001170: # INTEGRATION OF INTEGRATION
002586,001171:
002587,001172: 37,2001 4676 NEWIBIT = BIT13
002588,001173:
002589,001174: # BIT 12 FLAG 8
002590,001175: 37,2001 CMOONFLG = 123D # PERMANENT CSM STATE PERMANENT CSM STATE
002591,001176: 37,2001 4677 CMOONBIT = BIT12 # IN LUNAR SPHERE IN EARTH SPHERE
002592,001177:
|
|
Page 59 |
002594,001179: # BIT 11 FLAG 8
002595,001180: 37,2001 LMOONFLG = 124D # PERMANENT LM STATE PERMANENT LM STATE
002596,001181: 37,2001 4700 LMOONBIT = BIT11 # IN LUNAR SPHERE IN EARTH SHPERE
002597,001182:
002598,001183: # BIT 10 FLAG 8
002599,001184: 37,2001 ADVTRK = 125D # ADVANCE GROUND TRACK NOT ADVANCED
002600,001185: # SIGHTING WANTED GROUND TRACK
002601,001186:
002602,001187: 37,2001 4701 ADVTKBIT = BIT10
002603,001188:
002604,001189: # BIT 9 FLAG 8
002605,001190: 37,2001 P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING
002606,001191:
002607,001192: 37,2001 4702 P39SWBIT = BIT9
002608,001193:
002609,001194: # BIT 8 FLAG 8
002610,001195: 37,2001 SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
002611,001196: # SURFACE
002612,001197:
002613,001198: 37,2001 4703 SURFFBIT = BIT8
002614,001199:
002615,001200: # BIT 7 FLAG 8
002616,001201: 37,2001 INFINFLG = 128D # NO CONIC SOLUTION CONIC SOLUTION
002617,001202: # (CLOSURE THROUGH EXISTS.
002618,001203: # INFINITY REQUIRED).
002619,001204:
002620,001205:
002621,001206: 37,2001 4704 INFINBIT = BIT7
002622,001207:
002623,001208: # BIT 6 FLAG 8
002624,001209: 37,2001 ORDERSW = 129D # ITERATOR USES 2ND ITERATOR USES 1ST
002625,001210: # ORDER MINIMUM MODE. ORDER STANDARD MODE.
002626,001211:
002627,001212:
002628,001213: 37,2001 4705 ORDERBIT = BIT6
002629,001214:
002630,001215: # BIT 5 FLAG 8
002631,001216: 37,2001 APSESW = 130D # RDESIRED OUTSIDE RDESIRED INSIDE
002632,001217: # PERICENTER-APOCENTER PERICENTER-APOCENTE
002633,001218: # RANGE IN TIME-RAD RANGE IN TIME-RADIUS
002634,001219:
002635,001220:
002636,001221: 37,2001 4706 APSESBIT = BIT5
002637,001222:
002638,001223: # BIT 4 FLAG 8
002639,001224: 37,2001 COGAFLAG = 131D # NO CONIC SOLUTION CONIC SOLUTION
002640,001225: # TOO CLOSE TO EXISTS (COGA DOES
002641,001226: # RECTILINEAR (COGA NOT OVERFLOW).
002642,001227: # OVERFLOWS).
002643,001228:
|
|
Page 60 |
002645,001230: 37,2001 4707 COGAFBIT = BIT4
002646,001231:
002647,001232: # BIT 3 FLAG 8
002648,001233: # = 132D
002649,001234:
002650,001235: # BIT 2 FLAG 8
002651,001236: # = 133D
002652,001237:
002653,001238: # BIT 1 FLAG 8
002654,001239: 37,2001 360SW = 134D # TRANSFER ANGLE NEAR TRANSFER ANGLE NOT
002655,001240: # 360 DEGREES NEAR 360 DEGREES
002656,001241:
002657,001242: 37,2001 4712 360SWBIT = BIT1
002658,001243:
002659,001244: 37,2001 0105 FLAGWRD9 = STATE +9D # (135-149)
002660,001245:
002661,001246: # (SET) (RESET)
002662,001247: # BIT 15 FLAG 9
002663,001248: 37,2001 SWTOVER = 135D # SWITCHOVER HAS NO SWITCHOVER YET
002664,001249: # OCCURRED
002665,001250:
002666,001251: 37,2001 4674 SWTOVBIT = BIT15
002667,001252:
002668,001253: # BIT 14 FLAG 9
002669,001254: 37,2001 V67FLAG = 136D # ASTRONAUT OVERWRITES ASTRONAUT DOES NOT
002670,001255: # W MATRIX INITIAL OVERWRITE INITIAL
002671,001256: # VALUES VALUES
002672,001257:
002673,001258: 37,2001 4675 V67FLBIT = BIT14
002674,001259:
002675,001260: # BIT 13 FLAG 9
002676,001261: 37,2001 V82EMFLG = 137D # MOON VICINITY EARTH VICINITY
002677,001262:
002678,001263:
002679,001264:
002680,001265: 37,2001 4676 V82EMBIT = BIT13
002681,001266:
002682,001267: # BIT 12 FLAG 9
002683,001268: 37,2001 MAXDBFLG = 138D # MAX DB SELECTED MIN DB SELECTED
002684,001269:
002685,001270: 37,2001 4677 MAXDBBIT = BIT12
002686,001271:
002687,001272: # BIT 11 FLAG 9
002688,001273: 37,2001 V94FLAG = 139D # V94 ALLOWED DURING V94 NOT ALLOWED
002689,001274: # P23
002690,001275:
002691,001276: 37,2001 4700 V94FLBIT = BIT11
002692,001277:
|
|
Page 61 |
002694,001279: # BIT 10 FLAG 9
002695,001280: 37,2001 SAVECFLG = 140D # P23 DISPLAY AND P23 DISPLAY AND
002696,001281: # DATA STORAGE AFTER DATA STORAGE BEFORE
002697,001282: # MARK IS DONE MARK IS DONE
002698,001283:
002699,001284: 37,2001 4701 SAVECBIT = BIT10
002700,001285:
002701,001286: # BIT 9 FLAG 9
002702,001287: 37,2001 VHFRFLAG = 141D # ALLOW R22 TO STOP ACCEPTANCE
002703,001288: # ACCEPT RANGE OF RANGE DATA
002704,001289: # DATA
002705,001290:
002706,001291: 37,2001 4702 VHFRBIT = BIT9
002707,001292:
002708,001293: # BIT 8 FLAG 9
002709,001294: 37,2001 SOURCFLG = 142D # SOURCE OF INPUT SOURCE OF INPUT
002710,001295: # DATA IS FROM DATA IS FROM
002711,001296: # VHF RADAR OPTICS MARK
002712,001297:
002713,001298: 37,2001 4703 SOURCBIT = BIT8
002714,001299:
002715,001300: # BIT 7 FLAG 9
002716,001301: 37,2001 R22CAFLG = 143D # R-22 CALCULATIONS R-22 CALCULATIONS
002717,001302: # ARE GOING ON ARE NOT GOING ON
002718,001303:
002719,001304: 37,2001 4704 R22CABIT = BIT7
002720,001305:
002721,001306: # BIT 6 FLAG 9
002722,001307: 37,2001 N22ORN17 = 144D # COMPUTE TOTAL COMPUTE TOTAL
002723,001308: # ATTITUDE ERRORS ATTITUDE ERRORS
002724,001309: # WRT N22 (V62) WRT N17 (V63)
002725,001310:
002726,001311: 37,2001 4705 N2217BIT = BIT6
002727,001312:
002728,001313: # BIT 5 FLAG 9
002729,001314: 37,2001 QUITFLAG = 145D
002730,001315:
002731,001316: 37,2001 4706 QUITBIT = BIT5
002732,001317:
002733,001318: # BIT 4 FLAG 9
002734,001319: 37,2001 R31FLAG = 146D # R31 SELECTED (V83) R34 SELECTED (V85)
002735,001320:
002736,001321: 37,2001 4707 R31FLBIT = BIT4
002737,001322:
002738,001323: # BIT 3 FLAG 9
002739,001324: 37,2001 MID1FLAG = 147D # INTEGRATE TO TDEC INTEGRATE TO THE
002740,001325: # THEN-PRESENT TIME
002741,001326:
002742,001327: 37,2001 4710 MID1FBIT = BIT3
002743,001328:
|
|
Page 62 |
002745,001330: # BIT 2 FLAG 9
002746,001331: 37,2001 MIDAVFLG = 148D # INTEGRATION ENTERED INTEGRATION WAS
002747,001332: # FROM ONE OF MIDTOAV NOT ENTERED VIA
002748,001333: # PORTALS MIDTOAV
002749,001334:
002750,001335: 37,2001 4711 MIDAVBIT = BIT2
002751,001336:
002752,001337: # BIT 1 FLAG 9
002753,001338: 37,2001 AVEMIDSW = 149D # AVETOMID CALLING NO AVETOMID W INTEGR
002754,001339: # FOR W.MATRIX INTEGR ALLOW SET UP RN,VN,
002755,001340: # DONT WRITE OVER RN, PIPTIME
002756,001341: # VN,PIPTIME
002757,001342:
002758,001343: 37,2001 4712 AVEMDBIT = BIT1
002759,001344:
002760,001345: # (SET) (RESET)
002761,001346:
002762,001347: 37,2001 0106 FLGWRD10 = STATE +10D # (150-164)
002763,001348:
002764,001349:
002765,001350:
002766,001351: 37,2001 0106 RASFLAG = STATE +10D
002767,001352:
002768,001353:
002769,001354: # BIT 15 FLAG 10
002770,001355: # = 150D
002771,001356:
002772,001357: # BIT 14 FLAG 10
002773,001358: 37,2001 INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN
002774,001359: # PROGRESS PROGRESS
002775,001360:
002776,001361: 37,2001 4675 INTFLBIT = BIT14
002777,001362:
002778,001363: # BIT 13 FLAG 10
002779,001364: # = 152D
002780,001365:
002781,001366:
002782,001367: # BIT 12 FLAG 10
002783,001368: # = 153D
002784,001369:
002785,001370: # BIT 11 FLAG 10
002786,001371: # = 154D
002787,001372:
002788,001373: # BIT 10 FLAG 10
002789,001374: # = 155D
002790,001375:
002791,001376:
002792,001377: # BIT 9 FLAG 10
002793,001378: # = 156D
002794,001379:
|
|
Page 63 |
002796,001381: # BIT 8 FLAG 10
002797,001382: # = 157D
002798,001383:
002799,001384:
002800,001385: # BIT 7 FLAG 10
002801,001386: 37,2001 REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE
002802,001387: # TO BE RESTARTED NOT TO BE RESTARTED
002803,001388: 37,2001 4704 REINTBIT = BIT7
002804,001389:
002805,001390: # BIT 6 FLAG 10
002806,001391: # = 159D
002807,001392:
002808,001393:
002809,001394: # BIT 5 FLAG 10
002810,001395: # = 160D
002811,001396:
002812,001397:
002813,001398: # BIT 4 FLAG 10
002814,001399: # = 161D
002815,001400:
002816,001401:
002817,001402: # BIT 3 FLAG 10
002818,001403: # = 162D
002819,001404:
002820,001405:
002821,001406: # BIT 2 FLAG 10
002822,001407: # = 163D
002823,001408:
002824,001409:
002825,001410: # BIT 1 FLAG 10
002826,001411: # = 164D
002827,001412:
002828,001413:
002829,001414:
002830,001415:
002831,001416:
002832,001417: 37,2001 0107 FLGWRD11 = STATE +11D # (165-179)
002833,001418:
002834,001419: # (SET) (RESET)
002835,001420:
002836,001421: # BIT 15 FLAG 11
002837,001422: # = 165D
002838,001423:
002839,001424:
002840,001425: # BIT 14 FLAG 11
002841,001426: # = 166D
002842,001427:
002843,001428:
002844,001429: # BIT 13 FLAG 11
002845,001430: # = 167D
002846,001431:
002847,001432:
|
|
Page 64 |
002849,001434: # BIT 12 FLAG 11
002850,001435: # = 168D
002851,001436:
002852,001437:
002853,001438: # BIT 11 FLAG 11
002854,001439: # = 169D
002855,001440:
002856,001441:
002857,001442: # BIT 10 FLAG 11
002858,001443: # = 170D
002859,001444:
002860,001445:
002861,001446: # BIT 9 FLAG 11
002862,001447: # = 171D
002863,001448:
002864,001449:
002865,001450: # BIT 8 FLAG 11
002866,001451: # = 172D
002867,001452:
002868,001453:
002869,001454: # BIT 7 FLAG 11
002870,001455: # = 173D
002871,001456:
002872,001457:
002873,001458: # BIT 6 FLAG 11
002874,001459: # = 174D
002875,001460:
002876,001461:
002877,001462: # BIT 5 FLAG 11
002878,001463: # = 175D
002879,001464:
002880,001465:
002881,001466: # BIT 4 FLAG 11
002882,001467: # = 176D
002883,001468:
002884,001469:
002885,001470: # BIT 3 FLAG 11
002886,001471: # = 177D
002887,001472:
002888,001473:
002889,001474: # BIT 2 FLAG 11
002890,001475: # = 178D
002891,001476:
002892,001477:
002893,001478: # BIT 1 FLAG 11
002894,001479: # = 179D
002895,001480:
002896,001481:
002897,001482:
|
|
Page 65 |
002899,001484:
002900,001485: # GENERAL ERASABLE ASSIGNMENTS.
002901,001486:
002902,001487: 0061 SETLOC 61
002903,001488: # INTERRUPT TEMPORARY STORAGE POOL. (11D)
002904,001489: # (ITEMP1 THROUGH RUPTREG4)
002905,001490:
002906,001491: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
002907,001492: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
002908,001493:
002909,001494: 0061 ITEMP1 ERASE
002910,001495: 0062 0061 WAITEXIT EQUALS ITEMP1
002911,001496: 0062 0061 EXECTEM1 EQUALS ITEMP1
002912,001497:
002913,001498: 0062 ITEMP2 ERASE
002914,001499: 0063 0062 WAITBANK EQUALS ITEMP2
002915,001500: 0063 0062 EXECTEM2 EQUALS ITEMP2
002916,001501:
002917,001502: 0063 ITEMP3 ERASE
002918,001503: 0064 0063 RUPTSTOR EQUALS ITEMP3
002919,001504: 0064 0063 WAITADR EQUALS ITEMP3
002920,001505: 0064 0063 NEWPRIO EQUALS ITEMP3
002921,001506:
002922,001507: 0064 ITEMP4 ERASE
002923,001508: 0065 0064 LOCCTR EQUALS ITEMP4
002924,001509: 0065 0064 WAITTEMP EQUALS ITEMP4
002925,001510:
002926,001511: 0065 ITEMP5 ERASE
002927,001512: 0066 0065 NEWLOC EQUALS ITEMP5
002928,001513:
002929,001514: 0066 ITEMP6 ERASE
002930,001515: # NEWLOC+1 EQUALS ITEMP6 DP ADDRESS.
002931,001516:
002932,001517: 0067 SETLOC 67
002933,001518: 0067 NEWJOB ERASE # MUST BE AT LOC 67 DUE TO WIRING.
002934,001519:
002935,001520: 0070 RUPTREG1 ERASE
002936,001521: 0071 RUPTREG2 ERASE
002937,001522: 0072 RUPTREG3 ERASE
002938,001523: 0073 RUPTREG4 ERASE
002939,001524: 0074 0073 KEYTEMP1 EQUALS RUPTREG4
002940,001525: 0074 0073 DSRUPTEM EQUALS RUPTREG4
002941,001526:
002942,001527: # FLAGWORD RESERVATIONS. (12D)
002943,001528:
002944,001529: 0074 STATE ERASE +11D
002945,001530:
002946,001531: 0110 FLAGFILL ERASE +3 # SPACE FOR FUTURE FLAGS
002947,001532:
|
|
Page 66 |
002949,001534:
002950,001535: # EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS.
002951,001536: # (INTB15+ THROUGH RUPTMXM) (32D)
002952,001537:
002953,001538: 0114 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
002954,001539: 0115 0114 DSEXIT EQUALS INTB15+ # RETURN FOR DSPIN
002955,001540: 0115 0114 EXITEM EQUALS INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
002956,001541: 0115 0114 BLANKRET EQUALS INTB15+ # RETURN FOR 2BLANK
002957,001542:
002958,001543: 0115 INTBIT15 ERASE # SIMILAR TO ABOVE.
002959,001544: 0116 0115 WRDRET EQUALS INTBIT15 # RETURN FOR 5BLANK
002960,001545: 0116 0115 WDRET EQUALS INTBIT15 # RETURN FOR DSPWD
002961,001546: 0116 0115 DECRET EQUALS INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
002962,001547: 0116 0115 21/22REG EQUALS INTBIT15 # TEMP FOR CHARIN
002963,001548:
002964,001549: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
002965,001550:
002966,001551: 0116 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
002967,001552: 0117 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
002968,001553: 0120 0117 UPDATRET EQUALS POLISH # RETURN FOR UPDATNN, UPDATVB
002969,001554: 0120 0117 CHAR EQUALS POLISH # TEMP FOR CHARIN
002970,001555: 0120 0117 ERCNT EQUALS POLISH # COUNTER FOR ERROR LIGHT RESET
002971,001556: 0120 0117 DECOUNT EQUALS POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
002972,001557:
002973,001558: 0120 FIXLOC ERASE # WORK AREA ADDRESS.
002974,001559: 0121 OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
002975,001560:
002976,001561: 0122 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
002977,001562: 0130 0122 SGNON EQUALS VBUF # TEMP FOR +,- ON
002978,001563: 0130 0122 NOUNTEM EQUALS VBUF # COUNTER FOR MIXNOUN FETCH
002979,001564: 0130 0122 DISTEM EQUALS VBUF # COUNTER FOR OCTAL DISPLAY VERBS
002980,001565: 0130 0122 DECTEM EQUALS VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
002981,001566:
002982,001567: 0130 0123 SGNOFF EQUALS VBUF +1 # TEMP FOR +,- ON
002983,001568: 0130 0123 NVTEMP EQUALS VBUF +1 # TEMP FOR NVSUB
002984,001569: 0130 0123 SFTEMP1 EQUALS VBUF +1 # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
002985,001570: 0130 0123 HITEMIN EQUALS VBUF +1 # TEMP FOR LOAD OF HRS, MIN, SEC
002986,001571: # MUST = LOTEMIN-1.
002987,001572: 0130 0124 CODE EQUALS VBUF +2 # FOR DSPIN
002988,001573: 0130 0124 SFTEMP2 EQUALS VBUF +2 # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
002989,001574: 0130 0124 LOTEMIN EQUALS VBUF +2 # TEMP FOR LOAD OF HRS, MIN, SEC
002990,001575: # MUST = HITEMIN+1.
002991,001576: 0130 0125 MIXTEMP EQUALS VBUF +3 # FOR MIXNOUN DATA
002992,001577: 0130 0125 SIGNRET EQUALS VBUF +3 # RETURN FOR +,- ON
002993,001578:
002994,001579: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
002995,001580:
002996,001581: 0130 BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
002997,001582: 0133 BUF2 ERASE +1
002998,001583: 0135 0130 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
002999,001584: 0135 0130 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
|
|
Page 67 |
003001,001586: 0135 0131 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN SWITCH WORD.
003002,001587: 0135 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT.
003003,001588: 0136 0135 DMPNTEMP EQUALS MPTEMP # DMPSUB TEMPORARY
003004,001589: 0136 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE.
003005,001590: 0137 0136 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT.
003006,001591: 0137 0136 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
003007,001592: 0137 0136 ENTRET EQUALS DOTINC # EXIT FROM ENTER
003008,001593:
003009,001594: 0137 DOTRET ERASE # RETURN FROM DOT SUBROUTINE.
003010,001595: 0140 0137 DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV.
003011,001596: 0140 0137 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH.
003012,001597: 0140 0137 WDCNT EQUALS DOTRET # CHAR COUNTER FOR DSPWD
003013,001598: 0140 0137 INREL EQUALS DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
003014,001599:
003015,001600: 0140 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM.
003016,001601: 0141 0140 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
003017,001602: 0141 0140 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
003018,001603: 0141 0140 DSPMMTEM EQUALS MATINC # DSPCOUNT SAVE FOR DSPMM
003019,001604: 0141 0140 MIXBR EQUALS MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
003020,001605:
003021,001606: 0141 TEM1 ERASE # EXEC TEMP
003022,001607: 0142 0141 POLYRET EQUALS TEM1
003023,001608: 0142 0141 DSREL EQUALS TEM1 # REL ADDRESS FOR DSPIN
003024,001609:
003025,001610: 0142 TEM2 ERASE # EXEC TEMP
003026,001611: 0143 0142 DSMAG EQUALS TEM2 # MAGNITUDE STORE FOR DSPIN
003027,001612: 0143 0142 IDADDTEM EQUALS TEM2 # MIXNOUN INDIRECT ADDRESS STORAGE
003028,001613:
003029,001614: 0143 TEM3 ERASE # EXEC TEMP
003030,001615: 0144 0143 COUNT EQUALS TEM3 # FOR DSPIN
003031,001616:
003032,001617: 0144 TEM4 ERASE # EXEC TEMP
003033,001618: 0145 0144 LSTPTR EQUALS TEM4 # LIST POINTER FOR GRABUSY
003034,001619: 0145 0144 RELRET EQUALS TEM4 # RETURN FOR RELDSP
003035,001620: 0145 0144 FREERET EQUALS TEM4 # RETURN FOR FREEDSP
003036,001621: 0145 0144 DSPWDRET EQUALS TEM4 # RETURN FOR DSPSIGN
003037,001622: 0145 0144 SEPSCRET EQUALS TEM4 # RETURN FOR SEPSEC
003038,001623: 0145 0144 SEPMNRET EQUALS TEM4 # RETURN FOR SEPMIN
003039,001624:
003040,001625: 0145 TEM5 ERASE # EXEC TEMP
003041,001626: 0146 0145 NOUNADD EQUALS TEM5 # TEMP STORAGE FOR NOUN ADDRESS
003042,001627:
003043,001628: 0146 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
003044,001629: 0147 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
003045,001630: 0150 IDAD1TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003046,001631: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
003047,001632: 0151 IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003048,001633: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
003049,001634: 0152 IDAD3TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003050,001635: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
|
|
Page 68 |
003052,001637: 0153 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
003053,001638:
003054,001639: # AX*SR*T STORAGE. (6D)
003055,001640:
003056,001641: 0154 0142 DEXDEX EQUALS TEM2 # B(1)TMP
003057,001642: 0154 0143 DEX1 EQUALS TEM3 # B(1)TMP
003058,001643: 0154 0144 DEX2 EQUALS TEM4 # B(1)TMP
003059,001644: 0154 0145 RTNSAVER EQUALS TEM5 # B(1)TMP
003060,001645: 0154 0133 TERM1TMP EQUALS BUF2 # B(2)TMP
003061,001646:
003062,001647: 0154 0143 DEXI = DEX1
003063,001648:
|
|
Page 69 |
003065,001650:
003066,001651: # DYNAMICALLY ALLOCATED CORE SETS FOR JOBS. (84D)
003067,001652:
003068,001653: 0154 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
003069,001654: 0163 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
003070,001655: 0164 LOC ERASE # LOCATION ASSOCIATED WITH JOB.
003071,001656: 0165 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
003072,001657: 0166 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
003073,001658: 0167 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
003074,001659:
003075,001660: 0170 ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH.
003076,001661:
003077,001662: # SPECIAL DOWNLINK BUFFER.-OVERLAYED BY P27 STORAGE-
003078,001663:
003079,001664: # P27 (UPDATE PROGRAM) STORAGE. -OVERLAYS SPEC DNLNK BUFF- (24D)
003080,001665:
003081,001666: 0300 COMPNUMB ERASE +23D # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED.
003082,001667: 0330 0301 UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP HOLDS INTERRUPTED PROGRAM NUMBER
003083,001668: 0330 0302 UPVERB EQUALS UPOLDMOD +1 # B(1) TMP VERB NUMBER
003084,001669: 0330 0303 UPCOUNT EQUALS UPVERB +1 # B(1)TMP UPBUFF INDEX
003085,001670: 0330 0304 UPBUFF EQUALS UPCOUNT +1 # B(20D)
003086,001671:
003087,001672: # MORE P27 STORAGE. (2D)
003088,001673:
003089,001674: 0330 UPTEMP ERASE # B(1)TMP SCRATCH
003090,001675: 0331 UPVERBSV ERASE # B(1)TMP
003091,001676: 0332 0330 INTWAK1Q EQUALS UPTEMP # (06D)
003092,001677:
003093,001678:
003094,001679: # (20 REGISTERS OF ENTRY DOWNLINK WILL GO HERE.)
003095,001680:
003096,001681: # THE FOLLOWING ARE INDEXED FOR TM. IN ENTRY DAP.
003097,001682:
003098,001683: 0332 0304 CMTMTIME = UPBUFF # B(1) (VEHICLE BODY RATE INFO IS
003099,001684: 0332 0305 SW/NDX = CMTMTIME +1 # B(1) TELEMETERED EACH 0.2 SEC. DURING
003100,001685: 0332 0324 ENDBUF = CMTMTIME +16D # B(1) ENTRY.)
003101,001686:
003102,001687: 0332 0325 V1 = ENDBUF +1 # I(2) REENTRY, P64-P65
003103,001688: 0332 0327 A0 = V1 +2 # I(2) REENTRY, P64-P65
003104,001689: # HI-ORDER WORD ONLY ON DNLNK.
003105,001690:
003106,001691:
003107,001692: # ALIGNMENT STORAGE. (5D)
003108,001693: # (CANNOT SHARE WITH PRECISION INTEGRATION OR KEPLER STORAGE.)
003109,001694:
003110,001695: 0332 0300 QMAJ EQUALS COMPNUMB # B(1)TMP
003111,001696: 0332 0301 MARKINDX EQUALS QMAJ +1 # B(1)TMP
003112,001697: 0332 0302 BESTI EQUALS MARKINDX +1 # I(1)TMP
003113,001698: 0332 0303 BESTJ EQUALS BESTI +1 # I(1)TMP
003114,001699: 0332 0304 STARIND EQUALS BESTJ +1 # I(1)TMP
003115,001700:
|
|
Page 70 |
003117,001702:
003118,001703: # ALIGNMENT/S40.2,3 COMMON STORAGE. (18D)
003119,001704:
003120,001705: 0332 0306 XSMD EQUALS UPBUFF +2 # I(6)TMP
003121,001706: 0332 0314 YSMD EQUALS XSMD +6 # I(6)TMP
003122,001707: 0332 0322 ZSMD EQUALS YSMD +6 # I(6)TMP
003123,001708:
003124,001709: 0332 0306 XSCREF = XSMD # SPACE CRAFT AXES IN REF COORDS.
003125,001710: 0332 0314 YSCREF = YSMD
003126,001711: 0332 0322 ZSCREF = ZSMD
003127,001712:
003128,001713:
003129,001714: 0332 ZPRIME = 22D
003130,001715: 0332 PDA = 22D
003131,001716: 0332 COSTH = 16D
003132,001717: 0332 SINTH = 18D
003133,001718: 0332 THETA = 20D
003134,001719: 0332 STARM = 32D
003135,001720:
003136,001721:
003137,001722: # DOWNLINK STORAGE. (18)
003138,001723:
003139,001724: 0332 0332 DNLSTADR EQUALS DNLSTCOD # CONTENTS NO LONGER AN ADDR BUT A CODE
003140,001725:
003141,001726: 0332 DNLSTCOD ERASE # B(1)PRM ID CODE OF DOWNLIST
003142,001727: 0333 DUMPCNT ERASE # B(1)PRM
003143,001728: 0334 LDATALST ERASE # B(1)
003144,001729: 0335 DNTMGOTO ERASE # B(1)
003145,001730: 0336 TMINDEX ERASE # B(1)
003146,001731: 0337 0336 DUMPLOC EQUALS TMINDEX # CONTAINS ECADR OF AGC DP WORD BEING DUMP
003147,001732: # ED AND COUNT OF COMPLETE DUMPS ALREADY S
003148,001733: # ENT.
003149,001734: 0337 DNQ ERASE # B(1)
003150,001735: 0340 DNTMBUFF ERASE +11D # B(12) PRM DOWNLINK SNAPSHOT BUFFER
003151,001736:
003152,001737:
003153,001738:
003154,001739: # OPTICS MARKING . UNSHARED. (8D)
003155,001740:
003156,001741: 0354 MKNDX ERASE
003157,001742: 0355 MKT2T1 ERASE +1
003158,001743: 0357 MKCDUY ERASE
003159,001744: 0360 MKCDUS ERASE
003160,001745: 0361 MKCDUZ ERASE
003161,001746: 0362 MKCDUT ERASE
003162,001747: 0363 MKCDUX ERASE
003163,001748: # FOR EXCLUSIVE USE OF SYS TEST STANDARD LEAD INS (2)
003164,001749:
003165,001750: 0364 EBUF2 ERASE +1 # B(2) UNSHARED
003166,001751:
|
|
Page 71 |
003168,001753:
003169,001754: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (10D)
003170,001755:
003171,001756: 0366 RESTREG ERASE # B(1)PRM FOR DISPLAY RESTARTS
003172,001757: 0367 NVWORD ERASE
003173,001758: 0370 MARKNV ERASE
003174,001759: 0371 NVSAVE ERASE
003175,001760: # (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
003176,001761: 0372 CADRFLSH ERASE # B(1)TMP
003177,001762: 0373 CADRMARK ERASE # B(1)TMP
003178,001763: 0374 TEMPFLSH ERASE # B(1)TMP
003179,001764: 0375 FAILREG ERASE +2 # B(3)PRM 3 ALARM-ABORT USER'S 2CADR
003180,001765:
003181,001766: 0400 SETLOC 400
003182,001767: # VAC AREAS. -BE CAREFUL OF PLACEMENT- (220D)
003183,001768:
003184,001769: 0400 VAC1USE ERASE # B(1)PRM
003185,001770: 0401 VAC1 ERASE +42D # B(43)PRM
003186,001771: 0454 VAC2USE ERASE # B(1)PRM
003187,001772: 0455 VAC2 ERASE +42D # B(43)PRM
003188,001773: 0530 VAC3USE ERASE # B(1)PRM
003189,001774: 0531 VAC3 ERASE +42D # B(43)PRM
003190,001775: 0604 VAC4USE ERASE # B(1)PRM
003191,001776: 0605 VAC4 ERASE +42D # B(43)PRM
003192,001777: 0660 VAC5USE ERASE # B(1)PRM
003193,001778: 0661 VAC5 ERASE +42D # B(43)PRM
003194,001779:
003195,001780:
003196,001781: # WAITLIST REPEAT FLAG. (1D)
003197,001782: 0734 RUPTAGN ERASE # B(1)PRM
003198,001783: 0735 0734 KEYTEMP2 = RUPTAGN
003199,001784:
003200,001785:
003201,001786: # STARALIGN ERASABLES. (13D)
003202,001787:
003203,001788: 0735 STARCODE ERASE # B(1)DSP NOUN 70 FOR P22,51 AND R52,53.
003204,001789: 0736 STARALGN ERASE +11D
003205,001790: 0752 0736 SINCDU = STARALGN
003206,001791: 0752 0744 COSCDU = STARALGN +6
003207,001792:
003208,001793: 0752 0742 SINCDUX = SINCDU +4
003209,001794: 0752 0736 SINCDUY = SINCDU
003210,001795: 0752 0740 SINCDUZ = SINCDU +2
003211,001796: 0752 0750 COSCDUX = COSCDU +4
003212,001797: 0752 0744 COSCDUY = COSCDU
003213,001798: 0752 0746 COSCDUZ = COSCDU +2
003214,001799:
003215,001800: # PHASE TABLE AND RESTART COUNTERS. (12D)
|
|
Page 72 |
003217,001802:
003218,001803: 0752 -PHASE1 ERASE # B(1)PRM
003219,001804: 0753 PHASE1 ERASE # B(1)PRM
003220,001805: 0754 -PHASE2 ERASE # B(1)PRM
003221,001806: 0755 PHASE2 ERASE # B(1)PRM
003222,001807: 0756 -PHASE3 ERASE # B(1)PRM
003223,001808: 0757 PHASE3 ERASE # B(1)PRM
003224,001809: 0760 -PHASE4 ERASE # B(1)PRM
003225,001810: 0761 PHASE4 ERASE # B(1)PRM
003226,001811: 0762 -PHASE5 ERASE # B(1)PRM
003227,001812: 0763 PHASE5 ERASE # B(1)PRM
003228,001813: 0764 -PHASE6 ERASE # B(1)PRM
003229,001814: 0765 PHASE6 ERASE # B(1)PRM
003230,001815:
003231,001816:
003232,001817: # AX*SR*T STORAGE. (6D)
003233,001818:
003234,001819: 0766 CDUSPOT ERASE +5 # B(6)
003235,001820:
003236,001821: 0774 0766 CDUSPOTY = CDUSPOT
003237,001822: 0774 0770 CDUSPOTZ = CDUSPOT +2
003238,001823: 0774 0772 CDUSPOTX = CDUSPOT +4
003239,001824:
003240,001825:
003241,001826: # VERB 37 STORAGE. (2D)
003242,001827:
003243,001828: 0774 MINDEX ERASE # B(1)TMP INDEX FOR MAJOR MODE
003244,001829: 0775 MMNUMBER ERASE # B(1)TMP MAJOR MODE REQUESTED VIA V37
003245,001830:
003246,001831:
003247,001832: # PINBALL INTERRUPT STORAGE. (1D)
003248,001833:
003249,001834: 0776 DSPCNT ERASE # B(1)PRM DSPOUT COUNTER
003250,001835:
003251,001836:
003252,001837: # PINBALL EXECUTIVE ACTION. (44D)
003253,001838:
003254,001839: 0777 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR
003255,001840: 1000 DECBRNCH ERASE # +DEC, - DEC, OCT INDICATOR
003256,001841: 1001 VERBREG ERASE # VERB CODE
003257,001842: 1002 NOUNREG ERASE # NOUN CODE
003258,001843: 1003 XREG ERASE # R1 INPUT BUFFER
003259,001844: 1004 YREG ERASE # R2 INPUT BUFFER
003260,001845: 1005 ZREG ERASE # R3 INPUT BUFFER
003261,001846: 1006 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
003262,001847: 1007 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
003263,001848: 1010 1007 HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
003264,001849: # MUST = LOTEMOUT-1.
003265,001850: 1010 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
003266,001851: 1011 1010 LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS,MIN,SEC
003267,001852: # MUST = HITEMOUT+1.
|
|
Page 73 |
003269,001854: 1011 MODREG ERASE # MODE CODE
003270,001855: 1012 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
003271,001856: 1013 REQRET ERASE # RETURN REGISTER FOR LOAD
003272,001857: 1014 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
003273,001858: 1015 CLPASS ERASE # PASS INDICATOR CLEAR
003274,001859: 1016 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
003275,001860: 1017 NOUNCADR ERASE # MACHINE CADR FOR NOUN
003276,001861: 1020 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
003277,001862: 1021 MONSAVE1 ERASE # NOUNCADR FOR MONITOR(MATBS) = MONSAVE +1
003278,001863: 1022 MONSAVE2 ERASE # B(1)PRM NVMONOPT OPTIONS
003279,001864: 1023 DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
003280,001865: 1037 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
003281,001866: # MUST = NVBNKTEM-1
003282,001867: 1040 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
003283,001868: # MUST = NVQTEM+1
003284,001869: 1041 VERBSAVE ERASE # NEEDED FOR RECYCLE
003285,001870: 1042 CADRSTOR ERASE # ENDIDLE STORAGE
003286,001871: 1043 DSPLIST ERASE # WAITING REG FOR DSP SYST INTERNAL USE
003287,001872: 1044 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
003288,001873: 1045 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
003289,001874: 1050 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
003290,001875:
003291,001876:
003292,001877: 1053 1051 DSPTEMX EQUALS DSPTEM2 +1 # B(2) S-S DISPLAY BUFFER FOR EXT. VERBS.
003293,001878: 1053 1045 NORMTEM1 EQUALS DSPTEM1 # B(3)DSP NORMAL DISPLAY REGISTERS.
003294,001879:
003295,001880:
003296,001881:
003297,001882: # DISPLAY FOR EXTENDED VERBS (2D)
003298,001883:
003299,001884: 1053 1051 OPTIONX EQUALS DSPTEMX # B(2) EXTENDED VERB OPTION CODE N12(V82)
003300,001885:
003301,001886:
003302,001887: # TBASE S AND PHSPRDT S. (12D)
003303,001888:
003304,001889: 1053 TBASE1 ERASE # B(1)PRM
003305,001890: 1054 PHSPRDT1 ERASE # B(1)PRM
003306,001891: 1055 TBASE2 ERASE # B(1)PRM
003307,001892: 1056 PHSPRDT2 ERASE # B(1)PRM
003308,001893: 1057 TBASE3 ERASE # B(1)PRM
003309,001894: 1060 PHSPRDT3 ERASE # B(1)PRM
003310,001895: 1061 TBASE4 ERASE # B(1)PRM
003311,001896: 1062 PHSPRDT4 ERASE # B(1)PRM
003312,001897: 1063 TBASE5 ERASE # B(1)PRM
003313,001898: 1064 PHSPRDT5 ERASE # B(1)PRM
003314,001899: 1065 TBASE6 ERASE # B(1)PRM
003315,001900: 1066 PHSPRDT6 ERASE # B(1)PRM
003316,001901:
003317,001902:
003318,001903: # MORE UNSWITCHED FOR DISPLAY INF (5D).
|
|
Page 74 |
003320,001905:
003321,001906: 1067 EBANKSAV ERASE
003322,001907: 1070 MARKEBAN ERASE
003323,001908: 1071 EBANKTEM ERASE
003324,001909: 1072 MARK2PAC ERASE
003325,001910: 1073 R1SAVE ERASE
003326,001911:
003327,001912:
003328,001913: # IMU COMPENSATION UNSWITCHED ERASABLE. (1D)
003329,001914:
003330,001915: 1074 1/PIPADT ERASE # B(1)PRM
003331,001916: 1075 1074 OLDBT1 = 1/PIPADT
003332,001917:
003333,001918: # SINGLE PRECISION SUBROUTINE TEMPORARIES. (3D)
003334,001919:
003335,001920: # SPSIN, SPCOS, SPROOT VARIABLES.
003336,001921: # DO NOT SHARE. THESE ARE USED BY DAPS IN INTERRUPT
003337,001922: # AND CURRENTLY ARE NOT PROTECTED. IF OTHER USERS
003338,001923: # MATERIALIZE, THEN THIS CAN BE CHANGED.
003339,001924:
003340,001925: 1075 HALFY ERASE
003341,001926: 1076 ROOTRET ERASE
003342,001927: 1077 SQRARG ERASE
003343,001928: 1100 1075 TEMK EQUALS HALFY
003344,001929: 1100 1076 SQ EQUALS ROOTRET
003345,001930:
|
|
Page 75 |
003347,001932:
003348,001933: # UNSWITCHED FOR ORBIT INTEGRATION. (21D)
003349,001934:
003350,001935: 1100 TDEC ERASE +20D # I(2)
003351,001936: 1125 1102 COLREG EQUALS TDEC +2 # I(1)
003352,001937: 1125 1103 LAT EQUALS COLREG +1 # I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53.
003353,001938: 1125 1103 LANDLAT = LAT # NOUN 89 FOR P22.
003354,001939: 1125 1105 LONG EQUALS LAT +2 # I(2)DSP NOUN 43,67 FOR P20,22,51 R52,53.
003355,001940: 1125 1107 ALT EQUALS LONG +2 # I(2)DSP NOUN 43 FOR P20,22,51 R52,53.
003356,001941: 1125 1111 YV EQUALS ALT +2 # I(6)
003357,001942: 1125 1117 ZV EQUALS YV +6 # I(6)
003358,001943:
003359,001944:
003360,001945:
003361,001946: # MARK STORAGE. (2)
003362,001947:
003363,001948: 1125 VHFCNT ERASE # B(1)PRM NO. OF VHF MARKS(P20(R22)).
003364,001949: 1126 TRKMKCNT ERASE # B(1)PRM NO. OF VHF MARKS (P20(R22)).
003365,001950:
003366,001951: 1127 1126 MARKCTR = TRKMKCNT # B(1) MARK COUNTER USED BY R32
003367,001952:
003368,001953:
003369,001954: # MISCELLANEOUS UNSWITCHED. (16D)
003370,001955:
003371,001956: 1127 IRETURN1 ERASE # B(1) RET ADDR USED BY MIDTOAV1 AND 2
003372,001957: # CALLED BY P40,P41,P42, P61,P62
003373,001958: 1130 RATEINDX ERASE # (1) USED BY KALCMANU
003374,001959: 1131 OPTION1 ERASE # B(1) NOUN 06 USES THIS
003375,001960: 1132 OPTION2 ERASE # B(1) NOUN 06 USES THIS
003376,001961: 1133 LONGCADR ERASE +1 # B(2) LONGCALL REGISTER
003377,001962: 1135 LONGBASE ERASE +1 # B(2) LONGCALL REGISTER
003378,001963: 1137 LONGTIME ERASE +1 # B(2) LONGCALL REGISTER
003379,001964: 1141 DELAYLOC ERASE +3
003380,001965: 1145 NVWORD1 ERASE # B(1)
003381,001966: 1146 TEMPR60 ERASE # B(1)
003382,001967: 1147 PRIOTIME ERASE # B(1)
003383,001968: 1150 1127 P30/RET EQUALS IRETURN1
003384,001969:
003385,001970:
003386,001971:
003387,001972: # MISC. INCLUDING RESTART COUNTER, GIMBAL ANGLE SAVE AND
003388,001973: # STANDBY VERB ERASABLES. REDOCTR BEFORE THETAD (DWNLNK) (16D)
003389,001974:
003390,001975: 1150 TIME2SAV ERASE +1 # B(2)TMP
003391,001976: 1152 SCALSAVE ERASE +1 # B(2)TMP
003392,001977: 1154 REDOCTR ERASE # B(1)PRM CONTAINS NUMBER OF RESTARTS.
003393,001978: 1155 THETAD ERASE +2 # B(3)PRM DESIRED GIM ANGLES FOR MANEUVER.
003394,001979: 1160 1155 CPHI = THETAD # (OUTER)
003395,001980: 1160 1156 CTHETA = THETAD +1 # (INNER)
003396,001981: 1160 1157 CPSI = THETAD +2 # (MIDDLE)
003397,001982:
|
|
Page 76 |
003399,001984:
003400,001985: # ENTRY VARIABLES SHARED FOR TM.
003401,001986:
003402,001987: 1160 1155 RDOTREF = THETAD # I(2) P65
003403,001988: 1160 1157 VREF = RDOTREF +2 # I(2) P65 HI-ORDER WORD ONLY DNLNK'D
003404,001989: 1160 DESOPTT ERASE # B(1)DSP NOUN 92 FOR P20,22,52, R52.
003405,001990: 1161 DESOPTS ERASE # B(1)DSP NOUN 92 FOR P20,22,52, R52.
003406,001991:
003407,001992: 1162 DELV ERASE +5 # I(6)
003408,001993: 1170 1162 DELVX = DELV
003409,001994: 1170 1164 DELVY = DELV +2
003410,001995: 1170 1166 DELVZ = DELV +4
003411,001996:
003412,001997: # P20, CONICS (SHARING WITH TIME 2 SAV AND SCAL SAV ONLY) (3D)
003413,001998:
003414,001999: 1170 1150 POINTEX EQUALS TIME2SAV # I(1) POINT AXS EXIT
003415,002000: 1170 1151 VHFTIME EQUALS POINTEX +1 # I(2) DOWNLINK OF VHF RANGE TIME +1M
003416,002001:
003417,002002:
003418,002003:
003419,002004: # PERM STATE VECTORS FOR BOOST AND DOWNLINK -WHOLE MISSION- (14D)
003420,002005:
003421,002006: 1170 RN ERASE +5 # B(6)PRM
003422,002007: 1176 VN ERASE +5 # B(6)PRM
003423,002008: 1204 PIPTIME ERASE +1 # B(2)PRM (MUST BE FOLLOWED BY GDT/2)
003424,002009:
003425,002010:
003426,002011: # SERVICER STORAGE. (45D)
003427,002012:
003428,002013: # (SERVICER STORAGE AND P11 STORAGE IN UNSWITHCHED SHOULD NOT
003429,002014: # OVERLAY EACH OTHER AND THE TOTAL ERASABLE REQUIRED SHOULD NOT
003430,002015: # EXCEED THE ERASABLE STORAGE REQUIRED BY RENDEZVOUS GUIDANCE)
003431,002016:
003432,002017: 1206 1206 GDT/2 EQUALS PIPTIME +2 # B(6)TMP (MUST FOLLOW PIPTIME)
003433,002018: 1206 1214 GOBL/2 EQUALS GDT/2 +6 # B(6)TMP
003434,002019: 1206 1222 AVEGEXIT EQUALS GOBL/2 +6 # B(2)TMP
003435,002020: 1206 1222 AVGEXIT = AVEGEXIT
003436,002021: 1206 1224 TEMX EQUALS AVEGEXIT +2 # B(1)TMP
003437,002022: 1206 1225 TEMY EQUALS TEMX +1 # B(1)TMP
003438,002023: 1206 1226 TEMZ EQUALS TEMY +1 # B(1)TMP
003439,002024: 1206 1227 PIPCTR EQUALS TEMZ +1 # B(1)TMP
003440,002025: 1206 1230 PIPAGE EQUALS PIPCTR +1 # B(1)TMP
003441,002026:
003442,002027:
003443,002028: 1206 1231 RN1 EQUALS PIPAGE +1 # B(6)TMP
003444,002029: 1206 1237 VN1 EQUALS RN1 +6 # B(6)TMP
003445,002030: 1206 1245 PIPTIME1 EQUALS VN1 +6 # B(2)TMP
003446,002031: 1206 1247 GDT1/2 EQUALS PIPTIME1 +2 # B(6)TMP
003447,002032: 1206 1255 GOBL1/2 EQUALS GDT1/2 +6 # B(6)TMP
003448,002033:
|
|
Page 77 |
003450,002035:
003451,002036: # ENTRY STORAGE. (1D)
003452,002037:
003453,002038: 1206 1263 ENTRYVN EQUALS GOBL1/2 +6 # B(1)TMP VN CODE FOR ENTRY DISPLAYS P60S.
003454,002039:
003455,002040:
003456,002041:
003457,002042: # P11 STORAGE. (9D)
003458,002043:
003459,002044: 1206 1263 PADLONG EQUALS ENTRYVN # (2)PL LONGITUDE OF LAUNCH PAD
003460,002045: 1206 1265 LIFTTEMP EQUALS PADLONG +2 # (2)TMP
003461,002046: 1206 1267 TEPHEM1 EQUALS LIFTTEMP +2 # (3)TMP
003462,002047: 1206 1272 PGNCSALT EQUALS TEPHEM1 +3 # (2)PL ALTITUDE
003463,002048:
003464,002049:
003465,002050: # RENDEZVOUS NAVIGATION STORAGE.(SEE COMMENT IN SERVICER STORAGE)(58D)
003466,002051:
003467,002052: 1206 CSMPOS ERASE +57D # I(6)TMP
003468,002053: 1300 1214 LEMPOS EQUALS CSMPOS +6 # I(6)TMP
003469,002054: 1300 1222 RCL EQUALS LEMPOS +6 # I(2)TMP
003470,002055: 1300 1224 MARKTIME EQUALS RCL +2 # B(2)TMP
003471,002056: 1300 1226 VTEMP EQUALS MARKTIME +2 # B(6)TMP
003472,002057: 1300 1234 UM EQUALS VTEMP +6 # I(6)TMP
003473,002058: 1300 1242 MARKDATA EQUALS UM +6 # B(2)TMP
003474,002059: 1300 1244 USTAR EQUALS MARKDATA +2 # I(6)TMP
003475,002060: 1300 1252 WIXA EQUALS USTAR +6 # B(1)TMP
003476,002061: 1300 1253 WIXB EQUALS WIXA +1 # B(1)TMP
003477,002062: 1300 1254 ZIXA EQUALS WIXB +1 # B(1)TMP
003478,002063: 1300 1255 ZIXB EQUALS ZIXA +1 # B(1)TMP
003479,002064: 1300 1256 DELTAX EQUALS ZIXB +1 # I(18)TMP
003480,002065:
003481,002066: 1300 1256 VHFRANGE EQUALS DELTAX # (2)
003482,002067: 1300 1272 UCL EQUALS DELTAX +12D # (6) LM-CSM LINE OF SIGHT 1/2 UNIT V
003483,002068:
003484,002069:
003485,002070: # **** CONICSEX (MEAS INC) ****
003486,002071:
003487,002072: 1300 1256 TRIPA EQUALS DELTAX
003488,002073: 1300 1261 TEMPVAR EQUALS DELTAX +3
003489,002074:
003490,002075:
003491,002076:
003492,002077: 1300 TEMPOR1 ERASE +1 # B(2)TMP
003493,002078:
003494,002079:
003495,002080: # T4RUPT ERASABLE. (6D)
003496,002081:
003497,002082: 1302 DSRUPTSW ERASE
003498,002083: 1303 OPTIND ERASE
003499,002084: 1304 LGYRO ERASE
003500,002085: 1305 COMMANDO ERASE +1
003501,002086:
|
|
Page 78 |
003503,002088:
003504,002089: 1307 ZONE ERASE # B(1)PRM USED IN SHAFT STOP MONITOR
003505,002090: 1310 0000035 LASTYCMD = OPTY # DUMMY TO MAKE RR BENCH TEST ASSEMBLE
003506,002091: 1310 0000035 LASTXCMD = OPTY # DUMMY TO MAKE RR BENCH TEST ASSEMBLE
003507,002092:
003508,002093:
003509,002094: # UNSWITCHED DAP ERASABLE. (4D)
003510,002095:
003511,002096: 1310 T6LOC ERASE
003512,002097: 1311 T6ADR ERASE
003513,002098: 1312 T5LOC ERASE +1
003514,002099:
003515,002100:
003516,002101: # MODE SWITCHING ERASABLE. (14D)
003517,002102:
003518,002103: 1314 SWSAMPLE ERASE # B(1)PRM
003519,002104: 1315 DESOPMOD ERASE # B(1)PRM
003520,002105: 1316 WTOPTION ERASE # B(1)PRM
003521,002106: 1317 ZOPTCNT ERASE # B(1)PRM
003522,002107: 1320 IMODES30 ERASE # B(1)PRM
003523,002108: 1321 IMODES33 ERASE # B(1)PRM
003524,002109: 1322 MODECADR ERASE +2 # B(3)TMP
003525,002110: 1325 1322 IMUCADR = MODECADR
003526,002111: 1325 1323 OPTCADR = MODECADR +1
003527,002112: 1325 1324 RADCADR = MODECADR +2
003528,002113: 1325 ATTCADR ERASE +2 # B(3)PRM
003529,002114: 1330 1327 ATTPRIO = ATTCADR +2
003530,002115: 1330 MARKSTAT ERASE # B(1)PRM
003531,002116: 1331 OPTMODES ERASE # B(1)PRM
003532,002117:
003533,002118:
003534,002119:
003535,002120: # RCSDAP ERASABLE. (1D)
003536,002121:
003537,002122: 1332 HOLDFLAG ERASE # B(1)PRM
003538,002123:
003539,002124:
003540,002125:
003541,002126:
003542,002127:
003543,002128:
003544,002129: # CRS61.1 STORAGE. -USED IN R63 (VERB 89)- (5D)
003545,002130:
003546,002131: 1333 CPHIX ERASE +2 # B(3)DSP NOUN 96 CALCULATED BY CRS61.1
003547,002132:
003548,002133:
003549,002134:
003550,002135: 1336 TEVENT ERASE +1 # B(2) TIME OF EVENT FOR DOWNLIST
003551,002136: 1340 1336 TLIFTOFF = TEVENT
003552,002137:
|
|
Page 79 |
003554,002139:
003555,002140: # P34-P35 STORAGE (1D)
003556,002141:
003557,002142: 1340 NORMEX ERASE
003558,002143:
003559,002144:
003560,002145:
003561,002146: # SELF-CHECK ASSIGNMENTS. (17D)
003562,002147:
003563,002148: # (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
003564,002149:
003565,002150: 1341 SELFERAS ERASE 1357 - 1377 # ***MUST NOT BE MOVED***
003566,002151: 1341 1357 SFAIL EQUALS SELFERAS # B(1)
003567,002152: 1341 1360 ERESTORE EQUALS SFAIL +1 # B(1)
003568,002153: 1341 1361 SELFRET EQUALS ERESTORE +1 # B(1) RETURN
003569,002154: 1341 1362 SMODE EQUALS SELFRET +1 # B(1)
003570,002155: 1341 1363 ALMCADR EQUALS SMODE +1 # B(2) ALARM-ABORT USER'S 2CADR
003571,002156: 1341 1365 ERCOUNT EQUALS ALMCADR +2 # B(1)
003572,002157: 1341 1366 SCOUNT EQUALS ERCOUNT +1 # B(3)
003573,002158: 1341 1371 SKEEP1 EQUALS SCOUNT +3 # B(1)
003574,002159: 1341 1372 SKEEP2 EQUALS SKEEP1 +1 # B(1)
003575,002160: 1341 1373 SKEEP3 EQUALS SKEEP2 +1 # B(1)
003576,002161: 1341 1374 SKEEP4 EQUALS SKEEP3 +1 # B(1)
003577,002162: 1341 1375 SKEEP5 EQUALS SKEEP4 +1 # B(1)
003578,002163: 1341 1376 SKEEP6 EQUALS SKEEP5 +1 # B(1)
003579,002164: 1341 1377 SKEEP7 EQUALS SKEEP6 +1 # B(1)
003580,002165:
003581,002166:
003582,002167: # USED BY P30 ROUTINES TO WRITE ONLY NEVER READ IN COLOSSUS
003583,002168:
003584,002169: 1341 0000000 DISPDEX EQUALS A
003585,002170: # ERASABLE FOR SXTMARK CDU CHECK DELAY. -PAD LOADED- (1D)
003586,002171:
003587,002172: 1341 CDUCHKWD ERASE # B(1) PL
003588,002173:
003589,002174:
003590,002175: # R57 STORAGE. -MUST BE UNSHARED EXCEPT IN BOOST OR ENTRY- (1D)
003591,002176:
003592,002177: 1342 TRUNBIAS ERASE # B(1)PRM RESULT OF R57 CALIBR OF TRUNION
003593,002178:
003594,002179:
003595,002180:
003596,002181: # KEPLER STORAGE (6D)
003597,002182:
003598,002183: 1343 XMODULO ERASE +1 # I(2) GREATER 2PI KEPLER
003599,002184: 1345 TMODULO ERASE +1 # I(2) GREATER 2 KEPLER
003600,002185: 1347 EPSILONT ERASE +1 # I(2) TMP
003601,002186:
|
|
Page 80 |
003603,002188:
003604,002189: # P37 **RETURN TO EARTH (PAD LOAD) **** (2D)
003605,002190:
003606,002191: 1351 RTED1 ERASE +1 # I(2)PL VGAMMA POLY COEF B-3
003607,002192:
003608,002193:
003609,002194: # P40 ***STEERING ROUTINE*** PAD LOAD (1D)
003610,002195:
003611,002196: 1353 DVTHRESH ERASE # I(1)PL DELTA V THRESHOLD FOR LOW THRUST
003612,002197: # ROUTINE B-2
003613,002198:
003614,002199:
003615,002200: # P23 ***PAD LOAD**** (2D)
003616,002201:
003617,002202: 1354 HORIZALT ERASE +1 # I(2)PL HORIZION ALTITUDE M B-29
003618,002203:
003619,002204:
003620,002205: # P-20 ALTERNATE LOS VARIANCE PAD LOAD***** (1D)
003621,002206:
003622,002207: # -16
003623,002208: 1356 ALTVAR ERASE # I(2)PL MILLARD. SQUARED SCALED 2
003624,002209:
003625,002210:
003626,002211: 1357 1377 END-UE EQUALS SELFERAS +16D # LAST USED UNSWITCHED ERASABLE
003627,002212:
|
|
Page 81 |
003629,002214:
003630,002215: # EBANK-3 ASSIGNMENTS
003631,002216:
003632,002217: E3,1400 SETLOC 1400
003633,002218:
003634,002219: # WAITLIST TASK LISTS. (26D)
003635,002220:
003636,002221: E3,1400 LST1 ERASE +7 # B(8D)PRM DELTA T S.
003637,002222: E3,1410 LST2 ERASE +17D # B(18D)PRM TASK 2CADR ADDRESSES.
003638,002223:
003639,002224:
003640,002225: # RESTART STORAGE. (2D)
003641,002226:
003642,002227: E3,1432 RSBBQ ERASE +1 # B(2)PRM SAVE BB AND Q FOR RESTARTS.
003643,002228:
003644,002229:
003645,002230: # MORE LONGCALL STORAGE. (MUST BE IN LST1 S BANK). (2D)
003646,002231:
003647,002232: E3,1434 LONGEXIT ERASE +1 # B(2)TMP MAY BE SELDOM OVERLAYED.
003648,002233:
003649,002234:
003650,002235: # PHASE-CHANGE LISTS PART II. (12D)
003651,002236:
003652,002237: E3,1436 PHSNAME1 ERASE # B(1)PRM
003653,002238: E3,1437 PHSBB1 ERASE # B(1)PRM
003654,002239: E3,1440 PHSNAME2 ERASE # B(1)PRM
003655,002240: E3,1441 PHSBB2 ERASE # B(1)PRM
003656,002241: E3,1442 PHSNAME3 ERASE # B(1)PRM
003657,002242: E3,1443 PHSBB3 ERASE # B(1)PRM
003658,002243: E3,1444 PHSNAME4 ERASE # B(1)PRM
003659,002244: E3,1445 PHSBB4 ERASE # B(1)PRM
003660,002245: E3,1446 PHSNAME5 ERASE # B(1)PRM
003661,002246: E3,1447 PHSBB5 ERASE # B(1)PRM
003662,002247: E3,1450 PHSNAME6 ERASE # B(1)PRM
003663,002248: E3,1451 PHSBB6 ERASE # B(1)PRM
003664,002249:
003665,002250:
003666,002251: # IMU COMPENSATION PARAMETERS. (22D)
003667,002252:
003668,002253: E3,1452 PBIASX ERASE # B(1) PIPA BIAS, PIPA SCALE FACTR TERMS
003669,002254: E3,1453 E3,1452 PIPABIAS = PBIASX # INTERMIXED.
003670,002255: E3,1453 PIPASCFX ERASE
003671,002256: E3,1454 E3,1453 PIPASCF = PIPASCFX
003672,002257: E3,1454 PBIASY ERASE
003673,002258: E3,1455 PIPASCFY ERASE
003674,002259: E3,1456 PBIASZ ERASE
003675,002260: E3,1457 PIPASCFZ ERASE
003676,002261:
003677,002262: E3,1460 NBDX ERASE # GYRO BIAS DRIFTS
003678,002263: E3,1461 E3,1460 GBIASX = NBDX
003679,002264: E3,1461 NBDY ERASE
|
|
Page 82 |
003681,002266: E3,1462 NBDZ ERASE
003682,002267:
003683,002268: E3,1463 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
003684,002269: E3,1464 ADIAY ERASE # INPUT AXIS
003685,002270: E3,1465 ADIAZ ERASE
003686,002271:
003687,002272: E3,1466 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
003688,002273: E3,1467 ADSRAY ERASE # SPIN REFERENCE AXIS
003689,002274: E3,1470 ADSRAZ ERASE
003690,002275:
003691,002276: E3,1471 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES
003692,002277:
003693,002278: E3,1477 GCOMPSW ERASE
003694,002279: E3,1500 E3,1471 COMMAND EQUALS GCOMP
003695,002280: E3,1500 E3,1474 CDUIND EQUALS GCOMP +3
003696,002281:
003697,002282:
003698,002283: # STATE VECTORS FOR ORBIT INTEGRATION. (44D)
003699,002284:
003700,002285: # (DIFEQCNT THRU XKEP MUST BE IN SAME
003701,002286: # EBANK AS RRECTCSM, RRECTLEM ETC
003702,002287: # BECAUSE THE COPY-CYCLES (ATOPCSM,
003703,002288: # PTOACSM ETC) ARE EXECUTED IN BASIC.
003704,002289: # ALL OTHER REFERENCES TO THIS GROUP
003705,002290: # ARE BY INTERPRETIVE INSTRUCTIONS.)
003706,002291:
003707,002292:
003708,002293: E3,1500 DIFEQCNT ERASE +43D # B(1)TMP
003709,002294: # (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
003710,002295:
003711,002296: E3,1554 E3,1501 UPSVFLAG EQUALS DIFEQCNT +1 # B(1)PRM UPDATE FLAG
003712,002297: E3,1554 E3,1502 RRECT EQUALS UPSVFLAG +1 # B(6)TMP POS AT RECT KM*2(-14)
003713,002298: E3,1554 E3,1510 VRECT EQUALS RRECT +6 # B(6)TMP VEL AT RECT KM(-1/2)*2(6)
003714,002299: E3,1554 E3,1516 TET EQUALS VRECT +6 # B(2)TMP TIME OF STATE VECT CSECS*2(-28)
003715,002300: E3,1554 E3,1520 TDELTAV EQUALS TET +2 # B(6)TMP POSITION DEVIATION KM*2(14)
003716,002301: E3,1554 E3,1526 TNUV EQUALS TDELTAV +6 # B(6)TMP VEL DEVIATION KM(-1/2)*2(14)
003717,002302: E3,1554 E3,1534 RCV EQUALS TNUV +6 # B(6)TMP CONIC POSITION KM*2(-14)
003718,002303: E3,1554 E3,1542 VCV EQUALS RCV +6 # B(6)TMP CONIC VELOCITY KM(-1/2)*2(6)
003719,002304: E3,1554 E3,1550 TC EQUALS VCV +6 # B(2)TMP TIME SINCE RECTIFICATION
003720,002305: E3,1554 E3,1552 XKEP EQUALS TC +2 # B(2)TMP ROOT OF KEPLER EQ KM(1/2.*2(-10)
003721,002306:
003722,002307: # **** TEMP - IN VAC AREA ****
003723,002308: E3,1554 RRECT1 EQUALS 18D
003724,002309: E3,1554 VRECT1 EQUALS 24D
003725,002310: E3,1554 TET1 EQUALS 30D
003726,002311:
003727,002312:
003728,002313:
003729,002314: # PERMANENT STATE VECTORS AND TIMES. (101D)
003730,002315:
003731,002316: # (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
003732,002317:
|
|
Page 83 |
003734,002319: # (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
003735,002320:
003736,002321: E3,1554 RRECTCSM ERASE +5 # B(6)PRM CSM VARIABLES.
003737,002322: E3,1562 E3,1554 RRECTHIS = RRECTCSM
003738,002323: E3,1562 VRECTCSM ERASE +5 # B(6)PRM
003739,002324: E3,1570 TETCSM ERASE +1 # B(2)PRM
003740,002325: E3,1572 E3,1570 TETTHIS = TETCSM
003741,002326: E3,1572 DELTACSM ERASE +5 # B(6)PRM
003742,002327: E3,1600 NUVCSM ERASE +5 # B(6)PRM
003743,002328: E3,1606 RCVCSM ERASE +5 # B(6)PRM
003744,002329: E3,1614 VCVCSM ERASE +5 # B(6)PRM
003745,002330: E3,1622 TCCSM ERASE +1 # B(2)PRM
003746,002331: E3,1624 XKEPCSM ERASE +1 # B(2)PRM
003747,002332:
003748,002333: # (RRECTLEM...XKEPLEM MUST BE KEPT IN THIS ORDER)
003749,002334:
003750,002335: E3,1626 RRECTLEM ERASE +5 # B(6)PRM LEM VARIABLES
003751,002336: E3,1634 E3,1626 RRECTOTH = RRECTLEM
003752,002337: E3,1634 VRECTLEM ERASE +5 # B(6)PRM
003753,002338: E3,1642 TETLEM ERASE +1 # B(2)PRM
003754,002339: E3,1644 E3,1642 TETOTHER = TETLEM
003755,002340: E3,1644 DELTALEM ERASE +5 # B(6)PRM
003756,002341: E3,1652 NUVLEM ERASE +5 # B(6)PRM
003757,002342: E3,1660 RCVLEM ERASE +5 # B(6)PRM
003758,002343: E3,1666 VCVLEM ERASE +5 # B(6)PRM
003759,002344: E3,1674 TCLEM ERASE +1 # B(2)PRM
003760,002345: E3,1676 XKEPLEM ERASE +1 # B(2)PRM
003761,002346:
003762,002347: E3,1700 X789 ERASE +5
003763,002348: E3,1706 TEPHEM ERASE +2
003764,002349: E3,1711 AZO ERASE +1
003765,002350: E3,1713 UNITW ERASE +5
003766,002351: E3,1721 E3,1713 -AYO EQUALS UNITW # (2)
003767,002352: E3,1721 E3,1715 AXO EQUALS UNITW +2 # (2)
003768,002353:
003769,002354:
003770,002355:
003771,002356: # STATE VECTORS FOR DOWNLINK. (12D)
003772,002357:
003773,002358: E3,1721 R-OTHER ERASE +5 # B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
003774,002359: E3,1727 V-OTHER ERASE +5 # B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
003775,002360:
003776,002361: E3,1735 E3,1642 T-OTHER = TETLEM # TIME (OTHER VECH) FOR DNLINK
003777,002362:
003778,002363:
003779,002364: # REFSMMAT. (18D)
003780,002365:
003781,002366: E3,1735 REFSMMAT ERASE +17D # I(18D)PRM
003782,002367:
|
|
Page 84 |
003784,002369:
003785,002370: # AVERAGEG INTEGRATOR STORAGE. (8D)
003786,002371:
003787,002372: E3,1757 UNITR ERASE +5
003788,002373: E3,1765 RMAG ERASE +1
003789,002374:
003790,002375:
003791,002376: # **** CONICSEX (PLANETARY INERT. ORIEN.) ****
003792,002377:
003793,002378: E3,1767 E3,1706 TIMSUBO EQUALS TEPHEM # CSEC B-42 (TRIPLE PREC)
003794,002379: E3,1767 E3,1767 END-E3 EQUALS RMAG +2 # NEXT UNUSED E3 ADDRESS
003795,002380:
|
|
Page 85 |
003797,002382:
003798,002383: # EBANK-4 ASSIGNMENTS
003799,002384:
003800,002385: E4,1400 SETLOC 2000
003801,002386:
003802,002387:
003803,002388: # P20 STORAGE. -PAD LOADED- (4D)
003804,002389:
003805,002390: E4,1400 WRENDPOS ERASE # B(1)PL M B-14
003806,002391: E4,1401 WRENDVEL ERASE # B(1)PL M/CSECB0
003807,002392: E4,1402 RMAX ERASE # B(1)PL METERS*2(-19)
003808,002393: E4,1403 VMAX ERASE # B(1)PL M/CSEC*2(-7)
003809,002394:
003810,002395:
003811,002396: # P22 STORAGE. -PAD LOADED- (5D)
003812,002397:
003813,002398: E4,1404 WORBPOS ERASE # B(1)PL M B-14
003814,002399: E4,1405 WORBVEL ERASE # B(1)PL M/CSECB0
003815,002400: E4,1406 S22WSUBL ERASE # B(1)PL M B-14
003816,002401: E4,1407 RPVAR ERASE +1 # B(2)PL
003817,002402:
003818,002403: # CONISEX STORAGE. -PAD LOADED- (6D)
003819,002404:
003820,002405: E4,1411 504LM ERASE +5 # I(6)MOON LIBRATION VECTOR
003821,002406:
003822,002407:
003823,002408:
003824,002409: # ENTRY STORAGE. -PAD LOADED- (2D)
003825,002410:
003826,002411: E4,1417 EMSALT ERASE +1 # I(2)PL
003827,002412:
003828,002413:
003829,002414: # P35 CONSTANTS. -PAD LOADED- (4D)
003830,002415:
003831,002416: E4,1421 ATIGINC ERASE +1 # B(2)PL
003832,002417: E4,1423 PTIGINC ERASE +1 # B(2)PL
003833,002418:
003834,002419:
003835,002420: # LUNAR LANDING SIGHT DATA. -PAD LOADED- (6D)
003836,002421: # (USED BY INTEGRATION INITIALIZATION,LAT-LONG SUBROUTINES, P30'S)
003837,002422:
003838,002423: E4,1425 RLS ERASE +5 # I(6) PL LUNAR LANDING SIGHT VECTOR
003839,002424:
003840,002425:
003841,002426:
003842,002427: # CONISEX (LUNAR AND SOLAR EPHEM)STORAGE. -PAD LOADED- (77D)
003843,002428: E4,1433 TIMEMO ERASE +76D
003844,002429: E4,1550 E4,1436 VECOEM EQUALS TIMEMO +3
003845,002430: E4,1550 E4,1532 RESO EQUALS VECOEM +60D
|
|
Page 86 |
003847,002432: E4,1550 E4,1540 VESO EQUALS RESO +6
003848,002433: E4,1550 E4,1546 OMEGAES EQUALS VESO +6
003849,002434:
003850,002435:
003851,002436: # FULL INTEGRATION STORAGE. (95D)
003852,002437:
003853,002438: E4,1550 PBODY ERASE # I(1)
003854,002439: E4,1551 E4,1551 ALPHAV EQUALS PBODY +1 # I(6)TMP
003855,002440: E4,1551 E4,1557 BETAV EQUALS ALPHAV +6 # I(6)TMP
003856,002441: E4,1551 E4,1565 PHIV EQUALS BETAV +6 # I(6)TMP
003857,002442: E4,1551 E4,1573 PSIV EQUALS PHIV +6 # I(6)TMP
003858,002443: E4,1551 E4,1601 FV EQUALS PSIV +6 # I(6)TMP
003859,002444: E4,1551 E4,1607 BETAM EQUALS FV +6 # I(6)TMP
003860,002445: E4,1551 E4,1611 H EQUALS BETAM +2 # I(2)TMP
003861,002446: E4,1551 E4,1613 GMODE EQUALS H +2 # I(1)TMP
003862,002447: E4,1551 E4,1614 IRETURN EQUALS GMODE +1 # I(1)TMP
003863,002448: E4,1551 E4,1615 NORMGAM EQUALS IRETURN +1 # I(1)TMP
003864,002449: E4,1551 E4,1616 VECTAB EQUALS NORMGAM +1 # I(36)TMP
003865,002450: E4,1551 E4,1662 RPQV EQUALS VECTAB +36D # (6)TMP VECTOR PRIMARY TO SECONDARY BODY
003866,002451: E4,1551 E4,1670 ORIGEX EQUALS RPQV +6 # B(1)TMP QSAVE FOR COORD. SWITCH. ROUTINE
003867,002452: E4,1551 E4,1670 KEPRTN EQUALS ORIGEX # QSAVE FOR KEPLER
003868,002453: E4,1551 E4,1671 RQVV EQUALS ORIGEX +1 # (6) SEC.BODY TO VEH.VETOR(USED P23)
003869,002454: E4,1551 E4,1677 RPSV EQUALS RQVV +6 # (6)TMP SUN TO PRIMARY BODY VECTOR
003870,002455: E4,1551 E4,1705 XKEPNEW EQUALS RPSV +6 # (2)TMP ROOT OF KEPLERS EQU FOR TIME TAU
003871,002456:
003872,002457:
003873,002458: # THESE PROBABLY CAN SHARE INTEGRATION VARIABLES. (9D)
003874,002459:
003875,002460: E4,1551 E4,1624 VACX EQUALS VECTAB +6 # I(2)TMP
003876,002461: E4,1551 E4,1626 VACY EQUALS VACX +2 # I(2)TMP
003877,002462: E4,1551 E4,1630 VACZ EQUALS VACY +2 # I(2)TMP
003878,002463:
003879,002464: E4,1551 E4,1640 ERADM EQUALS VECTAB +18D # I(2)TMP
003880,002465: E4,1551 E4,1642 INCORPEX EQUALS ERADM +2 # I(1)TMP
003881,002466:
003882,002467:
003883,002468: # R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE- (28D)
003884,002469:
003885,002470:
003886,002471: E4,1551 E4,1624 BASEOTP EQUALS VECTAB +6 # I(6) BASE POS VECTOR OTHER VEH
003887,002472: E4,1551 E4,1640 BASEOTV EQUALS VECTAB +18D # I(6) BASE VEL VECTOR OTHER VEH
003888,002473: E4,1551 E4,1654 BASETHP EQUALS VECTAB +30D # I(6) BASE POS VECTOR THIS VEH
003889,002474: E4,1551 E4,1662 BASETHV EQUALS RPQV # I(6) BASE VEL VECTOR THIS VEH
003890,002475: E4,1551 E4,1671 BASETIME EQUALS RQVV # I(2) TIME ASSOC WITH BASE VECS
003891,002476: E4,1551 E4,1673 ORIG EQUALS RQVV +2 # I(1) =0 FOR EARTH =+2 FOR MOON
003892,002477: E4,1551 E4,1674 STATEXIT EQUALS RQVV +3 # I(1) STQ ADDRESS FOR STATEXTP
003893,002478:
003894,002479:
003895,002480: # CONIC INTEGRATION STORAGE. -MAY NOT SHARE WITH SERVICER- (6D)
003896,002481:
|
|
Page 87 |
003898,002483: E4,1551 E4,1707 ALPHAM EQUALS XKEPNEW +2 # I(2)TMP
003899,002484: E4,1551 E4,1711 TAU. EQUALS ALPHAM +2 # I(2)TMP
003900,002485: E4,1551 E4,1713 DT/2 EQUALS TAU. +2 # I(2)TMP
003901,002486:
003902,002487:
003903,002488: # P21 STORAGE. (2D)
003904,002489:
003905,002490: E4,1551 E4,1715 P21TIME EQUALS DT/2 +2 # B(2)TMP
003906,002491:
003907,002492:
003908,002493:
003909,002494: # INCORPORATION/VERB 83 COMMON STORAGE. (1D)
003910,002495:
003911,002496: E4,1551 E4,1717 EGRESS EQUALS P21TIME +2 # I(1)TMP SAVES RETURNS.
003912,002497:
003913,002498:
003914,002499: # VERB 83 STORAGE. MAY SHARE ONLY WITH INCORPORATION. (18D)
003915,002500:
003916,002501: E4,1551 E4,1720 RANGE EQUALS EGRESS +1 # I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
003917,002502: E4,1551 E4,1722 RRATE EQUALS RANGE +2 # I(2)DSP NOUN 54 RATE OF APPROACH
003918,002503: E4,1551 E4,1724 RTHETA EQUALS RRATE +2 # I(2)DSP NOUN 54
003919,002504: E4,1551 E4,1726 RONE EQUALS RTHETA +2 # I(6)TMP VECTOR STORAGE. (SCRATCH)
003920,002505: E4,1551 E4,1734 VONE EQUALS RONE +6 # I(6)TMP VECTOR STORAGE. (SCRATCH)
003921,002506:
003922,002507:
003923,002508: # LUNAR LANDMARK SELECTION PROGRAM - R35 (28D)
003924,002509:
003925,002510: E4,1551 E4,1720 XR1HOLD EQUALS RANGE # I(2)
003926,002511: E4,1551 E4,1722 VECTIME EQUALS XR1HOLD +2 # I(2)
003927,002512: E4,1551 E4,1724 JLOOPCNT EQUALS VECTIME +2 # I(1)
003928,002513: E4,1551 E4,1725 KLOOPCNT EQUALS JLOOPCNT +1 # I(1)
003929,002514: E4,1551 E4,1726 NKVAL EQUALS KLOOPCNT +1 # I(1)
003930,002515: E4,1551 E4,1727 DELTAL EQUALS NKVAL +1 # I(2)
003931,002516: E4,1551 E4,1731 TK EQUALS DELTAL +2 # I(2)
003932,002517: E4,1551 E4,1733 INDEXNUM EQUALS TK +2 # I(1)
003933,002518:
003934,002519: E4,1551 E4,1734 LONGSAVE EQUALS INDEXNUM +1 # I(2)
003935,002520: E4,1551 E4,1736 POSVECT EQUALS LONGSAVE +2 # I(6)
003936,002521: E4,1551 E4,1744 VELVECT EQUALS POSVECT +6 # I(6)
003937,002522: E4,1551 E4,1752 LSLONG EQUALS VELVECT +6 # I(2) TMP LONGITUDE OF LANDING SIGHT
003938,002523:
003939,002524:
003940,002525: # S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05 (EXT.VB.64) (4D)
003941,002526: # OPERATION DURING P00 ONLY.
003942,002527:
003943,002528: E4,1551 E4,1720 RHOSB EQUALS RANGE # B(2)DSP NOUN 51. PITCH ANGLE
003944,002529: E4,1551 E4,1722 GAMMASB EQUALS RHOSB +2 # B(2)DSP NOUN 51. YAW ANGLE
003945,002530:
003946,002531: # R 36 SCRATCHPAD STORAGE (12)
003947,002532:
|
|
Page 88 |
003949,002534: E4,1551 E4,1726 RPASS36 EQUALS RONE # I (6)S-S
003950,002535: E4,1551 E4,1734 UNP36 EQUALS RPASS36 +6 # I (6)S-S
003951,002536:
003952,002537:
003953,002538:
003954,002539: # EXTENDED VERB 82 STORAGE.
003955,002540: # (*** THE SHARING IN THIS SECTION IS TEMPORARY ONLY ****) (8D)
003956,002541:
003957,002542: E4,1551 E4,1720 HPERMIN EQUALS RANGE # I(2) SET TO 300KFT OR 35KFT FOR SR30.1
003958,002543: E4,1551 E4,1722 RPADTEM EQUALS HPERMIN +2 # I(2) PAD OR LANDING RADIUS FOR SR30.1
003959,002544: E4,1551 E4,1724 TSTART82 EQUALS RPADTEM +2 # I(2) TEMP TIME STORAGE FOR V82.
003960,002545:
003961,002546:
003962,002547: # MORE VERB 82 NOT SHARING WITH VERB 83 (9D)
003963,002548:
003964,002549:
003965,002550: E4,1551 E4,1742 V82FLAGS EQUALS VONE +6 # (1) FOR V 82 BITS
003966,002551: E4,1551 E4,1743 TFF EQUALS V82FLAGS +1 # I(2) DSP NOUN 42, , FOR P30,40,41.
003967,002552: E4,1551 E4,1745 -TPER EQUALS TFF +2 # I(2)DSP NOUN 32
003968,002553: E4,1551 E4,1747 THETA(1) EQUALS -TPER +2 # I(2) TMP SET AT END OF V82
003969,002554: E4,1551 E4,1755 RSP-RREC EQUALS AOPTIME # DSP NOUN R32
003970,002555:
003971,002556:
003972,002557: # REENTRY CONICS (6D)
003973,002558:
003974,002559: E4,1551 E4,1742 URONE EQUALS V82FLAGS # I(6) SAVE ACTUAL FOR CALCULATIONS
003975,002560:
003976,002561:
003977,002562:
003978,002563: # V 82 DISPLAY (4D)
003979,002564:
003980,002565: E4,1551 E4,1751 HAPOX EQUALS THETA(1) +2 # I(2) DSP NOUN 44
003981,002566: E4,1551 E4,1753 HPERX EQUALS HAPOX +2 # I(2) DSP NOUN 44
003982,002567:
003983,002568:
003984,002569:
003985,002570: # VARIOUS DISPLAY REGISTERS. (06D)
003986,002571:
003987,002572: E4,1551 E4,1755 AOPTIME EQUALS HPERX +2
003988,002573: E4,1551 E4,1757 LANDLONG EQUALS AOPTIME +2 # I(2) DSP NOUN 89 FOR P22
003989,002574: E4,1551 E4,1761 LANDALT EQUALS LANDLONG +2 # I(2)DSP NOUN 89 FOR P22.
003990,002575:
003991,002576: # S34/35.5,P34-P35 STORAGE. (6D)
003992,002577:
003993,002578: E4,1551 E4,1763 KT EQUALS LANDALT +2 # B(2)
003994,002579: E4,1551 E4,1765 VERBNOUN EQUALS KT +2 # B(1)TMP
003995,002580: E4,1551 E4,1766 QSAVED EQUALS VERBNOUN +1 # B(1)TMP HOLDS RETURN
|
|
Page 89 |
003997,002582: E4,1551 E4,1767 RTRN EQUALS QSAVED +1 # B(1) RETURN
003998,002583: E4,1551 E4,1770 SUBEXIT EQUALS RTRN +1 # B(1) TMP
003999,002584: # RGEXIT CANT SHARE WITH HPER,HAPO
004000,002585: E4,1551 E4,1770 RGEXIT EQUALS SUBEXIT # I(1)TMP Q SAVE MODE 1 AND 2 TO RTRN MAIN
004001,002586:
004002,002587:
004003,002588: # P30 DISPLAY (4D)
004004,002589:
004005,002590: E4,1551 E4,1763 HAPO EQUALS KT # I(2) DSP NOUN 42, FOR P30.
004006,002591: E4,1551 E4,1765 HPER EQUALS HAPO +2 # I(2) DSP NOUN 42, FOR P30.
004007,002592:
004008,002593:
004009,002594:
004010,002595: # SOME P34 STORAGE. (OVERLAYS P35.1 STORAGE) (2D)
004011,002596:
004012,002597: E4,1551 E4,1763 NOMTPI EQUALS KT # I(2)TMP NOMINAL TPI TIME FOR RECYCLE
004013,002598:
004014,002599:
004015,002600: # THE FOLLOWING ARE ERASABLES USED BY THE SYSTEM TESTS. 205 USES TRANSM1 GS ARE NOT USED IN 205 NOR ARE THEY
004016,002601: # WHILE 504 USES TRANSM1 AND ALFDK .
004017,002602:
004018,002603: E4,1551 TRANSM1 EQUALS 2000 # (18) INITIALIZATION FOR IMU TESTS
004019,002604: E4,1551 E4,1422 ALFDK = TRANSM1 +18D # (144) ERASABLE LOAD IN 504
004020,002605: # END OF PERF. TEST ERASABLE IN BANK 4
004021,002606:
004022,002607: # *-*-* V82 *-*-* (6D)
004023,002608:
004024,002609: E4,1551 E4,1771 VONE' EQUALS RGEXIT +1 # I(6)TMP NORMAL VELOCITY VONE/ SQ RT MU
004025,002610:
004026,002611:
004027,002612: # PAD LOAD INTEGRATION ERROR INCLUDED IN VARIANCE BY P20 (1D)
004028,002613:
004029,002614: E4,1551 E4,1777 INTVAR EQUALS VONE' +6 # I(1)PL SQUARE OF EXPECTED INTEGRATION
004030,002615: # POSITION EXTRAPOLATION ERROR.
004031,002616: # SCALED METERS(2) 2(15)
004032,002617:
004033,002618: E4,1551 E4,1777 END-E4 EQUALS INTVAR # LAST USED ERASABLE IN E4
004034,002619:
|
|
Page 90 |
004036,002621:
004037,002622: # EBANK-5 ASSIGNMENTS
004038,002623: E5,1400 SETLOC 2400
004039,002624:
004040,002625: # *-*-*-*- OVERLAY 1 IN EBANK 5 -*-*-*-*
004041,002626:
004042,002627: # W-MATRIX STORAGE. (162D)
004043,002628:
004044,002629: E5,1400 W EQUALS 2400 # B(162)
004045,002630:
004046,002631: E5,1400 E5,1570 EMATRIX = W +120D # B(42E USED TO CONVERT W TO 6X6
004047,002632: E5,1400 E5,1642 END-W EQUALS W +162D # **NEXT AVAILABLE LOC AFTER W MATRIX**
004048,002633:
004049,002634:
004050,002635: # AUTO-OPTICS STORAGE -R52-
004051,002636:
004052,002637: # DO NOT MOVE FROM E5,1554. A DELICATE BALANCE EXISTS BETWEEN THIS AND P03
004053,002638: E5,1400 E5,1554 XNB1 EQUALS W +108D # B(6D)TMP
004054,002639: E5,1400 E5,1562 YNB1 EQUALS XNB1 +6 # B(6)TMP
004055,002640: E5,1400 E5,1570 ZNB1 EQUALS YNB1 +6 # B(6)TMP
004056,002641: E5,1400 E5,1576 SAVQR52 EQUALS ZNB1 +6 # I(2)TMP
004057,002642:
004058,002643:
004059,002644: E5,1400 E5,1600 PLANVEC EQUALS SAVQR52 +2 # B(6) S-S SIGHTING VECTOR IN REF. COOR.
004060,002645: E5,1400 E5,1606 TSIGHT EQUALS PLANVEC +6 # B(2) S-S TIME OF SIGHTING
004061,002646:
004062,002647:
004063,002648:
004064,002649: # RENDEZVOUS -P34-35 (26D)
004065,002650:
004066,002651: E5,1400 E5,1610 DVLOS EQUALS TSIGHT +2 # I(6) S-S DELTA VELOCITY,LOS COORD-DISPL1
004067,002652: E5,1400 E5,1610 DELTAR EQUALS DVLOS # I(2)
004068,002653: E5,1400 E5,1610 TINTSOI EQUALS DELTAR # I(2) INTERCEPT TIME FOR SOI MANEUVER
004069,002654: E5,1400 E5,1612 DELTTIME EQUALS DVLOS +2 # I(2)
004070,002655: E5,1400 E5,1614 TARGTIME EQUALS DVLOS +4 # I(2)
004071,002656: E5,1400 E5,1616 UNRM EQUALS DVLOS +6 # I(6) S-S
004072,002657: E5,1400 E5,1624 ULOS EQUALS UNRM +6 # I(6) S-S UNIT LINE OF SIGHT VECTOR
004073,002658: E5,1400 E5,1632 ACTCENT EQUALS ULOS +6 # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
004074,002659: # VEH AT TPI IGNITION TIME AND
004075,002660: # TARGET VECTOR.
004076,002661: E5,1400 E5,1634 DELVTPI EQUALS ACTCENT +2 # I(2) NOUN 58 FOR P34.
004077,002662: E5,1400 E5,1636 DELVTPF EQUALS DELVTPI +2 # I(2) NOUN 58,59 FOR P34,35.
004078,002663: E5,1400 E5,1640 POSTTPI EQUALS DELVTPF +2 # I(2) NOUN 58 FOR P34.
004079,002664: E5,1400 E5,1634 TDEC2 EQUALS DELVTPI # (2)
004080,002665:
004081,002666: # ALIGNMENT (12D)
004082,002667: E5,1400 E5,1610 STARSAV1 EQUALS DVLOS # I(6)TMP RESTART STAR SAVE.
004083,002668: E5,1400 E5,1616 STARSAV2 EQUALS STARSAV1 +6 # I(6)TMP RESTART STAR SAVE.
|
|
Page 91 |
004085,002670: E5,1400 E5,1616 US = STARSAV2 # (CISLUNAR TAG FOR STARSAV2).
004086,002671:
004087,002672:
004088,002673:
004089,002674: # TPI SEARCH (26D)
004090,002675:
004091,002676: E5,1400 E5,1610 IT EQUALS DVLOS # (6)
004092,002677: E5,1400 E5,1616 THETZERO EQUALS IT +6 # (2)
004093,002678: E5,1400 E5,1620 TFI EQUALS THETZERO +2 # (2)
004094,002679: E5,1400 E5,1622 DELVEE EQUALS TFI +2 # (2)
004095,002680: E5,1400 E5,1624 HP EQUALS DELVEE +2 # (2)
004096,002681: E5,1400 E5,1626 TFO EQUALS HP +2 # (2)
004097,002682: E5,1400 E5,1630 HPO EQUALS TFO +2 # (2)
004098,002683: E5,1400 E5,1632 DELVEO EQUALS HPO +2 # (2)
004099,002684: E5,1400 E5,1634 MAGVTPI EQUALS DELVEO +2 # I(2) TMP MAG OF DELTAVTPI OR VMID
004100,002685: E5,1400 E5,1636 RELDELV EQUALS MAGVTPI +2 # I(2) TMP MAG OF DELTAVTPF
004101,002686: E5,1400 E5,1640 T3TOT4 EQUALS RELDELV +2 # I(2) DSP NOUN 39 FOR P34, 35. TPI TO TIN
004102,002687: # T (CAN NOT SHARE WITH RETURN TO EARTH)
004103,002688:
|
|
Page 92 |
004105,002690:
004106,002691: # ALIGNMENT/SYSTEST/CALCSMSC/CRS61.1 COMMON STORAGE. (36D)
004107,002692: # (CALCSMSC IS A SUBSET OF S41.1 AT LEAST)
004108,002693: # (CRS61.1 IS A SUBSET OF P20)
004109,002694:
004110,002695: E5,1400 E5,1671 XSM EQUALS END-W +23D # B(6)
004111,002696: E5,1400 E5,1677 YSM EQUALS XSM +6 # B(6)TMP
004112,002697: E5,1400 E5,1705 ZSM EQUALS YSM +6 # B(6)TMP
004113,002698:
004114,002699: E5,1400 E5,1713 XDC EQUALS ZSM +6 # B(6)TMP
004115,002700: E5,1400 E5,1721 YDC EQUALS XDC +6 # B(6)TMP
004116,002701: E5,1400 E5,1727 ZDC EQUALS YDC +6 # B(6)TMP
004117,002702:
004118,002703: E5,1400 E5,1713 XNB = XDC
004119,002704: E5,1400 E5,1721 YNB = YDC
004120,002705: E5,1400 E5,1727 ZNB = ZDC
004121,002706:
004122,002707:
004123,002708: # OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE.
004124,002709:
004125,002710: E5,1400 E5,1673 -COSB EQUALS XSM +2 # (2)TMP
004126,002711: E5,1400 E5,1675 SINB EQUALS -COSB +2 # (2)TMP
004127,002712:
004128,002713:
004129,002714: # ALIGNMENT/SYSTEST COMMON STORAGE. (18D)
004130,002715:
004131,002716: E5,1400 E5,1735 STARAD EQUALS ZDC +6 # I(18D)TMP
004132,002717:
004133,002718:
004134,002719: # ALIGNMENT/SYSTEST/AUTO OPTICS COMMON STORAGE. (17D)
004135,002720:
004136,002721: E5,1400 E5,1757 OGC EQUALS STARAD +18D # I(2)TMP
004137,002722: E5,1400 E5,1761 IGC EQUALS OGC +2 # I(2)TMP
004138,002723: E5,1400 E5,1763 MGC EQUALS IGC +2 # I(2)TMP
004139,002724: E5,1400 E5,1765 STAR EQUALS MGC +2 # I(6)TMP
004140,002725: E5,1400 E5,1773 SAC EQUALS STAR +6 # I(2)TMP
004141,002726: E5,1400 E5,1775 PAC EQUALS SAC +2 # I(2)TMP
004142,002727: E5,1400 E5,1777 QMIN EQUALS PAC +2 # B(1)TMP
004143,002728:
004144,002729:
004145,002730: # **** COLP50S **** (1D)
004146,002731:
004147,002732: E5,1400 E5,1735 CULTRIX EQUALS VEARTH # VEARTH, VSUN, VMOON
004148,002733:
004149,002734:
004150,002735: # OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE. (24D)
004151,002736:
004152,002737: E5,1400 E5,1735 VEARTH EQUALS STARAD # (6)TMP
004153,002738: E5,1400 E5,1743 VSUN EQUALS VEARTH +6 # (6)TMP
004154,002739: E5,1400 E5,1751 VMOON EQUALS VSUN +6 # (6)TMP
004155,002740: E5,1400 E5,1757 SAX EQUALS VMOON +6 # (6)TMP
004156,002741:
|
|
Page 93 |
004158,002743:
004159,002744: # *-*-*-*- OVERLAY 2 IN EBANK 5 -*-*-*-*
004160,002745:
004161,002746: # CONIC ROUTINES STORAGE. (87D)
004162,002747:
004163,002748: E5,1400 E5,1642 DELX EQUALS END-W # I(2)TMP
004164,002749: E5,1400 E5,1644 DELT EQUALS DELX +2 # I(2)TMP
004165,002750: E5,1400 E5,1646 URRECT EQUALS DELT +2 # I(6)TMP
004166,002751: E5,1400 E5,1654 RCNORM EQUALS URRECT +6 # I(2)TMP
004167,002752: E5,1400 E3,1552 XPREV EQUALS XKEP # I(2)TMP
004168,002753: E5,1400 E5,1656 R1VEC EQUALS RCNORM +2 # I(6)TMP
004169,002754: E5,1400 E5,1664 R2VEC EQUALS R1VEC +6 # I(6)TMP
004170,002755: E5,1400 E5,1672 TDESIRED EQUALS R2VEC +6 # I(2)TMP
004171,002756: E5,1400 E5,1674 GEOMSGN EQUALS TDESIRED +2 # I(1)TMP
004172,002757: E5,1400 E5,1675 UN EQUALS GEOMSGN +1 # I(6)TMP
004173,002758: E5,1400 E5,1703 VTARGTAG EQUALS UN +6 # I(1)TMP
004174,002759: E5,1400 E5,1704 VTARGET EQUALS VTARGTAG +1 # I(6)TMP
004175,002760: E5,1400 E5,1712 RTNLAMB EQUALS VTARGET +6 # I(1)TMP
004176,002761: E5,1400 E5,1713 U2 EQUALS RTNLAMB +1 # I(6)TMP
004177,002762: E5,1400 E5,1721 MAGVEC2 EQUALS U2 +6 # I(2)TMP
004178,002763: E5,1400 E5,1723 UR1 EQUALS MAGVEC2 +2 # I(6)TMP
004179,002764: E5,1400 E5,1731 SNTH EQUALS UR1 +6 # I(2)TMP
004180,002765: E5,1400 E5,1733 CSTH EQUALS SNTH +2 # I(2)TMP
004181,002766: E5,1400 E5,1735 1-CSTH EQUALS CSTH +2 # I(2)TMP
004182,002767: E5,1400 E5,1737 CSTH-RHO EQUALS 1-CSTH +2 # I(2)TMP
004183,002768: E5,1400 E5,1741 P EQUALS CSTH-RHO +2 # I(2)TMP
004184,002769: E5,1400 E5,1743 R1A EQUALS P +2 # I(2)TMP
004185,002770: E5,1400 E5,1656 RVEC EQUALS R1VEC # I(6)TMP
004186,002771: E5,1400 E5,1745 VVEC EQUALS R1A +2 # I(6)TMP
004187,002772: E5,1400 E5,1712 RTNTT EQUALS RTNLAMB # I(1)TMP
004188,002773: E5,1400 E5,1753 ECC EQUALS VVEC +6 # I(2)TMP
004189,002774: E5,1400 E5,1712 RTNTR EQUALS RTNLAMB # I(1)TMP
004190,002775: E5,1400 E5,1712 RTNAPSE EQUALS RTNLAMB # I(1)TMP
004191,002776: E5,1400 E5,1721 R2 EQUALS MAGVEC2 # I(2)TMP
004192,002777: E5,1400 E5,1755 RTNPRM EQUALS ECC +2 # I(1)TMP
004193,002778: E5,1400 E5,1756 SGNRDOT EQUALS RTNPRM +1 # I(1)TMP
004194,002779: E5,1400 E5,1757 RDESIRED EQUALS SGNRDOT +1 # I(2)TMP
004195,002780: E5,1400 E5,1761 DELDEP EQUALS RDESIRED +2 # I(2)TMP
004196,002781: E5,1400 E5,1763 DEPREV EQUALS DELDEP +2 # I(2)TMP
004197,002782: E5,1400 E5,1761 TERRLAMB EQUALS DELDEP # I(2)TMP
004198,002783: E5,1400 E5,1763 TPREV EQUALS DEPREV # I(2)TMP
004199,002784:
|
|
Page 94 |
004201,002786:
004202,002787: # *-*-*-*- OVERLAY 3 IN EBANK 5 -*-*-*-*
004203,002788:
004204,002789: # MEASUREMENT INCORPORATION STORAGE. (66D)
004205,002790: # (CALLED BY P20, P22, P23)
004206,002791:
004207,002792: E5,1400 E5,1642 OMEGAM1 EQUALS END-W # I(6)TMP
004208,002793: E5,1400 E5,1650 OMEGAM2 EQUALS OMEGAM1 +6 # I(6)TMP
004209,002794: E5,1400 E5,1656 OMEGAM3 EQUALS OMEGAM2 +6 # I(6)TMP
004210,002795: E5,1400 E5,1664 HOLDW EQUALS OMEGAM3 +6 # I(18)TMP
004211,002796: E5,1400 E5,1706 TDPOS EQUALS HOLDW +18D # I(6)TMP
004212,002797: E5,1400 E5,1714 TDVEL EQUALS TDPOS +6 # I(6)TMP
004213,002798:
004214,002799: E5,1400 E5,1722 ZI EQUALS TDVEL +6 # I(18)
004215,002800:
004216,002801: # P22-P23 STORAGE. (8D)
004217,002802:
004218,002803: E5,1400 E5,1744 22SUBSCL EQUALS ZI +18D # DE OF ABCDE LANDMARK ID NO.
004219,002804: E5,1400 E5,1745 CXOFF EQUALS 22SUBSCL +1 # B OF ABCDE OFFSET INDICATOR
004220,002805: E5,1400 E5,1746 8KK EQUALS CXOFF +1 # B(1)TMP INDEX OF PRESENT MARK.
004221,002806: E5,1400 E5,1747 8NN EQUALS 8KK +1 # B(1)TMP
004222,002807: E5,1400 E5,1750 S22LOC EQUALS 8NN +1 # I(1)TMP MARK DATA LOC
004223,002808: E5,1400 E5,1751 LANDMARK EQUALS S22LOC +1 # B(1)DSP NOUN 70 FOR P22,51, R52,53.
004224,002809: E5,1400 E5,1752 HORIZON EQUALS LANDMARK +1 # B(1)DSP NOUN 70 FOR P22,51, R52,53.
004225,002810: E5,1400 E5,1753 IDOFLMK EQUALS HORIZON +1 # B(1)
004226,002811:
004227,002812:
004228,002813:
004229,002814: # ******P23*** (1D)
004230,002815: E5,1400 E5,1754 TRUNION EQUALS IDOFLMK +1 # B(1)
004231,002816:
|
|
Page 95 |
004233,002818:
004234,002819: # *-*-*-*- OVERLAY 0 IN EBANK 5 -*-*-*-*
004235,002820:
004236,002821: # SYSTEM TEST STORAGE. (174)
004237,002822:
004238,002823: E5,1400 AZIMUTH ERASE +1
004239,002824: E5,1402 LATITUDE ERASE +1
004240,002825:
004241,002826: E5,1404 1160 TRUNA EQUALS DESOPTT
004242,002827: E5,1404 1161 SHAFTA EQUALS DESOPTS
004243,002828:
004244,002829: E5,1404 ERVECTOR ERASE +5
004245,002830: E5,1412 LENGTHOT ERASE
004246,002831: E5,1413 LOSVEC ERASE +5
004247,002832:
004248,002833: E5,1421 E5,1413 SXTOPTN = LOSVEC
004249,002834: E5,1421 NDXCTR ERASE
004250,002835: E5,1422 PIPINDEX ERASE
004251,002836: E5,1423 POSITON ERASE
004252,002837: E5,1424 QPLAC ERASE
004253,002838: E5,1425 QPLACE ERASE
004254,002839: E5,1426 QPLACES ERASE
004255,002840: E5,1427 RUN ERASE
004256,002841: E5,1430 STOREPL ERASE
004257,002842: E5,1431 SOUTHDR ERASE
004258,002843: E5,1432 E5,1431 TARG1/2 = SOUTHDR
004259,002844: E5,1432 TAZEL1 ERASE +5
004260,002845: E5,1440 TEMPTIME ERASE +1
004261,002846: E5,1442 TMARK ERASE +1
004262,002847: E5,1444 GENPL ERASE +134D
004263,002848: E5,1653 E5,1444 CDUTIMEI = GENPL
004264,002849: E5,1653 E5,1446 CDUTIMEF = GENPL +2
004265,002850: E5,1653 E5,1450 IMU/OPT = GENPL +4
004266,002851: E5,1653 E5,1451 CDUREADF = GENPL +5
004267,002852: E5,1653 E5,1452 CDUREADI = GENPL +6
004268,002853: E5,1653 E5,1453 CDULIMIT = GENPL +7
004269,002854:
004270,002855: E5,1653 E5,1450 TEMPADD = GENPL +4
004271,002856: E5,1653 E5,1451 TEMP = GENPL +5
004272,002857: E5,1653 E5,1452 NOBITS = GENPL +6
004273,002858: E5,1653 E5,1453 CHAN = GENPL +7
004274,002859:
004275,002860: E5,1653 E5,1454 LOS1 = GENPL +8D
004276,002861: E5,1653 E5,1462 LOS2 = GENPL +14D
004277,002862:
004278,002863: E5,1653 E5,1470 CALCDIR EQUALS GENPL +20D
004279,002864: E5,1653 E5,1471 CDUFLAG EQUALS GENPL +21D
004280,002865: E5,1653 E5,1472 GYTOBETQ EQUALS GENPL +22D
004281,002866: E5,1653 E5,1473 OPTNREG EQUALS GENPL +23D
004282,002867: E5,1653 E5,1474 SAVE EQUALS GENPL +24D # THREE CONSEC LOC
004283,002868: E5,1653 E5,1477 SFCONST1 EQUALS GENPL +27D
|
|
Page 96 |
004285,002870: E5,1653 E5,1500 TIMER EQUALS GENPL +28D
004286,002871:
004287,002872: E5,1653 E5,1502 DATAPL EQUALS GENPL +30D
004288,002873: E5,1653 E5,1444 RDSP EQUALS GENPL # FIX LATER POSSIBLY KEEP1
004289,002874: E5,1653 E5,1544 MASKREG EQUALS GENPL +64D
004290,002875: E5,1653 E5,1546 CDUNDX EQUALS GENPL +66D
004291,002876: E5,1653 E5,1547 RESULTCT EQUALS GENPL +67D
004292,002877: E5,1653 E5,1552 COUNTPL EQUALS GENPL +70D
004293,002878:
004294,002879: E5,1653 E5,1553 CDUANG EQUALS GENPL +71D
004295,002880: E5,1653 E5,1444 AINLA = GENPL # OPTIMUM CALIB. AND ALIGNMENT
004296,002881:
004297,002882:
004298,002883: E5,1653 E5,1444 WANGO EQUALS AINLA
004299,002884: E5,1653 E5,1446 WANGI EQUALS AINLA +2D
004300,002885: E5,1653 E5,1450 WANGT EQUALS AINLA +4D
004301,002886: E5,1653 E5,1450 TORQNDX = WANGT
004302,002887: E5,1653 E5,1452 DRIFTT EQUALS AINLA +6D
004303,002888: E5,1653 E5,1454 ALX1S EQUALS AINLA +8D
004304,002889: E5,1653 E5,1455 CMPX1 EQUALS AINLA +9D
004305,002890: E5,1653 E5,1456 ALK EQUALS AINLA +10D
004306,002891: E5,1653 E5,1472 VLAUNS EQUALS AINLA +22D
004307,002892: E5,1653 E5,1460 THETAX = ALK +2
004308,002893: E5,1653 E5,1474 WPLATO EQUALS AINLA +24D
004309,002894: E5,1653 E5,1500 INTY EQUALS AINLA +28D
004310,002895: E5,1653 E5,1466 THETAN = THETAX +6
004311,002896: E5,1653 E5,1502 ANGZ EQUALS AINLA +30D
004312,002897: E5,1653 E5,1504 INTZ EQUALS AINLA +32D
004313,002898: E5,1653 E5,1506 ANGY EQUALS AINLA +34D
004314,002899: E5,1653 E5,1510 ANGX EQUALS AINLA +36D
004315,002900: E5,1653 E5,1512 DRIFTO EQUALS AINLA +38D
004316,002901: E5,1653 E5,1514 DRIFTI EQUALS AINLA +40D
004317,002902: E5,1653 E5,1520 VLAUN EQUALS AINLA +44D
004318,002903: E5,1653 E5,1474 FILDELV = THETAN +6
004319,002904: E5,1653 E5,1522 ACCWD EQUALS AINLA +46D
004320,002905: E5,1653 E5,1476 INTVEC = FILDELV +2
004321,002906: E5,1653 E5,1530 POSNV EQUALS AINLA +52D
004322,002907: E5,1653 E5,1532 DPIPAY EQUALS AINLA +54D
004323,002908: E5,1653 E5,1536 DPIPAZ EQUALS AINLA +58D
004324,002909: E5,1653 E5,1540 ALTIM EQUALS AINLA +60D
004325,002910: E5,1653 E5,1541 ALTIMS EQUALS AINLA +61D
004326,002911: E5,1653 E5,1542 ALDK EQUALS AINLA +62D
004327,002912: E5,1653 E5,1560 DELM EQUALS AINLA +76D
004328,002913: E5,1653 E5,1570 WPLATI EQUALS AINLA +84D
004329,002914: E5,1653 E5,1577 RESTARPT = AINLA + 91D
004330,002915: E5,1653 E5,1631 GEOSAVED = AINLA +117D
004331,002916: E5,1653 E5,1632 PREMTRXC = AINLA +118D
004332,002917: E5,1653 E5,1633 LAUNCHAZ = AINLA +119D
004333,002918: E5,1653 E5,1635 NEWAZMTH = AINLA +121D
004334,002919: E5,1653 E5,1637 OLDAZMTH = AINLA +123D
|
|
Page 97 |
004336,002921: E5,1653 E5,1641 TOLDAZMT = AINLA +125D
004337,002922: E5,1653 E5,1643 GEOCOMPS = AINLA +127D
004338,002923: E5,1653 E5,1644 1SECXT = AINLA +128D
004339,002924: E5,1653 E5,1645 GTSXTLST = AINLA +129D
004340,002925: E5,1653 E5,1646 ERECTIME = AINLA +130D
004341,002926: E5,1653 E5,1647 ERCOMP = AINLA +131D
004342,002927: E5,1653 E5,1655 ZERONDX = AINLA +137D
004343,002928: E5,1653 E5,1655 GTSOPNDZ = ZERONDX
004344,002929:
004345,002930:
004346,002931: # THE FOLLOWING TAGS ARE USED BY THE 504 IMU CALIBRATION AND ALIGNMENT PROGRAM ONLY.
004347,002932:
004348,002933: E5,1653 E5,1460 THETAX1 EQUALS ALK +2
004349,002934: E5,1653 E5,1466 THETAN1 EQUALS THETAX1 +6
004350,002935: E5,1653 E5,1474 FILDELV1 EQUALS THETAN1 +6
004351,002936: E5,1653 E5,1476 INTVEC1 EQUALS FILDELV1 +2
004352,002937: E5,1653 E5,1631 GEOSAVE1 EQUALS AINLA +117D
004353,002938: E5,1653 E5,1632 PREMTRX1 EQUALS AINLA +118D
004354,002939: E5,1653 E5,1633 LUNCHAZ1 EQUALS AINLA +119D
004355,002940: E5,1653 E5,1635 NEWAZ1 EQUALS LUNCHAZ1 +2
004356,002941: E5,1653 E5,1637 OLDAZ1 EQUALS LUNCHAZ1 +4
004357,002942: E5,1653 E5,1641 TOLDAZ1 EQUALS LUNCHAZ1 +6
004358,002943: E5,1653 E5,1643 GEOCOMP1 EQUALS AINLA +127D
004359,002944: E5,1653 E5,1644 1SECXT1 EQUALS AINLA +128D
004360,002945: E5,1653 E5,1645 GTSWTLT1 EQUALS AINLA +129D
004361,002946: E5,1653 E5,1646 ERECTIM1 EQUALS AINLA +130D
004362,002947: E5,1653 E5,1647 ERCOMP1 EQUALS AINLA +131D # I(6)
004363,002948: E5,1653 E5,1655 ZERONDX1 EQUALS AINLA +137D
004364,002949: E5,1653 E5,1656 PERFDLAY EQUALS AINLA +138D # B(2).........
004365,002950: # END OF 504 CAL + ALIGN ERASE.
004366,002951:
004367,002952:
004368,002953: E5,1653 E5,1777 END-E5 EQUALS QMIN # LAST USED E5 ADDRESS
004369,002954:
|
|
Page 98 |
004371,002956:
004372,002957: # EBANK-6 ASSIGNMENTS
004373,002958: E6,1400 SETLOC 3000
004374,002959:
004375,002960: # P23 PAD LOADS*** (2D).
004376,002961:
004377,002962: E6,1400 WMIDPOS ERASE # I(1) PL INITIAL VALUES FOR W-MATRIX IN
004378,002963: E6,1401 WMIDVEL ERASE # I(1) PL CISLUNAR (P23) NAVIGATION
004379,002964:
004380,002965:
004381,002966:
004382,002967: # R22 PAD LOADS ( 5D ).
004383,002968:
004384,002969: E6,1402 RVAR ERASE +1 # I(2) PL VHF RADAR
004385,002970: E6,1404 RVARMIN ERASE +2 # I(3) PL VHF RADAR
004386,002971:
004387,002972:
004388,002973:
004389,002974: # ******** PAD LOADED ENTRY DAP STEERING VARIABLES ******** (3D)
004390,002975:
004391,002976: E6,1407 LADPAD ERASE # I(1) PL FOR ENTRY.HOLDS CM NOMINAL L/D
004392,002977: E6,1410 LODPAD ERASE # I(1) PL FOR ENTRY.HOLDS CM NOMINAL LOD
004393,002978: E6,1411 ALFAPAD ERASE # B(1) PL ALFA TRIM / 180
004394,002979:
004395,002980:
004396,002981: # ******** PAD LOADED TVC DAP VARIABLES.**********************************(26D)
004397,002982:
004398,002983: E6,1412 ESTROKER ERASE # B(1)PL
004399,002984: E6,1413 EKPRIME ERASE +1 # B(2)PL
004400,002985: E6,1415 ETDECAY ERASE # I(1)PL
004401,002986: E6,1416 EKTLX/I ERASE +1 # B(2)PL
004402,002987: E6,1420 ETVCDT/2 ERASE # B(1)PL
004403,002988: E6,1421 ETSWITCH ERASE # B(1)PL
004404,002989: E6,1422 ECORFRAC ERASE # B(1)PL
004405,002990: E6,1423 EREPFRAC ERASE +1 # B(2)PL
004406,002991: E6,1425 PACTOFF ERASE # B(1)PL, DSP N48 R01 = PTRIM, R02 = YTRIM
004407,002992: E6,1426 YACTOFF ERASE # B(1)PL, CONSECUTIVE WITH PACTOFF
004408,002993: E6,1427 AP0 ERASE # B(1)
004409,002994: E6,1430 AP1 ERASE +1 # B(2)
004410,002995: E6,1432 AP2 ERASE +1 # B(2)
004411,002996: E6,1434 AP3 ERASE +1 # B(2)
004412,002997:
004413,002998: E6,1436 BP1 ERASE +1 # B(2)
004414,002999: E6,1440 BP2 ERASE +1 # B(2)
004415,003000: E6,1442 BP3 ERASE +1 # B(2)
004416,003001: E6,1444 E6,1427 AY0 = AP0
004417,003002: E6,1444 E6,1430 AY1 = AP1
004418,003003: E6,1444 E6,1432 AY2 = AP2
004419,003004: E6,1444 E6,1434 AY3 = AP3
004420,003005:
004421,003006: E6,1444 E6,1436 BY1 = BP1
|
|
Page 99 |
004423,003008: E6,1444 E6,1440 BY2 = BP2
004424,003009: E6,1444 E6,1442 BY3 = BP3
004425,003010:
004426,003011: # ******** EXCLUSIVE TVC DAP VARIABLES. **********************************(5D)
004427,003012:
004428,003013: E6,1444 V97VCNTR ERASE # B(1)
004429,003014: E6,1445 TEMPDAP ERASE +1 # B(2)
004430,003015: E6,1447 E6,1445 MRKRTMP = TEMPDAP # ((B(1)))
004431,003016: E6,1447 CNTR ERASE # B(1)
004432,003017: E6,1450 OGAD ERASE # B(1)
004433,003018:
004434,003019:
004435,003020:
004436,003021: # ******** EXCLUSIVE RCS DAP VARIABLES. *********************************(13D)
004437,003022:
004438,003023: E6,1451 RWORD1 ERASE +12D # B(1)
004439,003024: E6,1466 E6,1452 RWORD2 EQUALS RWORD1 +1 # B(1)
004440,003025: E6,1466 E6,1453 PWORD1 EQUALS RWORD2 +1 # B(1)
004441,003026: E6,1466 E6,1454 PWORD2 EQUALS PWORD1 +1 # B(1)
004442,003027: E6,1466 E6,1455 YWORD1 EQUALS PWORD2 +1 # B(1)
004443,003028: E6,1466 E6,1456 YWORD2 EQUALS YWORD1 +1 # B(1)
004444,003029: E6,1466 E6,1457 BLAST EQUALS YWORD2 +1 # B(2)
004445,003030: E6,1466 E6,1461 BLAST1 EQUALS BLAST +2 # B(2)
004446,003031: E6,1466 E6,1463 BLAST2 EQUALS BLAST1 +2 # B(2)
004447,003032: E6,1466 E6,1465 T5PHASE EQUALS BLAST2 +2 # B(1)
004448,003033:
004449,003034:
004450,003035:
004451,003036: # ******** RCS/TVC DAP COMMON STORAGE.************************************(16D)
004452,003037:
004453,003038: E6,1466 DAPDATR1 ERASE # B(1)DSP NOUN 46(R1)
004454,003039: E6,1467 DAPDATR2 ERASE # B(1)DSP NOUN 46(R2)
004455,003040:
004456,003041: E6,1470 IXX ERASE # B(1) CONSECUTIVE WITH IAVG, IAVG/TLX FOR
004457,003042: E6,1471 IAVG ERASE # B(1) MASSPROP
004458,003043: E6,1472 IAVG/TLX ERASE # B(1)
004459,003044:
004460,003045: E6,1473 LEMMASS ERASE +1 # B(1) DSP NOUN 47 (R2) LEM/CSMMASS
004461,003046: E6,1475 E6,1474 CSMMASS EQUALS LEMMASS +1 # B(1) DSP NOUN 47 (R1) FOR DOWNLINK
004462,003047: E6,1475 WEIGHT/G ERASE # B(1)
004463,003048: E6,1476 E6,1475 MASS = WEIGHT/G
004464,003049:
004465,003050: E6,1476 AK ERASE
004466,003051: E6,1477 AK1 ERASE
004467,003052: E6,1500 AK2 ERASE
004468,003053:
004469,003054: E6,1501 RCSFLAGS ERASE # B(1) CONSECUTIVE WITHAK2 DOWNLINK
004470,003055: E6,1502 T5TEMP ERASE # B(1)
004471,003056: E6,1503 EDRIVEX ERASE
|
|
Page 100 |
004473,003058: E6,1504 EDRIVEY ERASE
004474,003059: E6,1505 EDRIVEZ ERASE
004475,003060:
004476,003061:
004477,003062: # INTEMP THRU INTEMP+14D ARE RESERVED FOR OVERLAYED TVC/RCS INTERUP TRUE TEMPORIES
004478,003063: E6,1506 INTTEMP ERASE +14D # (15)
004479,003064:
004480,003065:
004481,003066: # TVC/RCS THRU TVCRCS +11D RESERVED FOR DOWNLINKED VARIABLES
004482,003067:
004483,003068: E6,1525 TVCRCS ERASE +11D # (12)
004484,003069: # RCS (WBODYS,ADOTS)
004485,003070: # TVC(OMEGACS,OMEGABS)
004486,003071:
004487,003072:
004488,003073: # TVC DAP TEMPORARY VARIABLES************************************
004489,003074:
004490,003075: # TVC DAP INTERUPT TRUE TEMPORARIES******************************
004491,003076:
004492,003077: E6,1541 E6,1506 PHI333 EQUALS INTTEMP # B(1) TEMPORARY REGISTER
004493,003078: E6,1541 E6,1507 PSI333 EQUALS PHI333 +1 # B(1) COUNTING REGISTER
004494,003079: E6,1541 E6,1510 TEMP333 EQUALS PSI333 +1 # B(1) COUNTING REGISTER
004495,003080: E6,1541 E6,1511 VARST0 EQUALS TEMP333 +1 # B(10D) BREAKPOINTS AND SLOPES
004496,003081: E6,1541 E6,1516 VARST5 = VARST0 +5
004497,003082: E6,1541 E6,1522 LASTMASP EQUALS VARST0 +9D # LAST VARST0 WORD
004498,003083: E6,1541 E6,1523 TVCTMP1 EQUALS LASTMASP +1 # B(1)
004499,003084:
004500,003085:
004501,003086: # *******REGULAR TVC TEMPORARIES*************
004502,003087:
004503,003088:
004504,003089: # TVC ZEROING LOOP STARTS AT OMEGAYC (70D)
004505,003090:
004506,003091:
004507,003092: E6,1541 E6,1525 OMEGAC EQUALS TVCRCS # I(6)
004508,003093: E6,1541 E6,1525 OMEGAXC = OMEGAC
004509,003094: E6,1541 E6,1527 OMEGAYC = OMEGAC +2
004510,003095: E6,1541 E6,1531 OMEGAZC = OMEGAC +4
004511,003096:
004512,003097: E6,1541 E6,1533 OMEGAB EQUALS TVCRCS +6 # B(6)
004513,003098: E6,1541 E6,1533 OMEGAXB = OMEGAB
004514,003099: E6,1541 E6,1535 OMEGAYB = OMEGAB +2
004515,003100: E6,1541 E6,1537 OMEGAZB = OMEGAB +4
004516,003101:
004517,003102: E6,1541 E6,1541 PNSUM EQUALS OMEGAC +12D # B(2)
004518,003103: E6,1541 E6,1543 PDSUM EQUALS PNSUM +2 # B(2)
004519,003104:
004520,003105: E6,1541 E6,1545 B1 EQUALS PDSUM +2 # B(1)
004521,003106: E6,1541 E6,1546 B2 EQUALS B1 +1 # B(1)
|
|
Page 101 |
004523,003108: E6,1541 E6,1547 B3 EQUALS B2 +1 # B(1)
004524,003109: E6,1541 E6,1550 B4 EQUALS B3 +1 # B(1)
004525,003110: E6,1541 E6,1551 B5 EQUALS B4 +1 # B(1)
004526,003111: E6,1541 E6,1552 B6 EQUALS B5 +1 # B(1)
004527,003112:
004528,003113: E6,1541 E6,1553 J1 EQUALS B6 +1 # B(2)
004529,003114: E6,1541 E6,1555 J2 EQUALS J1 +2 # B(2)
004530,003115: E6,1541 E6,1557 J3 EQUALS J2 +2 # B(2)
004531,003116: E6,1541 E6,1561 J4 EQUALS J3 +2 # B(2)
004532,003117: E6,1541 E6,1563 J5 EQUALS J4 +2 # B(2)
004533,003118:
004534,003119: E6,1541 E6,1565 YNSUM EQUALS J5 +2 # B(2)
004535,003120: E6,1541 E6,1567 YDSUM EQUALS YNSUM +2 # B(2)
004536,003121:
004537,003122: E6,1541 E6,1571 C1 EQUALS YDSUM +2 # B(1)
004538,003123: E6,1541 E6,1572 C2 EQUALS C1 +1 # B(1)
004539,003124: E6,1541 E6,1573 C3 EQUALS C2 +1 # B(1)
004540,003125: E6,1541 E6,1574 C4 EQUALS C3 +1 # B(1)
004541,003126: E6,1541 E6,1575 C5 EQUALS C4 +1 # B(1)
004542,003127: E6,1541 E6,1576 C6 EQUALS C5 +1 # B(1)
004543,003128:
004544,003129: E6,1541 E6,1577 Y1 EQUALS C6 +1 # B(2)
004545,003130: E6,1541 E6,1601 Y2 EQUALS Y1 +2 # B(2)
004546,003131: E6,1541 E6,1603 Y3 EQUALS Y2 +2 # B(2)
004547,003132: E6,1541 E6,1605 Y4 EQUALS Y3 +2 # B(2)
004548,003133: E6,1541 E6,1607 Y5 EQUALS Y4 +2 # B(2)
004549,003134:
004550,003135: E6,1541 E6,1611 ROLLFIRE EQUALS Y5 +2 # B(1)
004551,003136: E6,1541 E6,1612 ROLLWORD EQUALS ROLLFIRE +1 # B(1)
004552,003137: E6,1541 E6,1613 TEMREG EQUALS ROLLWORD +1 # B(1)
004553,003138:
004554,003139: E6,1541 E6,1614 STROKER EQUALS TEMREG +1 # B(1)
004555,003140:
004556,003141: E6,1541 E6,1615 PERRB EQUALS STROKER +1 # B(2)
004557,003142: E6,1541 E6,1617 YERRB EQUALS PERRB +2 # B(2)
004558,003143:
004559,003144: E6,1541 E6,1621 DELPBAR EQUALS YERRB +2 # B(2)
004560,003145: E6,1541 E6,1623 DELYBAR EQUALS DELPBAR +2 # B(2)
004561,003146:
004562,003147: E6,1541 E6,1625 PDELOFF EQUALS DELYBAR +2 # B(2)
004563,003148: E6,1541 E6,1627 YDELOFF EQUALS PDELOFF +2 # B(2)
004564,003149:
004565,003150: # TVC ZEROING LOOP ENDS HERE
004566,003151:
004567,003152:
004568,003153: E6,1541 E6,1631 PCMD EQUALS YDELOFF +2 # B(1)
004569,003154: E6,1541 E6,1632 YCMD EQUALS PCMD +1 # B(1), CONSECUTIVE WITH PCMD
004570,003155: E6,1541 E6,1633 TACTOFF EQUALS YCMD +1 # B(2)
004571,003156: E6,1541 E6,1635 T5TVCDT EQUALS TACTOFF +2 # B(1)
004572,003157: E6,1541 E6,1636 MDT EQUALS T5TVCDT +1 # I(6)
|
|
Page 102 |
004574,003159: E6,1541 E6,1644 KPRIMEDT EQUALS MDT +6 # I(2)
004575,003160: E6,1541 E6,1646 KTLX/I EQUALS KPRIMEDT +2 # B(1)
004576,003161: E6,1541 E6,1647 TENMDOT EQUALS KTLX/I +1 # B(1)
004577,003162: E6,1541 E6,1650 1/CONACC EQUALS TENMDOT +1 # B(1)
004578,003163: E6,1541 E6,1651 VARK EQUALS 1/CONACC +1 # B(1)
004579,003164: E6,1541 E6,1652 REPFRAC EQUALS VARK +1 # B(1)
004580,003165: E6,1541 E6,1653 VCNTR EQUALS REPFRAC +1 # B(1)
004581,003166: E6,1541 E6,1654 TVCPHASE EQUALS VCNTR +1 # B(1)
004582,003167: E6,1541 E6,1655 PCDUYPST EQUALS TVCPHASE +1 # B(1)
004583,003168: E6,1541 E6,1656 PCDUZPST EQUALS PCDUYPST +1 # B(1)
004584,003169: E6,1541 E6,1657 MCDUYDOT EQUALS PCDUZPST +1 # B(1)
004585,003170: E6,1541 E6,1660 MCDUZDOT EQUALS MCDUYDOT +1 # B(1)
004586,003171: E6,1541 E6,1661 TVCEXPHS EQUALS MCDUZDOT +1 # B(1)
004587,003172: E6,1541 E6,1662 MASSTMP EQUALS TVCEXPHS +1 # B(1) PROTECT
004588,003173: E6,1541 E6,1663 VCNTRTMP EQUALS MASSTMP +1 # B(1) *PROTECT***
004589,003174:
004590,003175: # STROKE TEST VARIABLES
004591,003176:
004592,003177: # (6D)
004593,003178: E6,1541 E6,1664 STRKTIME EQUALS VCNTRTMP +1 # B(1)
004594,003179: E6,1541 E6,1665 CADDY EQUALS STRKTIME +1 # B(1)
004595,003180: E6,1541 E6,1666 N EQUALS CADDY +1 # B(1)
004596,003181: E6,1541 E6,1667 BUNKER EQUALS N +1 # B(1)
004597,003182: E6,1541 E6,1670 REVS EQUALS BUNKER +1 # B(1)
004598,003183: E6,1541 E6,1671 CARD EQUALS REVS +1 # B(1)
004599,003184:
004600,003185: # TVC ROLL DAP VARIABLES
004601,003186:
004602,003187: # (8D)
004603,003188: E6,1541 E6,1672 OGANOW EQUALS CARD +1 # B(1)
004604,003189: E6,1541 E6,1673 OGAPAST EQUALS OGANOW +1 # B(1)
004605,003190: E6,1541 E6,1674 OGA EQUALS OGAPAST +1 # B(1)TMP
004606,003191: E6,1541 E6,1674 OGAERR = OGA # (ROLL DAP USES OGA, MEANS OGAERROR)
004607,003192: E6,1541 E6,1675 DELOGART EQUALS OGA +1 # B(1)TMP
004608,003193: E6,1541 E6,1676 SGNRT EQUALS DELOGART +1 # SIGN OF OGA RATE
004609,003194: E6,1541 E6,1677 DELOGA EQUALS SGNRT +1 # USED IN ROLL LOGIC
004610,003195: E6,1541 E6,1700 I EQUALS DELOGA +1 # USED IN ROLL LOGIC
004611,003196: E6,1541 E6,1701 IOGARATE EQUALS I +1 # USED IN ROLL LOGIC
004612,003197:
004613,003198: # TVC DAP RESTART TEMPORARIES. (33D)
004614,003199:
004615,003200: E6,1541 E6,1702 TKTLX/I EQUALS IOGARATE +1 # B(1)
004616,003201: E6,1541 E6,1703 PACTTMP EQUALS TKTLX/I +1 # B(2)
004617,003202: E6,1541 E6,1705 YACTTMP EQUALS PACTTMP +2 # B(2)
004618,003203: E6,1541 E6,1707 CNTRTMP EQUALS YACTTMP +2 # B(1)
004619,003204: E6,1541 E6,1710 STRKTTMP EQUALS CNTRTMP +1 # B(1)
004620,003205: E6,1541 E6,1711 NSUMTMP EQUALS STRKTTMP +1 # B(2)
004621,003206: E6,1541 E6,1713 DSUMTMP EQUALS NSUMTMP +2 # B(2)
004622,003207: E6,1541 E6,1715 DELBRTMP EQUALS DSUMTMP +2 # B(2)
|
|
Page 103 |
004624,003209: E6,1541 E6,1717 B1TMP EQUALS DELBRTMP +2 # B(1)
004625,003210: E6,1541 E6,1720 B2TMP EQUALS B1TMP +1 # B(1)
004626,003211: E6,1541 E6,1721 B3TMP EQUALS B2TMP +1 # B(1)
004627,003212: E6,1541 E6,1722 B4TMP EQUALS B3TMP +1 # B(1)
004628,003213: E6,1541 E6,1723 B5TMP EQUALS B4TMP +1 # B(1)
004629,003214: E6,1541 E6,1724 B6TMP EQUALS B5TMP +1 # B(1)
004630,003215: E6,1541 E6,1725 B7TMP EQUALS B6TMP +1 # B(1)
004631,003216:
004632,003217: E6,1541 E6,1726 J1TMP EQUALS B7TMP +1 # B(2)
004633,003218: E6,1541 E6,1730 J2TMP EQUALS J1TMP +2 # B(2)
004634,003219: E6,1541 E6,1732 J3TMP EQUALS J2TMP +2 # B(2)
004635,003220: E6,1541 E6,1734 J4TMP EQUALS J3TMP +2 # B(2)
004636,003221: E6,1541 E6,1736 J5TMP EQUALS J4TMP +2 # B(2)
004637,003222: E6,1541 E6,1740 J6TMP EQUALS J5TMP +2 # B(2)
004638,003223: E6,1541 E6,1742 ERRBTMP EQUALS J6TMP +2 # B(2)
004639,003224: E6,1541 E6,1744 CMDTMP EQUALS ERRBTMP +2 # B(2)
004640,003225:
004641,003226: # OVERLAYS WITHIN TVC DAP
004642,003227:
004643,003228: E6,1541 E6,1533 OGARATE = OMEGAB # B(2)
004644,003229:
004645,003230: E6,1541 E6,1742 BZERO = ERRBTMP
004646,003231: E6,1541 E6,1742 CZERO = ERRBTMP
004647,003232: E6,1541 E6,1744 JZERO = CMDTMP
004648,003233: E6,1541 E6,1744 YZERO = CMDTMP
004649,003234: E6,1541 E6,1651 KPGEN3 = VARK
004650,003235: E6,1541 E6,1651 KYGEN3 = KPGEN3
004651,003236:
004652,003237: E6,1541 E6,1742 EP = ERRBTMP
004653,003238: E6,1541 E6,1744 NPD = CMDTMP
004654,003239: E6,1541 E6,1561 NP0 EQUALS J4 # (B(2))
004655,003240: E6,1541 E6,1563 NP1 EQUALS J5 # (B(2))
004656,003241: E6,1541 E6,1541 NP2 EQUALS PNSUM # (B(2))
004657,003242: E6,1541 E6,1543 NP3 EQUALS PDSUM # (B(2))
004658,003243:
004659,003244: E6,1541 E6,1736 NP1TMP EQUALS J5TMP # (B(2))
004660,003245: E6,1541 E6,1711 NP2TMP EQUALS NSUMTMP # (B(2))
004661,003246: E6,1541 E6,1713 NP3TMP EQUALS DSUMTMP # (B(2))
004662,003247:
004663,003248: E6,1541 E6,1742 EY = ERRBTMP
004664,003249: E6,1541 E6,1744 NYD = CMDTMP
004665,003250: E6,1541 E6,1605 NY0 EQUALS Y4 # (B(2))
004666,003251: E6,1541 E6,1607 NY1 EQUALS Y5 # (B(2))
004667,003252: E6,1541 E6,1565 NY2 EQUALS YNSUM # (B(2))
004668,003253: E6,1541 E6,1567 NY3 EQUALS YDSUM # (B(2))
004669,003254:
004670,003255: E6,1541 E6,1736 NY1TMP EQUALS Y5TMP # (B(2))
004671,003256: E6,1541 E6,1711 NY2TMP EQUALS NSUMTMP # (B(2))
004672,003257: E6,1541 E6,1713 NY3TMP EQUALS DSUMTMP # (B(2))
004673,003258:
|
|
Page 104 |
004675,003260: E6,1541 E6,1717 C1TMP = B1TMP # (B(1))
004676,003261: E6,1541 E6,1720 C2TMP = B2TMP # (B(1))
004677,003262: E6,1541 E6,1721 C3TMP = B3TMP # (B(1))
004678,003263: E6,1541 E6,1722 C4TMP = B4TMP # (B(1))
004679,003264: E6,1541 E6,1723 C5TMP = B5TMP # (B(1))
004680,003265: E6,1541 E6,1724 C6TMP = B6TMP # (B(1))
004681,003266: E6,1541 E6,1725 C7TMP = B7TMP # (B(1))
004682,003267:
004683,003268: E6,1541 E6,1726 Y1TMP = J1TMP # (B(2))
004684,003269: E6,1541 E6,1730 Y2TMP = J2TMP # (B(2))
004685,003270: E6,1541 E6,1732 Y3TMP = J3TMP # (B(2))
004686,003271: E6,1541 E6,1734 Y4TMP = J4TMP # (B(2))
004687,003272: E6,1541 E6,1736 Y5TMP = J5TMP # (B(2))
004688,003273: E6,1541 E6,1740 Y6TMP = J6TMP # (B(2))
004689,003274:
004690,003275:
004691,003276: # S40.9 STORAGE..........
004692,003277:
004693,003278: E6,1541 E6,1746 NBRCYCLS EQUALS CMDTMP +2 # B(1) COUNTER FOR P40,41 STEERING
004694,003279: E6,1541 E6,1747 NBRCYCLP EQUALS NBRCYCLS +1 # B(1) MAINTAIN ORDER
004695,003280: E6,1541 E6,1750 DELVSUM EQUALS NBRCYCLP +1 # I(6) P40,P41
004696,003281: E6,1541 E6,1756 DELVSUMP EQUALS DELVSUM +6 # I(6) P40,P41
004697,003282:
|
|
Page 105 |
004699,003284:
004700,003285: # ******** RCS DAP TEMPORARY VARIABLES. ***********************************(95D)
004701,003286:
004702,003287: # **RCS INTERUPT TRUE TEMPS************************* 15D
004703,003288:
004704,003289: E6,1541 E6,1506 SPNDX EQUALS INTTEMP # B(1)
004705,003290: E6,1541 E6,1507 DPNDX EQUALS SPNDX +1 # B(1)TMP
004706,003291: E6,1541 E6,1510 KMPAC EQUALS DPNDX +1 # B(2)TMP
004707,003292: E6,1541 E6,1512 KMPTEMP EQUALS KMPAC +2 # B(1)TMP
004708,003293:
004709,003294: E6,1541 E6,1513 XNDX1 EQUALS KMPTEMP +1 # B(1)TMP XNDX1 THRU NYJETS ARE OVERLAYED
004710,003295: E6,1541 E6,1514 XNDX2 EQUALS XNDX1 +1 # B(1)TMP BY OTHER DAP ERASABLES SO
004711,003296: E6,1541 E6,1515 YNDX EQUALS XNDX2 +1 # B(1)TMP SHOULD ALWAYS BE DEFINED IN
004712,003297: E6,1541 E6,1516 ZNDX EQUALS YNDX +1 # B(1)TMP A BLOCK
004713,003298: E6,1541 E6,1517 RINDEX EQUALS ZNDX +1 # B(1)TMP
004714,003299: E6,1541 E6,1520 PINDEX EQUALS RINDEX +1 # B(1)TMP
004715,003300: E6,1541 E6,1521 YINDEX EQUALS PINDEX +1 # B(1)TMP
004716,003301: E6,1541 E6,1522 NRJETS EQUALS YINDEX +1 # B(1)TMP
004717,003302: E6,1541 E6,1523 NPJETS EQUALS NRJETS +1 # B(1)TMP
004718,003303: E6,1541 E6,1524 NYJETS EQUALS NPJETS +1 # B(1)TMP
004719,003304:
004720,003305: E6,1541 E6,1513 WTEMP EQUALS XNDX1 # B(2)TMP WTEMP THRU DELTEMPZ OVERLAY
004721,003306: E6,1541 E6,1515 DELTEMPX EQUALS WTEMP +2 # B(2)TMP XNDX1 THRU NRJETS AND EDOT THRU
004722,003307: E6,1541 E6,1517 DELTEMPY EQUALS DELTEMPX +2 # B(2)TMP ADBVEL
004723,003308: E6,1541 E6,1521 DELTEMPZ EQUALS DELTEMPY +2 # B(2)TMP
004724,003309:
004725,003310: E6,1541 E6,1515 EDOT EQUALS YNDX # B(2)TMP EDOT THRU ADBVEL OVERLAY
004726,003311: E6,1541 E6,1517 AERR EQUALS EDOT +2 # B(1)TMP YNDX THRU NPJETS AND DELTEMPX
004727,003312: E6,1541 E6,1520 EDOTVEL EQUALS AERR +1 # B(2)TMP THRU DELTEMPZ
004728,003313: E6,1541 E6,1522 AERRVEL EQUALS EDOTVEL +2 # B(1)TMP
004729,003314: E6,1541 E6,1523 ADBVEL EQUALS AERRVEL +1 # B(1)TMP
004730,003315:
004731,003316: # *** REGULAR RCS TEMPS***************************** ( ).
004732,003317:
004733,003318: # RCS ZEROING LOOP STARTS HERE**** ** ** ** *** *** * * (37)
004734,003319:
004735,003320: E6,1541 E6,1525 WBODY EQUALS TVCRCS # B(2)TMP
004736,003321: E6,1541 E6,1527 WBODY1 EQUALS WBODY +2 # B(2)TMP
004737,003322: E6,1541 E6,1531 WBODY2 EQUALS WBODY +4 # B(2)TMP
004738,003323: E6,1541 E6,1533 ADOT EQUALS WBODY2 +2 # B(2)TMP
004739,003324: E6,1541 E6,1535 ADOT1 EQUALS ADOT +2 # B(2)TMP
004740,003325: E6,1541 E6,1537 ADOT2 EQUALS ADOT1 +2 # B(2)TMP
004741,003326:
004742,003327: E6,1541 E6,1541 MERRORX EQUALS ADOT2 +2 # (2)
004743,003328: E6,1541 E6,1543 MERRORY EQUALS MERRORX +2 # (2)
004744,003329: E6,1541 E6,1545 MERRORZ EQUALS MERRORY +2 # (2)
004745,003330: E6,1541 E6,1547 DFT EQUALS MERRORZ +2 # B(1)TMP
004746,003331: E6,1541 E6,1550 DFT1 EQUALS DFT +1 # B(1)TMP
004747,003332: E6,1541 E6,1551 DFT2 EQUALS DFT1 +1 # B(1)TMP
004748,003333: E6,1541 E6,1552 DRHO EQUALS DFT2 +1 # B(2)TMP
004749,003334: E6,1541 E6,1554 DRHO1 EQUALS DRHO +2 # B(2)TMP
|
|
Page 106 |
004751,003336: E6,1541 E6,1556 DRHO2 EQUALS DRHO1 +2 # B(2)TMP
004752,003337: E6,1541 E6,1560 ATTSEC EQUALS DRHO2 +2 # B(1)TMP
004753,003338: E6,1541 E6,1561 TAU EQUALS ATTSEC +1 # B(1)TMP
004754,003339: E6,1541 E6,1562 TAU1 EQUALS TAU +1 # B(1)TMP
004755,003340: E6,1541 E6,1563 TAU2 EQUALS TAU1 +1 # B(1)TMP
004756,003341: E6,1541 E6,1564 BIAS EQUALS TAU2 +1 # B(1)TMP
004757,003342: E6,1541 E6,1565 BIAS1 EQUALS BIAS +1 # B(1)TMP
004758,003343: E6,1541 E6,1566 BIAS2 EQUALS BIAS1 +1 # B(1)TMP
004759,003344: E6,1541 E6,1567 ERRORX EQUALS BIAS2 +1 # B(1)TMP
004760,003345: E6,1541 E6,1570 ERRORY EQUALS ERRORX +1 # B(1)TMP
004761,003346: E6,1541 E6,1571 ERRORZ EQUALS ERRORY +1 # B(1)TMP
004762,003347:
004763,003348:
004764,003349:
004765,003350: # RCS ZERO LOOP ENDS HERE
004766,003351:
004767,003352:
004768,003353: # MORE RCS (69D)
004769,003354:
004770,003355:
004771,003356: E6,1541 E6,1572 THETADX EQUALS ERRORZ +1 # B(1)TMP MUST BE CONSECUTIVE WITH ERRORZ
004772,003357: E6,1541 E6,1573 THETADY EQUALS THETADX +1 # B(1)TMP
004773,003358: E6,1541 E6,1574 THETADZ EQUALS THETADY +1 # B(1)TMP
004774,003359:
004775,003360: E6,1541 E6,1575 DELCDUX EQUALS THETADZ +1 # B(2)TMP
004776,003361: E6,1541 E6,1577 DELCDUY EQUALS DELCDUX +2 # B(2)TMP
004777,003362: E6,1541 E6,1601 DELCDUZ EQUALS DELCDUY +2 # B(2)TMP
004778,003363:
004779,003364: E6,1541 E6,1603 DCDU EQUALS DELCDUZ +2 # B(6)TMP USED DURING P20
004780,003365: E6,1541 E6,1611 DTHETASM EQUALS DCDU +6 # B(6)TMP STEER LOW OUTPUT.
004781,003366:
004782,003367: E6,1541 E6,1617 ATTKALMN EQUALS DTHETASM +6 # B(1)TMP
004783,003368: E6,1541 E6,1620 KMJ EQUALS ATTKALMN +1 # B(1)TMP
004784,003369: E6,1541 E6,1621 KMJ1 EQUALS KMJ +1 # B(1)TMP
004785,003370: E6,1541 E6,1622 KMJ2 EQUALS KMJ1 +1 # B(1)TMP
004786,003371: E6,1541 E6,1623 J/M EQUALS KMJ2 +1 # B(1)TMP
004787,003372: E6,1541 E6,1624 J/M1 EQUALS J/M +1 # B(1)TMP
004788,003373: E6,1541 E6,1625 J/M2 EQUALS J/M1 +1 # B(1)TMP
004789,003374: E6,1541 E6,1626 RACFAIL EQUALS J/M2 +1 # B(1)TMP
004790,003375: E6,1541 E6,1627 RBDFAIL EQUALS RACFAIL +1 # B(1)TMP
004791,003376: E6,1541 E6,1630 ACORBD EQUALS RBDFAIL +1 # B(1)TMP
004792,003377: E6,1541 E6,1631 XTRANS EQUALS ACORBD +1 # B(1)TMP
004793,003378: E6,1541 E6,1632 CH31TEMP EQUALS XTRANS +1 # B(1)TMP
004794,003379: E6,1541 E6,1633 CHANTEMP EQUALS CH31TEMP +1 # B(1)TMP
004795,003380: E6,1541 E6,1634 T5TIME EQUALS CHANTEMP +1 # B(1)TMP
004796,003381: E6,1541 E6,1635 RHO EQUALS T5TIME +1 # B(1)TMP
004797,003382: E6,1541 E6,1636 RHO1 EQUALS RHO +1 # B(1)TMP
004798,003383: E6,1541 E6,1637 RHO2 EQUALS RHO1 +1 # B(1)TMP
004799,003384: E6,1541 E6,1640 AMGB1 EQUALS RHO2 +1 # B(1)TMP
004800,003385: E6,1541 E6,1641 AMGB4 EQUALS AMGB1 +1 # B(1)TMP
|
|
Page 107 |
004802,003387: E6,1541 E6,1642 AMGB5 EQUALS AMGB4 +1 # B(1)TMP
004803,003388: E6,1541 E6,1643 AMGB7 EQUALS AMGB5 +1 # B(1)TMP
004804,003389: E6,1541 E6,1644 AMGB8 EQUALS AMGB7 +1 # B(1)TMP
004805,003390: E6,1541 E6,1645 CAPSI EQUALS AMGB8 +1 # B(1)TMP
004806,003391: E6,1541 E6,1646 CDUXD EQUALS CAPSI +1 # B(2)TMP
004807,003392: E6,1541 E6,1650 CDUYD EQUALS CDUXD +2 # B(2)TMP
004808,003393: E6,1541 E6,1652 CDUZD EQUALS CDUYD +2 # B(2)TMP
004809,003394: E6,1541 E6,1654 SLOPE EQUALS CDUZD +2 # B(1)TMP
004810,003395: E6,1541 E6,1655 ADB EQUALS SLOPE +1 # B(1)TMP
004811,003396: E6,1541 E6,1656 RMANNDX EQUALS ADB +1 # B(1)TMP
004812,003397: E6,1541 E6,1657 PMANNDX EQUALS RMANNDX +1 # B(1)TMP
004813,003398: E6,1541 E6,1660 YMANNDX EQUALS PMANNDX +1 # B(1)TMP MUST BE LAST VARIABLE IN RCS
004814,003399:
|
|
Page 108 |
004816,003401:
004817,003402: # ******** ENTRY DAP TEMPORARY VARIABLES.*********************************(69D)
004818,003403:
004819,003404: # ANGLE REGISTERS FOR ENTRY DAPS
004820,003405:
004821,003406: E6,1541 E6,1661 AOG EQUALS BCDU # 1P
004822,003407: E6,1541 E6,1662 AIG EQUALS AOG +1 # 1P
004823,003408: E6,1541 E6,1663 AMG EQUALS AIG +1 # 1P
004824,003409: E6,1541 E6,1664 ROLL/180 EQUALS AMG +1 # 1P
004825,003410: E6,1541 E6,1665 ALFA/180 EQUALS ROLL/180 +1 # 1P
004826,003411: E6,1541 E6,1666 BETA/180 EQUALS ALFA/180 +1 # 1P
004827,003412: E6,1541 E6,1667 AOG/PIP EQUALS BETA/180 +1 # 1P
004828,003413: E6,1541 E6,1670 AIG/PIP EQUALS AOG/PIP +1 # 1P
004829,003414: E6,1541 E6,1671 AMG/PIP EQUALS AIG/PIP +1 # 1P
004830,003415: E6,1541 E6,1672 ROLL/PIP EQUALS AMG/PIP +1 # 1P
004831,003416: E6,1541 E6,1673 ALFA/PIP EQUALS ROLL/PIP +1 # 1P
004832,003417: E6,1541 E6,1674 BETA/PIP EQUALS ALFA/PIP +1 # 1P
004833,003418:
004834,003419: # GYMBAL DIFFERENCES OVER INTERVAL TCDU = .1 SEC.
004835,003420:
004836,003421: E6,1541 E6,1675 -DELAOG EQUALS BETA/PIP +1 # 1P
004837,003422: E6,1541 E6,1676 -DELAIG EQUALS -DELAOG +1 # 1P
004838,003423: E6,1541 E6,1677 -DELAMG EQUALS -DELAIG +1 # 1P
004839,003424:
004840,003425: # ESTIMATED BODY RATES
004841,003426:
004842,003427: E6,1541 E6,1700 CMDAPMOD EQUALS -DELAMG +1 # 1P GOES BEFORE PREL FOR TM.
004843,003428:
004844,003429: E6,1541 E6,1701 PREL EQUALS CMDAPMOD +1 # 1P P TCDU/180 (ROLLDOT)
004845,003430: E6,1541 E6,1702 QREL EQUALS PREL +1 # 1P Q TCDU/180 (PITCHDOT)
004846,003431: E6,1541 E6,1703 RREL EQUALS QREL +1 # 1P R TCDU/180 (YAWDOT)
004847,003432:
004848,003433: E6,1541 E6,1704 BETADOT EQUALS RREL +1 # 1P MUST FOLLOW RREL. BETADOT TCDU/180
004849,003434: E6,1541 E6,1705 PHIDOT EQUALS BETADOT +1 # 1P
004850,003435:
004851,003436: # OLD (UNAVERAGED) BODY RATE MEASURE
004852,003437:
004853,003438: E6,1541 E6,1706 OLDELP EQUALS PHIDOT +1 # 1P
004854,003439: E6,1541 E6,1707 OLDELQ EQUALS OLDELP +1 # 1P
004855,003440: E6,1541 E6,1710 OLDELR EQUALS OLDELQ +1 # 1P
004856,003441:
004857,003442: E6,1541 E6,1711 JETAG EQUALS OLDELR +1 # 1P
004858,003443: E6,1541 E6,1712 TUSED EQUALS JETAG +1 # 1P ELAPSED TIME SINCE NOMINAL UPDATE.
004859,003444:
004860,003445:
004861,003446: # FOLLOWING 3 SP WORDS IN DOWNLINK. ROLLTM SENT EACH 1 SEC.
004862,003447:
004863,003448: E6,1541 E6,1713 PAXERR1 EQUALS TUSED +1 # 1P INTEGRATED ROLL ERROR/360.
004864,003449: E6,1541 E6,1714 ROLLTM EQUALS PAXERR1 +1 # 1P ROLL/180 FOR TM.
004865,003450: E6,1541 E6,1715 ROLLC EQUALS ROLLTM +1 # 2P ROLLCOM/360 FROM ENTRY (FOR TM)
004866,003451: # >> KEEP ROLLC & ROLLHOLD ADJACENT FOR TP
|
|
Page 109 |
004868,003453: E6,1541 E6,1717 ROLLHOLD EQUALS ROLLC +2 # 1P FOR ATTITUDE HOLD IN CMDAPMOD = +1
004869,003454:
004870,003455:
004871,003456: # ENTRY DAP QUANTITIES THAT SHARE WITH RCS DAP.
004872,003457:
004873,003458: E6,1541 E6,1603 ALFACOM EQUALS DCDU # 1P KEEP ADJACENT TO BETACOM. <<
004874,003459: E6,1541 E6,1604 BETACOM EQUALS ALFACOM +1 # 1P
004875,003460:
004876,003461: # JET LIST: DT, JETBITS IN THIS ORDER.
004877,003462:
004878,003463: E6,1541 E6,1605 TOFF EQUALS BETACOM +1 # 1P DP PAIR
004879,003464: E6,1541 E6,1606 TBITS EQUALS TOFF +1 # 1P
004880,003465: E6,1541 E6,1607 TON2 EQUALS TBITS +1 # 1P DP PAIR
004881,003466: E6,1541 E6,1610 T2BITS EQUALS TON2 +1 # 1P
004882,003467:
004883,003468: # MISCELLANEOUS PERMANENT ERASEABLE.
004884,003469:
004885,003470: E6,1541 E6,1611 OUTTAG EQUALS T2BITS +1 # 1P
004886,003471: E6,1541 E6,1612 NUJET EQUALS OUTTAG +1 # 1P
004887,003472: # MORE ENTRY DAP QUANTITIES THAT DO NOT SHARE WITH RCS DAP.
004888,003473:
004889,003474: E6,1541 E6,1720 JETEM EQUALS ROLLHOLD +1 # 2P THIS DP USED IN RATEAVG.
004890,003475: E6,1541 E6,1722 GAMA EQUALS JETEM +2 # 1P
004891,003476: E6,1541 E6,1723 GAMDOT EQUALS GAMA +1 # 1P
004892,003477: E6,1541 E6,1724 POSEXIT EQUALS GAMDOT +1 # 1P
004893,003478: E6,1541 E6,1725 CM/GYMDT EQUALS POSEXIT +1 # 1P
004894,003479: E6,1541 E6,1726 HEADSUP EQUALS CM/GYMDT +1 # 1P DSP NOUN 61 FOR P62,63,64,67.
004895,003480: E6,1541 E6,1727 P63FLAG EQUALS HEADSUP +1 # 1P INTERLOCK FOR WAKEP62
004896,003481:
004897,003482:
004898,003483: # >> SHARE BELOW WITH RCS RUPT TEMPS (< 15D) <<<
004899,003484: E6,1541 E6,1506 CALFA EQUALS SPNDX # 1P
004900,003485: E6,1541 E6,1507 SALFA EQUALS CALFA +1 # 1P
004901,003486:
004902,003487: E6,1541 E6,1510 SINM EQUALS SALFA +1 # 1P
004903,003488: E6,1541 E6,1511 COSM EQUALS SINM +1 # 1P
004904,003489: E6,1541 E6,1512 SINO EQUALS COSM +1 # 1P
004905,003490: E6,1541 E6,1513 COSO EQUALS SINO +1 # 1P
004906,003491: E6,1541 E6,1514 SINOCOSM EQUALS COSO +1 # 1P
004907,003492: E6,1541 E6,1515 COSOCOSM EQUALS SINOCOSM +1 # 1P
004908,003493: # >> SHARE ABOVE WITH RCS RUPT TEMPS <<<
004909,003494:
004910,003495: # THE FOLLOWING FEW REGISTERS USED ONCE EACH 2 SEC.
004911,003496:
004912,003497: E6,1541 E6,1613 -VT/180 EQUALS NUJET +1 # 1P
004913,003498: E6,1541 E6,1614 LCX/360 EQUALS -VT/180 +1 # 1P
004914,003499: E6,1541 E6,1615 XD/360 EQUALS LCX/360 +1 # 1P
004915,003500: E6,1541 E6,1616 VSQ/4API EQUALS XD/360 +1 # 1P
004916,003501: E6,1541 E6,1617 JNDX EQUALS VSQ/4API +1 # 1P
004917,003502: E6,1541 E6,1620 JNDX1 EQUALS JNDX +1 # 1P
|
|
Page 110 |
004919,003504: E6,1541 E6,1621 TON1 EQUALS JNDX1 +1 # 1P DP PAIR
004920,003505: E6,1541 E6,1622 T1BITS EQUALS TON1 +1 # 1P
004921,003506:
004922,003507: # MISCELLANEOUS REGISTERS USED EACH UPDATE.
004923,003508:
004924,003509: E6,1541 E6,1623 CM/SAVE EQUALS T1BITS +1 # 1P
004925,003510: E6,1541 E6,1624 JETEM2 EQUALS CM/SAVE +1 # 1P TEMPORARY STORAGE
004926,003511:
004927,003512: # DAP QUANTITIES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
004928,003513:
004929,003514: E6,1541 E6,1567 VDT/180 = ERRORX # 1P (EDIT)
004930,003515: E6,1541 E6,1570 -VT/180E = ERRORY # 1P (EDIT)
004931,003516:
004932,003517: E6,1541 E6,1476 PAXERR EQUALS AK # 1P ROLL ERROR FOR NEEDLES
004933,003518: E6,1541 E6,1572 QAXERR = THETADX # 1P SINCE AK1 IS ZEROED IN ATM DAP.
004934,003519: E6,1541 E6,1573 RAXERR = QAXERR +1 # 1P SINCE AK2 IS ZEROED IN TM DAP.
004935,003520:
004936,003521:
004937,003522:
004938,003523: # **** COLMANU (R60,R62) ****
004939,003524:
004940,003525: E6,1541 E6,1710 VECQTEMP EQUALS COFSKEW
004941,003526:
|
|
Page 111 |
004943,003528:
004944,003529: # ******** KALCMANU VARIABLES. (71D) *************************************
004945,003530: E6,1541 E6,1661 BCDU EQUALS YMANNDX +1 # B(3) TMP
004946,003531: E6,1541 E6,1664 KSPNDX EQUALS BCDU +3 # B(1)TMP
004947,003532: E6,1541 E6,1665 KDPNDX EQUALS KSPNDX +1 # B(1)TMP
004948,003533:
004949,003534: E6,1541 E6,1666 TMIS EQUALS KDPNDX +1 # I(18) MUST BE IN SAME BANK AS RCS DAP
004950,003535: E6,1541 E6,1710 COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN SAME BANK AS RCS DAP
004951,003536: E6,1541 E6,1716 CAM EQUALS COFSKEW +6 # I(2) MUST BE IN SAME BANK AS RCS DAP
004952,003537:
004953,003538: E6,1541 E6,1720 MIS EQUALS CAM +2 # I(18) (THE REST MAY GO ANYWHERE)
004954,003539: E6,1541 E6,1742 COF EQUALS MIS +18D # I(6)TMP
004955,003540: E6,1541 E6,1750 SCAXIS EQUALS COF +6 # I(6)TMP
004956,003541: E6,1541 E6,1756 POINTVSM EQUALS SCAXIS +6 # I(6)TMP
004957,003542: E6,1541 E6,1764 AM EQUALS POINTVSM +6 # I(2)TMP
004958,003543: E6,1541 E6,1766 RAD EQUALS AM +2 # I(2)TMP
004959,003544:
004960,003545:
004961,003546: # FIRST-ORDER OVERLAYS IN KALCMANU
004962,003547:
004963,003548: E6,1541 E6,1666 KV1 EQUALS TMIS # I(6)TMP
004964,003549: E6,1541 E6,1666 MFISYM EQUALS TMIS # I TMP
004965,003550: E6,1541 E6,1666 TMFI EQUALS TMIS # I TMP
004966,003551: E6,1541 E6,1666 NCDU EQUALS TMIS # B TMP
004967,003552: E6,1541 E6,1671 NEXTIME EQUALS TMIS +3 # B TMP
004968,003553: E6,1541 E6,1672 TTEMP EQUALS TMIS +4 # B TMP
004969,003554: E6,1541 E6,1674 KV2 EQUALS TMIS +6 # I(6)TMP
004970,003555: E6,1541 E6,1674 BIASTEMP EQUALS TMIS +6 # B TMP
004971,003556: E6,1541 E6,1702 KV3 EQUALS TMIS +12D # I(6)TMP
004972,003557: E6,1541 E6,1702 OGF EQUALS TMIS +12D # I TMP
004973,003558:
004974,003559: E6,1541 E6,1710 BRATE EQUALS COFSKEW # B TMP
004975,003560: E6,1541 E6,1716 TM EQUALS CAM # B TMP
004976,003561:
004977,003562: # SECOND-ORDER OVERLAYS IN KALCMANU
004978,003563:
004979,003564: E6,1541 E6,1666 P21 EQUALS KV1 # I(2)TMP
004980,003565: E6,1541 E6,1670 D21 EQUALS KV1 +2 # I(2)TMP
004981,003566: E6,1541 E6,1672 G21 EQUALS KV1 +4 # I(2)TMP
004982,003567:
004983,003568:
004984,003569: # SATURN BOOST STORAGE. SAVE TILL RCS DAP OPERATION. (17D)
004985,003570:
004986,003571: E6,1541 E6,1661 POLYNUM EQUALS BCDU # B(15) PAD LOADED
004987,003572: E6,1541 E6,1673 POLYLOC = POLYNUM +10D
004988,003573: E6,1541 E6,1700 SATRLRT EQUALS POLYNUM +15D # B(2) PAD LOADED
004989,003574:
004990,003575:
004991,003576:
004992,003577: # MORE P11 STORAGE -PAD LOADED- (2D)
004993,003578:
|
|
Page 112 |
004995,003580: # (NOTE: THIS PAD LOAD WILL NOT BE PRESERVED THROUGHOUT THE MISSION AS IT SHARES STORAGE WITH KALCMANU,
004996,003581: # ENTRY DAP AND TVC DAP)
004997,003582:
004998,003583: E6,1541 E6,1702 RPSTART EQUALS SATRLRT +2 # B(1) PITCH ROLL START TIME
004999,003584: E6,1541 E6,1703 POLYSTOP EQUALS RPSTART +1 # B(1) POLYCUT OFF MINUS RPSTART SEC
005000,003585:
005001,003586:
005002,003587:
005003,003588: # STORAGE FOR VHHDOT AND ATTDSP
005004,003589:
005005,003590: E6,1541 E6,1704 BODY3 EQUALS POLYSTOP +1 # B(1)OUT
005006,003591: E6,1541 E6,1705 BODY2 EQUALS BODY3 +1 # B(1)OUT
005007,003592: E6,1541 E6,1706 BODY1 EQUALS BODY2 +1 # B(1)OUT
005008,003593: E6,1541 E6,1707 SPOLYARG EQUALS BODY1 +1 # B(1)TMP ARGUEMENT FOR POLLY
005009,003594:
005010,003595: E6,1541 E6,1503 OLDBODY1 = EDRIVEX # 1 PULSE = 0.0432 DEGREES
005011,003596: E6,1541 E6,1504 OLDBODY2 = EDRIVEY
005012,003597: E6,1541 E6,1505 OLDBODY3 = EDRIVEZ
005013,003598:
005014,003599:
005015,003600: # STORAGE FOR S11.1
005016,003601:
005017,003602: E6,1541 E6,1710 VDISP EQUALS SPOLYARG +1 # I(2)OUT 2(7) M/CS
005018,003603: E6,1541 E6,1712 HDISP EQUALS VDISP +2 # I(2)OUT 2(29) M
005019,003604: E6,1541 E6,1714 HDOTDISP EQUALS HDISP +2 # I(2)OUT 2(7) M/CS
005020,003605: E6,1541 E6,1716 BOOSTEMP EQUALS HDOTDISP +2 # B(2) TEMP
005021,003606:
005022,003607: # P21 STORAGE. (1D)
005023,003608:
005024,003609: E6,1541 E6,1770 GENRET EQUALS RAD +2 # B(1)TMP
005025,003610:
005026,003611:
005027,003612: # R61CSM STORAGE. (1D)
005028,003613:
005029,003614: E6,1541 E6,1771 SAVBNK EQUALS GENRET +1 # B(1) S-S SAVE EBANK FOR R61 SUBROUTINE
005030,003615:
005031,003616:
005032,003617: # CRS61.1 STORAGE FOR AUTOPILOT BANK. (3D)
005033,003618:
005034,003619: E6,1541 E6,1772 SAVEDCDU EQUALS SAVBNK +1 # B(3) TMP
005035,003620:
005036,003621:
005037,003622:
005038,003623: # R61 STORAGE. (1D)
005039,003624:
005040,003625: E6,1541 E6,1775 R61CNTR EQUALS SAVEDCDU +3 # (1)TMP
005041,003626:
005042,003627:
005043,003628: # ENTRY RESTART PROTECTION STORAGE. -KEEP TEMPS IN ORDER- (12D)
005044,003629:
|
|
Page 113 |
005046,003631: E6,1541 E6,1770 TEMPROLL EQUALS GENRET # B(1)TMP COPY CYCLE REGISTER
005047,003632: E6,1541 E6,1771 TEMPALFA EQUALS TEMPROLL +1 # B(1)TMP COPY CYCLE REGISTER
005048,003633: E6,1541 E6,1772 TEMPBETA EQUALS TEMPALFA +1 # B(1)TMP COPY CYCLE REGISTER
005049,003634: E6,1541 E6,1773 60GENRET EQUALS TEMPBETA +1 # B(1)TMP QSAVE FOR S61.1 AND ENTRY.
005050,003635: E6,1541 E6,1774 S61DT EQUALS 60GENRET +1 # B(1)TMP VARIABLE DT FOR S61.1 RESTART.
005051,003636:
005052,003637:
005053,003638:
005054,003639: # ENTRY TM SHARING FOR ACCELERATION PROFILE.
005055,003640:
005056,003641: E6,1541 E6,1533 XPIPBUF EQUALS ADOT # B(1) PIPA BUFFER FOR TM DURING ENTRY.
005057,003642: E6,1541 E6,1534 YPIPBUF EQUALS XPIPBUF +1 # B(1) PIPS FILED HERE EACH .5 SEC APPEAR
005058,003643: E6,1541 E6,1535 ZPIPBUF EQUALS YPIPBUF +1 # B(1) ON DOWNLIST ONCE PER SECOND DURING
005059,003644: E6,1541 E6,1536 XOLDBUF EQUALS ZPIPBUF +1 # B(1) ENTRY AFTER RCS DAP HAS BEEN DIS-
005060,003645: E6,1541 E6,1537 YOLDBUF EQUALS XOLDBUF +1 # B(1) ABLED. NEWEST PIP VALUE REPLACES
005061,003646: E6,1541 E6,1540 ZOLDBUF EQUALS YOLDBUF +1 # B(1) PIPBUF, WHICH IS MOVED INTO OLDBUF.
005062,003647:
005063,003648:
005064,003649: # REENTRY VARIABLES SHARED WITH RCS DAP FOR TM & FLIGHT RECORDER.
005065,003650:
005066,003651: E6,1541 E6,1574 Q7 = THETADZ # I(2) HI-WORD ONLY ON DNLIST.
005067,003652:
005068,003653: E6,1541 E6,1525 ASPS(TM) = WBODY # I(6) DWN
005069,003654: # ASKEP,ASP1,ASPUP,ASPDN,ASP3,ASP3+1
005070,003655:
005071,003656:
005072,003657:
005073,003658: E6,1541 E6,1776 END-E6 EQUALS R61CNTR +1 # NEXT FREE E6 ADDRESS
005074,003659:
|
|
Page 114 |
005076,003661: # EBANK-7 ASSIGNMENTS
005077,003662:
005078,003663: E7,1400 SETLOC 3400
005079,003664:
005080,003665:
005081,003666: # *-*-*-*- OVERLAY 0 IN EBANK 7 -*-*-*-*
005082,003667:
005083,003668: # EXTERNAL DELTA-V UPDATE. (21D)
005084,003669:
005085,003670: # (MUST BE IN ORDER FOR UPDATE PROGRAM. ALSO ENTRY PROGRAMS PICK UP 'LAT(SPL)' WITH A VLOAD.)
005086,003671:
005087,003672: E7,1400 LAT(SPL) ERASE +20D # I(2) DSP NOUN 61 FOR P62,63,64,67
005088,003673: E7,1425 E7,1402 LNG(SPL) EQUALS LAT(SPL) +2 # I(2)DSP NOUN 61 FOR P62,63,64,67.
005089,003674:
005090,003675: E7,1425 E7,1404 DELVSLV EQUALS LNG(SPL) +2 # I(6)TMP DELTA VEL VECT, LOC VER COORDS
005091,003676: E7,1425 E7,1412 TIG EQUALS DELVSLV +6 # B(2)DSP NOUN 33 FOR X-V84(R32),P30,40.
005092,003677: E7,1425 E7,1414 RTARG EQUALS TIG +2 # I(6)IN DESIRED VEHICHE RADIUS VECTOR
005093,003678: E7,1425 E7,1422 DELLT4 EQUALS RTARG +6 # I(2)IN TIME DIFFERENCE FOR INITVEL
005094,003679: E7,1425 E7,1424 ECSTEER EQUALS DELLT4 +2 # I(1)PL FOR P40 S
005095,003680: E7,1425 E7,1404 DELVLVC = DELVSLV
005096,003681: E7,1425 END-DELV ERASE # *NEXT AVAIL LOC AFTER UNSHARED E7*
005097,003682: # SERVICER STORAGE. (13D)
005098,003683:
005099,003684: E7,1426 E7,1425 DVTOTAL EQUALS END-DELV # B(2) DSP NOUN 40,99 FOR P30,34,35,40
005100,003685: E7,1426 E7,1427 TGO EQUALS DVTOTAL +2 # B(2)
005101,003686: E7,1426 E7,1431 DVCNTR EQUALS TGO +2 # B(1)TMP
005102,003687: E7,1426 E7,1432 DELVREF EQUALS DVCNTR +1 # I(6)TMP
005103,003688:
005104,003689: E7,1426 E7,1447 NOMTIG EQUALS END-KALC # I(2) (CAN NOT SHARE WITH KALCMANU
005105,003690: # OR DELVREF)
005106,003691: E7,1426 E7,1451 END-SVCR EQUALS NOMTIG +2 # ***NEXT AVAILABLE AFTER SERVICER
005107,003692:
005108,003693:
005109,003694:
005110,003695: # ALIGNMENT STORAGE. (25D)
005111,003696:
005112,003697: E7,1426 E7,1451 XSCD EQUALS END-SVCR # I(6)TMP
005113,003698: E7,1426 E7,1457 YSCD EQUALS XSCD +6 # I(6)TMP
005114,003699: E7,1426 E7,1465 ZSCD EQUALS YSCD +6 # I(6)TMP
005115,003700: E7,1426 E7,1473 VEL/C EQUALS ZSCD +6 # I(6)TMP
005116,003701: E7,1426 E7,1501 R53EXIT EQUALS VEL/C +6 # I(1)TMP
005117,003702:
005118,003703:
005119,003704: # ALIGNMENT MARKDATA (DOWNLNK)****** (7D)
005120,003705: E7,1426 E7,1502 MARK2DWN EQUALS R53EXIT +1 # (7) USED BY ALLIGNMENT P50 S
005121,003706:
|
|
Page 115 |
005123,003708:
005124,003709: # *-*-*-*- OVERLAY 1 IN EBANK 7 -*-*-*-*
005125,003710:
005126,003711: # REENTRY ERASABLES (206D)
005127,003712:
005128,003713: E7,1426 E7,1451 RTINIT EQUALS END-SVCR # 6P
005129,003714: E7,1426 E7,1457 RTEAST EQUALS RTINIT +6 # 6P
005130,003715: E7,1426 E7,1465 RTNORM EQUALS RTEAST +6 # 6P
005131,003716: E7,1426 E7,1473 RT EQUALS RTNORM +6 # 6P
005132,003717: E7,1426 E7,1501 UNI EQUALS RT +6 # 6P
005133,003718: E7,1426 E7,1507 UNITV EQUALS UNI +6 # 6P
005134,003719: E7,1426 E7,1515 VEL EQUALS UNITV +6 # 6P
005135,003720:
005136,003721: E7,1426 E7,1523 TIME/RTO EQUALS VEL +6 # 2P TIME OF INITIAL TARGET, RTO.
005137,003722: E7,1426 E7,1525 -VREL EQUALS TIME/RTO +2 # 6P
005138,003723: E7,1426 E7,1533 OLDUYA EQUALS -VREL +6 # 6P USED BY CM/POSE (ENTRY DAP)
005139,003724: E7,1426 E7,1541 UXA/2 EQUALS OLDUYA +6 # 6P USED BY CM/POSE (ENTRY DAP) -UVA
005140,003725: E7,1426 E7,1541 URH = UXA/2 # P61 DISPLAY NOUN
005141,003726: E7,1426 E7,1547 UYA/2 EQUALS UXA/2 +6 # 6P USED BY CM/POSE (ENTRY DAP) UYA
005142,003727: E7,1426 E7,1555 UZA/2 EQUALS UYA/2 +6 # 6P USED BY CM/POSE (ENTRY DAP) UNA
005143,003728: E7,1426 E7,1563 UBX/2 EQUALS UZA/2 +6 # 6P USED BY CM/POSE (ENTRY DAP)
005144,003729: E7,1426 E7,1571 UBY/2 EQUALS UBX/2 +6 # 6P USED BY CM/POSE (ENTRY DAP)
005145,003730: E7,1426 E7,1577 UBZ/2 EQUALS UBY/2 +6 # 6P USED BY CM/POSE (ENTRY DAP)
005146,003731:
005147,003732: E7,1426 E7,1605 DTEAROT EQUALS UBZ/2 +6 # 2P
005148,003733: E7,1426 E7,1607 DIFF EQUALS DTEAROT +2 # 2P
005149,003734: E7,1426 E7,1611 DIFFOLD EQUALS DIFF +2 # 2P
005150,003735: E7,1426 E7,1613 FACTOR EQUALS DIFFOLD +2 # 2P
005151,003736: E7,1426 E7,1615 FACT1 EQUALS FACTOR +2 # 2P
005152,003737: E7,1426 E7,1617 FACT2 EQUALS FACT1 +2 # 2P
005153,003738: # Q7 = THETADZ 2P SHARED FOR TM. P64-P66
005154,003739: E7,1426 E7,1621 VSQUARE EQUALS FACT2 +2 # 2P
005155,003740: E7,1426 E7,1623 LAD EQUALS VSQUARE +2 # 2P
005156,003741: E7,1426 E7,1625 LOD EQUALS LAD +2 # 2P
005157,003742: E7,1426 E7,1627 L/DCMINR EQUALS LOD +2 # 2P
005158,003743: E7,1426 E7,1631 KLAT EQUALS L/DCMINR +2 # 2P
005159,003744: E7,1426 E7,1633 L/D EQUALS KLAT +2 # 2P
005160,003745: E7,1426 E7,1635 L/D1 EQUALS L/D +2 # 2P
005161,003746: E7,1426 E7,1724 LEWD = VIO # 2P SHARED FOR TM. P64-P65
005162,003747: E7,1426 E7,1637 D EQUALS L/D1 +2 # 2P DSP NOUN 64,66,68 FOR P63,64,67
005163,003748: # V1 = ENDBUF +1 2P SHARED FOR TM. P64-P65
005164,003749: E7,1426 E7,1641 DLEWD EQUALS D +2 # 2P
005165,003750: E7,1426 E7,1643 K2ROLL EQUALS DLEWD +2 # 2 P
005166,003751: E7,1426 E7,1645 GOTOADDR EQUALS K2ROLL +2 # 1P
005167,003752: E7,1426 E7,1646 TEM1B EQUALS GOTOADDR +1 # 2 P
005168,003753: E7,1426 E7,1650 MM EQUALS TEM1B +2 # 2 P
005169,003754: E7,1426 E7,1651 GRAD EQUALS MM +1 # 1P
005170,003755: E7,1426 E7,1652 FX EQUALS GRAD +1 # 1P OVERWRITES NEXT 5 LOCS IN P67.
005171,003756: E7,1426 E7,1653 LEQ EQUALS FX +1 # 2P
005172,003757: E7,1426 E7,1655 DHOOK EQUALS LEQ +2 # 2P
005173,003758: E7,1426 E7,1657 AHOOKDV EQUALS DHOOK +2 # 2P
|
|
Page 116 |
005175,003760: E7,1426 E7,1661 DVL EQUALS AHOOKDV +2 # 2P
005176,003761: # A0 = ENDBUF +3 2P SHARED FOR TM.(HI-WD ) P64-P65
005177,003762: E7,1426 E7,1663 A1 EQUALS DVL +2 # 2P
005178,003763: E7,1426 E7,1665 VBARS EQUALS A1 +2 # 2P
005179,003764: E7,1426 E7,1667 COSG/2 EQUALS VBARS +2 # 2P
005180,003765: # GAMMAL = GAMMAEI 2P SHARED FOR TM P64
005181,003766: E7,1426 GAMMAL1 = 22D # 2P
005182,003767: E7,1426 E7,1671 VS1 EQUALS COSG/2 +2 # 2P
005183,003768: E7,1426 E7,1766 VL = VPRED # 2P SHARED FOR TM P64-P65
005184,003769: E7,1426 E7,1673 V EQUALS VS1 +2 # 2P
005185,003770: # VREF = THETAD +2 2P SHARED FOR TM P65
005186,003771: E7,1426 E7,1675 LATANG EQUALS V +2 # 2P ADJACENT FOR TM.
005187,003772: E7,1426 E7,1677 RDOT EQUALS LATANG +2 # 2P ADJACENT FOR TM.
005188,003773: E7,1426 E7,1701 THETAH EQUALS RDOT +2 # 2P DSP NOUN 64,67 FOR P63,64,67
005189,003774: # RDOTREF = THETAD 2P SHARED FOR TM P65
005190,003775: E7,1426 E7,1703 ALP EQUALS THETAH +2 # 2P
005191,003776:
005192,003777: E7,1426 E7,1730 ASKEP = ASPS # 2P) THESE ARE STORED IN
005193,003778: E7,1426 E7,1731 ASP1 = ASPS +1 # 2P) SEQUENCE,OVERLAPPING
005194,003779: E7,1426 E7,1732 ASPUP = ASPS +2 # 2P)>HI-WD OF EACH< HI-WORD ONLY APPEARS
005195,003780: E7,1426 E7,1733 ASPDWN = ASPS +3 # 2P) ON DOWNLIST, EXCEPT
005196,003781: E7,1426 E7,1734 ASP3 = ASPS +4 # 2P) ASP3 IS COMPLETE.
005197,003782:
005198,003783: E7,1426 E7,1705 C/D0 EQUALS ALP +2 # 2P -1/D0
005199,003784: E7,1426 E7,1707 D0 EQUALS C/D0 +2 # I(2) CONSTANT DRAG
005200,003785: E7,1426 E7,1711 Q2 EQUALS D0 +2 # 2P
005201,003786:
005202,003787: # ROLLC IS LOCATED IN EBANK= AOG TO AID ENTRY DAP.
005203,003788: E7,1426 E7,1713 RTGO EQUALS Q2 +2 # 2P DSP NOUN 66 FOR P64,P67.
005204,003789: E7,1426 E7,1715 DNRNGERR EQUALS RTGO +2 # 2P DSP NOUN 66 FOR P64,67.
005205,003790: E7,1426 E7,1675 XRNGERR = LATANG # FOR DISKY DISPLAY
005206,003791: E7,1426 E7,1717 KAT EQUALS DNRNGERR +2 # 2P
005207,003792: E7,1426 E7,1721 GMAX EQUALS KAT +2 # 1P DSP NOUN 60 FOR P61,62,63.
005208,003793: # GMAX IS LOADED IN DOUBLE PRECISION
005209,003794: E7,1426 E7,1726 L/DCALC = TTE # 2P CALCULATED L/D FOR TM: P64 - P67.
005210,003795: E7,1426 E7,1770 GAMMAL = GAMMAEI # 2P SHARED FOR TM P64
005211,003796: E7,1426 E7,1770 PREDANG = GAMMAEI # FOR TM IN P67.
005212,003797: E7,1426 E7,1771 JJ = PREDANG +1 # FOR TM IN P67.
005213,003798: E7,1426 E7,1722 VMAGI EQUALS GMAX +1 # 2P DSP NOUN 62,64,68 FOR P11,63,64.
005214,003799: E7,1426 E7,1724 VIO EQUALS VMAGI +2 # 2P DSP NOUN 63 FOR P61.
005215,003800: E7,1426 E7,1726 TTE EQUALS VIO +2 # 2P DSP NOUN 63 FOR P61.
005216,003801:
005217,003802: E7,1426 E7,1730 ASPS EQUALS TTE +2 # I(2) HI-WORD ONLY ON DNLIST FOR TEMP
005218,003803: E7,1426 E7,1732 TTE1 EQUALS ASPS +2 # I(2ETMP HOLDS UNDECREMENTED TTE VALUE
005219,003804:
005220,003805:
005221,003806: # **** P6OS ****
005222,003807:
005223,003808: E7,1426 E7,1713 RTGON64 EQUALS RTGO # RANGE ERRORS NEGATIVE IF FALLS SHORT
|
|
Page 117 |
005225,003810: E7,1426 E7,1713 RTGON67 EQUALS RTGO # DSP NOUN 67
005226,003811:
005227,003812:
005228,003813:
005229,003814: # REENTRY, RETURN TO EARTH COMMON DISPLAY. (4D)
005230,003815:
005231,003816: E7,1426 E7,1766 VPRED EQUALS BETA12 +2 # DSP NOUN 60 FOR P61, ,62,63.
005232,003817: E7,1426 E7,1770 GAMMAEI EQUALS VPRED +2 # DSP NOUN 60 FOR P61, ,62,63.
005233,003818:
005234,003819:
005235,003820:
005236,003821: # SOME P11 DISPLAY REGISTERS. (6D)
005237,003822:
005238,003823: E7,1426 E7,1734 ALTI EQUALS TTE1 +2 # 2P DSP NOUN 62 FOR P11.
005239,003824: E7,1426 E7,1736 HDOT EQUALS ALTI +2 # 2P DSP NOUN 62 FOR P11.
005240,003825:
|
|
Page 118 |
005242,003827:
005243,003828: # *-*-*-*- OVERLAY 2 IN EBANK 7 -*-*-*-*
005244,003829:
005245,003830: # KALCMANU STORAGE. (18D)
005246,003831:
005247,003832: E7,1426 E7,1425 MFS EQUALS END-DELV # I(18)
005248,003833: E7,1426 E7,1425 MFI EQUALS MFS # I TMP
005249,003834: E7,1426 E7,1425 DEL EQUALS MFS # I TMP
005250,003835: E7,1426 E7,1447 END-KALC EQUALS MFS +18D # **NEXT AVAIL LOC AFTER KALCMANU **
005251,003836:
005252,003837:
005253,003838: # MEASUREMENT INCORPORATION STORAGE(R22) STORAGE. (56D)
005254,003839:
005255,003840: E7,1426 E7,1447 TX789 EQUALS END-KALC # I(6)TMP
005256,003841: E7,1426 E7,1455 GAMMA EQUALS TX789 +6 # I(2)TMP
005257,003842: E7,1426 E7,1457 OMEGA EQUALS GAMMA +2 # I(18)TMP
005258,003843: E7,1426 E7,1501 BVECTOR EQUALS OMEGA +18D # I(18)TMP
005259,003844: E7,1426 E7,1523 DELTAQ EQUALS BVECTOR +18D # I(2)TMP
005260,003845: E7,1426 E7,1525 VARIANCE EQUALS DELTAQ +2 # I(3)TMP
005261,003846: E7,1426 E7,1530 RCLP EQUALS VARIANCE +3 # I(6)TMP
005262,003847: E7,1426 E7,1536 GRP2SVQ EQUALS RCLP +6 # I(1)TMP QSAVE FOR RESTARTS
005263,003848:
005264,003849:
005265,003850: # P20, P22, P23 DSP NOUN (5D)
005266,003851:
005267,003852: E7,1426 E7,1501 N49DISP EQUALS BVECTOR # B(5)TMP
005268,003853:
005269,003854:
005270,003855: # S22.1 STORAGE. (36D)
005271,003856:
005272,003857: E7,1426 E7,1537 SVMRKDAT EQUALS GRP2SVQ +1 # I(36)TMP 5 SETS OF MARK DATA +PAD OF ONE
005273,003858:
005274,003859:
005275,003860: # **** CISLUNAR NAV. ERAS. (P20S) **** (57D).
005276,003861:
005277,003862: E7,1426 E7,1603 TRUNX EQUALS SVMRKDAT +36D
005278,003863: E7,1426 E7,1603 DATATEST EQUALS TRUNX # (1)
005279,003864: E7,1426 E7,1604 UBAR0 EQUALS TRUNX +1
005280,003865: E7,1426 E7,1612 UBAR1 EQUALS UBAR0 +6
005281,003866: E7,1426 E7,1620 UBAR2 EQUALS UBAR1 +6
005282,003867: E7,1426 E7,1626 RZC EQUALS UBAR2 +6
005283,003868: E7,1426 E7,1634 VZC EQUALS RZC +6
005284,003869: E7,1426 E7,1642 UCLSTAR EQUALS VZC +6
005285,003870: E7,1426 E7,1650 USSTAR EQUALS UCLSTAR +6
005286,003871: E7,1426 E7,1656 RCLL EQUALS USSTAR +6
005287,003872: E7,1426 E7,1664 RL EQUALS RCLL +6
005288,003873: E7,1426 E7,1672 SRRETURN EQUALS RL +6
005289,003874:
|
|
Page 119 |
005291,003876:
005292,003877: # *-*-*-*- OVERLAY 3 IN EBANK 7 -*-*-*-*
005293,003878:
005294,003879: # RENDEZVOUS GUIDANCE STORAGE. - P32...P35- (8D)
005295,003880:
005296,003881: E7,1426 E7,1447 DELTEEO EQUALS END-KALC # I(2) S-S BACK VALUES OF DELTA TIME
005297,003882: E7,1426 E7,1451 DELEL EQUALS DELTEEO +2 # I(2) S-S
005298,003883: E7,1426 E7,1453 SECMAX EQUALS DELEL +2 # I(2) S-S MAX STOP SIZE FOR ROUTINE
005299,003884: E7,1426 E7,1455 XXXALT EQUALS SECMAX +2 # I(2)
005300,003885:
005301,003886:
005302,003887:
005303,003888: # S40.9 STORAGE. (16D)
005304,003889:
005305,003890: E7,1426 E7,1457 VG EQUALS XXXALT +2 # I(6)TMP
005306,003891: E7,1426 E7,1465 VRPREV EQUALS VG +6 # I(6)
005307,003892: E7,1426 E7,1473 TNIT EQUALS VRPREV +6 # I(2)
005308,003893: E7,1426 E7,1475 TNITPREV EQUALS TNIT +2 # I(2)
005309,003894:
005310,003895:
005311,003896: # S40.2,3 STORAGE. (1D)
005312,003897:
005313,003898: E7,1426 E7,1477 AXISCODE EQUALS TNITPREV +2 # I(1)IN
005314,003899:
005315,003900:
005316,003901: # P30'S-P17 COMMON STORAGE. (24D)
005317,003902:
005318,003903: E7,1426 E7,1537 RACT3 EQUALS GRP2SVQ +1 # I(6)TMP POSITION OF ACTIVE AT TPI TIME.
005319,003904: E7,1426 E7,1545 VACT3 EQUALS RACT3 +6 # I(6)TMP VELOCITY OF ACTIVE AT TPI TIME.
005320,003905: E7,1426 E7,1553 RPASS3 EQUALS VACT3 +6 # I(6)TMP POSITION OF PASSIVE AT TPI TIME.
005321,003906: E7,1426 E7,1561 VPASS3 EQUALS RPASS3 +6 # I(6)TMP VELOCITY OF PASSIVE AT TPI TIME.
005322,003907:
005323,003908:
005324,003909: # P76, N84 DISPLAY (6D)
005325,003910:
005326,003911: E7,1426 E7,1537 DELVOV EQUALS RACT3 # I(6)DSP NOUN 84 FOR X-V84, P34-35
005327,003912:
005328,003913:
005329,003914: # INITVEL/MIDGIM STORAGE. (34D)
005330,003915: # (CALLED BY S34.1,2, S35.1,2, AND S40.9)
005331,003916: # (CALLS LAMBERT, CONIC SUBROUTINES)
005332,003917:
005333,003918: E7,1426 E7,1567 RINIT EQUALS VPASS3 +6 # I(6)IN ACTIVE VEHICLE RADIUS VECTOR
005334,003919: E7,1426 E7,1575 VINIT EQUALS RINIT +6 # I(6)IN ACTIVE VEHICLE VELOCITY VECTOR
005335,003920: E7,1426 E7,1603 RTARG1 EQUALS VINIT +6 # I(6)TMP SHIFTED RTARG
005336,003921: E7,1426 E7,1611 VIPRIME EQUALS RTARG1 +6 # I(6)OUT NEW VEL REQ AT INITIAL RADIUS
005337,003922: E7,1426 E7,1617 VTPRIME EQUALS VIPRIME +6 # I(6)OUT TOTAL VELOCITY AT DESIRED RADIUS
005338,003923: E7,1426 E7,1625 +MGA EQUALS VTPRIME +6 # I(2)DSP NOUN 45 FOR P30,34,35. +MID GIM.
005339,003924: E7,1426 E7,1627 COZY4 EQUALS +MGA +2 # I(2)TMP COSINE OF ANGLE WHEN ROT STARTS
005340,003925:
005341,003926: # (THE FOLLOWING OVERLAYS MEASUREMENT INCORP AND CAN NOT SHARE WITH TPI
005342,003927:
|
|
Page 120 |
005344,003929: E7,1426 E7,1502 INTIME EQUALS AXISCODE +3
005345,003930: E7,1426 E7,1504 ITCTR EQUALS INTIME +2 # I(1) TMP ITERATION COUNTER
005346,003931: E7,1426 E7,1631 END-IN/M EQUALS COZY4 +2 # **NEXT AVAIL LOC AFTER INITVEL/MIDGIM**
005347,003932:
005348,003933: # P34 AND P33 STORAGE. (OVERLAYS INITVEL/MIDGIM) (24D)
005349,003934:
005350,003935: E7,1426 E7,1567 VAPREC EQUALS RINIT # I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
005351,003936: E7,1426 E7,1575 RAPREC EQUALS VINIT # I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
005352,003937: E7,1426 E7,1611 VPPREC EQUALS VIPRIME # I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
005353,003938: E7,1426 E7,1617 RPPREC EQUALS VTPRIME # I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
005354,003939:
005355,003940: # P30, P40 INTERFACE. (20D)
005356,003941:
005357,003942: E7,1426 E7,1631 RTIG EQUALS END-IN/M # I(6)TMP
005358,003943: E7,1426 E7,1637 VTIG EQUALS RTIG +6 # I(6)TMP
005359,003944: E7,1426 E7,1645 DELVSIN EQUALS VTIG +6 # I(6)TMP
005360,003945: E7,1426 E7,1645 DELVEET3 EQUALS DELVSIN # TMP DELTA VEL VECT INERTIAL COORDS.
005361,003946: E7,1426 E7,1645 VGTEMP EQUALS DELVEET3
005362,003947: E7,1426 E7,1653 DELVSAB EQUALS DELVSIN +6 # I(2)TMP
005363,003948: E7,1426 E7,1653 VGDISP = DELVSAB # DSP NOUN 40,42,99FOR P30,34,35,40,41
005364,003949:
005365,003950: # P35-P40 INTERFACE STORAGE. (OVERLAYS P30-P40 I/F STORAGE) (12D)
005366,003951:
005367,003952: E7,1426 E7,1631 RPASS4 EQUALS RTIG # I(6)TMP POSITION OF PASSIVE AT INTERCEPT
005368,003953: E7,1426 E7,1637 VPASS4 EQUALS RPASS4 +6 # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
005369,003954:
005370,003955:
005371,003956: # TPI SEARCH (P17) (6D)
005372,003957:
005373,003958: E7,1426 E7,1645 E2 EQUALS VPASS4 +6 # I(6)TMP
005374,003959:
005375,003960:
005376,003961:
005377,003962: # P30-P40 COMMON STORAGE. (3D)
005378,003963:
005379,003964: E7,1426 E7,1655 TPASS4 EQUALS DELVSAB +2 # I(2)TMP
005380,003965: E7,1426 E7,1655 TINT = TPASS4 # I(2)
005381,003966: E7,1426 E7,1657 QTEMP EQUALS TPASS4 +2 # I(1)TMP
005382,003967:
005383,003968:
005384,003969:
005385,003970: # P30-P40 STORAGE. (4D)
005386,003971:
005387,003972: E7,1426 E7,1660 TTOGO EQUALS QTEMP +1 # B(2)DSP NOUN 35,40,45,59,99
005388,003973: # FOR P30,34,35,40,41,47, R30.
005389,003974: E7,1426 E7,1662 TTPI EQUALS TTOGO +2 # B(2)DSP NOUN 37 FOR P34 TPI TIME, CSECS.
|
|
Page 121 |
005391,003976: E7,1426 E7,1664 END-P30S EQUALS TTPI +2 # **NEXT AVAIL LOC AFTER P30-40 STORAGE.**
005392,003977:
005393,003978:
005394,003979: # P40 STORAGE. (8D)
005395,003980:
005396,003981: E7,1426 E7,1664 VGBODY EQUALS END-P30S # B(6)DSP NOUN 85 FOR P40,41,42 VG-SC COOR
005397,003982: E7,1426 E7,1664 DELVCTL = VGBODY
005398,003983: E7,1426 E7,1672 P40TMP EQUALS VGBODY +6 # B(2)TMP
005399,003984:
005400,003985:
005401,003986: # P47 STORAGE.
005402,003987:
005403,003988: E7,1426 E7,1457 DV47TEMP EQUALS VG
005404,003989: E7,1426 E7,1674 DELVIMU EQUALS P40TMP +2 # I(6) DSP NOUN 83 FOR P47 DELTAV(IMU)
005405,003990:
005406,003991:
005407,003992:
005408,003993: # S40.1 STORAGE. (23D)
005409,003994:
005410,003995: E7,1426 E7,1702 CSTEER EQUALS DELVIMU +6 # I(2)IN
005411,003996: E7,1426 E7,1704 BDT EQUALS CSTEER +2 # I(6)IN
005412,003997: E7,1426 E7,1712 UT EQUALS BDT +6 # I(6)OUT THRUST DIRECTION
005413,003998: E7,1426 E7,1720 VGTIG EQUALS UT +6 # I(6)OUT
005414,003999: E7,1426 E7,1720 VGPREV = VGTIG
005415,004000: E7,1426 E7,1726 F EQUALS VGTIG +6 # I(2)OUT S40.3 NEEDS THIS
005416,004001:
005417,004002: E7,1426 E7,1730 QTEMP1 EQUALS F +2 # I(1)TMP HOLDS RETURN
005418,004003:
|
|
Page 122 |
005420,004005:
005421,004006: # *-*-*-*- OVERLAY 4 IN EBANK 7 -*-*-*-*
005422,004007:
005423,004008: # S35.1 STORAGE. (2D)
005424,004009:
005425,004010: E7,1426 E7,1664 TSTRT EQUALS END-P30S # I(2)IN MIDCOURSE START TIME
005426,004011:
005427,004012:
005428,004013: # S34.1 STORAGE. (OVERLAYS S35.1 STORAGE) (1D)
005429,004014:
005430,004015: E7,1426 E7,1664 TITER EQUALS TSTRT # I(1)TMP ITERATION COUNTER
005431,004016:
005432,004017:
005433,004018: # (P30-31 Q-SAVES) (1)
005434,004019:
005435,004020: E7,1426 E7,1664 P30/31RT EQUALS TITER # B(1) RETURN POINT
005436,004021:
005437,004022:
005438,004023:
005439,004024: # P20'S(COLOSSUS) STORAGE. (6D)
005440,004025:
005441,004026: E7,1426 E7,1666 S22WUNL EQUALS TSTRT +2 # 1 WUNL W8 UNKNOWN INIT VALUE
005442,004027: E7,1426 E7,1667 S22TOFF EQUALS S22WUNL +1 # 2 T SUB OFF
005443,004028: E7,1426 E7,1671 S22TPRIM EQUALS S22TOFF +2 # 2 SAVE TF
005444,004029: E7,1426 E7,1673 S22EORM EQUALS S22TPRIM +2 # 0 = EARTH -- NON-ZERO = MOON
005445,004030:
005446,004031:
005447,004032:
005448,004033: # DOWNLINK ERASABLES FOR P22,P20 MARK DATA. (8D)
005449,004034:
005450,004035: E7,1426 E7,1674 MARKDOWN EQUALS S22EORM +1 # B(1)
005451,004036: E7,1426 E7,1703 RM EQUALS S22RTNEX # DOWNLINK OF VHF RANGE
005452,004037:
005453,004038:
005454,004039:
005455,004040: # S22.1 (1D)
005456,004041:
005457,004042: E7,1426 E7,1703 S22RTNEX EQUALS MARKDOWN +7 # B(1)
005458,004043:
005459,004044:
005460,004045:
005461,004046: # CRS61.1 STORAGE. -A SUBSET OF P20- (14D)
005462,004047:
005463,004048: E7,1426 E7,1704 Q611 EQUALS RM +1 # I(1) TMP QSAVE
005464,004049: E7,1426 E7,1705 Q6111 EQUALS Q611 +1 # I(1)TMP QSAVE
005465,004050: E7,1426 E7,1706 SAVEPOS EQUALS Q6111 +1 # I(6)TMP LEM POSITION VECTOR-
005466,004051: E7,1426 E7,1714 SAVEVEL EQUALS SAVEPOS +6 # I(6)TMP LEM VELOCITY VECTOR-
005467,004052:
005468,004053:
005469,004054: # ATTITUDE MANEUVER -CALLED BY P20,R61,R63,CRS61.1 (3D)
005470,004055:
|
|
Page 123 |
005472,004057: E7,1426 E7,1722 PRAXIS EQUALS SAVEVEL +6 # B(3) S-S DISP RES FOR PREF AXIS N95
005473,004058:
005474,004059:
005475,004060: # MARK ROUTINE (R21) STORAGE. -IS SUBSET OF R22- (14D)
005476,004061:
005477,004062: E7,1426 E7,1725 MRKBUF1 EQUALS PRAXIS +3 # B(7)TMP R21 MARK BUFFER
005478,004063: E7,1426 E7,1734 MRKBUF2 EQUALS MRKBUF1 +7 # B(7)TMP R21 MARK BUFFER
005479,004064:
005480,004065:
005481,004066: # MORE CONICS STORAGE. (4)
005482,004067: E7,1426 COGA EQUALS 3774 # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE
005483,004068: E7,1426 E7,1774 INDEP EQUALS COGA # I(1) USED BY SUBROUTINE:ITERATOR:
005484,004069: E7,1426 E7,1776 EPSILONL EQUALS COGA +2 # I(2) TMP
005485,004070:
005486,004071:
005487,004072: # RENDEZVOUS GUIDANCE STORAGE. - P32...P35 - (10D)
005488,004073:
005489,004074: E7,1426 E7,1743 ELEV EQUALS MRKBUF2 +7 # I(2)TMP
005490,004075: E7,1426 E7,1745 RTX1 EQUALS ELEV +2 # (1)
005491,004076: E7,1426 E7,1746 RTX2 EQUALS RTX1 +1 # (1)
005492,004077: E7,1426 E7,1747 RTMU EQUALS RTX2 +1 # (2)
005493,004078: E7,1426 E7,1751 RTSR1/MU EQUALS RTMU +2 # (2)
005494,004079: E7,1426 E7,1753 CENTANG EQUALS RTSR1/MU +2 # I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
005495,004080:
005496,004081:
005497,004082:
005498,004083: # TPI SEARCH (S17.1, S17.2) P17 STORAGE. (10D)
005499,004084:
005500,004085: E7,1426 E7,1743 DELTEE EQUALS MRKBUF2 +7 # I(2)
005501,004086: E7,1426 E7,1745 XRS EQUALS DELTEE +2 # I(2)
005502,004087: E7,1426 E7,1747 THETL EQUALS XRS +2 # I(2)
005503,004088: E7,1426 E7,1751 TF EQUALS THETL +2 # I(2)
005504,004089: E7,1426 E7,1753 DELHITE EQUALS TF +2 # (2)
005505,004090:
|
|
Page 124 |
005507,004092:
005508,004093: # *-*-*-*- OVERLAY 5 IN EBANK 7 -*-*-*-*
005509,004094:
005510,004095: # P17,P34 (2D)
005511,004096:
005512,004097: E7,1426 E7,1645 NN1 EQUALS DELVEET3 # I(2) DSP NOUN 55,R1
005513,004098:
005514,004099: # ************ THE FOLLOWING ARE FOR FLIGHT 504 ONLY ********************
005515,004100:
005516,004101: # RETURN-TO-EARTH STORAGE. (93D)
005517,004102:
005518,004103: E7,1426 E7,1631 RTEDVD EQUALS END-IN/M # I(2)IN DELTA VELOCITY DESIRED M/CS B7
005519,004104: E7,1426 E7,1633 RTEGAM2D EQUALS RTEDVD +2 # I(2)IN REENTRY ANGLE DESIRED REVS B0
005520,004105: E7,1426 E7,1635 RCON EQUALS RTEGAM2D +2 # I(2)TMP CONIC R2 RADIUS M B29
005521,004106: E7,1426 E7,1637 R(T1)/ EQUALS RCON +2 # I(6)TMP POSITION VECTOR AT TIG M B29/B27
005522,004107: E7,1426 E7,1645 R(T1) EQUALS R(T1)/ +6 # I(2)TMP MAGNITUDE OF R(T1)/ M B29/B27
005523,004108: E7,1426 E7,1647 DT21PR EQUALS R(T1) +2 # I(2) TMP PREVOUS DT21 CS B30
005524,004109: E7,1426 E7,1651 MAMAX1 EQUALS DT21PR +2 # I(2) TMP MAJ AXIS LOW BOUND LMT M B30
005525,004110: E7,1426 E7,1653 MAMAX2 EQUALS MAMAX1 +2 # I(2) TMP MAJ AXIS UP BOUND LMT M B30
005526,004111: E7,1426 E7,1655 R(T2)/ EQUALS MAMAX2 +2 # I(6)TMP FINAL POSITION VECTOR M B29/B27
005527,004112: E7,1426 E7,1663 RD EQUALS R(T2)/ +6 # I(2)TMP FINAL R DESIRED M B29/B27
005528,004113: E7,1426 E7,1665 DRCON EQUALS RD +2 # I(2)TMP RCON SLOPE ITERATOR M B29/B27
005529,004114: E7,1426 E7,1667 RPRE, EQUALS DRCON +2 # I(2)TMP PREVISOUS RPRE M B29/B27
005530,004115: E7,1426 E7,1671 V(T1)/ EQUALS RPRE, +2 # I(6)TMP VEL VECTOR AT TIG M/CS B7/B5
005531,004116: E7,1426 E7,1677 V2(T1)/ EQUALS V(T1)/ +6 # I(6)TMP POST IMP VEL AT TIG M/CS B7/B5
005532,004117: E7,1426 E7,1705 DV EQUALS V2(T1)/ +6 # I(2)TMP DELTA VELOCITY AT TIG M/CS B7/B5
005533,004118: E7,1426 E7,1707 V(T2)/ EQUALS DV +2 # I(6)TMP FINAL VELOCITY VECTOR M/CS B7/B5
005534,004119: E7,1426 E7,1715 T1 EQUALS V(T2)/ +6 # I(2)TMP INITIAL VECTOR TIME CS B28
005535,004120: E7,1426 E7,1717 PCON EQUALS T1 +2 # I(2)TMP SEMI-LATUS RECTUM M B29
005536,004121: E7,1426 E7,1721 X(T1) EQUALS PCON +2 # I(2)TMP COTANGENT GAMMA1 B5
005537,004122: E7,1426 E7,1723 T12 EQUALS X(T1) +2 # I(2)TMP INIT TO FINL POSIT TIME CS B28
005538,004123: E7,1426 E7,1725 DELTAT EQUALS T12 +2 # I(2) TMP DELTA T IN SAFE PERILUNE CS B28
005539,004124: E7,1426 E7,1727 NN1A EQUALS DELTAT +2 # I(2) TMP ITERATION COUNTER 1
005540,004125: E7,1426 E7,1731 NN2 EQUALS NN1A +2 # I(2) TMP ITERATION COUNTER 2
005541,004126: E7,1426 E7,1733 RTENCKEX EQUALS NN2 +2 # I(1)TMP RTENCK RETURN ADDRESS
005542,004127: E7,1426 E7,1734 CONICX1 EQUALS RTENCKEX +1 # I(1)TMP CONICS MU TABLE INDEX
005543,004128: E7,1426 E7,1735 T2 EQUALS CONICX1 +1 # I(2)TMP FINAL TIME CS B28
005544,004129: E7,1426 E7,1737 UR1/ EQUALS T2 +2 # I(6)TMP UNIT R(T1)/ B1
005545,004130: E7,1426 E7,1745 UV1/ EQUALS UR1/ +6 # I(6)TMP UNIT V(T1)/ B1
005546,004131: E7,1426 E7,1753 BETA1 EQUALS UV1/ +6 # I(2)TMP 1+X(T2)**2 B1
005547,004132: E7,1426 E7,1755 P(T1) EQUALS BETA1 +2 # I(1)TMP PRIMARY BODY STATE TIME 1 B14
005548,004133: E7,1426 E7,1756 CFPA EQUALS P(T1) +1 # I(2) TMP COSINE FLIGHT PATH ANGLE B1
005549,004134: E7,1426 E7,1760 PHI2 EQUALS CFPA +2 # I(2) TMP PERI OR APO INDICATOR B2
005550,004135: E7,1426 E7,1762 SPRTEX EQUALS PHI2 +2 # I(1)TMP ROUTINE RETURN ADDRESS
005551,004136:
005552,004137:
005553,004138: E7,1426 E7,1763 VNSTORE EQUALS SPRTEX +1 # I(1)TMP VERBNOUN STORAGE
005554,004139: E7,1426 E7,1764 BETA12 EQUALS VNSTORE +1 # I(2)TMP SIGN FOR TIMERAD
005555,004140: # OVERLAYS WITHIN RETURN-TO-EARTH STORAGE.
005556,004141:
005557,004142: E7,1426 RPRE EQUALS 24D # I(2)TMP COMPUTED PREC RADIUS M B29/B27
|
|
Page 125 |
005559,004144: E7,1426 P/RPRE EQUALS 26D # I(2)TMP P/R B4
005560,004145: E7,1426 R/APRE EQUALS 28D # I(2)TMP R/A B6
005561,004146: E7,1426 E7,1723 X(T2)PRE EQUALS T12 # I(2)TMP PREC COTAN GAMMA2 B0
005562,004147: E7,1426 E7,1725 X(T2) EQUALS DELTAT # I(2)TMP COTAN GAMMA2 B0
005563,004148: E7,1426 E7,1745 UH/ EQUALS UV1/ # I(2)TMP UNIT HORIZONTAL VECTOR. B1
005564,004149: E7,1426 E7,1412 SPRTETIG EQUALS TIG # I(2)IN TIME OF IGNITION CS B28
005565,004150: E7,1426 E4,1721 RETLOCN EQUALS XR1HOLD +1
005566,004151:
005567,004152:
005568,004153:
005569,004154: E7,1426 WHOCARES = 3777 # A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
005570,004155:
005571,004156:
005572,004157: E7,1426 0003777 END-E7 EQUALS WHOCARES # ****** LAST LOCATION IN E7
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc