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.

003866,000002:                                                                                                  ## Copyright:   Public domain.
003867,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
003868,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst). It 
003869,000005:                                                                                                  ##              is part of the source code for the Lunar Module's
003870,000006:                                                                                                  ##              (LM) Apollo Guidance Computer (AGC) for Apollo 5.
003871,000007:                                                                                                  ## Assembler:   yaYUL
003872,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
003873,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
003874,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
003875,000011:                                                                                                  ##              2016-10-05 RSB  Finished transcription.
003876,000012:                                                                                                  ##              2016-10-30 MAS  A bunch of small corrections, and some missing lines.
003877,000013:                                                                                                  ##              2016-11-01 RSB  More typos.
003878,000014:                                                                                                  ##              2016-12-03 RSB  Fixed various typos using octopus/ProoferComments, but
003879,000015:                                                                                                  ##                              there are still a couple of pages that are problematic
003880,000016:                                                                                                  ##                              with respect to octopus, so the process isn't completed.
003881,000017:                                                                                                  ##              2016-12-05 RSB  octopus/ProoferComments based comment-proofing completed;
003882,000018:                                                                                                  ##                              some corrections made.
003883,000019:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
003884,000020: 

Page 88

003886,000022: 01,2000                                           BANK     01                                    
003887,000023: 01,2000  E3,1400                                  EBANK=   LST1                                  
003888,000024: 
003889,000025: 01,2000           00004        SLAP1              INHINT                                         #  FRESH START.  COMES HERE FROM PINBALL.
003890,000026: 01,2001           02357                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
003891,000027: 
003892,000028: 01,2002           12007        STARTSW            TCF      GOON                                  #  PATCH FOR SIMULATIONS
003893,000029: 
003894,000030: 01,2003           37746        STARTSIM           CAF      BIT14                                 
003895,000031: 
003896,000032: 01,2004           05516                           TC       FINDVAC                               
003897,000033: 01,2005     0061                                  EBANK=   ITEMP1                                
003898,000034: 01,2005           03546 72060                     2CADR    BEGIN206                              
003899,000035: 
003900,000036: 01,2007           37745        GOON               CAF      BIT15                                 #  TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
003901,000037: 01,2010           54326                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
003902,000038: 
003903,000039: 01,2011           47767                           CS       ZERO                                  
003904,000040: 01,2012           55127                           TS       RSTRTWRD                              
003905,000041: 01,2013           54055                           TS       THRUST                                #  INITIALIZE THROTTLE COUNTER.
003906,000042: 01,2014           55345                           TS       DAPOFFDT                              #  OVERWRITE IN ERASABLE LOAD IF DESIRED.
003907,000043: 01,2015           55162                           TS       JETRESET                              #  PROPERTY OF RCSMONIT.
003908,000044: 
003909,000045: 01,2016           35661                           CA       EBANK5                                
003910,000046: 01,2017           54001                           TS       L                                     
003911,000047: 01,2020           22003                           LXCH     EBANK                                 
003912,000048: 01,2021  E5,1534                                  EBANK=   ABDELV                                
003913,000049: 01,2021           37767                           CA       ZERO                                  
003914,000050: 01,2022           55534                           TS       ABDELV                                #  FOR DAP INITIALIZATION
003915,000051: 01,2023           55535                           TS       ABDELV     +1                         
003916,000052: 01,2024  E3,1400                                  EBANK=   LST1                                  
003917,000053: 01,2024           22003                           LXCH     EBANK                                 
003918,000054: 
003919,000055: 01,2025           55163                           TS       THISCH32                              
003920,000056: 01,2026           54101                           TS       LMPJFAIL                              
003921,000057: 01,2027           54102                           TS       CH5MASK                               
003922,000058: 01,2030           54103                           TS       CH6MASK                               
003923,000059: 
003924,000060: 01,2031           55356                           TS       REDOCTR                               
003925,000061: 01,2032           55360                           TS       FAILREG                               
003926,000062: 01,2033           55361                           TS       FAILREG    +1                         
003927,000063: 01,2034           55362                           TS       FAILREG    +2                         
003928,000064: 
003929,000065: 01,2035           37762                           CA       TWO                                   #  SET UP VALUES FOR DVCNTR.  THESE MAY
003930,000066: 01,2036           55337                           TS       STARTDVC                              #  BE OVERWRITTEN IN ERASABLE LOAD IF
003931,000067: 01,2037           55340                           TS       STOPDVC                               #  ANYBODY WANTS TO.
003932,000068: 
003933,000069: 01,2040           37743                           CA       POSMAX                                #  TENTATIVELY LOAD WITH INFINITY.  MAY
003934,000070: 01,2041           55336                           TS       SLOSHCTR                              #  BE REPLACED VIA ERASABLE LOAD.
003935,000071: 

Page 89

003937,000073: 01,2042           47767        DOFSTART           CS       ZERO                                  #  MAKE ALL MTIMER/MPHASE PAIRS AVAILABLE.
003938,000074: 01,2043           55164                           TS       MTIMER4                               
003939,000075: 01,2044           55165                           TS       MTIMER3                               
003940,000076: 01,2045           55166                           TS       MTIMER2                               
003941,000077: 01,2046           55167                           TS       MTIMER1                               
003942,000078: 01,2047           55170                           TS       MPHASE4                               
003943,000079: 01,2050           55171                           TS       MPHASE3                               
003944,000080: 01,2051           55172                           TS       MPHASE2                               
003945,000081: 01,2052           55173                           TS       MPHASE1                               
003946,000082: 
003947,000083: 01,2053           47763                           CS       ONE                                   
003948,000084: 01,2054           55145                           TS       LMPOUTT                               
003949,000085: 
003950,000086:                                                                                                  #  INITIALIZE SWITCH REGISTERS INCLUDING DAPBOOLS:
003951,000087: 
003952,000088: 01,2055           37761                           CA       FOUR                                  #  INITIALIZE STATE THRU STATE +4 ONLY.
003953,000089: 01,2056           54001        INITSW             TS       L                                     
003954,000090: 01,2057           50001                           INDEX    L                                     
003955,000091: 01,2060           32576                           CA       SWINIT                                
003956,000092: 01,2061           50001                           INDEX    L                                     
003957,000093: 01,2062           54074                           TS       STATE                                 
003958,000094: 01,2063           10001                           CCS      L                                     
003959,000095: 01,2064           12056                           TCF      INITSW                                
003960,000096: 
003961,000097: 01,2065           55355                           TS       SMODE                                 
003962,000098: 01,2066           55353                           TS       ERESTORE                              
003963,000099: 01,2067           55133                           TS       LMPCMD                                #  RESET LMP COMMAND AREA.
003964,000100: 01,2070           55134                           TS       LMPCMD     +1                         
003965,000101: 01,2071           55135                           TS       LMPCMD     +2                         
003966,000102: 01,2072           55136                           TS       LMPCMD     +3                         
003967,000103: 01,2073           55137                           TS       LMPCMD     +4                         
003968,000104: 01,2074           55140                           TS       LMPCMD     +5                         
003969,000105: 01,2075           55141                           TS       LMPCMD     +6                         
003970,000106: 01,2076           55142                           TS       LMPCMD     +7                         
003971,000107: 01,2077           55143                           TS       LMPIN                                 
003972,000108: 01,2100           55144                           TS       LMPOUT                                
003973,000109: 
003974,000110: 01,2101           00006                           EXTEND                                         #  TURN THE RCS JETS OFF.
003975,000111: 01,2102           01005                           WRITE    5                                     
003976,000112: 01,2103           00006                           EXTEND                                         
003977,000113: 01,2104           01006                           WRITE    6                                     
003978,000114: 
003979,000115: 01,2105           32570                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
003980,000116: 01,2106           54365                           TS       IMODES30                              
003981,000117: 
003982,000118: 01,2107           37752                           CAF      BIT10                                 #  REMOVE IMU FAIL INHIBIT IN 5 SECS.
003983,000119: 01,2110           05663                           TC       WAITLIST                              
003984,000120: 01,2111  E3,1400                                  EBANK=   LST1                                  
003985,000121: 01,2111           02273 26063                     2CADR    IFAILOK                               
003986,000122: 

Page 90

003988,000124: 01,2113           00006                           EXTEND                                         #  SETTING T5RUPT FOR SETIDLER PROGRAM
003989,000125: 01,2114           32606                           DCA      SETADR                                #  THE SETIDLER PROGRAM ASSURES 1 SECOND
003990,000126: 01,2115           53001                           DXCH     T5ADR                                 #  DELAY BEFORE THE DAPIDLER BEGINS.
003991,000127: 
003992,000128: 01,2116           34276                           CAF      LNORMT4                               
003993,000129: 01,2117           54346                           TS       T4LOC                                 
003994,000130: 
003995,000131: 01,2120           32554                           CA       LDNTMGO                               
003996,000132: 01,2121           54001                           TS       L                                     
003997,000133: 01,2122           22003                           LXCH     EBANK                                 
003998,000134: 
003999,000135: 01,2123  E7,1401                                  EBANK=   DNTMGOTO                              
004000,000136: 
004001,000137: 01,2123           32553                           CA       LDNPHAS1                              
004002,000138: 01,2124           55401                           TS       DNTMGOTO                              
004003,000139: 
004004,000140: 01,2125           32556                           CA       SETCDULM                              
004005,000141: 01,2126           55405                           TS       CDULMIT                               #  OVERWRITE IN ERASABLE LOAD IF DESIRED.
004006,000142: 
004007,000143: 01,2127           32557                           CA       IDNCDUN                               
004008,000144: 01,2130           55404                           TS       DNCDUN                                #  OVERWRITE IN ERASABLE LOAD IF DESIRED.
004009,000145: 
004010,000146: 01,2131           22003                           LXCH     EBANK                                 
004011,000147: 
004012,000148: 01,2132  E3,1400                                  EBANK=   LST1                                  
004013,000149: 
004014,000150: 01,2132           02151                           TC       MR.CLEAN                              #  DEACTIVATE ALL RESTART GROUPS.
004015,000151: 
004016,000152: 01,2133           00003                           RELINT                                         #  LET AN INTERRUPT IN.
004017,000153: 01,2134           12135                           NOOP                                           
004018,000154: 01,2135           00004                           INHINT                                         
004019,000155: 
004020,000156: 01,2136           05270                           TC       IBNKCALL                              
004021,000157: 01,2137           40315                           CADR     1STENGOF                              
004022,000158: 
004023,000159: 01,2140           37767        P00H3              CA       ZERO                                  
004024,000160: 01,2141           54302                           TS       MODREG                                
004025,000161: 01,2142           54764                           TS       PHASENUM                              
004026,000162: 
004027,000163: 01,2143           00003        ENDRSTRT           RELINT                                         
004028,000164: 01,2144           05206                           TC       BANKCALL                              #  DISPLAY MAJOR MODE.
004029,000165: 01,2145           12001                           CADR     DSPMM                                 
004030,000166: 
004031,000167: 01,2146           06051                           TC       FLAG1UP                               #  TURN ON RESTARTABILITY FLAG.
004032,000168: 01,2147           04000                           OCT      4000                                  
004033,000169: 
004034,000170: 01,2150           15600                           TCF      DUMMYJOB   +2                         #  DONT ZERO NEWJOB
004035,000171: 

Page 91

004037,000173: 01,2151           37764        MR.CLEAN           CAF      ELEVEN                                #  INITIALIZE PHASE TABLE.  DO IT THIS WAY
004038,000174: 01,2152           54120                 +1        TS       BUF                                   #  TO MINIMIZE THE TIME OF PHASE TABLE
004039,000175: 
004040,000176: 01,2153           47767                           CS       ZERO                                  #  DISAGREEMENT.
004041,000177: 01,2154           22007                           ZL                                             
004042,000178: 01,2155           50120                           INDEX    BUF                                   
004043,000179: 01,2156           53077                           DXCH     -PHASE1    -1                         
004044,000180: 
004045,000181: 01,2157           10120                           CCS      BUF                                   
004046,000182: 01,2160           10000                           CCS      A                                     
004047,000183: 01,2161           12152                           TCF      MR.CLEAN   +1                         
004048,000184: 
004049,000185: 01,2162           00002                           TC       Q                                     
004050,000186: 

Page 92

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

Page 93

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

Page 94

004155,000291: 01,2302           60000                           DOUBLE                                         
004156,000292: 01,2303           00006                           EXTEND                                         
004157,000293: 01,2304           50000                           INDEX    A                                     
004158,000294: 01,2305           31100                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
004159,000295: 01,2306           00006                           EXTEND                                         
004160,000296: 01,2307           06001                           RXOR     L                                     #  RESULT MUST BE -0 FOR AGREEMENT.
004161,000297: 01,2310           10000                           CCS      A                                     
004162,000298: 01,2311           12347                           TCF      PTBAD                                 #  RESTART FAILURE.
004163,000299: 01,2312           12347                           TCF      PTBAD                                 
004164,000300: 01,2313           12347                           TCF      PTBAD                                 
004165,000301: 
004166,000302: 01,2314           10151                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
004167,000303: 01,2315           12301                           TCF      PCLOOP                                
004168,000304: 
004169,000305: 01,2316           54152                           TS       MPAC       +6                         #  SET TO +0.
004170,000306: 
004171,000307: 01,2317           37766                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
004172,000308: 01,2320           54151        NXTRST             TS       MPAC       +5                         
004173,000309: 01,2321           60000                           DOUBLE                                         
004174,000310: 01,2322           50000                           INDEX    A                                     
004175,000311: 01,2323           11100                           CCS      PHASE1                                
004176,000312: 01,2324           12326                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
004177,000313: 01,2325           12333                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
004178,000314: 
004179,000315: 01,2326           54144        PACTIVE            TS       MPAC                                  
004180,000316: 01,2327           24144                           INCR     MPAC                                  #  ABS OF PHASE.
004181,000317: 01,2330           24152                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
004182,000318: 01,2331           32353                           CA       RACTCADR                              #  GO TO RESTARTS AND PROCESS PHASE INFO.
004183,000319: 01,2332           05212                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
004184,000320: 
004185,000321: 01,2333           10151        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
004186,000322: 01,2334           12320                           TCF      NXTRST                                
004187,000323: 
004188,000324: 01,2335           10152                           CCS      MPAC       +6                         #  SEE IF ANY GROUPS WERE ACTIVE.
004189,000325: 01,2336           12143                           TCF      ENDRSTRT                              #  YES, THERE WERE.
004190,000326: 
004191,000327: 01,2337           04755                           TC       ALARM                                 #  RESTART WITH NO ACTIVE GROUPS.
004192,000328: 01,2340           01110                           OCT      1110                                  
004193,000329: 
004194,000330: 01,2341           40075                           CS       FLAGWRD1                              #  WAS THE RESTARTABILITY FLAG SET?
004195,000331: 01,2342           77750                           MASK     BIT12                                 
004196,000332: 01,2343           10000                           CCS      A                                     
004197,000333: 01,2344           12607                           TCF      P00H2                                 #  NO.
004198,000334: 01,2345           54302                           TS       MODREG                                #  YES.  SET MAJOR MODE TO 00.
004199,000335: 01,2346           12143                           TCF      ENDRSTRT                              
004200,000336: 
004201,000337: 01,2347           04755        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
004202,000338: 01,2350           01107                           OCT      1107                                  
004203,000339: 
004204,000340: 01,2351           00004                           INHINT                                         

Page 95

004206,000342: 01,2352           12042                           TCF      DOFSTART                              
004207,000343: 
004208,000344: 01,2353           14377        RACTCADR           CADR     RESTARTS                              
004209,000345: 
004210,000346: 01,2354           00004        ENEMA              INHINT                                         #  HAVING PRESET PHASE REGISTERS, DO A
004211,000347: 01,2355           02374                           TC       STARTSB2                              #  PSEUDO-RESTART.  (THE RESTARTABILITY
004212,000348: 01,2356           12275                           TCF      GOPROG2                               #  FLAG MUST BE SET WHEN ENEMA IS CALLED.)
004213,000349: 

Page 96

004215,000351:                                                                                                  #  INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
004216,000352: 
004217,000353: 01,2357           37767        STARTSUB           CA       ZERO                                  
004218,000354: 01,2360           00006                           EXTEND                                         #  TURN THE RCS JETS OFF.
004219,000355: 01,2361           01005                           WRITE    5                                     
004220,000356: 01,2362           00006                           EXTEND                                         
004221,000357: 01,2363           01006                           WRITE    6                                     
004222,000358: 
004223,000359: 01,2364           00006                           EXTEND                                         
004224,000360: 01,2365           01012                           WRITE    12                                    #  TURN OFF TRIM GIMBAL.
004225,000361: 
004226,000362: 01,2366           37743                           CA       POSMAX                                
004227,000363: 01,2367           54026                           TS       TIME3                                 #  37777 TO TIME3.
004228,000364: 01,2370           65336                           AD       MINUS2                                
004229,000365: 01,2371           54027                           TS       TIME4                                 #  37775 TO TIME4.
004230,000366: 01,2372           67771                           AD       NEGONE                                
004231,000367: 01,2373           54030                           TS       TIME5                                 #  37774 TO TIME5.
004232,000368: 
004233,000369: 01,2374           37767        STARTSB2           CAF      ZERO                                  #  ENTRY FROM P00 AND FORGETIT.
004234,000370: 01,2375           00006                           EXTEND                                         
004235,000371: 01,2376           01007                           WRITE    7                                     #  NOTHING IN SUNBURST IS IN BANKS 40 - 43.
004236,000372: 01,2377           00006                           EXTEND                                         
004237,000373: 01,2400           01011                           WRITE    11                                    
004238,000374: 01,2401           00006                           EXTEND                                         
004239,000375: 01,2402           01014                           WRITE    14                                    
004240,000376: 
004241,000377: 01,2403           32567                           CA       TRIMGIMB                              #  TURN OFF ALL BITS BUT TRIM GIMBAL.
004242,000378: 01,2404           00006                           EXTEND                                         
004243,000379: 01,2405           03012                           WAND     12                                    
004244,000380: 
004245,000381: 01,2406           35655                           CAF      PRIO34                                #  ENABLE INTERRUPTS.
004246,000382: 01,2407           00006                           EXTEND                                         
004247,000383: 01,2410           01013                           WRITE    13                                    
004248,000384: 
004249,000385: 01,2411  E3,1400                                  EBANK=   LST1                                  
004250,000386: 
004251,000387: 01,2411           32564                           CAF      STARTEB                               
004252,000388: 01,2412           54003                           TS       EBANK                                 #  SET FOR E3
004253,000389: 
004254,000390: 01,2413           37744                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
004255,000391: 01,2414           55407                           TS       LST1       +7                         
004256,000392: 01,2415           55406                           TS       LST1       +6                         
004257,000393: 01,2416           55405                           TS       LST1       +5                         
004258,000394: 01,2417           55404                           TS       LST1       +4                         
004259,000395: 01,2420           55403                           TS       LST1       +3                         
004260,000396: 01,2421           55402                           TS       LST1       +2                         
004261,000397: 01,2422           55401                           TS       LST1       +1                         
004262,000398: 01,2423           55400                           TS       LST1                                  
004263,000399: 
004264,000400: 01,2424           45714                           CS       ENDTASK                               

Page 97

004266,000402: 01,2425           55410                           TS       LST2                                  
004267,000403: 01,2426           55412                           TS       LST2       +2                         
004268,000404: 01,2427           55414                           TS       LST2       +4                         
004269,000405: 01,2430           55416                           TS       LST2       +6                         
004270,000406: 01,2431           55420                           TS       LST2       +8D                        
004271,000407: 01,2432           55422                           TS       LST2       +10D                       
004272,000408: 01,2433           55424                           TS       LST2       +12D                       
004273,000409: 01,2434           55426                           TS       LST2       +14D                       
004274,000410: 01,2435           55430                           TS       LST2       +16D                       
004275,000411: 01,2436           45715                           CS       ENDTASK    +1                         
004276,000412: 01,2437           55411                           TS       LST2       +1                         
004277,000413: 01,2440           55413                           TS       LST2       +3                         
004278,000414: 01,2441           55415                           TS       LST2       +5                         
004279,000415: 01,2442           55417                           TS       LST2       +7                         
004280,000416: 01,2443           55421                           TS       LST2       +9D                        
004281,000417: 01,2444           55423                           TS       LST2       +11D                       
004282,000418: 01,2445           55425                           TS       LST2       +13D                       
004283,000419: 01,2446           55427                           TS       LST2       +15D                       
004284,000420: 01,2447           55431                           TS       LST2       +17D                       
004285,000421: 
004286,000422: 01,2450           47767                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
004287,000423: 01,2451           54157                           TS       PRIORITY                              #  AVAILABLE.
004288,000424: 01,2452           54173                           TS       PRIORITY   +12D                       
004289,000425: 01,2453           54207                           TS       PRIORITY   +24D                       
004290,000426: 01,2454           54223                           TS       PRIORITY   +36D                       
004291,000427: 01,2455           54237                           TS       PRIORITY   +48D                       
004292,000428: 01,2456           54253                           TS       PRIORITY   +60D                       
004293,000429: 01,2457           54267                           TS       PRIORITY   +72D                       
004294,000430: 
004295,000431: 01,2460           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
004296,000432: 
004297,000433: 01,2461           32562                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
004298,000434: 01,2462           54430                           TS       VAC1USE                               
004299,000435: 01,2463           62563                           AD       LTHVACA                               
004300,000436: 01,2464           54504                           TS       VAC2USE                               
004301,000437: 01,2465           62563                           AD       LTHVACA                               
004302,000438: 01,2466           54560                           TS       VAC3USE                               
004303,000439: 01,2467           62563                           AD       LTHVACA                               
004304,000440: 01,2470           54634                           TS       VAC4USE                               
004305,000441: 01,2471           62563                           AD       LTHVACA                               
004306,000442: 01,2472           54710                           TS       VAC5USE                               
004307,000443: 
004308,000444: 01,2473           34570                           CAF      TEN                                   #  TURN OFF ALL DISPLAY SYSTEM RELAYS.
004309,000445: 01,2474           54350                           TS       DIDFLG                                #  DISPLAY INERTIAL DATA FLAG.
004310,000446: 01,2475           54144        DSPOFF             TS       MPAC                                  
004311,000447: 01,2476           47750                           CS       BIT12                                 
004312,000448: 01,2477           50144                           INDEX    MPAC                                  
004313,000449: 01,2500           54313                           TS       DSPTAB                                
004314,000450: 01,2501           10144                           CCS      MPAC                                  
004315,000451: 01,2502           12475                           TCF      DSPOFF                                

Page 98

004317,000453: 01,2503           54045                           TS       INLINK                                
004318,000454: 01,2504           54345                           TS       DSPCNT                                
004319,000455: 01,2505           54327                           TS       CADRSTOR                              
004320,000456: 01,2506           54304                           TS       REQRET                                
004321,000457: 01,2507           54306                           TS       CLPASS                                
004322,000458: 01,2510           54303                           TS       DSPLOCK                               
004323,000459: 01,2511           54311                           TS       MONSAVE                               #  KILL MONITOR
004324,000460: 01,2512           54312                           TS       MONSAVE1                              
004325,000461: 01,2513           54330                           TS       GRABLOCK                              
004326,000462: 01,2514           54272                           TS       VERBREG                               
004327,000463: 01,2515           54273                           TS       NOUNREG                               
004328,000464: 01,2516           54333                           TS       DSPLIST                               
004329,000465: 01,2517           54334                           TS       DSPLIST    +1                         
004330,000466: 01,2520           54335                           TS       DSPLIST    +2                         
004331,000467: 
004332,000468: 01,2521           54373                           TS       MARKSTAT                              
004333,000469: 01,2522           54336                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
004334,000470: 01,2523           54367                           TS       IMUCADR                               
004335,000471: 01,2524           54370                           TS       OPTCADR                               
004336,000472: 01,2525           54371                           TS       RADCADR                               
004337,000473: 01,2526           54372                           TS       ATTCADR                               
004338,000474: 01,2527           54356                           TS       LGYRO                                 
004339,000475: 01,2530           54347                           TS       DSRUPTSW                              
004340,000476: 01,2531           37764                           CAF      NOUTCON                               
004341,000477: 01,2532           54307                           TS       NOUT                                  
004342,000478: 
004343,000479: 01,2533           47763                           CS       ONE                                   #  NO RADAR DESIGNATION.
004344,000480: 01,2534           54413                           TS       SAMPLIM                               #  NO RADAR RUPTS EXPECTED.
004345,000481: 
004346,000482: 01,2535           32573                           CAF      IM33INIT                              #  NO PIP OR TM FAILS.
004347,000483: 01,2536           54366                           TS       IMODES33                              
004348,000484: 
004349,000485: 01,2537           37756                           CAF      BIT6                                  #  SET LR POS.
004350,000486: 01,2540           00006                           EXTEND                                         
004351,000487: 01,2541           02033                           RAND     33                                    
004352,000488: 01,2542           62575                           AD       RMODINIT                              
004353,000489: 01,2543           54412                           TS       RADMODES                              
004354,000490: 
004355,000491: 01,2544           32560                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
004356,000492: 01,2545           55354                           TS       SELFRET                               
004357,000493: 
004358,000494: 01,2546           44565                           CS       VD1                                   
004359,000495: 01,2547           54270                           TS       DSPCOUNT                              
004360,000496: 
004361,000497: 01,2550           32555                           CAF      NOMTMLST                              #  SET UP NOMINAL DOWNLINK LIST.
004362,000498: 01,2551           54411                           TS       DNLSTADR                              
004363,000499: 
004364,000500: 01,2552           00002                           TC       Q                                     
004365,000501: 
004366,000502: 01,2553           02006        LDNPHAS1           GENADR   DNPHASE1                              

Page 99

004368,000504: 01,2554           03401        LDNTMGO            ECADR    DNTMGOTO                              
004369,000505: 01,2555           02236        NOMTMLST           GENADR   NOMDNLST                              
004370,000506: 01,2556           01616        SETCDULM           DEC      0.055555555                            #  10 DEGREES, SCALED IN HALF-REVS.
004371,000507: 01,2557           00306        IDNCDUN            DEC      198        B-14                       #  199 CDU SAMPLES + ONE ID = 4 SECS.
004372,000508: 01,2560           02115        LESCHK             GENADR   SELFCHK                               
004373,000509: 01,2561           02013        LLMPRS2            GENADR   LMPRESET                              
004374,000510: 01,2562           00430        VAC1ADRC           ADRES    VAC1USE                               
004375,000511: 01,2563           00054        LTHVACA            DEC      44         B-14                       
004376,000512: 01,2564           01400        STARTEB            ECADR    LST1                                  
004377,000513: 01,2565     7766               NUMGRPS            EQUALS   FIVE                                  #  SIX GROUPS CURRENTLY.
004378,000514: 01,2565           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
004379,000515: 01,2566           77757        -MKREJ             OCT      -20                                   #  - MARK REJECT.
004380,000516: 01,2567           07400        TRIMGIMB           OCT      07400                                 #  TRIM GIMBAL DRIVE BITS IN CHANNEL 12.
004381,000517: 01,2570           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
004382,000518: 01,2571           00435        IFAILINH           OCT      435                                   #  ISS OPERATE, & FAILURE INHIBIT BITS.
004383,000519: 01,2572           37000        IM30INIR           OCT      37000                                 #  LEAVE FAIL INHIBITS & OPERATE ALONE.
004384,000520: 01,2573           16000        IM33INIT           OCT      16000                                 #  NO PIP OR TM FAIL SIGNALS.
004385,000521: 01,2574           00450        9,6,4              OCT      450                                   
004386,000522: 01,2575           00102        RMODINIT           OCT      00102                                 
004387,000523: 
004388,000524: 01,2576           00000        SWINIT             OCT      0                                     
004389,000525: 01,2577           00000                           OCT      0                                     
004390,000526: 01,2600           00005                           OCT      00005                                 
004391,000527: 01,2601           40512        DAPINIT            OCT      40512                                 #  DB SET IN SETIDLE
004392,000528: 01,2602           00000                           OCT      0                                     
004393,000529: 
004394,000530: 01,2603  E6,1542                                  EBANK=   DT                                    
004395,000531: 01,2603           02037 34066  IDLEADR            2CADR    DAPIDLER                              
004396,000532: 
004397,000533: 01,2605  E6,1542                                  EBANK=   DT                                    
004398,000534: 01,2605           03606 34066  SETADR             2CADR    SETIDLE                               
004399,000535: 

Page 100

004401,000537:                                                                                                  #  PROGRAM TO REVERT TO IDLING MODE (P 00).
004402,000538: 
004403,000539:                                                                                                  #  CALLING SEQUENCE:  TC (OR TCF)   POOH     UNDER EXEC (NOT INTERRUPTED).
004404,000540: 
004405,000541:    4272                                           BLOCK    2                                     
004406,000542: 
004407,000543:    4272           05225        P00H               TC       POSTJUMP                              
004408,000544:    4273           02607                           CADR     P00H2                                 #  DO A PARTIAL FRESH START.
004409,000545: 
004410,000546: 
004411,000547: 01,2607                                           BANK     01                                    
004412,000548: 01,2607           00004        P00H2              INHINT                                         
004413,000549: 01,2610           02374                           TC       STARTSB2                              
004414,000550: 
004415,000551: 01,2611           05270                           TC       IBNKCALL                              
004416,000552: 01,2612           40114                           CADR     STOPRATE                              
004417,000553: 
004418,000554: 01,2613           05270                           TC       IBNKCALL                              
004419,000555: 01,2614           40054                           CADR     SETMAXDB                              
004420,000556: 
004421,000557: 01,2615           06067                           TC       FLAG1DWN                              #  FOR A MOMENT, INDICATE NON-RESTART-
004422,000558: 01,2616           04000                           OCT      4000                                  #  ABILITY, SO A RESTART HERE WILL DO POOH.
004423,000559: 
004424,000560: 01,2617           06076                           TC       FLAG2DWN                              
004425,000561: 01,2620           00020                           OCT      20                                    #  TURN OFF MISSION TIMER FLAG.
004426,000562: 
004427,000563: 01,2621           00004                           INHINT                                         
004428,000564: 01,2622           02151                           TC       MR.CLEAN                              #  DEACTIVATE ALL RESTART GROUPS.
004429,000565: 
004430,000566: 01,2623           32625                           CA       LP00H3                                #  PICK UP RETURN FOR MSTART.
004431,000567: 01,2624           05161                           TC       MSTART     -1                         #  START MISSION TIMERS COUNTING.
004432,000568:                                                                                                  #  WE GET A RELINT AT MSTART.
004433,000569: 
004434,000570: 
004435,000571: 01,2625           02140        LP00H3             ADRES    P00H3                                 
004436,000572: 

Page 101

004438,000574:                                                                                                  #  FAKESTRT IS ENTERED FROM GOPROG WHEN A RESTART OCCURS AND THE RESTARTABILITY FLAG IS OFF.
004439,000575: 
004440,000576: 07,2000                                           BANK     7                                     
004441,000577: 07,2000           04755        FAKESTRT           TC       ALARM                                 
004442,000578: 07,2001           00316                           OCT      0316                                  #  FAKESTRT ALARM
004443,000579: 
004444,000580: 07,2002           12014                           TCF      FORGET2                               
004445,000581: 
004446,000582: 
004447,000583:                                                                                                  #  FORGETIT IS ENTERED FROM:
004448,000584:                                                                                                  #           1)  FAKESTRT (VIA FORGET2).
004449,000585:                                                                                                  #           2)  VERB 74 UPLINK COMMAND.
004450,000586:                                                                                                  #           3)  ILLEGAL MISSION PHASE COMES DUE IN MISSION SCHEDULING ROUTINE.
004451,000587:                                                                                                  #           4)  ENGINE FAILURE, ETC.
004452,000588: 
004453,000589: 07,2003           00004        DOV74              INHINT                                         
004454,000590: 07,2004           05270                           TC       IBNKCALL                              
004455,000591: 07,2005           02374                           CADR     STARTSB2                              
004456,000592: 
004457,000593: 07,2006           12014                           TCF      FORGET2                               #  BYPASS THE PROGRAM ALARM & 315 DISPLAY.
004458,000594: 
004459,000595: 07,2007           00004        FORGETIT           INHINT                                         
004460,000596: 07,2010           05270                           TC       IBNKCALL                              
004461,000597: 07,2011           02374                           CADR     STARTSB2                              
004462,000598: 
004463,000599: 07,2012           04755                           TC       ALARM                                 
004464,000600: 07,2013           00315                           OCT      315                                   #  UNIQUE ALARM FOR FORGETIT.
004465,000601: 
004466,000602: 07,2014           06067        FORGET2            TC       FLAG1DWN                              #  ENTRY FROM FAKESTRT.
004467,000603: 07,2015           04000                           OCT      04000                                 #  KNOCK DOWN RESTART FLAG TO PERMIT POOH.
004468,000604: 
004469,000605: 07,2016           00004                           INHINT                                         
004470,000606: 07,2017           00006                           EXTEND                                         
004471,000607: 07,2020           32102                           DCA      KILLCAD                               
004472,000608: 07,2021           53075                           DXCH     DVMNEXIT                              
004473,000609: 
004474,000610: 07,2022           00006                           EXTEND                                         
004475,000611: 07,2023           32100                           DCA      CADAVER                               
004476,000612: 07,2024           53073                           DXCH     AVGEXIT                               
004477,000613: 
004478,000614: 07,2025           32076                           CAF      PINGSMON                              
004479,000615: 07,2026           55346                           TS       OLDDVSEL                              
004480,000616: 07,2027           55310                           TS       DVSELECT                              
004481,000617: 
004482,000618: 07,2030           05270                           TC       IBNKCALL                              
004483,000619: 07,2031           40263                           CADR     ENGINOFF                              
004484,000620: 
004485,000621: 07,2032           05270                           TC       IBNKCALL                              
004486,000622: 07,2033           40114                           CADR     STOPRATE                              
004487,000623: 

Page 102

004489,000625: 07,2034           05270                           TC       IBNKCALL                              
004490,000626: 07,2035           40066                           CADR     NOULLAGE                              
004491,000627: 
004492,000628: 07,2036           05270                           TC       IBNKCALL                              
004493,000629: 07,2037           40054                           CADR     SETMAXDB                              
004494,000630: 
004495,000631: 07,2040           42075                           CS       BGIMBALS                              #  TURN OFF TRIM GIMBALS
004496,000632: 07,2041           00006                           EXTEND                                         
004497,000633: 07,2042           03012                           WAND     12                                    
004498,000634: 
004499,000635: 07,2043           47767                           CS       ZERO                                  #  MAKE ALL RESTART PHASES INACTIVE EXCEPT
004500,000636: 07,2044           22007                           ZL                                             #  SERVICER AND STATE VECTOR COPY.
004501,000637: 07,2045           53102                           DXCH     -PHASE2                               
004502,000638: 07,2046           47767                           CS       ZERO                                  
004503,000639: 07,2047           22007                           ZL                                             
004504,000640: 07,2050           53104                           DXCH     -PHASE3                               
004505,000641: 07,2051           47767                           CS       ZERO                                  
004506,000642: 07,2052           22007                           ZL                                             
004507,000643: 07,2053           53106                           DXCH     -PHASE4                               
004508,000644: 07,2054           47767                           CS       ZERO                                  
004509,000645: 07,2055           22007                           ZL                                             
004510,000646: 07,2056           53112                           DXCH     -PHASE6                               
004511,000647: 
004512,000648: 07,2057           47767                           CS       ZERO                                  
004513,000649: 07,2060           55173                           TS       MPHASE1                               #  SET TIMER/PHASE PAIRS TO IDLE STATE
004514,000650: 07,2061           55172                           TS       MPHASE2                               
004515,000651: 07,2062           55171                           TS       MPHASE3                               
004516,000652: 07,2063           55170                           TS       MPHASE4                               
004517,000653: 07,2064           55164                           TS       MTIMER4                               
004518,000654: 07,2065           55165                           TS       MTIMER3                               
004519,000655: 07,2066           55166                           TS       MTIMER2                               
004520,000656: 07,2067           55167                           TS       MTIMER1                               
004521,000657: 
004522,000658: 07,2070           05225                           TC       POSTJUMP                              
004523,000659: 07,2071           02275                           CADR     GOPROG2                               
004524,000660: 
004525,000661: 
004526,000662: 07,2072           06067        AVEGKILL           TC       FLAG1DWN                              #  COMES HERE WHEN ENGINE OFF
004527,000663: 07,2073           00041                           OCT      00041                                 #  KNOCK DOWN POOH FLAG AND AVERAGEG FLAG
004528,000664: 
004529,000665: 07,2074           15567                           TCF      ENDOFJOB                              
004530,000666: 
004531,000667: 
004532,000668: 07,2075           07400        BGIMBALS           OCT      7400                                  
004533,000669: 
004534,000670: 07,2076           02237        PINGSMON           GENADR   PGNCSMON                              
004535,000671: 07,2077  E3,1400                                  EBANK=   LST1                                  
004536,000672: 07,2077           02324 60063  CADAVER            2CADR    SERVEXIT                              
004537,000673: 

Page 103

004539,000675: 07,2101  E3,1400                                  EBANK=   LST1                                  
004540,000676: 07,2101           02072 16063  KILLCAD            2CADR    AVEGKILL                              

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