Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

003483,000002:                                                                                                  ## Copyright:   Public domain.
003484,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
003485,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
003486,000005:                                                                                                  ##              It is part of an early development version of the software
003487,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
003488,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
003489,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
003490,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
003491,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
003492,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
003493,000012:                                                                                                  ##              that the code format has been changed to conform to the
003494,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
003495,000014:                                                                                                  ##              original YUL assembler.
003496,000015:                                                                                                  ## Reference:   pp. 78-89
003497,000016:                                                                                                  ## Assembler:   yaYUL
003498,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
003499,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
003500,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
003501,000020:                                                                                                  ##              2017-05-29 HG   Transcribed
003502,000021:                                                                                                  ##              2017-06-15 HG   Fix operand  BIT14  -> BIT4
003503,000022:                                                                                                  ##                              Fix operator TC     -> TS  
003504,000023:                                                                                                  ##                                           TCF    -> TC 
003505,000024:                                                                                                  ##                              Fix statements CS    LMPCMD --> MASK LMPCMD
003506,000025:                                                                                                  ##                                             MASK  BIT15  --> AD   BIT15
003507,000026:                                                                                                  ##                                             ADS   LMPCMD --> TS   LMPCMD
003508,000027:                                                                                                  ##                              Fix value IM30INIR  OCT 37000 -> OCT 37400
003509,000028:                                                                                                  ##              2017-06-21 RSB  Various comment fixes found using 
003510,000029:                                                                                                  ##                              octopus/ProoferComments.
003511,000030: 

Page 78

003513,000032: 01,2000                                           BANK     01                                    
003514,000033: 01,2000  E3,1400                                  EBANK=   LST1                                  
003515,000034: 
003516,000035: 01,2000           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
003517,000036: 01,2001           02322                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
003518,000037: 
003519,000038: 01,2002           12007        STARTSW            TCF      GOON                                  #  PATCH FOR SIMULATIONS
003520,000039: 
003521,000040: 01,2003           37740        STARTSIM           CAF      BIT14                                 
003522,000041: 
003523,000042: 01,2004           05534                           TC       FINDVAC                               
003524,000043: 01,2005     0061                                  EBANK=   ITEMP1                                
003525,000044: 01,2005           03524 72060                     2CADR    BEGIN206                              
003526,000045: 
003527,000046: 01,2007           37737        GOON               CAF      BIT15                                 #  TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
003528,000047: 01,2010           54326                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
003529,000048: 
003530,000049: 01,2011           37761                           CAF      ZERO                                  #  SAME STORY ON ZEROING FAILREG.
003531,000050: 01,2012           55360                           TS       REDOCTR                               
003532,000051: 01,2013           55363                           TS       FAILREG                               
003533,000052: 01,2014           55364                           TS       FAILREG    +1                         
003534,000053: 01,2015           55365                           TS       FAILREG    +2                         
003535,000054: 
003536,000055: 01,2016           00006                           EXTEND                                         #  INITIALIZE SPECIAL ENEMIZE REGISTER
003537,000056: 01,2017           32141                           DCA      ENJOBCAD                              
003538,000057: 01,2020           52376                           DXCH     FLUSHREG                              #  *** REMOVE IF FAKESTRT REMOVED
003539,000058: 
003540,000059: 01,2021           47761        DOFSTART           CS       ZERO                                  #  MAKE ALL MTIMER/PHASE PAIRS AVAILABLE.
003541,000060: 01,2022           55167                           TS       MTIMER4                               
003542,000061: 01,2023           55170                           TS       MTIMER3                               
003543,000062: 01,2024           55171                           TS       MTIMER2                               
003544,000063: 01,2025           55172                           TS       MTIMER1                               
003545,000064: 
003546,000065: 01,2026           55173                           TS       MPHASE4                               
003547,000066: 01,2027           55174                           TS       MPHASE3                               
003548,000067: 01,2030           55175                           TS       MPHASE2                               
003549,000068: 01,2031           55176                           TS       MPHASE1                               
003550,000069: 
003551,000070:                                                                                                  #  INITIALIZE SWITCH REGISTERS INCLUDING DAPBOOLS
003552,000071: 
003553,000072: 01,2032           47755                           CS       ONE                                   
003554,000073: 01,2033           55144                           TS       LMPOUTT                               
003555,000074: 
003556,000075: 01,2034           37757                           CA       SEVEN                                 
003557,000076: 01,2035           54001                 -6        TS       L                                     
003558,000077: 01,2036           50001                           INDEX    L                                     
003559,000078: 01,2037           32540                           CA       SWINIT                                
003560,000079: 01,2040           50001                           INDEX    L                                     
003561,000080: 01,2041           54074                           TS       STATE                                 
003562,000081: 01,2042           10001                           CCS      L                                     
003563,000082: 01,2043           12035                           TCF      -6                                    
003564,000083: 

Page 79

