Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
000442,000002: ## Copyright: Public domain.
000443,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
000444,000004: ## Purpose: A section of Corona revision 261.
000445,000005: ## It is part of the source code for the Apollo Guidance Computer
000446,000006: ## (AGC) for AS-202. No original listings of this software are
000447,000007: ## available; instead, this file was created via disassembly of
000448,000008: ## the core rope modules actually flown on the mission.
000449,000009: ## Assembler: yaYUL
000450,000010: ## Contact: Ron Burkey <info@sandroid.org>.
000451,000011: ## Website: www.ibiblio.org/apollo/index.html
000452,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
000453,000013: ## 2023-06-17 MAS Updated for Corona.
000454,000014:
000455,000015:
000456,000016: # COUNTER AND SPECIAL REGISTER TAGS
000457,000017: # ------- --- ------- -------- ----
000458,000018:
000459,000019: ??????? A EQUALS 0
000460,000020: ??????? Q EQUALS 1
000461,000021: ??????? Z EQUALS 2
000462,000022: ??????? LP EQUALS 3
000463,000023: ??????? IN0 EQUALS 4
000464,000024: ??????? IN1 EQUALS 5
000465,000025: ??????? IN2 EQUALS 6
000466,000026: ??????? IN3 EQUALS 7
000467,000027: ??????? OUT0 EQUALS 10
000468,000028: ??????? OUT1 EQUALS 11
000469,000029: ??????? OUT2 EQUALS 12
000470,000030: ??????? OUT4 EQUALS 14
000471,000031: ??????? BANKREG EQUALS 15
000472,000032: ??????? RELINT EQUALS 16
000473,000033: ??????? INHINT EQUALS 17
000474,000034: ??????? CYR EQUALS 20
000475,000035: ??????? SR EQUALS 21
000476,000036: ??????? CYL EQUALS 22
000477,000037: ??????? SL EQUALS 23
000478,000038: ??????? ZRUPT EQUALS 24
000479,000039: ??????? BRUPT EQUALS 25
000480,000040: ??????? ARUPT EQUALS 26
000481,000041: ??????? QRUPT EQUALS 27
000482,000042:
000483,000043: ??????? BANKRUPT EQUALS 30
000484,000044: ??????? OVRUPT EQUALS 31
000485,000045: ??????? LPRUPT EQUALS 32
000486,000046: ??????? DSRUPTSW EQUALS 33 # T4RUPT PHASE COUNT GOES 7(-1)0
000487,000047:
000488,000048: ??????? OVCTR EQUALS 34
000489,000049: ??????? TIME2 EQUALS 35
000490,000050: ??????? TIME1 EQUALS 36
000491,000051: ??????? TIME3 EQUALS 37
000492,000052: ??????? TIME4 EQUALS 40
000493,000053: ??????? UPLINK EQUALS 41
000494,000054: ??????? OUTCR1 EQUALS 42
000495,000055: ??????? OUTCR2 EQUALS 43
000496,000056: ??????? PIPAX EQUALS 44
000497,000057: ??????? PIPAY EQUALS 45
000498,000058: ??????? PIPAZ EQUALS 46
000499,000059: ??????? CDUX EQUALS 47
000500,000060: ??????? CDUY EQUALS 50
000501,000061: ??????? CDUZ EQUALS 51
000502,000062: ??????? OPTX EQUALS 52
000503,000063: ??????? OPTY EQUALS 53
000504,000064:
000505,000065: # INTERPRETIVE SPECIAL REGISTERS CONTAINED IN THE WORK AREA.
000506,000066:
000507,000067: ??????? VAC EQUALS 32D # RELATIVE TO FIXLOC
000508,000068: ??????? 0000040 VACX EQUALS VAC
000509,000069: ??????? 0000042 VACY EQUALS VAC + 2
000510,000070: ??????? 0000044 VACZ EQUALS VAC + 4
000511,000071: ??????? X1 EQUALS 38D # INDEXES ARE RELATIVE TO FIXLOC
000512,000072: ??????? X2 EQUALS 39D
000513,000073: ??????? S1 EQUALS 40D # AND SO ARE STEP REGISTERS
000514,000074: ??????? S2 EQUALS 41D
000515,000075: ??????? QPRET EQUALS 42D # AS IS QPRET
000516,000076:
000517,000077: 0060 SETLOC 60
000518,000078:
000519,000079: # THE FOLLOWING REGISTERS ARE USED BY THE INTERPRETER, AND MAY BE USED BY A BASIC JOB OR BASIC
000520,000080: # PORTIONS OF AN INTERPRETIVE JOB (SOME RESTRICTIONS APPEAR WITH RTB FOLLOWED BY TC DANZIG, BUT THE NINE REGISTERS
000521,000081: # VBUF AND BUF ARE AVAILABLE THEN). THE REGISTERS ARE NOT SAVED IN THEIR ENTIRETY DURING CHANGE JOB (MOST OF THEM
000522,000082: # ARE IGNORED), SO THAT THESE MUST BE USED ONLY AS TEMPORARIES BETWEEN ANY CCS NEWJOBS.
000523,000083:
000524,000084: 0060 NNADTEM EQUALS 54 # TEMP FOR NOUN ADDRESS TABLE ENTRY.
000525,000085: 0060 NNTYPTEM EQUALS 55 # TEMP FOR NOUN TYPE TABLE ENTRY.
000526,000086: 0060 IDAD1TEM EQUALS 56 # TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
000527,000087: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
000528,000088: 0060 IDAD2TEM EQUALS 57 # TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
000529,000089: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
000530,000090: 0060 IDAD3TEM ERASE # TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
000531,000091: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
000532,000092:
000533,000093:
000534,000094:
000535,000095: 0061 BANKSET ERASE # STORAGE FOR BANK BITS OF OBJECT PROGRAM
000536,000096: 0062 ADDRWD ERASE # THIS WILL CONTAIN A PROPER 12 BIT ADDR
000537,000097: 0063 ORDER ERASE # STORAGE FOR RIGHT-HAND OPERATORS
000538,000098: 0064 0063 UPDATRET = ORDER # RETURN FOR UPDATNN, UPDATVB
000539,000099: 0064 0063 CHAR = ORDER # TEMP FOR CHARIN
000540,000100: 0064 0063 ERCNT = ORDER # COUNTER FOR ERROR LIGHT RESET
000541,000101: 0064 0063 DECOUNT = ORDER # COUNTER FOR SCALING AND DISPLAY (DEC)
000542,000102: 0064 TEM11 ERASE
000543,000103: 0065 0064 SGNON = TEM11 # TEMP FOR +,- ON
000544,000104: 0065 0064 NOUNTEM = TEM11 # COUNTER FOR MIXNOUN FETCH
000545,000105: 0065 0064 DISTEM = TEM11 # COUNTER FOR OCTAL DISPLAY VERBS
000546,000106: 0065 0064 DECTEM = TEM11 # COUNTER FOR FETCH (DEC DISPLAY VERBS)
000547,000107: 0065 0064 DECTEM1 = TEM11 # TEMP FOR NUM
000548,000108: 0065 MODE ERASE # DENOTES VECTOR, DP, OR TP.
000549,000109: 0066 0065 ENTRET = MODE # EXIT FROM ENTER
000550,000110: 0066 LOADIND ERASE # LOAD INDICATOR
000551,000111: 0067 0066 NEWEQIND EQUALS LOADIND
000552,000112: 0067 0066 MONTEM = NEWEQIND # TEMP RETURN FOR MONITOR
000553,000113: 0067 FIXLOC ERASE # ADDRESS OF CURRENT VAC AREA
000554,000114: 0070 VACLOC ERASE # ADDRESS OF CURRENT VAC (= FIXLOC+32D)
000555,000115: 0071 VBUF ERASE +5 # 6 WORD TEMPORARY BLOCK FOR VXV, MXV, ETC
000556,000116: 0077 0071 TEMQS EQUALS VBUF # TEMP STORAGE FOR SWCALL ROUTINE
000557,000117: 0077 0072 BANKTEM EQUALS VBUF +1 # LIKEWISE
000558,000118: 0077 0073 B EQUALS VBUF +2 # ARGUMENT STORAGE IN FUNCTIONS
000559,000119: 0077 0073 PROGREG = VBUF +2 # FOR GO EXEC PROGRAM
000560,000120: 0077 0073 MIXTEMP = VBUF +2 # FOR MIXNOUN DATA
000561,000121: 0077 0073 SIGNRET = VBUF +2 # RETURN FOR +,- ON
000562,000122: # ALSO PROGREG+1, PROGREG+2. MIXTEMP+1, MIXTEMP+2.
000563,000123: 0077 0075 ESCAPE2 EQUALS VBUF +4 # NEGATIVE ARGUMENT SWITCH IN ARCCOS
000564,000124: 0077 0075 TAG1 EQUALS VBUF +4 # USED FOR PICKING UP INDEX AND STEP REGS
000565,000125: 0077 0076 TEMQ3 EQUALS VBUF +5 # RETURN FROM DDV AND SQRTDIV
000566,000126: 0077 0076 POLISH EQUALS VBUF +5 # TEMPORARY STORAGE FOR COMPLETE ADDRESSES
000567,000127: 0077 0076 WDCNT = VBUF +5 # CHAR COUNTER FOR DSPWD
000568,000128: 0077 0076 INREL = VBUF +5 # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000569,000129: 0077 BUF ERASE +2 # USED BY DMP1, SQRTDIV
000570,000130: 0102 0077 LOGTEM EQUALS BUF # LOG SUBROUTINE TEMP.
000571,000131: 0102 0101 SGNDMAX EQUALS BUF +2 # USED IN TPAGREE
000572,000132: 0102 0101 TEM3 EQUALS BUF +2
000573,000133: 0102 0101 GCOMPSW EQUALS BUF +2
000574,000134: 0102 TEM2 ERASE
000575,000135: 0103 0102 DSREL = TEM2 # REL ADDRESS FOR DSPIN(TEM2 USED BY DAD1)
000576,000136: 0103 TEM4 ERASE
000577,000137: 0104 0103 TEMQ EQUALS TEM4 # RETURN FROM TPAGREE
000578,000138: 0104 0103 DSMAG = TEM4 # MAGNITUDE STORE FOR DSPIN
000579,000139: 0104 0103 IDADDTEM = TEM4 # MIXNOUN INDIRECT ADDRESS STORAGE
000580,000140: 0104 TEM5 ERASE
000581,000141: 0105 0104 TEMQ2 EQUALS TEM5
000582,000142: 0105 0104 BASE = TEM5
000583,000143: 0105 0104 COUNT = TEM5 # FOR DSPIN (TEM5 IS USED BY DAD)
000584,000144: 0105 TEM8 ERASE
000585,000145: 0106 0105 TEM6 EQUALS TEM8 # ERASABLE ASSIGNMENTS BY EQUALS
000586,000146: 0106 TEM9 ERASE
000587,000147: 0107 0106 WRDRET = TEM9 # RETURN FOR 5BLANK
000588,000148: 0107 0106 WDRET = TEM9 # RETURN FOR DSPWD
000589,000149: 0107 0106 DECRET = TEM9 # RETURN FOR PUTCOM(DEC LOAD)
000590,000150: 0107 0106 21/22REG = TEM9 # TEMP FOR CHARIN
000591,000151: 0107 TEM10 ERASE
000592,000152: 0110 0107 IND EQUALS TEM10 # USED IN CROSS ROUTINE
000593,000153: 0110 0107 MIXBR = TEM10 # INDICATOR FOR MIXED OR NORMAL NOUN
000594,000154: 0110 0107 DSPMMTEM = TEM10 # DSPCOUNT SAVE FOR DSPMM
000595,000155: 0110 DVSW ERASE # (THIS CAN PROBABLY BE EQUATED)
000596,000156: 0111 0110 SGNOFF = DVSW # TEMP FOR +,- ON
000597,000157: 0111 0110 NVTEMP = DVSW # TEMP FOR NVSUB
000598,000158: 0111 0110 SFTEMP1 = DVSW # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000599,000159: 0111 0110 DECTEM2 = DVSW # TEMP FOR NUM
000600,000160: 0111 BRANCHQ ERASE # (DITTO)
000601,000161: 0112 0111 CODE = BRANCHQ # FOR DSPIN
000602,000162: 0112 0111 SFTEMP2 = BRANCHQ # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
000603,000163: 0112 COMPON ERASE # (DITTO)
000604,000164: 0113 0112 DSEXIT = COMPON # RETURN FOR DSPIN
000605,000165: 0113 0112 EXITEM = COMPON # RETURN FOR SCALE FACTOR ROUTINE SELECT
000606,000166: 0113 0112 BLANKRET = COMPON # RETURN FOR 2BLANK
000607,000167: 0113 ARETURN ERASE # RETURN ADDRESS FOR ARCSIN/ARCCOS.
000608,000168: 0114 0113 LSTPTR = ARETURN # LIST POINTER FOR GRABUSY
000609,000169: 0114 0113 RELRET = ARETURN # RETURN FOR RELDSP
000610,000170: 0114 0113 FREERET = ARETURN # RETURN FOR FREEDSP
000611,000171:
000612,000172: 0114 ESCAPE ERASE # ARCSIN/ARCCOS SWITCH
000613,000173: 0115 0114 CADRTEM = ESCAPE # TEMP STORAGE FOR GRAB ROUTINES
000614,000174:
000615,000175: # THE FOLLOWING REGISTERS ARE USED EXCLUSIVELY BY THE EXECUTIVE.
000616,000176: 0115 MPAC ERASE +2 # MULTIPLE-PRECISION ACCUMULATOR
000617,000177: 0120 LOC ERASE # LOCATION COUNTER FOR OPERATOR WORDS
000618,000178: 0121 ADRLOC ERASE # LOCATION COUNTER FOR OPERAND ADDRESSES
000619,000179: 0122 OVFIND ERASE # 0 FOR NO OVERFLOW, NON-ZERO OTHERWISE
000620,000180: 0123 PUSHLOC ERASE # NEXT AVAILABLE ENTRY IN PUSH-DOWN LIST
000621,000181: 0124 PRIORITY ERASE # PRIORITY OF CURRENT JOB
000622,000182:
000623,000183: 0125 ERASE +55D # EIGHT JOBS POSSIBLE
000624,000184:
000625,000185: 0215 NEWJOB ERASE # SET NON-ZERO TO SIGNAL EXECUTIVE RUPT
000626,000186:
000627,000187: 0216 VAC1USE ERASE # SEE EXECUTIVE PROGRAMS FOR USE OF THESE
000628,000188: 0217 VAC1 ERASE +42D # REGISTERS
000629,000189: 0272 VAC2USE ERASE
000630,000190: 0273 VAC2 ERASE +42D
000631,000191: 0346 VAC3USE ERASE
000632,000192: 0347 VAC3 ERASE +42D
000633,000193: 0422 VAC4USE ERASE
000634,000194: 0423 VAC4 ERASE +42D
000635,000195: 0476 VAC5USE ERASE
000636,000196: 0477 VAC5 ERASE +42D
000637,000197:
000638,000198: # THE FOLLOWING REGISTERS ARE USED EXCLUSIVELY BY THE WAITLISTER.
000639,000199:
000640,000200: 0552 LST1 ERASE +6 # DELTA T'S.
000641,000201: 0561 LST2 ERASE +7 # TASK CADRS.
000642,000202: 0571 RUPTAGN ERASE # WAITLIST ADDITIONAL TASK INDICATOR.
000643,000203:
000644,000204: 0572 0571 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
000645,000205:
000646,000206: # THE FOLLOWING GROUP OF REGISTERS MAY BE USED AS TEMPORARY STORAGE BY ANY INTERRUPT PROGRAM OR BY ANY
000647,000207: # PROGRAM WHICH INHIBITS INTERRUPT. CARE MUST BE TAKEN, HOWEVER, TO SEE THAT THEY ARE NOT USED DURING A CALL
000648,000208: # TO THE EXECUTIVE (FOR EXAMPLE), FOR THE EXECUTIVE MAY USE THEM AS TEMPORARIES TOO.
000649,000209:
000650,000210: 0572 EXECTEM1 ERASE # THESE REGISTERS, EXECTEM1-3, MAY BE USED
000651,000211: 0573 0572 RUPTSTOR = EXECTEM1
000652,000212: 0573 0572 IN1HITEM = EXECTEM1 # INTERRUPT TEMP FOR STANDBY PREP
000653,000213: 0573 EXECTEM2 ERASE # AS SCRATCH STORAGE BY ANY PROGRAM WHICH
000654,000214: 0574 0573 PROG EQUALS EXECTEM2
000655,000215: 0574 0573 IN1LOTEM = EXECTEM2 # INTERRUPT TEMP FOR STANDBY PREP
000656,000216: 0574 EXECTEM3 ERASE # INHIBITS INTERRUPTS
000657,000217: 0575 0574 ITEMP3 EQUALS EXECTEM3
000658,000218: 0575 0574 SRRUPT EQUALS EXECTEM3 # SHORT STORAGE FOR SR DURING INTERRUPT.
000659,000219: 0575 0574 LOOKRET = EXECTEM3 # INTERRUPT TEMP FOR STANDBY PREP
000660,000220: 0575 EXECTEM4 ERASE
000661,000221: 0576 EXECTEM5 ERASE # BANK RETURN FROM PHASE CONTROL.
000662,000222: 0577 NEWPRIO ERASE # PRIORITY OF NEW JOB
000663,000223: 0600 0577 NVAL = NEWPRIO
000664,000224: 0600 0577 DELT = NVAL
000665,000225: 0600 0577 ITEMP1 = NEWPRIO
000666,000226: 0600 WTEXIT ERASE
000667,000227: 0601 0600 ITEMP2 = WTEXIT
000668,000228: 0601 0600 KEYTEMP1 = WTEXIT # TEMP FOR KEYRUPT, UPRUPT
000669,000229: 0601 0600 DSRUPTEM = WTEXIT # TEMP FOR DSPOUT
000670,000230: 0601 LOCCTR ERASE # USED TO LOCATE STORAGE FOR CORE REGISTRS
000671,000231: 0602 0601 PHASDATA EQUALS LOCCTR
000672,000232:
000673,000233: # ERASABLE ASSIGNMENTS SPECIFIC TO PINBALL
000674,000234:
000675,000235: 0602 VERBREG ERASE # VERB CODE
000676,000236: 0603 NOUNREG ERASE # NOUN CODE
000677,000237: 0604 XREG ERASE # R1 INPUT BUFFER
000678,000238: 0605 YREG ERASE # R2 INPUT BUFFER
000679,000239: 0606 ZREG ERASE # R3 INPUT BUFFER
000680,000240: 0607 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
000681,000241: 0610 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
000682,000242: 0611 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
000683,000243: 0612 MODREG ERASE # MODE CODE
000684,000244: 0613 REQRET ERASE # RETURN REGISTER FOR LOAD
000685,000245: 0614 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR
000686,000246: 0615 DECBRNCH ERASE # +DEC, - DEC, OCT INDICATOR
000687,000247: 0616 SETLOC 616 # NEEDED FOR PINBALL AUTO CHECK
000688,000248: 0616 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000689,000249: 0621 0616 LANDMARK EQUALS DSPTEM1
000690,000250: 0621 0616 V75TEMP EQUALS DSPTEM1
000691,000251: 0621 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000692,000252: 0624 NOUNADD ERASE # MACHINE ADDRESS FOR NOUN
000693,000253: 0625 MONSAVE ERASE # N/V CODE FOR MONITOR. ALSO ACTIVITY
000694,000254: 0626 MONSAVE1 ERASE # NOUNADD STORAGE FOR MONITOR WITH MATBS
000695,000255: 0627 CADRSTOR ERASE # ENDIDLE STORAGE
000696,000256: 0630 GRABLOCK ERASE # INTERNAL INTERLOCK FOR DISPLAY SYSTEM
000697,000257: 0631 NVSBCADR ERASE # NVSUB STORAGE FOR CALLING CADR
000698,000258: 0632 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
000699,000259: 0633 CLPASS ERASE # PASS INDICATOR FOR CLEAR
000700,000260: 0634 DSPLIST ERASE +2 # WAITING LIST FOR DSP SYST INTERNAL USE
000701,000261:
000702,000262:
000703,000263:
000704,000264: # LONG-TERM STORAGE USED DURING INTERUPT, NOT USED BY EXECUTIVE, WAITLIST, ETC.
000705,000265:
000706,000266: 0637 RUPTREG1 ERASE
000707,000267: 0640 0637 KSAMPTEM EQUALS RUPTREG1
000708,000268: 0640 RUPTREG2 ERASE
000709,000269: 0641 0640 OSAMPTEM EQUALS RUPTREG2
000710,000270: 0641 RUPTREG3 ERASE
000711,000271: 0642 RUPTREG4 ERASE
000712,000272:
000713,000273: # MISCELLANEOUS RESERVATIONS
000714,000274:
000715,000275: 0643 SAMPTIME ERASE +1 # SAMPLED TIME FOR PINBALL REFERENCE.
000716,000276:
000717,000277:
000718,000278: # INTERPRETER SWITCH ASSIGNMENTS.
000719,000279:
000720,000280: 0645 STATE ERASE +2 # 45 SWITCHES USED BY INTERPRETIVE PROGS.
000721,000281:
000722,000282: 0650 0645 DSPLOCK EQUALS STATE # BIT 4
000723,000283: 0650 0645 EXTVBACT EQUALS STATE # BIT 3
000724,000284: 0650 0645 UPLOCK EQUALS STATE # BIT 2
000725,000285: 0650 0646 FLAGWRD1 EQUALS STATE +1
000726,000286: 0650 0647 FLAGWRD2 EQUALS STATE +2
000727,000287:
000728,000288: 0650 JSWITCH EQUALS 1 # FREE-FALL INTEGRATION.
000729,000289: 0650 MIDFLAG EQUALS 2 # FREE-FALL INTEGRATION.
000730,000290: 0650 MOONFLAG EQUALS 3 # FREE-FALL INTEGRATION.
000731,000291: 0650 FIRSTFLG EQUALS 4 # MIDCOURSE NAVIGATION.
000732,000292: 0650 NBSMBIT EQUALS 5 # IN-FLIGHT ALIGNMENT.
000733,000293: 0650 GONEPAST EQUALS 6 # RE-ENTRY
000734,000294: 0650 RELVELSW EQUALS 7D # RE-ENTRY.
000735,000295: 0650 EGSW EQUALS 8D # RE-ENTRY.
000736,000296: 0650 HUNTIND EQUALS 9D # RE-ENTRY.
000737,000297: 0650 HIND EQUALS 10D # ENTRY.
000738,000298: 0650 LATSW EQUALS 11D # ENTRY.
000739,000299: # DSPLOCK EQUALS 12D KEYBOARD/SUBROUTINE CALL INTERLOCK
000740,000300: # EXTVBACT EQUALS 13D EXTENDED VERB ACTIVITY
000741,000301: # UPLOCK EQUALS 14D UPLINK INTERLOCK (ACTIVATED BY RECPTION
000742,000302: # OF A BAD CODE IN UPLINK)
000743,000303:
000744,000304: 0650 INRLSW EQUALS 15D # PROGSTALL NOT USED DURING ENTRY.
000745,000305: 0650 PRGSW EQUALS 15D # USED BY PRGSTALL.
000746,000306:
000747,000307: 0650 COASTFLG EQUALS 17D # 17 TO 47 ARE 202 SEQUENCE CONTROL FLAGS.
000748,000308: 0650 UPDATFLG EQUALS 18D
000749,000309: 0650 VERTFLAG EQUALS 19D
000750,000310: 0650 SHTDNFLG EQUALS 20D
000751,000311: 0650 ACTIVFLG EQUALS 21D
000752,000312: 0650 INTPFLAG EQUALS 22D
000753,000313: 0650 INITFLAG EQUALS 23D
000754,000314: 0650 S4BSMFLG EQUALS 24D
000755,000315: 0650 INT1FLAG EQUALS 25D
000756,000316: 0650 MONITFLG EQUALS 26D
000757,000317: 0650 DVMONFLG EQUALS 27D
000758,000318: 0650 STEERFLG EQUALS 28D
000759,000319: 0650 ENTRYFLG EQUALS 29D
000760,000320: 0650 LIFTFLAG EQUALS 30D
000761,000321: 0650 TUMBFLAG EQUALS 31D
000762,000322:
000763,000323: 0650 DRIFTFLG EQUALS 33D
000764,000324: 0650 CDUXFLAG EQUALS 34D
000765,000325: 0650 BACKFLAG EQUALS 35D
000766,000326: 0650 ROLLFLAG EQUALS 36D
000767,000327: 0650 CALCFLAG EQUALS 37D
000768,000328: 0650 DOMANFLG EQUALS 38D
000769,000329: 0650 NEGFLAG EQUALS 39D
000770,000330: 0650 BEGINFLG EQUALS 40D
000771,000331: 0650 SPS4FLAG EQUALS 41D
000772,000332: 0650 SPS3FLAG EQUALS 42D
000773,000333: 0650 SPS2FLAG EQUALS 43D
000774,000334: 0650 SPS1FLAG EQUALS 44D
000775,000335: 0650 TABTFLAG EQUALS 45D
000776,000336: 0650 ABRTFLAG EQUALS 46D
000777,000337: 0650 ARRSTFLG EQUALS 47D
000778,000338:
000779,000339: # STORAGE USED BY PHASE CONTROL.
000780,000340:
000781,000341: 0650 PHASETAB ERASE +5 # PHASE VALUES FOR 6 PROGRAMS
000782,000342: 0656 0650 PHASE1 EQUALS PHASETAB
000783,000343: 0656 0651 PHASE2 EQUALS PHASETAB +1
000784,000344: 0656 0652 PHASE3 EQUALS PHASETAB +2
000785,000345: 0656 0653 PHASE4 EQUALS PHASETAB +3
000786,000346: 0656 0654 PHASE5 EQUALS PHASETAB +4
000787,000347: 0656 0655 PHASE6 EQUALS PHASETAB +5
000788,000348: 0656 PHASEBAR ERASE +5 # COMPLEMENTED COPY.
000789,000349: 0664 0656 -PHASE1 EQUALS PHASEBAR
000790,000350: 0664 TBASE2 ERASE
000791,000351: 0665 TBASE3 ERASE
000792,000352: 0666 TBASE4 ERASE
000793,000353: 0667 TBASE5 ERASE # SHOULD COMPLETE THIS SET.
000794,000354:
000795,000355: # THE FOLLOWING REGISTERS ARE USED BY THE DOWNRUPT PROGRAM.
000796,000356:
000797,000357: 0670 TELCOUNT ERASE # ENDPULSE FREQUENCY MONITORING COUNTER.
000798,000358: 0671 LDATALST ERASE
000799,000359: 0672 DNLSTADR ERASE # BASE ADDRESS OF APPROPRIATE TM LIST.
000800,000360: 0673 DNTMGOTO ERASE # ADDRESS OF CURRENT DOWNLINK PHASE.
000801,000361: 0674 TMINDEX ERASE # STEPS THROUGH THE DOWNLIST
000802,000362: 0675 TMMARKER ERASE
000803,000363: 0676 MARKERCT ERASE
000804,000364:
000805,000365: # THE FOLLOWING STORAGE IS USED BY T4RUPT.
000806,000366:
000807,000367: 0677 CDUIND ERASE # IMU CDU STATUS INDICATOR AND INDEXER.
000808,000368: 0700 THETAD ERASE +2 # SET OF THREE DEISRED ANGLES IN 2S COMPL.
000809,000369: 0703 OPTIND ERASE # OPTICS CDU STATUS INDICATOR AND INDEXER.
000810,000370: 0704 DESOPTX ERASE +1 # DESIRED OPTICS CDU ANGLES.
000811,000371:
000812,000372: 0706 DSPCNT ERASE # STEPS THROUGH K-RELAY SLOTS IN DSPTAB.
000813,000373: 0707 NOUT ERASE # HOLDS NUMBER OF RELAY WORDS TO CHANGE.
000814,000374: 0710 DSPTAB ERASE +13D # HOLDS STATE OF ALL RELAYS AND CHANGE INF
000815,000375:
000816,000376: 0726 OLDERR ERASE # LAST-SAMPLED SYSTEM ERROR BITS.
000817,000377: # THE BITS OF OLDERR HAVE THE FOLLOWING MEANINGS:
000818,000378:
000819,000379: # BIT 1 = 1 IF THE PILOTS ATTITUDE BUTTON IS DEPRESSED.
000820,000380: # BIT 2 = 1 IF RESTART FAILED (AND DID A FRESH START).
000821,000381: # BIT 3 = 1 IF BIT 4 OF OUT1 WAS NOT INVERTED LAST NWJOB.
000822,000382: # BIT 4 = 1 TO INHIBIT IMU FAIL FOR 5 SECONDS AFTER COARSE ALIGN.
000823,000383: # BIT 5 = 1 IF CURTAINS CALLED (IMU MODING FAILURE, ETC.)
000824,000384: # BIT 10 = 1 IF CDU FAIL IS ON IN FINE ALIGN.
000825,000385: # BIT 11 = 1 IF PIPA FAIL IS ON.
000826,000386: # BIT 12 = 1 IF IMU FAIL IS ON IN ANY MODE BUT COARSE ALIGN.
000827,000387:
000828,000388: # IN FLIGHT 202, BITS 2, 5, 11, AND 12 INHIBIT MAINTENANCE OF THE NIGHT WATCHMAN ALARM
000829,000389: # SO THAT IF THEY ARE PRESENT FOR 2 CONSECUTIVE NWJOBS, G & N FAIL WILL BE SENT TO THE MCP.
000830,000390:
000831,000391: 0727 WASKSET ERASE # LAST SETTING OF IMU MODE SWITCHES.
000832,000392: 0730 WASOPSET ERASE # LAST SETTING OF OPTICS MODE SWITCHES.
000833,000393:
000834,000394: 0731 DESKSET ERASE # DESIRED SETTING OF IMU MODE SWITCHES.
000835,000395: 0732 DESOPSET ERASE # DESIRED OPTICS MODES.
000836,000396:
000837,000397: # THE FOLLOWING REGISTERS ARE USED BY THE MODE SWITCHING AND MARK PROGRAMS.
000838,000398:
000839,000399: 0733 IMUCADR ERASE # USED BY IMUSTALL.
000840,000400: 0734 0733 MODECADR EQUALS IMUCADR # FOR INDEXING PURPOSES.
000841,000401: 0734 OPTCADR ERASE # USED BY OPTSTALL.
000842,000402:
000843,000403: 0735 MARKSTAT ERASE # MARK BUTTON STATUS REGISTER.
000844,000404:
000845,000405:
000846,000406: # THE FOLLOWING STORAGE IS RESERVED FOR IMU COMPENSATION PARAMETERS.
000847,000407:
000848,000408: 0736 PBIASX ERASE # PIPA BIAS AND SCALE FACTOR TERMS
000849,000409: 0737 0736 PIPABIAS EQUALS PBIASX # INTERMIXED.
000850,000410: 0737 PIPASCFX ERASE
000851,000411: 0740 0737 PIPASCF EQUALS PIPASCFX
000852,000412: 0740 PBIASY ERASE
000853,000413: 0741 PIPASCFY ERASE
000854,000414: 0742 PBIASZ ERASE
000855,000415: 0743 PIPASCFZ ERASE
000856,000416:
000857,000417: 0744 GBIASX ERASE # GYRO BIAS DRIFTS.
000858,000418: 0745 GBIASY ERASE
000859,000419: 0746 GBIASZ ERASE
000860,000420:
000861,000421: 0747 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
000862,000422: 0750 ADIAY ERASE # INPUT AXIS.
000863,000423: 0751 ADIAZ ERASE
000864,000424:
000865,000425: 0752 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT
000866,000426: 0753 ADSRAY ERASE # ALONG THE SPIN-REFERENCE AXIS.
000867,000427: 0754 ADSRAZ ERASE
000868,000428:
000869,000429: 0755 1/PIPADT ERASE # DELTA TIME FOR 1/PIPA.
000870,000430:
000871,000431: 0756 0755 OLDBT1 EQUALS 1/PIPADT # TIME1 STORAGE DURING FREE-FALL COMP.
000872,000432:
000873,000433: 0756 GCOMP ERASE +5 # CONTAINS COMPENSATING GYRO TORQUES.
000874,000434:
000875,000435: # THE FOLLOWING INTERLOCK REGISTER IS USED BY THE GYRO ROUTINES.
000876,000436:
000877,000437: 0764 LGYRO ERASE # ZERO IF GYROS AVAILABLE - ADDRESS OF
000878,000438: # COMMANDS IF IN USE
000879,000439:
000880,000440:
000881,000441: # THE FOLLOWING STORAGE CONTAINS REFERENCE VARIABLES FOR SEVERAL MISSION PROGRAMS. INCLUDED HERE ARE
000882,000442: # POSITION, VELOCITY, THEIR ASSOCIATED TIME, AND IMU STABLE MEMBER ORIENTATION (WHEN THE IMU IS ALIGNED).
000883,000443:
000884,000444: 0765 REFRRECT ERASE +5 # REFERENCE RECTIFICATION VECTORS.
000885,000445: 0773 REFVRECT ERASE +5
000886,000446: 1001 DELTAV ERASE +5 # REFERENCE DEVIATION VECTORS.
000887,000447: 1007 NUV ERASE +5
000888,000448: 1015 REFRCV ERASE +5 # REFERENCE CONIC POSITION VECTOR.
000889,000449:
000890,000450: 1023 REFVCV ERASE +5 # REFERENCE CONIC VELOCITY VECTOR.
000891,000451: 1031 REFTC ERASE +1 # REFERENCE TIME SINCE RECTIFICATION.
000892,000452: 1033 TE ERASE +1 # TIME CORRESPONDING TO POSITION AND VEL.
000893,000453:
000894,000454: 1035 REFXKEP ERASE +1 # REFERENCE CONIC VARIABLE X.
000895,000455: 1037 PBODY ERASE
000896,000456:
000897,000457: 1040 NSHIFT ERASE # AVERAGE G INTEGRATOR PARAMETERS REQUIR-
000898,000458: 1041 XSHIFT ERASE # ING PERMANENT STORAGE
000899,000459: 1042 CALCG ERASE
000900,000460: 1043 UNITW ERASE +5
000901,000461:
000902,000462: 1051 0765 RN EQUALS REFRRECT # SYMBOLS FOR POSITION AND VELOCITY
000903,000463: 1051 0765 RPIP EQUALS REFRRECT # DURING ACCELERATED PHASES.
000904,000464: 1051 0773 VN EQUALS REFVRECT
000905,000465: 1051 0773 VPIP EQUALS REFVRECT
000906,000466:
000907,000467: 1051 1001 DELV EQUALS DELTAV # PIPA DATA DURING ACCELERATED PHASES.
000908,000468: 1051 1001 DELVX EQUALS DELV
000909,000469: 1051 1003 DELVY EQUALS DELV +2
000910,000470: 1051 1005 DELVZ EQUALS DELV +4
000911,000471: 1051 1007 GRAVITY EQUALS NUV # AVERAGE G INTEGRATOR VARIABLES
000912,000472: 1051 1015 UNITR EQUALS REFRCV
000913,000473: 1051 1023 RMAG EQUALS REFVCV
000914,000474: 1051 1025 RMAGSQ EQUALS REFVCV +2
000915,000475: 1051 1027 DELTAT EQUALS REFVCV +4
000916,000476:
000917,000477: 1051 1031 TEMX EQUALS REFTC
000918,000478: 1051 1032 TEMY EQUALS REFTC +1
000919,000479: 1051 1033 TEMZ EQUALS TE
000920,000480: 1051 1034 TEMXY EQUALS TE +1
000921,000481: 1051 1035 PIPAGE EQUALS REFXKEP
000922,000482:
000923,000483: 1051 REFSMMAT ERASE +17D # REFERENCE TO SM MATRIX
000924,000484: 1073 DTEPOCH ERASE +1
000925,000485:
000926,000486: 1075 REDOCNTR ERASE # RESTART DATA SAVED IN THESE REGISTERS
000927,000487: 1076 REDOTIME ERASE +1
000928,000488:
000929,000489:
000930,000490: # THE FOLLOWING STORAGE IS TIME-SHARED BY MISSION PROGRAMS UNDER THE SUPERVISION OF MASTER COMTROL. IT IS
000931,000491: # ORGANIZED INTO THREE PARTS REFERRED TO AS A MEMORY, B MEMORY, AND C MEMORY. A PARTICULAR MISSION PHASE IS
000932,000492: # ASSIGNED TO ONE OF THE SEGMENTS IN SUCH A WAY THAT NO OTHER MISSION PHASE USING THE SAME SEGMENT WILL EVER RUN
000933,000493: # CONCURRENTLY; E.G., RE-ENTRY WILL NEVER RUN CONCURRENT WITH TVC. THE NUMBER OF AREAS (3) IS DETERMINED BY THE
000934,000494: # MAXIMUM NUMBER OF DISTINCT MISSION PROGRAMS WHICH RUN SIMULTANEOUSLY.
000935,000495:
000936,000496: # A MEMORY IS USED BY NAVIGATION PROGRAMS; MID-COURSE DURING FREE-FALL PORTIONS OF THE MISSION AND
000937,000497: # AVERAGE G INTEGRATION DURING ACCELERATED PHASES. GUIDANCE PROGRAMS SUCH AS TVC USE B MEMORY TOGETHER WITH THEIR
000938,000498: # ASSOCIATED ALIGNMENTS. THE C MEMORY PORTION IS USED THROUGHOUT MOST OF THE MISSION FOR THE MIDCOURSE ERROR
000939,000499: # TRANSITION MATRIX W, AND LATER BY RE-ENTRY AFTER THE LAST MEASUREMENT HAS BEEN INCORPORATED. THE EXCEPTION IS
000940,000500: # SYSTEM TEST, ASSIGNED TO A MEMORY, WHICH NEVER RUNS CONCURRENTLY WITH MISSION PROGRAMS.
000941,000501:
000942,000502: 1100 AMEMORY ERASE +139D
000943,000503: 1314 BMEMORY ERASE +164D
000944,000504: 1561 CMEMORY ERASE +71D
000945,000505:
000946,000506:
000947,000507:
000948,000508: # STORAGE USED TO SAVE T1+2 DURING STANDBY.
000949,000509:
000950,000510: 1671 1100 TIME2SAV EQUALS AMEMORY +000D
000951,000511: 1671 1101 TIME1SAV EQUALS AMEMORY +001D
000952,000512: 1671 1102 IN1HISAV EQUALS AMEMORY +002D
000953,000513: 1671 1103 IN1LOSAV EQUALS AMEMORY +003D
000954,000514: 1671 1104 IN1HIDIF EQUALS AMEMORY +004D
000955,000515: 1671 1105 IN1LODIF EQUALS AMEMORY +005D
000956,000516:
000957,000517: # THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION:
000958,000518:
000959,000519: 1671 1100 RRECT EQUALS AMEMORY +000D
000960,000520: 1671 1100 RIGNTION EQUALS AMEMORY +000D
000961,000521: 1671 1106 VRECT EQUALS AMEMORY +006D
000962,000522: 1671 1106 VIGNTION EQUALS AMEMORY +006D
000963,000523: 1671 1114 TDELTAV EQUALS AMEMORY +012D
000964,000524: 1671 1114 NEWDLTAV EQUALS AMEMORY +012D
000965,000525: 1671 1114 YV EQUALS AMEMORY +012D
000966,000526: 1671 1122 TNUV EQUALS AMEMORY +018D
000967,000527: 1671 1122 -UPADR EQUALS TNUV
000968,000528: 1671 1123 STCNTR EQUALS TNUV +1
000969,000529: 1671 1122 NEWNUV EQUALS AMEMORY +018D
000970,000530: 1671 1122 ZV EQUALS AMEMORY +018D
000971,000531: 1671 1130 RCV EQUALS AMEMORY +024D
000972,000532: 1671 1130 FOUNDR EQUALS AMEMORY +024D
000973,000533: 1671 1136 VCV EQUALS AMEMORY +030D
000974,000534: 1671 1136 FOUNDV EQUALS AMEMORY +030D
000975,000535: 1671 1144 TC EQUALS AMEMORY +036D
000976,000536: 1671 1146 TET EQUALS AMEMORY +038D
000977,000537: 1671 1150 XKEP EQUALS AMEMORY +040D
000978,000538: 1671 1152 ALPHAV EQUALS AMEMORY +042D
000979,000539: 1671 1152 DELR EQUALS AMEMORY +042D
000980,000540: 1671 1160 BETAV EQUALS AMEMORY +048D
000981,000541: 1671 1160 DELVEL EQUALS AMEMORY +048D
000982,000542: 1671 1160 UVL EQUALS AMEMORY +048D
000983,000543: 1671 1166 PHIV EQUALS AMEMORY +054D
000984,000544: 1671 1166 STARMEAS EQUALS AMEMORY +054D
000985,000545: 1671 1174 LNDMRKV EQUALS AMEMORY +060D
000986,000546: 1671 1174 PSIV EQUALS AMEMORY +060D
000987,000547: 1671 1202 ROTLMV EQUALS AMEMORY +066D
000988,000548: 1671 1202 FV EQUALS AMEMORY +066D
000989,000549:
000990,000550: 1671 1210 VECTAB EQUALS AMEMORY +072D
000991,000551:
000992,000552: 1671 1210 TAVEGON EQUALS AMEMORY +072D
000993,000553: 1671 1212 TRESUME EQUALS AMEMORY +074D
000994,000554: 1671 1214 RAVEGON EQUALS AMEMORY +076D
000995,000555: 1671 1220 BVECTOR EQUALS AMEMORY +080D
000996,000556: 1671 1220 UNE EQUALS AMEMORY +080D
000997,000557: 1671 1222 VAVEGON EQUALS AMEMORY +082D
000998,000558: 1671 1230 UNP EQUALS AMEMORY +088D
000999,000559: 1671 1230 RIG-4SEC EQUALS AMEMORY +088D
001000,000560: 1671 1236 ERADSQ/4 EQUALS AMEMORY +094D
001001,000561: 1671 1240 ERAD/2 EQUALS AMEMORY +096D
001002,000562: 1671 1254 ALPHAM EQUALS AMEMORY +108D
001003,000563: 1671 1256 BETAM EQUALS AMEMORY +110D
001004,000564: 1671 1256 LONGDES EQUALS AMEMORY +110D
001005,000565: 1671 1260 TAU EQUALS AMEMORY +112D
001006,000566: 1671 1260 GIVENT EQUALS AMEMORY +112D
001007,000567: 1671 1260 DLONG EQUALS AMEMORY +112D
001008,000568: 1671 1262 DT/2 EQUALS AMEMORY +114D
001009,000569: 1671 1262 LAT EQUALS AMEMORY +114D
001010,000570: 1671 1264 H EQUALS AMEMORY +116D
001011,000571: 1671 1264 LONG EQUALS AMEMORY +116D
001012,000572: 1671 1266 TDEC EQUALS AMEMORY +118D
001013,000573: 1671 1270 AZ EQUALS AMEMORY +120D
001014,000574: 1671 1270 FBRANCH EQUALS AMEMORY +120D
001015,000575: 1671 1271 HBRANCH EQUALS AMEMORY +121D
001016,000576: 1671 1272 GMODE EQUALS AMEMORY +122D
001017,000577: 1671 1272 NUMBTEMP EQUALS AMEMORY +122D
001018,000578: 1671 1273 NUMBOPT EQUALS AMEMORY +123D
001019,000579: 1671 1274 VARIANCE EQUALS AMEMORY +124D
001020,000580: 1671 1274 HMAG EQUALS AMEMORY +124D
001021,000581: 1671 1276 MEASQ EQUALS AMEMORY +126D
001022,000582: 1671 1276 COTGAM EQUALS AMEMORY +126D
001023,000583: 1671 1276 DELTAQ EQUALS AMEMORY +126D
001024,000584:
001025,000585: 1671 1300 MEASMODE EQUALS AMEMORY +128D
001026,000586: 1671 1300 SITENUMB EQUALS AMEMORY +128D
001027,000587: 1671 1301 NVCODE EQUALS AMEMORY +129D
001028,000588: 1671 1302 MIDEXIT EQUALS AMEMORY +130D
001029,000589: 1671 1302 DSPRTRN EQUALS AMEMORY +130D
001030,000590: 1671 1302 MANPHS-1 EQUALS AMEMORY +130D
001031,000591: 1671 1302 WORDIDX EQUALS AMEMORY +130D
001032,000592: 1671 1303 WMATFLAG EQUALS AMEMORY +131D
001033,000593: 1671 1303 INCORPEX EQUALS AMEMORY +131D
001034,000594: 1671 1304 STEPEXIT EQUALS AMEMORY +132D
001035,000595: 1671 1305 DIFEQCNT EQUALS AMEMORY +133D
001036,000596: 1671 1305 NORMGAM EQUALS AMEMORY +133D
001037,000597: 1671 1306 SCALEA EQUALS AMEMORY +134D
001038,000598: 1671 1307 SCALEB EQUALS AMEMORY +135D
001039,000599: 1671 1310 SCALEDT EQUALS AMEMORY +136D
001040,000600: 1671 1311 SCALDELT EQUALS AMEMORY +137D
001041,000601: 1671 1312 SCALER EQUALS AMEMORY +138D
001042,000602:
001043,000603: 1671 1313 FFFLAGS EQUALS AMEMORY +139D
001044,000604:
001045,000605:
001046,000606:
001047,000607: # A MEMORY ASSIGNMENTS FOR UPDATE ROUTINE
001048,000608:
001049,000609: 1671 1100 STBUFF EQUALS AMEMORY +000D
001050,000610:
001051,000611:
001052,000612:
001053,000613: # ENTRY ITEMS IN A MEMORY TO BE INCLUDED IN DOWN-LINK.
001054,000614:
001055,000615: 1671 1100 FX EQUALS AMEMORY +0 # SHARES THIS LOC WITH RRECT.
001056,000616: 1671 1106 PREDANG EQUALS AMEMORY +06D # SHARES THIS LOC WITH VRECT.
001057,000617: 1671 1107 JJ EQUALS AMEMORY +07D # SHARES THIS LOC WITH VRECT.
001058,000618: 1671 1110 THETAH EQUALS AMEMORY +08D # SHARES THIS LOC WITH VRECT.
001059,000619: 1671 1112 LATANG EQUALS AMEMORY +010D # SHARES THIS LOC WITH VRECT.
001060,000620: 1671 1222 L/D EQUALS AMEMORY +082D # SHARES THIS LOC WITH VAVEGON.
001061,000621: 1671 1224 DIFF EQUALS AMEMORY +084D # SHARES THIS LOC WITH VAVEGON.
001062,000622: # END OF ENTRY ITEMS.
001063,000623:
001064,000624:
001065,000625: # A MEMORY ASSIGNMENTS FOR ROTATING EARTH ROUTINE.
001066,000626:
001067,000627: 1671 1114 RTINIT EQUALS AMEMORY +012D
001068,000628: 1671 1122 RTEAST EQUALS AMEMORY +018D
001069,000629: 1671 1130 RTNORM EQUALS AMEMORY +024D
001070,000630: 1671 1214 RT EQUALS AMEMORY +076D # SHARES THIS LOCATION WITH RAVEGON
001071,000631: 1671 1144 DTEAROT EQUALS AMEMORY +036D
001072,000632:
001073,000633:
001074,000634:
001075,000635: # A MEMORY TEMPORARIES USED BY PRELAUNCH
001076,000636:
001077,000637: 1671 1243 PTEMP EQUALS AMEMORY +99D
001078,000638:
001079,000639:
001080,000640: # A MEMORY USAGE AS TEMPORARIES BY AVERAGE G ROUTINE.
001081,000641:
001082,000642: 1671 1277 RN1 EQUALS AMEMORY +127D
001083,000643: 1671 1305 VN1 EQUALS AMEMORY +133D
001084,000644: 1671 1313 AVGRETRN EQUALS AMEMORY +139D
001085,000645:
001086,000646:
001087,000647:
001088,000648: # A MEMORY TEMPORARIES USED BY SERVICER
001089,000649:
001090,000650: 1671 1261 VGCNT1 EQUALS AMEMORY +113D
001091,000651: 1671 1262 DVCNT1 EQUALS AMEMORY +114D
001092,000652: 1671 1263 VR1 EQUALS AMEMORY +115D # 12 LOCATIONS FOR VR, DIFFVECT
001093,000653:
001094,000654:
001095,000655:
001096,000656: # SYSTEM TEST A MEMORY USAGE:
001097,000657:
001098,000658: 1671 1100 GENPL EQUALS AMEMORY +000D
001099,000659: 1671 1100 TAR1POS EQUALS GENPL
001100,000660: 1671 1114 FILDELX EQUALS AMEMORY +012D
001101,000661: 1671 1174 TMARK EQUALS AMEMORY +060D
001102,000662: 1671 1176 VMARK EQUALS AMEMORY +062D
001103,000663: 1671 1213 COARSAGN EQUALS AMEMORY +075D
001104,000664: 1671 1215 TESTTIME EQUALS AMEMORY +077D
001105,000665: 1671 1216 LTSTNDX EQUALS AMEMORY +078D
001106,000666: 1671 1220 COUNTPL EQUALS AMEMORY +080D
001107,000667: 1671 1221 PIPINDEX EQUALS AMEMORY +081D
001108,000668: 1671 1222 PIPANO EQUALS AMEMORY +082D
001109,000669: 1671 1223 POSITON EQUALS AMEMORY +083D
001110,000670: 1671 1224 RESULTCT EQUALS AMEMORY +084D
001111,000671: 1671 1224 NDXCTR EQUALS RESULTCT
001112,000672: 1671 1225 QPLACE EQUALS AMEMORY +085D
001113,000673:
001114,000674: 1671 1226 PIPNDX EQUALS AMEMORY +086D
001115,000675: 1671 1230 STOREPL EQUALS AMEMORY +088D
001116,000676: 1671 1231 NBPOS EQUALS AMEMORY +89D
001117,000677: 1671 1232 TESTNDX EQUALS AMEMORY +90D
001118,000678: 1671 1233 CDUNDX EQUALS AMEMORY +91D
001119,000679: 1671 1234 GYROD EQUALS AMEMORY +92D
001120,000680: 1671 1242 DATAPL EQUALS AMEMORY +98D
001121,000681:
001122,000682: 1671 1302 VACADR EQUALS AMEMORY +130D
001123,000683: 1671 1304 MKSTAT1 EQUALS AMEMORY +132D
001124,000684: 1671 1305 COAROFIN EQUALS AMEMORY +133D
001125,000685: 1671 1307 MAXPTS2 EQUALS AMEMORY +135D
001126,000686: 1671 1310 QPLAC EQUALS AMEMORY +136D
001127,000687: 1671 1311 PTS EQUALS AMEMORY +137D
001128,000688: 1671 1312 RUN EQUALS AMEMORY +138D
001129,000689: 1671 1313 EROPTN EQUALS AMEMORY +139D
001130,000690:
001131,000691: 1671 1561 TESTNO EQUALS CMEMORY +000D
001132,000692: 1671 1562 SAVE EQUALS CMEMORY +001D
001133,000693: 1671 1563 PLOW EQUALS CMEMORY +002D
001134,000694: 1671 1564 CUSSANG EQUALS CMEMORY +003D
001135,000695: 1671 1565 NEGCDU1 EQUALS CMEMORY +004D
001136,000696: 1671 1566 NEGCDU2 EQUALS CMEMORY +005D
001137,000697: 1671 1567 LOCNO EQUALS CMEMORY +006D
001138,000698: 1671 1570 CALCDIR EQUALS CMEMORY +007D
001139,000699: 1671 1571 BUBBLE EQUALS CMEMORY +008D
001140,000700: 1671 1572 TEMDELV EQUALS CMEMORY +009D
001141,000701: 1671 1573 RETAA EQUALS CMEMORY +010D
001142,000702: 1671 1574 RETBB EQUALS CMEMORY +011D
001143,000703: 1671 0621 STARNUMB EQUALS DSPTEM2
001144,000704:
001145,000705:
001146,000706: # B MEMORY USED BY POWERED FLIGHT AND ATTITUDE MANEUVERS
001147,000707:
001148,000708: 1671 1314 CDUTEMP EQUALS BMEMORY +000D
001149,000709: 1671 1322 CDUBUF EQUALS BMEMORY +006D
001150,000710: 1671 1322 WC EQUALS BMEMORY +006D
001151,000711: 1671 1322 UNITN EQUALS BMEMORY +006D
001152,000712: 1671 1322 RTRNSLUN EQUALS BMEMORY +006D
001153,000713: 1671 1322 VF EQUALS BMEMORY +006D
001154,000714: 1671 1330 SINCDU EQUALS BMEMORY +012D
001155,000715: 1671 1336 COSCDU EQUALS BMEMORY +018D
001156,000716: 1671 1344 DCDU EQUALS BMEMORY +024D
001157,000717: 1671 1344 DUPCDU EQUALS BMEMORY +024D
001158,000718: 1671 1344 STEERROR EQUALS BMEMORY +024D
001159,000719: 1671 1352 DNB EQUALS BMEMORY +030D
001160,000720: 1671 1352 VG EQUALS BMEMORY +030D
001161,000721: 1671 1352 UNITVG EQUALS BMEMORY +030D
001162,000722: 1671 1360 ERRORSUM EQUALS BMEMORY +036D
001163,000723: 1671 1366 XSC EQUALS BMEMORY +042D
001164,000724: 1671 1366 UNITRXV EQUALS BMEMORY +042D
001165,000725: 1671 1366 UNITF EQUALS BMEMORY +042D
001166,000726: 1671 1366 UNITD EQUALS BMEMORY +042D
001167,000727: 1671 1374 YSC EQUALS BMEMORY +048D
001168,000728: 1671 1374 UNITHORZ EQUALS BMEMORY +048D
001169,000729: 1671 1374 UNITS EQUALS BMEMORY +048D
001170,000730: 1671 1402 ZSC EQUALS BMEMORY +054D
001171,000731: 1671 1402 UNITMDT EQUALS BMEMORY +054D
001172,000732: 1671 1410 XSCD EQUALS BMEMORY +060D
001173,000733: 1671 1410 CBDT EQUALS BMEMORY +060D
001174,000734: 1671 1416 YSCD EQUALS BMEMORY +066D
001175,000735: 1671 1416 VR EQUALS BMEMORY +066D
001176,000736: 1671 1424 ZSCD EQUALS BMEMORY +072D
001177,000737: 1671 1424 SGNTHETA EQUALS BMEMORY +072D
001178,000738: 1671 1424 DIFFVECT EQUALS BMEMORY +072D
001179,000739: 1671 1432 RTARG EQUALS BMEMORY +078D
001180,000740: 1671 1432 DTEMP1 EQUALS BMEMORY +078D
001181,000741: 1671 1432 S EQUALS BMEMORY +078D
001182,000742: 1671 1434 DN EQUALS BMEMORY +080D
001183,000743: 1671 1436 SMA EQUALS BMEMORY +082D
001184,000744: 1671 1440 ANORMAL EQUALS BMEMORY +084D
001185,000745: 1671 1442 LOOKANG EQUALS BMEMORY +086D
001186,000746: 1671 1443 DISPCNTR EQUALS BMEMORY +087D
001187,000747: 1671 1444 MDT EQUALS BMEMORY +088D
001188,000748: 1671 1446 VGCNTR EQUALS BMEMORY +090D
001189,000749: 1671 1447 DVCNTR EQUALS BMEMORY +091D
001190,000750: # K1ROLL EQUALS BMEMORY +092D N.B. THIS LOCATION SHARED WITH ENTRY
001191,000751: 1671 1452 DTHETA EQUALS BMEMORY +094D
001192,000752: 1671 1454 THETAMAN EQUALS BMEMORY +096D
001193,000753: 1671 1456 TFF EQUALS BMEMORY +098D
001194,000754: 1671 1460 LONGTIME EQUALS BMEMORY +100D
001195,000755: 1671 1462 TLIFTOFF EQUALS BMEMORY +102D
001196,000756: 1671 1462 TENGON EQUALS BMEMORY +102D
001197,000757: 1671 1462 TCUTOFF EQUALS BMEMORY +102D
001198,000758: 1671 1464 PIPTIME EQUALS BMEMORY +104D
001199,000759: 1671 1466 LONGEXIT EQUALS BMEMORY +106D
001200,000760: 1671 1467 CALLCADR EQUALS BMEMORY +107D
001201,000761: 1671 1470 VRCADR EQUALS BMEMORY +108D
001202,000762: 1671 1471 EXITCADR EQUALS BMEMORY +109D
001203,000763: 1671 1472 ROLLC EQUALS BMEMORY +110D # N.B. THIS LOCATION SHARED WITH ENTRY
001204,000764: 1671 1474 EXITCAD1 EQUALS BMEMORY +112D
001205,000765:
001206,000766: # B, C MEMORY USED FOR ERASABLE 202 LAUNCH, AIMPOINT, VEHICLE DATA.
001207,000767:
001208,000768: 1671 1617 TATLAN1 EQUALS CMEMORY +030D
001209,000769: 1671 1526 TATLANT EQUALS BMEMORY +138D
001210,000770: 1671 1621 RTATLAN1 EQUALS CMEMORY +032D
001211,000771: 1671 1530 RTATLANT EQUALS BMEMORY +140D
001212,000772: 1671 1627 TPACIF1 EQUALS CMEMORY +038D
001213,000773: 1671 1536 TPACIFC EQUALS BMEMORY +146D
001214,000774: 1671 1631 RTPACIF1 EQUALS CMEMORY +040D
001215,000775: 1671 1540 RTPACIFC EQUALS BMEMORY +148D
001216,000776: 1671 1546 ESQ(VR) EQUALS BMEMORY +154D
001217,000777: 1671 1552 SEMILAT EQUALS BMEMORY +158D
001218,000778: 1671 1556 TCOAST EQUALS BMEMORY +162D
001219,000779: 1671 1560 TDECAY EQUALS BMEMORY +164D
001220,000780:
001221,000781:
001222,000782:
001223,000783: # THE FOLLOWING ARE RE-ENTRY AND PRE-RE-ENTRY ASSIGNMENTS:
001224,000784:
001225,000785: 1671 1314 (V) EQUALS BMEMORY +000D
001226,000786: 1671 1324 DIFFOLD EQUALS BMEMORY +008D
001227,000787: 1671 1326 Q7 EQUALS BMEMORY +010D
001228,000788: 1671 1330 FACT2 EQUALS BMEMORY +012D
001229,000789: 1671 1332 ESQ EQUALS BMEMORY +014D
001230,000790: 1671 1340 -1/D0 EQUALS BMEMORY +020D
001231,000791: 1671 1342 VSQUARE EQUALS BMEMORY +022D
001232,000792: 1671 1344 DADV1 EQUALS BMEMORY +24D
001233,000793: 1671 1346 RDOT EQUALS BMEMORY +026D
001234,000794: 1671 1350 TENTRY EQUALS BMEMORY +028D
001235,000795: 1671 1352 ROLLBIAS EQUALS BMEMORY +30D
001236,000796: # A HOLE.
001237,000797: 1671 1356 ETA EQUALS BMEMORY +034D
001238,000798: 1671 1362 D EQUALS BMEMORY +038D
001239,000799: 1671 1364 V1 EQUALS BMEMORY +040D
001240,000800: 1671 1366 NEGTHET EQUALS BMEMORY +042D
001241,000801: 1671 1370 V1OLD EQUALS BMEMORY +044D
001242,000802: 1671 1372 K2ROLL EQUALS BMEMORY +046D
001243,000803: 1671 1374 GOTOADDR EQUALS BMEMORY +048D
001244,000804: 1671 1375 XPIPSUM EQUALS BMEMORY +049D
001245,000805: 1671 1376 YPIPSUM EQUALS BMEMORY +050D
001246,000806: 1671 1377 ZPIPSUM EQUALS BMEMORY +051D
001247,000807: 1671 1400 XPIPBUF EQUALS BMEMORY +052D
001248,000808: 1671 1404 YPIPBUF EQUALS BMEMORY +056D
001249,000809: 1671 1410 ZPIPBUF EQUALS BMEMORY +060D
001250,000810: 1671 1414 PIPCTR EQUALS BMEMORY +64D
001251,000811: 1671 1415 DOLD EQUALS BMEMORY +65D
001252,000812: # A HOLE.
001253,000813: 1671 1420 TEM1B EQUALS BMEMORY +68D
001254,000814: 1671 1421 M1 EQUALS BMEMORY +69D
001255,000815: 1671 1422 GRAD EQUALS BMEMORY +70D
001256,000816: # A HOLE.
001257,000817: 1671 1431 LEQ EQUALS BMEMORY +77D
001258,000818: 1671 1433 DHOOK EQUALS BMEMORY +79D
001259,000819: 1671 1435 AHOOKDV EQUALS BMEMORY +81D
001260,000820: 1671 1437 DVL EQUALS BMEMORY +83D
001261,000821: 1671 1450 K1ROLL EQUALS BMEMORY +092D # N.B. THIS LOCATION SHARED WITH POW. FL.
001262,000822: # UNB,X,Y,Z ARE DEFINED LATER.
001263,000823:
001264,000824: # END OF RE-ENTRY STUFF
001265,000825:
001266,000826:
001267,000827:
001268,000828: # B MEMORY ASSIGNMENTS FOR PRE-LAUNCH ALIGNMENT.
001269,000829:
001270,000830: 1671 1314 LATITUDE EQUALS BMEMORY +000D
001271,000831: 1671 1316 AZIMUTH EQUALS BMEMORY +002D
001272,000832: 1671 1320 GYROCSW EQUALS BMEMORY +004D
001273,000833: 1671 1321 PRELTEMP EQUALS BMEMORY +005D
001274,000834: 1671 1322 PRELXGA EQUALS BMEMORY +006D
001275,000835: 1671 1323 PRELYGA EQUALS BMEMORY +007D
001276,000836: 1671 1324 PRELZGA EQUALS BMEMORY +008D
001277,000837: 1671 1325 WTRWD EQUALS BMEMORY +009D
001278,000838: 1671 1332 INFLANG EQUALS BMEMORY +014D
001279,000839: 1671 1340 GYROANG EQUALS BMEMORY +020D
001280,000840: 1671 1346 TAZ EQUALS BMEMORY +26D
001281,000841: 1671 1350 TEL EQUALS BMEMORY +28D
001282,000842: 1671 1352 VAZ EQUALS BMEMORY +30D
001283,000843: 1671 1354 CHKNVTEM EQUALS BMEMORY +32D
001284,000844: 1671 1356 FILTER EQUALS BMEMORY +34D
001285,000845: 1671 1360 DELE EQUALS BMEMORY +36D
001286,000846: 1671 1360 FILDELZ EQUALS DELE
001287,000847: 1671 1362 DELS EQUALS BMEMORY +38D
001288,000848: 1671 1362 FILDELY EQUALS DELS
001289,000849: 1671 1364 INT EQUALS BMEMORY +40D
001290,000850: 1671 1370 PREVTIME EQUALS BMEMORY +44D
001291,000851: 1671 1446 THETAY EQUALS BMEMORY +90D
001292,000852: 1671 1450 THETAZ EQUALS BMEMORY +92D
001293,000853: 1671 1452 THETAX EQUALS BMEMORY +94D
001294,000854: 1671 1454 THETASTH EQUALS BMEMORY +96D
001295,000855: 1671 1456 THETAE EQUALS BMEMORY +98D
001296,000856: 1671 1374 VECTEM EQUALS BMEMORY +48D
001297,000857: 1671 1466 TIME2GR EQUALS BMEMORY +106D
001298,000858: 1671 1467 TIME1GR EQUALS BMEMORY +107D
001299,000859: 1671 1402 TARGET1 EQUALS BMEMORY +054D
001300,000860:
001301,000861:
001302,000862:
001303,000863: # THE FOLLOWING LOCATIONS ARE USED BY IN-FLIGHT ALIGNMENT:
001304,000864:
001305,000865: 1671 1400 STARS EQUALS BMEMORY +052D
001306,000866: 1671 1402 STARAD EQUALS TARGET1
001307,000867: 1671 1416 STAR EQUALS BMEMORY +066D
001308,000868: 1671 1424 XSM EQUALS BMEMORY +072D
001309,000869: 1671 1432 YSM EQUALS BMEMORY +078D
001310,000870: 1671 1440 ZSM EQUALS BMEMORY +084D
001311,000871: 1671 1476 XNB EQUALS BMEMORY +114D
001312,000872: 1671 1476 XDC EQUALS BMEMORY +114D
001313,000873: 1671 1476 XDSMPR EQUALS BMEMORY +114D
001314,000874: 1671 1504 YNB EQUALS BMEMORY +120D
001315,000875: 1671 1504 YDC EQUALS BMEMORY +120D
001316,000876: 1671 1504 YDSMPR EQUALS BMEMORY +120D
001317,000877: 1671 1512 ZNB EQUALS BMEMORY +126D
001318,000878: 1671 1512 ZDC EQUALS BMEMORY +126D
001319,000879: 1671 1512 ZDSMPR EQUALS BMEMORY +126D
001320,000880: 1671 1520 OGC EQUALS BMEMORY +132D
001321,000881: 1671 1520 SAC EQUALS BMEMORY +132D
001322,000882: 1671 1522 IGC EQUALS BMEMORY +134D
001323,000883: 1671 1522 PAC EQUALS BMEMORY +134D
001324,000884: 1671 1524 MGC EQUALS BMEMORY +136D
001325,000885:
001326,000886:
001327,000887:
001328,000888: # RE-ENTRY ATTITUDE CONTROL UNIT VECTORS ALONG NAV BASE.
001329,000889: 1671 1476 UXNB EQUALS XNB # USED IN RE-ENTRY CONTROL.
001330,000890: 1671 1504 UYNB EQUALS YNB # USED IN RE-ENTRY CONTROL.
001331,000891: 1671 1512 UZNB EQUALS ZNB # USED IN RE-ENTRY CONTROL.
001332,000892:
001333,000893:
001334,000894:
001335,000895: # THE FOLLOWING IS USED FOR ATTITUDE CONTROL
001336,000896:
001337,000897: 1671 1314 ROLL EQUALS BMEMORY +000D
001338,000898: 1671 1315 PITCH EQUALS BMEMORY +001D
001339,000899: 1671 1316 YAW EQUALS BMEMORY +002D
001340,000900:
001341,000901:
001342,000902: # CMEMORY USED FOR STORAGE OF 202 BOOST ATTITUDE MONITOR PARAMETERS
001343,000903:
001344,000904: 1671 1561 TENDROLL EQUALS CMEMORY +000D
001345,000905: 1671 1562 TROLL EQUALS CMEMORY +001D
001346,000906: 1671 1564 TPITCH EQUALS CMEMORY +003D
001347,000907: 1671 1566 TENDPTCH EQUALS CMEMORY +005D
001348,000908: 1671 1570 TMONITOR EQUALS CMEMORY +007D
001349,000909: 1671 1572 TTUMON EQUALS CMEMORY +009D
001350,000910: 1671 1573 POLYENTR EQUALS CMEMORY +010D
001351,000911: 1671 1574 POLYORDR EQUALS CMEMORY +011D
001352,000912: 1671 1575 POLYCOEF EQUALS CMEMORY +012D
001353,000913: 1671 1613 POLYEND EQUALS CMEMORY +026D
001354,000914: 1671 1614 ROLLDTH EQUALS CMEMORY +027D
001355,000915:
001356,000916:
001357,000917:
001358,000918: # THE FOLLOWING IS THE MIDCOURSE 6X6 ERROR TRANSITION MATRIX:
001359,000919:
001360,000920: 1671 1561 W EQUALS CMEMORY +000D
001361,000921:
001362,000922:
001363,000923:
001364,000924: # C MEMORY ASSIGNMENTS FOR RE-RNTRY:
001365,000925:
001366,000926: 1671 1561 UNI EQUALS CMEMORY +000D
001367,000927: 1671 1567 UNITV EQUALS CMEMORY +006D
001368,000928: 1671 1575 INITL/D EQUALS CMEMORY +12D
001369,000929: 1671 1577 VCORR EQUALS CMEMORY +014D
001370,000930: 1671 1601 A0 EQUALS CMEMORY +016D
001371,000931: 1671 1603 VBARS EQUALS CMEMORY +018D
001372,000932: 1671 1605 COSG/2 EQUALS CMEMORY +020D
001373,000933: 1671 1607 GAMMAL EQUALS CMEMORY +022D
001374,000934: 1671 1611 VS EQUALS CMEMORY +024D
001375,000935: 1671 1613 D0 EQUALS CMEMORY +026D
001376,000936: 1671 1615 VL EQUALS CMEMORY +28D
001377,000937: 1671 1617 V EQUALS CMEMORY +030D
001378,000938: 1671 1621 FACTOR EQUALS CMEMORY +032D
001379,000939: 1671 1623 VREF EQUALS CMEMORY +034D
001380,000940: 1671 1625 RDOTREF EQUALS CMEMORY +036D
001381,000941: 1671 1627 ALP EQUALS CMEMORY +038D
001382,000942: 1671 1631 FACT1 EQUALS CMEMORY +040D
001383,000943:
001384,000944:
001385,000945:
001386,000946:
001387,000947:
001388,000948:
001389,000949: # SAVE RRECT AND VRECT IN CMEMORY TO RESTART ORBITAL INTEGRATION.
001390,000950:
001391,000951: 1671 1655 RRECCMEM EQUALS CMEMORY +60D
001392,000952: 1671 1663 VRECCMEM EQUALS CMEMORY +66D
001393,000953:
001394,000954:
001395,000955:
001396,000956: # THE FOLLOWING STORAGE IS RESERVED EXCLUSIVELY FOR SELF-CHECK
001397,000957:
001398,000958: 1671 SELFERAS ERASE 1760 - 1777
001399,000959: 1671 ERESTORE = 1760
001400,000960: 1671 0115 QADRS EQUALS MPAC # RESERVED
001401,000961: 1671 2OPTIONS = 1761
001402,000962: 1671 SMODE = 1762
001403,000963: 1671 FAILREG = 1763
001404,000964: 1671 SFAIL = 1764
001405,000965: 1671 ERCOUNT = 1765
001406,000966: 1671 SCOUNT = 1766
001407,000967: 1671 SKEEP1 = 1771
001408,000968: 1671 SKEEP2 = 1772
001409,000969: 1671 SKEEP3 = 1773
001410,000970: 1671 SKEEP4 = 1774
001411,000971: 1671 SKEEP5 = 1775
001412,000972: 1671 SKEEP6 = 1776
001413,000973: 1671 SKEEP7 EQUALS 1777
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc