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