Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

003832,000002:                                                                                                  ## Copyright:   Public domain.
003833,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
003834,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
003835,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
003836,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
003837,000007:                                                                                                  ## Assembler:   yaYUL
003838,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
003839,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
003840,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
003841,000011:                                                                                                  ##              2016-10-05 RSB  Finished transcription.
003842,000012:                                                                                                  ##              2016-10-30 MAS  A bunch of small corrections, and some missing lines.
003843,000013:                                                                                                  ##              2016-11-01 RSB  More typos.
003844,000014:                                                                                                  ##              2016-12-03 RSB  Fixed various typos using octopus/ProoferComments, but
003845,000015:                                                                                                  ##                              there are still a couple of pages that are problematic
003846,000016:                                                                                                  ##                              with respect to octopus, so the process isn't completed.
003847,000017:                                                                                                  ##              2016-12-05 RSB  octopus/ProoferComments based comment-proofing completed;
003848,000018:                                                                                                  ##                              some corrections made.
003849,000019:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
003850,000020:                                                                                                  ##              2017-06-03 MAS  Replaced some instances of P00H with POOH.
003851,000021: 

Page 88

003853,000023: 01,2000                                           BANK     01                                    
003854,000024: 01,2000  E3,1400                                  EBANK=   LST1                                  
003855,000025: 
003856,000026: 01,2000           00004        SLAP1              INHINT                                         #  FRESH START.  COMES HERE FROM PINBALL.
003857,000027: 01,2001           02357                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
003858,000028: 
003859,000029: 01,2002           12007        STARTSW            TCF      GOON                                  #  PATCH FOR SIMULATIONS
003860,000030: 
003861,000031: 01,2003           37746        STARTSIM           CAF      BIT14                                 
003862,000032: 
003863,000033: 01,2004           05516                           TC       FINDVAC                               
003864,000034: 01,2005     0061                                  EBANK=   ITEMP1                                
003865,000035: 01,2005           03546 72060                     2CADR    BEGIN206                              
003866,000036: 
003867,000037: 01,2007           37745        GOON               CAF      BIT15                                 #  TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
003868,000038: 01,2010           54326                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
003869,000039: 
003870,000040: 01,2011           47767                           CS       ZERO                                  
003871,000041: 01,2012           55127                           TS       RSTRTWRD                              
003872,000042: 01,2013           54055                           TS       THRUST                                #  INITIALIZE THROTTLE COUNTER.
003873,000043: 01,2014           55345                           TS       DAPOFFDT                              #  OVERWRITE IN ERASABLE LOAD IF DESIRED.
003874,000044: 01,2015           55162                           TS       JETRESET                              #  PROPERTY OF RCSMONIT.
003875,000045: 
003876,000046: 01,2016           35661                           CA       EBANK5                                
003877,000047: 01,2017           54001                           TS       L                                     
003878,000048: 01,2020           22003                           LXCH     EBANK                                 
003879,000049: 01,2021  E5,1534                                  EBANK=   ABDELV                                
003880,000050: 01,2021           37767                           CA       ZERO                                  
003881,000051: 01,2022           55534                           TS       ABDELV                                #  FOR DAP INITIALIZATION
003882,000052: 01,2023           55535                           TS       ABDELV     +1                         
003883,000053: 01,2024  E3,1400                                  EBANK=   LST1                                  
003884,000054: 01,2024           22003                           LXCH     EBANK                                 
003885,000055: 
003886,000056: 01,2025           55163                           TS       THISCH32                              
003887,000057: 01,2026           54101                           TS       LMPJFAIL                              
003888,000058: 01,2027           54102                           TS       CH5MASK                               
003889,000059: 01,2030           54103                           TS       CH6MASK                               
003890,000060: 
003891,000061: 01,2031           55356                           TS       REDOCTR                               
003892,000062: 01,2032           55360                           TS       FAILREG                               
003893,000063: 01,2033           55361                           TS       FAILREG    +1                         
003894,000064: 01,2034           55362                           TS       FAILREG    +2                         
003895,000065: 
003896,000066: 01,2035           37762                           CA       TWO                                   #  SET UP VALUES FOR DVCNTR.  THESE MAY
003897,000067: 01,2036           55337                           TS       STARTDVC                              #  BE OVERWRITTEN IN ERASABLE LOAD IF
003898,000068: 01,2037           55340                           TS       STOPDVC                               #  ANYBODY WANTS TO.
003899,000069: 
003900,000070: 01,2040           37743                           CA       POSMAX                                #  TENTATIVELY LOAD WITH INFINITY.  MAY
003901,000071: 01,2041           55336                           TS       SLOSHCTR                              #  BE REPLACED VIA ERASABLE LOAD.
003902,000072: 

Page 89

003904,000074: 01,2042           47767        DOFSTART           CS       ZERO                                  #  MAKE ALL MTIMER/MPHASE PAIRS AVAILABLE.
003905,000075: 01,2043           55164                           TS       MTIMER4                               
003906,000076: 01,2044           55165                           TS       MTIMER3                               
003907,000077: 01,2045           55166                           TS       MTIMER2                               
003908,000078: 01,2046           55167                           TS       MTIMER1                               
003909,000079: 01,2047           55170                           TS       MPHASE4                               
003910,000080: 01,2050           55171                           TS       MPHASE3                               
003911,000081: 01,2051           55172                           TS       MPHASE2                               
003912,000082: 01,2052           55173                           TS       MPHASE1                               
003913,000083: 
003914,000084: 01,2053           47763                           CS       ONE                                   
003915,000085: 01,2054           55145                           TS       LMPOUTT                               
003916,000086: 
003917,000087:                                                                                                  #  INITIALIZE SWITCH REGISTERS INCLUDING DAPBOOLS:
003918,000088: 
003919,000089: 01,2055           37761                           CA       FOUR                                  #  INITIALIZE STATE THRU STATE +4 ONLY.
003920,000090: 01,2056           54001        INITSW             TS       L                                     
003921,000091: 01,2057           50001                           INDEX    L                                     
003922,000092: 01,2060           32576                           CA       SWINIT                                
003923,000093: 01,2061           50001                           INDEX    L                                     
003924,000094: 01,2062           54074                           TS       STATE                                 
003925,000095: 01,2063           10001                           CCS      L                                     
003926,000096: 01,2064           12056                           TCF      INITSW                                
003927,000097: 
003928,000098: 01,2065           55355                           TS       SMODE                                 
003929,000099: 01,2066           55353                           TS       ERESTORE                              
003930,000100: 01,2067           55133                           TS       LMPCMD                                #  RESET LMP COMMAND AREA.
003931,000101: 01,2070           55134                           TS       LMPCMD     +1                         
003932,000102: 01,2071           55135                           TS       LMPCMD     +2                         
003933,000103: 01,2072           55136                           TS       LMPCMD     +3                         
003934,000104: 01,2073           55137                           TS       LMPCMD     +4                         
003935,000105: 01,2074           55140                           TS       LMPCMD     +5                         
003936,000106: 01,2075           55141                           TS       LMPCMD     +6                         
003937,000107: 01,2076           55142                           TS       LMPCMD     +7                         
003938,000108: 01,2077           55143                           TS       LMPIN                                 
003939,000109: 01,2100           55144                           TS       LMPOUT                                
003940,000110: 
003941,000111: 01,2101           00006                           EXTEND                                         #  TURN THE RCS JETS OFF.
003942,000112: 01,2102           01005                           WRITE    5                                     
003943,000113: 01,2103           00006                           EXTEND                                         
003944,000114: 01,2104           01006                           WRITE    6                                     
003945,000115: 
003946,000116: 01,2105           32570                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
003947,000117: 01,2106           54365                           TS       IMODES30                              
003948,000118: 
003949,000119: 01,2107           37752                           CAF      BIT10                                 #  REMOVE IMU FAIL INHIBIT IN 5 SECS.
003950,000120: 01,2110           05663                           TC       WAITLIST                              
003951,000121: 01,2111  E3,1400                                  EBANK=   LST1                                  
003952,000122: 01,2111           02273 26063                     2CADR    IFAILOK                               
003953,000123: 

Page 90

003955,000125: 01,2113           00006                           EXTEND                                         #  SETTING T5RUPT FOR SETIDLER PROGRAM
003956,000126: 01,2114           32606                           DCA      SETADR                                #  THE SETIDLER PROGRAM ASSURES 1 SECOND
003957,000127: 01,2115           53001                           DXCH     T5ADR                                 #  DELAY BEFORE THE DAPIDLER BEGINS.
003958,000128: 
003959,000129: 01,2116           34276                           CAF      LNORMT4                               
003960,000130: 01,2117           54346                           TS       T4LOC                                 
003961,000131: 
003962,000132: 01,2120           32554                           CA       LDNTMGO                               
003963,000133: 01,2121           54001                           TS       L                                     
003964,000134: 01,2122           22003                           LXCH     EBANK                                 
003965,000135: 
003966,000136: 01,2123  E7,1401                                  EBANK=   DNTMGOTO                              
003967,000137: 
003968,000138: 01,2123           32553                           CA       LDNPHAS1                              
003969,000139: 01,2124           55401                           TS       DNTMGOTO                              
003970,000140: 
003971,000141: 01,2125           32556                           CA       SETCDULM                              
003972,000142: 01,2126           55405                           TS       CDULMIT                               #  OVERWRITE IN ERASABLE LOAD IF DESIRED.
003973,000143: 
003974,000144: 01,2127           32557                           CA       IDNCDUN                               
003975,000145: 01,2130           55404                           TS       DNCDUN                                #  OVERWRITE IN ERASABLE LOAD IF DESIRED.
003976,000146: 
003977,000147: 01,2131           22003                           LXCH     EBANK                                 
003978,000148: 
003979,000149: 01,2132  E3,1400                                  EBANK=   LST1                                  
003980,000150: 
003981,000151: 01,2132           02151                           TC       MR.CLEAN                              #  DEACTIVATE ALL RESTART GROUPS.
003982,000152: 
003983,000153: 01,2133           00003                           RELINT                                         #  LET AN INTERRUPT IN.
003984,000154: 01,2134           12135                           NOOP                                           
003985,000155: 01,2135           00004                           INHINT                                         
003986,000156: 
003987,000157: 01,2136           05270                           TC       IBNKCALL                              
003988,000158: 01,2137           40315                           CADR     1STENGOF                              
003989,000159: 
003990,000160: 01,2140           37767        POOH3              CA       ZERO                                  
003991,000161: 01,2141           54302                           TS       MODREG                                
003992,000162: 01,2142           54764                           TS       PHASENUM                              
003993,000163: 
003994,000164: 01,2143           00003        ENDRSTRT           RELINT                                         
003995,000165: 01,2144           05206                           TC       BANKCALL                              #  DISPLAY MAJOR MODE.
003996,000166: 01,2145           12001                           CADR     DSPMM                                 
003997,000167: 
003998,000168: 01,2146           06051                           TC       FLAG1UP                               #  TURN ON RESTARTABILITY FLAG.
003999,000169: 01,2147           04000                           OCT      4000                                  
004000,000170: 
004001,000171: 01,2150           15600                           TCF      DUMMYJOB   +2                         #  DONT ZERO NEWJOB
004002,000172: 

Page 91

004004,000174: 01,2151           37764        MR.CLEAN           CAF      ELEVEN                                #  INITIALIZE PHASE TABLE.  DO IT THIS WAY
004005,000175: 01,2152           54120                 +1        TS       BUF                                   #  TO MINIMIZE THE TIME OF PHASE TABLE
004006,000176: 
004007,000177: 01,2153           47767                           CS       ZERO                                  #  DISAGREEMENT.
004008,000178: 01,2154           22007                           ZL                                             
004009,000179: 01,2155           50120                           INDEX    BUF                                   
004010,000180: 01,2156           53077                           DXCH     -PHASE1    -1                         
004011,000181: 
004012,000182: 01,2157           10120                           CCS      BUF                                   
004013,000183: 01,2160           10000                           CCS      A                                     
004014,000184: 01,2161           12152                           TCF      MR.CLEAN   +1                         
004015,000185: 
004016,000186: 01,2162           00002                           TC       Q                                     
004017,000187: 

Page 92

004019,000189:                                                                                                  #  COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
004020,000190: 
004021,000191: 01,2163           25356        GOPROG             INCR     REDOCTR                               #  ANOTHER RESTART.
004022,000192: 
004023,000193: 01,2164           22002                           LXCH     Q                                     
004024,000194: 01,2165           53775                           DXCH     RSBB&Q                                #  SAVE BBANK & Q FOR RESTART ANALYSIS.
004025,000195: 
004026,000196: 01,2166           02357                           TC       STARTSUB                              
004027,000197: 
004028,000198: 01,2167           37745                           CA       BIT15                                 #  TEST THE OSC FAIL BIT TO SEE IF WE HAVE
004029,000199: 01,2170           00006                           EXTEND                                         #  HAD A POWER TRANSIENT.  IF SO, ATTEMPT
004030,000200: 01,2171           03033                           WAND     33                                    #  A RESTART.  IF NOT, CHECK THE PRESENT
004031,000201: 01,2172           00006                           EXTEND                                         #  STATE OF AGC WARNING.
004032,000202: 01,2173           12201                           BZF      LIGHTSET                              
004033,000203: 
004034,000204: 01,2174           37746                           CA       BIT14                                 #  IF AGC WARNING ON (BIT = 0), DO A FRESH
004035,000205: 01,2175           00006                           EXTEND                                         #  START ON THE ASSUMPTION THAT WE'RE IN A
004036,000206: 01,2176           02033                           RAND     33                                    #  RESTART LOOP.
004037,000207: 01,2177           00006                           EXTEND                                         
004038,000208: 01,2200           12042                           BZF      DOFSTART                              
004039,000209: 
004040,000210: 01,2201           00006        LIGHTSET           EXTEND                                         #  DONT TRY TO RESTART IF ERROR
004041,000211: 01,2202           00015                           READ     15                                    #  AND MARK REJECT BUTTONS DEPRESSED.
004042,000212: 01,2203           62565                           AD       -ELR                                  
004043,000213: 01,2204           00006                           EXTEND                                         
004044,000214: 01,2205           12207                           BZF      +2                                    
004045,000215: 01,2206           12215                           TCF      +7                                    
004046,000216: 
004047,000217: 01,2207           37757                           CAF      BIT5                                  
004048,000218: 01,2210           00006                           EXTEND                                         
004049,000219: 01,2211           02016                           RAND     16                                    
004050,000220: 01,2212           62566                           AD       -MKREJ                                
004051,000221: 01,2213           00006                           EXTEND                                         
004052,000222: 01,2214           12042                           BZF      DOFSTART                              
004053,000223: 
004054,000224: 01,2215           31353                           CA       ERESTORE                              #  IF SELF-CHECK ERASABLE-MEMORY TEST WAS
004055,000225: 01,2216           00006                           EXTEND                                         #  INTERRUPTED BY A RESTART, DOUBT ERASABLE
004056,000226: 01,2217           12221                           BZF      +2                                    #  AND DO A FRESH START.
004057,000227: 01,2220           12042                           TCF      DOFSTART                              
004058,000228: 
004059,000229: 01,2221           32574                           CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK & NO ATT
004060,000230: 01,2222           70326                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON RESTART.
004061,000231: 01,2223           67745                           AD       BIT15                                 
004062,000232: 01,2224           56326                           XCH      DSPTAB     +11D                       #  IF NO ATT LAMP WAS ON, LEAVE ISS IN
004063,000233: 01,2225           77760                           MASK     BIT4                                  #  COARSE ALIGN.
004064,000234: 01,2226           00006                           EXTEND                                         
004065,000235: 01,2227           05012                           WOR      12                                    
004066,000236: 
004067,000237: 01,2230           32571                           CAF      IFAILINH                              #  LEAVE IMU FAILURE INHIBITS INTACT ON
004068,000238: 01,2231           70365                           MASK     IMODES30                              #  RESTART, RESETTING ALL FAILURE CODES.
004069,000239: 

Page 93

004071,000241: 01,2232           62572                           AD       IM30INIR                              #  THE RECORD OF THE ISS OPERATE BIT IS
004072,000242: 01,2233           54365                           TS       IMODES30                              #  ALSO LEFT ALONE (206 ONLY).
004073,000243: 
004074,000244: 01,2234           00006                           EXTEND                                         #  SETTING T5RUPT FOR DAPIDLER PROGRAM
004075,000245: 01,2235           32604                           DCA      IDLEADR                               
004076,000246: 01,2236           53001                           DXCH     T5ADR                                 
004077,000247: 
004078,000248: 01,2237           35660                           CAF      PRIO37                                #  DISPLAY FAILREG AS INDICATION OF RESTART
004079,000249: 01,2240           05505                           TC       NOVAC                                 #  OR TO DISPLAY ABORT CODE AS ABOVE.
004080,000250: 01,2241  E3,1400                                  EBANK=   LST1                                  
004081,000251: 01,2241           02106 16063                     2CADR    DOALARM                               
004082,000252: 
004083,000253: 01,2243           40346                           CS       T4LOC                                 #  SEE IF LMP COMMAND WAS SITTING IN CH 10
004084,000254: 01,2244           62561                           AD       LLMPRS2                               #  WHEN RESTART OCCURRED.  IF SO, SET BIT 15
004085,000255: 01,2245           00006                           EXTEND                                         #  BACK TO ZERO SO THE COMMAND WILL BE
004086,000256: 01,2246           12255                           BZF      LMPRUPT                               #  RESENT.
004087,000257: 
004088,000258: 01,2247           11145                           CCS      LMPOUTT                               #  IF NOT, SEE IF UPDATE OF REFERENCE
004089,000259: 01,2250           67763                           AD       ONE                                   #  POINTER (LMPOUT) WAS IN PROCESS.  IF SO,
004090,000260: 01,2251           55144                           TS       LMPOUT                                #  LMPOUTT IS NON-NEGATIVE.
004091,000261: 01,2252           47763                           CS       ONE                                   #  SHOW LMPOUT UPDATED.
004092,000262: 01,2253           55145                           TS       LMPOUTT                               
004093,000263: 01,2254           12262                           TCF      T4LOCRST                              
004094,000264: 
004095,000265: 01,2255           51144        LMPRUPT            INDEX    LMPOUT                                
004096,000266: 01,2256           41133                           CS       LMPCMD                                
004097,000267: 01,2257           77745                           MASK     BIT15                                 
004098,000268: 01,2260           51144                           INDEX    LMPOUT                                
004099,000269: 01,2261           27133                           ADS      LMPCMD                                
004100,000270: 
004101,000271: 01,2262           34276        T4LOCRST           CAF      LNORMT4                               
004102,000272: 01,2263           54346                           TS       T4LOC                                 
004103,000273: 
004104,000274: 01,2264           37760                           CA       BIT4                                  #  TURN THROTTLE COUNTER ON.  (IF EMPTY,
004105,000275: 01,2265           00006                           EXTEND                                         #  NO HARM DONE.  IF NON-EMPTY, ASSUME
004106,000276: 01,2266           05014                           WOR      14                                    #  CONTENTS ARE VALID.)
004107,000277: 
004108,000278: 01,2267           37750                           CAF      BIT12                                 #  TEST THE RESTARTABILITY FLAG.
004109,000279: 01,2270           70075                           MASK     FLAGWRD1                              
004110,000280: 01,2271           10000                           CCS      A                                     
004111,000281: 01,2272           12275                           TCF      +3                                    #  RESTARTABLE.
004112,000282: 01,2273           05225                           TC       POSTJUMP                              #  NOT RESTARTABLE.  DO A FAKESTART.
004113,000283: 01,2274           16000                           CADR     FAKESTRT                              
004114,000284: 
004115,000285: 01,2275           00003        GOPROG2            RELINT                                         
004116,000286: 01,2276           12277                           NOOP                                           
004117,000287: 01,2277           00004                           INHINT                                         #  LET AN INTERRUPT IN
004118,000288: 
004119,000289: 01,2300           37766                           CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENT.
004120,000290: 01,2301           54151        PCLOOP             TS       MPAC       +5                         

Page 94

004122,000292: 01,2302           60000                           DOUBLE                                         
004123,000293: 01,2303           00006                           EXTEND                                         
004124,000294: 01,2304           50000                           INDEX    A                                     
004125,000295: 01,2305           31100                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
004126,000296: 01,2306           00006                           EXTEND                                         
004127,000297: 01,2307           06001                           RXOR     L                                     #  RESULT MUST BE -0 FOR AGREEMENT.
004128,000298: 01,2310           10000                           CCS      A                                     
004129,000299: 01,2311           12347                           TCF      PTBAD                                 #  RESTART FAILURE.
004130,000300: 01,2312           12347                           TCF      PTBAD                                 
004131,000301: 01,2313           12347                           TCF      PTBAD                                 
004132,000302: 
004133,000303: 01,2314           10151                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
004134,000304: 01,2315           12301                           TCF      PCLOOP                                
004135,000305: 
004136,000306: 01,2316           54152                           TS       MPAC       +6                         #  SET TO +0.
004137,000307: 
004138,000308: 01,2317           37766                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
004139,000309: 01,2320           54151        NXTRST             TS       MPAC       +5                         
004140,000310: 01,2321           60000                           DOUBLE                                         
004141,000311: 01,2322           50000                           INDEX    A                                     
004142,000312: 01,2323           11100                           CCS      PHASE1                                
004143,000313: 01,2324           12326                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
004144,000314: 01,2325           12333                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
004145,000315: 
004146,000316: 01,2326           54144        PACTIVE            TS       MPAC                                  
004147,000317: 01,2327           24144                           INCR     MPAC                                  #  ABS OF PHASE.
004148,000318: 01,2330           24152                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
004149,000319: 01,2331           32353                           CA       RACTCADR                              #  GO TO RESTARTS AND PROCESS PHASE INFO.
004150,000320: 01,2332           05212                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
004151,000321: 
004152,000322: 01,2333           10151        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
004153,000323: 01,2334           12320                           TCF      NXTRST                                
004154,000324: 
004155,000325: 01,2335           10152                           CCS      MPAC       +6                         #  SEE IF ANY GROUPS WERE ACTIVE.
004156,000326: 01,2336           12143                           TCF      ENDRSTRT                              #  YES, THERE WERE.
004157,000327: 
004158,000328: 01,2337           04755                           TC       ALARM                                 #  RESTART WITH NO ACTIVE GROUPS.
004159,000329: 01,2340           01110                           OCT      1110                                  
004160,000330: 
004161,000331: 01,2341           40075                           CS       FLAGWRD1                              #  WAS THE RESTARTABILITY FLAG SET?
004162,000332: 01,2342           77750                           MASK     BIT12                                 
004163,000333: 01,2343           10000                           CCS      A                                     
004164,000334: 01,2344           12607                           TCF      POOH2                                 #  NO.
004165,000335: 01,2345           54302                           TS       MODREG                                #  YES.  SET MAJOR MODE TO 00.
004166,000336: 01,2346           12143                           TCF      ENDRSTRT                              
004167,000337: 
004168,000338: 01,2347           04755        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
004169,000339: 01,2350           01107                           OCT      1107                                  
004170,000340: 
004171,000341: 01,2351           00004                           INHINT                                         

Page 95

004173,000343: 01,2352           12042                           TCF      DOFSTART                              
004174,000344: 
004175,000345: 01,2353           14377        RACTCADR           CADR     RESTARTS                              
004176,000346: 
004177,000347: 01,2354           00004        ENEMA              INHINT                                         #  HAVING PRESET PHASE REGISTERS, DO A
004178,000348: 01,2355           02374                           TC       STARTSB2                              #  PSEUDO-RESTART.  (THE RESTARTABILITY
004179,000349: 01,2356           12275                           TCF      GOPROG2                               #  FLAG MUST BE SET WHEN ENEMA IS CALLED.)
004180,000350: 

Page 96

004182,000352:                                                                                                  #  INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
004183,000353: 
004184,000354: 01,2357           37767        STARTSUB           CA       ZERO                                  
004185,000355: 01,2360           00006                           EXTEND                                         #  TURN THE RCS JETS OFF.
004186,000356: 01,2361           01005                           WRITE    5                                     
004187,000357: 01,2362           00006                           EXTEND                                         
004188,000358: 01,2363           01006                           WRITE    6                                     
004189,000359: 
004190,000360: 01,2364           00006                           EXTEND                                         
004191,000361: 01,2365           01012                           WRITE    12                                    #  TURN OFF TRIM GIMBAL.
004192,000362: 
004193,000363: 01,2366           37743                           CA       POSMAX                                
004194,000364: 01,2367           54026                           TS       TIME3                                 #  37777 TO TIME3.
004195,000365: 01,2370           65336                           AD       MINUS2                                
004196,000366: 01,2371           54027                           TS       TIME4                                 #  37775 TO TIME4.
004197,000367: 01,2372           67771                           AD       NEGONE                                
004198,000368: 01,2373           54030                           TS       TIME5                                 #  37774 TO TIME5.
004199,000369: 
004200,000370: 01,2374           37767        STARTSB2           CAF      ZERO                                  #  ENTRY FROM P00 AND FORGETIT.
004201,000371: 01,2375           00006                           EXTEND                                         
004202,000372: 01,2376           01007                           WRITE    7                                     #  NOTHING IN SUNBURST IS IN BANKS 40 - 43.
004203,000373: 01,2377           00006                           EXTEND                                         
004204,000374: 01,2400           01011                           WRITE    11                                    
004205,000375: 01,2401           00006                           EXTEND                                         
004206,000376: 01,2402           01014                           WRITE    14                                    
004207,000377: 
004208,000378: 01,2403           32567                           CA       TRIMGIMB                              #  TURN OFF ALL BITS BUT TRIM GIMBAL.
004209,000379: 01,2404           00006                           EXTEND                                         
004210,000380: 01,2405           03012                           WAND     12                                    
004211,000381: 
004212,000382: 01,2406           35655                           CAF      PRIO34                                #  ENABLE INTERRUPTS.
004213,000383: 01,2407           00006                           EXTEND                                         
004214,000384: 01,2410           01013                           WRITE    13                                    
004215,000385: 
004216,000386: 01,2411  E3,1400                                  EBANK=   LST1                                  
004217,000387: 
004218,000388: 01,2411           32564                           CAF      STARTEB                               
004219,000389: 01,2412           54003                           TS       EBANK                                 #  SET FOR E3
004220,000390: 
004221,000391: 01,2413           37744                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
004222,000392: 01,2414           55407                           TS       LST1       +7                         
004223,000393: 01,2415           55406                           TS       LST1       +6                         
004224,000394: 01,2416           55405                           TS       LST1       +5                         
004225,000395: 01,2417           55404                           TS       LST1       +4                         
004226,000396: 01,2420           55403                           TS       LST1       +3                         
004227,000397: 01,2421           55402                           TS       LST1       +2                         
004228,000398: 01,2422           55401                           TS       LST1       +1                         
004229,000399: 01,2423           55400                           TS       LST1                                  
004230,000400: 
004231,000401: 01,2424           45714                           CS       ENDTASK                               

Page 97

004233,000403: 01,2425           55410                           TS       LST2                                  
004234,000404: 01,2426           55412                           TS       LST2       +2                         
004235,000405: 01,2427           55414                           TS       LST2       +4                         
004236,000406: 01,2430           55416                           TS       LST2       +6                         
004237,000407: 01,2431           55420                           TS       LST2       +8D                        
004238,000408: 01,2432           55422                           TS       LST2       +10D                       
004239,000409: 01,2433           55424                           TS       LST2       +12D                       
004240,000410: 01,2434           55426                           TS       LST2       +14D                       
004241,000411: 01,2435           55430                           TS       LST2       +16D                       
004242,000412: 01,2436           45715                           CS       ENDTASK    +1                         
004243,000413: 01,2437           55411                           TS       LST2       +1                         
004244,000414: 01,2440           55413                           TS       LST2       +3                         
004245,000415: 01,2441           55415                           TS       LST2       +5                         
004246,000416: 01,2442           55417                           TS       LST2       +7                         
004247,000417: 01,2443           55421                           TS       LST2       +9D                        
004248,000418: 01,2444           55423                           TS       LST2       +11D                       
004249,000419: 01,2445           55425                           TS       LST2       +13D                       
004250,000420: 01,2446           55427                           TS       LST2       +15D                       
004251,000421: 01,2447           55431                           TS       LST2       +17D                       
004252,000422: 
004253,000423: 01,2450           47767                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
004254,000424: 01,2451           54157                           TS       PRIORITY                              #  AVAILABLE.
004255,000425: 01,2452           54173                           TS       PRIORITY   +12D                       
004256,000426: 01,2453           54207                           TS       PRIORITY   +24D                       
004257,000427: 01,2454           54223                           TS       PRIORITY   +36D                       
004258,000428: 01,2455           54237                           TS       PRIORITY   +48D                       
004259,000429: 01,2456           54253                           TS       PRIORITY   +60D                       
004260,000430: 01,2457           54267                           TS       PRIORITY   +72D                       
004261,000431: 
004262,000432: 01,2460           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
004263,000433: 
004264,000434: 01,2461           32562                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
004265,000435: 01,2462           54430                           TS       VAC1USE                               
004266,000436: 01,2463           62563                           AD       LTHVACA                               
004267,000437: 01,2464           54504                           TS       VAC2USE                               
004268,000438: 01,2465           62563                           AD       LTHVACA                               
004269,000439: 01,2466           54560                           TS       VAC3USE                               
004270,000440: 01,2467           62563                           AD       LTHVACA                               
004271,000441: 01,2470           54634                           TS       VAC4USE                               
004272,000442: 01,2471           62563                           AD       LTHVACA                               
004273,000443: 01,2472           54710                           TS       VAC5USE                               
004274,000444: 
004275,000445: 01,2473           34570                           CAF      TEN                                   #  TURN OFF ALL DISPLAY SYSTEM RELAYS.
004276,000446: 01,2474           54350                           TS       DIDFLG                                #  DISPLAY INERTIAL DATA FLAG.
004277,000447: 01,2475           54144        DSPOFF             TS       MPAC                                  
004278,000448: 01,2476           47750                           CS       BIT12                                 
004279,000449: 01,2477           50144                           INDEX    MPAC                                  
004280,000450: 01,2500           54313                           TS       DSPTAB                                
004281,000451: 01,2501           10144                           CCS      MPAC                                  
004282,000452: 01,2502           12475                           TCF      DSPOFF                                

Page 98

004284,000454: 01,2503           54045                           TS       INLINK                                
004285,000455: 01,2504           54345                           TS       DSPCNT                                
004286,000456: 01,2505           54327                           TS       CADRSTOR                              
004287,000457: 01,2506           54304                           TS       REQRET                                
004288,000458: 01,2507           54306                           TS       CLPASS                                
004289,000459: 01,2510           54303                           TS       DSPLOCK                               
004290,000460: 01,2511           54311                           TS       MONSAVE                               #  KILL MONITOR
004291,000461: 01,2512           54312                           TS       MONSAVE1                              
004292,000462: 01,2513           54330                           TS       GRABLOCK                              
004293,000463: 01,2514           54272                           TS       VERBREG                               
004294,000464: 01,2515           54273                           TS       NOUNREG                               
004295,000465: 01,2516           54333                           TS       DSPLIST                               
004296,000466: 01,2517           54334                           TS       DSPLIST    +1                         
004297,000467: 01,2520           54335                           TS       DSPLIST    +2                         
004298,000468: 
004299,000469: 01,2521           54373                           TS       MARKSTAT                              
004300,000470: 01,2522           54336                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
004301,000471: 01,2523           54367                           TS       IMUCADR                               
004302,000472: 01,2524           54370                           TS       OPTCADR                               
004303,000473: 01,2525           54371                           TS       RADCADR                               
004304,000474: 01,2526           54372                           TS       ATTCADR                               
004305,000475: 01,2527           54356                           TS       LGYRO                                 
004306,000476: 01,2530           54347                           TS       DSRUPTSW                              
004307,000477: 01,2531           37764                           CAF      NOUTCON                               
004308,000478: 01,2532           54307                           TS       NOUT                                  
004309,000479: 
004310,000480: 01,2533           47763                           CS       ONE                                   #  NO RADAR DESIGNATION.
004311,000481: 01,2534           54413                           TS       SAMPLIM                               #  NO RADAR RUPTS EXPECTED.
004312,000482: 
004313,000483: 01,2535           32573                           CAF      IM33INIT                              #  NO PIP OR TM FAILS.
004314,000484: 01,2536           54366                           TS       IMODES33                              
004315,000485: 
004316,000486: 01,2537           37756                           CAF      BIT6                                  #  SET LR POS.
004317,000487: 01,2540           00006                           EXTEND                                         
004318,000488: 01,2541           02033                           RAND     33                                    
004319,000489: 01,2542           62575                           AD       RMODINIT                              
004320,000490: 01,2543           54412                           TS       RADMODES                              
004321,000491: 
004322,000492: 01,2544           32560                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
004323,000493: 01,2545           55354                           TS       SELFRET                               
004324,000494: 
004325,000495: 01,2546           44565                           CS       VD1                                   
004326,000496: 01,2547           54270                           TS       DSPCOUNT                              
004327,000497: 
004328,000498: 01,2550           32555                           CAF      NOMTMLST                              #  SET UP NOMINAL DOWNLINK LIST.
004329,000499: 01,2551           54411                           TS       DNLSTADR                              
004330,000500: 
004331,000501: 01,2552           00002                           TC       Q                                     
004332,000502: 
004333,000503: 01,2553           02006        LDNPHAS1           GENADR   DNPHASE1                              

Page 99

004335,000505: 01,2554           03401        LDNTMGO            ECADR    DNTMGOTO                              
004336,000506: 01,2555           02236        NOMTMLST           GENADR   NOMDNLST                              
004337,000507: 01,2556           01616        SETCDULM           DEC      0.055555555                            #  10 DEGREES, SCALED IN HALF-REVS.
004338,000508: 01,2557           00306        IDNCDUN            DEC      198        B-14                       #  199 CDU SAMPLES + ONE ID = 4 SECS.
004339,000509: 01,2560           02115        LESCHK             GENADR   SELFCHK                               
004340,000510: 01,2561           02013        LLMPRS2            GENADR   LMPRESET                              
004341,000511: 01,2562           00430        VAC1ADRC           ADRES    VAC1USE                               
004342,000512: 01,2563           00054        LTHVACA            DEC      44         B-14                       
004343,000513: 01,2564           01400        STARTEB            ECADR    LST1                                  
004344,000514: 01,2565     7766               NUMGRPS            EQUALS   FIVE                                  #  SIX GROUPS CURRENTLY.
004345,000515: 01,2565           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
004346,000516: 01,2566           77757        -MKREJ             OCT      -20                                   #  - MARK REJECT.
004347,000517: 01,2567           07400        TRIMGIMB           OCT      07400                                 #  TRIM GIMBAL DRIVE BITS IN CHANNEL 12.
004348,000518: 01,2570           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
004349,000519: 01,2571           00435        IFAILINH           OCT      435                                   #  ISS OPERATE, & FAILURE INHIBIT BITS.
004350,000520: 01,2572           37000        IM30INIR           OCT      37000                                 #  LEAVE FAIL INHIBITS & OPERATE ALONE.
004351,000521: 01,2573           16000        IM33INIT           OCT      16000                                 #  NO PIP OR TM FAIL SIGNALS.
004352,000522: 01,2574           00450        9,6,4              OCT      450                                   
004353,000523: 01,2575           00102        RMODINIT           OCT      00102                                 
004354,000524: 
004355,000525: 01,2576           00000        SWINIT             OCT      0                                     
004356,000526: 01,2577           00000                           OCT      0                                     
004357,000527: 01,2600           00005                           OCT      00005                                 
004358,000528: 01,2601           40512        DAPINIT            OCT      40512                                 #  DB SET IN SETIDLE
004359,000529: 01,2602           00000                           OCT      0                                     
004360,000530: 
004361,000531: 01,2603  E6,1542                                  EBANK=   DT                                    
004362,000532: 01,2603           02037 34066  IDLEADR            2CADR    DAPIDLER                              
004363,000533: 
004364,000534: 01,2605  E6,1542                                  EBANK=   DT                                    
004365,000535: 01,2605           03606 34066  SETADR             2CADR    SETIDLE                               
004366,000536: 

Page 100

004368,000538:                                                                                                  #  PROGRAM TO REVERT TO IDLING MODE (P 00).
004369,000539: 
004370,000540:                                                                                                  #  CALLING SEQUENCE:  TC (OR TCF)   POOH     UNDER EXEC (NOT INTERRUPTED).
004371,000541: 
004372,000542:    4272                                           BLOCK    2                                     
004373,000543: 
004374,000544:    4272           05225        POOH               TC       POSTJUMP                              
004375,000545:    4273           02607                           CADR     POOH2                                 #  DO A PARTIAL FRESH START.
004376,000546: 
004377,000547: 
004378,000548: 01,2607                                           BANK     01                                    
004379,000549: 01,2607           00004        POOH2              INHINT                                         
004380,000550: 01,2610           02374                           TC       STARTSB2                              
004381,000551: 
004382,000552: 01,2611           05270                           TC       IBNKCALL                              
004383,000553: 01,2612           40114                           CADR     STOPRATE                              
004384,000554: 
004385,000555: 01,2613           05270                           TC       IBNKCALL                              
004386,000556: 01,2614           40054                           CADR     SETMAXDB                              
004387,000557: 
004388,000558: 01,2615           06067                           TC       FLAG1DWN                              #  FOR A MOMENT, INDICATE NON-RESTART-
004389,000559: 01,2616           04000                           OCT      4000                                  #  ABILITY, SO A RESTART HERE WILL DO POOH.
004390,000560: 
004391,000561: 01,2617           06076                           TC       FLAG2DWN                              
004392,000562: 01,2620           00020                           OCT      20                                    #  TURN OFF MISSION TIMER FLAG.
004393,000563: 
004394,000564: 01,2621           00004                           INHINT                                         
004395,000565: 01,2622           02151                           TC       MR.CLEAN                              #  DEACTIVATE ALL RESTART GROUPS.
004396,000566: 
004397,000567: 01,2623           32625                           CA       LPOOH3                                #  PICK UP RETURN FOR MSTART.
004398,000568: 01,2624           05161                           TC       MSTART     -1                         #  START MISSION TIMERS COUNTING.
004399,000569:                                                                                                  #  WE GET A RELINT AT MSTART.
004400,000570: 
004401,000571: 
004402,000572: 01,2625           02140        LPOOH3             ADRES    POOH3                                 
004403,000573: 

Page 101

004405,000575:                                                                                                  #  FAKESTRT IS ENTERED FROM GOPROG WHEN A RESTART OCCURS AND THE RESTARTABILITY FLAG IS OFF.
004406,000576: 
004407,000577: 07,2000                                           BANK     7                                     
004408,000578: 07,2000           04755        FAKESTRT           TC       ALARM                                 
004409,000579: 07,2001           00316                           OCT      0316                                  #  FAKESTRT ALARM
004410,000580: 
004411,000581: 07,2002           12014                           TCF      FORGET2                               
004412,000582: 
004413,000583: 
004414,000584:                                                                                                  #  FORGETIT IS ENTERED FROM:
004415,000585:                                                                                                  #           1)  FAKESTRT (VIA FORGET2).
004416,000586:                                                                                                  #           2)  VERB 74 UPLINK COMMAND.
004417,000587:                                                                                                  #           3)  ILLEGAL MISSION PHASE COMES DUE IN MISSION SCHEDULING ROUTINE.
004418,000588:                                                                                                  #           4)  ENGINE FAILURE, ETC.
004419,000589: 
004420,000590: 07,2003           00004        DOV74              INHINT                                         
004421,000591: 07,2004           05270                           TC       IBNKCALL                              
004422,000592: 07,2005           02374                           CADR     STARTSB2                              
004423,000593: 
004424,000594: 07,2006           12014                           TCF      FORGET2                               #  BYPASS THE PROGRAM ALARM & 315 DISPLAY.
004425,000595: 
004426,000596: 07,2007           00004        FORGETIT           INHINT                                         
004427,000597: 07,2010           05270                           TC       IBNKCALL                              
004428,000598: 07,2011           02374                           CADR     STARTSB2                              
004429,000599: 
004430,000600: 07,2012           04755                           TC       ALARM                                 
004431,000601: 07,2013           00315                           OCT      315                                   #  UNIQUE ALARM FOR FORGETIT.
004432,000602: 
004433,000603: 07,2014           06067        FORGET2            TC       FLAG1DWN                              #  ENTRY FROM FAKESTRT.
004434,000604: 07,2015           04000                           OCT      04000                                 #  KNOCK DOWN RESTART FLAG TO PERMIT POOH.
004435,000605: 
004436,000606: 07,2016           00004                           INHINT                                         
004437,000607: 07,2017           00006                           EXTEND                                         
004438,000608: 07,2020           32102                           DCA      KILLCAD                               
004439,000609: 07,2021           53075                           DXCH     DVMNEXIT                              
004440,000610: 
004441,000611: 07,2022           00006                           EXTEND                                         
004442,000612: 07,2023           32100                           DCA      CADAVER                               
004443,000613: 07,2024           53073                           DXCH     AVGEXIT                               
004444,000614: 
004445,000615: 07,2025           32076                           CAF      PINGSMON                              
004446,000616: 07,2026           55346                           TS       OLDDVSEL                              
004447,000617: 07,2027           55310                           TS       DVSELECT                              
004448,000618: 
004449,000619: 07,2030           05270                           TC       IBNKCALL                              
004450,000620: 07,2031           40263                           CADR     ENGINOFF                              
004451,000621: 
004452,000622: 07,2032           05270                           TC       IBNKCALL                              
004453,000623: 07,2033           40114                           CADR     STOPRATE                              
004454,000624: 

Page 102

004456,000626: 07,2034           05270                           TC       IBNKCALL                              
004457,000627: 07,2035           40066                           CADR     NOULLAGE                              
004458,000628: 
004459,000629: 07,2036           05270                           TC       IBNKCALL                              
004460,000630: 07,2037           40054                           CADR     SETMAXDB                              
004461,000631: 
004462,000632: 07,2040           42075                           CS       BGIMBALS                              #  TURN OFF TRIM GIMBALS
004463,000633: 07,2041           00006                           EXTEND                                         
004464,000634: 07,2042           03012                           WAND     12                                    
004465,000635: 
004466,000636: 07,2043           47767                           CS       ZERO                                  #  MAKE ALL RESTART PHASES INACTIVE EXCEPT
004467,000637: 07,2044           22007                           ZL                                             #  SERVICER AND STATE VECTOR COPY.
004468,000638: 07,2045           53102                           DXCH     -PHASE2                               
004469,000639: 07,2046           47767                           CS       ZERO                                  
004470,000640: 07,2047           22007                           ZL                                             
004471,000641: 07,2050           53104                           DXCH     -PHASE3                               
004472,000642: 07,2051           47767                           CS       ZERO                                  
004473,000643: 07,2052           22007                           ZL                                             
004474,000644: 07,2053           53106                           DXCH     -PHASE4                               
004475,000645: 07,2054           47767                           CS       ZERO                                  
004476,000646: 07,2055           22007                           ZL                                             
004477,000647: 07,2056           53112                           DXCH     -PHASE6                               
004478,000648: 
004479,000649: 07,2057           47767                           CS       ZERO                                  
004480,000650: 07,2060           55173                           TS       MPHASE1                               #  SET TIMER/PHASE PAIRS TO IDLE STATE
004481,000651: 07,2061           55172                           TS       MPHASE2                               
004482,000652: 07,2062           55171                           TS       MPHASE3                               
004483,000653: 07,2063           55170                           TS       MPHASE4                               
004484,000654: 07,2064           55164                           TS       MTIMER4                               
004485,000655: 07,2065           55165                           TS       MTIMER3                               
004486,000656: 07,2066           55166                           TS       MTIMER2                               
004487,000657: 07,2067           55167                           TS       MTIMER1                               
004488,000658: 
004489,000659: 07,2070           05225                           TC       POSTJUMP                              
004490,000660: 07,2071           02275                           CADR     GOPROG2                               
004491,000661: 
004492,000662: 
004493,000663: 07,2072           06067        AVEGKILL           TC       FLAG1DWN                              #  COMES HERE WHEN ENGINE OFF
004494,000664: 07,2073           00041                           OCT      00041                                 #  KNOCK DOWN POOH FLAG AND AVERAGEG FLAG
004495,000665: 
004496,000666: 07,2074           15567                           TCF      ENDOFJOB                              
004497,000667: 
004498,000668: 
004499,000669: 07,2075           07400        BGIMBALS           OCT      7400                                  
004500,000670: 
004501,000671: 07,2076           02237        PINGSMON           GENADR   PGNCSMON                              
004502,000672: 07,2077  E3,1400                                  EBANK=   LST1                                  
004503,000673: 07,2077           02324 60063  CADAVER            2CADR    SERVEXIT                              
004504,000674: 

Page 103

004506,000676: 07,2101  E3,1400                                  EBANK=   LST1                                  
004507,000677: 07,2101           02072 16063  KILLCAD            2CADR    AVEGKILL                              

End of include-file FRESH_START_AND_RESTART.agc.  Parent file is MAIN.agc