003566,000085: 
003567,000086: 01,2044           54032                           TS       CDUX                                  #  ZERO CDUS SO MATRIX COMPUTATION IN T4
003568,000087: 01,2045           54033                           TS       CDUY                                  #  WONT OVERFLOW.
003569,000088: 01,2046           54034                           TS       CDUZ                                  
003570,000089: 
003571,000090: 01,2047           55132                           TS       LMPCMD                                #  RESET LMP COMMAND AREA.
003572,000091: 01,2050           55133                           TS       LMPCMD     +1                         
003573,000092: 01,2051           55134                           TS       LMPCMD     +2                         
003574,000093: 01,2052           55135                           TS       LMPCMD     +3                         
003575,000094: 01,2053           55136                           TS       LMPCMD     +4                         
003576,000095: 01,2054           55137                           TS       LMPCMD     +5                         
003577,000096: 01,2055           55140                           TS       LMPCMD     +6                         
003578,000097: 01,2056           55141                           TS       LMPCMD     +7                         
003579,000098: 01,2057           55142                           TS       LMPIN                                 
003580,000099: 01,2060           55143                           TS       LMPOUT                                
003581,000100: 
003582,000101: 01,2061           37761        POOH3              CAF      ZERO                                  
003583,000102: 01,2062           55357                           TS       SMODE                                 
003584,000103: 01,2063           54302                           TS       MODREG                                
003585,000104: 01,2064           54412                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION.
003586,000105: 
003587,000106: 01,2065           55112                           TS       PHASE6                                #  INITIALIZE PHASE TABLES - NO MISSION
003588,000107: 01,2066           55100                           TS       PHASE1                                #  PROGRAMS RUNNING.
003589,000108: 01,2067           55102                           TS       PHASE2                                
003590,000109: 01,2070           55104                           TS       PHASE3                                
003591,000110: 01,2071           55106                           TS       PHASE4                                
003592,000111: 01,2072           55110                           TS       PHASE5                                
003593,000112: 
003594,000113: 01,2073           40000                           COM                                            
003595,000114: 01,2074           55111                           TS       -PHASE6                               
003596,000115: 01,2075           55077                           TS       -PHASE1                               
003597,000116: 01,2076           55101                           TS       -PHASE2                               
003598,000117: 01,2077           55103                           TS       -PHASE3                               
003599,000118: 01,2100           55105                           TS       -PHASE4                               
003600,000119: 01,2101           55107                           TS       -PHASE5                               
003601,000120: 
003602,000121: 01,2102           34265                           CAF      LNORMT4                               
003603,000122: 01,2103           54346                           TS       T4LOC                                 
003604,000123: 
003605,000124: 01,2104           32527                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
003606,000125: 01,2105           54365                           TS       IMODES30                              
003607,000126: 
003608,000127: 01,2106           37744                           CAF      BIT10                                 #  REMOVE IMU FAIL INHIBIT IN 5 SECS.
003609,000128: 01,2107           05701                           TC       WAITLIST                              
003610,000129: 01,2110  E3,1400                                  EBANK=   LST1                                  
003611,000130: 01,2110           02272 26003                     2CADR    IFAILOK                               
003612,000131: 01,2112           00006                           EXTEND                                         #  SETTING T5RUPT FOR SETIDLER PROGRAM
003613,000132: 01,2113           32537                           DCA      SETADR                                #  THE SETIDLER PROGRAM ASSURES 1 SECOND
003614,000133: 01,2114           53001                           DXCH     T5ADR                                 #  DELAY BEFORE THE DAPIDLER BEGINS.
003615,000134: 

Page 80

003617,000136: 01,2115           37750        ENDRSTRT           CAF      BIT6                                  #  IF GIMBAL LOCK LAMP IS STILL ON,
003618,000137: 01,2116           70326                           MASK     DSPTAB     +11D                       #  IMU WAS FOUND IN GIMBAL LOCK IN RESTART
003619,000138: 01,2117           10000                           CCS      A                                     #  AND LEFT IN COARSE ALIGN. IN THIS CASE
003620,000139: 01,2120           47745                           CS       BIT9                                  #  SET ISS OPERATE BIT IN IMODES30 TO
003621,000140: 01,2121           26365                           ADS      IMODES30                              #  OPERATE SO T4 INBIT MONITOR WONT ZERO
003622,000141: 
003623,000142: 01,2122           00003                           RELINT                                         #  THE CDUS AS IT DOES IN FRESH START.
003624,000143: 01,2123           05224                           TC       BANKCALL                              #  DISPLAY MAJOR MODE.
003625,000144: 01,2124           12001                           CADR     DSPMM                                 
003626,000145: 
003627,000146: 01,2125           35226                           CAF      PRIO30                                #  THIS IS USED ONLY FOR SPECIAL ENEMIZE.
003628,000147: 01,2126           00004                           INHINT                                         #  $$$ REMOVE IF FULL RESTARTABILITY ***
003629,000148: 01,2127           05534                           TC       FINDVAC                               
003630,000149: 01,2130     0375                                  EBANK=   FLUSHREG                              
003631,000150: 01,2130           02134 02000                     2CADR    FLUSHLOC                              
003632,000151: 01,2132           00003                           RELINT                                         
003633,000152: 01,2133           15616                           TCF      DUMMYJOB   +2                         #  DONT ZERO NEWJOB
003634,000153: 
003635,000154: 
003636,000155: 
003637,000156: 01,2134           00006        FLUSHLOC           EXTEND                                         #  GO TO SPECIAL ENEMA LOC FOR ROM
003638,000157: 01,2135           30376                           DCA      FLUSHREG                              
003639,000158: 01,2136           52006                           DXCH     Z                                     #  USUALLY THIS WILL BE AN ENDOFJOB
003640,000159: 
003641,000160: 01,2137           00312        OCT312             OCT      312                                   
003642,000161: 01,2140  E3,1400                                  EBANK=   LST1                                  
003643,000162: 01,2140           05605 04003  ENJOBCAD           2CADR    ENDOFJOB                              
003644,000163: 

Page 81

003646,000165:                                                                                                  #           COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
003647,000166: 
003648,000167: 01,2142           05224        GOPROG             TC       BANKCALL                              #  * * * SUBJECT TO A HUGE CHANGE * * *
003649,000168: 01,2143           16055                           CADR     FAKESTRT                              
003650,000169: 01,2144           25360                           INCR     REDOCTR                               
003651,000170: 
003652,000171: 01,2145           31355                           CA       ERESTORE                              
003653,000172: 01,2146           00006                           EXTEND                                         
003654,000173: 01,2147           12161                           BZF      2STARTSB                              
003655,000174: 01,2150           31377                           CA       SKEEP7                                
003656,000175: 01,2151           74547                           MASK     HI5                                   
003657,000176: 01,2152           00006                           EXTEND                                         #  IF SKEEP7 CONTAINS NONSENSE, DO
003658,000177: 01,2153           12155                           BZF      +2                                    #  A FRESH START.  THIS ELIMINATES A CHANCE
003659,000178: 01,2154           12000                           TCF      SLAP1                                 #  OF POSSIBLE COMPUTER LOCKUP.
003660,000179: 
003661,000180: 01,2155           00006                           EXTEND                                         #  RESTORE B(X) AND B(X+1) IF RESTART
003662,000181: 01,2156           31376                           DCA      SKEEP5                                #  HAPPENED WHILE SELF-CHECK HAD REPLACED
003663,000182: 01,2157           51377                           NDX      SKEEP7                                #  THEM WITH CHECKING WORDS.
003664,000183: 01,2160           52001                           DXCH     0000                                  
003665,000184: 
003666,000185: 01,2161           02322        2STARTSB           TC       STARTSUB                              #  COMMON INITIALIZATION ROUTINE
003667,000186: 
003668,000187: 01,2162           32532                           CAF      9,6                                   #  LEAVE PROGRAM ALARM AND GIMBAL LOCK
003669,000188: 01,2163           70326                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON RESTART.
003670,000189: 01,2164           67737                           AD       BIT15                                 
003671,000190: 01,2165           56326                           XCH      DSPTAB     +11D                       
003672,000191: 
003673,000192: 01,2166           77750                           MASK     BIT6                                  
003674,000193: 01,2167           10000                           CCS      A                                     #  IF GIMBAL LOCK LAMP WAS ON, LEAVE ISS IN
003675,000194: 01,2170           37752                           CAF      BIT4                                  #  COARSE ALIGN.
003676,000195: 01,2171           00006                           EXTEND                                         
003677,000196: 01,2172           05012                           WOR      12                                    
003678,000197: 
003679,000198:                                                                                                  #  DAP ZEROES GODAPGO TO BYPASS STARTUP OF DAP AFTER JETABORT UNTIL GROUND
003680,000199: 01,2173           00006                           EXTEND                                         #  SETTING T5RUPT FOR DAPIDLER PROGRAM
003681,000200: 01,2174           32535                           DCA      IDLEADR                               
003682,000201: 01,2175           53001                           DXCH     T5ADR                                 
003683,000202:                                                                                                  #  RESETS GODAPGO.
003684,000203: 01,2176           35676                           CAF      PRIO37                                #  DISPLAY FAILREG AS INDICATION OF RESTART
003685,000204: 01,2177           05523                           TC       NOVAC                                 #  OR TO DISPLAY ABORT CODE AS ABOVE.
003686,000205: 01,2200  E3,1400                                  EBANK=   LST1                                  
003687,000206: 01,2200           02063 16003                     2CADR    DOALARM                               
003688,000207: 01,2202           00006        LIGHTSET           EXTEND                                         #  DONT TRY TO RESTART IF ERROR
003689,000208: 01,2203           00015                           READ     15                                    #  AND MARK REJECT BUTTONS DEPRESSED.
003690,000209: 01,2204           62525                           AD       -ELR                                  
003691,000210: 01,2205           00006                           EXTEND                                         
003692,000211: 01,2206           12210                           BZF      +2                                    
003693,000212: 01,2207           12216                           TCF      +7                                    
003694,000213: 
003695,000214: 01,2210           37751                           CAF      BIT5                                  
003696,000215: 

Page 82

