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