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