Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
000429,000002: ## Copyright: Public domain.
000430,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
000431,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
000432,000005: ## It is part of an early development version of the software
000433,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
000434,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
000435,000008: ## upon which Don Eyles's offline development program Shepatin
000436,000009: ## was based; the listing herein transcribed was actually for
000437,000010: ## the equivalent revision 0 of Shepatin.
000438,000011: ## This file is intended to be a faithful transcription, except
000439,000012: ## that the code format has been changed to conform to the
000440,000013: ## requirements of the yaYUL assembler rather than the
000441,000014: ## original YUL assembler.
000442,000015: ## Reference: pp. 10-52
000443,000016: ## Assembler: yaYUL
000444,000017: ## Contact: Ron Burkey <info@sandroid.org>.
000445,000018: ## Website: www.ibiblio.org/apollo/index.html
000446,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
000447,000020: ## 2017-05-28 HG Transcribed
000448,000021: ## 2017-05-30 HG Add missing variable RUPTSTOR
000449,000022: ## 2017-06-08 HG Fix label NEWTIME -> NEWMTIME
000450,000023: ## ABDCONV -> ABDVCONV
000451,000024: ## 2017-06-21 RSB A few comments corrected using
000452,000025: ## octopus/ProoferComments.
000453,000026: ## 2021-05-30 ABS Added missing BODYFLAG definition.
000454,000027:
|
|
Page 10 |
000456,000029:
000457,000030: ??????? A EQUALS 0
000458,000031: ??????? L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS.
000459,000032: ??????? Q EQUALS 2
000460,000033: ??????? EBANK EQUALS 3
000461,000034: ??????? FBANK EQUALS 4
000462,000035: ??????? Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
000463,000036: ??????? BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
000464,000037: # REGISTER 7 IS A ZERO-SOURCE. USED BY ZL.
000465,000038:
000466,000039: ??????? ARUPT EQUALS 10 # INTERRUPT STORAGE.
000467,000040: ??????? LRUPT EQUALS 11
000468,000041: ??????? QRUPT EQUALS 12
000469,000042: ??????? SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2.
000470,000043: ??????? ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
000471,000044: ??????? BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
000472,000045: ??????? BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
000473,000046:
000474,000047: ??????? CYR EQUALS 20
000475,000048: ??????? SR EQUALS 21
000476,000049: ??????? CYL EQUALS 22
000477,000050: ??????? EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
000478,000051:
000479,000052: ??????? TIME2 EQUALS 24
000480,000053: ??????? TIME1 EQUALS 25
000481,000054: ??????? TIME3 EQUALS 26
000482,000055: ??????? TIME4 EQUALS 27
000483,000056: ??????? TIME5 EQUALS 30
000484,000057: ??????? TIME6 EQUALS 31
000485,000058: ??????? CDUX EQUALS 32
000486,000059: ??????? CDUY EQUALS 33
000487,000060: ??????? CDUZ EQUALS 34
000488,000061: ??????? OPTY EQUALS 35
000489,000062: ??????? OPTX EQUALS 36
000490,000063: ??????? PIPAX EQUALS 37
000491,000064: ??????? PIPAY EQUALS 40
000492,000065: ??????? PIPAZ EQUALS 41
000493,000066: ??????? BMAGX EQUALS 42
000494,000067: ??????? RHCP EQUALS 42
000495,000068: ??????? BMAGY EQUALS 43
000496,000069: ??????? RHCY EQUALS 43
000497,000070: ??????? BMAGZ EQUALS 44
000498,000071: ??????? RHCR EQUALS 44
000499,000072: ??????? INLINK EQUALS 45
000500,000073: ??????? RNRAD EQUALS 46
000501,000074: ??????? GYROCTR EQUALS 47
000502,000075: ??????? GYROCMD EQUALS 47
000503,000076: ??????? CDUXCMD EQUALS 50
000504,000077: ??????? CDUYCMD EQUALS 51
000505,000078:
000506,000079:
|
|
Page 11 |
000508,000081: ??????? CDUZCMD EQUALS 52
000509,000082: ??????? OPTYCMD EQUALS 53
000510,000083: ??????? OPTXCMD EQUALS 54
000511,000084: ??????? EMSD EQUALS 55
000512,000085: ??????? THRUST EQUALS 55
000513,000086: ??????? LEMONM EQUALS 56
000514,000087: ??????? OUTLINK EQUALS 57
000515,000088: ??????? ALTM EQUALS 60
000516,000089:
000517,000090: # VAC-RELATIVE INTERPRETER ASSIGNMENTS:
000518,000091:
000519,000092: ??????? LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
000520,000093: ??????? LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
000521,000094: ??????? X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTERS RELATIVE
000522,000095: ??????? X2 EQUALS 39D # TO THE WORK AREA.
000523,000096: ??????? S1 EQUALS 40D
000524,000097: ??????? S2 EQUALS 41D
000525,000098: ??????? QPRET EQUALS 42D
000526,000099:
000527,000100:
|
|
Page 12 |
000529,000102: # GENERAL ERASABLE ASSIGNMENTS.
000530,000103:
000531,000104: 0061 SETLOC 61
000532,000105:
000533,000106: # THE FOLLOWING SET COMPRISES THE INTERRUPT TEMPORARY STORAGE POOL.
000534,000107:
000535,000108: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
000536,000109: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
000537,000110:
000538,000111: 0061 ITEMP1 ERASE
000539,000112: 0062 0061 WAITEXIT EQUALS ITEMP1
000540,000113: 0062 0061 EXECTEM1 EQUALS ITEMP1
000541,000114:
000542,000115: 0062 ITEMP2 ERASE
000543,000116: 0063 0062 WAITBANK EQUALS ITEMP2
000544,000117: 0063 0062 EXECTEM2 EQUALS ITEMP2
000545,000118:
000546,000119: 0063 ITEMP3 ERASE
000547,000120: 0064 0063 RUPTSTOR EQUALS ITEMP3
000548,000121: 0064 0063 WAITADR EQUALS ITEMP3
000549,000122: 0064 0063 NEWPRIO EQUALS ITEMP3
000550,000123:
000551,000124: 0064 ITEMP4 ERASE
000552,000125: 0065 0064 LOCCTR EQUALS ITEMP4
000553,000126: 0065 0064 WAITTEMP EQUALS ITEMP4
000554,000127:
000555,000128: 0065 ITEMP5 ERASE
000556,000129: 0066 0065 NEWLOC EQUALS ITEMP5
000557,000130:
000558,000131: 0066 ITEMP6 ERASE
000559,000132: # NEWLOC+1 EQUALS ITEMP6 DP ADDRESS.
000560,000133:
000561,000134: 0067 SETLOC 67 # NEWJOB MUST BE IN LOCATION 67.
000562,000135: 0067 NEWJOB ERASE # ----
000563,000136:
000564,000137: 0070 RUPTREG1 ERASE
000565,000138: 0071 RUPTREG2 ERASE
000566,000139: 0072 RUPTREG3 ERASE
000567,000140: 0073 RUPTREG4 ERASE
000568,000141: 0074 0073 KEYTEMP1 EQUALS RUPTREG4
000569,000142: 0074 0073 DSRUPTEM EQUALS RUPTREG4
000570,000143:
000571,000144:
|
|
Page 13 |
000573,000146: # FLAG & SWITCH RESERVATIONS.
000574,000147:
000575,000148: 0074 STATE ERASE +7 # 120 SWITCHES
000576,000149:
000577,000150: 0104 0075 FLAGWRD1 EQUALS STATE +1
000578,000151: 0104 0076 FLAGWRD2 EQUALS STATE +2
000579,000152: 0104 0077 DAPBOOLS EQUALS STATE +3
000580,000153: 0104 0100 FLAGWRD4 EQUALS STATE +4
000581,000154:
000582,000155: # INTERPRETIVE SWITCH BIT ASSIGNMENTS:
000583,000156:
000584,000157: 0104 WMATFLAG EQUALS 0
000585,000158: 0104 JSWITCH EQUALS 1
000586,000159: 0104 MIDFLAG EQUALS 2
000587,000160: 0104 MOONFLAG EQUALS 3
000588,000161: 0104 NBSMBIT EQUALS 4
000589,000162: 0104 COAROFIN EQUALS 5
000590,000163: 0104 BODYFLAG EQUALS 6
000591,000164: 0104 IMUSE EQUALS 7
000592,000165: 0104 RRUSE EQUALS 8D
000593,000166: 0104 RRNBSW EQUALS 9D
000594,000167: 0104 LOKONSW EQUALS 10D
000595,000168: 0104 CONVSW EQUALS 60D
000596,000169: 0104 DONESW EQUALS 61D
000597,000170: 0104 ITERSW EQUALS 62D
000598,000171: 0104 GUESSW EQUALS 63D
000599,000172: 0104 PIESW EQUALS 64D
000600,000173: 0104 MOONSW EQUALS 65D
000601,000174: 0104 0000101 ESCPSW EQUALS MOONSW # INCICATE ELLIPTICAL ORBIT FLAG (=0)
000602,000175: 0104 0000101 SMANGLSW EQUALS MOONSW # VARIABLE SCALING SWITCH (=0)
000603,000176:
000604,000177: # NOTE THAT FLAGWRD1 AND FLAGWRD2 CORRESPOND TO INTERPRETIVE SWITCHES 15D THROUGH 44D. DAPBOOLS AND
000605,000178: # FLAGWRD4 CORRESPOND TO INTERPRETIVE SWITCHES 45D THROUGH 74D.
000606,000179:
000607,000180: # FLAGWORD USAGE * * * * * * * * * * * * * * * * * * * * * * * * * * * *
000608,000181:
000609,000182: # BIT INTPR. SWITCH USAGE
000610,000183: # --- ------------- -----
000611,000184:
000612,000185: # FLAGWRD1 1 29 AVERAGE G FLAG
000613,000186: # 2 28 GUIDANCE REFERENCE RELEASE FLAG
000614,000187: # 3 - 7 27 - 23 NOT USED AT PRESENT
000615,000188: # 8 22 GIMBAL LOCK FLAG
000616,000189: # 9 - 12 21 - 18 NOT USED AT PRESENT
000617,000190: # 13 17 EXCESSIVE TUMBLE FLAG
000618,000191: # 14 16 TUMBLE MONITOR FLAG
000619,000192: # 15 15 NOT USED AT PRESENT
000620,000193:
000621,000194: # FLAGWRD2 1 44 RCS COLD SOAK INHIBIT FLAG
000622,000195: # 2 43 DPS COLD SOAK INHIBIT FLAG
000623,000196:
|
|
Page 14 |
000625,000198: # 3 42 RCS TESTING INHIBIT FLAG
000626,000199: # 4 41 NOT USED AT PRESENT
000627,000200: # 5 40 TIMERS ENABLED FLAG
000628,000201: # 6 39 V33 TERMINATION OF UPDATE PROGRAM FLAG
000629,000202: # 7 38 ORBITAL INTEGRATION INTEGRATING FLAG
000630,000203: # 8 37 ACS FEED TEST FLAG
000631,000204: # 9 36 ABORT COMMAND MONITOR ENABLED FLAG
000632,000205: # 10 35 ABORT STAGE FLAG
000633,000206: # 11 34 KALCMANU ATTITUDE COMPLETE FLAG
000634,000207: # 12 33 NO FINAL YAW
000635,000208: # 13 32 UPDATE PROCESS FLAG
000636,000209: # 14 31 GIMBAL LOCK FLAG
000637,000210: # 15 30 DRIFT FLAG
000638,000211:
000639,000212: # DAPBOOLS 1 - 15 45 - 59 DEFINED IN LOG SECTION "DAP INTERFACE
000640,000213: # SUBROUTINES".
000641,000214:
000642,000215: # FLAGWRD4 1 - 9 74 - 66 NOT USED AT PRESENT
000643,000216: # 10 65 OUTSIDE MOONSPHERE (LOCKED AT 0) FLAG
000644,000217: # 11 64 LAMBERT QUADRANT FLAG
000645,000218: # 12 63 ITERATOR INITIALIZATION FLAG
000646,000219: # 13 62 LAMBERT ITERATOR FLAG
000647,000220: # 14 61 LAMBERT ROUTINE COMPLETION FLAG
000648,000221: # 15 60 LAMBERT ROUTINE CONVERGENCE FLAG
000649,000222:
|
|
Page 15 |
000651,000224:
000652,000225: # THE FOLLOWING ARE EXECUTIVE TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOB INQUIRIES.
000653,000226:
000654,000227: 0104 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
000655,000228: 0105 0104 DSEXIT = INTB15+ # RETURN FOR DSPIN
000656,000229: 0105 0104 EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
000657,000230: 0105 0104 BLANKRET = INTB15+ # RETURN FOR 2BLANK
000658,000231:
000659,000232: 0105 INTBIT15 ERASE # SIMILAR TO ABOVE.
000660,000233: 0106 0105 WRDRET = INTBIT15 # RETURN FOR 5BLANK
000661,000234: 0106 0105 WDRET = INTBIT15 # RETURN FOR DSPWD
000662,000235: 0106 0105 DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
000663,000236: 0106 0105 21/22REG = INTBIT15 # TEMP FOR CHARIN
000664,000237:
000665,000238: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
000666,000239:
000667,000240: 0106 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB_ADDRESS.
000668,000241:
000669,000242: 0107 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
000670,000243: 0110 0107 UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB
000671,000244: 0110 0107 CHAR = POLISH # TEMP FOR CHARIN
000672,000245: 0110 0107 ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET
000673,000246: 0110 0107 DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
000674,000247: 0110 0107 PWRPTR = POLISH # ROOTPSRS PWR TABL POINTER
000675,000248:
000676,000249: 0110 FIXLOC ERASE # WORK AREA ADDRESS.
000677,000250:
000678,000251: 0111 OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
000679,000252:
000680,000253: 0112 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
000681,000254: 0120 0112 SGNON = VBUF # TEMP FOR +,- ON
000682,000255: 0120 0112 NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH
000683,000256: 0120 0112 DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERBS
000684,000257: 0120 0112 DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
000685,000258:
000686,000259: 0120 0113 SGNOFF = VBUF +1 # TEMP FOR +,- ON
000687,000260: 0120 0113 NVTEMP = VBUF +1 # TEMP FOR NVSUB
000688,000261: 0120 0113 SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000689,000262:
000690,000263: 0120 0114 CODE = VBUF +2 # FOR DSPIN
000691,000264: 0120 0114 SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
000692,000265: 0120 0114 DXCRIT = VBUF +2 # ROOTPSRS CRITERION FOR ENDING ITERS HI
000693,000266:
000694,000267: 0120 0115 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA
000695,000268: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
000696,000269: 0120 0115 SIGNRET = VBUF +3 # RETURN FOR +,- ON
000697,000270: 0120 0115 DXCRIT+1 = VBUF +3 # ROOTPSRS CRITERION FOR ENDING ITERS LO
000698,000271:
000699,000272: 0120 0116 ROOTPS = VBUF +4 # ROOTPSRS ROOT HI ORDER
000700,000273:
000701,000274: 0120 0117 ROOTPS+1 = VBUF +5 # ROOTPSRS ROOT LO ORDER
000702,000275:
|
|
Page 16 |
000704,000277: 0120 BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
000705,000278: 0123 0120 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
000706,000279: 0123 0120 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
000707,000280:
000708,000281: 0123 0121 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN SWITCH WORD.
000709,000282:
000710,000283: 0123 0122 RETROOT = BUF +2 # ROOTPSRS RETURN ADDRESS OF USER
000711,000284:
000712,000285: 0123 BUF2 ERASE +1
000713,000286:
000714,000287: 0125 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT
000715,000288: 0126 0125 DMPNTEMP = MPTEMP # DMPNSUB TEMPORARY
000716,000289:
000717,000290: 0126 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE.
000718,000291: 0127 0126 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT.
000719,000292: 0127 0126 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
000720,000293: 0127 0126 ENTRET = DOTINC # EXIT FROM ENTER
000721,000294:
000722,000295: 0127 DOTRET ERASE # RETURN FROM DOT SUBROUTINE.
000723,000296: 0130 0127 DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV.
000724,000297: 0130 0127 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH.
000725,000298: 0130 0127 WDCNT = DOTRET # CHAR COUNTER FOR DSPWD
000726,000299: 0130 0127 INREL = DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000727,000300:
000728,000301: 0130 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM.
000729,000302: 0131 0130 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
000730,000303: 0131 0130 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
000731,000304: 0131 0130 DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM
000732,000305: 0131 0130 MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
000733,000306: 0131 0130 PWRCNT = MATINC # ROOTPSRS DER TABL LOOP COUNTER
000734,000307:
000735,000308: 0131 TEM1 ERASE # EXEC TEMP
000736,000309: 0132 0131 POLYRET = TEM1
000737,000310: 0132 0131 DSREL = TEM1 # REL ADDRESS FOR DSPIN
000738,000311: 0132 0131 DERPTR = TEM1 # ROOTPSRS DER TABL POINTER
000739,000312:
000740,000313: # THE FOLLOWING 10 REGISTERS ARE USED FOR TEMPORARY STORAGE OF THE DERIVATIVE COEFFICIENT TABLE OF
000741,000314: # SUBROUTINE ROOTPSRS. THEY MUST REMAIN WITHOUT INTERFERENCE WITH ITS SUBROUTINES WHICH ARE POWRSERS (POLY),
000742,000315: # DMPSUB, DMPNSUB, SHORTMP, DDV/BDDV, ABS, AND USPRCADR.
000743,000316:
000744,000317: 0132 TEM2 ERASE # EXEC TEMP
000745,000318: 0133 0132 DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN
000746,000319: 0133 0132 IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS STORAGE
000747,000320: 0133 0132 DERCOF-8 = MPAC -12 # ROOTPSRS DER COF N-4 HI ORDER
000748,000321:
000749,000322: 0133 TEM3 ERASE # EXEC TEMP
000750,000323: 0134 0133 COUNT = TEM3 # FOR DSPIN
000751,000324: 0134 0133 DERCOF-7 = MPAC -11 # ROOTPSRS DER COF N-4 LO ORDER
000752,000325:
000753,000326: 0134 TEM4 ERASE # EXEC TEMP
000754,000327:
|
|
Page 17 |
000756,000329: 0135 0134 LSTPTR = TEM4 # LIST POINTER FOR GRABUSY
000757,000330: 0135 0134 RELRET = TEM4 # RETURN FOR RELDSP
000758,000331: 0135 0134 FREERET = TEM4 # RETURN FOR FREEDSP
000759,000332: 0135 0134 DERCOF-6 = MPAC -10 # ROOTPSRS DER COF N-3 HI ORDER
000760,000333:
000761,000334: 0135 TEM5 ERASE # EXEC TEMP
000762,000335: 0136 0135 NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS
000763,000336: 0136 0135 DERCOF-5 = MPAC -7 # ROOTPSRS DER COF N-3 LO ORDER
000764,000337:
000765,000338: 0136 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
000766,000339: 0137 0136 DERCOF-4 = MPAC -6 # ROOTPSRS DER COF N-2 HI ORDER
000767,000340:
000768,000341: 0137 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
000769,000342: 0140 0137 DERCOF-3 = MPAC -5 # ROOTPSRS DER COF N-2 LO ORDER
000770,000343:
000771,000344: 0140 IDAD1TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000772,000345: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
000773,000346: 0141 0140 DERCOF-2 = MPAC -4 # ROOTPSRS DER COF N-1 HI ORDER
000774,000347:
000775,000348: 0141 IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000776,000349: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
000777,000350: 0142 0141 DERCOF-1 = MPAC -3 # ROOTPSRS DER COF N-1 LO ORDER
000778,000351:
000779,000352: 0142 IDAD3TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000780,000353: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
000781,000354: 0143 0142 DERCOFN = MPAC -2 # ROOTPSRS DER COF N HI ORDER
000782,000355:
000783,000356: 0143 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
000784,000357: 0144 0143 DERCOF+1 = MPAC -1 # ROOTPSRS DER COF N LO ORDER
000785,000358:
000786,000359: # STORAGE USED BY THE EXECUTIVE.
000787,000360:
000788,000361: 0144 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
000789,000362: 0153 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
000790,000363: 0154 LOC ERASE # LOCATION ASSOCIATED WITH JOB.
000791,000364: 0155 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
000792,000365: 0156 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
000793,000366: 0157 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
000794,000367:
000795,000368: 0160 ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH.
000796,000369:
|
|
Page 18 |
000798,000371: # THE FOLLOWING REGISTERS ARE RESERVED FOR PINBALL
000799,000372:
000800,000373:
000801,000374:
000802,000375: # RESERVED FOR PINBALL EXECUTIVE ACTION
000803,000376:
000804,000377: 0270 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR
000805,000378: 0271 DECBRNCH ERASE # +DEC, -DEC, OCT INDICATOR
000806,000379: 0272 VERBREG ERASE # VERB CODE
000807,000380: 0273 NOUNREG ERASE # NOUN CODE
000808,000381: 0274 XREG ERASE # R1 INPUT BUFFER
000809,000382: 0275 YREG ERASE # R2 INPUT BUFFER
000810,000383: 0276 ZREG ERASE # R3 INPUT BUFFER
000811,000384: 0277 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
000812,000385: 0300 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
000813,000386: 0301 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
000814,000387: 0302 MODREG ERASE # MODE CODE
000815,000388: 0303 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
000816,000389: 0304 REQRET ERASE # RETURN REGISTER FOR LOAD
000817,000390: 0305 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
000818,000391: 0306 CLPASS ERASE # PASS INDICATOR CLEAR
000819,000392: 0307 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
000820,000393: 0310 NOUNCADR ERASE # MACHINE CADR FOR NOUN
000821,000394: 0311 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
000822,000395: 0312 MONSAVE1 ERASE # NOUNCADR FOR MONITOR(MATBS) =MONSAVE +1
000823,000396: 0313 DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
000824,000397: 0327 CADRSTOR ERASE # ENDIDLE STORAGE
000825,000398: 0330 GRABLOCK ERASE # INTERNAL INTERLOCK FOR DISPLAY SYSTEM
000826,000399: 0331 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
000827,000400: # MUST = NVBNKTEM-1
000828,000401: 0332 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
000829,000402: # MUST = NVQTEM+1
000830,000403: 0333 DSPLIST ERASE +2 # WAITING LIST FOR DSP SYST INTERNAL USE
000831,000404: 0336 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
000832,000405: 0337 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000833,000406: 0342 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000834,000407: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
000835,000408:
000836,000409:
000837,000410:
000838,000411: # RESERVED FOR PINBALL INTERRUPT ACTION
000839,000412:
000840,000413: 0345 DSPCNT ERASE # COUNTER FOR DSPOUT
000841,000414: # RECEPTION OF A BAD MESSAGE IN UPLINK)
|
|
RSB 2016 — Yes, the line above has no opening (. |
000843,000416: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000844,000417:
|
|
Page 19 |
000846,000419: # ASSIGNMENTS FOR T4RUPT PROGRAM
000847,000420:
000848,000421: 0346 T4LOC ERASE
000849,000422: 0347 DSRUPTSW ERASE
000850,000423: 0350 DIDFLG ERASE
000851,000424: 0351 ALT ERASE +1
000852,000425: 0353 ALTRATE ERASE
000853,000426: 0354 FINALT ERASE +1 # (MAY NOT BE REQUIRED FOR FLIGHTS).
000854,000427: 0356 LGYRO ERASE
000855,000428: 0357 FORVEL ERASE
000856,000429: 0360 LATVEL ERASE
000857,000430: 0361 LASTYCMD ERASE
000858,000431: 0362 LASTXCMD ERASE
000859,000432:
000860,000433: 0363 ALTSAVE ERASE +1
000861,000434: # END OF T4RUPT ASSIGNMENTS
000862,000435:
000863,000436:
000864,000437:
000865,000438: 0365 IMODES30 ERASE
000866,000439: 0366 IMODES33 ERASE
000867,000440: 0367 MODECADR ERASE +3
000868,000441: 0373 0367 IMUCADR EQUALS MODECADR
000869,000442: 0373 0370 AOTCADR EQUALS MODECADR +1
000870,000443: 0373 0370 OPTCADR EQUALS AOTCADR
000871,000444: 0373 0371 RADCADR EQUALS MODECADR +2
000872,000445: 0373 0372 ATTCADR EQUALS MODECADR +3
000873,000446:
000874,000447: 0373 MARKSTAT ERASE
000875,000448: 0374 XYMARK ERASE
000876,000449: 0375 FLUSHREG ERASE +1 # ***TEMPORARY FOR SPECIAL FAKESTRT ENEMA
000877,000450: 0400 SETLOC 400
000878,000451:
|
|
Page 20 |
000880,000453: # TEMPORARY PHONY ASSIGNMENTS TO KEEP PINBALL FROM HAVING BAD ASSEMBLIES
000881,000454:
000882,000455: 0400 THETAD ERASE +2
000883,000456: 0403 DELVX ERASE +5
000884,000457: # END OF PHONY ASSIGNMENTS
000885,000458:
000886,000459:
000887,000460: # DOWNLINK LIST ADDRESS.
000888,000461: 0411 DNLSTADR ERASE
000889,000462:
000890,000463: # AGS DUMMY ID WORD
000891,000464: 0412 AGSWORD ERASE
000892,000465: # RADAR ERASABLE
000893,000466:
000894,000467: 0413 RADMODES ERASE
000895,000468: 0414 SAMPLIM ERASE
000896,000469: 0415 SAMPLSUM ERASE +1
000897,000470: 0417 0415 SAMPSUM EQUALS SAMPLSUM
000898,000471: 0417 OPTYHOLD ERASE +1
000899,000472: 0421 TIMEHOLD ERASE +1
000900,000473: 0423 0415 RRTARGET EQUALS SAMPLSUM # HALF UNIT VECTOR IN SM OR NB AXES.
000901,000474: 0423 TANG ERASE +1 # DESIRED TRUNNION AND SHAFT ANGLES.
000902,000475: 0425 0423 MODEA EQUALS TANG
000903,000476: 0425 MODEB ERASE +1 # DODES CLOBBERS TANG +2.
000904,000477: 0427 0425 NSAMP EQUALS MODEB
000905,000478: 0427 DESRET ERASE
000906,000479: 0430 0427 OLDATAGD EQUALS DESRET # USED IN DATA READING ROUTINES.
000907,000480: 0430 DESCOUNT ERASE
000908,000481: # END OF RADAR ERASABLE ASSIGNMENTS
000909,000482:
000910,000483: 0431 VAC1USE ERASE
000911,000484: 0432 VAC1 ERASE +42D
000912,000485: 0505 VAC2USE ERASE
000913,000486: 0506 VAC2 ERASE +42D
000914,000487: 0561 VAC3USE ERASE
000915,000488: 0562 VAC3 ERASE +42D
000916,000489: 0635 VAC4USE ERASE
000917,000490: 0636 VAC4 ERASE +42D
000918,000491: 0711 VAC5USE ERASE
000919,000492: 0712 VAC5 ERASE +42D
000920,000493:
000921,000494: 0765 PHASENUM ERASE
000922,000495:
000923,000496: # KALCMANU-DAP INTERFACE:
000924,000497:
000925,000498: 0766 CDUXD ERASE +2 # CDU DESIRED REGISTERS:
000926,000499: 0771 0767 CDUYD EQUALS CDUXD +1 # SCALED AT PI RADIANS (180 DEGREES)
000927,000500: 0771 0770 CDUZD EQUALS CDUXD +2 # (STORED IN 2' COMPLEMENT)
000928,000501:
|
|
Page 21 |
000930,000503:
000931,000504: 0771 DELCDUX ERASE +2 # NEGATIVE OF DESIRED 100MS CDU INCREMENT:
000932,000505: 0774 0772 DELCDUY EQUALS DELCDUX +1 # SCALED AT PI RADIANS (180 DEGREES)
000933,000506: 0774 0773 DELCDUZ EQUALS DELCDUX +2 # (STORED IN 2' COMPLEMENT)
000934,000507:
000935,000508: 0774 OMEGAPD ERASE +2 # ATTITUDE MANEUVER DESIRED RATES
000936,000509: 0777 0775 OMEGAQD EQUALS OMEGAPD +1 # (NOT EXPLICITLY REFERENCED IN GTS CNTRL)
000937,000510: 0777 0776 OMEGARD EQUALS OMEGAPD +2 # SCALED AT PI/4 RADIANS/SECOND
000938,000511:
000939,000512: 1000 SETLOC 1000
000940,000513: 1000 T5ADR ERASE +1 # GENADR OF NEXT LM DAP T5RUPT. * 2CADR *
000941,000514: # BBCON OF NXT LM DAP T5RUPT. * 2CADR *
000942,000515:
000943,000516: 1002 T6NEXT ERASE +1 # LIST OF TIME6 DT-S FOR JET LIST PROGRAM
000944,000517:
000945,000518: 1004 T6NEXTJT ERASE +2 # LIST OF JET POLICIES FOR JTLST PROGRAM
000946,000519:
000947,000520: 1007 DELAYCTR ERASE # COUNTER FOR MINIMUM IMPULSE USE OF RHC
000948,000521:
|
|
Page 22 |
000950,000523: # ERASABLE ASSIGNMENTS FOR AVERAGE G INTEGRATOR:
000951,000524:
000952,000525: 1010 RN ERASE +5
000953,000526: 1016 VN ERASE +5
000954,000527: 1024 GDT/2 ERASE +5
000955,000528: 1032 UNITR ERASE +5
000956,000529: 1040 UNITW ERASE +5
000957,000530: 1046 RMAG ERASE +1
000958,000531:
000959,000532: 1050 0403 DELV EQUALS DELVX
000960,000533: 1050 RN1 ERASE +5
000961,000534: 1056 VN1 ERASE +5
000962,000535: 1064 GDT1/2 ERASE +5
000963,000536: 1072 AVGEXIT ERASE +1
000964,000537: 1074 AVGOUTF ERASE +1
000965,000538: 1076 1074 DVMNEXIT = AVGOUTF
000966,000539: # WAITLIST REPEAT FLAG:
000967,000540:
000968,000541: 1076 RUPTAGN ERASE
000969,000542: 1077 1076 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
000970,000543:
000971,000544: # PHASE TABLE AND RESTART COUNTER.
000972,000545:
|
|
Page 23 |
000974,000547: # THE FOLLOWING ARE TO LOCATED IN UNSWITCHED ERRASSIBLE
000975,000548:
000976,000549: # TBASE(I) ARE USED IN WAITLIST RESTARTS
000977,000550: # PHSPRDT(I) ARE USED TO STORE EITHER PRIORITY OR DELTA TIME FOR VARIABLE RESTARTS
000978,000551: # PHASE(I) AND -PHASE(I) ARE USED TO STORE THE PHASE INFORMATION AND PHASE INFORMATION COMPLEMENTED FOR EACH OF TH
000979,000552: # GROUPS
000980,000553:
000981,000554: 1077 -PHASE1 ERASE
000982,000555: 1100 PHASE1 ERASE
000983,000556: 1101 -PHASE2 ERASE
000984,000557: 1102 PHASE2 ERASE
000985,000558: 1103 -PHASE3 ERASE
000986,000559: 1104 PHASE3 ERASE
000987,000560: 1105 -PHASE4 ERASE
000988,000561: 1106 PHASE4 ERASE
000989,000562: 1107 -PHASE5 ERASE
000990,000563: 1110 PHASE5 ERASE
000991,000564: 1111 -PHASE6 ERASE
000992,000565: 1112 PHASE6 ERASE
000993,000566:
000994,000567: 1113 TBASE1 ERASE
000995,000568: 1114 PHSPRDT1 ERASE
000996,000569: 1115 TBASE2 ERASE
000997,000570: 1116 PHSPRDT2 ERASE
000998,000571: 1117 TBASE3 ERASE
000999,000572: 1120 PHSPRDT3 ERASE
001000,000573: 1121 TBASE4 ERASE
001001,000574: 1122 PHSPRDT4 ERASE
001002,000575: 1123 TBASE5 ERASE
001003,000576: 1124 PHSPRDT5 ERASE
001004,000577: 1125 TBASE6 ERASE
001005,000578: 1126 PHSPRDT6 ERASE
001006,000579:
001007,000580: # ERASABLE FOR SINGLE PRECISION SUBROUTINES.
001008,000581:
001009,000582: 1127 HALFY ERASE
001010,000583: 1130 ROOTRET ERASE
001011,000584: 1131 SQRARG ERASE
001012,000585:
001013,000586: 1132 1127 TEMK EQUALS HALFY
001014,000587: 1132 1130 SQ EQUALS ROOTRET
001015,000588:
001016,000589: # ERASABLE ASSIGNMETNS FOR LMP ROUTINES
001017,000590:
001018,000591: 1132 LMPCMD ERASE +7 # CIRCULAR BUFFER OF LAST 8 COMMANDS.
001019,000592: 1142 LMPIN ERASE # POINTS TO NEXT AVAILABLE INPUT SLOT.
001020,000593: 1143 LMPOUT ERASE # POINTS TO NEXT OUTPUT LOCATION IN BUFFER
001021,000594: 1144 LMPOUTT ERASE # INTERRIM STORAGE FOR THE ABOVE.
001022,000595: 1145 LMPRET ERASE # 2CADR RETURN ADDRESS FOR SUBROUTINES.
001023,000596: 1146 LMPBBANK ERASE
001024,000597: 1147 SAVDT ERASE
001025,000598:
|
|
Page 24 |
001027,000600: 1150 LONGCADR ERASE +1 # UNSWITCHED ERASABLE FOR LONGCALC
001028,000601: 1152 LONGTIME ERASE +1
001029,000602:
001030,000603: 1154 CMEMORY ERASE +10D
001031,000604:
001032,000605: 1167 1154 TEMX EQUALS CMEMORY
001033,000606: 1167 1155 TEMY EQUALS CMEMORY +1D
001034,000607: 1167 1156 TEMZ EQUALS CMEMORY +2D
001035,000608: 1167 1157 TEMXY EQUALS CMEMORY +3D
001036,000609: 1167 1160 PIPAGE EQUALS CMEMORY +4D
001037,000610:
001038,000611:
001039,000612: 1167 1154 TEMTPREL EQUALS TEMX # DP TEMP FOR GYROCOMP TERMINATE TIME. MP2
001040,000613:
001041,000614: 1167 1163 1/PIPADT EQUALS CMEMORY +7D
001042,000615: 1167 1163 OLDBT1 EQUALS 1/PIPADT
001043,000616: # SERVICER RESTARTS
001044,000617:
001045,000618: 1167 1161 STORASE EQUALS CMEMORY +5D
001046,000619: 1167 1162 RTSPLOSH EQUALS CMEMORY +6D
001047,000620: # STORAGE FOR FOR MISSION TIMER/PHASE REGISTER PAIRS.
001048,000621:
001049,000622: 1167 MTIMER4 ERASE
001050,000623: 1170 MTIMER3 ERASE
001051,000624: 1171 MTIMER2 ERASE
001052,000625: 1172 MTIMER1 ERASE
001053,000626: 1173 MPHASE4 ERASE
001054,000627: 1174 MPHASE3 ERASE
001055,000628: 1175 MPHASE2 ERASE
001056,000629: 1176 MPHASE1 ERASE
001057,000630: 1177 MTIMER4T ERASE +3 # RESTART STORAGE AREAS FOR THE ABOVE.
001058,000631: 1203 MPHASE4T ERASE +3
001059,000632: 1207 MDUETEMP ERASE
001060,000633: 1210 NEWMTIME ERASE # T1 AT MAINTENANCE TASK AFTER NEXT.
001061,000634: 1211 NEWTIMET ERASE # RESTART STORAGE FOR THE ABOVE.
001062,000635: 1212 MINH ERASE
001063,000636: 1213 STATECTR ERASE # TIMER FOR INTERNAL STATE VECTOR UPDATES.
001064,000637:
001065,000638: 1214 UPPHASE ERASE # NEW PHASE AS SENT UP THE UPLINK.
001066,000639: 1215 UPDT ERASE # NEW DT AS SENT UP THE UPLINK.
001067,000640: 1216 UPINDEX ERASE # INDEX OF TIMER MODIFIED BY UPLINK.
001068,000641: 1217 UPGET ERASE +1 # GET FOR UPLINK REQUEST.
001069,000642:
001070,000643: 1221 MRETURN ERASE # RETURN REGISTER.
001071,000644:
001072,000645: # PMEMORY ASSIGNMENTS
001073,000646:
001074,000647: 1222 PMEMORY ERASE +89D
001075,000648: 1354 1222 REFRRECT EQUALS PMEMORY +00D # STATE VECTORS FOR ORBITAL INTEGRATION
001076,000649:
|
|
Page 25 |
001078,000651: 1354 1230 REFVRECT EQUALS PMEMORY +06D
001079,000652: 1354 1236 DELTAV EQUALS PMEMORY +12D # STATE DEVIATIONS
001080,000653:
001081,000654: 1354 1244 NUV EQUALS PMEMORY +18D
001082,000655: 1354 1252 REFRCV EQUALS PMEMORY +24D
001083,000656: 1354 1260 REFVCV EQUALS PMEMORY +30D
001084,000657: 1354 1266 REFTC = REFTCV
001085,000658: 1354 1266 REFTCV EQUALS PMEMORY +36D
001086,000659: 1354 1270 TE EQUALS PMEMORY +38D # TET,TIME CORRESPONDING TO LEM STATE
001087,000660: 1354 1272 REFXKEP EQUALS PMEMORY +40D # ROOT TO KEPLER EQUATIONS
001088,000661: 1354 1274 REFSMMAT EQUALS PMEMORY +42D # TRANSFORMATION MATRIX BETWEEN SM AND REF
001089,000662: 1354 1316 PIPRETRN EQUALS PMEMORY +60D
001090,000663: 1354 1320 PIPTIME EQUALS PMEMORY +62D
001091,000664: 1354 1322 DVSELECT EQUALS PMEMORY +64D
001092,000665: 1354 1332 MASS EQUALS PMEMORY +72D
001093,000666: 1354 1342 CDUTEMP EQUALS PMEMORY +80D # VECTOR USED IN FINDCDUD
001094,000667:
001095,000668: 1354 1334 /ACF/ EQUALS PMEMORY +74D
001096,000669: 1354 1336 /AF/ EQUALS PMEMORY +76D
001097,000670: 1354 1335 PCNTF EQUALS PMEMORY +75D
001098,000671: 1354 1340 STATIME EQUALS PMEMORY +78D # DP DOWNLINK TIME-DONT VIOLATE THESE REGS
001099,000672: 1354 1342 ALMCADR EQUALS PMEMORY +80D # DP
001100,000673: # ASSIGNMENTS RESERVED EXCLUSIVELY FOR SELF-CHECK
001101,000674: 1354 SELFERAS ERASE 1355 - 1377
001102,000675:
001103,000676: 1354 ERESTORE = 1355
001104,000677: 1354 SELFRET = 1356
001105,000678: 1354 SMODE = 1357
001106,000679: 1354 REDOCTR = 1360 # KEEPS TRACK OF RESTARTS
001107,000680: 1354 SFAIL = 1361 # SFAIL,ERCOUNT,FAILREG(S) USED BY NOUN 31
001108,000681: 1354 ERCOUNT = 1362 # FOR ALARMS.
001109,000682: 1354 FAILREG = 1363 # FAILREG,+1,+2 USED BY NOUN 50 FOR ALARMS
001110,000683: 1354 SCOUNT = 1366
001111,000684: 1354 SKEEP1 = 1371
001112,000685: 1354 SKEEP2 = 1372
001113,000686: 1354 SKEEP3 = 1373
001114,000687: 1354 SKEEP4 = 1374
001115,000688: 1354 SKEEP5 = 1375
001116,000689: 1354 SKEEP6 = 1376
001117,000690: 1354 SKEEP7 = 1377
001118,000691:
001119,000692: # WAITLIST TASK LISTS
001120,000693:
001121,000694: E3,1400 SETLOC 1400
001122,000695:
001123,000696: E3,1400 LST1 ERASE +7 # DELTA T'S.
001124,000697: E3,1410 LST2 ERASE +17D # 2CADR TASK ADDRESSES.
001125,000698:
001126,000699: E3,1432 LONGBASE ERASE +1 # ERASABLE FOR LONGCALL
001127,000700: E3,1434 LONGEXIT ERASE +1
001128,000701:
|
|
Page 26 |
001130,000703: # IMU COMPENSATION PARAMETERS:
001131,000704:
001132,000705: E3,1436 PBIASX ERASE # PIPA BIAS AND PIPA SCALE FACTOR TERMS
001133,000706: E3,1437 E3,1436 PIPABIAS = PBIASX # INTERMIXED.
001134,000707: E3,1437 PIPASCFX ERASE
001135,000708: E3,1440 E3,1437 PIPASCF = PIPASCFX
001136,000709: E3,1440 PBIASY ERASE
001137,000710: E3,1441 PIPASCFY ERASE
001138,000711:
001139,000712: E3,1442 PBIASZ ERASE
001140,000713: E3,1443 PIPASCFZ ERASE
001141,000714:
001142,000715: E3,1444 NBDX ERASE # GYRO BIAS DRIFTS
001143,000716: E3,1445 E3,1444 GBIASX = NBDX
001144,000717: E3,1445 NBDY ERASE
001145,000718: E3,1446 NBDZ ERASE
001146,000719:
001147,000720: E3,1447 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
001148,000721: E3,1450 ADIAY ERASE # INPUT AXIS
001149,000722: E3,1451 ADIAZ ERASE
001150,000723:
001151,000724: E3,1452 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
001152,000725: E3,1453 ADSRAY ERASE # SPIN REFERENCE AXIS
001153,000726: E3,1454 ADSRAZ ERASE
001154,000727:
001155,000728: E3,1455 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES
001156,000729:
001157,000730: E3,1463 GCOMPSW ERASE
001158,000731: E3,1464 E3,1455 COMMAND EQUALS GCOMP
001159,000732: E3,1464 E3,1460 CDUIND EQUALS GCOMP +3
001160,000733:
001161,000734: # STORAGE FOR RR TASKS.
001162,000735:
001163,000736: E3,1464 RRRET ERASE
001164,000737: E3,1465 RDES ERASE
001165,000738: E3,1466 RRINDEX ERASE
001166,000739:
001167,000740: # AOT CALIBRATIONS IN AZIMUTH AND ELEVATION AT DETENTS
001168,000741: E3,1467 AOTAZ ERASE +2
001169,000742: E3,1472 AOTEL ERASE +2
001170,000743: # ASSIGNMENTS FOR PRESENTLY UNUSED NOUNS.
001171,000744: E3,1475 AZANG EQUALS # DELETE WHEN OPTICAL TRACKER NOUNS GONE.
001172,000745: E3,1475 ELANG EQUALS
001173,000746: E3,1475 DESLOTSY EQUALS
001174,000747: E3,1475 DESLOTSX EQUALS
001175,000748:
001176,000749: E3,1475 ROLL ERASE +2
001177,000750: E3,1500 LANDMARK ERASE +5
001178,000751:
001179,000752: # THE FOLLOWING REGS ARE USED BY THE STANDBY VERBS
001180,000753:
|
|
Page 27 |
001182,000755:
001183,000756: E3,1506 TIMESAV ERASE +1
001184,000757: E3,1510 SCALSAV ERASE +1
001185,000758: E3,1512 TIMAR ERASE +1
001186,000759: E3,1514 TIMEDIFF ERASE +1
001187,000760:
001188,000761: # THE FOLLOWING MAY BE PLACED IN SWITCHED ERRASSIBLE
001189,000762:
001190,000763: # PHSNAME(I) AND PHSBB(I) STORE THE 2CADR FOR VARIABLE RESTARTS FOR EACH OF THE GROUPS
001191,000764: E3,1516 PHSNAME1 ERASE
001192,000765: E3,1517 PHSBB1 ERASE
001193,000766: E3,1520 PHSNAME2 ERASE
001194,000767: E3,1521 PHSBB2 ERASE
001195,000768: E3,1522 PHSNAME3 ERASE
001196,000769: E3,1523 PHSBB3 ERASE
001197,000770:
001198,000771: E3,1524 PHSNAME4 ERASE
001199,000772: E3,1525 PHSBB4 ERASE
001200,000773: E3,1526 PHSNAME5 ERASE
001201,000774: E3,1527 PHSBB5 ERASE
001202,000775: E3,1530 PHSNAME6 ERASE
001203,000776: E3,1531 PHSBB6 ERASE
001204,000777:
001205,000778: E3,1532 BCDU ERASE +2
001206,000779: E3,1535 MIS ERASE +17D
001207,000780: E3,1557 MFS ERASE +17D
001208,000781: E3,1601 TMIS ERASE +17D
001209,000782: E3,1623 E3,1601 TMFI EQUALS TMIS
001210,000783: E3,1623 COF ERASE +5
001211,000784: E3,1631 CPHI ERASE
001212,000785: E3,1632 CTHETA ERASE
001213,000786: E3,1633 CPSI ERASE
001214,000787: E3,1634 E3,1557 MFI EQUALS MFS
001215,000788: E3,1634 COFSKEW ERASE +5
001216,000789: E3,1642 AM ERASE +1
001217,000790: E3,1644 E3,1601 MFISYM EQUALS TMIS
001218,000791: E3,1644 CAM ERASE +1
001219,000792: E3,1646 E3,1607 C2SQP EQUALS K2
001220,000793: E3,1646 E3,1611 C2SQM EQUALS K2 +2
001221,000794:
001222,000795: E3,1646 E3,1613 C2PP EQUALS K2 +4
001223,000796: E3,1646 E3,1615 C2MP EQUALS K3
001224,000797: E3,1646 E3,1617 C1PP EQUALS K3 +2
001225,000798: E3,1646 E3,1621 C1MP EQUALS K3 +4
001226,000799: E3,1646 E3,1601 P21 EQUALS K1
001227,000800: E3,1646 E3,1603 D21 EQUALS K1 +2
001228,000801: E3,1646 E3,1605 G21 EQUALS K1 +4
001229,000802: E3,1646 RAD ERASE +1
001230,000803: E3,1650 RSQ ERASE +1
001231,000804: E3,1652 E3,1557 E1 EQUALS MFS
001232,000805: E3,1652 E3,1565 E2 EQUALS MFS +6
001233,000806: E3,1652 E3,1634 IG EQUALS COFSKEW
001234,000807: E3,1652 E3,1615 OGF EQUALS TMIS +12D
001235,000808:
|
|
Page 28 |
001237,000810: E3,1652 E3,1601 K1 EQUALS TMIS
001238,000811: E3,1652 E3,1607 K2 EQUALS TMIS +6
001239,000812: E3,1652 E3,1615 K3 EQUALS TMIS +12D
001240,000813: E3,1652 E3,1557 KEL EQUALS MFS
001241,000814: E3,1652 RATEINDX ERASE
001242,000815: E3,1653 SPNDX ERASE
001243,000816: E3,1654 MYNDX ERASE
001244,000817: E3,1655 E3,1634 BRATE EQUALS COFSKEW
001245,000818: E3,1655 E3,1644 TM EQUALS CAM
001246,000819: E3,1655 E3,1601 NCDU EQUALS TMIS
001247,000820: E3,1655 E3,1604 NEXTIME EQUALS TMIS +3
001248,000821: E3,1655 0771 DELDCDU EQUALS DELCDUX
001249,000822: E3,1655 0772 DELDCDU1 EQUALS DELCDUY
001250,000823: E3,1655 0773 DELDCDU2 EQUALS DELCDUZ
001251,000824: E3,1655 E3,1605 TTEMP EQUALS TMIS +4
001252,000825: E3,1655 POINTVSM ERASE +5
001253,000826: E3,1663 SCAXIS ERASE +5
001254,000827: E3,1671 RTN ERASE
001255,000828: E3,1672 TAG5 ERASE
001256,000829: E3,1673 TF ERASE +1
001257,000830:
001258,000831: E3,1675 COGAVAIL ERASE +1
001259,000832: E3,1677 SPLOC ERASE +2
001260,000833: E3,1702 UNR1 ERASE +5
001261,000834: E3,1710 R0VEC ERASE +5
001262,000835: E3,1716 V0VEC ERASE +5
001263,000836: E3,1724 UNNORM ERASE +5
001264,000837: E3,1732 INDEP ERASE +1
001265,000838: E3,1734 TWEEKIT ERASE +1
001266,000839: E3,1736 DEPVAR ERASE +1
001267,000840: E3,1740 PREVDEP ERASE +1
001268,000841: E3,1742 DELDEP ERASE +1
001269,000842: E3,1744 DELINDEP ERASE +1
001270,000843: E3,1746 MININDEP EQUALS 22D
001271,000844: E3,1746 MAXINDEP EQUALS 26D
001272,000845: # RESTRTCS-RESTRTCS +77D IS USED FOR RESTART PROTECTION DURING PRELAUNCH
001273,000846:
001274,000847: E3,1746 RESTRTCS = 1600
001275,000848:
001276,000849: # ERASABLE FOR MISSION PHASE TWO
001277,000850: E3,1746 TGRR ERASE +1 # TIME OF GUIDANCE REFERENCE RELEASE
001278,000851: E3,1750 TLIFTOFF ERASE +1 # TIME OF LIFTOFF
001279,000852: E3,1752 TPRELTER ERASE +1 # TIME OF GYROCOMPASSING TERMINATION
001280,000853: E3,1754 SAVEDT ERASE +1 # TEMPORARY FOR MP 2
001281,000854:
001282,000855: E3,1756 DT-LIFT ERASE +1 # DT FROM GRR TO LIFTOFF
001283,000856: E3,1760 DT-DFITM ERASE # DT FROM GRR TO DFI T/M CALIBRATION
001284,000857: E3,1761 E3,1760 ABORTNDX EQUALS DT-DFITM
001285,000858: E3,1761 DT-LETJT ERASE +1 # DT FROM LIFTOFF TO POST-LET JETTISON
001286,000859: E3,1763 AZGR ERASE +1 # PAD 37B VERTICAL TO REF X-Z PLANE.
001287,000860: E3,1765 TILT ERASE +1 # Y ABOUT Z IN REVS.
001288,000861: E3,1767 ZSMAZ ERASE +1 # Z FROM NORTH IN REVS.
001289,000862:
|
|
Page 29 |
001291,000864: E3,1771 TEPHEM ERASE +2 # TP CS FROM 00:00:00 JULY 1 TO 00:00:00
001292,000865: # OF LAUNCH DAY.
001293,000866: E3,1774 MP6TO7 ERASE # ERASABLE FOR MP6
001294,000867: E3,1775 MP8TO9 ERASE # ERASABLE FOR MISSION PHASE 8
001295,000868:
|
|
Page 30 |
001297,000870: # ERASABLE ASSIGNMENTS FOR EBANK 4
001298,000871:
001299,000872:
001300,000873:
001301,000874: E4,1400 SETLOC 2000
001302,000875:
001303,000876: E4,1400 AMEMORY ERASE +150D
001304,000877: # THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION
001305,000878:
001306,000879: # CAUTION: ORBITAL INTEGRATION REGISTERS RAVEGON, VAVEGON AND SECOND DPS GUIDANCE REGISTERS TPIP, TTF/4,
001307,000880: # TTF/4TMP, TULLG ARE ALL IN USE SIMULTANEOUSLY AND MUST NOT CONFLICT.
001308,000881:
001309,000882: E4,1627 E4,1400 RRECT EQUALS AMEMORY +000D
001310,000883: E4,1627 E4,1400 RIGNTION EQUALS AMEMORY +000D
001311,000884: E4,1627 E4,1406 VRECT EQUALS AMEMORY +006D
001312,000885: E4,1627 E4,1406 VIGNTION EQUALS AMEMORY +006D
001313,000886: E4,1627 E4,1414 TDELTAV EQUALS AMEMORY +012D
001314,000887: E4,1627 E4,1414 NEWDLTAV EQUALS AMEMORY +012D
001315,000888: E4,1627 E4,1422 TNUV EQUALS AMEMORY +018D
001316,000889: E4,1627 E4,1422 NEWNUV EQUALS AMEMORY +018D
001317,000890: E4,1627 E4,1430 RCV EQUALS AMEMORY +024D
001318,000891: E4,1627 E4,1430 FOUNDR EQUALS AMEMORY +024D
001319,000892: E4,1627 E4,1436 VCV EQUALS AMEMORY +030D
001320,000893: E4,1627 E4,1436 FOUNDV EQUALS AMEMORY +030D
001321,000894: E4,1627 E4,1444 TC EQUALS AMEMORY +036D
001322,000895: E4,1627 E4,1446 TET EQUALS AMEMORY +038D
001323,000896: E4,1627 E4,1450 XKEP EQUALS AMEMORY +040D
001324,000897: E4,1627 E4,1452 ALPHAV EQUALS AMEMORY +042D
001325,000898: E4,1627 E4,1452 DELR EQUALS AMEMORY +042D
001326,000899: E4,1627 E4,1460 BETAV EQUALS AMEMORY +048D
001327,000900: E4,1627 E4,1460 DELVEL EQUALS AMEMORY +048D
001328,000901: E4,1627 E4,1466 PHIV EQUALS AMEMORY +054D
001329,000902:
001330,000903: E4,1627 E4,1466 BVECTOR EQUALS AMEMORY +054D
001331,000904: E4,1627 E4,1474 PSIV EQUALS AMEMORY +060D
001332,000905: E4,1627 E4,1502 FV EQUALS AMEMORY +066D
001333,000906:
001334,000907: E4,1627 E4,1510 VECTAB EQUALS AMEMORY +072D
001335,000908:
001336,000909: E4,1627 E4,1510 TAVEGON EQUALS AMEMORY +072D
001337,000910: E4,1627 E4,1512 TRESUME EQUALS AMEMORY +074D
001338,000911: E4,1627 E4,1514 RAVEGON EQUALS AMEMORY +076D # SEE CAUTION ABOVE
001339,000912: E4,1627 E4,1522 VAVEGON EQUALS AMEMORY +082D # SEE CAUTION ABOVE
001340,000913: E4,1627 E4,1530 RIG-2SEC EQUALS AMEMORY +088D
001341,000914: E4,1627 E4,1554 ALPHAM EQUALS AMEMORY +108D
001342,000915: E4,1627 E4,1556 BETAM EQUALS AMEMORY +110D
001343,000916: E4,1627 E4,1560 TAU EQUALS AMEMORY +112D
001344,000917: E4,1627 E4,1560 GIVENT EQUALS AMEMORY +112D
001345,000918: E4,1627 E4,1562 DT/2 EQUALS AMEMORY +114D
001346,000919: E4,1627 E4,1564 H EQUALS AMEMORY +116D
001347,000920: E4,1627 E4,1566 TDEC EQUALS AMEMORY +118D
001348,000921:
|
|
Page 31 |
001350,000923: E4,1627 E4,1570 FBRANCH EQUALS AMEMORY +120D
001351,000924: E4,1627 E4,1571 HBRANCH EQUALS AMEMORY +121D
001352,000925: E4,1627 E4,1572 GMODE EQUALS AMEMORY +122D
001353,000926: E4,1627 E4,1573 QREADY EQUALS AMEMORY +123D
001354,000927: E4,1627 E4,1574 MEASQ EQUALS AMEMORY +124D
001355,000928: E4,1627 E4,1576 DELTAQ EQUALS AMEMORY +126D
001356,000929:
001357,000930: E4,1627 E4,1600 MEASMODE EQUALS AMEMORY +128D
001358,000931: E4,1627 E4,1601 NVCODE EQUALS AMEMORY +129D
001359,000932: E4,1627 E4,1602 MIDEXIT EQUALS AMEMORY +130D
001360,000933: E4,1627 E4,1602 DSPRTRN EQUALS AMEMORY +130D
001361,000934: E4,1627 E4,1603 INCORPEX EQUALS AMEMORY +131D
001362,000935: E4,1627 E4,1604 STEPEXIT EQUALS AMEMORY +132D
001363,000936: E4,1627 E4,1605 DIFEQCNT EQUALS AMEMORY +133D
001364,000937:
001365,000938: E4,1627 E4,1605 NORMGAM EQUALS AMEMORY +133D
001366,000939: E4,1627 E4,1606 SCALEA EQUALS AMEMORY +134D
001367,000940: E4,1627 E4,1607 SCALEB EQUALS AMEMORY +135D
001368,000941: E4,1627 E4,1613 YV EQUALS AMEMORY +139D
001369,000942: E4,1627 E4,1621 ZV EQUALS AMEMORY +145D
001370,000943:
|
|
Page 32 |
001372,000945: # VARIABLES FOR SECOND DPS GUIDANCE
001373,000946:
001374,000947: # CAUTION: ORBITAL INTEGRATION REGISTERS RAVEGON, VAVEGON AND SECOND DPS GUIDANCE REGISTERS TPIP, TTF/4,
001375,000948: # TTF/4TMP, TULLG ARE ALL IN USE SIMULTANEOUSLY AND MUST NOT CONFLICT.
001376,000949:
001377,000950: # 2DPS PRESENTLY RECEIVES CERTAIN VARIABLES FROM THE ORBITAL INTEGRATION PROGRAM IN REGISTERS USED IN COMMON BY
001378,000951: # THE TWO PROGRAMS. THESE VARIABLES ARE TET, RIGNTION, VIGNTION. 2DPS CAREFULLY TRANSFERS THESE VARIABLES TO
001379,000952: # REGISTERS OF PROGRAM CALCRVG BEFORE WRITING INTO THE REGISTERS IN WHICH THESE VARIABLES ARRIVE.
001380,000953:
001381,000954: # SOME TIME SHARING OF 2DPS REGISTERS BY 2DPS VARIABLES HAS BEEN ARRANGED. MORE IS POSSIBLE.
001382,000955: # BUT IT BECOMES INCREASINGLY DIFFICULT TO PROVE RESTARTABILITY.
001383,000956:
001384,000957: E4,1627 E4,1400 E2DPS = AMEMORY
001385,000958:
001386,000959: # CONTROL VARIABLES
001387,000960:
001388,000961: E4,1627 E4,1400 NDX2DPS = E2DPS
001389,000962: E4,1627 E4,1401 NDXBR = NDX2DPS +1
001390,000963: E4,1627 E4,1402 FLPASS0 = NDXBR +1
001391,000964: E4,1627 E4,1403 COUNTFC = FLPASS0 +1
001392,000965: E4,1627 E4,1404 COUNTFCT = COUNTFC +1
001393,000966:
001394,000967: # ADDRESS VARIABLES
001395,000968:
001396,000969: E4,1627 E4,1405 AVGXTEMP = COUNTFCT +1
001397,000970: E4,1627 E4,1406 RETNTLZ = AVGXTEMP +1
001398,000971: E4,1627 E4,1407 RETXIGN1 = RETNTLZ +1
001399,000972: E4,1627 E4,1410 RETTHRT = RETXIGN1 +1
001400,000973:
001401,000974: # COORDINATE FRAME VECTORS AND MATRICES
001402,000975:
001403,000976: E4,1627 E4,1411 CLT/2 = RETTHRT +1
001404,000977:
001405,000978: # TABLES
001406,000979:
001407,000980: E4,1627 E4,1433 TABLTTF = CLT/2 +22
001408,000981:
001409,000982: # STATE VARIABLES
001410,000983:
001411,000984: E4,1627 E4,1444 PIPTIMET = TABLTTF +11
001412,000985: E4,1627 E4,1446 TPIP = PIPTIMET +2 # SEE CAUTION ABOVE
001413,000986: E4,1627 E4,1450 TPIPOLD = TPIP +2
001414,000987: E4,1627 E4,1452 TTF/4 = TPIPOLD +2 # SEE CAUTION ABOVE
001415,000988:
001416,000989: E4,1627 E4,1454 TTF/4TMP = TTF/4 +2 # SEE CAUTION ABOVE
001417,000990: E4,1627 E4,1456 TULLG = TTF/4TMP +2 # SEE CAUTION ABOVE
001418,000991: E4,1627 E4,1460 R = TULLG +2
001419,000992: E4,1627 E4,1466 RLENGTH = R +6
001420,000993: E4,1627 E4,1470 V = RLENGTH +2
001421,000994: E4,1627 E4,1476 VL = V +6
001422,000995: E4,1627 E4,1504 RP2 = VL +6
001423,000996:
|
|
Page 33 |
001425,000998: E4,1627 E4,1506 MAP2 = RP2 +2
001426,000999: E4,1627 E4,1510 RC = MAP2 +2
001427,001000:
001428,001001: E4,1627 E4,1512 RS = RC +2
001429,001002: E4,1627 E4,1512 RTEMP = RS
001430,001003: E4,1627 E4,1520 VS = RS +6
001431,001004: E4,1627 E4,1520 VTEMP = VS
001432,001005: E4,1627 E4,1526 CRS2 = VS +6
001433,001006: E4,1627 E4,1530 SRS2 = CRS2 +2
001434,001007: E4,1627 E4,1532 TRS2 = SRS2 +2
001435,001008: E4,1627 E4,1534 ASPRT = TRS2 +2
001436,001009:
001437,001010: # AFC CALCULATION VARIABLES, QUADRATIC AND LINEAR
001438,001011:
001439,001012: E4,1627 E4,1542 ACS = ASPRT +6
001440,001013: E4,1627 E4,1550 AFCS = ACS +6
001441,001014: E4,1627 E4,1556 AFC = AFCS +6
001442,001015: E4,1627 E4,1564 /AFC/ = AFC +6
001443,001016: E4,1627 E4,1566 /AFC/OLD = /AFC/ +2
001444,001017: E4,1627 E4,1570 UNAFC/2 = /AFC/OLD +2
001445,001018: E4,1627 E4,1576 UNAFC/20 = UNAFC/2 +6
001446,001019: E4,1627 E4,1604 ALINS = UNAFC/20 +6
001447,001020: E4,1627 E4,1604 GDUMPRES = ALINS
001448,001021: E4,1627 E4,1612 JLINS = ALINS +6
001449,001022: E4,1627 E4,1612 GDOTM1 = JLINS
001450,001023:
001451,001024: # ASSIGNMENTS WITHIN THE WORK AREA
001452,001025:
001453,001026: E4,1627 PDUM = 6
001454,001027: E4,1627 RDUM = 10
001455,001028: E4,1627 VDUM = 16
001456,001029: E4,1627 ADUM = 40 # ONLY ADUM CAN USE THE AREA DESTROYED BY
001457,001030: E4,1627 JDUM = 24 # TAKING THE UNIT OF RDUM IN SUBR GDUMCL.
001458,001031: E4,1627 GDUM = 32 # PLACE GDUM TO PRESERVE /RDUM/ FOR OTHERS
001459,001032:
001460,001033: # COMPLETES SECOND DPS ERASABLES (EXCEPT FOR CPT6/2 WHICH IS ASSIGNED ELSEWHERE)
001461,001034:
|
|
Page 34 |
001463,001036: # ERASABLES FOR ASCENT GUIDANCE
001464,001037:
001465,001038:
001466,001039:
001467,001040: # ERASABLES FOR PREAPS2
001468,001041:
001469,001042: E4,1627 E4,1400 PAXIS1 EQUALS AMEMORY # VECTOR
001470,001043: E4,1627 E4,1406 QAXIS EQUALS AMEMORY +6D # VECTOR
001471,001044:
001472,001045: E4,1627 E4,1414 SAXIS EQUALS AMEMORY +12D # VECTOR
001473,001046: E4,1627 E4,1422 AT EQUALS AMEMORY +18D # DP * DO *
001474,001047: E4,1627 E4,1424 1/VE EQUALS AMEMORY +20D # DP * NOT *
001475,001048: E4,1627 E4,1426 TBUP EQUALS AMEMORY +22D # DP * CHANGE *
001476,001049: E4,1627 E4,1430 ATMEAS EQUALS AMEMORY +24D # (4) * THE *
001477,001050: E4,1627 E4,1434 KR EQUALS AMEMORY +28D # DP * ORDER *
001478,001051: E4,1627 E4,1436 KR1 EQUALS AMEMORY +30D # DP * OF *
001479,001052: E4,1627 E4,1440 RDOTD EQUALS AMEMORY +32D # DP * THESE *
001480,001053: E4,1627 E4,1442 YDOTD EQUALS AMEMORY +34D # DP * LOCATIONS*
001481,001054: E4,1627 E4,1444 ZDOTD EQUALS AMEMORY +36D # DP *************
001482,001055: E4,1627 E4,1446 RRETURN EQUALS AMEMORY +38D # DP
001483,001056: E4,1627 E4,1450 ASCRET EQUALS AMEMORY +40D # SP
001484,001057:
001485,001058:
001486,001059:
001487,001060: # ERASABLES FOR ASCENT
001488,001061:
001489,001062: E4,1627 E4,1451 LAMPRIO EQUALS AMEMORY +41D # SP
001490,001063: E4,1627 E4,1452 TCO EQUALS AMEMORY +42D # DP
001491,001064: E4,1627 E4,1454 TREF EQUALS AMEMORY +44D # DP
001492,001065: E4,1627 E4,1456 UT EQUALS AMEMORY +46D # VECTOR
001493,001066: E4,1627 E4,1464 YCONS EQUALS AMEMORY +52D # DP
001494,001067: E4,1627 E4,1466 YDOT EQUALS AMEMORY +54D # DP
001495,001068:
001496,001069: E4,1627 E4,1470 LAXIS EQUALS AMEMORY +56D # VECTOR
001497,001070: E4,1627 E4,1476 ZAXIS EQUALS AMEMORY +62D # VECTOR
001498,001071: E4,1627 E4,1504 ZDOT EQUALS AMEMORY +68D # DP
001499,001072: E4,1627 E4,1506 TIME EQUALS AMEMORY +70D # DP
001500,001073: E4,1627 E4,1510 GEFF EQUALS AMEMORY +72D # DP
001501,001074: E4,1627 E4,1512 PCONS EQUALS AMEMORY +74D # DP
001502,001075:
001503,001076: # *** THE REGISTERS AMEMORY +76D THRU AMEMORY +87D CONTAIN RAVEGON AND VAVEGON, AND MUST NOT BE USED BY THE
001504,001077: # ASCENT EQUATIONS. *********
001505,001078:
001506,001079: E4,1627 E4,1530 PRATE EQUALS AMEMORY +88D # DP
001507,001080: E4,1627 E4,1532 H1 EQUALS AMEMORY +90D # VECTOR
001508,001081: E4,1627 E4,1540 RCOV EQUALS AMEMORY +96D # VECTOR
001509,001082: E4,1627 E4,1546 RDOT EQUALS AMEMORY +102D # DP
001510,001083: E4,1627 E4,1550 RY EQUALS AMEMORY +104D # DP
001511,001084: E4,1627 E4,1552 URCO EQUALS AMEMORY +106D # VECTOR
001512,001085:
|
|
Page 35 |
001514,001087: # ERASABLES FOR THRUST MAGNITUDE FILTER
001515,001088:
001516,001089: E4,1627 E4,1560 1/DV1 EQUALS AMEMORY +112D # DP
001517,001090: E4,1627 E4,1562 1/DV2 EQUALS AMEMORY +114D # DP
001518,001091: E4,1627 E4,1564 ABDVCONV EQUALS AMEMORY +116D # DP
001519,001092: E4,1627 E4,1566 TFL EQUALS AMEMORY +118D # DP
001520,001093:
001521,001094:
001522,001095:
001523,001096: # SWITCHES USED BY ASCENT GUIDANCE
001524,001097: E4,1627 HC EQUALS 59D
001525,001098: E4,1627 PASS EQUALS 58D
001526,001099: E4,1627 DIRECT EQUALS 57D
001527,001100:
|
|
Page 36 |
001529,001102: # ERASABLES USED IN ORBITAL INTEGRATION
001530,001103:
001531,001104: E4,1627 PBODY ERASE # USED IN ORBITAL INTEGRATION
001532,001105: E4,1630 E4,1630 W EQUALS PBODY +1 # UNUSED IN 206, BUT REFERRED TO BY
001533,001106: # ORBITAL INTEGRATION
001534,001107:
001535,001108: E4,1630 AVMIDRTN ERASE +1 # RETURN ADDRESS FROM AVETOMID OR MIDTOAVE
001536,001109:
001537,001110:
001538,001111:
001539,001112: # THE FOLLOWING ARE USED BY FINDCDUD
001540,001113:
001541,001114: E4,1632 AXISD ERASE +5 # VECTOR
001542,001115: E4,1640 AXIS ERASE +5 # VECTOR
001543,001116: E4,1646 COSCDU ERASE +5 # VECTOR
001544,001117: E4,1654 SINCDU ERASE +5 # VECTOR
001545,001118: E4,1662 0000047 RETSAVE EQUALS X2 # SAVE QPRET IN UNUSED X2
001546,001119:
001547,001120:
001548,001121:
001549,001122: # ERASABLES FOR MISSION PHASES 7,9,11,13
001550,001123:
001551,001124: # MISSION PHASE 7
001552,001125:
001553,001126: E4,1662 DT2TEMP ERASE
001554,001127: E4,1663 DT2TEMPD ERASE +1
001555,001128:
001556,001129: # MISSION PHASE 9
001557,001130:
001558,001131: E4,1665 E4,1662 SHJUMP1 EQUALS DT2TEMP
001559,001132: E4,1665 TDI ERASE +1
001560,001133: E4,1667 E4,1663 TTHRUST EQUALS DT2TEMPD
001561,001134: E4,1667 TIGN ERASE +1
001562,001135: E4,1671 UNITVG ERASE +5
001563,001136:
001564,001137: # MISSION PHASES 11 AND 13
001565,001138:
001566,001139: E4,1677 E4,1662 MPRETRN EQUALS DT2TEMP
001567,001140: E4,1677 E4,1663 DT11TEMP EQUALS DT2TEMPD
001568,001141:
|
|
Page 37 |
001570,001143: # ERASABLE STORAGE FOR UPDATES - NON SHARABLE
001571,001144:
001572,001145: E4,1677 STBUFF ERASE +15
001573,001146: E4,1715 STCOUNT ERASE
001574,001147: E4,1716 UPOLDMOD ERASE
001575,001148: E4,1717 UPTEMP ERASE
001576,001149: E4,1720 UPTEMP1 ERASE
001577,001150: E4,1721 UPVERB ERASE
001578,001151: E4,1722 COMPNUMB ERASE
001579,001152:
001580,001153:
001581,001154:
001582,001155: # ERASABLE STORAGE FOR DOWNLINK - LIMITED SHARING POSSIBLE
001583,001156:
001584,001157: E4,1723 TEVENT ERASE +1 # TIME OF GRR,LIFTOFF,ENGINE ON/OFF
001585,001158: E4,1725 VDVECT ERASE +5 # VELOCITY DESIRED
001586,001159: E4,1733 VGVECT ERASE +5 # VELOCITY TO BE GAINED
001587,001160: E4,1741 RD ERASE +5 # POSITION DESIRED
001588,001161: E4,1747 TTGO ERASE +1 # TIME TO GO IN CENTISECONDS.
001589,001162:
001590,001163: E4,1751 E4,1747 TGO EQUALS TTGO # TEMPORY DEFINITION, TO BE MOVED.
001591,001164:
001592,001165: # EBANK 4 NON SHARABLE ERASABLE LOAD STORAGE
001593,001166:
001594,001167: E4,1751 E4LOAD ERASE 2351 - 2377
001595,001168:
001596,001169:
001597,001170: E4,1751 E4,1752 MPDTO8 EQUALS E4LOAD +1 # DELTA TIME FROM MP7 TO MP8
001598,001171:
001599,001172: E4,1751 E4,1752 MP9-11DT EQUALS E4LOAD +1 # DELTA TIME FROM MP9 TO MP11
001600,001173:
001601,001174: E4,1751 E4,1753 MP11TO13 EQUALS E4LOAD +2 # DELTA TIME FROM MP11 TO MP13
001602,001175:
001603,001176: E4,1751 E4,1754 RP EQUALS E4LOAD +3 # DP TARGET PARAMETER FOR DPS1 BURN
001604,001177:
001605,001178: E4,1751 E4,1756 CPT6/2 EQUALS E4LOAD +5 # VECTOR TARGET PARAMETER FOR DPS2 BURN
001606,001179:
001607,001180: E4,1751 E4,1764 R1VEC EQUALS E4LOAD +13 # VECTOR TARGET PARAMETER FOR APS2 BURN
001608,001181:
001609,001182: E4,1751 E4,1772 TINT EQUALS E4LOAD +21 # DP TARGET PARAMETER FOR APS2 BURN
001610,001183:
001611,001184: E4,1751 E4,1774 RCO EQUALS E4LOAD +23 # DP TARGET PARAMETER FOR APS2 BURN
001612,001185:
001613,001186: # E4LOAD +25 THRU E4LOAD +27 ARE STILL AVAILABLE
001614,001187:
|
|
Page 38 |
001616,001189: # ERASABLES FOR MASS UPDATE (A PART OF AVERAGE G) AND THROTTLE CONTROL
001617,001190:
001618,001191: # INITIAL VALUES FOR MASS
001619,001192:
001620,001193: E4,1751 E5,1540 MASSES = SAVERASE +26D
001621,001194: E4,1751 E5,1540 LEMMASS1 = MASSES # MASS OF LEM JUST AFTER SIVB SEPARATION
001622,001195: E4,1751 E5,1542 LEMMASS2 = MASSES +2 # MASS OF LEM JUST AFTER DPS SEPARATION
001623,001196:
001624,001197: # ERASABLES FOR MASS UPDATE ROUTINE
001625,001198:
001626,001199: E4,1751 E5,1544 EVEX = SAVERASE +30D
001627,001200: E4,1751 E5,1544 VEXDEX = EVEX
001628,001201: E4,1751 E5,1545 PREFORCE = EVEX +1
001629,001202: E4,1751 E5,1547 VEXNOM = EVEX +3
001630,001203: E4,1751 E5,1551 DELAREA = EVEX +5
001631,001204: E4,1751 E5,1553 AREARATE = EVEX +7
001632,001205: E4,1751 E5,1555 NEGVEX = EVEX +11
001633,001206: E4,1751 E5,1557 DAREATMP = EVEX +13
001634,001207: E4,1751 E5,1561 MASSTEMP = EVEX +15
001635,001208:
001636,001209: # ERASABLES FOR THROTTLE CONTROL
001637,001210:
001638,001211: E4,1751 E5,1557 ETHROT = SAVERASE +41D
001639,001212: E4,1751 E5,1557 FOLD = ETHROT
001640,001213: E4,1751 E5,1561 FCOLD = ETHROT +2
001641,001214: E4,1751 E5,1562 FC = ETHROT +3
001642,001215: E4,1751 E5,1564 PIF = ETHROT +5
001643,001216: E4,1751 E5,1566 RTNHOLD = ETHROT +7
001644,001217:
|
|
Page 39 |
001646,001219:
001647,001220:
001648,001221: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENTRY AND INITIALIZATION JOB OF THE FCS TEST FOR LEM.
001649,001222:
001650,001223: E4,1751 E4,1400 FCSCNTR EQUALS AMEMORY +000D
001651,001224:
001652,001225: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE JETSET TASK.
001653,001226:
001654,001227: # (OPTIMUM PRELAUNCH A C USES JETSTEP-JETSTEP +77D FOR RESTART PROOF)
001655,001228:
001656,001229: E4,1751 E4,1401 XJBUF EQUALS AMEMORY +001D
001657,001230: E4,1751 E4,1402 YZJBUF EQUALS AMEMORY +002D
001658,001231: E4,1751 E4,1403 JFBUF EQUALS AMEMORY +003D
001659,001232:
001660,001233: E4,1751 E4,1404 FCNTR EQUALS AMEMORY +004D
001661,001234: E4,1751 E4,1405 THBUF EQUALS AMEMORY +005D
001662,001235: E4,1751 E4,1406 OFFTMBUF EQUALS AMEMORY +006D
001663,001236: E4,1751 E4,1407 JETSTEP EQUALS AMEMORY +007D
001664,001237: E4,1751 E4,1410 NTIMES EQUALS AMEMORY +008D
001665,001238: E4,1751 E4,1420 NEXTTIME EQUALS AMEMORY +016D
001666,001239: E4,1751 E4,1430 JETONTM EQUALS AMEMORY +024D
001667,001240: E4,1751 E4,1440 XJETS EQUALS AMEMORY +032D
001668,001241: E4,1751 E4,1450 YZJETS EQUALS AMEMORY +040D
001669,001242: E4,1751 E4,1460 JETOFFTM EQUALS AMEMORY +048D
001670,001243:
001671,001244: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENGINE ON-OFF TASK.
001672,001245:
001673,001246: E4,1751 E4,1470 ENGSTEP EQUALS AMEMORY +056D
001674,001247: E4,1751 E4,1471 CYLTIMES EQUALS AMEMORY +057D
001675,001248: E4,1751 E4,1474 NEXTCYLT EQUALS AMEMORY +060D
001676,001249: E4,1751 E4,1477 ONTIME EQUALS AMEMORY +063D
001677,001250: E4,1751 E4,1502 OFFTIME EQUALS AMEMORY +066D
001678,001251: E4,1751 E4,1505 OFFTIMER EQUALS AMEMORY +069D
001679,001252:
001680,001253: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE TRIM TASK.
001681,001254:
001682,001255: E4,1751 E4,1510 TRIMSTEP EQUALS AMEMORY +072D
001683,001256:
001684,001257: E4,1751 E4,1511 NUMTIMES EQUALS AMEMORY +073D
001685,001258: E4,1751 E4,1525 STEPDLYT EQUALS AMEMORY +085D
001686,001259: E4,1751 E4,1541 TRIMONT EQUALS AMEMORY +097D
001687,001260: E4,1751 E4,1555 TRIMOFFT EQUALS AMEMORY +109D
001688,001261: E4,1751 E4,1571 TRIMIND EQUALS AMEMORY +121D
001689,001262:
001690,001263: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE THROTTLE TASK.
001691,001264:
001692,001265: E4,1751 E4,1605 THRTSTEP EQUALS AMEMORY +133D
001693,001266: E4,1751 E4,1606 DOTIMES EQUALS AMEMORY +134D
001694,001267: E4,1751 E4,1614 DELAY EQUALS AMEMORY +140D
001695,001268: E4,1751 E4,1622 THR1TIME EQUALS AMEMORY +146D
001696,001269: E4,1751 E4,1630 THCOMM1 EQUALS AMEMORY +152D
001697,001270:
|
|
Page 40 |
001699,001272: E4,1751 E4,1636 THCOMM2 EQUALS AMEMORY +158D
001700,001273:
001701,001274: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE INTERFACE LOOK TASK.
001702,001275:
001703,001276: E4,1751 E4,1644 30BUF1 EQUALS AMEMORY +164D
001704,001277: E4,1751 E4,1650 30BUF0 EQUALS AMEMORY +168D
001705,001278: E4,1751 E4,1654 QUITLOOK EQUALS AMEMORY +172D
001706,001279: E4,1751 E4,1655 CHCNTR EQUALS AMEMORY +173D
001707,001280:
001708,001281: E5,1400 SETLOC 2400
001709,001282: # THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE IN-FLIGHT ALIGNMENT ROUTINES
001710,001283:
001711,001284: E5,1400 XSM ERASE +17D
001712,001285: E5,1422 E5,1406 YSM = XSM +6
001713,001286: E5,1422 E5,1414 ZSM = XSM +12D
001714,001287: E5,1422 XDC ERASE +17D
001715,001288: E5,1444 E5,1430 YDC = XDC +6
001716,001289: E5,1444 E5,1436 ZDC = XDC +12D
001717,001290: E5,1444 E5,1422 XNB = XDC
001718,001291: E5,1444 E5,1430 YNB = XDC +6
001719,001292:
001720,001293: E5,1444 E5,1436 ZNB = XDC +12D
001721,001294: E5,1444 STARAD ERASE +17D
001722,001295: E5,1466 STAR ERASE +5
001723,001296: E5,1474 SAC ERASE +1
001724,001297: E5,1476 PAC ERASE +1
001725,001298: E5,1500 OGC ERASE +1
001726,001299: E5,1502 IGC ERASE +1
001727,001300: E5,1504 MGC ERASE +1
001728,001301: E5,1506 ZPRIME = 22D
001729,001302: E5,1506 PDA = 22D
001730,001303: E5,1506 COSTH = 16D
001731,001304: E5,1506 SINTH = 18D
001732,001305: E5,1506 THETA = 20D
001733,001306: E5,1506 STARM = 32D
001734,001307:
001735,001308:
001736,001309:
001737,001310: # THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE SYSTEM TESTS
001738,001311:
001739,001312: E5,1506 AZIMUTH ERASE +1
001740,001313: E5,1510 LATITUDE ERASE +1
001741,001314:
001742,001315: E5,1512 EROPTN ERASE
001743,001316: E5,1513 ERVECTOR ERASE +5
001744,001317: E5,1521 GYROD ERASE +5
001745,001318: E5,1527 LENGTHOT ERASE
001746,001319: E5,1530 LOSVEC ERASE +5
001747,001320: E5,1536 NBPOS ERASE
001748,001321: E5,1537 NDXCTR ERASE
001749,001322: E5,1540 PIPANO ERASE
001750,001323:
|
|
Page 41 |
001752,001325: E5,1541 PIPINDEX ERASE
001753,001326: E5,1542 PIPNDX ERASE +1
001754,001327:
001755,001328: E5,1544 POSITON ERASE
001756,001329: E5,1545 QPLAC ERASE
001757,001330: E5,1546 QPLACE ERASE
001758,001331: E5,1547 QPLACES ERASE
001759,001332: E5,1550 RUN ERASE
001760,001333: E5,1551 STOREPL ERASE
001761,001334: E5,1552 SOUTHDR ERASE
001762,001335: E5,1553 TAZEL1 ERASE +5
001763,001336: E5,1561 TEMPTIME ERASE +1
001764,001337: E5,1563 TESTNO ERASE
001765,001338: E5,1564 TMARK ERASE +1
001766,001339: E5,1566 SHAFTA ERASE
001767,001340: E5,1567 TRUNA ERASE
001768,001341: E5,1570 GENPL ERASE +134D
001769,001342:
001770,001343: E5,1777 E5,1570 CDUTIMEI = GENPL
001771,001344: E5,1777 E5,1572 CDUTIMEF = GENPL +2
001772,001345: E5,1777 E5,1574 CDUDANG = GENPL +4
001773,001346: E5,1777 E5,1575 CDUREADF = GENPL +5
001774,001347: E5,1777 E5,1576 CDUREADI = GENPL +6
001775,001348: E5,1777 E5,1577 CDULIMIT = GENPL +7
001776,001349:
001777,001350: E5,1777 E5,1574 TEMPADD = GENPL +4
001778,001351: E5,1777 E5,1575 TEMP = GENPL +5
001779,001352: E5,1777 E5,1576 NOBITS = GENPL +6
001780,001353: E5,1777 E5,1577 CHAN = GENPL +7
001781,001354:
001782,001355: E5,1777 E5,1600 LOS1 = GENPL +8D
001783,001356: E5,1777 E5,1606 LOS2 = GENPL +14D
001784,001357:
001785,001358: E5,1777 E5,1614 CALCDIR EQUALS GENPL +20D
001786,001359: E5,1777 E5,1615 CDUFLAG EQUALS GENPL +21D
001787,001360: E5,1777 E5,1616 GYTOBETQ EQUALS GENPL +22D
001788,001361: E5,1777 E5,1617 OPTNREG EQUALS GENPL +23D
001789,001362: E5,1777 E5,1620 SAVE EQUALS GENPL +24D # THREE CONSEC LOC
001790,001363: E5,1777 E5,1623 SFCONST1 EQUALS GENPL +27D
001791,001364: E5,1777 E5,1624 TIMER EQUALS GENPL +28D
001792,001365:
001793,001366: E5,1777 E5,1626 DATAPL EQUALS GENPL +30D
001794,001367: E5,1777 E5,1570 RDSP EQUALS GENPL # FIX LATER POSSIBLY KEEP1
001795,001368: E5,1777 E5,1670 MASKREG EQUALS GENPL +64D
001796,001369: E5,1777 E5,1672 CDUNDX EQUALS GENPL +66D
001797,001370: E5,1777 E5,1673 RESULTCT EQUALS GENPL +67D
001798,001371: E5,1777 E5,1676 COUNTPL EQUALS GENPL +70D
001799,001372:
001800,001373: E5,1777 E5,1677 CDUANG EQUALS GENPL +71D
001801,001374: E5,1777 E5,1570 AINLA = GENPL # 110 DEC OR 156 OCT LOCATIONS
001802,001375:
|
|
Page 42 |
001804,001377: E5,1777 E5,1570 WANGO EQUALS AINLA # VERT ERATE
001805,001378: E5,1777 E5,1572 WANGI EQUALS AINLA +2D # HORIZONTAL ERATE
001806,001379: E5,1777 E5,1574 WANGT EQUALS AINLA +4D # T
001807,001380: E5,1777 E5,1574 TORQNDX = WANGT
001808,001381: E5,1777 E5,1576 DRIFTT EQUALS AINLA +6D
001809,001382: E5,1777 E5,1600 ALX1S EQUALS AINLA +8D
001810,001383: E5,1777 E5,1601 CMPX1 EQUALS AINLA +9D # IND
001811,001384: E5,1777 E5,1602 ALK EQUALS AINLA +10D # GAINS
001812,001385: E5,1777 E5,1616 VLAUNS EQUALS AINLA +22D
001813,001386: E5,1777 E5,1616 THETAX = VLAUNS
001814,001387: E5,1777 E5,1620 WPLATO EQUALS AINLA +24D
001815,001388: E5,1777 E5,1624 INTY EQUALS AINLA +28D # SOUTH PIP INTE
001816,001389: E5,1777 E5,1626 ANGZ EQUALS AINLA +30D # EAST AXIS
001817,001390: E5,1777 E5,1630 INTZ EQUALS AINLA +32D # EAST PIP I
001818,001391: E5,1777 E5,1632 ANGY EQUALS AINLA +34D # SOUTH
001819,001392: E5,1777 E5,1624 THETAN = INTY
001820,001393: E5,1777 E5,1634 ANGX EQUALS AINLA +36D # VE
001821,001394: E5,1777 E5,1636 DRIFTO EQUALS AINLA +38D # VERT
001822,001395: E5,1777 E5,1640 DRIFTI EQUALS AINLA +40D # SOU
001823,001396: E5,1777 E5,1644 VLAUN EQUALS AINLA +44D
001824,001397: E5,1777 E5,1644 FILDELV = VLAUN
001825,001398: E5,1777 E5,1646 ACCWD EQUALS AINLA +46D
001826,001399: E5,1777 E5,1646 INTVEC = ACCWD
001827,001400: E5,1777 E5,1654 POSNV EQUALS AINLA +52D
001828,001401: E5,1777 E5,1656 DPIPAY EQUALS AINLA +54D # SOUTH
001829,001402: E5,1777 E5,1662 DPIPAZ EQUALS AINLA +58D # NORTH PIP INCREMENT
001830,001403: E5,1777 E5,1664 ALTIM EQUALS AINLA +60D
001831,001404: E5,1777 E5,1665 ALTIMS EQUALS AINLA +61D # INDEX
001832,001405: E5,1777 E5,1666 ALDK EQUALS AINLA +62D # TIME CONSTAN
001833,001406: E5,1777 E5,1704 DELM EQUALS AINLA +76D
001834,001407: E5,1777 E5,1714 WPLATI EQUALS AINLA +84D
001835,001408: E5,1777 E5,1716 GEOSAVED EQUALS AINLA +86D
001836,001409:
001837,001410: E5,1777 E5,1717 PREMTRXC EQUALS AINLA +87D
001838,001411: E5,1777 E5,1720 PRELMTRX EQUALS AINLA +88D
001839,001412: E5,1777 E5,1720 TRANSM1 = PRELMTRX
001840,001413: E5,1777 E5,1742 GEOCOMPS EQUALS AINLA +106D
001841,001414: E5,1777 E5,1743 GTSOPNDZ EQUALS AINLA +107D
001842,001415: E5,1777 E5,1744 1SECXT EQUALS AINLA +108D
001843,001416: E5,1777 E5,1745 GTSWTLST EQUALS AINLA +109D
001844,001417: E5,1777 E5,1746 ERECTIME EQUALS AINLA +110D
001845,001418: E5,1777 E5,1747 GEOMTRX EQUALS AINLA +111D
001846,001419: E5,1777 E5,1771 ERCOMP EQUALS AINLA +129D
001847,001420: E5,1777 E5,1777 ZERONDX EQUALS AINLA +135D
001848,001421:
001849,001422:
001850,001423:
001851,001424: E5,1777 E5,1570 BMEMORY EQUALS GENPL
001852,001425: E5,1777 0405 DELVY EQUALS DELVX +2
001853,001426: E5,1777 0407 DELVZ EQUALS DELVX +4
001854,001427:
|
|
Page 43 |
001856,001429: # TUMBLE MONITOR
001857,001430:
001858,001431: E5,1777 E6,1411 PCDUX EQUALS E
001859,001432: E5,1777 E6,1412 PCDUY EQUALS EDOT(2)
001860,001433: E5,1777 E6,1413 PCDUZ EQUALS ER
001861,001434: E5,1777 E6,1417 DCDUY EQUALS OMEGAQ
001862,001435: E5,1777 E6,1421 DCDUZ EQUALS OMEGAR
001863,001436: E5,1777 E6,1423 OMEGA EQUALS EDOTP
001864,001437: E7,1400 SETLOC 3400
001865,001438:
001866,001439: # DOWNLINK STORAGE.
001867,001440:
001868,001441: E7,1400 LDATALST ERASE
001869,001442: E7,1401 DNTMGOTO ERASE
001870,001443:
001871,001444: E7,1402 TMINDEX ERASE
001872,001445: E7,1403 DNQ ERASE # RETURN ADDRESS OF DOWNLINK SUBROUTINES
001873,001446: E7,1404 DNTMBUFF ERASE +21D # SNAPSHOT BUFFER.
001874,001447:
001875,001448: # RADAR TEST STORAGE.
001876,001449:
001877,001450: E7,1432 RTSTDEX ERASE
001878,001451: E7,1433 RTSTMAX ERASE # 66 FOR HI SPEED, 6 FOR LOW SPEED RR,
001879,001452: # AND 18 FOR LOW SPEED LR.
001880,001453: E7,1434 RTSTBASE ERASE # USED FOR CYCLIC SAMPLING.
001881,001454: E7,1435 RTSTLOC ERASE # GOES 0(6)RTSTMAX
001882,001455: E7,1436 E7,1435 RSTKLOC EQUALS RTSTLOC
001883,001456: E7,1436 RSAMPDT ERASE # PNZ FOR CYCLIC SAMPLING, -1 FOR HI SPEED
001884,001457: # INSERT +0 HERE MANUALLY TO TERMINATE TST
001885,001458: E7,1437 RFAILCNT ERASE
001886,001459: E7,1440 RSTACK ERASE +71D # BUFFERS FOR RADAR TESTING.
001887,001460:
001888,001461: # AGS INITIALIZATION
001889,001462: E7,1550 AGSBUF ERASE +27D
001890,001463: # STORAGE FOR INBIT SCANNER.
001891,001464:
001892,001465: E7,1604 LAST30 ERASE +2 # LAST SAMPLED INBITS.
001893,001466: E7,1607 MSGCNT ERASE
001894,001467:
001895,001468: # THE COMPTORK REGISTERS ARE REDUNDANT WITH THETAN FOR DOWNLINK PURPOSES.
001896,001469:
001897,001470: E7,1610 COMPTORK ERASE +5 # V, S, E GYROCOMPASS GYRO TORQUES.
001898,001471:
001899,001472: # BMEMORY USED FOR CONSECUTIVE ASSIGNMENTS FOR SERVICER RESTART
001900,001473: E7,1616 SAVERASE EQUALS 2506
001901,001474: E7,1616 E5,1506 DVTOTAL EQUALS SAVERASE +000D
001902,001475: E7,1616 E5,1511 DVCNTR EQUALS SAVERASE +003D
001903,001476: E7,1616 E5,1512 PIPCTR EQUALS SAVERASE +004D
001904,001477: E7,1616 E5,1513 VR EQUALS SAVERASE +005D
001905,001478: E7,1616 E5,1522 VGCNTR EQUALS SAVERASE +012D
001906,001479: E7,1616 E5,1523 ERRORSUM EQUALS SAVERASE +013D
001907,001480:
|
|
Page 44 |
001909,001482: E7,1616 E5,1531 DIFFANG EQUALS SAVERASE +019D
001910,001483: E7,1616 E5,1533 STREXIT EQUALS SAVERASE +021D
001911,001484:
001912,001485:
001913,001486: E7,1616 E5,1534 ABDELV EQUALS SAVERASE +022D
001914,001487: E7,1616 E5,1536 SWITCH EQUALS SAVERASE +24D
001915,001488: E7,1616 E5,1537 NEGXDV EQUALS SAVERASE +25D
001916,001489:
|
|
Page 45 |
001918,001491: # DIGITAL AUTOPILOT ERASABLE TAKES UP EBANK 6:
001919,001492:
001920,001493: # THESE TWO ARE GOING TO MOVE WHEN KALCMANU COMES INTO SUNBURST:
001921,001494:
001922,001495: E6,1400 SETLOC 3000
001923,001496:
001924,001497: # AXIS TRANSFORMATION MATRIX - PILOT TO GIMBAL AXES:
001925,001498:
001926,001499: E6,1400 MR12 ERASE # SCALED AT 2 THESE FOUR P-G MATRIX ELE-
001927,001500: E6,1401 MR22 ERASE # SCALED AT 1 MENTS ARE IN THIS ORDER TO
001928,001501: E6,1402 MR13 ERASE # SCALED AT 2 COMPUTE RATE HOLD DELCDUS
001929,001502: E6,1403 MR23 ERASE # SCALED AT 1 WITH AN INDEXED LOOP
001930,001503:
001931,001504: # AXIS TRANSFORMATION MATRIX - GIMBAL TO PILOT AXES:
001932,001505:
001933,001506: E6,1404 M11 ERASE # SCALED AT 1
001934,001507: E6,1405 M21 ERASE # SCALED AT 1
001935,001508: E6,1406 M31 ERASE
001936,001509: E6,1407 E6,1401 M22 EQUALS MR22 # SCALED AT 1
001937,001510: E6,1407 E6,1403 M32 EQUALS MR23 # SCALED AT 1
001938,001511:
001939,001512: # ANGLE MEASUREMENTS.
001940,001513:
001941,001514: E6,1407 EDOT ERASE +1 # ERROR IN ANGULAR RATE:
001942,001515: E6,1411 E6,1410 EDOT(R) EQUALS EDOT +1 # SCALED DOWN TO PI/16 RADIANS/SECOND
001943,001516:
001944,001517: E6,1411 E ERASE +1 # ANGLE ERROR SCALED AT PI RADIANS
001945,001518: E6,1413 E6,1412 EDOT(2) EQUALS E +1 # ERROR RATE SQUARED SCALED AT PI(2)/16
001946,001519: E6,1413 E6,1411 EQ EQUALS E # THIS PAIR OF NAMES IS USED TO REFER TO
001947,001520: E6,1413 E6,1412 EDOT(2)Q EQUALS EDOT(2) # THE ABOVE ERASABLES AS Q-AXIS DATA
001948,001521: E6,1413 ER ERASE +1 # THIS PAIR OF NAMES REFERS TO LOCATIONS
001949,001522: E6,1415 E6,1414 EDOT(2)R EQUALS ER +1 # FOR THE R-AXIS DATA: INTERCHANGES WITH Q
001950,001523:
001951,001524: E6,1415 DB ERASE # ANGLE DEADBAND SCALED AT PI RADIANS
001952,001525:
001953,001526: E6,1416 OMEGAP ERASE +4 # BODY-AXIS ROT. RATES SCALED AT PI/4 AND
001954,001527: E6,1423 E6,1417 OMEGAQ EQUALS OMEGAP +1 # BODY-AXIS ACCELERATIONS SCALED AT PI/8
001955,001528: E6,1423 E6,1420 ALPHAQ EQUALS OMEGAP +2 # (IN DESCENT) OR PI/2 (IN ASCENT)
001956,001529: E6,1423 E6,1421 OMEGAR EQUALS OMEGAP +3 # THESE W,A PAIRS ARE NEEDED, ALPHAP HAS
001957,001530: E6,1423 E6,1422 ALPHAR EQUALS OMEGAP +4 # NO USE IN THE DIGITAL AUTOPILOT
001958,001531:
001959,001532: E6,1423 EDOTP ERASE +2 # ERRORS IN ANGULAR RATE:
001960,001533: E6,1426 E6,1424 EDOTQ EQUALS EDOTP +1 # EDOT = 3MEGA - OMEGA(DESIRED)
001961,001534: E6,1426 E6,1425 EDOTR EQUALS EDOTP +2 # SCALED AT PI/4 RADIANS/SECOND
001962,001535:
001963,001536: E6,1426 E6,1424 QRATEDIF EQUALS EDOTQ # ALTERNATIVE NAMES:
001964,001537: E6,1426 E6,1425 RRATEDIF EQUALS EDOTR # DELETE WHEN NO. OF REFERENCES = 0
001965,001538:
001966,001539: E6,1426 OLDXFORP ERASE +3 # STORED CDU READINGS FOR P AND Q,R RATE
001967,001540: E6,1432 E6,1427 OLDYFORP EQUALS OLDXFORP +1 # DERIVATIONS: SCALED AT PI RADIANS (2'S)
001968,001541:
|
|
Page 46 |
001970,001543: E6,1432 E6,1430 OLDYFORQ EQUALS OLDXFORP +2 # (THERE MUST BE TWO REGISTERS FOR CDUY
001971,001544: E6,1432 E6,1431 OLDZFORQ EQUALS OLDXFORP +3 # SINCE P AND Q,R ARE NOT IN PHASE)
001972,001545:
001973,001546: # RHC INPUTS SCALED AT PI/4 RAD/SEC.
001974,001547:
001975,001548: E6,1432 PCOM ERASE
001976,001549: E6,1433 RCOM ERASE
001977,001550: E6,1434 YCOM ERASE
001978,001551:
001979,001552: # RHC COUNTER REGISTERS.
001980,001553:
001981,001554: E6,1435 P-RHCCTR EQUALS 43
001982,001555: E6,1435 Q-RHCCTR EQUALS 42
001983,001556: E6,1435 R-RHCCTR EQUALS 44
001984,001557:
001985,001558: # OTHER VARIABLES.
001986,001559:
001987,001560: E6,1435 TJETSIGN ERASE # =+/-BIT1 TO SHOW SIGN OF P-AXIS ROTATION
001988,001561: E6,1436 PRATECOM ERASE
001989,001562: E6,1437 EDOTGEN ERASE
001990,001563: E6,1440 RATEDIF ERASE
001991,001564: E6,1441 1/2JTSP ERASE
001992,001565: E6,1442 FPQR ERASE
001993,001566: E6,1443 MINRA ERASE
001994,001567: E6,1444 MINRASQ ERASE
001995,001568: E6,1445 HDAP ERASE
001996,001569: E6,1446 E6,1445 FCT1 EQUALS HDAP
001997,001570: E6,1446 U ERASE
001998,001571: E6,1447 DENOM ERASE
001999,001572: E6,1450 RATIO ERASE
002000,001573: E6,1451 L,PVT-CG ERASE
002001,001574: E6,1452 IXX ERASE
002002,001575:
002003,001576: E6,1453 IYY ERASE
002004,001577: E6,1454 IZZ ERASE
002005,001578: E6,1455 4JETTORK ERASE
002006,001579: E6,1456 JETTORK4 ERASE
002007,001580: E6,1457 COSMG ERASE
002008,001581: E6,1460 0062 DELTAP EQUALS ITEMP2
002009,001582: E6,1460 FPQRMIN ERASE
002010,001583: E6,1461 NJET ERASE
002011,001584: E6,1462 PRATEDIF ERASE
002012,001585: E6,1463 LASTPER ERASE # THESE 6 REG USED FOR ATT ERR DISPLAY
002013,001586: E6,1464 LASTQER ERASE
002014,001587: E6,1465 LASTRER ERASE
002015,001588: E6,1466 PERROR ERASE
002016,001589: E6,1467 QERROR ERASE
002017,001590: E6,1470 RERROR ERASE
002018,001591:
002019,001592: # JET STATE CHANGE VARIABLES- TIME (TOFJTCHG),JET BITS WRITTEN NOW
002020,001593: # (JTSONNOW), AND JET BITS WRITTEN AT T6 RUPT (JTSATCHG).
002021,001594:
|
|
Page 47 |
002023,001596: E6,1471 JTSONNOW ERASE
002024,001597: E6,1472 JTSATCHG ERASE
002025,001598: E6,1473 ADDT6JTS ERASE
002026,001599: E6,1474 ADDTLT6 ERASE
002027,001600: E6,1475 TOFJTCHG ERASE
002028,001601:
002029,001602: E6,1476 -RATEDB ERASE
002030,001603: E6,1477 -2JETLIM ERASE
002031,001604:
002032,001605: # RCS FAILURE MONITOR ERASABLE . PROGRAM ON T4RUPT 4 TIMES/SECOND
002033,001606:
002034,001607: # *** FAILSW CAPABILITY FOR CHECKOUT ONLY ***
002035,001608:
002036,001609: E6,1500 FAILSW ERASE # IF POSITIVE NO RCSMONIT, OTHERWISE 0
002037,001610:
002038,001611: E6,1501 LASTFAIL ERASE # LAST FAILURE CHANNEL RECORD, -0 INITIAL
002039,001612: E6,1502 CH5MASK ERASE # MASKS FOR TURNING ON P/Q,R JETS
002040,001613: E6,1503 CH6MASK ERASE # IN OUTPUT CHANNELS 5 AND 6
002041,001614: E6,1504 0061 FAILCTR EQUALS ITEMP1 # BIT POSITION COUNTER (INTERNAL)
002042,001615: E6,1504 0062 FAILTEMP EQUALS ITEMP2 # TEMPORARY RECORD OF FAILED BITS
002043,001616:
002044,001617: # Q,R AXIS ERASABLES
002045,001618:
002046,001619: E6,1504 0062 DELQ EQUALS ITEMP2
002047,001620: E6,1504 0063 DELTAR EQUALS ITEMP3
002048,001621: E6,1504 URGENCYQ ERASE +1
002049,001622: E6,1506 URGENCYR ERASE +1
002050,001623: E6,1510 0066 URGLIMIT = ITEMP6
002051,001624: E6,1510 A+B ERASE
002052,001625: E6,1511 A-B ERASE
002053,001626: E6,1512 TERMA ERASE
002054,001627: E6,1513 TERMB ERASE
002055,001628: E6,1514 DISPLACT ERASE # FLAG FOR EIGHTBALL ATT. ERROR DISPLAY.
002056,001629:
002057,001630: E6,1515 POLTEST ERASE
002058,001631:
|
|
Page 48 |
002060,001633: # TRIM GIMBAL CONTROL LAW ERASABLES:
002061,001634:
002062,001635: # THE FOLLOWING ASSIGNMENTS OF RUPTREGS AND ITEMPS HAS BEEN MADE IN AN EFFORT TO OPTIMIZE USE OF ERASABLES:
002063,001636:
002064,001637: E6,1516 0070 K2THETA EQUALS RUPTREG1 # D.P. K(2)THETA AND "NEGUSUM"
002065,001638: E6,1516 0071 ETHETA EQUALS RUPTREG2 # S.P. ERROR ANGLE SCALED AT PI/64 RADIANS
002066,001639: E6,1516 0072 A2CNTRAL EQUALS RUPTREG3 # D.P. ALPHA(2) SCALED AT PI(2)/64 R/S(2)
002067,001640: E6,1516 0072 SF1 EQUALS RUPTREG3 # S.P. VARIABLE SCALE FACTORS WHICH ARE
002068,001641: E6,1516 0073 SF2 EQUALS RUPTREG4 # S.P. - REALLY SINGLE BITS (OR ZERO)
002069,001642: E6,1516 0061 OMEGA.K EQUALS ITEMP1 # D.P. OMEGA*K SUPERCEDES K AND K(2)
002070,001643: E6,1516 0061 KCENTRAL EQUALS ITEMP1 # S.P. K FROM KQ OR KR FIRST AT PI/2(8)
002071,001644: E6,1516 0062 K2CNTRAL EQUALS ITEMP2 # S.P. K(2) FROM Q OR R 1ST AT PI(2)/2(16)
002072,001645: E6,1516 0063 WCENTRAL EQUALS ITEMP3 # S.P. OMEGA SCALED AT PI/4 RADIANS/SECOND
002073,001646: E6,1516 0064 ACENTRAL EQUALS ITEMP4 # S.P. ALPHA SCALED AT PI/8 RAD/SEC(2)
002074,001647: E6,1516 0065 DEL EQUALS ITEMP5 # S.P. SGN(FUNCTION)
002075,001648: E6,1516 0066 QRCNTR EQUALS ITEMP6 # S.P. COUNTER: Q,Y=0, R,Z=2
002076,001649:
002077,001650: # THE ABOVE QUANTITIES ARE ONLY NEEDED ON A VERY TEMPORARY BASIS AND HAVE BEEN PROVEN TO BE NON-CONFLICTING.
002078,001651:
002079,001652: E6,1516 TJSR ERASE
002080,001653: E6,1517 MULTFLAG ERASE # INDICATOR FOR SPDPMULT ROUTINE
002081,001654:
002082,001655: E6,1520 FUNCTION ERASE +1 # D.P. WORD FOR DRIVE FUNCTIONS
002083,001656:
002084,001657: E6,1522 NEGUQ ERASE +2 # NEGATIVE OF Q-AXIS GIMBAL DRIVE
002085,001658: E6,1525 E6,1523 THRSTCMD EQUALS NEGUQ +1 # THRUST COMMAND AT 16384 LBS (SEPARATOR)
002086,001659: E6,1525 E6,1524 NEGUR EQUALS NEGUQ +2 # NEGATIVE OF R-AXIS GIMBAL DRIVE
002087,001660:
002088,001661: E6,1525 KQ ERASE +3 # .3ACCDOTQ SCALED AT PI/2(8)
002089,001662: E6,1531 E6,1526 KQ2 EQUALS KQ +1 # KQ2 = KQ*KQ
002090,001663: E6,1531 E6,1527 KRDAP EQUALS KQ +2 # .3 ACCDOTR SCALED AT PI/2(8)
002091,001664: E6,1531 E6,1530 KR2 EQUALS KQ +3 # KR2 = KR*KR
002092,001665:
002093,001666: E6,1531 ACCDOTQ ERASE +3 # Q-JERK SCALED AT PI/2(7) UNSIGNED
002094,001667: E6,1535 E6,1532 QACCDOT EQUALS ACCDOTQ +1 # Q-JERK SCALED AT PI/2(7) SIGNED
002095,001668: E6,1535 E6,1533 ACCDOTR EQUALS ACCDOTQ +2 # R-JERK SCALED AT PI/2(7) UNSIGNED
002096,001669: E6,1535 E6,1534 RACCDOT EQUALS ACCDOTQ +3 # R-JERK SCALED AT PI/2(7) SIGNED
002097,001670:
002098,001671: E6,1535 E6,1467 QDIFF EQUALS QERROR # ATTITUDE ERRORS:
002099,001672: E6,1535 E6,1470 RDIFF EQUALS RERROR # SCALED AT PI RADIANS
002100,001673:
002101,001674: E6,1535 TIMEOFFQ ERASE # TIMES TO GO UNTIL TRIM GIMBAL TURN-OFF,
002102,001675: E6,1536 TIMEOFFR ERASE # ZERO MEANS NO ACTION, SCALED AS WAITLIST
002103,001676:
|
|
Page 49 |
002105,001678: # KALMAN FILTER ERASABLES.
002106,001679:
002107,001680: E6,1537 STORCDUY ERASE # THIS S.P. PAIR IS USED TO SAVE CDUY,Z
002108,001681: E6,1540 STORCDUZ ERASE # FOR THE GTS RUPT
002109,001682:
002110,001683: E6,1541 0072 CDU EQUALS RUPTREG3 # RUPTREG3,4 USED AS D.P. WORD FOR CDU
002111,001684: # VALUE WITHIN FILTER IS COMP AT 2PI RAD
002112,001685:
002113,001686: E6,1541 0061 CDUDOT EQUALS ITEMP1 # ITEMP1,2 USED AS D.P. WORD FOR CDUDOT
002114,001687: # VALUE WITHIN FILTER SCALED AT PI/4
002115,001688:
002116,001689: E6,1541 0063 CDU2DOT EQUALS ITEMP3 # ITEMP3,4 USED AS D.P. WORD FOR CDU2DOT
002117,001690: # VALUE WITHIN FILTER SCALED AT PI/8
002118,001691:
002119,001692: E6,1541 DT ERASE # TIME ELAPSED SCALED AT 1/8: NOMINAL=50MS
002120,001693: E6,1542 DAPTIME ERASE # USED TO RECORD LAST TIME FROM CHANNEL 4
002121,001694:
002122,001695: E6,1543 STEERADR ERASE # DTCALC SWITCH IN FILTER INITIALIZATION
002123,001696:
002124,001697: E6,1544 DPDIFF ERASE +1 # D.P. WEIGHTING VECTOR FACTOR AT PI
002125,001698: E6,1546 WPOINTER ERASE # POINTER TO WEIGHTING VECTOR TABLE
002126,001699: E6,1547 W0 ERASE +2 # THETA WEIGHT
002127,001700: E6,1552 E6,1550 W1 EQUALS W0 +1 # OMEGA WEIGHT
002128,001701: E6,1552 E6,1551 W2 EQUALS W1 +1 # ALPHA WEIGHT
002129,001702:
002130,001703: E6,1552 CDUYFIL ERASE +1 # Y-AXIS D.P. FILTERED THETA AT 2PI
002131,001704:
002132,001705: E6,1554 CDUZFIL ERASE +1 # Z-AXIS D.P. FILTERED THETA AT 2PI
002133,001706: E6,1556 DCDUYFIL ERASE +1 # Y-AXIS D.P. FILTERED OMEGA AT PI/4
002134,001707: E6,1560 DCDUZFIL ERASE +1 # Z-AXIS D.P. FILTERED OMEGA AT PI/4
002135,001708: E6,1562 D2CDUYFL ERASE +1 # Y-AXIS D.P. FILTERED ALPHA AT PI/8
002136,001709: E6,1564 D2CDUZFL ERASE +1 # Z-AXIS D.P. FILTERED ALPHA AT PI/8
002137,001710: E6,1566 Y3DOT ERASE # Y-AXIS S.P. JERK AT PI/2(7)
002138,001711: E6,1567 CDU3DOT ERASE # LOOP REGISTER (SPACER)
002139,001712: E6,1570 Z3DOT ERASE # Z-AXIS S.P. JERK AT PI/2(7)
002140,001713:
002141,001714: E6,1571 PFILTADR ERASE +1 # 2CADR FOR FILTER RUPT 30 MS AFTER P-AXIS
002142,001715: E6,1573 PFRPTLST ERASE +7 # POST FILTER RUPT LIST
002143,001716: # TORQUE VECTOR RECONSTRUCTION VARIABLES:
002144,001717:
002145,001718: E6,1603 JETRATE ERASE +2 # WEIGHTED RATES DUE TO JETS APPLIED IN
002146,001719: E6,1606 E6,1604 JETRATEQ EQUALS JETRATE +1 # THE LAST CONTROL SAMPLE PERIOD OF 100 MS
002147,001720: E6,1606 E6,1605 JETRATER EQUALS JETRATE +2 # SCALED AT PI/4 RADIANS/SECOND
002148,001721:
002149,001722: E6,1606 NO.QJETS ERASE +1 # NUMBER OF Q AND R JETS THAT ARE GIVEN
002150,001723: E6,1610 E6,1607 NO.RJETS EQUALS NO.QJETS +1 # BY THE JET SELECT LOGIC
002151,001724:
002152,001725: E6,1610 TP ERASE +1 # TIME CALCULATED BY TJETLAW FOR P, QR
002153,001726: E6,1612 E6,1611 TQR EQUALS TP +1 # SCALED AS TIME6, THEN TQR RESCALED TO 1
002154,001727:
002155,001728: E6,1612 1JACC ERASE +4 # ACCELERATIONS DUE TO 1 JET TORQUING
002156,001729:
|
|
Page 50 |
002158,001731: E6,1617 E6,1613 1JACCQ EQUALS 1JACC +1 # SCALED AT PI/4 RADIANS/SECOND
002159,001732: E6,1617 E6,1614 1JACCR EQUALS 1JACC +2
002160,001733: E6,1617 E6,1615 1JACCU EQUALS 1JACC +3 # FOR U,V-AXES THE SCALE FACTOR IS DIFF:
002161,001734: E6,1617 E6,1616 1JACCV EQUALS 1JACC +4 # SCALED AT PI/2 RADIANS/SECOND (FOR ASC)
002162,001735:
002163,001736: E6,1617 INERCTR ERASE
002164,001737: E6,1620 INERCTRX ERASE
002165,001738: # ASCENT VARIABLES:
002166,001739:
002167,001740: E6,1621 SUMRATEQ ERASE +1 # SUM OF UN-WEIGHTED JETRATE TERMS
002168,001741: E6,1623 E6,1622 SUMRATER EQUALS SUMRATEQ +1 # SCALED AT PI/4 RADIANS/SECOND
002169,001742:
002170,001743: E6,1623 OLDWFORQ ERASE +1 # OMEGA VALUE 2 SECONDS AGO
002171,001744: E6,1625 E6,1624 OLDWFORR EQUALS OLDWFORQ +1 # SCALED AT PI/4 RADIANS/SECOND
002172,001745:
002173,001746: E6,1625 DBMINIMP ERASE +1 # MINIMUM IMPULSE DEADBANDS (EQUAL IN DESC
002174,001747: E6,1627 E6,1626 MINIMPDB EQUALS DBMINIMP +1 # AT .3 DEG, 0,-DB RESPECTIVELY FOR ASC)
002175,001748: # SCALED AT PI RADIANS
002176,001749:
002177,001750: E6,1627 .5ACCMNE ERASE +4 # (1/2)(1/ACCMIN) WHICH IS THE INVERSE OF
002178,001751: E6,1634 E6,1630 .5ACCMNQ EQUALS .5ACCMNE +1 # THE MINIMUM ACCELERATION (A CONSTANT FOR
002179,001752: E6,1634 E6,1631 .5ACCMNR EQUALS .5ACCMNE +2 # DESCENT AND A VARIABLE FOR ASCENT DAP)
002180,001753: E6,1634 E6,1632 .5ACCMNU EQUALS .5ACCMNE +3 # SCALED AT 2(+8)/PI
002181,001754: E6,1634 E6,1633 .5ACCMNV EQUALS .5ACCMNE +4 # IN UNITS OF SECONDS(2)/RADIAN
002182,001755:
002183,001756: E6,1634 WFORP ERASE +1 # W = K/(NOMINAL DT)
002184,001757: E6,1636 E6,1635 WFORQR EQUALS WFORP +1 # SCALED AT 16
002185,001758:
002186,001759: E6,1636 (1-K) ERASE +1 # 1-K SCALED AT 1
002187,001760: E6,1640 E6,1637 (1-K)/8 EQUALS (1-K) +1 # 1-K SCALED AT 8
002188,001761:
002189,001762: E6,1640 1/NJTSQ ERASE +3 # 1/NJETACC FOR EACH AXIS
002190,001763:
002191,001764: E6,1644 E6,1641 1/NJTSR EQUALS 1/NJTSQ +1 # FOR DESCENT THIS IS ALWAYS 1/2JTS
002192,001765: E6,1644 E6,1642 1/NJTSU EQUALS 1/NJTSQ +2 # FOR ASCENT WITH HIGH OFFSET: 1/4JTS
002193,001766: E6,1644 E6,1643 1/NJTSV EQUALS 1/NJTSQ +3 # SCALED AT 2(8)/PI SEC(2)/RAD
002194,001767:
002195,001768: E6,1644 KCOEFCTR ERASE # COUNTER FOR ASCENT DAP
002196,001769:
002197,001770:
002198,001771:
002199,001772: E6,1645 DLCDUIDX ERASE # SAVE RATE INDEX, = 1, 0
002200,001773: E6,1646 PJUMPADR ERASE
002201,001774: E6,1647 QJUMPADR ERASE
002202,001775: E6,1650 100MSPTQ ERASE
002203,001776: E6,1651 E6,1650 QR.1ST0Q = 100MSPTQ
002204,001777: E6,1651 NO.PJETS ERASE
002205,001778:
002206,001779:
002207,001780: # THE FOLLOWING LM DAP ERASABLES ARE ZEROED IN THE STARTDAP SECTION OF THE DAPIDLER PROGRAM AND THE COASTASC
002208,001781:
|
|
Page 51 |
002210,001783: # SECTION OF THE AOSTASK. THE ORDER MUST BE PRESERVED FOR THE INDEXING METHODS WHICH ARE EMPLOYED IN THOSE
002211,001784: # SECTIONS AND ELSEWHERE.
002212,001785:
002213,001786: E6,1652 AOSQ ERASE +3 # ASCENT OFFSET ACCELERATION ESTIMATES:
002214,001787: E6,1656 E6,1653 AOSR EQUALS AOSQ +1 # ESTIMATED EVERY 2 SECONDS BY AOSTASK.
002215,001788: E6,1656 E6,1654 AOSU EQUALS AOSQ +2 # U,V-AXES ACCS FORMED BY VECTOR ADDITION.
002216,001789: E6,1656 E6,1655 AOSV EQUALS AOSQ +3 # SCALED AT PI/2 RADIANS/SECOND(2).
002217,001790:
002218,001791: E6,1656 AOSQTERM ERASE +1 # (.1-.05K)AOS
002219,001792: E6,1660 E6,1657 AOSRTERM EQUALS AOSQTERM +1 # SCALED AT PI/4 RADIANS/SECOND.
002220,001793:
002221,001794: E6,1660 NJ+Q ERASE +7 # 2 JET OVER-RIDE FLAGS:
002222,001795: E6,1670 E6,1661 NJ-Q EQUALS NJ+Q +1 # WHENEVER THE OFFSET ACCELERATION ABOUT
002223,001796: E6,1670 E6,1662 NJ+R EQUALS NJ+Q +2 # AN AXIS IS SO HIGH THAT 2 JETS COULD NOT
002224,001797:
002225,001798: E6,1670 E6,1663 NJ-R EQUALS NJ+Q +3 # CONTROL ATTITUDE SUCCESSFULLY, THEN NJ
002226,001799: E6,1670 E6,1664 NJ+U EQUALS NJ+Q +4 # FOR THAT AXIS (IN THE DIRECTION OPPOSING
002227,001800: E6,1670 E6,1665 NJ-U EQUALS NJ+Q +5 # AOS) IS SET TO 1. OTHERWISE, THE VALUE
002228,001801: E6,1670 E6,1666 NJ+V EQUALS NJ+Q +6 # IS ZERO. THESE FLAGS PREVENT TWO JETS
002229,001802: E6,1670 E6,1667 NJ-V EQUALS NJ+Q +7 # FROM BEING REQUESTED TO FIGHT THE AOS.
002230,001803:
002231,001804: E6,1670 1/NET+2Q ERASE +15D
002232,001805: E6,1710 E6,1671 1/NET+4Q EQUALS 1/NET+2Q +1
002233,001806: E6,1710 E6,1672 1/NET-2Q EQUALS 1/NET+2Q +2
002234,001807: E6,1710 E6,1673 1/NET-4Q EQUALS 1/NET+2Q +3
002235,001808: E6,1710 E6,1674 1/NET+2R EQUALS 1/NET+2Q +4
002236,001809: E6,1710 E6,1675 1/NET+4R EQUALS 1/NET+2Q +5
002237,001810: E6,1710 E6,1676 1/NET-2R EQUALS 1/NET+2Q +6
002238,001811: E6,1710 E6,1677 1/NET-4R EQUALS 1/NET+2Q +7
002239,001812: E6,1710 E6,1700 1/NET+1U EQUALS 1/NET+2Q +8D
002240,001813: E6,1710 E6,1701 1/NET+2U EQUALS 1/NET+2Q +9D
002241,001814: E6,1710 E6,1702 1/NET-1U EQUALS 1/NET+2Q +10D
002242,001815: E6,1710 E6,1703 1/NET-2U EQUALS 1/NET+2Q +11D
002243,001816: E6,1710 E6,1704 1/NET+1V EQUALS 1/NET+2Q +12D
002244,001817: E6,1710 E6,1705 1/NET+2V EQUALS 1/NET+2Q +13D
002245,001818: E6,1710 E6,1706 1/NET-1V EQUALS 1/NET+2Q +14D
002246,001819: E6,1710 E6,1707 1/NET-2V EQUALS 1/NET+2Q +15D
002247,001820: E6,1710 SIGNTAG ERASE
002248,001821:
002249,001822: E6,1711 E6,1700 1/NETACS EQUALS 1/NET+1U
002250,001823:
002251,001824: E6,1711 1/ACCQ ERASE +1 # INVERSE NET ACCELERATIONS FOR URGENCY.
002252,001825: E6,1713 E6,1712 1/ACCR EQUALS 1/ACCQ +1 # SCALED AT 2(+8)/PI SECONDS(2)/RADIAN.
002253,001826:
002254,001827: E6,1713 1/AMINQ ERASE +1 # INVERSE MIN ACCELERATIONS FOR URGENCY.
002255,001828: E6,1715 E6,1714 1/AMINR EQUALS 1/AMINQ +1 # SCALED AT 2(+8)/PI SECONDS(2)/RADIAN.
002256,001829:
002257,001830: E6,1715 1/AMINU ERASE
002258,001831: E6,1716 1/AMINV ERASE
002259,001832:
002260,001833: E6,1717 URGRATQ ERASE +1 # URGENCY FUNCTION CORRECTION FACTOR RATIO
002261,001834: E6,1721 E6,1720 URGRATR EQUALS URGRATQ +1 # SCALED AT 1.
002262,001835:
|
|
Page 52 |
002264,001837: # ITEMP AND RUPTREG ASSIGNMENTS IN LM DAP:
002265,001838:
002266,001839: # FOR EIGHTBAL SECTION:
002267,001840:
002268,001841: E6,1721 0061 AXISCNTR EQUALS ITEMP1 # LOOPCTR AND VARIABLE INDEXER.
002269,001842: E6,1721 0062 TEMPERR EQUALS ITEMP2 # TEMPORARY STORAGE FOR BOUNDED ERROR.
002270,001843:
002271,001844: # FOR P-AXIS PROGRAM:
002272,001845:
002273,001846: E6,1721 0065 REL EQUALS ITEMP5 # TABLE INDEX USED BY P JET SELECT ROUTINE
002274,001847: E6,1721 0066 CTR EQUALS ITEMP6 # TABLE ENTRY COUNTER USED BY P JET SELECT
002275,001848:
002276,001849: # FOR POLTYPEP PROGRAM:
002277,001850:
002278,001851: E6,1721 0070 TRANONLY EQUALS RUPTREG1 # FLAG FOR PURE TRANSLATION REQUESTS
002279,001852: E6,1721 0071 ANYTRANS EQUALS RUPTREG2 # FLAG TO INDICATE DIRECTION OF TRAN..
002280,001853: E6,1721 0072 TRANSNOW EQUALS RUPTREG3 # FLAG TO INDICATE TRANS. W/ ROT. POSSIBLE
002281,001854: E6,1721 0073 TRANSAVE EQUALS RUPTREG4 # FLAG AND HOLDER FOR SAVED TRANS. POLICY
002282,001855: E6,1721 0061 NETACNDX EQUALS ITEMP1 # INDEX TO INDICATE AXIS, NO., AND DIRECT.
002283,001856:
002284,001857: E6,1721 0062 TJETADR EQUALS ITEMP2 # GENADR OF RETURN TO TJETLAW
002285,001858: E6,1721 0063 POLRELOC EQUALS ITEMP3 # POLICY TABLE INDEX (RELATIVE ADDRESS)
002286,001859: E6,1721 0064 LOOPCTR EQUALS ITEMP4 # NUMBER OF ALTERNATE POLICIES.
002287,001860: E6,1721 0065 THISPOLY EQUALS ITEMP5 # STORED POLICY TO ELIMINATE INDEXING.
002288,001861: E6,1721 0066 1/NETACC EQUALS ITEMP6 # INV. NET ACC. FOR TJETLAW.
002289,001862:
002290,001863: E6,1721 0066 1/NJETAC = 1/NETACC
002291,001864:
002292,001865: E6,1721 E6,1670 1/2JTSQ = 1/NET+2Q
002293,001866: E6,1721 E6,1674 1/2JTSR = 1/NET+2R
002294,001867: E6,1721 E6,1701 1/2JETSU = 1/NET+2U
002295,001868: E6,1721 E6,1705 1/2JETSV = 1/NET+2V
002296,001869:
002297,001870:
002298,001871:
002299,001872: # FOR AOSTASK PROGRAM:
002300,001873:
002301,001874: E6,1721 0061 K EQUALS ITEMP1
002302,001875: E6,1721 0061 .1-.05K EQUALS ITEMP1
002303,001876: E6,1721 0062 COEFFA EQUALS ITEMP2
002304,001877: E6,1721 0062 .5-.5COF EQUALS ITEMP2
002305,001878:
002306,001879: # MPAC DESIGNATIONS FOR AOSJOB:
002307,001880:
002308,001881: E6,1721 0144 JOBAXES EQUALS MPAC # ADJACENT ENTRY INDEXER.
002309,001882: E6,1721 0145 NJPLACE EQUALS MPAC +1 # ONE APART ENTRY INDEXER.
002310,001883: E6,1721 0146 TABPLACE EQUALS MPAC +2 # THREE APART ENTRY INDEXER.
002311,001884: E6,1721 0147 TEMPAOS EQUALS MPAC +3 # - AOS TEMPORARY STORAGE (SCALED AT PI/2)
002312,001885: E6,1721 0150 TEMPACC EQUALS MPAC +4 # JET ACCELERATION TEMP. (SCALED AT PI/2)
002313,001886: E6,1721 0151 TEMPNET EQUALS MPAC +5 # NET ACCELERATION TEMP. (SCALED AT PI/2)
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc