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