Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
001727,000002: ## Copyright: Public domain.
001728,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
001729,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
001730,000005: ## It is part of the reconstructed source code for the Lunar
001731,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
001732,000007: ## No original listings of this program are available;
001733,000008: ## instead, this file was created via disassembly of dumps
001734,000009: ## of various revisions of Sundance core rope modules.
001735,000010: ## Assembler: yaYUL
001736,000011: ## Contact: Ron Burkey <info@sandroid.org>.
001737,000012: ## Website: www.ibiblio.org/apollo/index.html
001738,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
001739,000014: ## 2020-07-27 MAS Corrected VVARMIN to be double-precision
001740,000015: ## instead of triple-precision.
001741,000016: ## 2021-05-30 ABS TTPIO -> TTPI0
001742,000017:
001743,000018: ## This log section assembles such that the addresses of all erasables match
001744,000019: ## their locations for Sundance 306, to the best of our knowledge. The order
001745,000020: ## of definitions, and especially the comments, may not reflect the original
001746,000021: ## listing.
001747,000022:
001748,000023: # CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
001749,000024:
001750,000025: # EQUALS IS USED IN TWO WAYS. IT IS OFTEN USED TO CHAIN A GROUP
001751,000026: # OF ASSIGNMENTS SO THAT THE GROUP MAY BE MOVED WITH THE
001752,000027: # CHANGING OF ONLY ONE CARD. EXAMPLE.
001753,000028:
001754,000029: # X EQUALS START
001755,000030: # Y EQUALS X +SIZE.X
001756,000031: # Z EQUALS Y +SIZE.Y
001757,000032:
001758,000033: # (X, Y, AND Z ARE CONSECUTIVE AND BEGIN AT START. )
001759,000034: # (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES OF X AND Y,
001760,000035: # USUALLY NUMERIC, IE. 1, 2, 6, 18D ETC. )
001761,000036:
001762,000037: # EQUALS OFTEN IMPLIES THE SHARING OF REGISTERS (DIFFERENT NAMES
001763,000038: # AND DIFFERENT DATA). EXAMPLE.
001764,000039:
001765,000040: # X EQUALS Y
001766,000041:
001767,000042: # = MEANS THAT MULTIPLE NAMES HAVE BEEN GIVEN TO THE SAME DATA.
001768,000043: # (THIS IS LOGICAL EQUIVALENCE, NOT SHARING) EXAMPLE.
001769,000044:
001770,000045: # X = Y
001771,000046:
001772,000047: # THE SIZE AND UTILIZATION OF AN ERASABLE ARE OFTEN INCLUDED IN
001773,000048: # THE COMMENTS IN THE FOLLOWING FORM. M(SIZE)N.
001774,000049:
001775,000050: # M REFERS TO THE MOBILITY OF THE ASSIGNMENT.
001776,000051: # B MEANS THAT THE SYMBOL IS REFERENCED BY BASIC
001777,000052: # INSTRUCTIONS AND THUS IS E-BANK SENSITIVE.
001778,000053: # I MEANS THAT THE SYMBOL IS REFERENCED ONLY BY
001779,000054: # INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANK
001780,000055: # INSENSITIVE AND MAY APPEAR IN ANY E-BANK.
001781,000056:
001782,000057: # SIZE IS THE NUMBER OF REGISTERS INCLUDED BY THE SYMBOL.
001783,000058:
001784,000059: # N INDICATES THE NATURE OR PERMANENCE OF THE CONTENTS.
001785,000060: # PL MEANS THAT THE CONTENTS ARE PAD LOADED.
001786,000061: # DSP MEANS THAT THE REGISTER IS USED FOR A DISPLAY.
001787,000062: # PRM MEANS THAT THE REGISTER IS PERMANENT, IE. IT
001788,000063: # IS USED DURING THE ENTIRE MISSION FOR ONE
001789,000064: # PURPOSE AND CANNOT BE SHARED.
001790,000065: # TMP MEANS THAT THE REGISTER IS USED TEMPORARILY OR
001791,000066: # IS A SCRATCH REGISTER FOR THE ROUTINE TO WHICH
001792,000067: # IT IS ASSIGNED. THAT IS, IT NEED NOT BE SET
001793,000068: # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
001794,000069: # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS
001795,000070:
001796,000071: # IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH
001797,000072: # IS NOT ACTIVE IN PARALLEL.
001798,000073: # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
001799,000074: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001800,000075: # OUT MEANS OUTPUT FROM THE ROUTINE, PROBABLY
001801,000076: # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
001802,000077:
001803,000078: # SPECIAL REGISTERS.
001804,000079:
001805,000080: 43,2000 A EQUALS 0
001806,000081: 43,2000 L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS.
001807,000082: 43,2000 Q EQUALS 2
001808,000083: 43,2000 EBANK EQUALS 3
001809,000084: 43,2000 FBANK EQUALS 4
001810,000085: 43,2000 Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
001811,000086: 43,2000 BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
001812,000087: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
001813,000088:
001814,000089: 43,2000 ARUPT EQUALS 10 # INTERRUPT STORAGE.
001815,000090: 43,2000 LRUPT EQUALS 11
001816,000091: 43,2000 QRUPT EQUALS 12
001817,000092: 43,2000 SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2.
001818,000093: 43,2000 ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
001819,000094: 43,2000 BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
001820,000095: 43,2000 BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
001821,000096:
001822,000097: 43,2000 CYR EQUALS 20
001823,000098: 43,2000 SR EQUALS 21
001824,000099: 43,2000 CYL EQUALS 22
001825,000100: 43,2000 EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
001826,000101:
001827,000102: 43,2000 TIME2 EQUALS 24
001828,000103: 43,2000 TIME1 EQUALS 25
001829,000104: 43,2000 TIME3 EQUALS 26
001830,000105: 43,2000 TIME4 EQUALS 27
001831,000106: 43,2000 TIME5 EQUALS 30
001832,000107: 43,2000 TIME6 EQUALS 31
001833,000108: 43,2000 CDUX EQUALS 32
001834,000109: 43,2000 CDUY EQUALS 33
001835,000110: 43,2000 CDUZ EQUALS 34
001836,000111: 43,2000 CDUT EQUALS 35 # REND RADAR TRUNNION CDU
001837,000112: 43,2000 OPTY EQUALS 35
001838,000113: 43,2000 CDUS EQUALS 36 # REND RADAR SHAFT CDU
001839,000114: 43,2000 OPTX EQUALS 36
001840,000115: 43,2000 PIPAX EQUALS 37
001841,000116: 43,2000 PIPAY EQUALS 40
001842,000117: 43,2000 PIPAZ EQUALS 41
001843,000118: 43,2000 Q-RHCCTR EQUALS 42 # RHC COUNTER REGISTERS
001844,000119: 43,2000 P-RHCCTR EQUALS 43
001845,000120: 43,2000 R-RHCCTR EQUALS 44
001846,000121: 43,2000 INLINK EQUALS 45
001847,000122: 43,2000 RNRAD EQUALS 46
001848,000123: 43,2000 GYROCMD EQUALS 47
001849,000124: 43,2000 CDUXCMD EQUALS 50
001850,000125: 43,2000 CDUYCMD EQUALS 51
001851,000126: 43,2000 CDUZCMD EQUALS 52
001852,000127: 43,2000 CDUTCMD EQUALS 53 # RADAR TRUNNION COMMAND
001853,000128: 43,2000 CDUSCMD EQUALS 54 # RADAR SHAFT COMMAND
001854,000129:
001855,000130: 43,2000 THRUST EQUALS 55
001856,000131: 43,2000 LEMONM EQUALS 56
001857,000132: 43,2000 OUTLINK EQUALS 57
001858,000133: 43,2000 ALTM EQUALS 60
001859,000134:
001860,000135: # INTERPRETIVE REGISTERS ADDRESSED RELATIVE TO VAC AREA.
001861,000136:
001862,000137: 43,2000 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
001863,000138: 43,2000 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
001864,000139: 43,2000 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTERS RELATIVE
001865,000140: 43,2000 X2 EQUALS 39D # TO THE WORK AREA.
001866,000141: 43,2000 S1 EQUALS 40D
001867,000142: 43,2000 S2 EQUALS 41D
001868,000143: 43,2000 QPRET EQUALS 42D
001869,000144:
001870,000145: # INPUT/OUTPUT CHANNELS
001871,000146:
001872,000147: # *** CHANNEL ZERO IS TO BE USED IN AN INDEXED OPERATION ONLY. ***
001873,000148: 43,2000 0000001 LCHAN EQUALS L
001874,000149: 43,2000 0000002 QCHAN EQUALS Q
001875,000150: 43,2000 HISCALAR EQUALS 3
001876,000151: 43,2000 LOSCALAR EQUALS 4
001877,000152: 43,2000 CHAN5 EQUALS 5
001878,000153: 43,2000 CHAN6 EQUALS 6
001879,000154: 43,2000 SUPERBNK EQUALS 7 # SUPER-BANK.
001880,000155: 43,2000 OUT0 EQUALS 10
001881,000156: 43,2000 DSALMOUT EQUALS 11
001882,000157: 43,2000 CHAN12 EQUALS 12
001883,000158: 43,2000 CHAN13 EQUALS 13
001884,000159: 43,2000 CHAN14 EQUALS 14
001885,000160: 43,2000 MNKEYIN EQUALS 15
001886,000161: 43,2000 NAVKEYIN EQUALS 16
001887,000162: 43,2000 CHAN30 EQUALS 30
001888,000163: 43,2000 CHAN31 EQUALS 31
001889,000164: 43,2000 CHAN32 EQUALS 32
001890,000165: 43,2000 CHAN33 EQUALS 33
001891,000166: 43,2000 DNTM1 EQUALS 34
001892,000167: 43,2000 DNTM2 EQUALS 35
001893,000168: # END OF CHANNEL ASSIGNMENTS
001894,000169:
001895,000170: # FLAGWORDS
001896,000171:
001897,000172:
001898,000173: # FLAGWRD0 STATE +0 (000-014)
001899,000174: # FLAGWRD1 STATE +1 (015-029)
001900,000175: # FLAGWRD2 STATE +2 (030-044)
001901,000176: # FLAGWRD3 STATE +3 (045-059)
001902,000177: # FLAGWRD4 STATE +4 (060-074)
001903,000178: # FLAGWRD5 STATE +5 (075-089)
001904,000179: # FLAGWRD6 STATE +6 (090-104)
001905,000180: # FLAGWRD7 STATE +7 (105-119)
001906,000181: # FLAGWRD8 STATE +8D (120-134)
001907,000182: # FLAGWRD9 STATE +9D (135-149)
001908,000183:
001909,000184:
001910,000185: # SORTED LIST OF
001911,000186: # INTERPITIVE SWITCH BIT ASSIGNMENTS
001912,000187:
001913,000188: # INTERPRETIVE SWITCH BIT ASSIGNMENTS
001914,000189:
001915,000190: # FLAGWORD DEC. NUMBER BIT AND FLAG BIT NAME
001916,000191:
001917,000192: # ACMODFLG 032 BIT 13 FLAG 2 ACMODBIT
001918,000193: # APSESW 130 BIT 5 FLAG 8 APSESBIT
001919,000194: # APSFLAG 018 BIT 12 FLAG 1 APSFLBIT
001920,000195: # ASTNFLAG 108 BIT 12 FLAG 7 ASTNBIT
001921,000196: # ATTFLAG 104 BIT 1 FLAG 6 ATTFLBIT
001922,000197: # ASCNTFLG 103 BIT 2 FLAG 6 ASCNTBIT
001923,000198: # AUTMANSW 045 BIT 15 FLAG 3 AUTMNBIT
001924,000199: # AVEGFLAG 115 BIT 5 FLAG 7 AVEGFBIT
001925,000200: # AVEMIDSW 149 BIT 1 FLAG 9 AVEMDBIT
001926,000201: # AVFLAG 040 BIT 5 FLAG 2 AVFLBIT
001927,000202: # B29FLAG 013 BIT 2 FLAG 0 B29FLBIT
001928,000203: # CALCMAN2 043 BIT 2 FLAG 2 CALC2BIT
001929,000204: # CALCMAN3 042 BIT 3 FLAG 2 CALC3BIT
001930,000205: # CMOONFLG 123 BIT 12 FLAG 8 CMOONBIT
001931,000206: # COGAFLAG 131 BIT 4 FLAG 8 COGAFBIT
001932,000207: # COMPUTER 082 BIT 8 FLAG 5 COMPTBIT
001933,000208: # CPHIFLAG 000 BIT 15 FLAG 0 CPHIBIT
001934,000209: # CULTFLAG 053 BIT 7 FLAG 3 CULTBIT
001935,000210: # CYCLESW 035 BIT 10 FLAG 2 CYCLEBIT
001936,000211: # DIMOFLAG 059 BIT 1 FLAG 3 DIMOBIT
001937,000212: # DMENFLG 081 BIT 9 FLAG 5 DMENFBIT
001938,000213: # DRIFTFLG 030 BIT 15 FLAG 2 DRFTBIT
001939,000214: # DSKYFLAG 075 BIT 15 FLAG 5 DSKYFBIT
001940,000215: # D6OR9FLG 058 BIT 2 FLAG 3 D6OR9BIT
001941,000216: # ENGONFLG 083 BIT 7 FLAG 5 ENGONBIT
001942,000217: # ERADFLAG 017 BIT 13 FLAG 1 ERADFBIT
001943,000218: # ETPIFLAG 038 BIT 7 FLAG 2 ETPIBIT EQUIVALENT FLAG NAME: OPTNSW
001944,000219: # FINALFLG 039 BIT 6 FLAG 2 FINALBIT
001945,000220: # FIRSTFLG 094 BIT 11 FLAG 6 FIRSTBIT
001946,000221: # FLAP 142 BIT 8 FLAG 9 FLAPBIT
001947,000222: # FLIC 143 BIT 7 FLAG 9 FLICBIT
001948,000223: # FLPC 138 BIT 12 FLAG 9 FLPCBIT
001949,000224: # FLPI 139 BIT 11 FLAG 9 FLPIBIT
001950,000225: # FLP70 137 BIT 13 FLAG 9 FLP70BIT
001951,000226: # FLRCS 149 BIT 10 FLAG 9 FLRCSBIT
001952,000227: # FLUNDISP 125 BIT 10 FLAG 8 FLUNDBIT
001953,000228: # FLVR 136 BIT 14 FLAG 9 FLVRBIT
001954,000229: # FLZONE0 144 BIT 6 FLAG 9 FLZONBIT
001955,000230: # FREEFLAG 012 BIT 3 FLAG 0 FREEFBIT
001956,000231: # GIMBFLG 026 BIT 4 FLAG 1 GIMBFBIT
001957,000232: # GLOKFAIL 046 BIT 14 FLAG 3 GLOKFBIT
001958,000233: # GMBDRVSW 095 BIT 10 FLAG 6 GMBDRBIT
001959,000234: # GUESSW 028 BIT 2 FLAG 1 GUESSBIT
001960,000235: # IDLEFLAG 113 BIT 7 FLAG 7 IDLEFBIT
001961,000236: # IGNFLAG 107 BIT 13 FLAG 7 IGNFLBIT
001962,000237: # IMPULSW 036 BIT 9 FLAG 2 IMPULBIT
001963,000238: # IMUSE 007 BIT 8 FLAG 0 IMUSEBIT
001964,000239: # INFINFLG 128 BIT 7 FLAG 8 INFINBIT
001965,000240: # INTFLG2 076 BIT 14 FLAG 5 INTF2BIT
001966,000241: # INTYPFLG 056 BIT 4 FLAG 3 INTYPBIT
001967,000242: # ITSWICH 105 BIT 15 FLAG 7 ITSWBIT
001968,000243: # JSWITCH 001 BIT 14 FLAG 0 JSWCHBIT
001969,000244: # KFLAG 014 BIT 1 FLAG 0 KBIT
001970,000245: # KILLROSE 100 BIT 5 FLAG 6 KILLRBIT
001971,000246: # LETABORT 141 BIT 9 FLAG 9 LETABBIT
001972,000247: # LMOONFLG 124 BIT 11 FLAG 8 LMOONBIT
001973,000248: # LOKONSW 010 BIT 5 FLAG 0 LOKONBIT
001974,000249: # LOSCMFLG 033 BIT 12 FLAG 2 LOSCMBIT
001975,000250: # LUNAFLAG 048 BIT 12 FLAG 3 LUNABIT
001976,000251: # MANUFLAG 106 BIT 14 FLAG 7 MANUFBIT
001977,000252: # MGLVFLAG 088 BIT 2 FLAG 5 MGLVFBIT
001978,000253: # MIDAVFLG 148 BIT 2 FLAG 9 MIDAVBIT
001979,000254: # MIDFLAG 002 BIT 13 FLAG 0 MIDFLBIT
001980,000255: # MID1FLAG 147 BIT 3 FLAG 9 MID1BIT
001981,000256: # MKOVFLAG 072 BIT 3 FLAG 4 MKOVBIT
001982,000257: # MOONFLAG 003 BIT 12 FLAG 0 MOONBIT
001983,000258: # MRKIDFLG 060 BIT 15 FLAG 4 MRKIDBIT
001984,000259: # MRKNVFLG 066 BIT 9 FLAG 4 MRKNVBIT
001985,000260: # MRUPTFLG 070 BIT 5 FLAG 4 MRUPTBIT
001986,000261: # MUNFLAG 097 BIT 8 FLAG 6 MUNFLBIT
001987,000262: # MWAITFLG 064 BIT 11 FLAG 4 MWAITBIT
001988,000263: # NEEDLFLG 011 BIT 4 FLAG 0 NEEDLBIT
001989,000264: # NEWIFLG 122 BIT 13 FLAG 8 NEWIBIT
001990,000265: # NJETSFLG 015 BIT 15 FLAG NJETSBIT
001991,000266: # NODOFLAG 044 BIT 1 FLAG 2 NODOBIT
001992,000267: # NORMSW 110 BIT 10 FLAG 7 NORMSBIT
001993,000268: # NORRMON 086 BIT 4 FLAG 5 NORRMBIT
001994,000269: # NOTHROTL 078 BIT 12 FLAG 5 NOTHRBIT
001995,000270: # NOUPFLAG 024 BIT 6 FLAG 1 NOUPFBIT
001996,000271: # NRMNVFLG 067 BIT 8 FLAG 4 NRMNVBIT
001997,000272: # NRMIDFLG 062 BIT 13 FLAG 4 NRMIDBIT
001998,000273: # NRUPTFLG 071 BIT 4 FLAG 4 NRUPTBIT
001999,000274: # NTARGFLG 102 BIT 3 FLAG 6 NTARGBIT
002000,000275: # NWAITFLG 065 BIT 10 FLAG 4 NWAITBIT
002001,000276: # OPTNSW 038 BIT 7 FLAG 2 OPTNBIT EQUIVALENT FLAG NAME: ETPIFLAG
002002,000277: # ORBWFLAG 054 BIT 6 FLAG 3 ORBWFBIT
002003,000278: # ORDERSW 129 BIT 6 FLAG 8 ORDERBIT
002004,000279: # PDSPFLAG 063 BIT 12 FLAG 4 PDSPFBIT
002005,000280: # PFRATFLG 041 BIT 4 FLAG 2 PFRATBIT
002006,000281: # PINBRFLG 069 BIT 6 FLAG 4 PINBRBIT
002007,000282: # PRECIFLG 052 BIT 8 FLAG 3 PRECIBIT
002008,000283: # PRIODFLG 061 BIT 14 FLAG 1 PRIODBIT
002009,000284: # PRONVFLG 068 BIT 7 FLAG 4 PRONVBIT
002010,000285: # P25FLAG 006 BIT 9 FLAG 0 P25FLBIT
002011,000286: # P39/79SW 126 BIT 9 FLAG 8 P39SWBIT
002012,000287: # QUITFLAG 145 BIT 5 FLAG 9 QUITBIT
002013,000288: # REDFLAG 099 BIT 6 FLAG 6 REDFLBIT
002014,000289: # REFSMFLG 047 BIT 13 FLAG 3 REFSMBIT
002015,000290: # RENDWFLG 089 BIT 1 FLAG 5 RENDWBIT
002016,000291: # RNDVZFLG 008 BIT 7 FLAG 0 RNDVZBIT
002017,000292: # RNGSCFLG 080 BIT 10 FLAG 5 RNGSCBIT
002018,000293: # RPQFLAG 120 BIT 15 FLAG 8 RPQFLBIT
002019,000294: # RRNBSW 009 BIT 6 FLAG 0 RRNBBIT
002020,000295: # RVSW 111 BIT 9 FLAG 7 RVSWBIT
002021,000296: # R04FLAG 051 BIT 9 FLAG 3 R04FLBIT
002022,000297: # R32FLAG 121 BIT 14 FLAG 8 R32FLBIT
002023,000298: # R77FLAG 079 BIT 11 FLAG 5 R77FLBIT
002024,000299: # SLOPESW 027 BIT 3 FLAG 1 SLOPEBIT
002025,000300: # SNUFFER 077 BIT 13 FLAG 5 SNUFFBIT
002026,000301: # SOLNSW 087 BIT 3 FLAG 5 SOLNSBIT
002027,000302: # SRCHOPTN 031 BIT 14 FLAG 2 SRCHOBIT
002028,000303: # STATEFLG 055 BIT 5 FLAG 3 STATEBIT
002029,000304: # STEERSW 034 BIT 11 FLAG 2 STEERBIT
002030,000305: # SURFFLAG 127 BIT 8 FLAG 8 SURFFBIT
002031,000306: # SWANDISP 109 BIT 11 FLAG 7 SWANDBIT
002032,000307: # S32.1F1 090 BIT 15 FLAG 6 S32BIT1
002033,000308: # S32.1F2 092 BIT 14 FLAG 6 S32BIT2
002034,000309: # S32.1F3A 092 BIT 13 FLAG 6 S32BIT3A
002035,000310: # S32.1S3B 093 BIT 12 FLAG 6 S32BIT3B
002036,000311: # TFFSW 119 BIT 1 FLAG 7 TFFSWBIT
002037,000312: # TRACKFLG 025 BIT 5 FLAG 1 TRACKBIT
002038,000313: # UPDATFLG 023 BIT 7 FLAG 1 UPDATBIT
002039,000314: # UPLOCKFL 116 BIT 4 FLAG 7 UPLOCBIT
002040,000315: # VEHUPFLG 022 BIT 8 FLAG 1 VEHUPBIT
002041,000316: # VERIFLAG 117 BIT 3 FLAG 7 VERIFBIT
002042,000317: # VFLAG 050 BIT 10 FLAG 3 VFLAGBIT
002043,000318: # VINHFLG 004 BIT 11 FLAG 0 VINHFBIT
002044,000319: # VINTFLAG 057 BIT 3 FLAG 3 VINTFBIT
002045,000320: # VORIDEFL 005 BIT 10 FLAG 0 VORIDBIT
002046,000321: # V37FLAG 114 BIT 6 FLAG 7 V37FLBIT
002047,000322: # V45FLAG 112 BIT 8 FLAG 7 V45FLBIT
002048,000323: # XDELVFLG 037 BIT 8 FLAG 2 XDELVBIT
002049,000324: # XDSPFLAG 074 BIT 1 FLAG 4 XDSPBIT
002050,000325: # LTCPFLG 096 BIT 9 FLAG 6 LTCPFBIT
002051,000326: # 3AXISFLG 084 BIT 6 FLAG 5 3AXISBIT
002052,000327: # 360SW 134 BIT 1 FLAG 8 360SWBIT
002053,000328:
002054,000329: # ASSIGNMENT AND DESCRIPTION OF FLAGWORDS
002055,000330:
002056,000331: 43,2000 0074 FLAGWRD0 = STATE +0 # (000-014)
002057,000332:
002058,000333: # (SET) (RESET)
002059,000334:
002060,000335: # BIT 15 FLAG 0 (S)
002061,000336: 43,2000 CPHIFLAG = 000D # OUTPUT OF CALCGA IS OUTPUT OF CALCGA IS
002062,000337: 43,2000 5010 CPHIBIT = BIT15 # CPHIX THETAD
002063,000338:
002064,000339:
002065,000340: # BIT 14 FLAG 0 (S)
002066,000341: 43,2000 JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE
002067,000342: 43,2000 5011 JSWCHBIT = BIT14 # MATRIX VECTOR
002068,000343:
002069,000344:
002070,000345: # BIT 13 FLAG 0 (S)
002071,000346: 43,2000 MIDFLAG = 002D # INTEGRATION WITH INTEGRATION WITHOUT
002072,000347: # SECONDARY BODY AND SOLAR PERTURBATIONS
002073,000348: 43,2000 5012 MIDFLBIT = BIT13 # SOLAR PERTURBATIONS
002074,000349:
002075,000350: # BIT 12 FLAG 0 (L)
002076,000351: 43,2000 MOONFLAG = 003D # MOON IS SPHERE OF EARTH IS SPHERE OF
002077,000352: 43,2000 5013 MOONBIT = BIT12 # INFLUENCE INFLUENCE
002078,000353:
002079,000354: # BIT 11 FLAG 0
002080,000355: 43,2000 VINHFLG = 004D # LANDING RADAR VEL LANDING RADAR VEL
002081,000356: 43,2000 5014 VINHFBIT = BIT11 # UPDATES INHIBITED UPDATES PERMITTED
002082,000357:
002083,000358:
002084,000359: # BIT 10 FLAG 0
002085,000360: 43,2000 VORIDEFL = 005D # LANDING RADAR VEL LANDING RADAR VEL
002086,000361: 43,2000 5015 VORIDBIT = BIT10 # OVERRIDE ACTIVE NOT OVERRIDDEN
002087,000362:
002088,000363:
002089,000364: # BIT 9 FLAG 0 (S)
002090,000365: 43,2000 P25FLAG = 006D # P25 OPERATING P25 NOT OPERATING
002091,000366: 43,2000 5016 P25FLBIT = BIT9
002092,000367:
002093,000368:
002094,000369: # BIT 8 FLAG 0 (S)
002095,000370: 43,2000 IMUSE = 007D # IMU IN USE IMU NOT IN USE
002096,000371: 43,2000 5017 IMUSEBIT = BIT8
002097,000372:
002098,000373:
002099,000374: # BIT 7 FLAG 0 (S)
002100,000375: 43,2000 RNDVZFLG = 008D # P20 RUNNING (RADAR P20 NOT RUNNING
002101,000376: 43,2000 5020 RNDVZBIT = BIT7 # IN USE)
002102,000377:
002103,000378:
002104,000379: # BIT 6 FLAG 0 (S)
002105,000380: 43,2000 RRNBSW = 009D # RADAR TARGET IN RADAR TARGET IN
002106,000381: 43,2000 5021 RRNBBIT = BIT6 # NB COORDINATES SM COORDINATES
002107,000382:
002108,000383:
002109,000384: # BIT 5 FLAG 0 (S)
002110,000385: 43,2000 LOKONSW = 010D # RADAR LOCK-ON RADAR LOCK-ON NOT
002111,000386: 43,2000 5022 LOKONBIT = BIT5 # DESIRED DESIRED
002112,000387:
002113,000388:
002114,000389: # BIT 4 FLAG 0 (S)
002115,000390: 43,2000 NEEDLFLG = 011D # TOTAL ATTITUDE A/P FOLLOWING
002116,000391: 43,2000 5023 NEEDLBIT = BIT4 # ERROR DISPLAYED ERROR DISPLAYED
002117,000392:
002118,000393:
002119,000394: # BIT 3 FLAG 0
002120,000395: 43,2000 FREEFLAG = 012D # (USED BY P51-53 TEMP IN MANY DIFFERENT
002121,000396: # ROUTINES & BY LUNAR + SOLAR EPHEMERIDES)
002122,000397: 43,2000 5024 FREEFBIT = BIT3
002123,000398:
002124,000399:
002125,000400: # BIT 2 FLAG 0
002126,000401: 43,2000 B29FLAG = 013D # MOON IS CENTRAL EARTH IS CENTRAL
002127,000402: 43,2000 5025 B29FLBIT = BIT2 # BODY BODY
002128,000403:
002129,000404:
002130,000405: # BIT 1 FLAG 0 (L)
002131,000406: 43,2000 KFLAG = 014D # SEARCH SECTOR MORE SEARCH SECTOR LESS
002132,000407: # THAN 180 DEGREES THAN 180 DEGREES
002133,000408: 43,2000 5026 KBIT = BIT1
002134,000409:
002135,000410:
002136,000411: 43,2000 0075 FLAGWRD1 = STATE +1 # (015-029)
002137,000412:
002138,000413: # (SET) (RESET)
002139,000414:
002140,000415: # BIT 15 FLAG 1 (S)
002141,000416: 43,2000 NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN
002142,000417: 43,2000 5010 NJETSBIT = BIT15
002143,000418:
002144,000419:
002145,000420: # BIT 14 FLAG 1
002146,000421: # = 016D
002147,000422: # = BIT14
002148,000423:
002149,000424:
002150,000425: # BIT 13 FLAG 1 (S)
002151,000426: 43,2000 ERADFLAG = 017D # COMPUTE REARTH USE CONSTANT REARTH
002152,000427: 43,2000 5012 ERADFBIT = BIT13 # FISCHER ELLIPSOID PAD RADIUS
002153,000428:
002154,000429:
002155,000430: # BIT 12 FLAG 1
002156,000431: 43,2000 APSFLAG = 018D # ASCENT STAGE DESCENT STAGE
002157,000432: 43,2000 5013 APSFLBIT = BIT12
002158,000433:
002159,000434:
002160,000435: # BIT 11 FLAG 1
002161,000436: # = 019D
002162,000437:
002163,000438: # BIT 10 FLAG 1
002164,000439: # = 020D
002165,000440: # = BIT10
002166,000441:
002167,000442: # BIT 9 FLAG 1
002168,000443: # = 021D
002169,000444: # = BIT9
002170,000445:
002171,000446: # BIT 8 FLAG 1 (S)
002172,000447: 43,2000 VEHUPFLG = 022D # CSM STATE VECTOR LEM STATE VECTOR
002173,000448: 43,2000 5017 VEHUPBIT = BIT8 # BEING UPDATED BEING UPDATED
002174,000449:
002175,000450:
002176,000451: # BIT 7 FLAG 1 (S)
002177,000452: 43,2000 UPDATFLG = 023D # UPDATING BY MARKS UPDATING BY MARKS
002178,000453: 43,2000 5020 UPDATBIT = BIT7 # ALLOWED NOT ALLOWED
002179,000454:
002180,000455:
002181,000456: # BIT 6 FLAG 1 (S)
002182,000457:
002183,000458: 43,2000 NOUPFLAG = 024D # NEITHER CSM EITHER STATE
002184,000459: # NOR LM STATE VECTOR VECTOR MAY BE
002185,000460: 43,2000 5021 NOUPFBIT = BIT6 # MAY BE UPDATED UPDATED
002186,000461:
002187,000462:
002188,000463: # BIT 5 FLAG 1 (S)
002189,000464: 43,2000 TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED
002190,000465: 43,2000 5022 TRACKBIT = BIT5
002191,000466:
002192,000467: # BIT 4 FLAG 1
002193,000468: 43,2000 GIMBFLG = 026D # USING TRIM GIMBAL NOT USING TRIM
002194,000469: 43,2000 5023 GIMBFBIT = BIT4 # GIMBAL
002195,000470:
002196,000471:
002197,000472: # BIT 3 FLAG 1 (S)
002198,000473: 43,2000 SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULAR
002199,000474: # METHOD IN ITERATOR FALSI METHOD IN
002200,000475: 43,2000 5024 SLOPEBIT = BIT3 # ITERATOR
002201,000476:
002202,000477:
002203,000478: # BIT 2 FLAG 1 (S)
002204,000479: 43,2000 GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR
002205,000480: 43,2000 5025 GUESSBIT = BIT2 # FOR ITERATION ITERATION EXISTS
002206,000481:
002207,000482:
002208,000483: # BIT 1 FLAG 1
002209,000484: 43,2000 HINHFLG = 029D # LR HEIGHT UPDATES LR HEIGHT UPDATES
002210,000485: 43,2000 5026 HINHFBIT = BIT1 # INHIBITED PERMITTED
002211,000486:
002212,000487:
002213,000488: 43,2000 0076 FLAGWRD2 = STATE +2 # (030-044)
002214,000489:
002215,000490: # (SET) (RESET)
002216,000491:
002217,000492: # BIT 15 FLAG 2 (S)
002218,000493: 43,2000 DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO
002219,000494: 43,2000 5010 DRFTBIT = BIT15 # COMPENSATION COMPENSATION
002220,000495:
002221,000496:
002222,000497: # BIT 14 FLAG 2 (S)
002223,000498: 43,2000 SRCHOPTN = 031D # RADAR IN AUTOMATIC RADAR NOT IN AUTO-
002224,000499: 43,2000 5011 SRCHOBIT = BIT14 # SEARCH OPTION(R24) MATIC SEARCH OPTION
002225,000500:
002226,000501:
002227,000502: # BIT 13 FLAG 2 (S)
002228,000503: 43,2000 ACMODFLG = 032D # MANUAL ACQUISITION AUTO ACQUISITION
002229,000504: 43,2000 5012 ACMODBIT = BIT13 # BY RENDESVOUS RADAR BY RENDESVOUS RADAR
002230,000505:
002231,000506:
002232,000507: # BIT 12 FLAG 2 (S)
002233,000508:
002234,000509: 43,2000 LOSCMFLG = 033D # LINE OF SIGHT BEING LINE OF SIGHT NOT
002235,000510: # COMPUTED (R21) BEING COMPUTED
002236,000511: 43,2000 5013 LOSCMBIT = BIT12
002237,000512: # IN R29 (L): RR GYRO IN R29 (L): RR GYRO
002238,000513: # CMD LOOP RUNNING CMD LOOP OFF
002239,000514:
002240,000515: # BIT 11 FLAG 2 (S)
002241,000516: 43,2000 STEERSW = 034D # SUFFICIENT THRUST INSUFFICIENT THRUST
002242,000517: 43,2000 5014 STEERBIT = BIT11 # IS PRESENT IS PRESENT
002243,000518:
002244,000519:
002245,000520: # BIT 10 FLAG 2 (S)
002246,000521: 43,2000 CYCLESW = 035D # LAMBERT VG CALCU- LAMBERT CALCULATION
002247,000522: 43,2000 5015 CYCLEBIT = BIT10 # LATION TO BE DONE OMITTED
002248,000523:
002249,000524:
002250,000525: # BIT 9 FLAG 2 (S)
002251,000526: 43,2000 IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO
002252,000527: # BURN (CUTOFF TIME CUTOFF TIME YET
002253,000528: 43,2000 5016 IMPULBIT = BIT9 # SPECIFIED) AVAILABLE)
002254,000529:
002255,000530:
002256,000531: # BIT 8 FLAG 2 (S)
002257,000532: 43,2000 XDELVFLG = 037D # EXTERNAL DELTAV VG LAMBERT (AIMPOINT)
002258,000533: 43,2000 5017 XDELVBIT = BIT8 # COMPUTATION VG COMPUTATION
002259,000534:
002260,000535:
002261,000536: # BIT 7 FLAG 2 (S)
002262,000537: 43,2000 ETPIFLAG = 038D # ELEVATION ANGLE TPI TIME SUPPLIED
002263,000538: # SUPPLIED FOR FOR P34,74 TO COMPUT
002264,000539: 43,2000 5020 ETPIBIT = BIT7 # P34,74 ELEVATION
002265,000540:
002266,000541:
002267,000542: # BIT 7 FLAG 2 (L)
002268,000543: 43,2000 0000046 OPTNSW = ETPIFLAG # SOI PHASE OF P38/78 SOR PHASE OF P38/78
002269,000544: 43,2000 5020 OPTNBIT = BIT7
002270,000545:
002271,000546:
002272,000547: # BIT 6 FLAG 2 (S)
002273,000548: 43,2000 FINALFLG = 039D # LAST PASS THROUGH INTERIM PASS THROUGH
002274,000549: # RENDEZVOUS PROGRAM RENDEZVOUS PROGRAM
002275,000550: 43,2000 5021 FINALBIT = BIT6 # COMPUTATIONS COMPUTATIONS
002276,000551:
002277,000552:
002278,000553: # BIT 5 FLAG 2 (S)
002279,000554: 43,2000 AVFLAG = 040D # LEM IS ACTIVE CSM IS ACTIVE
002280,000555: 43,2000 5022 AVFLBIT = BIT5 # VEHICLE VEHICLE
002281,000556:
002282,000557:
002283,000558: # BIT 4 FLAG 2 (S)
002284,000559:
002285,000560: 43,2000 PFRATFLG = 041D # PREFERRED ATTITUDE PREFERRED ATTITUDE
002286,000561: 43,2000 5023 PFRATBIT = BIT4 # COMPUTED NOT COMPUTED
002287,000562:
002288,000563:
002289,000564: # BIT 3 FLAG 2 (S)
002290,000565: 43,2000 CALCMAN3 = 042D # NO FINAL ROLL FINAL ROLL IS
002291,000566: 43,2000 5024 CALC3BIT = BIT3 # NECESSARY
002292,000567:
002293,000568:
002294,000569: # BIT 2 FLAG 2 (S)
002295,000570: 43,2000 CALCMAN2 = 043D # PERFORM MANEUVER BYPASS STARTING
002296,000571: 43,2000 5025 CALC2BIT = BIT2 # STARTING PROCEDURE PROCEDURE
002297,000572:
002298,000573:
002299,000574: # BIT 1 FLAG 2 (S)
002300,000575: 43,2000 NODOFLAG = 044D # V37 NOT PERMITTED V37 PERMITTED
002301,000576: 43,2000 5026 NODOBIT = BIT1
002302,000577:
002303,000578:
002304,000579: 43,2000 0077 FLAGWRD3 = STATE +3 # (045-059)
002305,000580:
002306,000581: # (SET) (RESET)
002307,000582:
002308,000583: # BIT 15 FLAG 3
002309,000584: 43,2000 AUTMANSW = 045D # MANUAL MANEUVER AUTOMATIC MANEUVER
002310,000585: 43,2000 5010 AUTMNBIT = BIT15 # DESIRED DESIRED
002311,000586:
002312,000587:
002313,000588: # BIT 14 FLAG 3 (S)
002314,000589: 43,2000 GLOKFAIL = 046D # GIMBAL LOCK HAS NOT IN GIMBAL LOCK
002315,000590: 43,2000 5011 GLOKFBIT = BIT14 # OCCURRED
002316,000591:
002317,000592:
002318,000593: # BIT 13 FLAG 3
002319,000594: 43,2000 REFSMFLG = 047D # REFSMMAT GOOD REFSMMAT NO GOOD
002320,000595: 43,2000 5012 REFSMBIT = BIT13
002321,000596:
002322,000597:
002323,000598: # BIT 12 FLAG 3 (S)
002324,000599: 43,2000 LUNAFLAG = 048D # LUNAR LAT-LONG EARTH LAT-LONG
002325,000600: 43,2000 5013 LUNABIT = BIT12
002326,000601:
002327,000602:
002328,000603: # BIT 11 FLAG 3
002329,000604: # = 049D
002330,000605: # = BIT11
002331,000606:
002332,000607:
002333,000608: # BIT 10 FLAG 3 (S)
002334,000609: 43,2000 VFLAG = 050D # LESS THAN TWO STARS TWO STARS IN FIELD
002335,000610: 43,2000 5015 VFLAGBIT = BIT10 # IN FIELD OF VIEW OF VIEW
002336,000611:
002337,000612:
002338,000613:
002339,000614: # BIT 9 FLAG 3 (S)
002340,000615: 43,2000 R04FLAG = 051D # ALARM 521 ALARM 521 ALLOWED
002341,000616: # SUPPRESSED
002342,000617: 43,2000 5016 R04FLBIT = BIT9
002343,000618:
002344,000619:
002345,000620: # BIT 8 FLAG 3 (S)
002346,000621: 43,2000 PRECIFLG = 052D # NORMAL INTEGRATION ENGAGES 4-TIME STEP
002347,000622: # IN POO (POO) LOGIC IN INTE-
002348,000623: 43,2000 5017 PRECIBIT = BIT8 # GRATION
002349,000624:
002350,000625:
002351,000626: # BIT 7 FLAG 3 (S)
002352,000627: 43,2000 CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED
002353,000628: 43,2000 5020 CULTBIT = BIT7
002354,000629:
002355,000630:
002356,000631: # BIT 6 FLAG 3 (S)
002357,000632: 43,2000 ORBWFLAG = 054D # W MATRIX VALID FOR W MATRIX INVALID FOR
002358,000633: 43,2000 5021 ORBWFBIT = BIT6 # ORBITAL NAVIGATION ORBITAL NAVIGATION
002359,000634:
002360,000635:
002361,000636: # BIT 5 FLAG 3 (S)
002362,000637: 43,2000 STATEFLG = 055D # PERMANENT STATE PERMANENT STATE
002363,000638: 43,2000 5022 STATEBIT = BIT5 # VECTOR UPDATED VECTOR NOT UPDATED
002364,000639:
002365,000640:
002366,000641: # BIT 4 FLAG 3 (S)
002367,000642: 43,2000 INTYPFLG = 056D # CONIC INTEGRATION ENCKE INTEGRATION
002368,000643: 43,2000 5023 INTYPBIT = BIT4
002369,000644:
002370,000645:
002371,000646: # BIT 3 FLAG 3 (S)
002372,000647: 43,2000 VINTFLAG = 057D # CSM STATE VECTOR LEM STATE VECTOR
002373,000648: 43,2000 5024 VINTFBIT = BIT3 # BEING INTEGRATED BEING INTEGRATED
002374,000649:
002375,000650:
002376,000651: # BIT 2 FLAG 3 (S)
002377,000652: 43,2000 D6OR9FLG = 058D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
002378,000653: 43,2000 5025 D6OR9BIT = BIT2 # FOR INTEGRATION FOR INTEGRATION
002379,000654:
002380,000655:
002381,000656: # BIT 1 FLAG 3 (S)
002382,000657:
002383,000658: 43,2000 DIM0FLAG = 059D # W MATRIX IS TO BE W MATRIX IS NOT TO
002384,000659: 43,2000 5026 DIM0BIT = BIT1 # USED BE USED
002385,000660:
002386,000661:
002387,000662: 43,2000 0100 FLAGWRD4 = STATE +4 # (060-074)
002388,000663:
002389,000664: # (SET) (RESET)
002390,000665:
002391,000666: # BIT 15 FLAG 4 (S)
002392,000667: 43,2000 MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN
002393,000668: 43,2000 5010 MRKIDBIT = BIT15 # ENDIDLE ENDIDLE
002394,000669:
002395,000670:
002396,000671: # BIT 14 FLAG 4 (S)
002397,000672: 43,2000 PRIODFLG = 061D # PRIORITY DISPLAY IN NO PRIORITY DISPLAY
002398,000673: 43,2000 5011 PRIODBIT = BIT14 # ENDIDLE IN ENDIDLE
002399,000674:
002400,000675:
002401,000676: # BIT 13 FLAG 4 (S)
002402,000677: 43,2000 NRMIDFLG = 062D # NORMAL DISPLAY IN NO NORMAL DISPLAY
002403,000678: 43,2000 5012 NRMIDBIT = BIT13 # ENDIDLE IN ENDIDLE
002404,000679:
002405,000680:
002406,000681: # BIT 12 FLAG 4 (S)
002407,000682: 43,2000 PDSPFLAG = 063D # P20 SETS SO AS TO LEAVE AS NORMAL DISP
002408,000683: # TURN A NORMAL DIS-
002409,000684: 43,2000 5013 PDSPFBIT = BIT12 # PLAY INTO A PRIORITY
002410,000685: # DISPLAY IN R60
002411,000686:
002412,000687:
002413,000688: # BIT 11 FLAG 4 (S)
002414,000689: 43,2000 MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY
002415,000690: # DISPLAY OPERATING DISPLAY OPERATING
002416,000691: 43,2000 5014 MWAITBIT = BIT11 # WHEN MARK DISPLAY WHEN MARK DISPLAY
002417,000692: # INITIATED INITIATED
002418,000693:
002419,000694: # BIT 10 FLAG 4 (S)
002420,000695: 43,2000 NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY
002421,000696: # DISPLAY OPERATING DISPLAY OPERATING
002422,000697: 43,2000 5015 NWAITBIT = BIT10 # WHEN NORMAL WHEN NORMAL DISPLAY
002423,000698: # DISPLAY INITIATED INITIATED
002424,000699:
002425,000700: # BIT 9 FLAG 4 (S)
002426,000701: 43,2000 MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING
002427,000702: # KEYBOARD WHEN MARK KEYBOARD WHEN MARK
002428,000703: 43,2000 5016 MRKNVBIT = BIT9 # DISPLAY INITIATED DISPLAY INITIATED
002429,000704:
002430,000705:
002431,000706: # BIT 8 FLAG 4 (S)
002432,000707: 43,2000 NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING
002433,000708:
002434,000709: # KEYBOARD WHEN KEYBOARD WHEN
002435,000710: 43,2000 5017 NRMNVBIT = BIT8 # NORMAL DISPLAY NORMAL DISPLAY
002436,000711: # INITIATED INITIATED
002437,000712:
002438,000713: # BIT 7 FLAG 4 (S)
002439,000714: 43,2000 PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
002440,000715: # KEYBOARD WHEN KEYBOARD WHEN
002441,000716: 43,2000 5020 PRONVBIT = BIT7 # PRIORITY DISPLAY PRIORITY DISPLAY
002442,000717: # INITIATED INITIATED
002443,000718:
002444,000719: # BIT 6 FLAG 4 (S)
002445,000720: 43,2000 PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT
002446,000721: # INTERFERED WITH INTERFERED WITH
002447,000722: 43,2000 5021 PINBRBIT = BIT6 # EXISTING DISPLAY EXISTING DISPLAY
002448,000723:
002449,000724:
002450,000725: # BIT 5 FLAG 4 (S)
002451,000726: 43,2000 MRUPTFLG = 070D # MARK DISPLAY MARK DISPLAY NOT
002452,000727: # INTERRUPTED BY INTERRUPTED BY
002453,000728: 43,2000 5022 MRUPTBIT = BIT5 # PRIORITY DISPLAY PRIORITY DISPLAY
002454,000729:
002455,000730:
002456,000731: # BIT 4 FLAG 4 (S)
002457,000732: 43,2000 NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT
002458,000733: # INTERRUPTED BY INTERRUPTED BY
002459,000734: 43,2000 5023 NRUPTBIT = BIT4 # PRIORITY OR MARK PRIORITY OR MARK
002460,000735: # DISPLAY DISPLAY
002461,000736:
002462,000737: # BIT 3 FLAG 4 (S)
002463,000738: 43,2000 MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER
002464,000739: 43,2000 5024 MKOVBIT = BIT3 # NORMAL NORMAL
002465,000740:
002466,000741:
002467,000742: # BIT 2 FLAG 4
002468,000743: # = 073D
002469,000744:
002470,000745:
002471,000746:
002472,000747: # BIT 1 FLAG 4 (S)
002473,000748: 43,2000 XDSPFLAG = 074D # MARK DISPLAY NOT NO SPECIAL MARK
002474,000749: 43,2000 5026 XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
002475,000750:
002476,000751:
002477,000752: 43,2000 0101 FLAGWRD5 = STATE +5 # (075-089)
002478,000753: # (SET) (RESET)
002479,000754:
002480,000755: # BIT 15 FLAG 5 (S)
002481,000756: 43,2000 DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY
002482,000757: 43,2000 5010 DSKYFBIT = BIT15 # DSKY
002483,000758:
002484,000759:
002485,000760: # BIT 14 FLAG 5
002486,000761: 43,2000 INTFLG2 = 076D # ORBITAL INTEGRATION ORBITAL INTEGRATION
002487,000762: # PROGRAM PACKAGE IN PROGRAM PACKAGE NOT
002488,000763: 43,2000 5011 INTF2BIT = BIT14 # USE IN USE
002489,000764:
002490,000765:
002491,000766: # BIT 13 FLAG 5 (S,L)
002492,000767: 43,2000 SNUFFER = 077D # U,V JETS DISABLED U,V JETS ENABLED
002493,000768: # DURING DPS DURING DPS
002494,000769: 43,2000 5012 SNUFFBIT = BIT13 # BURNS (V65) BURNS (V75)
002495,000770:
002496,000771:
002497,000772: # BIT 12 FLAG 5 (S)
002498,000773: 43,2000 NOTHROTL = 078D # INHIBIT FULL PERMIT FULL THROTTLE
002499,000774: 43,2000 5013 NOTHRBIT = BIT12 # THROTTLE
002500,000775:
002501,000776:
002502,000777: # BIT 11 FLAG 5 (S,L)
002503,000778: 43,2000 R77FLAG = 079D # R77 IS ON, R77 IS NOT ON.
002504,000779: # SUPPRESS ALL RADAR
002505,000780: # ALARMS AND TRACKER
002506,000781: 43,2000 5014 R77FLBIT = BIT11 # FAILS
002507,000782:
002508,000783:
002509,000784: # BIT 10 FLAG 5 (S)
002510,000785: 43,2000 RNGSCFLG = 080D # SCALE CHANGE HAS NO SCALE CHANGE HAS
002511,000786: # OCCURRED DURING OCCURRED DURING
002512,000787: 43,2000 5015 RNGSCBIT = BIT10 # RR READING RR READING
002513,000788:
002514,000789:
002515,000790: # BIT 9 FLAG 5 (S)
002516,000791: 43,2000 DMENFLG = 081D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
002517,000792: 43,2000 5016 DMENFBIT = BIT9 # FOR INCORPORATION FOR INCORPORATION
002518,000793:
002519,000794:
002520,000795: # BIT 8 FLAG 5 (S)
002521,000796: 43,2000 COMPUTER = 082D # COMPUTER IS CMC COMPUTER IS LGC
002522,000797: 43,2000 5017 COMPTBIT = BIT8
002523,000798:
002524,000799:
002525,000800: # BIT 7 FLAG 5 (S)
002526,000801: 43,2000 ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF
002527,000802: 43,2000 5020 ENGONBIT = BIT7
002528,000803:
002529,000804:
002530,000805: # BIT 6 FLAG 5 (S)
002531,000806: 43,2000 3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED
002532,000807: # BY THREE AXES BY ONE AXIS; R60
002533,000808: 43,2000 5021 3AXISBIT = BIT6 # CALLS VECPOINT.
002534,000809:
002535,000810:
002536,000811: # BIT 5 FLAG 5
002537,000812: # = 085D
002538,000813:
002539,000814:
002540,000815: # BIT 4 FLAG 5 (S)
002541,000816: 43,2000 NORRMON = 086D # BYPASS RR GIMBAL PERFORM
002542,000817: 43,2000 5023 NORRMBIT = BIT4 # MONITOR RR GIMBAL MONITOR
002543,000818:
002544,000819:
002545,000820: # BIT 3 FLAG 5 (S)
002546,000821: 43,2000 SOLNSW = 087D # LAMBERT DOES NOT LAMBERT CONVERGES OR
002547,000822: # CONVERGE,OR TIME-RADTIME-RADIUS NON
002548,000823: 43,2000 5024 SOLNSBIT = BIT3 # NEARLY CIRCULAR CIRCULAR
002549,000824:
002550,000825:
002551,000826: # BIT 2 FLAG 5 (S)
002552,000827: 43,2000 MGLVFLAG = 088D # LOCAL VERTICAL MIDDLE GIMBAL ANGLE
002553,000828: # COORDINATES COMPUTED
002554,000829: 43,2000 5025 MGLVFBIT = BIT2 # COMPUTED
002555,000830:
002556,000831: # BIT 1 FLAG 5 (S)
002557,000832: 43,2000 RENDWFLG = 089D # W MATRIX VALID W MATRIX INVALID
002558,000833: # FOR RENDEZVOUS FOR RENDEZVOUS
002559,000834: 43,2000 5026 RENDWBIT = BIT1 # NAVIGATION NAVIGATION
002560,000835:
002561,000836:
002562,000837: 43,2000 0102 FLAGWRD6 = STATE +6 # (090-104)
002563,000838:
002564,000839: # (SET) (RESET)
002565,000840:
002566,000841: # BIT 15 FLAG 6 (S)
002567,000842: 43,2000 S32.1F1 = 090D # DELTA V AT CSI TIME DVT1 LESS THEN MAX
002568,000843: 43,2000 5010 S32BIT1 = BIT15 # ONE EXCEEDS MAX
002569,000844:
002570,000845:
002571,000846: # BIT 14 FLAG 6 (S)
002572,000847: 43,2000 S32.1F2 = 091D # FIRST PASS OF REITERATION OF
002573,000848: 43,2000 5011 S32BIT2 = BIT14 # NEWTON ITERATION NEWTON
002574,000849:
002575,000850:
002576,000851: # BIT 13 FLAG 6 (S)
002577,000852: 43,2000 S32.1F3A = 092D # BIT 13 AND BIT 12 FUNCTION AS AN ORDERED
002578,000853: 43,2000 5012 S32BIT3A = BIT13 # PAIR (13,12) INDICATING THE POSSIBLE OC-
002579,000854: # CURRANCE OF 2NEWTON ITERATIONS FOR S32.1
002580,000855: # IN THE PROGRAM IN THE FOLLOWING ORDER:
002581,000856: # BIT 12 FLAG 6 (0,1) (I.E.BIT 13 RESET,BIT 12 SET)
002582,000857: 43,2000 S32.1F3B = 093D # = FIRST NEWTON ITERATION BEING DONE
002583,000858: 43,2000 5013 S32BIT3B = BIT12 # (0,0)= FIRST PASS OF SECOND NEWT.ITERAT.
002584,000859: # (1,1)= 50 FT/SEC STAGE OF SEC. NEWT.ITER
002585,000860:
002586,000861: # (1,0)= REMAINDER OF SECOND NEWTON ITERA.
002587,000862:
002588,000863:
002589,000864: # BIT 11 FLAG 6 (S)
002590,000865: 43,2000 FIRSTFLG = 094D # SUCCEEDING PASS FIRST PASS THRU
002591,000866: 43,2000 5014 FIRSTBIT = BIT11 # THRU S40.9 S40.9
002592,000867:
002593,000868:
002594,000869: # BIT 10 FLAG 6 (S)
002595,000870: 43,2000 GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER
002596,000871: 43,2000 5015 GMBDRBIT = BIT10
002597,000872:
002598,000873:
002599,000874: # BIT 9 FLAG 6
002600,000875: 43,2000 LTCPFLG = 096D # LAUNCH TIME LAUNCH TIME DIRECT
002601,000876: 43,2000 5016 LTCPFBIT = BIT9 # CONCENTRIC FLIGHT TRANSFER
002602,000877: # PLAN
002603,000878:
002604,000879:
002605,000880: # BIT 8 FLAG 6 (S)
002606,000881: 43,2000 MUNFLAG = 097D # SERVICER CALLS SERVICER CALLS
002607,000882: 43,2000 5017 MUNFLBIT = BIT8 # MUNRVG CALCRVG
002608,000883:
002609,000884:
002610,000885: # BIT 7 FLAG 6
002611,000886: # = 098D
002612,000887: # = BIT7
002613,000888:
002614,000889:
002615,000890: # BIT 6 FLAG 6 (L)
002616,000891: 43,2000 REDFLAG = 099D # LANDING SITE LANDING SITE
002617,000892: # REDESIGNATION REDESIGNATION NOT
002618,000893: 43,2000 5021 REDFLBIT = BIT6 # PERMITTED PERMITTED
002619,000894:
002620,000895:
002621,000896: # BIT 5 FLAG 6
002622,000897: 43,2000 KILLROSE = 100D # R11 COMMANDED R11 NOT COMMANDED
002623,000898: 43,2000 5022 KILLRBIT = BIT5 # TO EXIT TO EXIT
002624,000899:
002625,000900: # BIT 4 FLAG 6
002626,000901: # = 101D
002627,000902:
002628,000903: # BIT 3 FLAG 6 (S)
002629,000904: 43,2000 NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT
002630,000905: # OVERWRITE DELTA OVERWRITE DELTA
002631,000906: 43,2000 5024 NTARGBIT = BIT3 # VELOCITY AT TPI VELOCITY
002632,000907: # OR TPM (P34,35)
002633,000908:
002634,000909: # BIT 2 FLAG 6
002635,000910: 43,2000 ASCNTFLG = 103D # ASCENT TIME HAS ASCENT TIME HAS NOT
002636,000911: 43,2000 5025 ASCNTBIT = BIT2 # BEEN CALCULATED BEEN CALCULATED
002637,000912:
002638,000913: # BIT 1 FLAG 6 (L)
002639,000914: 43,2000 ATTFLAG = 104D # LEM ATTITUDE EXISTS NO LEM ATTITUDE
002640,000915: # IN MOON-FIXED AVAILABLE IN MOON-
002641,000916: 43,2000 5026 ATTFLBIT = BIT1 # COORDINATES FIXED COORDINATES
002642,000917:
002643,000918:
002644,000919: 43,2000 0103 FLAGWRD7 = STATE +7 # (105-119)
002645,000920:
002646,000921: # (SET) (RESET)
002647,000922:
002648,000923: # BIT 15 FLAG 7 (S)
002649,000924: 43,2000 ITSWICH = 105D # P34;TPI TIME TO BE TPI HAS BEEN
002650,000925: 43,2000 5010 ITSWBIT = BIT15 # COMPUTED COMPUTED
002651,000926:
002652,000927:
002653,000928: # BIT 14 FLAG 7 (S)
002654,000929: 43,2000 MANUFLAG = 106D # ATTITUDE MANEUVER NO ATTITUDE MANEUVER
002655,000930: # GOING DURING RR DURING RR SEARCH
002656,000931: 43,2000 5011 MANUFBIT = BIT14 # SEARCH
002657,000932:
002658,000933:
002659,000934: # BIT 13 FLAG 7 (S)
002660,000935: 43,2000 IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED
002661,000936: 43,2000 5012 IGNFLBIT = BIT13
002662,000937:
002663,000938:
002664,000939: # BIT 12 FLAG 7 (S)
002665,000940: 43,2000 ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT
002666,000941: 43,2000 5013 ASTNBIT = BIT12 # OKAYED IGNITION OKAYED IGNITION
002667,000942:
002668,000943:
002669,000944: # BIT 11 FLAG 7 (L)
002670,000945: 43,2000 SWANDISP = 109D # LANDING ANALOG LANDING ANALOG
002671,000946: 43,2000 5014 SWANDBIT = BIT11 # DISPLAYS ENABLED DISPLAYS SUPPRESSED
002672,000947:
002673,000948:
002674,000949: # BIT 10 FLAG 7 (S)
002675,000950: 43,2000 NORMSW = 110D # UNIT NORMAL INPUT LAMBERT COMPUTES ITS
002676,000951: 43,2000 5015 NORMSBIT = BIT10 # TO LAMBERT OWN UNIT NORMAL
002677,000952:
002678,000953:
002679,000954: # BIT 9 FLAG 7 (S)
002680,000955: 43,2000 RVSW = 111D # DO NOT COMPUTE COMPUTE FINAL STATE
002681,000956: # FINAL STATE VECTOR VECTOR IN TIME-THETA
002682,000957: 43,2000 5016 RVSWBIT = BIT9 # IN TIME-THETA
002683,000958:
002684,000959:
002685,000960: # BIT 8 FLAG 7 (S)
002686,000961: 43,2000 V45FLAG = 112D # ASTRONAUT OVERWRITE ASTRONAUT DOES NOT
002687,000962: # W-MATRIX INITIAL OVERWRITE W-MATRIX
002688,000963: 43,2000 5017 V45FLBIT = BIT8 # VALUES INITIAL VALUES
002689,000964:
002690,000965:
002691,000966: # BIT 7 FLAG 7 (S)
002692,000967: 43,2000 IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR
002693,000968: 43,2000 5020 IDLEFBIT = BIT7
002694,000969:
002695,000970:
002696,000971: # BIT 6 FLAG 7 (S)
002697,000972: 43,2000 V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
002698,000973: 43,2000 5021 V37FLBIT = BIT6 # RUNNING OFF
002699,000974:
002700,000975:
002701,000976: # BIT 5 FLAG 7 (S)
002702,000977: 43,2000 AVEGFLAG = 115D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
002703,000978: 43,2000 5022 AVEGFBIT = BIT5 # DESIRED NOT DESIRED
002704,000979:
002705,000980:
002706,000981: # BIT 4 FLAG 7 (S)
002707,000982: 43,2000 UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL
002708,000983: 43,2000 5023 UPLOCBIT = BIT4
002709,000984:
002710,000985:
002711,000986: # BIT 3 FLAG 7 (S)
002712,000987: 43,2000 VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27
002713,000988: 43,2000 5024 VERIFBIT = BIT3
002714,000989:
002715,000990:
002716,000991: # BIT 2 FLAG 7
002717,000992: # = 118D
002718,000993: # = BIT2
002719,000994:
002720,000995:
002721,000996: # BIT 1 FLAG 7 (S)
002722,000997: 43,2000 TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF
002723,000998: 43,2000 5026 TFFSWBIT = BIT1
002724,000999:
002725,001000:
002726,001001: 43,2000 0104 FLAGWRD8 = STATE +8D # (120-134)
002727,001002:
002728,001003: # (SET) (RESET)
002729,001004:
002730,001005: # BIT 15 FLAG 8 (S)
002731,001006:
002732,001007: 43,2000 RPQFLAG = 120D # RPQ NOT COMPUTED RPQ COMPUTED
002733,001008: # (RPQ = VECTOR BE-
002734,001009: 43,2000 5010 RPQFLBIT = BIT15 # TWEEN SECONDARY BODY
002735,001010: # AND PRIMARY BODY
002736,001011:
002737,001012:
002738,001013: # BIT 14 FLAG 8
002739,001014: 43,2000 R32FLAG = 121D # R32 IS RUNNING R32 IS NOT RUNNING
002740,001015: 43,2000 5011 R32FLBIT = BIT14
002741,001016:
002742,001017:
002743,001018: # BIT 13 FLAG 8 (S)
002744,001019: 43,2000 NEWIFLG = 122D # FIRST PASS THROUGH SUCCEEDING ITERATION
002745,001020: 43,2000 5012 NEWIBIT = BIT13 # INTEGRATION OF INTEGRATION
002746,001021:
002747,001022:
002748,001023: # BIT 12 FLAG 8
002749,001024: 43,2000 CMOONFLG = 123D # PERMANENT CSM STATE PERMANENT CSM STATE
002750,001025: 43,2000 5013 CMOONBIT = BIT12 # IN LUNAR SPHERE IN EARTH SPHERE
002751,001026:
002752,001027:
002753,001028: # BIT 11 FLAG 8
002754,001029: 43,2000 LMOONFLG = 124D # PERMANENT LM STATE PERMANENT LM STATE
002755,001030: 43,2000 5014 LMOONBIT = BIT11 # IN LUNAR SPHERE IN EARTH SPHERE
002756,001031:
002757,001032:
002758,001033: # BIT 10 FLAG 8 (L)
002759,001034: 43,2000 FLUNDISP = 125D # CURRENT GUIDANCE CURRENT GUIDANCE
002760,001035: 43,2000 5015 FLUNDBIT = BIT10 # DISPLAYS INHIBITED DISPLAYS PERMITTED
002761,001036:
002762,001037:
002763,001038: # BIT 9 FLAG 8 (L)
002764,001039: 43,2000 P39/79SW = 126D # P39/79 OPERATING P38/P78 OPERATING
002765,001040: 43,2000 5016 P39SWBIT = BIT9
002766,001041:
002767,001042:
002768,001043: # BIT 8 FLAG 8
002769,001044: 43,2000 SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
002770,001045: 43,2000 5017 SURFFBIT = BIT8 # SURFACE
002771,001046:
002772,001047:
002773,001048: # BIT 7 FLAG 8 (S)
002774,001049: 43,2000 INFINFLG = 128D # NO CONIC SOLUTION CONIC SOLUTION
002775,001050: # (CLOSURE THROUGH EXISTS
002776,001051: 43,2000 5020 INFINBIT = BIT7 # INFINITY REQUIRED)
002777,001052:
002778,001053:
002779,001054: # BIT 6 FLAG 8 (S)
002780,001055: 43,2000 ORDERSW = 129D # ITERATOR USES 2ND ITERATOR USES 1ST
002781,001056: 43,2000 5021 ORDERBIT = BIT6 # ORDER MINIMUM MODE ORDER STANDARD MODE
002782,001057:
002783,001058:
002784,001059:
002785,001060: # BIT 5 FLAG 8 (S)
002786,001061: 43,2000 APSESW = 130D # RDESIRED OUTSIDE RDESIRED INSIDE
002787,001062: # PERICENTER-APOCENTERPERICENTER-APOCENTER
002788,001063: 43,2000 5022 APSESBIT = BIT5 # RANGE IN TIME-RADI RANGE IN TIME-RADIUS
002789,001064:
002790,001065:
002791,001066: # BIT 4 FLAG 8 (S)
002792,001067: 43,2000 COGAFLAG = 131D # NO CONIC SOLUTION - CONIC SOLUTION
002793,001068: # TOO CLOSE TO RECTI- EXISTS(COGA DOES NOT
002794,001069: 43,2000 5023 COGAFBIT = BIT4 # LINEAR(COGA OVRFLWS) OVERFLOW)
002795,001070:
002796,001071:
002797,001072: # BIT 3 FLAG 8
002798,001073: # = 132D
002799,001074:
002800,001075: # BIT 2 FLAG 8
002801,001076: # = 133D
002802,001077: # = BIT2
002803,001078:
002804,001079:
002805,001080: # BIT 1 FLAG 8 (S)
002806,001081: 43,2000 360SW = 134D # TRANSFER ANGLE NEAR TRANSFER ANGLE NOT
002807,001082: 43,2000 5026 360SWBIT = BIT1 # 360 DEGREES NEAR 360 DEGREES
002808,001083:
002809,001084:
002810,001085: 43,2000 0105 FLAGWRD9 = STATE +9D # (135-149)
002811,001086:
002812,001087: # (SET) (RESET)
002813,001088:
002814,001089:
002815,001090: # BIT 15 FLAG 9
002816,001091: 43,2000 ENGOFFSW = 135D
002817,001092: 43,2000 5010 ENGOFBIT = BIT15
002818,001093:
002819,001094: # BIT 14 FLAG 9 (L)
002820,001095: 43,2000 FLVR = 136D # VERTICAL RISE NON-VERTICAL RISE
002821,001096: 43,2000 5011 FLVRBIT = BIT14 # (ASCENT GUIDANCE)
002822,001097:
002823,001098:
002824,001099: # BIT 13 FLAG 9
002825,001100: 43,2000 FLP70 = 137D # P70 HAS BEEN CALLED P70 HAS NOT BEEN
002826,001101: 43,2000 5012 FLP70BIT = BIT13 # CALLED
002827,001102:
002828,001103:
002829,001104: # BIT 12 FLAG 9 (L)
002830,001105: 43,2000 FLPC = 138D # NO POSITION CONTROL POSITION CONTROL
002831,001106: 43,2000 5013 FLPCBIT = BIT12 # (ASCENT GUIDANCE)
002832,001107:
002833,001108:
002834,001109:
002835,001110: # BIT 11 FLAG 9 (L)
002836,001111: 43,2000 FLPI = 139D # PRE-IGNITION PHASE REGULAR GUIDANCE
002837,001112: 43,2000 5014 FLPIBIT = BIT11 # (ASCENT GUIDANCE)
002838,001113:
002839,001114:
002840,001115: # BIT 10 FLAG 9 (L)
002841,001116: 43,2000 FLRCS = 140D # RCS INJECTION MODE MAIN ENGINE MODE
002842,001117: 43,2000 5015 FLRCSBIT = BIT10 # (ASCENT GUIDANCE)
002843,001118:
002844,001119:
002845,001120: # BIT 9 FLAG 9 (L)
002846,001121: 43,2000 LETABORT = 141D # ABORT PROGRAMS ABORT PROGRAMS
002847,001122: 43,2000 5016 LETABBIT = BIT9 # ARE ENABLED ARE NOT ENABLED
002848,001123:
002849,001124:
002850,001125: # BIT 8 FLAG 9 (L)
002851,001126: 43,2000 FLAP = 142D # APS CONTINUED ABORT APS ABORT IS NOT A
002852,001127: # AFTER DPS STAGING CONTINUATION
002853,001128: 43,2000 5017 FLAPBIT = BIT8 # (ASCENT GUIDANCE)
002854,001129:
002855,001130:
002856,001131: # BIT 7 FLAG 9 (L)
002857,001132: 43,2000 FLIC = 143D # INITIAL COMPUTATION NOT INITIAL COMP
002858,001133: 43,2000 5020 FLICBIT = BIT7 # CYCLE FOR ABORTS CYCLE FOR ABORTS
002859,001134:
002860,001135: # BIT 6 FLAG 9 (L)
002861,001136: 43,2000 FLZONE0 = 144D # EARLY ABORT LATE ABORT
002862,001137: 43,2000 5021 FLZONBIT = BIT6 # TFI . 50 SECS. TFI > 50 SECS.
002863,001138: # P70 --> P40
002864,001139: # P71 --> P42
002865,001140:
002866,001141: # BIT 5 FLAG 9 (S)
002867,001142: 43,2000 QUITFLAG = 145D # DISCONTINUE INTEGR. CONTINUE INTEGRATION
002868,001143: 43,2000 5022 QUITBIT = BIT5
002869,001144:
002870,001145:
002871,001146: # BIT 4 FLAG 9
002872,001147: 43,2000 R31FLAG = 146D
002873,001148: 43,2000 5023 R31FLBIT = BIT4
002874,001149:
002875,001150:
002876,001151: # BIT 3 FLAG 9 (L)
002877,001152: 43,2000 MID1FLAG = 147D # INTEGRATE TO TDEC INTEGRATE TO THE
002878,001153: 43,2000 5024 MID1FBIT = BIT3 # THEN-PRESENT TIME
002879,001154:
002880,001155:
002881,001156: # BIT 2 FLAG 9 (L)
002882,001157: 43,2000 MIDAVFLG = 148D # INTEGRATION ENTERED INTEGRATION WAS
002883,001158: # FROM ONE OF MIDTOAV NOT ENTERED VIA
002884,001159: 43,2000 5025 MIDAVBIT = BIT2 # PORTALS MIDTOAV
002885,001160:
002886,001161:
002887,001162: # BIT 1 FLAG 9 (S)
002888,001163: 43,2000 AVEMIDSW = 149D # AVETOMID CALLING NO AVETOMID W INTEGR
002889,001164: # FOR W.MATRIX INTEGR ALLOW SET UP RM,VN.
002890,001165: 43,2000 5026 AVEMDBIT = BIT1 # DONT WRITE OVER RN, PIPTIME
002891,001166: # VN,PIPTIME
002892,001167:
002893,001168:
002894,001169: # GENERAL ERASABLE ASSIGNMENTS.
002895,001170:
002896,001171: 0061 SETLOC 61
002897,001172: # INTERRUPT TEMPORARY STORAGE POOL. (11D)
002898,001173:
002899,001174: # (ITEMP1 THROUGH RUPTREG4)
002900,001175:
002901,001176: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
002902,001177: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
002903,001178:
002904,001179: 0061 ITEMP1 ERASE
002905,001180: 0062 0061 WAITEXIT EQUALS ITEMP1
002906,001181: 0062 0061 EXECTEM1 EQUALS ITEMP1
002907,001182:
002908,001183: 0062 ITEMP2 ERASE
002909,001184: 0063 0062 WAITBANK EQUALS ITEMP2
002910,001185: 0063 0062 EXECTEM2 EQUALS ITEMP2
002911,001186:
002912,001187: 0063 ITEMP3 ERASE
002913,001188: 0064 0063 RUPTSTOR EQUALS ITEMP3
002914,001189: 0064 0063 WAITADR EQUALS ITEMP3
002915,001190: 0064 0063 NEWPRIO EQUALS ITEMP3
002916,001191:
002917,001192: 0064 ITEMP4 ERASE
002918,001193: 0065 0064 LOCCTR EQUALS ITEMP4
002919,001194: 0065 0064 WAITTEMP EQUALS ITEMP4
002920,001195:
002921,001196: 0065 ITEMP5 ERASE
002922,001197: 0066 0065 NEWLOC EQUALS ITEMP5
002923,001198:
002924,001199: 0066 ITEMP6 ERASE
002925,001200: # NEWLOC+1 EQUALS ITEMP6 DP ADDRESS.
002926,001201:
002927,001202: 0067 SETLOC 67
002928,001203: 0067 NEWJOB ERASE # MUST BE AT LOC 67 DUE TO WIRING.
002929,001204:
002930,001205: 0070 RUPTREG1 ERASE
002931,001206: 0071 RUPTREG2 ERASE
002932,001207: 0072 RUPTREG3 ERASE
002933,001208: 0073 RUPTREG4 ERASE
002934,001209: 0074 0073 KEYTEMP1 EQUALS RUPTREG4
002935,001210: 0074 0073 DSRUPTEM EQUALS RUPTREG4
002936,001211:
002937,001212: # FLAGWORD RESERVATIONS. (13D)
002938,001213:
002939,001214: 0074 STATE ERASE +12D # FLAGWORD REGISTERS.
002940,001215:
002941,001216:
002942,001217: # RENDEZVOUS RADAR TASK STORAGE (3D)
002943,001218:
002944,001219: 0111 RRRET ERASE +2D # B(1)TMP P20'S, PERHAPS R29 & R12
002945,001220: 0114 0112 RDES EQUALS RRRET +1 # B(1)TMP
002946,001221: 0114 0113 RRINDEX EQUALS RDES +1 # B(1)TMP
002947,001222:
002948,001223:
002949,001224:
002950,001225: # EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS. (32D) (INTB15+ THROUGH RUPTMXTM)
002951,001226: 0114 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
002952,001227: 0115 0114 DSEXIT = INTB15+ # RETURN FOR DSPIN
002953,001228: 0115 0114 EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
002954,001229: 0115 0114 BLANKRET = INTB15+ # RETURN FOR 2BLANK
002955,001230:
002956,001231: 0115 INTBIT15 ERASE # SIMILAR TO ABOVE.
002957,001232: 0116 0115 WRDRET = INTBIT15 # RETURN FOR 5BLANK
002958,001233: 0116 0115 WDRET = INTBIT15 # RETURN FOR DSPWD
002959,001234: 0116 0115 DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
002960,001235: 0116 0115 21/22REG = INTBIT15 # TEMP FOR CHARIN
002961,001236:
002962,001237: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
002963,001238:
002964,001239: 0116 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
002965,001240: 0117 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
002966,001241: 0120 0117 UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB
002967,001242: 0120 0117 CHAR = POLISH # TEMP FOR CHARIN
002968,001243: 0120 0117 ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET
002969,001244: 0120 0117 DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
002970,001245:
002971,001246: 0120 FIXLOC ERASE # WORK AREA ADDRESS.
002972,001247: 0121 OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
002973,001248:
002974,001249: 0122 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
002975,001250: 0130 0122 SGNON = VBUF # TEMP FOR +,- ON
002976,001251: 0130 0122 NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH
002977,001252: 0130 0122 DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERBS
002978,001253: 0130 0122 DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
002979,001254:
002980,001255: 0130 0123 SGNOFF = VBUF +1 # TEMP FOR +,- ON
002981,001256: 0130 0123 NVTEMP = VBUF +1 # TEMP FOR NVSUB
002982,001257: 0130 0123 SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
002983,001258: 0130 0123 HITEMIN = VBUF +1 # TEMP FOR LOAD OF HRS, MIN, SEC
002984,001259: # MUST = LOTEMIN-1.
002985,001260: 0130 0124 CODE = VBUF +2 # FOR DSPIN
002986,001261: 0130 0124 SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
002987,001262: 0130 0124 LOTEMIN = VBUF +2 # TEMP FOR LOAD OF HRS, MIN, SEC
002988,001263: # MUST = HITEMIN+1.
002989,001264: 0130 0125 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA
002990,001265: 0130 0125 SIGNRET = VBUF +3 # RETURN FOR +,- ON
002991,001266:
002992,001267: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
002993,001268:
002994,001269: 0130 BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
002995,001270: 0133 BUF2 ERASE +1
002996,001271: 0135 0130 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
002997,001272: 0135 0130 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
002998,001273: 0135 0131 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN SWITCH WORD.
002999,001274: 0135 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT.
003000,001275: 0136 0135 DMPNTEMP = MPTEMP # DMPSUB TEMPORARY
003001,001276: 0136 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE.
003002,001277: 0137 0136 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT.
003003,001278: 0137 0136 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
003004,001279: 0137 0136 ENTRET = DOTINC # EXIT FROM ENTER
003005,001280:
003006,001281: 0137 DOTRET ERASE # RETURN FROM DOT SUBROUTINE.
003007,001282: 0140 0137 DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV.
003008,001283: 0140 0137 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH.
003009,001284: 0140 0137 WDCNT = DOTRET # CHAR COUNTER FOR DSPWD
003010,001285: 0140 0137 INREL = DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
003011,001286:
003012,001287: 0140 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM.
003013,001288: 0141 0140 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
003014,001289: 0141 0140 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
003015,001290: 0141 0140 DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM
003016,001291: 0141 0140 MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
003017,001292:
003018,001293: 0141 TEM1 ERASE # EXEC TEMP
003019,001294: 0142 0141 POLYRET = TEM1
003020,001295: 0142 0141 DSREL = TEM1 # REL ADDRESS FOR DSPIN
003021,001296:
003022,001297: 0142 TEM2 ERASE # EXEC TEMP
003023,001298: 0143 0142 DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN
003024,001299: 0143 0142 IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS STORAGE
003025,001300:
003026,001301: 0143 TEM3 ERASE # EXEC TEMP
003027,001302: 0144 0143 COUNT = TEM3 # FOR DSPIN
003028,001303:
003029,001304: 0144 TEM4 ERASE # EXEC TEMP
003030,001305: 0145 0144 LSTPTR = TEM4 # LIST POINTER FOR GRABUSY
003031,001306: 0145 0144 RELRET = TEM4 # RETURN FOR RELDSP
003032,001307: 0145 0144 FREERET = TEM4 # RETURN FOR FREEDSP
003033,001308: 0145 0144 DSPWDRET = TEM4 # RETURN FOR DSPSIGN
003034,001309: 0145 0144 SEPSCRET = TEM4 # RETURN FOR SEPSEC
003035,001310: 0145 0144 SEPMNRET = TEM4 # RETURN FOR SEPMIN
003036,001311:
003037,001312: 0145 TEM5 ERASE # EXEC TEMP
003038,001313: 0146 0145 NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS
003039,001314:
003040,001315: 0146 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
003041,001316: 0147 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
003042,001317: 0150 IDAD1TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003043,001318: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
003044,001319: 0151 IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
003045,001320:
003046,001321: 0152 IDAD3TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY (MIXNN)
003047,001322: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
003048,001323: 0153 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY (MIXNN ONLY)
003049,001324:
003050,001325: # AX*SR*T STORAGE. (6D)
003051,001326: 0154 0142 DEXDEX EQUALS TEM2 # B(1)TMP
003052,001327: 0154 0143 DEX1 EQUALS TEM3 # B(1)TMP
003053,001328: 0154 0144 DEX2 EQUALS TEM4 # B(1)TMP
003054,001329: 0154 0145 RTNSAVER EQUALS TEM5 # B(1)TMP
003055,001330: 0154 0133 TERM1TMP EQUALS BUF2 # B(2)TMP
003056,001331:
003057,001332: 0154 0143 DEXI = DEX1
003058,001333:
003059,001334: # THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
003060,001335: # SUBROUTINE ROOTPSRS. THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
003061,001336: # DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
003062,001337:
003063,001338: 0154 0142 DERCOF-8 = MPAC -12 # ROOTPSRS DER COF N-4 HI ORDER
003064,001339: 0154 0143 DERCOF-7 = MPAC -11 # ROOTPSRS DER COF N-4 LO ORDER
003065,001340: 0154 0144 DERCOF-6 = MPAC -10 # ROOTPSRS DER COF N-3 HI ORDER
003066,001341: 0154 0145 DERCOF-5 = MPAC -7 # ROOTPSRS DER COF N-3 LO ORDER
003067,001342: 0154 0146 DERCOF-4 = MPAC -6 # ROOTPSRS DER COF N-2 HI ORDER
003068,001343: 0154 0147 DERCOF-3 = MPAC -5 # ROOTPSRS DER COF N-2 LO ORDER
003069,001344: 0154 0150 DERCOF-2 = MPAC -4 # ROOTPSRS DER COF N-1 HI ORDER
003070,001345: 0154 0151 DERCOF-1 = MPAC -3 # ROOTPSRS DER COF N-1 LO ORDER
003071,001346: 0154 0152 DERCOFN = MPAC -2 # ROOTPSRS DER COF N HI ORDER
003072,001347: 0154 0153 DERCOF+1 = MPAC -1 # ROOTPSRS DER COF N LO ORDER
003073,001348:
003074,001349: 0154 0117 PWRPTR = POLISH # ROOTPSRS POWER TABLE POINTER
003075,001350: 0154 0124 DXCRIT = VBUF +2 # ROOTPSRS CRITERION FOR ENDING ITERS HI
003076,001351: 0154 0125 DXCRIT+1 = VBUF +3 # ROOTPSRS CRITERION FOR ENDING ITERS LO
003077,001352: 0154 0126 ROOTPS = VBUF +4 # ROOTPSRS ROOT HI ORDER
003078,001353: 0154 0127 ROOTPS+1 = VBUF +5 # ROOTPSRS ROOT LO ORDER
003079,001354: 0154 0132 RETROOT = BUF +2 # ROOTPSRS RETURN ADDRESS OF USER
003080,001355: 0154 0140 PWRCNT = MATINC # ROOTPSRS DER TABLE LOOP COUNTER
003081,001356: 0154 0141 DERPTR = TEM1 # ROOTPSRS DER TABLE POINTER
003082,001357:
003083,001358: # DYNAMICALLY ALLOCATED CORE SETS FOR JOBS. (84D)
003084,001359:
003085,001360: 0154 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
003086,001361: 0163 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
003087,001362: 0164 LOC ERASE # LOCATION ASSOCIATED WITH JOB.
003088,001363: 0165 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
003089,001364: 0166 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
003090,001365: 0167 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
003091,001366:
003092,001367: 0170 ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH.
003093,001368:
003094,001369: # P27 (UPDATE PROGRAM ) STORAGE. (26D)
003095,001370:
003096,001371: 0300 UPVERBSV ERASE # B(1) UPDATE VERB ATTEMPTED.
003097,001372: 0301 UPTEMP ERASE +24D # B(1)TMP SCRATCH
003098,001373: 0332 0301 INTWAK1Q EQUALS UPTEMP # (BORROWS UPTEMP REGISTERS)
003099,001374: # RETAIN THE ORDER OF COMPNUMB THRU UPBUFF +19D FOR DOWNLINK PURPOSES.
003100,001375: 0332 0302 COMPNUMB EQUALS UPTEMP +1 # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED
003101,001376: 0332 0303 UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP INTERRUPTED PROGRAM MM
003102,001377: 0332 0304 UPVERB EQUALS UPOLDMOD +1 # B(1)TMP VERB NUMBER
003103,001378: 0332 0305 UPCOUNT EQUALS UPVERB +1 # B(1)TMP UPBUFF INDEX
003104,001379: 0332 0306 UPBUFF EQUALS UPCOUNT +1 # B(20D)
003105,001380:
003106,001381:
003107,001382: # DOWNLINK STORAGE. (28D)
003108,001383:
003109,001384: 0332 0332 DNLSTADR EQUALS DNLSTCOD
003110,001385:
003111,001386: 0332 DNLSTCOD ERASE # B(1)PRM DOWNLIINK LIST CODE
003112,001387: 0333 DUMPCNT ERASE # B(1)
003113,001388: 0334 LDATALST ERASE +25D # (26D)
003114,001389: 0366 0335 DNTMGOTO EQUALS LDATALST +1 # B(1)
003115,001390: 0366 0336 TMINDEX EQUALS DNTMGOTO +1 # B(1)
003116,001391: 0366 0336 DUMPLOC EQUALS TMINDEX # CONTAINS ECADR OF AGC DP WORD BEING DUMP
003117,001392: # ED AND COUNT OF COMPLETE DUMPS ALREADY S
003118,001393: # ENT.
003119,001394: 0366 0337 DNQ EQUALS TMINDEX +1 # B(1)
003120,001395: 0366 0340 DNTMBUFF EQUALS DNQ +1 # B(22)PRM DOWNLINK SNAPSHOT BUFFER
003121,001396:
003122,001397: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (10D) FIVE MORE IN EBANK 2
003123,001398:
003124,001399: 0366 RESTREG ERASE # B(1)PRM FOR DISPLAY RESTARTS
003125,001400: 0367 NVWORD ERASE
003126,001401: 0370 MARKNV ERASE
003127,001402: 0371 NVSAVE ERASE
003128,001403: # (RETAIN THE ORDER OF CADRFLSH TO FAILREG +2 FOR DOWNLINK PURPOSES)
003129,001404: 0372 CADRFLSH ERASE
003130,001405: 0373 CADRMARK ERASE
003131,001406: 0374 TEMPFLSH ERASE
003132,001407: 0375 FAILREG ERASE +2 # B(3)PRM 3 ALARM CODE REGISTERS
003133,001408:
003134,001409:
003135,001410: # VAC AREAS. -BE CAREFUL OF PLACEMENT- (220D)
003136,001411:
003137,001412: 0400 VAC1USE ERASE
003138,001413: 0401 VAC1 ERASE +42D
003139,001414: 0454 VAC2USE ERASE
003140,001415: 0455 VAC2 ERASE +42D
003141,001416: 0530 VAC3USE ERASE
003142,001417: 0531 VAC3 ERASE +42D
003143,001418: 0604 VAC4USE ERASE
003144,001419: 0605 VAC4 ERASE +42D
003145,001420: 0660 VAC5USE ERASE
003146,001421: 0661 VAC5 ERASE +42D
003147,001422:
003148,001423: # WAITLIST REPEAT FLAG. (1D)
003149,001424:
003150,001425: 0734 RUPTAGN ERASE
003151,001426: 0735 0734 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
003152,001427:
003153,001428:
003154,001429:
003155,001430: # STARALIGN ERASABLES. (13D)
003156,001431:
003157,001432: 0735 STARCODE ERASE # (1)
003158,001433: 0736 0735 AOTCODE = STARCODE
003159,001434: 0736 STARALGN ERASE +11D
003160,001435: 0752 0736 SINCDU = STARALGN
003161,001436: 0752 0744 COSCDU = STARALGN +6
003162,001437:
003163,001438: 0752 0742 SINCDUX = SINCDU +4
003164,001439: 0752 0736 SINCDUY = SINCDU
003165,001440: 0752 0740 SINCDUZ = SINCDU +2
003166,001441: 0752 0750 COSCDUX = COSCDU +4
003167,001442: 0752 0744 COSCDUY = COSCDU
003168,001443: 0752 0746 COSCDUZ = COSCDU +2
003169,001444:
003170,001445:
003171,001446: # PHASE TABLE AND RESTART COUNTERS. (12D)
003172,001447:
003173,001448: 0752 -PHASE1 ERASE
003174,001449: 0753 PHASE1 ERASE
003175,001450: 0754 -PHASE2 ERASE
003176,001451: 0755 PHASE2 ERASE
003177,001452: 0756 -PHASE3 ERASE
003178,001453: 0757 PHASE3 ERASE
003179,001454: 0760 -PHASE4 ERASE
003180,001455: 0761 PHASE4 ERASE
003181,001456: 0762 -PHASE5 ERASE
003182,001457: 0763 PHASE5 ERASE
003183,001458: 0764 -PHASE6 ERASE
003184,001459: 0765 PHASE6 ERASE
003185,001460:
003186,001461: # A**SR*T STORAGE. (6D)
003187,001462:
003188,001463: 0766 CDUSPOT ERASE +5 # B(6)
003189,001464:
003190,001465: 0774 0766 CDUSPOTY = CDUSPOT
003191,001466: 0774 0770 CDUSPOTZ = CDUSPOT +2
003192,001467: 0774 0772 CDUSPOTX = CDUSPOT +4
003193,001468:
003194,001469: # INTSTALL-ERASTALL FLAG (1D)
003195,001470: 0774 RASFLAG ERASE
003196,001471:
003197,001472: # VERB 37 STORAGE. (2D)
003198,001473:
003199,001474: 0775 MINDEX ERASE # B(1)TMP INDEX FOR MAJOR MODE
003200,001475: 0776 MMNUMBER ERASE # B(1)TMP MAJOR MODE REQUESTED BY V37
003201,001476:
003202,001477: # PINBALL INTERRUPT ACTION. (1D)
003203,001478:
003204,001479: 0777 DSPCNT ERASE # B(1)PRM COUNTER FOR DSPOUT.
003205,001480:
003206,001481: # PINBALL EXECUTIVE ACTION (44D)
003207,001482:
003208,001483: 1000 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR.
003209,001484: 1001 DECBRNCH ERASE # +DEC, -DEC, OCT INDICATOR
003210,001485: 1002 VERBREG ERASE # VERB CODE
003211,001486: 1003 NOUNREG ERASE # NOUN CODE
003212,001487: 1004 XREG ERASE # R1 INPUT BUFFER
003213,001488: 1005 YREG ERASE # R2 INPUT BUFFER
003214,001489: 1006 ZREG ERASE # R3 INPUT BUFFER
003215,001490: 1007 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
003216,001491: 1010 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
003217,001492: 1011 1010 HITEMOUT = YREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
003218,001493: # MUST = LOTEMOUT-1.
003219,001494: 1011 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
003220,001495: 1012 1011 LOTEMOUT = ZREGLP # TEMP FOR DISPLAY OF HRS, MIN, SEC
003221,001496: # MUST = HITEMOUT+1.
003222,001497: 1012 MODREG ERASE # MODE CODE
003223,001498:
003224,001499: 1013 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
003225,001500: 1014 REQRET ERASE # RETURN REGISTER FOR LOAD
003226,001501: 1015 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
003227,001502: 1016 CLPASS ERASE # PASS INDICATOR CLEAR
003228,001503: 1017 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
003229,001504: 1020 NOUNCADR ERASE # MACHINE CADR FOR NOUN
003230,001505: 1021 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
003231,001506: 1022 MONSAVE1 ERASE # NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
003232,001507: 1023 MONSAVE2 ERASE # NVMONOPT OPTIONS
003233,001508: 1024 DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
003234,001509: 1040 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
003235,001510: # MUST = NVBNKTEM-1
003236,001511: 1041 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
003237,001512: # MUST = NVQTEM+1
003238,001513: 1042 VERBSAVE ERASE # NEEDED FOR RECYCLE
003239,001514: 1043 CADRSTOR ERASE # ENDIDLE STORAGE
003240,001515: 1044 DSPLIST ERASE # WAITING REG FOR DSP SYST INTERNAL USE
003241,001516: 1045 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
003242,001517: 1046 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
003243,001518: 1051 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
003244,001519:
003245,001520: 1054 1052 DSPTEMX EQUALS DSPTEM2 +1 # B(2) S-S DISPLAY BUFFER FOR EXT. VERBS
003246,001521: 1054 1046 NORMTEM1 EQUALS DSPTEM1 # B(3)DSP NORMAL DISPLAY REGISTERS.
003247,001522:
003248,001523:
003249,001524: # INCORP STORAGE: R22 (N29) (SHARES WITH PREVIOUS SECTION) (4D)
003250,001525:
003251,001526: 1054 1046 R22DISP EQUALS DSPTEM1 # I(4) N49 DISPLAY OF DELTA R AND DELTA V
003252,001527:
003253,001528:
003254,001529: # TBASES AND PHSPRDT S. (12D)
003255,001530:
003256,001531: 1054 TBASE1 ERASE
003257,001532: 1055 PHSPRDT1 ERASE
003258,001533: 1056 TBASE2 ERASE
003259,001534: 1057 PHSPRDT2 ERASE
003260,001535: 1060 TBASE3 ERASE
003261,001536: 1061 PHSPRDT3 ERASE
003262,001537: 1062 TBASE4 ERASE
003263,001538: 1063 PHSPRDT4 ERASE
003264,001539: 1064 TBASE5 ERASE
003265,001540: 1065 PHSPRDT5 ERASE
003266,001541: 1066 TBASE6 ERASE
003267,001542: 1067 PHSPRDT6 ERASE
003268,001543:
003269,001544: # UNSWITCHED FOR DISPLAY INTERFACE ROUTINES. (6D)
003270,001545:
003271,001546: 1070 EBANKSAV ERASE
003272,001547: 1071 MARKEBAN ERASE
003273,001548: 1072 EBANKTEM ERASE
003274,001549: 1073 MARK2PAC ERASE
003275,001550: 1074 R1SAVE ERASE
003276,001551:
003277,001552:
003278,001553: # IMU COMPENSATION UNSWITCHED ERASABLE. (1D)
003279,001554:
003280,001555: 1075 1/PIPADT ERASE
003281,001556:
003282,001557:
003283,001558: # SINGLE PRECISION SUBROUTINE TEMPORARIES. (2D)
003284,001559:
003285,001560: # SPSIN, SPCOS, SPROOT VARIABLES.
003286,001561: # DO NOT SHARE. THESE ARE USED BY DAPS IN INTERRUPT
003287,001562: # AND CURRENTLY ARE NOT PROTECTED. IF OTHER USERS
003288,001563: # MATERIALIZE, THEN THIS CAN BE CHANGED.
003289,001564:
003290,001565: 1076 HALFY ERASE
003291,001566: 1077 ROOTRET ERASE
003292,001567: 1100 SQRARG ERASE
003293,001568: 1101 1076 TEMK EQUALS HALFY
003294,001569: 1101 1077 SQ EQUALS ROOTRET
003295,001570:
003296,001571:
003297,001572: # UNSWITCHED RADAR ERASABLE (13D)
003298,001573:
003299,001574: 1101 RADMODES ERASE
003300,001575: 1102 DAPBOOLS ERASE
003301,001576: 1103 SAMPLIM ERASE
003302,001577: 1104 SAMPLSUM ERASE +1
003303,001578: 1106 OPTYHOLD ERASE +1
003304,001579: 1110 TIMEHOLD ERASE +1
003305,001580: 1112 1104 RRTARGET EQUALS SAMPLSUM # HALF U IT VECTOR IN SM OR NB AXES.
003306,001581: 1112 TANG ERASE +1 # DESIRE TRUNNION AND SHAFT ANGLES.
003307,001582: 1114 1112 MODEA EQUALS TANG
003308,001583: 1114 MODEB ERASE +1 # DODES LOBBERS TANG +2.
003309,001584: 1116 1114 NSAMP EQUALS MODEB
003310,001585: 1116 DESRET ERASE
003311,001586: 1117 1116 OLDATAGD EQUALS DESRET # USED I DATA READING ROUTINES.
003312,001587: 1117 DESCOUNT ERASE
003313,001588:
003314,001589: # ****** P22 ****** (6D)
003315,001590:
003316,001591: 1120 1104 RSUBC EQUALS RRTARGET # I(6)S-S CSM POSITION VECTOR
003317,001592:
003318,001593: # UNSWITCHED FOR ORBIT INTEGRATION. (21D)
003319,001594:
003320,001595: 1120 TDEC ERASE +20D # I(2)
003321,001596: 1145 1122 COLREG EQUALS TDEC +2 # I(1)
003322,001597: 1145 1123 LAT EQUALS COLREG +1 # I(2)
003323,001598: 1145 1125 LONG EQUALS LAT +2 # I(2)
003324,001599: 1145 1127 ALT EQUALS LONG +2 # I(2)
003325,001600: 1145 1131 YV EQUALS ALT +2 # I(6)
003326,001601: 1145 1137 ZV EQUALS YV +6 # I(6)
003327,001602:
003328,001603:
003329,001604: # MISCELLANEOUS UNSWITCHED. (20D)
003330,001605:
003331,001606: 1145 UNUSED2 ERASE +5
003332,001607:
003333,001608: 1153 P40/RET ERASE # (WILL BE PUT IN E6 WHEN THERE IS ROOM)
003334,001609: 1154 GENRET ERASE # B(1) R61 RETURN CADR.
003335,001610: 1155 OPTION1 ERASE # B(1) NOUN 06 USES THIS
003336,001611: 1156 OPTION2 ERASE # B(1) NOUN 06 USES THIS
003337,001612: 1157 OPTION3 ERASE # B(1) NOUN 06 USES THIS
003338,001613: 1160 LONGCADR ERASE +1 # B(2) LONGCALL REGISTER
003339,001614: 1162 LONGBASE ERASE +1
003340,001615: 1164 LONGTIME ERASE +1 # B(2) LONGCALL REGISTER
003341,001616: 1166 NVWORD1 ERASE
003342,001617: 1167 CDUTEMPX ERASE # B(1)TMP
003343,001618: 1170 CDUTEMPY ERASE # B(1)TMP
003344,001619: 1171 CDUTEMPZ ERASE # B(1)TMP
003345,001620: 1172 PIPATMPX ERASE # B(1)TMP
003346,001621: 1173 PIPATMPY ERASE # B(1)TMP
003347,001622: 1174 PIPATMPZ ERASE # B(1)TMP
003348,001623:
003349,001624: 1175 DISPDEX ERASE # B(1)
003350,001625: 1176 TEMPR60 ERASE # B(1)
003351,001626: 1177 PRIOTIME ERASE # B(1)
003352,001627:
003353,001628: 1200 UNUSED5 ERASE
003354,001629:
003355,001630:
003356,001631: # STANDBY VERB ERASABLES. REDOCTR BEFORE THETADS. (14D)
003357,001632:
003358,001633: 1201 TIME2SAV ERASE +1
003359,001634: 1203 SCALSAVE ERASE +1
003360,001635: 1205 REDOCTR ERASE # CONTAINS NUMBER OF RESTARTS
003361,001636: 1206 THETAD ERASE +2
003362,001637: 1211 1206 CPHI = THETAD # O DESIRED GIMBAL ANGLES
003363,001638: 1211 1207 CTHETA = THETAD +1 # I FOR
003364,001639: 1211 1210 CPSI = THETAD +2 # M MANEUVER.
003365,001640: 1211 DELV ERASE +5
003366,001641: 1217 1211 DELVX = DELV
003367,001642: 1217 1213 DELVY = DELV +2
003368,001643: 1217 1215 DELVZ = DELV +4
003369,001644:
003370,001645:
003371,001646: # SPECIAL DEFINITION FOR SYSTEM TEST ERASABLE PGMS. (2D)
003372,001647:
003373,001648: 1217 0301 EBUF2 EQUALS UPTEMP # B(2) FOR EXCLUSIVE USE OF SYSTEM TEST
003374,001649:
003375,001650:
003376,001651: # PERM STATE VECTORS FOR BOOST AND DOWNLINK-WHOLE MISSION- (14D)
003377,001652:
003378,001653: 1217 RN ERASE +5 # B(6)PRM
003379,001654: 1225 VN ERASE +5 # B(6)PRM
003380,001655: 1233 PIPTIME ERASE +1 # B(2)PRM (MUST BE FOLLOWED BY GDT/2)
003381,001656:
003382,001657:
003383,001658: # SERVICER -MUST FOLLOW PIPTIME- (22D)
003384,001659:
003385,001660: 1235 GDT/2 ERASE +22D # B(6)TMP (MUST FOLLOW PIPTIME)
003386,001661: 1264 1243 MASS EQUALS GDT/2 +6 # B(2)
003387,001662: 1264 1243 WEIGHT/G = MASS
003388,001663: 1264 1245 ABDELV EQUALS MASS +2 # ALCMANU STORAGE)
003389,001664: 1264 1247 /AF/ EQUALS ABDELV +2 # (6)
003390,001665: 1264 1251 DVTHRSH1 EQUALS /AF/ +2 # (1)
003391,001666: 1264 1201 DVTHRUSH = TIME2SAV
003392,001667: 1264 1202 AUXFLAG = DVTHRUSH +1
003393,001668: 1264 1252 AVEGEXIT EQUALS DVTHRSH1 +1 # (2)
003394,001669: 1264 1252 AVGEXIT = AVEGEXIT
003395,001670: 1264 1254 TEMX EQUALS AVEGEXIT +2 # (1)
003396,001671: 1264 1255 TEMY EQUALS TEMX +1 # (1)
003397,001672: 1264 1256 TEMZ EQUALS TEMY +1 # (1)
003398,001673: 1264 1257 PIPCTR EQUALS TEMZ +1 # B(1)
003399,001674: 1264 1260 STOPDVC EQUALS PIPCTR +1 # B(1)
003400,001675: 1264 1261 PIPAGE EQUALS STOPDVC +1 # B(1)
003401,001676: 1264 1262 OUTROUTE EQUALS PIPAGE +1 # B(1)
003402,001677: 1264 1263 LRSTAT EQUALS OUTROUTE +1 # B(1)
003403,001678:
003404,001679:
003405,001680:
003406,001681: # PERMANENT LEM DAP STORAGE. (12D)
003407,001682:
003408,001683: 1264 CH5MASK ERASE # B(1)PRM
003409,001684: 1265 CH6MASK ERASE # B(1)PRM JET FAILURE MASK.
003410,001685: 1266 DTHETASM ERASE +5 # (6)
003411,001686: 1274 SPNDX ERASE # B(1)
003412,001687: 1275 RCSFLAGS ERASE # AUTOPILOT FLAG WORD
003413,001688: # BIT ASSIGNMENTS:
003414,001689: # 1) ALTERYZ SWITCH (ZEROOR1)
003415,001690: # 2) NEEDLER SWITCH
003416,001691: # 3) NEEDLER SWITCH
003417,001692: # 4) NEEDLER SWITCH
003418,001693: # 5) NEEDLER SWITCH
003419,001694: # 9) JUST-IN-DETENT SWITCH
003420,001695: # 10) PBIT - MANUAL CONTROL SWITCH
003421,001696: # 11) QRBIT - MANUAL CONTROL SWITCH
003422,001697: # 12) PSKIP CONTROL (PJUMPADR)
003423,001698: # 13) 1/ACCJOB CONTROL (ACCSET)
003424,001699: 1276 T5ADR ERASE +1 # GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
003425,001700: # BBCON OF NEXT LM DAP T5RUPT. 2CADR
003426,001701:
003427,001702:
003428,001703: # RCS FAILURE MONITOR STORAGE. (1)
003429,001704:
003430,001705: 1300 PVALVEST ERASE # B(1)PRM
003431,001706:
003432,001707:
003433,001708: # KALCMANU/DAP INTERFACE. (3D)
003434,001709:
003435,001710: 1301 DELPEROR ERASE # B(1)PRM COMMAND LAGS.
003436,001711: 1302 DELQEROR ERASE # B(1)PRM
003437,001712: 1303 DELREROR ERASE # B(1)PRM
003438,001713:
003439,001714:
003440,001715: # MODE SWITCHING ERASABLE. (9D)
003441,001716:
003442,001717: # RETAIN THE ORDER OF IMODES30 AND IMODES33 FOR DOWNLINK PURPOSES.
003443,001718: 1304 IMODES30 ERASE # B(1)
003444,001719: 1305 IMODES33 ERASE
003445,001720: 1306 MODECADR ERASE +2 # B(3)PRM
003446,001721: 1311 1306 IMUCADR EQUALS MODECADR
003447,001722: 1311 1307 OPTCADR EQUALS MODECADR +1
003448,001723: 1311 1310 RADCADR EQUALS MODECADR +2
003449,001724: 1311 ATTCADR ERASE +2 # B(3)PRM
003450,001725: 1314 1313 ATTPRIO = ATTCADR +2
003451,001726: 1314 MARKSTAT ERASE
003452,001727:
003453,001728: # T4RUPT ERASABLE. (2D)
003454,001729:
003455,001730: 1315 DSRUPTSW ERASE
003456,001731: 1316 DIDFLG ERASE # (1)
003457,001732: 1317 FINALT ERASE +1 # (MAY NOT BE REQUIRED FOR FLIGHTS).
003458,001733: 1321 LGYRO ERASE # (1)
003459,001734:
003460,001735: # P25 RADAR STORAGE. (2D)
003461,001736:
003462,001737: 1322 LASTYCMD ERASE +1 # B(1)PRM THESE ARE CALLED BY T4RUPT
003463,001738: 1324 1323 LASTXCMD EQUALS LASTYCMD +1 # B(1)PRM THEY MUST BE CONTIGUOUS,Y FIRST
003464,001739:
003465,001740:
003466,001741:
003467,001742: # MEASINC (4D)
003468,001743:
003469,001744: 1324 WIXA ERASE # B(1)
003470,001745: 1325 WIXB ERASE # B(1)
003471,001746: 1326 ZIXA ERASE # B(1)
003472,001747: 1327 ZIXB ERASE # B(1)
003473,001748:
003474,001749: # AGS DUMMY ID WORD. (1D)
003475,001750:
003476,001751: 1330 AGSWORD ERASE
003477,001752:
003478,001753: # SOME MISCELLANEOUS UNSWITCHED. (6D)
003479,001754:
003480,001755:
003481,001756: 1331 RATEINDX ERASE # (1) USED BY KALCMANU
003482,001757: 1332 DELAYLOC ERASE +2
003483,001758: 1335 LEMMASS ERASE # KEEP CONTIGUOUS W. CSMMASS (1)EACH
003484,001759: 1336 CSMMASS ERASE
003485,001760:
003486,001761: # LESS IS MORE.
003487,001762:
003488,001763: # RENDEZVOUS AND LANDING RADAR DOWNLINK STORAGE. (7D)
003489,001764:
003490,001765: # (NORMALLY USED DURING P20, BUT MAY ALSO)
003491,001766: # (BE REQUIRED FOR THE V62 SPURIOUS TEST.)
003492,001767:
003493,001768: # (PLEASE KEEP IN THIS ORDER)
003494,001769:
003495,001770: 1337 DNRRANGE ERASE +6 # B(1) TMP
003496,001771: 1346 1340 DNRRDOT EQUALS DNRRANGE +1 # B(1)TMP
003497,001772: 1346 1341 DNINDEX EQUALS DNRRDOT +1 # B(1)TMP
003498,001773: 1346 1342 DNLRVELX EQUALS DNINDEX +1 # B(1)TMP
003499,001774: 1346 1343 DNLRVELY EQUALS DNLRVELX +1 # B(1)TMP
003500,001775: 1346 1344 DNLRVELZ EQUALS DNLRVELY +1 # B(1)TMP
003501,001776: 1346 1345 DNLRALT EQUALS DNLRVELZ +1 # B(1) TMP
003502,001777:
003503,001778: # INCORPORATION UNSWITCHED. (1D)
003504,001779:
003505,001780: 1346 1257 W.IND EQUALS PIPCTR # B(1)
003506,001781:
003507,001782:
003508,001783: # SUBROUTINE BALLANGS OF R60. (1D)
003509,001784:
003510,001785: 1346 BALLEXIT ERASE # B(1)SAVE LOCATION FOR BALLINGS SUBR EXIT
003511,001786:
003512,001787: # CRS61.1 STORAGE. -USED IN R63 (VERB 89)- (5D)
003513,001788:
003514,001789: 1347 CPHIX ERASE +2 # B(3)DSP NOUN 96 CALCULATED BY CRS61.1
003515,001790:
003516,001791:
003517,001792: # NOUN 87 (2D)
003518,001793:
003519,001794: 1352 1347 AZ EQUALS CPHIX # B(1) AZ AND EL MUST BE CONTIGUOUS
003520,001795: 1352 1350 EL EQUALS AZ +1D # B(1)
003521,001796:
003522,001797:
003523,001798:
003524,001799: # NOUN 29 (1D)
003525,001800: 1352 LRFLAGS ERASE
003526,001801:
003527,001802:
003528,001803: # SOME LEM DAP STORAGE. (4D)
003529,001804:
003530,001805: 1353 DAPDATR1 ERASE # B(1)DSP DAP CONFIG.
003531,001806: 1354 TEVENT ERASE +1 # B(2)DSP
003532,001807: 1356 DB ERASE # B(1)TMP DEAD BAND.
003533,001808:
003534,001809:
003535,001810: 1357 END-UE EQUALS # NEXT UNUSED UE ADDRESS
003536,001811:
003537,001812:
003538,001813: # SELF-CHECK ASSIGNMENTS. (17D)
003539,001814:
003540,001815: # (DO NOT MOVE, S-C IS ADDRESS SENSITIVE)
003541,001816:
003542,001817: 1357 SELFERAS ERASE 1357 - 1377 # *** MUST NOT BE MOVED ***
003543,001818: 1357 1357 SFAIL EQUALS SELFERAS # B(1)
003544,001819: 1357 1360 ERESTORE EQUALS SFAIL +1 # B(1)
003545,001820: 1357 1361 SELFRET EQUALS ERESTORE +1 # B(1) RETURN
003546,001821: 1357 1362 SMODE EQUALS SELFRET +1 # B(1)
003547,001822: 1357 1363 ALMCADR EQUALS SMODE +1 # B(2) ALARM-ABORT USER'S 2CADR
003548,001823: 1357 1365 ERCOUNT EQUALS ALMCADR +2 # B(1)
003549,001824: 1357 1366 SCOUNT EQUALS ERCOUNT +1 # B(3)
003550,001825: 1357 1371 SKEEP1 EQUALS SCOUNT +3 # B(1)
003551,001826: 1357 1372 SKEEP2 EQUALS SKEEP1 +1 # B(1)
003552,001827: 1357 1373 SKEEP3 EQUALS SKEEP2 +1 # B(1)
003553,001828: 1357 1374 SKEEP4 EQUALS SKEEP3 +1 # B(1)
003554,001829: 1357 1375 SKEEP5 EQUALS SKEEP4 +1 # B(1)
003555,001830: 1357 1376 SKEEP6 EQUALS SKEEP5 +1 # B(1)
003556,001831: 1357 1377 SKEEP7 EQUALS SKEEP6 +1 # B(1)
003557,001832:
003558,001833: # EBANK-3 ASSIGNMENTS
003559,001834:
003560,001835: E3,1400 SETLOC 1400
003561,001836:
003562,001837: # WAITLIST TASK LISTS. (26D)
003563,001838:
003564,001839: E3,1400 LST1 ERASE +7 # B(8D)PRM DELTA T S.
003565,001840: E3,1410 LST2 ERASE +17D # B(18D)PRM TASK 2CADR ADDRESSES.
003566,001841:
003567,001842:
003568,001843: # RESTART STORAGE. (2D)
003569,001844:
003570,001845: E3,1432 RSBBQ ERASE +1 # B(2)PRM SAVE BB AND Q FOR RESTARTS.
003571,001846:
003572,001847: # MORE LONGCALL STORAGE.(MUST BE IN LST1 S BANK. (2D)
003573,001848:
003574,001849: E3,1434 LONGEXIT ERASE +1 # B(2)TMP MAY BE SELDOM OVERLAYED.
003575,001850:
003576,001851:
003577,001852: # PHASE-CHANGE LISTS PART II. (12D)
003578,001853:
003579,001854: E3,1436 PHSNAME1 ERASE # B(1)PRM
003580,001855: E3,1437 PHSBB1 ERASE # B(1)PRM
003581,001856: E3,1440 PHSNAME2 ERASE # B(1)PRM
003582,001857: E3,1441 PHSBB2 ERASE # B(1)PRM
003583,001858: E3,1442 PHSNAME3 ERASE # B(1)PRM
003584,001859: E3,1443 PHSBB3 ERASE # B(1)PRM
003585,001860: E3,1444 PHSNAME4 ERASE # B(1)PRM
003586,001861: E3,1445 PHSBB4 ERASE # B(1)PRM
003587,001862: E3,1446 PHSNAME5 ERASE # B(1)PRM
003588,001863: E3,1447 PHSBB5 ERASE # B(1)PRM
003589,001864: E3,1450 PHSNAME6 ERASE # B(1)PRM
003590,001865: E3,1451 PHSBB6 ERASE # B(1)PRM
003591,001866:
003592,001867:
003593,001868: # IMU COMPENSATION PARAMETERS. (22D)
003594,001869:
003595,001870: E3,1452 PBIASX ERASE # B(1) PIPA BIAS, PIPA SCALE FACTR TERMS
003596,001871: E3,1453 E3,1452 PIPABIAS = PBIASX # INTERMIXED.
003597,001872: E3,1453 PIPASCFX ERASE
003598,001873: E3,1454 E3,1453 PIPASCF = PIPASCFX
003599,001874: E3,1454 PBIASY ERASE
003600,001875: E3,1455 PIPASCFY ERASE
003601,001876: E3,1456 PBIASZ ERASE
003602,001877: E3,1457 PIPASCFZ ERASE
003603,001878:
003604,001879: E3,1460 NBDX ERASE # GYRO BIAS DRIFTS
003605,001880: E3,1461 E3,1460 GBIASX = NBDX
003606,001881: E3,1461 NBDY ERASE
003607,001882: E3,1462 NBDZ ERASE
003608,001883:
003609,001884: E3,1463 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
003610,001885: E3,1464 ADIAY ERASE # INPUT AXIS
003611,001886: E3,1465 ADIAZ ERASE
003612,001887:
003613,001888: E3,1466 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
003614,001889: E3,1467 ADSRAY ERASE # SPIN REFERENCE AXIS
003615,001890: E3,1470 ADSRAZ ERASE
003616,001891:
003617,001892: E3,1471 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES
003618,001893:
003619,001894: E3,1477 E3,1471 COMMAND EQUALS GCOMP
003620,001895: E3,1477 E3,1474 CDUIND EQUALS GCOMP +3
003621,001896:
003622,001897:
003623,001898: E3,1477 GCOMPSW ERASE
003624,001899:
003625,001900: # STATE VECTORS FOR ORBIT INTEGRATION. (44D)
003626,001901:
003627,001902: # (DIFEQCNT THRU XKEP MUST BE IN SAME
003628,001903: # EBANK AS RRECTCSM, RRECTLEM ETC
003629,001904: # BECAUSE THE COPY-CYCLES (ATOPCSM,
003630,001905: # PTOACSM ETC) ARE EXECUTED IN BASIC.
003631,001906: # ALL OTHER REFERENCES TO THIS GROUP
003632,001907: # ARE BY INTERPRETIVE INSTRUCTIONS.)
003633,001908:
003634,001909: E3,1500 DIFEQCNT ERASE +43D # B(1)
003635,001910: # (UPSVFLAG...XKEP MUST BE KEPT IN ORDER)
003636,001911:
003637,001912: E3,1554 E3,1501 UPSVFLAG EQUALS DIFEQCNT +1 # B(1)
003638,001913: E3,1554 E3,1502 RRECT EQUALS UPSVFLAG +1 # B(6)
003639,001914: E3,1554 E3,1510 VRECT EQUALS RRECT +6 # B(6)
003640,001915: E3,1554 E3,1516 TET EQUALS VRECT +6 # B(2)
003641,001916: E3,1554 E3,1520 TDELTAV EQUALS TET +2 # B(6)
003642,001917: E3,1554 E3,1526 TNUV EQUALS TDELTAV +6 # B(6)
003643,001918: E3,1554 E3,1534 RCV EQUALS TNUV +6 # B(6)
003644,001919: E3,1554 E3,1542 VCV EQUALS RCV +6 # B(6)
003645,001920: E3,1554 E3,1550 TC EQUALS VCV +6 # B(2)
003646,001921: E3,1554 E3,1552 XKEP EQUALS TC +2 # B(2)
003647,001922:
003648,001923: # PERMANENT STATE VECTORS AND TIMES. (99D)
003649,001924:
003650,001925: # (DO NOT OVERLAY WITH ANYTHING AFTER BOOST)
003651,001926:
003652,001927: # (RRECTCSM ...XKEPCSM MUST BE KEPT IN THIS ORDER)
003653,001928:
003654,001929: E3,1554 RRECTCSM ERASE +5 # B(6)PRM CSM VARIABLES.
003655,001930: E3,1562 E3,1554 RRECTOTH = RRECTCSM
003656,001931: E3,1562 VRECTCSM ERASE +5 # B(6)PRM
003657,001932:
003658,001933: E3,1570 TETCSM ERASE +1 # B(2)PRM
003659,001934: E3,1572 E3,1570 TETOTHER = TETCSM
003660,001935: E3,1572 DELTACSM ERASE +5 # B(6)PRM
003661,001936: E3,1600 NUVCSM ERASE +5 # B(6)PRM
003662,001937: E3,1606 RCVCSM ERASE +5 # B(6)PRM
003663,001938: E3,1614 VCVCSM ERASE +5 # B(6)PRM
003664,001939: E3,1622 TCCSM ERASE +1 # B(2)PRM
003665,001940: E3,1624 XKEPCSM ERASE +1 # B(2)PRM
003666,001941:
003667,001942: # (RRECTLEM ...XKEPLEM MUST BE KEPT IN THIS ORDER)
003668,001943:
003669,001944: E3,1626 RRECTLEM ERASE +5 # B(6)PRM LEM VARIABLES
003670,001945: E3,1634 E3,1626 RRECTHIS = RRECTLEM
003671,001946: E3,1634 VRECTLEM ERASE +5 # B(6)PRM
003672,001947: E3,1642 TETLEM ERASE +1 # B(2)PRM
003673,001948: E3,1644 E3,1642 TETTHIS = TETLEM
003674,001949: E3,1644 DELTALEM ERASE +5 # B(6)PRM
003675,001950: E3,1652 NUVLEM ERASE +5 # B(6)PRM
003676,001951: E3,1660 RCVLEM ERASE +5 # B(6)PRM
003677,001952: E3,1666 VCVLEM ERASE +5 # B(6)PRM
003678,001953: E3,1674 TCLEM ERASE +1 # B(2)PRM
003679,001954: E3,1676 XKEPLEM ERASE +1 # B(2)PRM
003680,001955:
003681,001956: E3,1700 X789 ERASE +5
003682,001957: E3,1706 TEPHEM ERASE +2
003683,001958: E3,1711 AZO ERASE +1
003684,001959: E3,1713 UNITW ERASE +5
003685,001960: E3,1721 E3,1713 -AYO EQUALS UNITW # (2)
003686,001961: E3,1721 E3,1715 AXO EQUALS UNITW +2 # (2)
003687,001962:
003688,001963:
003689,001964:
003690,001965: # STATE VECTORS FOR DOWNLINK. (12D)
003691,001966:
003692,001967: E3,1721 R-OTHER ERASE +5 # B(6)PRM POS VECT (OTHER VECH) FOR DNLINK
003693,001968: E3,1727 V-OTHER ERASE +5 # B(6)PRM VEL VECT (OTHER VECH) FOR DNLINK
003694,001969:
003695,001970: E3,1735 E3,1570 T-OTHER = TETCSM # TIME (OTHER VECH) FOR DNLINK
003696,001971:
003697,001972: # REFSMMAT. (18D)
003698,001973:
003699,001974: E3,1735 REFSMMAT ERASE +17D # I(18D)PRM
003700,001975:
003701,001976: # UNIT R.
003702,001977: E3,1757 UNITR ERASE +7D
003703,001978:
003704,001979:
003705,001980: # ACTIVE VEHICLE CENTANG. MUST BE DISPLAYED ANYTIME (ALMOST.) (2D)
003706,001981:
003707,001982: E3,1767 ACTCENT ERASE +1 # I(2) S-S CENTRAL ANGLE BETWEEN ACTIVE
003708,001983: # VEHICLE AT TPI TIG AND TARGET VECTOR.
003709,001984:
003710,001985: # **** USED IN CONICSEX (PLAN INERT ORIENT) ****
003711,001986:
003712,001987: E3,1771 E3,1706 TIMSUBO EQUALS TEPHEM # CSEC B-42 (TRIPLE PRECISION)
003713,001988:
003714,001989:
003715,001990: # ***** P22 ***** (OVERLAYS LPS 20.1 STORAGE) (6D)
003716,001991: E3,1771 E7,1434 VSUBC EQUALS LOSVEL # I(6) S-S CSM VELOCITY VECTOR
003717,001992:
003718,001993:
003719,001994: # INITVEL STORAGE. ALSO USED BY P34,35,74,75,10,11 OTHERS (8D)
003720,001995:
003721,001996: E3,1771 RTARG ERASE +5 # I(6) TARGET VECTOR
003722,001997:
003723,001998:
003724,001999: E3,1777 END-E3 EQUALS # NEXT UNUSED E3 ADDRESS
003725,002000:
003726,002001: # EBANK-4 ASSIGNMENTS
003727,002002:
003728,002003: E4,1400 SETLOC 2000
003729,002004:
003730,002005: # E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
003731,002006:
003732,002007: E4,1400 AMEMORY EQUALS
003733,002008:
003734,002009: # P20 STORAGE. -PAD LOADED- (6D)
003735,002010:
003736,002011: E4,1400 WRENDPOS ERASE # B(1)PL KM*2(-7)
003737,002012: E4,1401 WRENDVEL ERASE # B(1)PL KM(-1/2)*2(11)
003738,002013: E4,1402 WSHAFT ERASE # B(1)PL KM*2(-7)
003739,002014: E4,1403 WTRUN ERASE # B(1)PL KM*2(-7)
003740,002015: E4,1404 RMAX ERASE # B(1)PL METERS*2(-19)
003741,002016: E4,1405 VMAX ERASE # B(1)PL M/CSEC*2(-7)
003742,002017:
003743,002018: # P22 STORAGE. -PAD LOADED- (2D)
003744,002019:
003745,002020: E4,1406 SHAFTVAR ERASE # B(1)PL RAD SQ*2(12)
003746,002021: E4,1407 TRUNVAR ERASE # B(1)PL RAD SQ*2(10)
003747,002022:
003748,002023:
003749,002024: # CONISEX STORAGE.-PAD LOADED- (6D)
003750,002025:
003751,002026: E4,1410 504LM ERASE +5 # I(6)MOON LIBRATION VECTOR
003752,002027:
003753,002028: # V47(R47) AGS INITIALIZATION STORAGE. -PAD LOADED- (2D)
003754,002029:
003755,002030: E4,1416 AGSK ERASE +1
003756,002031:
003757,002032:
003758,002033: # LUNAR LANDING STORAGE. -PAD LOADED- (6D)
003759,002034:
003760,002035: E4,1420 TLAND ERASE +1 # I(2) NOMINAL TIME OF LANDING
003761,002036: E4,1422 /LAND/ ERASE +1 # B(2) LUNAR RADIUS AT LANDING SITE
003762,002037: E4,1424 RLS ERASE +5 # I(6) LANDING SITE VECTOR -MOON REF
003763,002038:
003764,002039:
003765,002040: # INTEGRATION STORAGE. (102D)
003766,002041:
003767,002042: E4,1432 PBODY ERASE +101D # I(1)
003768,002043:
003769,002044: E4,1600 E4,1433 ALPHAV EQUALS PBODY +1 # I(6)
003770,002045: E4,1600 E4,1441 BETAV EQUALS ALPHAV +6 # I(6)
003771,002046: E4,1600 E4,1447 PHIV EQUALS BETAV +6 # I(6)
003772,002047: E4,1600 E4,1455 PSIV EQUALS PHIV +6 # I(6)
003773,002048: E4,1600 E4,1463 FV EQUALS PSIV +6 # I(6) PERTURBING ACCELERATIONS
003774,002049: E4,1600 E4,1471 ALPHAM EQUALS FV +6 # I(2)
003775,002050: E4,1600 E4,1473 BETAM EQUALS ALPHAM +2 # I(2)
003776,002051: E4,1600 E4,1475 TAU. EQUALS BETAM +2 # I(2)
003777,002052: E4,1600 E4,1477 DT/2 EQUALS TAU. +2 # I(2)
003778,002053: E4,1600 E4,1501 H EQUALS DT/2 +2 # I(2)
003779,002054: E4,1600 E4,1503 GMODE EQUALS H +2 # I(1)
003780,002055: E4,1600 E4,1504 IRETURN EQUALS GMODE +1 # I(1)
003781,002056: E4,1600 E4,1505 NORMGAM EQUALS IRETURN +1 # I(1)
003782,002057: E4,1600 E4,1506 RPQV EQUALS NORMGAM +1
003783,002058: E4,1600 E4,1514 ORIGEX EQUALS RPQV +6 # I(1)
003784,002059: E4,1600 E4,1514 KEPRTN EQUALS ORIGEX # I(1)
003785,002060: E4,1600 E4,1515 RQVV EQUALS ORIGEX +1 # I(6)
003786,002061: E4,1600 E4,1523 RPSV EQUALS RQVV +6 # I(6)
003787,002062: E4,1600 E4,1531 XKEPNEW EQUALS RPSV +6 # I(2)
003788,002063: E4,1600 E4,1533 VECTAB EQUALS XKEPNEW +2 # I(36D)
003789,002064: E4,1600 E4,1576 VECTABND EQUALS VECTAB +35D # END MARK
003790,002065:
003791,002066:
003792,002067:
003793,002068: # THESE PROBABLY CAN SHARE MID-COURSE VARIABLES. (6D)
003794,002069:
003795,002070: E4,1600 E4,1541 VACX EQUALS VECTAB +6 # I(2)
003796,002071: E4,1600 E4,1543 VACY EQUALS VACX +2 # I(2)
003797,002072: E4,1600 E4,1545 VACZ EQUALS VACY +2 # I(2)
003798,002073:
003799,002074: # SERVICER STORAGE (USED BY ALL POWERED FLIGHT PROGS.) (18D)
003800,002075:
003801,002076: E4,1600 E4,1547 XNBPIP EQUALS VECTAB +12D # I(6)
003802,002077: E4,1600 E4,1555 YNBPIP EQUALS XNBPIP +6 # I(6)
003803,002078: E4,1600 E4,1563 ZNBPIP EQUALS YNBPIP +6 # I(6)
003804,002079:
003805,002080:
003806,002081: # SOME VERB 82 STORAGE (4D)
003807,002082:
003808,002083: E4,1600 E4,1521 HAPOX EQUALS RQVV +4 # I(2)
003809,002084: E4,1600 E4,1523 HPERX EQUALS HAPOX +2 # I(2)
003810,002085:
003811,002086:
003812,002087: # V82 STORAGE (6D)
003813,002088:
003814,002089: E4,1600 E4,1571 VONE' EQUALS VECTAB +30D # I(6)TMP NORMAL VELOCITY VONE /SQRT. MU
003815,002090:
003816,002091: # R31(V83) STORAGE. -SHARES WITH INTEGRATION STORAGE- (28D)
003817,002092:
003818,002093: E4,1600 E4,1506 BASETHV EQUALS RPQV # I(6) BASE VEL VECTOR THIS VEH
003819,002094:
003820,002095:
003821,002096: E4,1600 E4,1515 BASETIME EQUALS RQVV # I(2) TIME ASSOC WITH BASE VECS
003822,002097: E4,1600 E4,1517 ORIG EQUALS RQVV +2 # I(1) =0 FOR EARTH =2 FOR MOON
003823,002098: E4,1600 E4,1520 STATEXIT EQUALS RQVV +3 # I(1) STQ ADDRESS FOR STATEXTP
003824,002099: E4,1600 E4,1521 BASEOTV EQUALS RQVV +4 # I(6) BASE VEL VECTOR OTHER VEH
003825,002100:
003826,002101:
003827,002102: E4,1600 E4,1541 BASEOTP EQUALS VECTAB +6 # I(6) BASE POS VECTOR OTHER VEH
003828,002103:
003829,002104:
003830,002105: E4,1600 E4,1571 BASETHP EQUALS VECTAB +30D # I(6) BASE POS VECTOR THIS VEH
003831,002106:
003832,002107:
003833,002108:
003834,002109: # KEPLER STORAGE. (KEPLER IS CALLED BY PRECISION INTEGRATION AND (6D)
003835,002110: # CONICS)
003836,002111:
003837,002112: E4,1600 XMODULO ERASE +5 # I(2)
003838,002113: E4,1606 E4,1602 TMODULO EQUALS XMODULO +2 # I(2)
003839,002114: E4,1606 E4,1604 EPSILONT EQUALS TMODULO +2 # I(2)
003840,002115:
003841,002116:
003842,002117: # VERB 83 STORAGE. (18D)
003843,002118:
003844,002119: E4,1606 RANGE ERASE +17D # I(2)DSP NOUN 54 DISTANCE TO OPTICAL SUBJ
003845,002120: E4,1630 E4,1610 RRATE EQUALS RANGE +2 # I(2)DSP NOUN 54 RATE OF APPROACH.
003846,002121: E4,1630 E4,1612 RTHETA EQUALS RRATE +2 # I(2)DSP NOUN 54.
003847,002122: E4,1630 E4,1614 RONE EQUALS RTHETA +2 # I(6)TMP VECTOR STORAGE. (SCRATCH)
003848,002123: E4,1630 E4,1622 VONE EQUALS RONE +6 # I(6)TMP VECTOR STORAGE. (SCRATCH)
003849,002124:
003850,002125:
003851,002126: E4,1630 E4,1606 WWPOS = RANGE # NOUN 99 (V45)
003852,002127: E4,1630 E4,1610 WWVEL = RRATE # NOUN 99 (V45)
003853,002128: # V82 STORAGE. (CANNOT OVERLAY RONE OR VONE) (11D) TWO SEPARATE LOCATIONS
003854,002129:
003855,002130: E4,1630 E4,1541 V82FLAGS EQUALS VECTAB +6 # (1) FOR V82 BITS.
003856,002131: E4,1630 E4,1542 TFF EQUALS V82FLAGS +1 # I(2)
003857,002132: E4,1630 E4,1544 -TPER EQUALS TFF +2 # I(2)
003858,002133:
003859,002134:
003860,002135: E4,1630 E4,1606 HPERMIN EQUALS RANGE # I(2) SET TO 300KFT OR 35KFT FOR SR30.1
003861,002136: E4,1630 E4,1610 RPADTEM EQUALS HPERMIN +2 # I(2) PAD OR LANDING RADIUS FOR SR30.1
003862,002137: E4,1630 E4,1612 TSTART82 EQUALS RPADTEM +2 # I(2) TEMP TIME STORAGE FOR V82.
003863,002138:
003864,002139:
003865,002140:
003866,002141: # VARIOUS DISPLAY REGISTERS (6D) NOUN 84; P76
003867,002142:
003868,002143: E4,1630 DELVOV ERASE +5D # (6)
003869,002144:
003870,002145:
003871,002146: # ALIGNMENT PLANETARY-INERTIAL TRANSFORMATION STORAGE. (18D)
003872,002147:
003873,002148: # UNSHARED WHILE LM ON LUNAR SURFACE.
003874,002149:
003875,002150: E4,1636 GSAV ERASE +17D # I(6)
003876,002151: E4,1660 E4,1644 YNBSAV EQUALS GSAV +6 # I(6)
003877,002152: E4,1660 E4,1652 ZNBSAV EQUALS YNBSAV +6 # I(6)
003878,002153: E4,1660 E4,1660 STARVSAV EQUALS ZNBSAV +6 # I(6)
003879,002154:
003880,002155:
003881,002156:
003882,002157: # KALCMANU STORAGE. CAN OVERLAY GSAV. (18D)
003883,002158:
003884,002159: E4,1660 E4,1636 MFS EQUALS GSAV # I(18)
003885,002160: E4,1660 E4,1636 MFI EQUALS MFS # I
003886,002161: E4,1660 E4,1636 KEL EQUALS MFS # I(18)
003887,002162: E4,1660 E4,1636 E01 EQUALS MFS # I(6)
003888,002163: E4,1660 E4,1644 E02 EQUALS E01 +6 # I(6)
003889,002164:
003890,002165: # LR VEL BEAM VECTORS. (26D)
003891,002166:
003892,002167: # CAN OVERLAY GSAV WITH CARE, USED DURING POWERED DESCENT ONLY.
003893,002168:
003894,002169: E4,1660 E4,1636 VZBEAMNB EQUALS GSAV # I(6) LR VELOCITY BEAMS IN NB COORDS.
003895,002170: E4,1660 E4,1644 VYBEAMNB EQUALS VZBEAMNB +6 # I(6)
003896,002171: E4,1660 E4,1652 VXBEAMNB EQUALS VYBEAMNB +6 # I(6) PRESERVE Z,Y,X ORDER.
003897,002172:
003898,002173:
003899,002174: E4,1660 E4,1660 LRVTIME = VXBEAMNB +6 # B(2) LR
003900,002175: E4,1660 E4,1662 LRXCDU = LRVTIME +2 # B(1) LR
003901,002176: E4,1660 E4,1663 LRYCDU = LRXCDU +1 # B(1) LR
003902,002177: E4,1660 E4,1664 LRZCDU = LRYCDU +1 # B(1) LR
003903,002178: E4,1660 E4,1665 PIPTEM = LRZCDU +1 # B(3) LR
003904,002179:
003905,002180:
003906,002181: # P32-P35, P72-P75 STORAGE. (40D)
003907,002182:
003908,002183: E4,1660 T1TOT2 ERASE +1 # (2) TIME FROM CSI TO CDH
003909,002184: E4,1662 T2TOT3 ERASE +1 # (2)
003910,002185: E4,1664 ELEV ERASE +1 # (2)
003911,002186: E4,1666 DELVLVC ERASE +5 # I(6) DELTA VELOCITY - LOCAL VERTICAL COO
003912,002187: E4,1674 E4,1666 DELVSLV = DELVLVC # (TEMP STORAGE OF SAME VECTOR) -RDINATE
003913,002188: E4,1674 UP1 ERASE +5 # (6)
003914,002189: E4,1702 DELVEET1 ERASE +5 # I(6) DV CSI IN REF
003915,002190: E4,1710 DELVEET2 ERASE +5 # I(6) DV CSH IN REF
003916,002191: E4,1716 RACT1 ERASE +5 # (6) POS VEC OF ACTIVE AT CSI TIME
003917,002192: E4,1724 RACT2 ERASE +5 # (6) POS VEC OF ACTIVE AT CDH TIME
003918,002193: E4,1732 RTX1 ERASE # I(1) X1 -2 FOR EARTH, -10 FOR MOON
003919,002194: E4,1733 RTX2 ERASE # I(1) X2 FOR SHIFT-EARTH 0, MOON 2
003920,002195: E4,1734 RTSR1/MU ERASE +1 # (2) SQ ROOT 1/MU STORAGE
003921,002196: E4,1736 RTMU ERASE +1 # (2) MU STORAGE
003922,002197:
003923,002198:
003924,002199:
003925,002200: # (THE FOLLOWING ERASABLES OVERLAY PORTIONS OF THE PREVIOUS SECTION)
003926,002201:
003927,002202: E4,1740 E4,1660 +MGA EQUALS T1TOT2 # (2) S-S + MID GIM ANGL TO DELVEET3
003928,002203:
003929,002204:
003930,002205: E4,1740 E4,1674 UNRM EQUALS UP1 # I(6) S-S
003931,002206:
003932,002207:
003933,002208: E4,1740 E4,1716 DVLOS EQUALS RACT1 # I(6) S-S DELTA VELOCITY,LOS COORD-DISPLA
003934,002209: E4,1740 E4,1724 ULOS EQUALS RACT2 # I(6) S-S UNIT LINE OF SIGHT VECTOR
003935,002210:
003936,002211:
003937,002212: E4,1740 E4,1734 NOMTPI EQUALS RTSR1/MU # (2) S-S NOMINAL TPI TIME FOR RECYCLE
003938,002213:
003939,002214:
003940,002215: # SOME P30 STORAGE. (4D)
003941,002216:
003942,002217: E4,1740 E4,1660 HAPO EQUALS T1TOT2 # I(2)
003943,002218: E4,1740 E4,1662 HPER EQUALS HAPO +2 # I(2)
003944,002219:
003945,002220:
003946,002221:
003947,002222: # SOME P38-P39,P78-79 STORAGE. (6D)
003948,002223:
003949,002224: E4,1740 E4,1716 DELTAR EQUALS DVLOS # I(2)
003950,002225: E4,1740 E4,1720 DELTTIME EQUALS DELTAR +2 # I(2) TIME REPRESENTATION OF DELTAR
003951,002226: E4,1740 E4,1722 TARGTIME EQUALS DELTTIME +2 # I(2) TINT MINUS DELTTIME
003952,002227:
003953,002228: E4,1740 E4,1716 TINTSOI EQUALS DELTAR # I(2) TIME OF INTERCEPT FOR SOI PHASE
003954,002229:
003955,002230:
003956,002231:
003957,002232: # THE FOLLOWING ARE ERASABLE LOADS DURING A PERFORMANCE TEST.
003958,002233:
003959,002234: E4,1740 E4,1400 TRANSM1 = WRENDPOS # E4,1400
003960,002235: E4,1740 E4,1422 ALFDK = /LAND/
003961,002236:
003962,002237:
003963,002238: # ******* THE FOLLOWING SECTIONS OVERLAY V83 AND DISPLAY STORAGE *******
003964,002239:
003965,002240:
003966,002241: # V47(R47)AGS INITIALIZATION PROGRAM STORAGE. (OVERLAYS V83) (14D)
003967,002242:
003968,002243: E4,1740 E4,1606 AGSBUFF EQUALS RANGE # B(14D)
003969,002244: E4,1740 E4,1623 AGSBUFFE EQUALS AGSBUFF +13D # ENDMARK
003970,002245:
003971,002246:
003972,002247: # R36 OUT-OF-PLANE RENDEZVOUS DISPLAY STORAGE. (OVERLAYS V83) (12D)
003973,002248:
003974,002249: E4,1740 E4,1614 RPASS36 EQUALS RONE # I(6) S-S
003975,002250: E4,1740 E4,1622 UNP36 EQUALS RPASS36 +6 # I(6) S-S
003976,002251:
003977,002252:
003978,002253: # S-BAND ANTENNA GIMBAL ANGLES. DISPLAYED BY R05(V64).(OVERLAYS V83) (10D)
003979,002254: # (OPERATES DURING P00 ONLY)
003980,002255:
003981,002256: E4,1740 E4,1606 ALPHASB EQUALS RANGE # B(2)DSP NOUN 51. PITCH ANGLE.
003982,002257: E4,1740 E4,1610 BETASB EQUALS ALPHASB +2 # B(2)DSP NOUN 51. YAW ANGLE.
003983,002258: E4,1740 E4,1612 RLM EQUALS BETASB +2 # I(6)S S/C POSITION VECTOR.
003984,002259:
003985,002260: # **** USED IN S-BAND ANTENNA FOR LM ****
003986,002261:
003987,002262: E4,1740 E4,1610 YAWANG EQUALS BETASB
003988,002263: E4,1740 E4,1606 PITCHANG EQUALS ALPHASB
003989,002264:
003990,002265:
003991,002266: # NOUN 56 DATA - COMPUTED AND DISPLAYED BY VERB 85. (4)
003992,002267:
003993,002268: E4,1740 E4,1606 RR-AZ EQUALS PITCHANG # I(2) ANGLE BETWEEN LOS AND X-Z PLANE.
003994,002269: E4,1740 E4,1610 RR-ELEV EQUALS RR-AZ +2 # I(2) ANGLE BETWEEN LOS AND Y-Z PLANE.
003995,002270:
003996,002271: # R04(V62) RADAR TEST STORAGE. (8D)
003997,002272: # R04 IS RESTRICTED TO P00.
003998,002273:
003999,002274: E4,1740 E4,1606 RSTACK EQUALS RANGE # B(8) BUFFER FOR R04 NOUNS.
004000,002275:
004001,002276:
004002,002277:
004003,002278: # INITVEL STORAGE. ALSO USED BY P31,P34,P35,P74,P75,P10,P11,MIDGIM,S40.1 AND S40.9. (18D)
004004,002279:
004005,002280: # (POSSIBLY RINIT & VINIT CAN OVERLAY DELVEET1 & 2 ABOVE)
004006,002281:
004007,002282: E4,1740 RINIT ERASE +5 # I(6) ACTIVE VEHICLE POSITION
004008,002283: E4,1746 VINIT ERASE +5 # I(6) ACTIVE VEHICLE VELOCITY
004009,002284: E4,1754 DELLT4 ERASE +1 # I(2) TIME DIFFERENCE
004010,002285: E4,1756 VIPRIME ERASE +5 # I(6) NEW VEL REQUIRED AT INITIAL RADIUS.
004011,002286:
004012,002287: # PADLOADED ERASABLES FOR P20/P22 (6D)
004013,002288:
004014,002289: E4,1764 RANGEVAR ERASE +1 # I(2) RR RANGE ERROR VARIANCE
004015,002290: E4,1766 RATEVAR ERASE +1 # I(2) RR RANGE-RATE ERROR VARIANCE
004016,002291: E4,1770 RVARMIN ERASE +2 # I(3) MINIMUM RANGE ERROR VARIANCE
004017,002292: E4,1773 VVARMIN ERASE +1 # I(2) MINIMUM RANGE-RATE ERROR VARIANCE
004018,002293:
004019,002294:
004020,002295:
004021,002296: # SOME R04(V62)-R77 RADAR TEST STORAGE (6D)
004022,002297:
004023,002298: E4,1775 E4,1521 RTSTDEX EQUALS HAPOX # (1)
004024,002299: E4,1775 E4,1522 RTSTMAX = RTSTDEX +1 # (1)
004025,002300: E4,1775 E4,1523 RTSTBASE = RTSTMAX +1 # (1)
004026,002301: E4,1775 E4,1524 RTSTLOC = RTSTBASE +1 # (1)
004027,002302: E4,1775 E4,1524 RSTKLOC = RTSTLOC
004028,002303: E4,1775 E4,1525 RSAMPDT = RTSTLOC +1 # (1)
004029,002304: E4,1775 E4,1526 RFAILCNT = RSAMPDT +1 # (1)
004030,002305:
004031,002306:
004032,002307: # LPS20.1 STORAGE
004033,002308:
004034,002309: # (12D)
004035,002310:
004036,002311:
004037,002312: E4,1775 1104 LMPOS EQUALS SAMPLSUM # I(6)TEMP. STORAGE FOR LM POS. VECTOR.
004038,002313: E4,1775 E7,1434 LMVEL EQUALS LOSVEL # I(6)TEMP. STORAGE FOR LM VEL. VECTOR.
004039,002314:
004040,002315:
004041,002316: E4,1775 END-E4 EQUALS # FIRST UNUSED LOCATION IN E4
004042,002317:
004043,002318: # EBANK-5 ASSIGNMENTS
004044,002319:
004045,002320: E5,1400 SETLOC 2400
004046,002321:
004047,002322: # W-MATRIX. ESSENTIALLY UNSHARABLE. (162D)
004048,002323:
004049,002324: E5,1400 W ERASE +161D
004050,002325: E5,1642 E5,1642 ENDW EQUALS W +162D
004051,002326:
004052,002327:
004053,002328:
004054,002329: # ******* OVERLAY NUMBER 1 IN EBANK 5 *******
004055,002330:
004056,002331: # SOME VARIABLES FOR SECOND DPS GUIDANCE (34D)
004057,002332:
004058,002333: E5,1642 E5,1400 CG = W # I(18D) GUIDANCE
004059,002334: E5,1642 E5,1422 RANGEDSP = CG +18D # B(2) DISPLAY
004060,002335: E5,1642 E5,1424 DELTAH = RANGEDSP +2 # B(2) DISPLAY
004061,002336: E5,1642 E5,1426 OUTOFPLN = DELTAH +2 # B(2) DISPLAY
004062,002337:
004063,002338: # ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE. (36D)
004064,002339:
004065,002340: E5,1642 E5,1642 XSM EQUALS ENDW # B(6)
004066,002341: E5,1642 E5,1650 YSM EQUALS XSM +6 # B(6)
004067,002342: E5,1642 E5,1656 ZSM EQUALS YSM +6 # B(6)
004068,002343:
004069,002344: E5,1642 E5,1664 XDC EQUALS ZSM +6 # B(6)
004070,002345: E5,1642 E5,1672 YDC EQUALS XDC +6 # B(6)
004071,002346: E5,1642 E5,1700 ZDC EQUALS YDC +6 # B(6)
004072,002347:
004073,002348: E5,1642 E5,1664 XNB = XDC
004074,002349: E5,1642 E5,1672 YNB = YDC
004075,002350: E5,1642 E5,1700 ZNB = ZDC
004076,002351:
004077,002352: # OVERLAYS WITHIN ALIGNMENT/SYSTEST/CALCSMSC COMMON STORAGE. (4D)
004078,002353:
004079,002354: E5,1642 E5,1644 -COSB EQUALS XSM +2 # (2)TMP
004080,002355: E5,1642 E5,1646 SINB EQUALS -COSB +2 # (2)TMP
004081,002356:
004082,002357: # ALIGNMENT/SYSTEST COMMON STORAGE. (31D)
004083,002358:
004084,002359: E5,1642 E5,1706 STARAD EQUALS ZDC +6 # I(18D)TMP
004085,002360: E5,1642 E5,1730 STAR EQUALS STARAD +18D # I(6)
004086,002361: E5,1642 E5,1736 GCTR EQUALS STAR +6 # B(1)
004087,002362: E5,1642 E5,1737 OGC EQUALS GCTR +1 # I(2)
004088,002363: E5,1642 E5,1741 IGC EQUALS OGC +2 # I(2)
004089,002364: E5,1642 E5,1743 MGC EQUALS IGC +2 # I(2)
004090,002365:
004091,002366: # P57 ALIGNMENT (OVERLAY OF ALIGNMENT/SYSTEST COMMON STORAGE) (12D)
004092,002367:
004093,002368: E5,1642 E5,1706 GACC = STARAD # (6) SS
004094,002369: E5,1642 E5,1714 GOUT = STARAD +6 # (6) SS
004095,002370:
004096,002371:
004097,002372: # OVERLAYS WITHIN ALIGNMENT/SYSTEST COMMON STORAGE (24D)
004098,002373:
004099,002374: E5,1642 E5,1706 VEARTH EQUALS STARAD # (6)TMP
004100,002375: E5,1642 E5,1714 VSUN EQUALS VEARTH +6 # (6)TMP
004101,002376: E5,1642 E5,1722 VMOON EQUALS VSUN +6 # (6)TMP
004102,002377: E5,1642 E5,1730 SAX EQUALS VMOON +6 # (6)TMP
004103,002378:
004104,002379:
004105,002380: # P50'S,R50'S Q STORES. (2D)
004106,002381:
004107,002382: E5,1642 E5,1745 QMIN EQUALS MGC +2 # B(1)TMP
004108,002383: E5,1642 E5,1746 QMAJ EQUALS QMIN +1 # B(1)TMP
004109,002384:
004110,002385:
004111,002386: # **** USED IN P50S **** (SCATTERED OVERLAYS)
004112,002387: E5,1642 E5,1706 XSCI EQUALS STARAD
004113,002388: E5,1642 E5,1714 YSCI EQUALS XSCI +6
004114,002389: E5,1642 E5,1714 ZSCI EQUALS YSCI
004115,002390: E5,1642 E5,1706 CULTRIX EQUALS VEARTH # VEARTH, VSUN, VMOON
004116,002391: E5,1642 E5,1722 VEC1 EQUALS STARAD +12D
004117,002392: E5,1642 E5,1730 VEC2 EQUALS STAR
004118,002393:
004119,002394:
004120,002395:
004121,002396: # ALIGNMENT STORAGE. (23D)
004122,002397:
004123,002398: E5,1642 E5,1747 OGCT EQUALS QMAJ +1 # I(6)
004124,002399: E5,1642 E5,1755 BESTI EQUALS OGCT +6 # I(1)
004125,002400: E5,1642 E5,1756 BESTJ EQUALS BESTI +1
004126,002401: E5,1642 E5,1757 STARIND EQUALS BESTJ +1
004127,002402: # RETAIN THE ORDER OF STARSAV1 TO STARSAV2 +5 FOR DOWNLINK PURPOSES.
004128,002403: E5,1642 E5,1760 STARSAV1 EQUALS STARIND +1 # I(6)
004129,002404: E5,1642 E5,1766 STARSAV2 EQUALS STARSAV1 +6 # I(6)
004130,002405: E5,1642 E5,1774 TALIGN EQUALS STARSAV2 +6 # B(2) TIME OF IMU ALIGNMENT (DOWNLINKED)
004131,002406: # VEL/C EQUALS STARSAV2 +6 I(6)TMP (NOT USED IN LEM)
004132,002407:
004133,002408:
004134,002409: E5,1642 ZPRIME = 22D
004135,002410: E5,1642 PDA = 22D
004136,002411: E5,1642 COSTH = 16D
004137,002412: E5,1642 SINTH = 18D
004138,002413: E5,1642 THETA = 20D
004139,002414: E5,1642 STARM = 32D
004140,002415:
004141,002416: # ******* OVERLAY NUMBER 2 IN EBANK 5 *******
004142,002417:
004143,002418:
004144,002419: # CONICS ROUTINE STORAGE. (85D)
004145,002420:
004146,002421: E5,1642 E5,1642 DELX EQUALS ENDW # I(2)TMP
004147,002422: E5,1642 E5,1644 DELT EQUALS DELX +2 # I(2)TMP
004148,002423: E5,1642 E5,1646 URRECT EQUALS DELT +2 # I(6)TMP
004149,002424: E5,1642 RCNORM EQUALS 34D # I(2) TMP
004150,002425: E5,1642 E3,1552 XPREV EQUALS XKEP # I(2)TMP
004151,002426: E5,1642 E5,1654 R1VEC EQUALS URRECT +6 # I(6) TMP
004152,002427: E5,1642 E5,1662 R2VEC EQUALS R1VEC +6 # I(6)TMP
004153,002428: E5,1642 E5,1670 TDESIRED EQUALS R2VEC +6 # I(2)TMP
004154,002429: E5,1642 E5,1672 GEOMSGN EQUALS TDESIRED +2 # I(1)TMP
004155,002430: E5,1642 E5,1673 UN EQUALS GEOMSGN +1 # I(6)TMP
004156,002431: E5,1642 E5,1701 VTARGTAG EQUALS UN +6 # I(1)TMP
004157,002432: E5,1642 E5,1702 VTARGET EQUALS VTARGTAG +1 # I(6)TMP
004158,002433: E5,1642 E5,1710 RTNLAMB EQUALS VTARGET +6 # I(1)TMP
004159,002434: E5,1642 E5,1711 U2 EQUALS RTNLAMB +1 # I(6)TMP
004160,002435: E5,1642 E5,1717 MAGVEC2 EQUALS U2 +6 # I(2)TMP
004161,002436: E5,1642 E5,1721 UR1 EQUALS MAGVEC2 +2 # I(6)TMP
004162,002437: E5,1642 E5,1727 SNTH EQUALS UR1 +6 # I(2)TMP
004163,002438: E5,1642 E5,1731 CSTH EQUALS SNTH +2 # I(2)TMP
004164,002439: E5,1642 E5,1733 1-CSTH EQUALS CSTH +2 # I(2)TMP
004165,002440: E5,1642 E5,1735 CSTH-RHO EQUALS 1-CSTH +2 # I(2)TMP
004166,002441: E5,1642 E5,1737 P EQUALS CSTH-RHO +2 # I(2)TMP
004167,002442: E5,1642 E5,1741 R1A EQUALS P +2 # I(2)TMP
004168,002443: E5,1642 E5,1654 RVEC EQUALS R1VEC # I(6)TMP
004169,002444: E5,1642 E5,1743 VVEC EQUALS R1A +2 # I(6)TMP
004170,002445: E5,1642 E5,1710 RTNTT EQUALS RTNLAMB # I(1)TMP
004171,002446: E5,1642 E5,1751 ECC EQUALS VVEC +6 # I(2)TMP
004172,002447: E5,1642 E5,1710 RTNTR EQUALS RTNLAMB # I(1)TMP
004173,002448: E5,1642 E5,1710 RTNAPSE EQUALS RTNLAMB # I(1)TMP
004174,002449: E5,1642 E5,1717 R2 EQUALS MAGVEC2 # I(2)TMP
004175,002450: E5,1642 E5,1753 RTNPRM EQUALS ECC +2 # I(1)TMP
004176,002451: E5,1642 E5,1754 SGNRDOT EQUALS RTNPRM +1 # I(1)TMP
004177,002452: E5,1642 E5,1755 RDESIRED EQUALS SGNRDOT +1 # I(2)TMP
004178,002453: E5,1642 E5,1757 DELDEP EQUALS RDESIRED +2 # I(2)TMP
004179,002454: E5,1642 E5,1761 DEPREV EQUALS DELDEP +2 # I(2)TMP
004180,002455: E5,1642 E5,1757 TERRLAMB EQUALS DELDEP # I(2)TMP
004181,002456: E5,1642 E5,1761 TPREV EQUALS DEPREV # I(2)TMP
004182,002457: E5,1642 E5,1763 EPSILONL EQUALS DEPREV +2 # I(2)TMP
004183,002458: E5,1642 E5,1765 COGA EQUALS EPSILONL +2 # I(2) COTAN OF INITIAL FLIGHT PATH ANGLE.
004184,002459: E5,1642 E5,1765 INDEP EQUALS COGA # USED BY SUBROUTINE'ITERATOR'.
004185,002460:
004186,002461: # ******* OVERLAY NUMBER 3 IN EBANK 5 *******
004187,002462:
004188,002463: # INCORP STORAGE. (18D)
004189,002464:
004190,002465: E5,1642 E5,1642 ZI EQUALS ENDW # I(18)TMP
004191,002466:
004192,002467: # INCORP/L SR22.3 STORAGE. (21D)
004193,002468:
004194,002469: E5,1642 E5,1664 DELTAX EQUALS ZI +18D # I(18)
004195,002470: E5,1642 E5,1706 VARIANCE EQUALS DELTAX +18D # I(3)
004196,002471:
004197,002472: # MEASUREMENT INCORPORATION -R22- STORAGE. (49D)
004198,002473:
004199,002474: E5,1642 E5,1711 GRP2SVQ EQUALS VARIANCE +3 # I(1)TMP QSAVE FOR RESTARTS
004200,002475: E5,1642 E5,1712 OMEGAM1 EQUALS GRP2SVQ +1 # I(6)
004201,002476: E5,1642 E5,1720 OMEGAM2 EQUALS OMEGAM1 +6 # I(6)
004202,002477: E5,1642 E5,1726 OMEGAM3 EQUALS OMEGAM2 +6 # I(6)
004203,002478: E5,1642 E5,1734 HOLDW EQUALS OMEGAM3 +6 # I(18)
004204,002479: E5,1642 E5,1756 TDPOS EQUALS HOLDW +18D # I(6)
004205,002480: E5,1642 E5,1764 TDVEL EQUALS TDPOS +6 # I(6)
004206,002481:
004207,002482:
004208,002483: E5,1642 E5,1664 TRIPA EQUALS DELTAX # I(3)TMP
004209,002484: E5,1642 E5,1667 TEMPVAR EQUALS TRIPA +3 # I(3)TMP
004210,002485:
004211,002486:
004212,002487:
004213,002488:
004214,002489: # INCORPORATION/INTEGRATION Q STORAGE. (1D)
004215,002490:
004216,002491: E5,1642 E5,1772 EGRESS EQUALS TDVEL +6 # I(1)
004217,002492:
004218,002493:
004219,002494:
004220,002495: # P30/P31 STORAGE. (1D) AND ONE OVERLAY
004221,002496:
004222,002497: E5,1642 E5,1773 P30EXIT EQUALS EGRESS +1 # B(1)TMP
004223,002498:
004224,002499:
004225,002500: E5,1642 E5,1773 ORIGIN EQUALS P30EXIT # I(1)TMP INDEX DURING INITVEL
004226,002501:
004227,002502:
004228,002503: # SYSTEM TEST ERASABLES. CAN OVERLAY W MATRIX. (127D)
004229,002504:
004230,002505: # ******* OVERLAY NUMBER 0 IN EBANK 5 *******
004231,002506:
004232,002507:
004233,002508: E5,1642 E5,1400 AZIMUTH EQUALS W # 2
004234,002509: E5,1642 E5,1402 LATITUDE EQUALS AZIMUTH +2 # 2
004235,002510: E5,1642 E5,1404 ERVECTOR EQUALS LATITUDE +2 # 6
004236,002511: E5,1642 E5,1412 LENGTHOT EQUALS ERVECTOR +6 # 1
004237,002512: E5,1642 E5,1413 LOSVEC EQUALS LENGTHOT +1 # 6
004238,002513: E5,1642 E5,1414 NDXCTR EQUALS LOSVEC +1 # 1
004239,002514: E5,1642 E5,1415 PIPINDEX EQUALS NDXCTR +1 # 1
004240,002515: E5,1642 E5,1416 POSITON EQUALS PIPINDEX +1 # 1
004241,002516: E5,1642 E5,1417 QPLACE EQUALS POSITON +1 # 1
004242,002517: E5,1642 E5,1420 QPLACES EQUALS QPLACE +1 # 1
004243,002518: E5,1642 E5,1421 SOUTHDR EQUALS QPLACES +1 # 7
004244,002519: E5,1642 E5,1430 TEMPTIME EQUALS SOUTHDR +7 # 2
004245,002520: E5,1642 E5,1432 TMARK EQUALS TEMPTIME +2 # 2
004246,002521: E5,1642 E5,1434 GENPL EQUALS TMARK +2
004247,002522: E5,1642 E5,1434 CDUTIMEI = GENPL
004248,002523: E5,1642 E5,1436 CDUTIMEF = GENPL +2
004249,002524: E5,1642 E5,1440 CDUDANG = GENPL +4
004250,002525: E5,1642 E5,1441 CDUREADF = GENPL +5
004251,002526: E5,1642 E5,1442 CDUREADI = GENPL +6
004252,002527: E5,1642 E5,1443 CDULIMIT = GENPL +7
004253,002528:
004254,002529: E5,1642 E5,1440 TEMPADD = GENPL +4
004255,002530: E5,1642 E5,1441 TEMP = GENPL +5
004256,002531: E5,1642 E5,1442 NOBITS = GENPL +6
004257,002532: E5,1642 E5,1443 CHAN = GENPL +7
004258,002533:
004259,002534: E5,1642 E5,1444 LOS1 = GENPL +8D
004260,002535: E5,1642 E5,1452 LOS2 = GENPL +14D
004261,002536:
004262,002537: E5,1642 E5,1460 CALCDIR EQUALS GENPL +20D
004263,002538: E5,1642 E5,1461 CDUFLAG EQUALS GENPL +21D
004264,002539: E5,1642 E5,1462 GYTOBETQ EQUALS GENPL +22D
004265,002540: E5,1642 E5,1463 OPTNREG EQUALS GENPL +23D
004266,002541: E5,1642 E5,1464 SAVE EQUALS GENPL +24D # THREE ONSEC LOC
004267,002542: E5,1642 E5,1467 SFCONST1 EQUALS GENPL +27D
004268,002543: E5,1642 E5,1470 TIMER EQUALS GENPL +28D
004269,002544:
004270,002545: E5,1642 E5,1472 DATAPL EQUALS GENPL +30D
004271,002546: E5,1642 E5,1434 RDSP EQUALS GENPL # FIX LA ER POSSIBLY KEEP1
004272,002547: E5,1642 E5,1534 MASKREG EQUALS GENPL +64D
004273,002548: E5,1642 E5,1536 CDUNDX EQUALS GENPL +66D
004274,002549: E5,1642 E5,1537 RESULTCT EQUALS GENPL +67D
004275,002550: E5,1642 E5,1542 COUNTPL EQUALS GENPL +70D
004276,002551:
004277,002552: E5,1642 E5,1543 CDUANG EQUALS GENPL +71D
004278,002553:
004279,002554: E5,1642 E5,1434 AINLA = GENPL # 110 DE OR 156 OCT LOCATIONS
004280,002555:
004281,002556: E5,1642 E5,1434 WANGO EQUALS AINLA # VERT E ATE
004282,002557: E5,1642 E5,1436 WANGI EQUALS AINLA +2D # HORIZO TAL ERATE
004283,002558: E5,1642 E5,1440 WANGT EQUALS AINLA +4D # T
004284,002559: E5,1642 E5,1440 TORQNDX = WANGT
004285,002560: E5,1642 E5,1442 DRIFTT EQUALS AINLA +6D
004286,002561: E5,1642 E5,1444 ALX1S EQUALS AINLA +8D
004287,002562: E5,1642 E5,1445 CMPX1 EQUALS AINLA +9D # IND
004288,002563: E5,1642 E5,1446 ALK EQUALS AINLA +10D # GAINS
004289,002564: E5,1642 E5,1462 VLAUNS EQUALS AINLA +22D
004290,002565: E5,1642 E5,1464 WPLATO EQUALS AINLA +24D
004291,002566: E5,1642 E5,1470 INTY EQUALS AINLA +28D # SOUTH IP INTE
004292,002567: E5,1642 E5,1472 ANGZ EQUALS AINLA +30D # EAST A IS
004293,002568: E5,1642 E5,1474 INTZ EQUALS AINLA +32D # EAST P P I
004294,002569: E5,1642 E5,1476 ANGY EQUALS AINLA +34D # SOUTH
004295,002570: E5,1642 E5,1500 ANGX EQUALS AINLA +36D # VE
004296,002571: E5,1642 E5,1502 DRIFTO EQUALS AINLA +38D # VERT
004297,002572: E5,1642 E5,1504 DRIFTI EQUALS AINLA +40D # SOU
004298,002573: E5,1642 E5,1510 VLAUN EQUALS AINLA +44D
004299,002574: E5,1642 E5,1512 ACCWD EQUALS AINLA +46D
004300,002575: E5,1642 E5,1520 POSNV EQUALS AINLA +52D
004301,002576: E5,1642 E5,1522 DPIPAY EQUALS AINLA +54D # SOUTH
004302,002577: E5,1642 E5,1526 DPIPAZ EQUALS AINLA +58D # NORTH IP INCREMENT
004303,002578: E5,1642 E5,1530 ALTIM EQUALS AINLA +60D
004304,002579: E5,1642 E5,1531 ALTIMS EQUALS AINLA +61D # INDEX
004305,002580: E5,1642 E5,1532 ALDK EQUALS AINLA +62D # TIME ONSTAN
004306,002581: E5,1642 E5,1550 DELM EQUALS AINLA +76D
004307,002582: E5,1642 E5,1560 WPLATI EQUALS AINLA +84D
004308,002583: E5,1642 E5,1562 GEOCOMPS EQUALS AINLA +86D
004309,002584: E5,1642 E5,1563 ERCOMP EQUALS AINLA +87D
004310,002585: E5,1642 E5,1571 ZERONDX EQUALS AINLA +93D
004311,002586:
004312,002587: E5,1642 E5,1452 THETAN = ALK +4
004313,002588: E5,1642 E5,1460 FILDELV EQUALS THETAN +6 # AGS ALIGNMENT STORAGE
004314,002589: E5,1642 E5,1462 INTVEC EQUALS FILDELV +2
004315,002590: E5,1642 E5,1572 1SECXT = AINLA +94D
004316,002591: E5,1642 E5,1573 ASECXT = AINLA +95D
004317,002592: E5,1642 E5,1574 PERFDLAY EQUALS AINLA +96D # B(2) DELAY TIME BEF. START DRIFT MEASURE
004318,002593: E5,1642 E5,1576 OVFLOWCK EQUALS AINLA +98D # (1) SET MEANS OVERFLOW IN IMU PERF TEST
004319,002594: # AND CAUSES TERMINATION
004320,002595:
004321,002596:
004322,002597: E5,1642 E5,1774 END-E5 EQUALS STARSAV2 +6 # *** FIRST FREE LOCATION IN E5***
004323,002598:
004324,002599: # EBANK-6 ASSIGNMENTS.
004325,002600:
004326,002601: E6,1400 SETLOC 3000
004327,002602:
004328,002603: # DAP PAD-LOADED DATA. (10D)
004329,002604:
004330,002605: # ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP
004331,002606:
004332,002607: E6,1400 HIASCENT ERASE # (1) MASS AFTER STAGING, SCALE AT B16 KG.
004333,002608: E6,1401 ROLLTIME ERASE # (1) TIME TO TRIM Z GIMBAL IN R03, CSEC.
004334,002609: E6,1402 PITTIME ERASE # (1) TIME TO TRIM Y GIMBAL IN R03, CSEC.
004335,002610: E6,1403 DKTRAP ERASE # (1) DAP STATE (POSSIBLE 77001
004336,002611: E6,1404 DKOMEGAN ERASE # (1) ESTIMATOR PARA- (VALUES 00012
004337,002612: E6,1405 DKKAOSN ERASE # (1) METERS FOR THE 00074
004338,002613: E6,1406 LMTRAP ERASE # (1) DOCKED AND 77001
004339,002614: E6,1407 LMOMEGAN ERASE # (1) LEM-ALONE CASES 00000
004340,002615: E6,1410 LMKAOSN ERASE # (1) RESPECTIVELY 00074
004341,002616: E6,1411 DKDB ERASE # (1) WIDTH OF DEADBAND FOR DOCKED RCS
004342,002617: # AUTOPILOT (DB=1.4DEG IN FRESH START)
004343,002618: # DEADBAND = PI/DKDB RAD.
004344,002619:
004345,002620: # AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES: (5D)
004346,002621:
004347,002622: E6,1412 M11 ERASE # SCALED AT 1
004348,002623: E6,1413 M21 ERASE # SCALED AT 1
004349,002624: E6,1414 M31 ERASE
004350,002625: E6,1415 M22 ERASE # SCALED AT 1.
004351,002626: E6,1416 M32 ERASE # SCALED AT 1.
004352,002627:
004353,002628: # ANGLE MEASUREMENTS. (31D)
004354,002629:
004355,002630: E6,1417 OMEGAP ERASE +4 # BODY-AXIS ROT. RATES SCALED AT PI/4 AND
004356,002631: E6,1424 E6,1420 OMEGAQ EQUALS OMEGAP +1 # BODY-AXIS ACCELERATIONS SCALED AT PI/8
004357,002632: E6,1424 E6,1421 OMEGAR EQUALS OMEGAP +2
004358,002633: # RETAIN THE ORDER OF ALPHAQ AND ALPHAR FOR DOWNLINK PURPOSES.
004359,002634: E6,1424 E6,1422 ALPHAQ EQUALS OMEGAP +3
004360,002635: E6,1424 E6,1423 ALPHAR EQUALS OMEGAP +4
004361,002636: E6,1424 OMEGAU ERASE +1
004362,002637: E6,1426 E6,1425 OMEGAV = OMEGAU +1
004363,002638:
004364,002639: E6,1426 TRAPEDP ERASE +5
004365,002640: E6,1434 E6,1427 TRAPEDQ = TRAPEDP +1
004366,002641: E6,1434 E6,1430 TRAPEDR = TRAPEDP +2
004367,002642: E6,1434 E6,1431 NPTRAPS = TRAPEDP +3
004368,002643: E6,1434 E6,1432 NQTRAPS = TRAPEDP +4
004369,002644: E6,1434 E6,1433 NRTRAPS = TRAPEDP +5
004370,002645: E6,1434 E6,1543 EDOTP = EDOT
004371,002646: E6,1434 EDOTQ ERASE +1
004372,002647: E6,1436 E6,1435 EDOTR = EDOTQ +1 # MANY SHARING NAMES
004373,002648: E6,1436 E6,1434 QRATEDIF EQUALS EDOTQ # ALTERNATIVE NAMES:
004374,002649:
004375,002650: E6,1436 E6,1435 RRATEDIF EQUALS EDOTR # DELETE WHEN NO. OF REFERENCES = 0
004376,002651:
004377,002652: E6,1436 E6,1424 URATEDIF EQUALS OMEGAU
004378,002653: E6,1436 E6,1425 VRATEDIF EQUALS OMEGAV
004379,002654: E6,1436 OLDXFORP ERASE +2 # STORED CDU READINGS FOR STATE
004380,002655: E6,1441 E6,1437 OLDYFORP EQUALS OLDXFORP +1 # DERIVATIONS: SCALED AT PI RADIANS (2'S)
004381,002656: E6,1441 E6,1440 OLDZFORQ EQUALS OLDXFORP +2
004382,002657:
004383,002658: E6,1441 SUMRATEQ ERASE +1 # SUM OF UN-WEIGHTED JETRATE TERMS
004384,002659: E6,1443 E6,1442 SUMRATER EQUALS SUMRATEQ +1 # SCALED AT PI/4 RADIANS/SECOND
004385,002660:
004386,002661: # OTHER VARIABLES. (5D)
004387,002662:
004388,002663: E6,1443 OLDPMIN ERASE # THESE THREE USED IN MIN IMPULSE MODE.
004389,002664: E6,1444 OLDQRMIN ERASE
004390,002665: E6,1445 E6,1734 TEMP31 EQUALS DAPTEMP1
004391,002666:
004392,002667: E6,1445 SAVEHAND ERASE +1
004393,002668: E6,1447 1/2JTSP ERASE
004394,002669: E6,1450 PERROR ERASE
004395,002670: E6,1451 QERROR ERASE
004396,002671: E6,1452 RERROR ERASE
004397,002672: # JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW (10D)
004398,002673: # (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
004399,002674:
004400,002675: E6,1453 NXT6ADR ERASE
004401,002676: E6,1454 T6NEXT ERASE +1
004402,002677: E6,1456 T6FURTHA ERASE +1
004403,002678: E6,1460 NEXTP ERASE +2
004404,002679: E6,1463 E6,1461 NEXTU = NEXTP +1
004405,002680: E6,1463 E6,1462 NEXTV = NEXTP +2
004406,002681: E6,1463 -2JETLIM ERASE +1 # RATE COMMAND 4-JET RATE DIFFERENCE LIMIT
004407,002682: E6,1465 E6,1464 -RATEDB EQUALS -2JETLIM +1 # AND RATE DEADBAND FOR ASCENT OR DESCENT
004408,002683: E6,1465 ZEROOR1 ERASE
004409,002684:
004410,002685: E6,1466 E6,1464 TARGETDB EQUALS -RATEDB # MAN. CONTROL TARGET DB COMPLEMENT.
004411,002686:
004412,002687: # *** Q,R AXIS ERASABLES *** (3)
004413,002688:
004414,002689: E6,1466 5015 PBIT EQUALS BIT10
004415,002690: E6,1466 5014 QRBIT EQUALS BIT11
004416,002691: E6,1466 UERROR ERASE +1 # U,V-AXES ATT ERROR FOR RCS CONTROL LAWS
004417,002692: E6,1470 E6,1467 VERROR = UERROR +1
004418,002693: E6,1470 RETJADR ERASE
004419,002694:
004420,002695: E6,1471 E6,1737 TEMPNUM EQUALS DAPTEMP4
004421,002696: E6,1471 E6,1740 NUMBERT EQUALS DAPTEMP5
004422,002697: E6,1471 E6,1741 ROTINDEX EQUALS DAPTEMP6
004423,002698: E6,1471 E6,1734 ROTEMP1 EQUALS DAPTEMP1
004424,002699: E6,1471 E6,1735 ROTEMP2 EQUALS DAPTEMP2
004425,002700: E6,1471 AXISCTR ERASE
004426,002701: E6,1472 E6,1736 POLYTEMP EQUALS DAPTEMP3
004427,002702: E6,1472 SENSETYP ERASE
004428,002703: E6,1473 E6,1734 ABSTJ EQUALS DAPTEMP1 # ABS VALUE OF JET-FIRING TIME
004429,002704: E6,1473 E6,1734 ABSEDOTP EQUALS DAPTEMP1
004430,002705: E6,1473 E6,1734 ANYTRANS EQUALS DAPTEMP1
004431,002706:
004432,002707: E6,1473 E6,1745 DPSBURN EQUALS DAPTREG4 # USED WITH SNUFFBIT. VERY TEMPORARY.
004433,002708:
004434,002709: # TRIM GIMBAL CONTROL LAW ERASABLES: (11D)
004435,002710:
004436,002711: E6,1473 E6,1734 GTSTEMPS EQUALS DAPTEMP1 # GTS IS PART OF THE JASK.
004437,002712: E6,1473 E6,1736 SHFTFLAG EQUALS GTSTEMPS +2 # COUNT HIGH ORDER ZERO BITS FOR SHIFTING.
004438,002713:
004439,002714: E6,1473 E6,1737 ININDEX EQUALS GTSTEMPS +3 # INDEX FOR SHIFT LOOP.
004440,002715:
004441,002716: E6,1473 E6,1471 SAVESR EQUALS AXISCTR # CANNOT BE A DAPTEMP - GTS USES THEM ALL.
004442,002717:
004443,002718: E6,1473 E6,1741 SCRATCH EQUALS GTSTEMPS +5 # ERASABLE FOR ROOTCYCL
004444,002719: E6,1473 E6,1742 HALFARG EQUALS GTSTEMPS +6
004445,002720:
004446,002721: E6,1473 E6,1734 K2THETA EQUALS GTSTEMPS # D.P. K(2)THETA AND NEGUSUM
004447,002722: E6,1473 E6,1736 A2CNTRAL EQUALS GTSTEMPS +2 # D.P. ALPHA(2), AT PI(2)/164 RAD/SEC(2)
004448,002723: E6,1473 E6,1740 KCENTRAL EQUALS GTSTEMPS +4 # S.P. K FROM KQ OR KR, AT PI/2(8)
004449,002724: E6,1473 E6,1740 OMEGA.K EQUALS KCENTRAL # D.P. OMEGA*K OVERLAYS K AND K(2)
004450,002725: E6,1473 E6,1741 K2CNTRAL EQUALS GTSTEMPS +5 # S.P. K(2) FROM Q OR R, AT PI(2)/2(16)
004451,002726: E6,1473 E6,1742 WCENTRAL EQUALS GTSTEMPS +6 # S.P. OMEGA, AT PI/4 RAD/SEC
004452,002727: E6,1473 E6,1743 ACENTRAL EQUALS GTSTEMPS +7 # S.P. ALPHA, AT PI/8 RAD/SEC(2)
004453,002728: E6,1473 E6,1744 DEL EQUALS GTSTEMPS +8D # S.P. SGN FUNCTION VALUE
004454,002729:
004455,002730: E6,1473 E6,1745 QRCNTR EQUALS GTSTEMPS +9D # INDEX FOR GTS LOOP THROUGH Q,R AXES.
004456,002731:
004457,002732: E6,1473 FUNCTION ERASE +1 # D.P. WORD FOR DRIVE FUNCTION
004458,002733:
004459,002734: E6,1475 SCRATCHX ERASE +2 # SCRATCH AREA FOR DVOVSUB ROUTINE.
004460,002735: E6,1500 E6,1476 SCRATCHY EQUALS SCRATCHX +1
004461,002736: E6,1500 E6,1477 SCRATCHZ EQUALS SCRATCHX +2
004462,002737:
004463,002738: E6,1500 NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE
004464,002739: # NEGUQ +1 DEFINED AND USED ELSEWHERE
004465,002740: E6,1503 E6,1502 NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE
004466,002741:
004467,002742: E6,1503 KQ ERASE +3 # .3ACCDOTQ SCALED AT PI/2(8)
004468,002743: E6,1507 E6,1504 KQ2 EQUALS KQ +1 # KQ2 = KQ*KQ
004469,002744: E6,1507 E6,1505 KRDAP EQUALS KQ +2 # .3 ACCDOTR SCALED AT PI/2(8)
004470,002745: E6,1507 E6,1506 KR2 EQUALS KQ +3 # KR2 = KR*KR
004471,002746:
004472,002747: E6,1507 ACCDOTQ ERASE +3 # Q-JERK SCALED AT PI/2(7) UNSIGNED
004473,002748: E6,1513 E6,1510 QACCDOT EQUALS ACCDOTQ +1 # Q-JERK SCALED AT PI/2(7) SIGNED
004474,002749: E6,1513 E6,1511 ACCDOTR EQUALS ACCDOTQ +2 # R-JERK SCALED AT PI/2(7) UNSIGNED
004475,002750: E6,1513 E6,1512 RACCDOT EQUALS ACCDOTQ +3 # R-JERK SCALED AT PI/2(7) SIGNED
004476,002751:
004477,002752: E6,1513 E6,1451 QDIFF EQUALS QERROR # ATTITUDE ERRORS:
004478,002753: E6,1513 E6,1452 RDIFF EQUALS RERROR # SCALED AT PI RADIANS
004479,002754:
004480,002755:
004481,002756:
004482,002757:
004483,002758: # TORQUE VECTOR RECONSTRUCTION VARIABLES: (18D)
004484,002759:
004485,002760: E6,1513 E6,1742 JETRATE EQUALS DAPTREG1
004486,002761: E6,1513 E6,1743 JETRATEQ EQUALS JETRATE +1 # THE LAST CONTROL SAMPLE PERIOD OF 100 MS
004487,002762: E6,1513 E6,1744 JETRATER EQUALS JETRATE +2 # SCALED AT PI/4 RADIANS/SECOND
004488,002763:
004489,002764:
004490,002765: E6,1513 NO.PJETS ERASE +2
004491,002766: E6,1516 E6,1514 NO.UJETS = NO.PJETS +1
004492,002767: E6,1516 E6,1515 NO.VJETS = NO.UJETS +1
004493,002768: E6,1516 TJP ERASE +2
004494,002769: E6,1521 E6,1517 TJU = TJP +1
004495,002770: E6,1521 E6,1520 TJV = TJP +2
004496,002771:
004497,002772: E6,1521 L,PVT-CG ERASE
004498,002773: E6,1522 1JACC ERASE +4 # ACCELERATIONS DUE TO 1 JET TORQUING
004499,002774: E6,1527 E6,1523 1JACCQ EQUALS 1JACC +1 # SCALED AT PI/4 RADIANS/SECOND
004500,002775: E6,1527 E6,1524 1JACCR EQUALS 1JACC +2
004501,002776: E6,1527 E6,1525 1JACCU EQUALS 1JACC +3 # FOR U,V-AXES THE SCALE FACTOR IS DIFF:
004502,002777: E6,1527 E6,1526 1JACCV EQUALS 1JACC +4 # SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
004503,002778:
004504,002779: E6,1527 PJUMPADR ERASE
004505,002780:
004506,002781: # ASCENT VARIABLES: (10D)
004507,002782:
004508,002783: E6,1530 SKIPU ERASE +1
004509,002784: E6,1532 E6,1531 SKIPV = SKIPU +1
004510,002785: # THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
004511,002786: # SECTION OF THE AOSTASK. THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
004512,002787: # SECTIONS AND ELSEWHERE.
004513,002788:
004514,002789: E6,1532 AOSQ ERASE +5 # OFFSET ACC. ESTIMATES, UPDATED IN D.P.,
004515,002790: E6,1540 E6,1534 AOSR EQUALS AOSQ +2 # AND SCALED AT PI/2.
004516,002791: E6,1540 E6,1536 AOSU EQUALS AOSQ +4 # UV-AXES OFFSET ACC. FROMED BY VECTOR
004517,002792: E6,1540 E6,1537 AOSV EQUALS AOSQ +5 # ADDITION OF Q,R. AT PI/2 RAD/SEC(2).
004518,002793:
004519,002794: E6,1540 AOSQTERM ERASE +1 # (.1-.05K)AOS
004520,002795: E6,1542 E6,1541 AOSRTERM EQUALS AOSQTERM +1 # SCALED AT PI/4 RADIANS/SECOND.
004521,002796:
004522,002797: # FOR TJET LAW SUBROUTINE: (TEMPS ONLY)
004523,002798:
004524,002799: # NUMBERT EQUALS DAPTEMP5 DEFINED IN QRAXIS.
004525,002800: E6,1542 E6,1734 EDOTSQ EQUALS DAPTEMP1
004526,002801: E6,1542 E6,1735 ROTSENSE EQUALS DAPTEMP2
004527,002802: E6,1542 E6,1736 FIREFCT EQUALS DAPTEMP3 # LOOKED AT BY PAXIS.
004528,002803: E6,1542 E6,1737 TTOAXIS EQUALS DAPTEMP4
004529,002804: E6,1542 E6,1741 ADRSDIF2 EQUALS DAPTEMP6
004530,002805: E6,1542 E6,1742 HOLDQ EQUALS DAPTREG1
004531,002806: E6,1542 E6,1743 ADRSDIF1 EQUALS DAPTREG2
004532,002807: E6,1542 E6,1744 HH EQUALS DAPTREG3 # DOUBLE PRECISION
004533,002808:
004534,002809: # HH +1 EQUALS DAPTREG4
004535,002810: E6,1542 E ERASE +1
004536,002811: E6,1544 E6,1543 EDOT EQUALS E +1
004537,002812:
004538,002813: # INPUT TO TJET LAW (PERMANENT ERASABLES). (48D)
004539,002814:
004540,002815: E6,1544 E6,1517 TJETU = TJU # EQUATE NAMES. INDEXED BY -1, 0, +1.
004541,002816: E6,1544 BLOCKTOP ERASE +47D
004542,002817: E6,1624 E6,1564 1/ANET1 = BLOCKTOP +16D # THESE 8 PARAMETERS ARE SET UP BY 1/ACCS
004543,002818: E6,1624 E6,1565 1/ANET2 = 1/ANET1 +1 # FOR MINIMUM JETS ABOUT THE U-AXIS WHEN
004544,002819: E6,1624 E6,1570 1/ACOAST = 1/ANET1 +4 # EDOT IS POSITIVE. TJETLAW INDEXES BY
004545,002820: E6,1624 E6,1572 ACCFCTZ1 = 1/ANET1 +6 # ADRSDIFF FROM THESE REGISTERS TO PICK UP
004546,002821: E6,1624 E6,1573 ACCFCTZ5 = 1/ANET1 +7 # PARAMETERS FOR THE PROPER AXIS, NUMBER
004547,002822: E6,1624 E6,1576 FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48
004548,002823: E6,1624 E6,1600 COASTDB = 1/ANET1 +12D # REGISTERS IN ALL IN THIS BLOCK.
004549,002824: E6,1624 E6,1602 AXISDIST = 1/ANET1 +14D # FOUR NOT REFERENCED (P-AXIS) ARE FILLED
004550,002825: # IN BY THE FOLLOWING:
004551,002826: E6,1624 E6,1544 ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
004552,002827: E6,1624 E6,1545 ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS.
004553,002828: E6,1624 E6,1552 FLAT = BLOCKTOP +6 # WIDTH OF MINIMUM IMPULSE ZONE.
004554,002829: E6,1624 E6,1553 ZONE3LIM = BLOCKTOP +7 # HEIGHT OF MINIMUM IMPULSE ZONE(AT 4 SEC)
004555,002830:
004556,002831:
004557,002832:
004558,002833: # VARIABLES FOR GTS-QRAXIS CONTROL EXCHANGE. (4)
004559,002834:
004560,002835: E6,1624 ALLOWGTS ERASE # INSERT INTO UNUSED LOCATION
004561,002836: E6,1625 COTROLER ERASE # INDICATES WHICH CONTROL SYSTEM TO USE.
004562,002837: E6,1626 QGIMTIMR ERASE +2 # Q-GIMBAL DRIVE ITMER, DECISECONDS.
004563,002838: E6,1631 E6,1627 INGTS EQUALS QGIMTIMR +1 # INDICATOR OF CURRENT GTS CONTROL.
004564,002839: E6,1631 E6,1630 RGIMTIMR EQUALS QGIMTIMR +2 # R-GIMBAL DRIVE TIMER, DECISECONDS.
004565,002840:
004566,002841: # PLEASE RETAIN THE ORDER OF CDUXD THRU CDUZD FOR DOWNLINK PURPOSES.
004567,002842:
004568,002843: # KALCMANU:DAP INTERFACE. (9D)
004569,002844:
004570,002845: E6,1631 ACCSET ERASE # INDICATES 1/ACCS HAS BEEN SET UP
004571,002846: E6,1632 CDUXD ERASE +2 # CDU DESIRED REGISTERS:
004572,002847: E6,1635 E6,1633 CDUYD EQUALS CDUXD +1 # SCALED AT PI RADIANS (180 DEGREES)
004573,002848: E6,1635 E6,1634 CDUZD EQUALS CDUXD +2 # (STORE IN 2S COMPLEMENT)
004574,002849:
004575,002850: E6,1635 DELCDUX ERASE +2 # NEGATIVE OF DESIRED 100MS CDU INCREMENT:
004576,002851: E6,1640 E6,1636 DELCDUY EQUALS DELCDUX +1 # SCALED AT PI RADIANS (180 DEGREES)
004577,002852: E6,1640 E6,1637 DELCDUZ EQUALS DELCDUX +2 # (STORE IN 2S COMPLEMENT)
004578,002853:
004579,002854: # RETAIN THE ORDER OF OMEGAPD TO OMEGARD FOR DOWNLINK PURPOSES.
004580,002855: E6,1640 OMEGAPD ERASE +2 # ATTITUDE MANEUVER DESIRED RATES:
004581,002856: E6,1643 E6,1641 OMEGAQD EQUALS OMEGAPD +1 # (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
004582,002857: E6,1643 E6,1642 OMEGARD EQUALS OMEGAPD +2 # SCALED AT PI/4 RADIANS/SECOND
004583,002858:
004584,002859: # KALCMANU STORAGE. (24D)
004585,002860:
004586,002861: E6,1643 MIS ERASE +23D # I(18D)
004587,002862: E6,1673 E6,1665 COF EQUALS MIS +18D # I(6)
004588,002863:
004589,002864:
004590,002865: # KALCMANU STORAGE. (33D)
004591,002866:
004592,002867: E6,1673 BCDU ERASE +30D # B(3)
004593,002868: E6,1732 E6,1676 KSPNDX EQUALS BCDU +3 # B(1)
004594,002869: E6,1732 E6,1677 KDPNDX EQUALS KSPNDX +1 # B(1)
004595,002870:
004596,002871: E6,1732 E6,1700 TMIS EQUALS KDPNDX +1 # I(18) MUST BE IN SAME BANK AS RCS DAP
004597,002872: E6,1732 E6,1722 COFSKEW EQUALS TMIS +18D # I(6) MUST BE IN SAME BANK AS RCS DAP
004598,002873: E6,1732 E6,1730 CAM EQUALS COFSKEW +6 # I(2) MUST BE IN SAME BANK AS RCS DAP
004599,002874:
004600,002875:
004601,002876: E6,1732 AM ERASE +1 # I(2) THIS WAS ONCE IN E5 OVERLAYING OGC
004602,002877:
004603,002878:
004604,002879: # FIRST-ORDER OVERLAYS IN KALCMANU (25D)
004605,002880:
004606,002881: E6,1734 E6,1700 KV1 EQUALS TMIS # I(6)
004607,002882: E6,1734 E6,1700 MFISYM EQUALS TMIS # I
004608,002883: E6,1734 E6,1700 TMFI EQUALS TMIS # I
004609,002884: E6,1734 E6,1700 NCDU EQUALS TMIS # B
004610,002885: E6,1734 E6,1703 NEXTIME EQUALS TMIS +3 # B
004611,002886: E6,1734 E6,1704 TTEMP EQUALS TMIS +4 # B
004612,002887: E6,1734 E6,1706 KV2 EQUALS TMIS +6 # I(6)
004613,002888: E6,1734 E6,1706 BIASTEMP EQUALS TMIS +6 # B
004614,002889: E6,1734 E6,1714 KV3 EQUALS TMIS +12D # I(6)
004615,002890: E6,1734 E6,1714 OGF EQUALS TMIS +12D # I
004616,002891:
004617,002892: E6,1734 E6,1722 BRATE EQUALS COFSKEW # B
004618,002893: E6,1734 E6,1722 IG EQUALS COFSKEW # I
004619,002894:
004620,002895: E6,1734 E6,1730 TM EQUALS CAM # B
004621,002896:
004622,002897: # SECOND-ORDER OVERLAYS IN KALCMANU (24D)
004623,002898:
004624,002899: E6,1734 E6,1700 K1 = KV1
004625,002900: E6,1734 E6,1706 K2 = KV2
004626,002901: E6,1734 E6,1714 K3 = KV3
004627,002902: E6,1734 E6,1700 P21 EQUALS KV1 # I(2)
004628,002903: E6,1734 E6,1702 D21 EQUALS KV1 +2 # I(2)
004629,002904: E6,1734 E6,1704 G21 EQUALS KV1 +4 # I(2)
004630,002905: E6,1734 E6,1706 C2SQP EQUALS KV2 # I(2)
004631,002906: E6,1734 E6,1710 C2SQM EQUALS KV2 +2 # I(2)
004632,002907: E6,1734 E6,1712 C2PP EQUALS KV2 +4 # I(2)
004633,002908: E6,1734 E6,1714 C2MP EQUALS KV3 # I(2)
004634,002909: E6,1734 E6,1716 C1PP EQUALS KV3 +2 # I(2)
004635,002910: E6,1734 E6,1720 C1MP EQUALS KV3 +4 # I(2)
004636,002911:
004637,002912: E6,1734 E6,1722 VECQTEMP = COFSKEW
004638,002913:
004639,002914: E6,1734 E6,1632 DCDU = CDUXD
004640,002915: E6,1734 E6,1635 DELDCDU = DELCDUX
004641,002916: E6,1734 E6,1636 DELDCDU1 = DELCDUY
004642,002917: E6,1734 E6,1637 DELDCDU2 = DELCDUZ
004643,002918:
004644,002919:
004645,002920: # * * * * * * * * * * * * * * * * * * * * * * * *
004646,002921:
004647,002922: # STORAGE FOR FINDCDUW
004648,002923:
004649,002924: # OVERLAYING KALCMANU STORAGE: (26D)
004650,002925:
004651,002926: E6,1734 E6,1643 ECDUW EQUALS MIS
004652,002927: E6,1734 E6,1643 ECDUWUSR EQUALS ECDUW # B(1)TMP
004653,002928: E6,1734 E6,1644 QCDUWUSR EQUALS ECDUWUSR +1 # I(1)TMP
004654,002929: E6,1734 E6,1645 NDXCDUW EQUALS QCDUWUSR +1 # B(1)TMP
004655,002930: E6,1734 E6,1646 FLAGOODW EQUALS NDXCDUW +1 # B(1)TMP
004656,002931: E6,1734 E6,1647 UNFC/2 EQUALS FLAGOODW +1 # I(6)IN
004657,002932: E6,1734 E6,1655 UNWC/2 EQUALS UNFC/2 +6 # I(6)IN
004658,002933: E6,1734 E6,1663 UNFV/2 EQUALS UNWC/2 +6 # I(6) S-S
004659,002934: E6,1734 E6,1663 UNFVX/2 = UNFV/2
004660,002935: E6,1734 E6,1665 UNFVY/2 = UNFV/2 +2
004661,002936: E6,1734 E6,1667 UNFVZ/2 = UNFV/2 +4
004662,002937: E6,1734 E6,1671 -DELGMB EQUALS UNFV/2 +6 # B(3)TMP
004663,002938:
004664,002939: # DEFINED IN THE WORK AREA: (18D)
004665,002940:
004666,002941: E6,1734 UNX/2 = 0
004667,002942: E6,1734 UNY/2 = 6
004668,002943: E6,1734 UNZ/2 = 14
004669,002944:
004670,002945: # END OF FINDCDUW ERASABLES
004671,002946:
004672,002947: # * * * * * * * * * * * * * * * * * * * * * * * *
004673,002948:
004674,002949: # THE FOLLOWING ARE THE DAP REPLACEMENTS FOR THE ITEMPS AND RUPTREGS,NEEDED BECAUSE DAP IS NOW A TOB,JASK,JAB,TOSK
004675,002950: # ...ANYWAY, THE DAP CAN NOW BE INTERRUPTED. (16D)
004676,002951:
004677,002952: E6,1734 DAPTEMP1 ERASE +15D
004678,002953: E6,1754 E6,1735 DAPTEMP2 EQUALS DAPTEMP1 +1
004679,002954: E6,1754 E6,1736 DAPTEMP3 EQUALS DAPTEMP1 +2
004680,002955: E6,1754 E6,1737 DAPTEMP4 EQUALS DAPTEMP1 +3
004681,002956: E6,1754 E6,1740 DAPTEMP5 EQUALS DAPTEMP1 +4
004682,002957: E6,1754 E6,1741 DAPTEMP6 EQUALS DAPTEMP1 +5
004683,002958: E6,1754 E6,1742 DAPTREG1 EQUALS DAPTEMP1 +6
004684,002959: E6,1754 E6,1743 DAPTREG2 EQUALS DAPTEMP1 +7
004685,002960: E6,1754 E6,1744 DAPTREG3 EQUALS DAPTEMP1 +8D
004686,002961:
004687,002962: E6,1754 E6,1745 DAPTREG4 EQUALS DAPTEMP1 +9D
004688,002963: E6,1754 E6,1746 DAPTREG5 EQUALS DAPTEMP1 +10D
004689,002964: E6,1754 E6,1747 DAPTREG6 EQUALS DAPTEMP1 +11D
004690,002965:
004691,002966: E6,1754 E6,1746 DAPARUPT EQUALS DAPTEMP1 +10D
004692,002967: E6,1754 E6,1747 DAPLRUPT EQUALS DAPARUPT +1
004693,002968: E6,1754 E6,1750 DAPBQRPT EQUALS DAPARUPT +2
004694,002969: E6,1754 E6,1752 DAPZRUPT EQUALS DAPARUPT +4
004695,002970:
004696,002971: # (DAPZRUPT IS ALSO JASK-IN-PROGRESS FLAG)
004697,002972:
004698,002973:
004699,002974:
004700,002975: # NEEDLER(ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE. (6D)
004701,002976:
004702,002977: E6,1754 0061 T5TEMP EQUALS ITEMP1
004703,002978: E6,1754 0063 DINDX EQUALS ITEMP3
004704,002979: E6,1754 AK ERASE +2 # NEEDLER ATTITUDE INPUTS, SCALED AT 180
004705,002980: E6,1757 E6,1755 AK1 EQUALS AK +1 # DEGREES. P,Q,R AXES IN AK,AK1,AK2.
004706,002981: E6,1757 E6,1756 AK2 EQUALS AK +2
004707,002982:
004708,002983: E6,1757 EDRIVEX ERASE +2 # NEEDLER DISPLAY REGS AT 1800 DEGREES.
004709,002984: E6,1762 E6,1760 EDRIVEY EQUALS EDRIVEX +1 # SO THAT 384 BITS REPRESENT 42 3/16 DEG.
004710,002985: E6,1762 E6,1761 EDRIVEZ EQUALS EDRIVEX +2
004711,002986:
004712,002987:
004713,002988: # INITVEL STORAGE. ALSO USED BY P31,P34,P35,P74,P75,S40.1 AND DOWNLINKED. (6D)
004714,002989:
004715,002990: E6,1762 DELVEET3 ERASE +5 # I(6) DELTA V IN INERTIAL
004716,002991:
004717,002992:
004718,002993: # P32-P33 STORAGE. (2)
004719,002994:
004720,002995: E6,1770 TCDH ERASE +1 # I(2) T2 CDH TIME IN C.S. ALSO DWNLINKED
004721,002996:
004722,002997:
004723,002998: E6,1772 E4,1733 END-E6 EQUALS RTX2 # LAST LOCATION USED IN E6.
004724,002999:
004725,003000: # EBANK-7 ASSIGNMENTS
004726,003001:
004727,003002: E7,1400 SETLOC 3400
004728,003003:
004729,003004:
004730,003005: # P35 CONSTANTS. -PAD LOADED- (4D)
004731,003006:
004732,003007: E7,1400 ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST
004733,003008: E7,1402 PTIGINC ERASE +1 # B(2)PL
004734,003009:
004735,003010:
004736,003011: # AOTMARK STORAGE. -PAD LOADED- (6D)
004737,003012:
004738,003013: E7,1404 AOTAZ ERASE +2 # B(3)PL
004739,003014: E7,1407 AOTEL ERASE +2 # B(3)PL
004740,003015:
004741,003016:
004742,003017: # LANDING RADAR. -PAD LOADED- (10D)
004743,003018:
004744,003019: E7,1412 LRALPHA ERASE +4 # B(1) POS1 X ROTATION * MUST *
004745,003020: E7,1417 E7,1413 LRBETA1 EQUALS LRALPHA +1 # B(1) POS1 Y ROTATION * BE *
004746,003021: E7,1417 E7,1414 LRALPHA2 EQUALS LRBETA1 +1 # B(1) POS2 X ROTATION * IN *
004747,003022: E7,1417 E7,1415 LRBETA2 EQUALS LRALPHA2 +1 # B(1) POS2 Y ROTATION * ORDER *
004748,003023: E7,1417 E7,1416 HANGLE EQUALS LRBETA2 +1 # B(1)
004749,003024:
004750,003025: # THROTTLE STORAGE. -PAD LOADED- (1D)
004751,003026:
004752,003027: E7,1417 PIF ERASE # B(2) THROTTLE
004753,003028: E7,1420 ZOOMTDP ERASE +1
004754,003029: E7,1422 E7,1421 ZOOMTIME EQUALS ZOOMTDP +1 # B(1)PL TIME OF DPS THROTTLE-UP COMMAND
004755,003030:
004756,003031: # LANDING RADAR -PAD LOADED- (2D)
004757,003032:
004758,003033: # P30-P40 INTERFACE UNSHARED. (2D)
004759,003034:
004760,003035: E7,1422 TIG(AS) ERASE +1 # B(2)
004761,003036: E7,1424 TIG ERASE +1 # B(2)
004762,003037:
004763,003038: # P30-P40 INTERFACE UNSHARED. (3D)
004764,003039:
004765,003040: E7,1426 TTOGO ERASE +1 # B(2)
004766,003041: E7,1430 E7,1426 TFI EQUALS TTOGO
004767,003042: E7,1430 WHICH ERASE # B(1)
004768,003043:
004769,003044:
004770,003045: # LPS20.1 STORAGE -ALL ARE PRM - (9D)
004771,003046:
004772,003047: E7,1431 LS21X ERASE # I(1)
004773,003048: E7,1432 UNUSED8 ERASE
004774,003049: E7,1433 LOSCOUNT ERASE # B(1)
004775,003050: E7,1434 LOSVEL ERASE +5 # I(6)
004776,003051: E7,1442 MLOSV ERASE +1 # I(2) MAGNITUDE OF LOS, METERS B-29
004777,003052:
004778,003053:
004779,003054:
004780,003055: # L SR22.3 (RENDEZVOUS NAVIGATION) STORAGE. (4D)
004781,003056:
004782,003057: # RETAIN THE ORDER OF AIG TO TRKMKCNT FOR DOWNLINK PURPOSES.
004783,003058: E7,1444 AIG ERASE # B(1)OUT GIMGAL ANGLES
004784,003059: E7,1445 AMG ERASE # B(1)OUT (MUST BE
004785,003060: E7,1446 AOG ERASE # B(1)OUT CONSECUTIVE)
004786,003061:
004787,003062: E7,1447 TRKMKCNT ERASE # B(1)TMP TEMPORARY MARK STORAGE.
004788,003063: E7,1450 E7,1447 MARKCTR = TRKMKCNT
004789,003064:
004790,003065:
004791,003066: # P32-P35, P72-P75 STORAGE. -PERMANENT- (6)
004792,003067:
004793,003068: E7,1450 NORMEX ERASE # B(1) PRM SAVE FOR Q
004794,003069: E7,1451 QSAVED ERASE # B(1) PRM SAVE FOR Q
004795,003070: E7,1452 RTRN ERASE # B(1) PRM SAVE FOR Q
004796,003071: E7,1453 NN ERASE +1 # B(2)
004797,003072: E7,1455 SUBEXIT ERASE # B(1) PRM SAVE Q
004798,003073:
004799,003074:
004800,003075: E7,1456 E7OVERLA EQUALS # START OF E7 OVERLAYS
004801,003076:
004802,003077: E7,1456 E7,1456 WHOCARES EQUALS E7OVERLA # A DUMMY FOR E-BANK INSENSITIVE 2CADRS.
004803,003078:
004804,003079: # ******* OVERLAY NUMBER 0 IN EBANK 7 *******
004805,003080:
004806,003081:
004807,003082:
004808,003083: # RENDEZVOUS GUIDANCE STORAGE -P32....P35- (89D)
004809,003084:
004810,003085: E7,1456 E7,1564 TSTRT EQUALS DELDV # MIDCOURSE START TIME
004811,003086: E7,1456 E7,1560 TDEC2 EQUALS DELVCSI # TEMP STORAGE FOR INTEGRATION TIME INPUT
004812,003087: E7,1456 E7,1562 KT EQUALS DELVTPI # TEMP STORAGE FOR MIDCOURSE DELTA TIME
004813,003088: E7,1456 VACT1 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CSI TIME
004814,003089: E7,1464 RPASS1 ERASE +5D # POSITION VECTOR OF PASSIVE AT CSI TIME
004815,003090: E7,1472 VPASS1 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CSI TIME
004816,003091: E7,1500 VACT2 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT CDH TIME
004817,003092: E7,1506 RPASS2 ERASE +5D # POSITION VECTOR OF PASSIVE AT CDH TIME
004818,003093: E7,1514 VPASS2 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT CDH TIME
004819,003094: E7,1522 RACT3 ERASE +5D # POSITION VECTOR OF ACTIVE AT TPI TIME
004820,003095: E7,1530 VACT3 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT TPI TIME
004821,003096: E7,1536 RPASS3 ERASE +5D # POSITION VECTOR OF PASSIVE AT TPI TIME
004822,003097: E7,1544 VPASS3 ERASE +5D # VELOCITY VECTOR OF PASSIVE AT TPI TIME
004823,003098: E7,1552 VACT4 ERASE +5D # VELOCITY VECTOR OF ACTIVE AT INTERCEPT
004824,003099: E7,1560 E7,1530 UNVEC EQUALS VACT3 # CDHMVR UNIT VECTOR TEMP STORAGE.
004825,003100: E7,1560 DELVCSI ERASE +1D # THRUST VALUE AT CSI
004826,003101: E7,1562 DELVTPI ERASE +1D # THRUST VALUE AT TPI OR MID
004827,003102: E7,1564 DELDV ERASE +1D
004828,003103: E7,1566 E7,1562 DELVMID EQUALS DELVTPI
004829,003104: E7,1566 DIFFALT ERASE +1D # ALT DIFFERENCE AT CDH
004830,003105: E7,1570 POSTCSI ERASE +1 # PERIGEE ALTITUDE AFTER CSI MANEUVER
004831,003106: E7,1572 POSTCDH ERASE +1 # PERIGEE ALTITUDE AFTER CDH MANEUVER
004832,003107: E7,1574 POSTTPI ERASE +1 # PERIGEE ALTITUDE AFTER TPI MANEUVER
004833,003108: E7,1576 E7,1574 LOOPCT EQUALS POSTTPI # CSI NEWTON ITERATION COUNTER
004834,003109: E7,1576 E7,1572 HAFPA1 EQUALS POSTCDH # HALF PERIOD
004835,003110: E7,1576 GAMPREV ERASE +1 # PREVIOUS GAMMA
004836,003111: E7,1600 E7,1562 DVPREV EQUALS DELVTPI # PREVIOUS DELVCSI
004837,003112: E7,1600 CSIALRM ERASE +1 # FIRST SOLUTION ALARM
004838,003113: E7,1602 VERBNOUN ERASE
004839,003114: E7,1603 E7,1600 TITER EQUALS CSIALRM # ITERATION COUNTER
004840,003115: E7,1603 RDOTV ERASE +1
004841,003116: E7,1605 E7,1472 VAPREC EQUALS VPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
004842,003117: E7,1605 E7,1464 RAPREC EQUALS RPASS1 # I(6) S-S PREC VEC FOR NOM TPI TIME(ACT V
004843,003118: E7,1605 E7,1514 VPPREC EQUALS VPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
004844,003119: E7,1605 E7,1506 RPPREC EQUALS RPASS2 # I(6) S-S PREC VEC FOR NOM TPI TIME(PASS
004845,003120: E7,1605 E7,1562 DELEL EQUALS DELVTPI # I(2) S-S
004846,003121: E7,1605 E7,1564 DELTEE EQUALS DELDV # I(2)S-S
004847,003122: E7,1605 E7,1560 SECMAX EQUALS DELVCSI # I(2) S-S MAX STOP SIZE FOR ROUTINE
004848,003123: E7,1605 E7,1574 DELTEEO EQUALS POSTTPI # I(2) S-S BACK VALUES OF DELTA TIME
004849,003124: E7,1605 CENTANG ERASE +1 # I(2) S-S CENTRAL ANGLE COVERED(TPI-TPF)
004850,003125:
004851,003126: # P34-P35 STORAGE. DOWNLINKED.
004852,003127:
004853,003128: # (2D)
004854,003129:
004855,003130: E7,1607 E7,1564 DELVTPF EQUALS DELDV # I(2) DELTA V FOR TPF
004856,003131:
004857,003132: # SOME P47 STORAGE (6D)
004858,003133:
004859,003134: E7,1607 DELVIMU ERASE +5 # I(6)DSP NOUN 83 FOR P47 DELTA V (IMU)
004860,003135:
004861,003136:
004862,003137: # P30-P40 COMMON STORAGE. (3D)
004863,003138:
004864,003139: E7,1615 TPASS4 ERASE +1 # INTERCEPT TIME
004865,003140: E7,1617 QTEMP ERASE # I(1)TMP COMMON RETURN SAVE REGISTER.
004866,003141:
004867,003142:
004868,003143:
004869,003144: # P32,33,34 STORAGE. (6D)
004870,003145:
004871,003146: E7,1620 TCSI ERASE +1 # B(2) TMP CSI TIME IN CENTISECONDS
004872,003147: E7,1622 TTPI ERASE +1 # B(2) TMP TPI TIME IN CENTISECONDS
004873,003148: E7,1624 TTPI0 ERASE +1 # B(2) TMP TTPI STORAGE FOR RECYCLE
004874,003149:
004875,003150:
004876,003151: # P30,P40 INTERFACE. (21D)
004877,003152:
004878,003153: E7,1626 RTIG ERASE +19D # I(6)TMP
004879,003154: E7,1652 E7,1634 VTIG EQUALS RTIG +6 # I(6)TMP
004880,003155: E7,1652 E7,1642 DELVSIN EQUALS VTIG +6 # I(6)TMP
004881,003156: E7,1652 E7,1650 DELVSAB EQUALS DELVSIN +6 # I(2)TMP
004882,003157: E7,1652 E7,1650 VGDISP = DELVSAB
004883,003158:
004884,003159:
004885,003160: E7,1652 QTEMP1 ERASE # I(1)TMP HOLDS RETURN.
004886,003161: E7,1653 E7,1652 RGEXIT EQUALS QTEMP1 # SAVE Q
004887,003162: E7,1653 E7,1652 SAVQR52 EQUALS QTEMP1
004888,003163:
004889,003164:
004890,003165: # INITVEL STORAGE. (IN OVERLAY 0 AND OVERLAY 1. (2D)
004891,003166: # (CALLS LAMBERT, CONIC SUBROUTINES)
004892,003167:
004893,003168: E7,1653 E7,1552 VTPRIME EQUALS VACT4 # TOTAL VELOCITY AT DESIRED RADIUS
004894,003169: E7,1653 E7,1603 ITCTR EQUALS RDOTV # ITERATION COUNTER
004895,003170: E7,1653 COZY4 ERASE +1 # COS OF ANGLE WHEN ROTATION STARTS
004896,003171: E7,1655 E7,1564 X1INPUT EQUALS DELDV # X1 TEMP STORAGE
004897,003172: E7,1655 E7,1576 INTIME EQUALS GAMPREV # TIME OF RINIT
004898,003173:
004899,003174:
004900,003175:
004901,003176: # PERIAPO STORAGE. (2D) (2D)
004902,003177:
004903,003178: E7,1655 XXXALT ERASE +1 # RADIUS TO LAUNCH PAD OR LANDING SIGHT
004904,003179:
004905,003180: E7,1657 E7,1657 END-IN/M EQUALS XXXALT +2 # NEXT AVAIL ERASABLE AFTER INITVEL/MIDGIM
004906,003181:
004907,003182: # S40.1 STORAGE. (19D)
004908,003183:
004909,003184: E7,1657 BDT ERASE +18D # I(6) IN
004910,003185: E7,1702 E7,1665 UT EQUALS BDT +6 # I(6)OUT THRUST DIRECTION
004911,003186: E7,1702 E7,1673 VGTIG EQUALS UT +6 # I(6)OUT
004912,003187: E7,1702 E7,1673 VGPREV = VGTIG
004913,003188: # S40.9 STORAGE. (16D)
004914,003189:
004915,003190: E7,1702 VG ERASE +15D # I(6)TMP
004916,003191: E7,1722 E7,1710 VRPREV EQUALS VG +6 # I(6)TMP
004917,003192: E7,1722 E7,1716 TNIT EQUALS VRPREV +6 # I(2)TMP TIME SIMCE LAST CALL TO S40.9
004918,003193: E7,1722 E7,1720 TNITPREV EQUALS TNIT +2 # I(2)TMP PREVIOUS INIT.
004919,003194:
004920,003195:
004921,003196: # P40 STORAGE. (6D)
004922,003197:
004923,003198: # F,MDOT,AND TDECAY MUST BE CONTIGUOUS FOR VLOAD.
004924,003199: E7,1722 F ERASE +5 # I(2)TMP S40.1 GENERATES THIS FOR S40.3
004925,003200: E7,1730 E7,1724 MDOT EQUALS F +2 # I(2)TMP MASS CHNG RATE, KG/CS AT 2**3.
004926,003201: E7,1730 E7,1726 TDECAY EQUALS MDOT +2 # I(2)IN DELTA-T TAILOFF, (2**28)CS.
004927,003202:
004928,003203:
004929,003204:
004930,003205: # MIDTOAV1(2) STORAGE. (CALLED BY P40,P41,P42) (1D)
004931,003206:
004932,003207: E7,1730 IRETURN1 ERASE # B(1) RETURN FROM MIDTOAV1 AND 2
004933,003208:
004934,003209:
004935,003210: # ******* OVERLAY NUMBER 1 IN EBANK 7 *******
004936,003211:
004937,003212:
004938,003213:
004939,003214: # P35-P40 INTERFACE. (6D)
004940,003215:
004941,003216: E7,1731 E7,1472 VPASS4 EQUALS VPASS1 # I(6)TMP VELOCITY OF PASSIVE AT INTERCEPT
004942,003217:
004943,003218:
004944,003219: # INITVEL OVERLAYS RENDESVOUS GUIDANCE (LISTED IN OVERLAY O)
004945,003220:
004946,003221: # SOME P38-39,P78-79 STORAGE. (2D)
004947,003222:
004948,003223: E7,1731 E7,1615 TINT EQUALS TPASS4 # I(2) TIME OF INTERCEPT
004949,003224:
004950,003225:
004951,003226: # LAT - LONG TEMPORARIES. CAN OVERLAY WITH S40.1 (3D)
004952,003227:
004953,003228: E7,1731 E7,1657 ERADM EQUALS BDT # I(2)
004954,003229: E7,1731 E7,1661 INCORPEX EQUALS ERADM +2 # I(1)
004955,003230:
004956,003231:
004957,003232: # LRS24.1 STORAGE. (CAN SHARE WITH P30'S) (40D)
004958,003233:
004959,003234: E7,1731 E7,1662 RLMSRCH EQUALS INCORPEX +1 # I(6) TMP LM POSITION VECTOR
004960,003235: E7,1731 E7,1670 VXRCM EQUALS RLMSRCH +6 # I(6) CM V X R VECTOR
004961,003236: E7,1731 E7,1676 LOSDESRD EQUALS VXRCM +6 # I(6) DESIRED LOS VECTOR
004962,003237: E7,1731 E7,1704 UXVECT EQUALS LOSDESRD +6 # I(6) X-AXIS SRCH PATTERN COORDS
004963,003238: E7,1731 E7,1712 UYVECT EQUALS UXVECT +6 # I(6) Y-AXIS SRCH PATTERN COORDS
004964,003239: E7,1731 E7,1720 DATAGOOD EQUALS UYVECT +6 # B(1)DSP FOR R1 - ALL 1-S WHEN LOCKON
004965,003240: E7,1731 E7,1721 OMEGDISP EQUALS DATAGOOD +1 # B(2) ANGLE OMEGA DISPLAYED IN R2
004966,003241: E7,1731 E7,1721 OMEGAD = OMEGDISP # PINBALL DEFINITION.
004967,003242: E7,1731 E7,1723 NSRCHPNT EQUALS OMEGDISP +2 # B(1)TMP SEARCH PATTERN POINT COUNTER.
004968,003243: E7,1731 E7,1724 SAVLEMV EQUALS NSRCHPNT +1 # I(6)S-S SAVES LOSVEL
004969,003244:
004970,003245:
004971,003246:
004972,003247:
004973,003248: # ******* OVERLAY NUMBER 2 IN EBANK 7 *******
004974,003249:
004975,003250:
004976,003251:
004977,003252: # INCORP STORAGE IN E7. (47D)
004978,003253:
004979,003254: E7,1731 E7,1456 TX789 EQUALS E7OVERLA # I(6)
004980,003255: E7,1731 E7,1464 GAMMA EQUALS TX789 +6 # I(3)
004981,003256: E7,1731 E7,1467 OMEGA EQUALS GAMMA +3 # I(18)
004982,003257: E7,1731 E7,1511 BVECTOR EQUALS OMEGA +18D # I(18)
004983,003258: E7,1731 E7,1533 DELTAQ EQUALS BVECTOR +18D # I(2)
004984,003259: # AOTMARK STORAGE (3D)
004985,003260:
004986,003261: E7,1731 E7,1535 MARKCNTR EQUALS DELTAQ +2 # I(1)
004987,003262: E7,1731 E7,1536 XYMARK EQUALS MARKCNTR +1 # B(1)
004988,003263: E7,1731 E7,1537 MKDEX EQUALS XYMARK +1 # B(1)TMP INDEX FOR AOTMARK
004989,003264:
004990,003265:
004991,003266: # PLANET STORAGE. (8D)
004992,003267:
004993,003268: E7,1731 E7,1540 PLANVEC EQUALS MKDEX +1 # (6) REFER VECTOR OF PLANET
004994,003269: E7,1731 E7,1546 TSIGHT EQUALS PLANVEC +6 # (2) TIME OF MARK OR EST TIME OF MARK
004995,003270:
004996,003271:
004997,003272:
004998,003273: # LRS22.3 STORAGE. (CAN SHARE WITH P30'S AND OVERLAY LRS24.1 (30D).
004999,003274:
005000,003275: E7,1731 E7,1662 LGRET EQUALS INCORPEX +1 # I(1) TMP
005001,003276: E7,1731 E7,1662 RDRET EQUALS LGRET # B(1) TEMP RETURN.
005002,003277: E7,1731 E7,1662 IGRET EQUALS RDRET # B(1) TEMP RETURN.
005003,003278: E7,1731 E7,1663 MX EQUALS RDRET +1 # I(6)
005004,003279: E7,1731 E7,1671 MY EQUALS MX +6 # I(6)
005005,003280: E7,1731 E7,1677 MZ EQUALS MY +6 # I(6)
005006,003281: E7,1731 E7,1663 E0 EQUALS MX # I(2)
005007,003282: E7,1731 E7,1665 E1 EQUALS MX +2 # I(2)
005008,003283: E7,1731 E7,1667 E2 EQUALS MX +4 # I(2)
005009,003284: E7,1731 E7,1671 E3 EQUALS E2 +2 # I(2)
005010,003285: E7,1731 E7,1705 SCALSHFT EQUALS MZ +6 # B(1) SCALE SHIFT FOR EARTH/MOON
005011,003286: E7,1731 E7,1706 RXZ EQUALS SCALSHFT +1 # I(2)
005012,003287: E7,1731 E7,1710 ULC EQUALS RXZ +2 # I(6)
005013,003288: E7,1731 E7,1716 SINTHETA EQUALS ULC +6 # I(2)
005014,003289:
005015,003290: # ***** IN OVERLAY ONE *****
005016,003291:
005017,003292: E7,1731 E7,1732 N49FLAG EQUALS LRS22.1X # B(1)S FLAG INDICATING V0649 RESPONSE
005018,003293:
005019,003294:
005020,003295: # LRS22.1 STORAGE. (MUST NOT SHARE WITH P30'S) (13D)
005021,003296:
005022,003297: # (OUTPUTS ARE TO LRS22.3)
005023,003298:
005024,003299: E7,1731 E7,1720 RDOTM EQUALS SINTHETA +2 # B(2)OUT RANGE-RATE READING
005025,003300: E7,1731 E7,1722 RRTRUN EQUALS RDOTM +2 # B(2)OUT RR TRUNION ANGLE
005026,003301: E7,1731 E7,1724 RRSHAFT EQUALS RRTRUN +2 # B(2)OUT RRSHAFT ANGLE
005027,003302: # RETAIN THE ORDER OF MKTIME TO RM FOR DOWNLINK PURPOSES
005028,003303: E7,1731 E7,1726 MKTIME EQUALS RRSHAFT +2 # B(2)OUT TIME OF RR READING
005029,003304: E7,1731 E7,1730 RM EQUALS MKTIME +2 # I(2)OUT RANGE READING
005030,003305: E7,1731 E7,1732 LRS22.1X EQUALS RM +2 # B(1)TMP
005031,003306: E7,1731 E7,1733 RRBORSIT EQUALS LRS22.1X +1 # I(6) TMP RADAR BORESIGHT VECTOR.
005032,003307: E7,1731 E7,1741 RDOTMSAV EQUALS RRBORSIT +6 # B(2) S RR RANGE-RATE(FPS)
005033,003308:
005034,003309:
005035,003310: # LRS22.1 (SAME AS PREVIOUS SECTION) ALSO DOWNLINK FOR RR (R29)(8D) CANNOT SHARE WITH L.A.D.
005036,003311:
005037,003312: E7,1731 E7,1743 TANGNB EQUALS RDOTMSAV +2 # B(2)TMP RR GIMBAL ANGLES
005038,003313:
005039,003314:
005040,003315:
005041,003316:
005042,003317: # P21 STORAGE (2D)
005043,003318:
005044,003319: E7,1731 E7,1745 P21TIME EQUALS TANGNB +2 # I(2)TMP
005045,003320:
005046,003321:
005047,003322: # KALCMANU, VECPOINT STORAGE. CALLED BY R63, R61, R65. (12D)
005048,003323:
005049,003324: E7,1731 1247 SCAXIS EQUALS /AF/
005050,003325: E7,1731 1255 POINTVSM EQUALS SCAXIS +6 # I(6)
005051,003326:
005052,003327:
005053,003328: # ******* OVERLAY NUMBER 3 IN EBANK 7 *******
005054,003329:
005055,003330:
005056,003331: # BURN PROG STORAGE. (2D)
005057,003332:
005058,003333: E7,1731 E7,1456 SAVET-30 EQUALS E7OVERLA # B(2)TMP TIG-30 RESTART
005059,003334:
005060,003335:
005061,003336: # CROSS-PRODUCT STEERING ACTUAL (6D)
005062,003337: E7,1731 E7,1460 UASTEER EQUALS SAVET-30 +2
005063,003338: E7,1731 E7,1763 UDSTEER EQUALS LASTLADW +3
005064,003339: E7,1731 E7,1771 S40EXIT = UDSTEER +6
005065,003340: E7,1731 E7,1772 VGBODY = S40EXIT +1 # B(6)OUT SET.BY S41.1 VG LEM, SC.COORDS
005066,003341: E7,1731 E7,1772 DELVCTL = VGBODY
005067,003342:
005068,003343: # SERVICER STORAGE. (69D)
005069,003344:
005070,003345: E7,1731 E7,1466 DVTOTAL EQUALS UASTEER +6 # B(2) DISPLAY NOUN
005071,003346: E7,1731 E7,1470 ABDVCONV EQUALS DVTOTAL +2 # I(2)
005072,003347: E7,1731 E7,1472 DVCNTR EQUALS ABDVCONV +2 # B(1)
005073,003348: E7,1731 E7,1473 TGO EQUALS DVCNTR +1 # B(2)
005074,003349: E7,1731 E7,1475 R EQUALS TGO +2 # I(6)
005075,003350: E7,1731 E7,1475 UNITGOBL EQUALS R # I(6)
005076,003351: E7,1731 E7,1503 V EQUALS R +6
005077,003352: E7,1731 E7,1503 DELVREF EQUALS V # I(6)
005078,003353: E7,1731 E7,1511 HCALC EQUALS DELVREF +6 # B(2) LR
005079,003354:
005080,003355: E7,1731 E7,1513 ABVELINT EQUALS HCALC +2 # B(2)
005081,003356: E7,1731 E7,1515 ABVEL EQUALS ABVELINT +2 # B(2) DISPLAY
005082,003357: E7,1731 E7,1517 HDOTDISP EQUALS ABVEL +2 # B(2) DISPLAY
005083,003358: E7,1731 E7,1521 TTFDISP EQUALS HDOTDISP +2 # B(2) DISPLAY
005084,003359:
005085,003360:
005086,003361: E7,1731 E7,1523 UNIT/R/ EQUALS TTFDISP +2 # I(6)
005087,003362: # (THE FOLLOWING SERVICER ERASABLES CAN BE SHARED WITH SECOND DPS GUIDANCE STORAGE)
005088,003363:
005089,003364: E7,1731 E7,1531 RN1 EQUALS UNIT/R/ +6 # B(6)
005090,003365: E7,1731 E7,1537 VN1 EQUALS RN1 +6 # I(6) (IN ORDER )
005091,003366: E7,1731 E7,1545 PIPTIME1 EQUALS VN1 +6 # B(2) ( FOR )
005092,003367: E7,1731 E7,1547 GDT1/2 EQUALS PIPTIME1 +2 # I(6) ( COPY )
005093,003368: E7,1731 E7,1555 MASS1 EQUALS GDT1/2 +6 # I(2) ( CYCLE )
005094,003369: E7,1731 E7,1557 R1S EQUALS MASS1 +2 # I(6)
005095,003370: E7,1731 E7,1565 V1S EQUALS R1S +6 # I(6)
005096,003371:
005097,003372: # ALIGNMENT/S40.2.3 COMMON STORAGE. (18D)
005098,003373:
005099,003374: E7,1731 E7,1573 XSMD EQUALS V1S +6 # I(6)
005100,003375: E7,1731 E7,1601 YSMD EQUALS XSMD +6 # I(6)
005101,003376: E7,1731 E7,1607 ZSMD EQUALS YSMD +6 # I(6)
005102,003377:
005103,003378: E7,1731 E7,1573 XSCREF = XSMD
005104,003379: E7,1731 E7,1601 YSCREF = YSMD
005105,003380:
005106,003381: E7,1731 E7,1607 ZSCREF = ZSMD
005107,003382:
005108,003383: E7,1731 E7,1615 END-ALIG EQUALS ZSMD +6 # NEXT AVAIL ERASABLE AFTER ALIGN/S40.2,3
005109,003384:
005110,003385: # ******* OVERLAY NUMBER 4 IN EBANK 7 *******
005111,003386:
005112,003387:
005113,003388: # AUTO-OPTICS STORAGE. -R52- (1)
005114,003389:
005115,003390: E7,1731 E7,1456 XNB1 = WHOCARES # THESE WHOCARES THINGS ARE REFERENCED.
005116,003391: E7,1731 E7,1456 YNB1 = WHOCARES # BUT NOT USED IN SUNDANCE
005117,003392: E7,1731 E7,1456 ZNB1 = WHOCARES
005118,003393:
005119,003394:
005120,003395: # VARIABLES FOR SECOND DPS GUIDANCE (THE LUNAR LANDING) (84D)
005121,003396:
005122,003397: # THESE ERASABLES MAY BE SHARED WITH CARE
005123,003398:
005124,003399: E7,1731 E7,1531 OURTEMPS = RN1 # OVERLAY LAST PART OF SERVICER
005125,003400: E7,1731 E7,1531 RGU = OURTEMPS # I(6) GUIDANCE
005126,003401: E7,1731 E7,1540 LANDTEMP = OURTEMPS +7 # B(6) GUIDANCE
005127,003402: E7,1731 E7,1546 TTF/8TMP = LANDTEMP +6 # B(2) GUIDANCE
005128,003403: E7,1731 E7,1550 TABLTTF = TTF/8TMP +2 # B(2) GUIDANCE
005129,003404: E7,1731 E7,1550 FCODD = TABLTTF # B(2) THROTTLE
005130,003405: E7,1731 E7,1552 FP = FCODD +2 # B(2) THROTTLE
005131,003406: E7,1731 E7,1561 TPIPOLD = TABLTTF +9D # B(2) GUIDANCE
005132,003407: E7,1731 E7,1563 AZINCR = TPIPOLD +2 # B(2) GUIDANCE
005133,003408: E7,1731 E7,1565 ELINCR = AZINCR +2 # B(2) GUIDANCE
005134,003409: E7,1731 E7,1567 KEEP-2 = ELINCR +2 # B(2) TO PREVENT PIPTIME1 OVERLAY
005135,003410: E7,1731 E7,1567 /AFC/ = TPIPOLD +6 # B(2) GUIDANCE AND THROTTLE
005136,003411: E7,1731 E7,1571 ANGTERM = /AFC/ +2 # I(6) GUIDANCE
005137,003412: E7,1731 E7,1573 GOBLTIME = ANGTERM +2 # B(2) NOMINAL TIG FOR CALC. OF GOBLATE.
005138,003413:
005139,003414:
005140,003415: E7,1731 E7,1606 E2DPS EQUALS OURPERMS
005141,003416:
005142,003417:
005143,003418:
005144,003419: # THESE ERASABLES MUST NOT OVERLAY GOBLTIME OR SERVICER
005145,003420: E7,1731 E7,1577 PIFPSET = GOBLTIME +4 # B(1) THROTTLE
005146,003421: E7,1731 E7,1600 RTNHOLD = PIFPSET +1 # B(1) THROTTLE
005147,003422: E7,1731 E7,1601 FWEIGHT = RTNHOLD +1 # B(2) THROTTLE
005148,003423: E7,1731 E7,1603 PSEUDO55 = FWEIGHT +2 # B(1) THROTTLE DOWNLINK
005149,003424: E7,1731 E7,1604 TTHROT = PSEUDO55 +1 # B(1) THROTTLE
005150,003425:
005151,003426:
005152,003427:
005153,003428: # THESE ERASABLES SHOULD NOT BE SHARED DURING P63, P64, P65, P66, P67
005154,003429:
005155,003430: E7,1731 E7,1537 WCHPHOLD = VN1 # B(1) GUIDANCE
005156,003431:
005157,003432: E7,1731 E7,1606 OURPERMS = TTHROT +2 # MUSTN'T OVERLAY OURTEMPS OR SERVICER
005158,003433: E7,1731 E7,1606 WCHPHASE = OURPERMS # B(1) GUIDANCE
005159,003434: E7,1731 E7,1607 FLPASS0 = WCHPHASE +1 # B(1) GUIDANCE
005160,003435: E7,1731 E7,1610 TARGTDEX = FLPASS0 +1 # B(1) GUIDANCE
005161,003436: E7,1731 E7,1611 TPIP = TARGTDEX +1 # B(2)
005162,003437: E7,1731 E7,1613 VGU = TPIP +2 # B(6) GUIDANCE
005163,003438: E7,1731 E7,1621 WM = VGU +6 # I(6) TMP - LUNAR ROTATION VECTOR (SM)
005164,003439: E7,1731 E7,1627 LAND = WM +6 # B(6) GUIDANCE CONTIGUOUS
005165,003440: E7,1731 E7,1635 TTF/8 = LAND +6 # B(2) GUIDANCE CONTIGUOUS
005166,003441: E7,1731 E7,1637 ACG = TTF/8 +2 # I(6) GUIDANCE
005167,003442: E7,1731 E7,1645 JLING = ACG +6 # I(6) GUIDANCE
005168,003443: E7,1731 E7,1653 ELINCR1 = JLING +6 # B(1) GUIDANCE
005169,003444: E7,1731 E7,1654 AZINCR1 = ELINCR1 +1 # B(1) GUIDANCE
005170,003445: E7,1731 E7,1655 ZERLINA = AZINCR1 +1 # B(1) GUIDANCE
005171,003446: E7,1731 E7,1656 ELVIRA = ZERLINA +1 # B(1) GUIDANCE
005172,003447: E7,1731 E7,1657 FCOLD = ELVIRA +1 # B(1) THROTTLE
005173,003448: E7,1731 E7,1660 LRADRET = FCOLD +1 # B(1) LR
005174,003449: E7,1731 E7,1661 VSELECT = LRADRET +1 # B(1) LR
005175,003450: E7,1731 E7,1662 HBEAMNB = VSELECT +1 # I(6) LANDING RADAR
005176,003451: E7,1731 E7,1670 VMEAS = HBEAMNB +6 # B(2) LR
005177,003452: E7,1731 E7,1672 HMEAS = VMEAS +2 # B(2) LR
005178,003453: E7,1731 E7,1674 VN2 = HMEAS +2 # B(6) LR
005179,003454: E7,1731 E7,1674 GNUR = VN2 # B(6) LR
005180,003455: E7,1731 E7,1674 GNUV = VN2 # B(6) LR
005181,003456: E7,1731 E7,1674 LRADRET1 = VN2 # B(1) LR
005182,003457: E7,1731 E7,1702 FUNNYDSP = VN2 +6 # B(2) DISPLAY
005183,003458: E7,1731 E7,1704 VHORIZ = FUNNYDSP +2 # I(2) DISPLAY
005184,003459: E7,1731 E7,1706 EOURPERM EQUALS VHORIZ +2 # NEXT AVAILABLE ERASABLE AFTER OURPERMS
005185,003460:
005186,003461:
005187,003462: # (ERASABLES WHICH OVERLAY THE ABOVE BLOCK)
005188,003463:
005189,003464: E7,1731 E7,1653 VDGVERT = ELINCR1 # B(2) P65,66
005190,003465: E7,1731 E7,1655 NIGNLOOP = ZERLINA # B(1) IGNALG
005191,003466: E7,1731 E7,1656 NGUIDSUB = ELVIRA # B(1) IGNALG
005192,003467: E7,1731 E7,1655 RODCOUNT = ZERLINA # B(1) P66
005193,003468: E7,1731 E7,1656 WCHVERT = ELVIRA # B(1) P65,66,67
005194,003469: E7,1731 E7,1702 FUELNEED = FUNNYDSP # B(1) DISPLAY
005195,003470: E7,1731 E7,1702 TREDES = FUNNYDSP # B(1) DISPLAY
005196,003471: E7,1731 E7,1703 LOOKANGL = FUNNYDSP +1 # B(1) DISPLAY
005197,003472:
005198,003473:
005199,003474: # ERASABLES CONVENIENTLY DEFINABLE IN THE WORK AREA
005200,003475:
005201,003476: E7,1731 PROJ = 18D # I(2) GUIDANCE
005202,003477: E7,1731 UNLRB/2 = 20D # I(6) GUIDANCE (DURING P64 ONLY)
005203,003478: E7,1731 UNLR/2 = 20D # I(6) GUIDANCE
005204,003479:
005205,003480:
005206,003481: # THE END OF THE LUNAR LANDING ERASABLES
005207,003482:
005208,003483:
005209,003484:
005210,003485: # R12 (FOR LUNAR LANDING) (6D)
005211,003486:
005212,003487: E7,1731 0156 LRLCTR EQUALS MPAC +2 # B(1) LR DATA TEST
005213,003488: E7,1731 0156 LRRCTR EQUALS MPAC +2 # B(1)
005214,003489: E7,1731 0156 LRMCTR EQUALS MPAC +2 # B(1)
005215,003490: E7,1731 0156 LRSCTR EQUALS MPAC +2 # B(1)
005216,003491:
005217,003492:
005218,003493:
005219,003494: # LANDING ANALOGS DISPLAY STORAGE. (40D)
005220,003495:
005221,003496: E7,1731 E7,1706 UHYP EQUALS RXZ # B(6)PRM SM UNIT VECTOR
005222,003497: E7,1731 E7,1714 UHZP EQUALS UHYP +6 # B(6)PRM SM UNIT VECTOR
005223,003498: E7,1731 E7,1722 VHY EQUALS UHZP +6 # B(1)PRM VHY=VMP.UHYP (AN ORDER)
005224,003499: E7,1731 E7,1723 VHZ EQUALS VHY +1 # B(1)PRM VHZ=VMP.UHZP (-ED PAIR)
005225,003500: E7,1731 E7,1724 DELVS EQUALS VHZ +1 # B(6)PRM DELVS = WMXR
005226,003501: E7,1731 E7,1732 VVECT EQUALS DELVS +6 # B(3)PRM UPDATED S.P. VELOCITY VECTOR
005227,003502: E7,1731 E7,1735 ALTBITS EQUALS VVECT +3 # B(2)PRM ALTITUDE IN BIT UNITS, 2.34FT/BT
005228,003503: E7,1731 E7,1737 RUNIT EQUALS ALTBITS +2 # B(3)PRM SM HALF-UNIT R VECTOR
005229,003504: E7,1731 E7,1745 LATVMETR EQUALS RUNIT +6 # B(1)PRM LATVEL MONITOR METER (AN ORDER)
005230,003505: E7,1731 E7,1746 FORVMETR EQUALS LATVMETR +1 # B(1)PRM FORVEL MONITOR METER (-ED PAIR)
005231,003506: E7,1731 E7,1747 ALTRATE EQUALS FORVMETR +1 # B(1)PRM ALTITUDE RATE IN BIT UNITS
005232,003507: E7,1731 E7,1750 LATVEL EQUALS ALTRATE +1 # B(1)PRM LATERAL VELOCITY (AN ORDER)
005233,003508: E7,1731 E7,1751 FORVEL EQUALS LATVEL +1 # B(1)PRM FORWARD VELOCITY (-ED PAIR)
005234,003509: E7,1731 E7,1752 TRAKLATV EQUALS FORVEL +1 # B(1)PRM MONITOR FLG 4 LATVEL (AN ORDER)
005235,003510: E7,1731 E7,1753 TRAKFWDV EQUALS TRAKLATV +1 # B(1)PRM MONIT. FLAG FOR FORVEL (ED PAIR)
005236,003511: E7,1731 E7,1754 ALTSAVE EQUALS TRAKFWDV +1 # B(2)PRM ALTITUDE IN BIT UNITS
005237,003512: E7,1731 E7,1756 LADQSAVE EQUALS ALTSAVE +2 # B(1)PRM SAVE Q IN LANDISP
005238,003513: E7,1731 E7,1757 DALTRATE EQUALS LADQSAVE +1 # B(1)PRM ALTITUDE RATE ERROR CORRECTION
005239,003514: E7,1731 E7,1760 DT EQUALS DALTRATE +1 # B(1)PRM TIME 1 MINUS (PIPTIME +1)
005240,003515: E7,1731 E7,1760 LASTLADW EQUALS DT # ONLY A TAG TO SIGNIFY LAST L.A.D. WORD
005241,003516:
005242,003517:
005243,003518: # ******* OVERLAY NUMBER 5 IN EBANK 7 *******
005244,003519:
005245,003520:
005246,003521:
005247,003522: # ASCENT GUIDANCE ERASABLES. (23D)
005248,003523:
005249,003524: E7,1731 E7,1615 RCO EQUALS END-ALIG # I(2)TMP TARGET RADIUS AND OUT-OF-PLANE
005250,003525: E7,1731 E7,1617 YCO EQUALS RCO +2 # I(2)TMP DISTANCE, SCALED AT 2(24).
005251,003526: E7,1731 E7,1621 RDOTD EQUALS YCO +2 # I(2)TMP TARGET VELOCITY COMPONENTS
005252,003527: E7,1731 E7,1623 YDOTD EQUALS RDOTD +2 # I(2)TMP SCALING IS 2(7)M/CS.
005253,003528: E7,1731 E7,1625 ZDOTD EQUALS YDOTD +2 # I(2)TMP
005254,003529: E7,1731 E7,1627 XRANGE EQUALS ZDOTD +2 # B(2)TMP
005255,003530: E7,1731 E7,1631 APO EQUALS XRANGE +2 # B(2)TMP APOLUNE ALTITUDE DESIRED - M.
005256,003531: # SCALED AT 2(2().
005257,003532: E7,1731 E7,1633 AT EQUALS APO +2 # I(2)TMP ENGINE DATA -- THRUST ACC.*2(9)
005258,003533: E7,1731 E7,1635 VE EQUALS AT +2 # I(2)TMP EXHAUST VELOCITY * 2(7)M/CS.
005259,003534: E7,1731 E7,1637 TTO EQUALS VE +2 # I(2)TMP TAILOFF TIME * 2(17)CS.
005260,003535: E7,1731 E7,1641 TBUP EQUALS TTO +2 # I(2)TMP (M/MDOT) * 2(17)CS.
005261,003536: E7,1731 E7,1643 1/DV1 EQUALS TBUP +2 # B(2)TMP ATMAG
005262,003537: E7,1731 E7,1645 1/DV2 EQUALS 1/DV1 +2 # B(2)TMP ATMAG
005263,003538: E7,1731 E7,1647 1/DV3 EQUALS 1/DV2 +2 # B(2)TMP ATMAG
005264,003539: E7,1731 E7,1651 QAXIS EQUALS 1/DV3 +2 # B(6)
005265,003540: E7,1731 E7,1657 /R/MAG EQUALS QAXIS +6 # I(2)TMP
005266,003541: E7,1731 E7,1661 LAXIS EQUALS /R/MAG +2 # I(6)TMP
005267,003542: E7,1731 E7,1667 ZAXIS1 EQUALS LAXIS +6 # I(6)TMP SYSTEM (R,L,Z).
005268,003543: E7,1731 E7,1675 RDOT EQUALS ZAXIS1 +6 # I(2)TMP RADIAL RATE *2 (-7).
005269,003544: E7,1731 E7,1677 YDOT EQUALS RDOT +2 # I(2)TMP VEL. NORMAL TO REF. PLANE*2(-7)
005270,003545: E7,1731 E7,1701 ZDOT EQUALS YDOT +2 # I(2)TMP DOWN RANGE VEL *2(-7).
005271,003546: E7,1731 E7,1703 GEFF EQUALS ZDOT +2 # I(2)TMP EFFECTIVE GRAVITY
005272,003547: E7,1731 E7,1705 Y EQUALS GEFF +2 # I(2)TMP OUT-OF-PLANE DIST *2(24)M
005273,003548: E7,1731 E7,1707 DRDOT EQUALS Y +2 # I(2)TMP RDOTD - RDOT
005274,003549: E7,1731 E7,1711 DYDOT EQUALS DRDOT +2 # I(2)TMP YDOTD - YDOT
005275,003550: E7,1731 E7,1713 DZDOT EQUALS DYDOT +2 # I(2)TMP ZDOTD - ZDOT
005276,003551: E7,1731 E7,1715 PCONS EQUALS DZDOT +2 # I(2)TMP CONSTANT IN ATR EQUATION
005277,003552: E7,1731 E7,1717 YCONS EQUALS PCONS +2 # I(2)TMP CONSTANT IN ATY EQUATION
005278,003553: E7,1731 E7,1721 PRATE EQUALS YCONS +2 # I(2)TMP RATE COEFF. IN ATR EQUATION
005279,003554: E7,1731 E7,1723 YRATE EQUALS PRATE +2 # I(2)TMP RATE COEFF. IN ATY EQUATION
005280,003555: E7,1731 E7,1731 ATY EQUALS YRATE +6 # I(2)TMP OUT-OF-PLANE THRUST COMP.*2(9)
005281,003556: E7,1731 E7,1733 ATR EQUALS ATY +2 # I(2)TMP RADIAL THRUST COMP.*2(9)
005282,003557: E7,1731 E7,1735 ATP EQUALS ATR +2 # I(2)TMP DOWN-RANGE THRUST COMP
005283,003558: E7,1731 E7,1737 YAW EQUALS ATP +2 # I(2)TMP
005284,003559: E7,1731 E7,1741 PITCH EQUALS YAW +2 # I(2)RMP
005285,003560: E7,1731 E7,1743 ENGOFFDT EQUALS PITCH +2 # B(1)TMP PROTECTION OFENGOFF1 CALL
005286,003561: E7,1731 E7,1744 VGVECT EQUALS ENGOFFDT +1 # I(6)OUT VELOCITY-TO-BE-GAINED
005287,003562: E7,1731 E7,1752 TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
005288,003563:
005289,003564: # END OF THE ASCENT GUIDANCE ERASABLES.
005290,003565:
005291,003566: # P10-P11 ERASABLES.
005292,003567: E7,1731 E7,1426 P1XTMIN EQUALS TTOGO
005293,003568: E7,1731 E7,1662 P1XITCNT EQUALS INCORPEX +1
005294,003569: E7,1731 E7,1663 RCSMINT = P1XITCNT +1
005295,003570: E7,1731 E7,1671 P1XDELTT = RCSMINT +6
005296,003571: E7,1731 E7,1673 TCSITPF = P1XDELTT +2
005297,003572: E7,1731 E7,1675 RLSBRCS = TCSITPF +2
005298,003573: E7,1731 E7,1703 RLEMT2 = RLSBRCS +6
005299,003574: E7,1731 E7,1705 VCSMINT = RLEMT2 +2
005300,003575: E7,1731 E7,1713 INJANGLE = VCSMINT +6
005301,003576: E7,1731 E7,1715 INJALT = INJANGLE +2
005302,003577: E7,1731 E7,1717 P1XVVER = INJALT +2
005303,003578: E7,1731 E7,1721 P1XVHOR = P1XVVER +2
005304,003579: E7,1731 E7,1723 RP1XROT = P1XVHOR +2
005305,003580: E7,1731 E7,1731 VP1XROT = RP1XROT +6
005306,003581: E7,1731 E7,1737 P1XMAX = VP1XROT +6
005307,003582: E7,1731 E7,1741 TPITIME = P1XMAX +2
005308,003583: E7,1731 E7,1743 INJTIME = TPITIME +2
005309,003584: E7,1731 E7,1745 CDHDELH = INJTIME +2
005310,003585: E7,1731 E7,1747 ULVEC = CDHDELH +2
005311,003586: E7,1731 E7,1755 P1XDT = ULVEC +6
005312,003587: E7,1731 E7,1757 TPIANGLE = P1XDT +2
005313,003588: E7,1731 E7,1761 UNVEC2 = TPIANGLE +2
005314,003589: E7,1731 E7,1767 P11VTPF = UNVEC2 +6
005315,003590:
005316,003591: # VARIOUS DISPLAY REGISTERS. BALLANGS (3D)
005317,003592:
005318,003593: E7,1731 E7,1775 FDAIX EQUALS VGBODY +3 # I(1)
005319,003594: E7,1731 E7,1776 FDAIY = FDAIX +1 # I(1)
005320,003595: E7,1731 E7,1777 FDAIZ = FDAIY +1 # I(1)
005321,003596:
005322,003597:
005323,003598: # THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.
005324,003599:
005325,003600: E7,1731 0000007 CPHIXATT EQUALS SPARE
005326,003601:
005327,003602: E7,1731 E7,1731 CURSOR EQUALS END-E7.0
005328,003603: E7,1731 E7,1731 SPIRAL EQUALS END-E7.0
005329,003604: E7,1731 E7,1731 POSCODE EQUALS END-E7.0
005330,003605:
005331,003606: E7,1731 E7,1731 LANDLAT EQUALS END-E7.0
005332,003607: E7,1731 E7,1731 LANDLONG EQUALS END-E7.0
005333,003608: E7,1731 E7,1731 LANDALT EQUALS END-E7.0
005334,003609:
005335,003610: E7,1731 E7,1731 END-E7.0 EQUALS IRETURN1 +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 0
005336,003611: E7,1731 E7,1733 END-E7.1 EQUALS N49FLAG +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 1
005337,003612: E7,1731 E7,1747 END-E7.2 EQUALS P21TIME +2 # FIRST UNUSED LOCATION IN E7 OVERLAY 2
005338,003613: E7,1731 E7,1771 END-E7.3 EQUALS P11VTPF +2 # FIRST UNUSED LOCATION IN E7 OVERLAY 3
005339,003614: E7,1731 4000 END-E7.4 EQUALS FDAIZ +1 # FIRST UNUSED LOCATION IN E7 OVERLAY 4
005340,003615: E7,1731 E7,1754 END-E7.5 EQUALS TXO +2 # FIRST UNUSED LOCATION IN E7 OVERLAY 5
005341,003616: E7,1731 END-E7 EQUALS 3777 # **LAST LOCATION USED IN E7 **
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc