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