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