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