003698,000217: 01,2211           00006                           EXTEND                                         
003699,000218: 01,2212           02016                           RAND     16                                    
003700,000219: 01,2213           62526                           AD       -MKREJ                                
003701,000220: 01,2214           00006                           EXTEND                                         
003702,000221: 01,2215           12021                           BZF      DOFSTART                              
003703,000222: 
003704,000223: 01,2216           40346                           CS       T4LOC                                 #  SEE IF LMP COMMAND WAS SITTING IN CH 10
003705,000224: 01,2217           62521                           AD       LLMPRS2                               #  WHEN RESTART OCCURRED. IF SO, SET BIT 15
003706,000225: 
003707,000226: 01,2220           00006                           EXTEND                                         #  BACK TO ZERO SO THE COMMAND WILL BE
003708,000227: 01,2221           12230                           BZF      LMPRUPT                               #  RESENT.
003709,000228: 
003710,000229: 01,2222           11144                           CCS      LMPOUTT                               #  IF NOT, SEE IF UPDATE OF REFERENCE
003711,000230: 01,2223           67755                           AD       ONE                                   #  POINTER (LMPOUT) WAS IN PROCESS. IF SO,
003712,000231: 01,2224           55143                           TS       LMPOUT                                #  LMPOUTT IS NON-NEGATIVE.
003713,000232: 01,2225           47755                           CS       ONE                                   #  SHOW LMPOUT UPDATED.
003714,000233: 01,2226           55144                           TS       LMPOUTT                               
003715,000234: 01,2227           12236                           TCF      T4LOCRST                              
003716,000235: 
003717,000236: 01,2230           47737        LMPRUPT            CS       BIT15                                 #  CANT USE ADS HERE SINCE CODING MUST BE
003718,000237: 01,2231           51143                           INDEX    LMPOUT                                #  REPEATABLE (RESTART DURING RESTART, ETC)
003719,000238: 01,2232           71132                           MASK     LMPCMD                                
003720,000239: 01,2233           67737                           AD       BIT15                                 
003721,000240: 01,2234           51143                           INDEX    LMPOUT                                
003722,000241: 01,2235           55132                           TS       LMPCMD                                
003723,000242: 
003724,000243: 01,2236           34265        T4LOCRST           CAF      LNORMT4                               
003725,000244: 01,2237           54346                           TS       T4LOC                                 
003726,000245: 
003727,000246: 01,2240           37760                 -1        CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENT.
003728,000247: 01,2241           54151        PCLOOP             TS       MPAC       +5                         
003729,000248: 01,2242           60000                           DOUBLE                                         
003730,000249: 
003731,000250: 01,2243           00006                           EXTEND                                         
003732,000251: 01,2244           50000                           INDEX    A                                     
003733,000252: 01,2245           31100                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
003734,000253: 01,2246           00006                           EXTEND                                         
003735,000254: 01,2247           06001                           RXOR     L                                     #  RESULT MUST BE -0 FOR AGREEMENT.
003736,000255: 01,2250           10000                           CCS      A                                     
003737,000256: 01,2251           12310                           TCF      PTBAD                                 #  RESTART FAILURE.
003738,000257: 01,2252           12310                           TCF      PTBAD                                 
003739,000258: 01,2253           12310                           TCF      PTBAD                                 
003740,000259: 
003741,000260: 01,2254           10151                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
003742,000261: 01,2255           12241                           TCF      PCLOOP                                
003743,000262: 
003744,000263: 01,2256           54152                           TS       MPAC       +6                         #  SET TO +0.
003745,000264: 01,2257           02267                           TC       NXTRST     -1                         #  * * * BYPASS 77 CHECK FOR NOW
003746,000265: 01,2260           31111                           CA       -PHASE6                               #  TEST TO SEE IF IT IS A PLANNED NO RESTAR
003747,000266: 01,2261           62264                           AD       OCT77                                 #  T RESTART
003748,000267: 01,2262           10000                           CCS      A                                     
003749,000268: 01,2263           12267                           TCF      +4                                    #  A NORMAL RESTART
003750,000269: 

Page 83

003752,000271: 01,2264           00077        OCT77              OCT      77                                    #  CAN:T GET HERE
003753,000272: 01,2265           12267                           TCF      +2                                    #  A NORMAL RESTART
003754,000273: 01,2266           12267                           TCF      +1                                    #  THIS MAY GO TO FORGETIT IF EVER USED
003755,000274: 
003756,000275: 01,2267           37760                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
003757,000276: 01,2270           54151        NXTRST             TS       MPAC       +5                         
003758,000277: 01,2271           60000                           DOUBLE                                         
003759,000278: 01,2272           50000                           INDEX    A                                     
003760,000279: 01,2273           11100                           CCS      PHASE1                                
003761,000280: 01,2274           12276                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
003762,000281: 01,2275           12303                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
003763,000282: 
003764,000283: 01,2276           54144        PACTIVE            TS       MPAC                                  
003765,000284: 01,2277           24144                           INCR     MPAC                                  #  ABS OF PHASE.
003766,000285: 
003767,000286: 01,2300           24152                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
003768,000287: 01,2301           32313                           CA       RACTCADR                              #  GO TO RESTARTS AND PROCESS PHASE INFO.
003769,000288: 01,2302           05230                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
003770,000289: 
003771,000290: 01,2303           10151        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
003772,000291: 01,2304           12270                           TCF      NXTRST                                
003773,000292: 
003774,000293: 01,2305           10152        TSTMPAC6           CCS      MPAC       +6                         #  IF NO GROUPS ACTIVE THIS REQUEST, DO A
003775,000294: 01,2306           12315                           TCF      DORSTART                              
003776,000295: 01,2307           12021                           TCF      DOFSTART                              #  FRESH START
003777,000296: 
003778,000297: 01,2310           32314        PTBAD              CAF      OCT1107                               #  SET ADDITIONAL FAILURE TO SHOW PHASE
003779,000298: 01,2311           55361                           TS       SFAIL                                 #  TABLE DISAGREEMENT (WILL BE DISPLAYED
003780,000299: 01,2312           12021                           TCF      DOFSTART                              #  IN R2).
003781,000300: 
003782,000301: 01,2313           14132        RACTCADR           CADR     RESTARTS                              
003783,000302: 01,2314           01107        OCT1107            OCT      1107                                  #  ADDITIONAL ALARM CODE.
003784,000303: 
003785,000304: 01,2315           32514        DORSTART           CAF      IFAILINH                              #  LEAVE IMU FAILURE INHIBITS INTACT ON
003786,000305: 01,2316           70365                           MASK     IMODES30                              #  RESTART, RESETTING ALL FAILURE CODES.
003787,000306: 01,2317           62530                           AD       IM30INIR                              
003788,000307: 01,2320           54365                           TS       IMODES30                              
003789,000308: 
003790,000309: 01,2321           12115                           TCF      ENDRSTRT                              
003791,000310: 

Page 84

003793,000312:                                                                                                  #           INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
003794,000313: 01,2322  E7,1401                                  EBANK=   DNTMGOTO                              #  DO PORTION OF FRESH START NOT DONE
003795,000314: 01,2322           32516        STARTSUB           CAF      LDNTMGO                               #  BY POO.
003796,000315: 01,2323           54003                           TS       EBANK                                 #  SET UP TM PROGRAM.
003797,000316: 
003798,000317: 01,2324           32515                           CAF      LDNPHAS1                              
003799,000318: 01,2325           55401                           TS       DNTMGOTO                              
003800,000319: 
003801,000320: 01,2326           56002        STARTSB2           XCH      Q                                     #  ENTRY FROM POO.
003802,000321: 01,2327           54120                           TS       BUF                                   #  EXEC TEMPS ARE AVAILABLE TO US.
003803,000322: 
003804,000323: 01,2330           37761                           CAF      ZERO                                  #  ZERO OUTBITS WITHIN 3MS OF RESTART.
003805,000324: 01,2331           00006                           EXTEND                                         
003806,000325: 01,2332           01012                           WRITE    12                                    
003807,000326: 01,2333           00006                           EXTEND                                         
003808,000327: 01,2334           01014                           WRITE    14                                    
003809,000328: 01,2335           00006                           EXTEND                                         
003810,000329: 01,2336           01011                           WRITE    11                                    
003811,000330: 01,2337           55355                           TS       ERESTORE                              #       ERASCHK RESTORE FLAG
003812,000331: 
003813,000332: 01,2340           00006                           EXTEND                                         #  USE FIRST 8 OF 12 SUPER-BANKS (ADD PROG
003814,000333: 01,2341           01007                           WRITE    7                                     #  WHEN LAST FOUR ARE NEEDED). PROBABLY V37
003815,000334: 01,2342           35673                           CAF      PRIO34                                #  ENABLE INTERRUPTS.
003816,000335: 01,2343           00006                           EXTEND                                         
003817,000336: 01,2344           01013                           WRITE    13                                    
003818,000337: 
003819,000338: 01,2345           37735                           CAF      POSMAX                                #  T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
003820,000339: 01,2346           54030                           TS       TIME5                                 #  SO DOES T5.
003821,000340: 01,2347           54026                           TS       TIME3                                 #    (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
003822,000341: 01,2350           54027                           TS       TIME4                                 #    CASE RUPT SIGNALLED BEFORE TS TIME3).
003823,000342: 
003824,000343: 01,2351  E3,1400                                  EBANK=   LST1                                  
003825,000344: 01,2351           32524                           CAF      STARTEB                               
003826,000345: 01,2352           54003                           TS       EBANK                                 #  SET FOR E3
003827,000346: 
003828,000347: 01,2353           37736                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
003829,000348: 01,2354           55407                           TS       LST1       +7                         
003830,000349: 01,2355           55406                           TS       LST1       +6                         
003831,000350: 01,2356           55405                           TS       LST1       +5                         
003832,000351: 01,2357           55404                           TS       LST1       +4                         
003833,000352: 01,2360           55403                           TS       LST1       +3                         
003834,000353: 01,2361           55402                           TS       LST1       +2                         
003835,000354: 01,2362           55401                           TS       LST1       +1                         
003836,000355: 
003837,000356: 01,2363           55400                           TS       LST1                                  
003838,000357: 
003839,000358: 01,2364           45732                           CS       ENDTASK                               
003840,000359: 01,2365           55410                           TS       LST2                                  
003841,000360: 01,2366           55412                           TS       LST2       +2                         
003842,000361: 01,2367           55414                           TS       LST2       +4                         
003843,000362: 01,2370           55416                           TS       LST2       +6                         
003844,000363: 

Page 85

003846,000365: 01,2371           55420                           TS       LST2       +8D                        
003847,000366: 01,2372           55422                           TS       LST2       +10D                       
003848,000367: 
003849,000368: 01,2373           55424                           TS       LST2       +12D                       
003850,000369: 01,2374           55426                           TS       LST2       +14D                       
003851,000370: 01,2375           55430                           TS       LST2       +16D                       
003852,000371: 01,2376           45733                           CS       ENDTASK    +1                         
003853,000372: 01,2377           55411                           TS       LST2       +1                         
003854,000373: 01,2400           55413                           TS       LST2       +3                         
003855,000374: 01,2401           55415                           TS       LST2       +5                         
003856,000375: 01,2402           55417                           TS       LST2       +7                         
003857,000376: 01,2403           55421                           TS       LST2       +9D                        
003858,000377: 01,2404           55423                           TS       LST2       +11D                       
003859,000378: 01,2405           55425                           TS       LST2       +13D                       
003860,000379: 01,2406           55427                           TS       LST2       +15D                       
003861,000380: 01,2407           55431                           TS       LST2       +17D                       
003862,000381: 
003863,000382: 01,2410           47761                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
003864,000383: 01,2411           54157                           TS       PRIORITY                              #  AVAILABLE.
003865,000384: 01,2412           54173                           TS       PRIORITY   +12D                       
003866,000385: 01,2413           54207                           TS       PRIORITY   +24D                       
003867,000386: 01,2414           54223                           TS       PRIORITY   +36D                       
003868,000387: 01,2415           54237                           TS       PRIORITY   +48D                       
003869,000388: 01,2416           54253                           TS       PRIORITY   +60D                       
003870,000389: 01,2417           54267                           TS       PRIORITY   +72D                       
003871,000390: 
003872,000391: 01,2420           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
003873,000392: 
003874,000393: 01,2421           32522                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
003875,000394: 01,2422           54431                           TS       VAC1USE                               
003876,000395: 01,2423           62523                           AD       LTHVACA                               
003877,000396: 01,2424           54505                           TS       VAC2USE                               
003878,000397: 01,2425           62523                           AD       LTHVACA                               
003879,000398: 01,2426           54561                           TS       VAC3USE                               
003880,000399: 01,2427           62523                           AD       LTHVACA                               
003881,000400: 01,2430           54635                           TS       VAC4USE                               
003882,000401: 01,2431           62523                           AD       LTHVACA                               
003883,000402: 01,2432           54711                           TS       VAC5USE                               
003884,000403: 
003885,000404: 01,2433           34557                           CAF      TEN                                   #  TURN OFF ALL DISPLAY SYSTEM RELAYS.
003886,000405: 01,2434           54350                           TS       DIDFLG                                #  DISPLAY INERTIAL DATA FLAG.
003887,000406: 01,2435           54144        DSPOFF             TS       MPAC                                  
003888,000407: 01,2436           47742                           CS       BIT12                                 
003889,000408: 01,2437           50144                           INDEX    MPAC                                  
003890,000409: 01,2440           54313                           TS       DSPTAB                                
003891,000410: 01,2441           10144                           CCS      MPAC                                  
003892,000411: 01,2442           02435                           TC       DSPOFF                                
003893,000412: 
003894,000413: 01,2443           54045                           TS       INLINK                                
003895,000414: 01,2444           54345                           TS       DSPCNT                                
003896,000415: 
003897,000416: 01,2445           54327                           TS       CADRSTOR                              
003898,000417: 

Page 86

003900,000419: 01,2446           54304                           TS       REQRET                                
003901,000420: 01,2447           54306                           TS       CLPASS                                
003902,000421: 01,2450           54303                           TS       DSPLOCK                               
003903,000422: 01,2451           54311                           TS       MONSAVE                               #  KILL MONITOR
003904,000423: 01,2452           54312                           TS       MONSAVE1                              
003905,000424: 01,2453           54330                           TS       GRABLOCK                              
003906,000425: 01,2454           54272                           TS       VERBREG                               
003907,000426: 01,2455           54273                           TS       NOUNREG                               
003908,000427: 
003909,000428: 01,2456           54333                           TS       DSPLIST                               
003910,000429: 01,2457           54334                           TS       DSPLIST    +1                         
003911,000430: 01,2460           54335                           TS       DSPLIST    +2                         
003912,000431: 
003913,000432: 01,2461           54373                           TS       MARKSTAT                              
003914,000433: 01,2462           54336                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
003915,000434: 01,2463           54367                           TS       IMUCADR                               
003916,000435: 01,2464           54370                           TS       OPTCADR                               
003917,000436: 01,2465           54371                           TS       RADCADR                               
003918,000437: 01,2466           54372                           TS       ATTCADR                               
003919,000438: 01,2467           54765                           TS       PHASENUM                              
003920,000439: 01,2470           54356                           TS       LGYRO                                 
003921,000440: 01,2471           54347                           TS       DSRUPTSW                              
003922,000441: 01,2472           37756                           CAF      NOUTCON                               
003923,000442: 01,2473           54307                           TS       NOUT                                  
003924,000443: 
003925,000444: 01,2474           47755                           CS       ONE                                   #  NO RADAR DESIGNATION.
003926,000445: 01,2475           54414                           TS       SAMPLIM                               #  NO RADAR RUPTS EXPECTED.
003927,000446: 
003928,000447: 01,2476           32531                           CAF      IM33INIT                              #  NO PIP OR TM FAILS.
003929,000448: 01,2477           54366                           TS       IMODES33                              
003930,000449: 
003931,000450: 01,2500           37750                           CAF      BIT6                                  #  SET LR POS.
003932,000451: 01,2501           00006                           EXTEND                                         
003933,000452: 01,2502           02033                           RAND     33                                    
003934,000453: 01,2503           62533                           AD       RMODINIT                              
003935,000454: 01,2504           54413                           TS       RADMODES                              
003936,000455: 
003937,000456: 01,2505           32520                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
003938,000457: 01,2506           55356                           TS       SELFRET                               
003939,000458: 01,2507           44554                           CS       VD1                                   
003940,000459: 01,2510           54270                           TS       DSPCOUNT                              
003941,000460: 
003942,000461: 01,2511           32517                           CAF      NOMTMLST                              #  SET UP NOMINAL DOWNLINK LIST.
003943,000462: 01,2512           54411                           TS       DNLSTADR                              
003944,000463: 
003945,000464: 01,2513           00120                           TC       BUF                                   
003946,000465: 
003947,000466: 01,2514           00035        IFAILINH           OCT      35                                    #  ISS FAILURE INHIBIT BITS.
003948,000467: 01,2515           02124        LDNPHAS1           GENADR   DNPHASE1                              
003949,000468: 01,2516           03401        LDNTMGO            ECADR    DNTMGOTO                              
003950,000469: 01,2517           02354        NOMTMLST           GENADR   NOMDNLST                              
003951,000470: 

Page 87

003953,000472: 01,2520           02102        LESCHK             GENADR   SELFCHK                               
003954,000473: 01,2521           02013        LLMPRS2            GENADR   LMPRESET                              
003955,000474: 01,2522           00431        VAC1ADRC           ADRES    VAC1USE                               
003956,000475: 01,2523           00054        LTHVACA            DEC      44         B-14                       
003957,000476: 
003958,000477: 01,2524           01400        STARTEB            ECADR    LST1                                  
003959,000478: 01,2525     7760               NUMGRPS            EQUALS   FIVE                                  #  SIX GROUPS CURRENTLY.
003960,000479: 
003961,000480:                                                                                                  #           WHERE TO GO ON RESTART IF TERMINATE REQUESTED.
003962,000481: 
003963,000482: 01,2525           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
003964,000483: 01,2526           77757        -MKREJ             OCT      -20                                   #  - MARK REJECT.
003965,000484: 01,2527           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
003966,000485: 01,2530           37400        IM30INIR           OCT      37400                                 #  LEAVE FAIL INHIBITS ALONE.
003967,000486: 
003968,000487: 01,2531           16000        IM33INIT           OCT      16000                                 #  NO PIP OR TM FAIL SIGNALS.
003969,000488: 01,2532           00440        9,6                OCT      440                                   #  MASK FOR PROG ALARM AND GIMBAL LOCK.
003970,000489: 01,2533           00102        RMODINIT           OCT      00102                                 
003971,000490: 
003972,000491: 01,2534  E6,1541                                  EBANK=   DT                                    
003973,000492: 01,2534           02136 34006  IDLEADR            2CADR    DAPIDLER                              
003974,000493: 01,2536  E6,1541                                  EBANK=   DT                                    
003975,000494: 01,2536           03620 34006  SETADR             2CADR    SETIDLE                               
003976,000495: 
003977,000496: 01,2540           00000        SWINIT             OCT      0                                     
003978,000497: 01,2541           00000                           OCT      0                                     
003979,000498: 01,2542           00005                           OCT      00005                                 
003980,000499: 01,2543           44516                           OCT      44516                                 #  INIT FOR DAPBOOLS. DB SET IN SETIDLE.
003981,000500: 01,2544           00000                           OCT      0                                     
003982,000501: 01,2545           00000                           OCT      0                                     
003983,000502: 01,2546           00000                           OCT      0                                     
003984,000503: 01,2547           00000                           OCT      0                                     
003985,000504: 

Page 88

003987,000506:                                                                                                  #  PROGRAM TO REVERT TO IDLING MODE (P 00).
003988,000507: 
003989,000508:                                                                                                  #  CALLING SEQUENCE:  TC (OR TCF)   POOH     UNDER EXEC (NOT INTERRUPTED).
003990,000509: 
003991,000510:    4261                                           BLOCK    02                                    
003992,000511:    4261           05243        POOH               TC       POSTJUMP                              
003993,000512:    4262           02550                           CADR     POOH2                                 #  DO A PARTIAL FRESH START.
003994,000513: 
003995,000514: 
003996,000515: 01,2550                                           BANK     01                                    
003997,000516: 
003998,000517: 01,2550           00004        POOH2              INHINT                                         
003999,000518: 01,2551           02326                           TC       STARTSB2                              #  DOESN'T CLOBBER DOWNLINK.
004000,000519: 
004001,000520: 01,2552           06045                           TC       FLAG2DWN                              
004002,000521: 01,2553           00020                           OCT      20                                    #  TURN OFF MISSION TIMER FLAG
004003,000522: 
004004,000523:                                                                                                  #    ***** HERE WE SHOULD RESET STATE REGISTERS, DEAL WITH DAP, ETC. *****
004005,000524: 
004006,000525: 01,2554           32556                           CA       LPOOH3                                #  PICK UP RETURN FOR MSTART.
004007,000526: 01,2555           05174                           TC       MSTART     -1                         #  START MISSION TIMERS COUNTING.
004008,000527:                                                                                                  #  WE GET A RELINT AT MSTART.
004009,000528: 
004010,000529: 
004011,000530: 01,2556           02061        LPOOH3             ADRES    POOH3                                 
004012,000531: 07,2000                                           BANK     7                                     
004013,000532: 
004014,000533: 07,2000           00004        FORGETIT           INHINT                                         #  THIS IS ALSO DOV74
004015,000534: 07,2001           00006                           EXTEND                                         
004016,000535: 07,2002           32047                           DCA      KILLCAD                               
004017,000536: 07,2003           53075                           DXCH     DVMNEXIT                              
004018,000537: 
004019,000538: 07,2004           00006                           EXTEND                                         
004020,000539: 07,2005           32045                           DCA      CADAVER                               
004021,000540: 07,2006           53073                           DXCH     AVGEXIT                               
004022,000541: 
004023,000542: 07,2007           32050                           CAF      PINGSMON                              
004024,000543: 07,2010           55322                           TS       DVSELECT                              
004025,000544: 
004026,000545: 07,2011           06071                           TC       ENGINOFF                              
004027,000546: 
004028,000547: 07,2012           42051                           CS       BGIMBALS                              #  TURN OFF TRIM GIMBALS
004029,000548: 07,2013           00006                           EXTEND                                         
004030,000549: 07,2014           03012                           WAND     12                                    
004031,000550: 
004032,000551: 07,2015           00004        ENEMA              INHINT                                         
004033,000552: 07,2016           37761                           CAF      ZERO                                  #  MAKE INACTIVE ALL RESTART PHASES
004034,000553: 07,2017           55100                           TS       PHASE1                                #  EXCEPT SERVICER
004035,000554: 

Page 89

004037,000556: 07,2020           55102                           TS       PHASE2                                
004038,000557: 07,2021           55104                           TS       PHASE3                                
004039,000558: 
004040,000559: 07,2022           55106                           TS       PHASE4                                
004041,000560: 07,2023           55112                           TS       PHASE6                                
004042,000561: 
004043,000562: 07,2024           40000                           COM                                            
004044,000563: 07,2025           55077                           TS       -PHASE1                               
004045,000564: 07,2026           55101                           TS       -PHASE2                               
004046,000565: 07,2027           55103                           TS       -PHASE3                               
004047,000566: 07,2030           55105                           TS       -PHASE4                               
004048,000567: 07,2031           55111                           TS       -PHASE6                               
004049,000568: 
004050,000569: 07,2032           55176                           TS       MPHASE1                               #  SET TIMER/PHASE PAIRS TO IDLE STATE
004051,000570: 07,2033           55175                           TS       MPHASE2                               
004052,000571: 07,2034           55174                           TS       MPHASE3                               
004053,000572: 07,2035           55173                           TS       MPHASE4                               
004054,000573: 07,2036           55167                           TS       MTIMER4                               
004055,000574: 07,2037           55170                           TS       MTIMER3                               
004056,000575: 07,2040           55171                           TS       MTIMER2                               
004057,000576: 07,2041           55172                           TS       MTIMER1                               
004058,000577: 
004059,000578:                                                                                                  #  START TASK TO RESET LMP COMMANDS HERE AND OTHER CLEANUP PROBLEMS
004060,000579: 07,2042           05243                           TC       POSTJUMP                              
004061,000580: 07,2043           02145                           CADR     GOPROG     +3                         
004062,000581: 
004063,000582: 07,2044  E3,1400                                  EBANK=   LST1                                  
004064,000583: 07,2044           02312 60063  CADAVER            2CADR    SERVEXIT                              
004065,000584: 
004066,000585: 07,2046  E3,1400                                  EBANK=   LST1                                  
004067,000586: 07,2046           02052 16003  KILLCAD            2CADR    AVEGKILL                              
004068,000587: 
004069,000588: 07,2050           02156        PINGSMON           GENADR   PGNCSMON                              
004070,000589: 07,2051           07400        BGIMBALS           OCT      7400                                  
004071,000590: 
004072,000591: 07,2052           06036        AVEGKILL           TC       FLAG1DWN                              #  COMES HERE WHEN ENGINE OFF
004073,000592: 07,2053           00001                           OCT      1                                     
004074,000593:                                                                                                  #  SERVICER GOES TO POOH AND ENABLES TIMERS AT DEAD END.  ALL PROGRAMS MUSTTURN OFF PIPAS AT END OF MISSION PHASE
004075,000594: 07,2054           15605                           TCF      ENDOFJOB                              
004076,000595: 
004077,000596: 07,2055           25360        FAKESTRT           INCR     REDOCTR                               #  FAKESTRT ALARM
004078,000597: 07,2056           04744                           TC       ALARM                                 
004079,000598: 07,2057           00316                           OCT      0316                                  
004080,000599: 
004081,000600: 07,2060           12000                           TCF      FORGETIT                              
004082,000601: 
004083,000602: 07,2061  07,2000               DOV74              EQUALS   FORGETIT                              

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