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