Source Code

   YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS       BY MSTEWART JUN. 28,2017
This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations.

005443,000002:                                                                                                  ## Copyright:   Public domain.
005444,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
005445,000004:                                                                                                  ## Purpose:     This program is designed to extensively test the Apollo Guidance Computer
005446,000005:                                                                                                  ##              (specifically the LM instantiation of it). It is built on top of a heavily
005447,000006:                                                                                                  ##              stripped-down Aurora 12, with all code ostensibly added by the DAP Group
005448,000007:                                                                                                  ##              removed. Instead Borealis expands upon the tests provided by Aurora,
005449,000008:                                                                                                  ##              including corrected tests from Retread 44 and tests from Ron Burkey's
005450,000009:                                                                                                  ##              Validation.
005451,000010:                                                                                                  ## Assembler:   yaYUL
005452,000011:                                                                                                  ## Contact:     Mike Stewart <mastewar1@gmail.com>.
005453,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
005454,000013:                                                                                                  ## Mod history: 2016-12-20 MAS  Created from Aurora 12 (with much DAP stuff removed).
005455,000014:                                                                                                  ##              2016-12-22 MAS  Added the hardware alarm test restart group.
005456,000015:                                                                                                  ##              2017-01-04 MAS  Added init/checking of ERESTORE for the updated
005457,000016:                                                                                                  ##                              erasable check from Sunburst.
005458,000017:                                                                                                  ##              2017-01-27 MAS  Added an instruction I missed pulling from Sunburst.
005459,000018: 
005460,000019: 12,2000                                           BANK     12                                    
005461,000020: 12,2000  E3,1400                                  EBANK=   LST1                                  
005462,000021: 
005463,000022: 12,2000           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
005464,000023: 12,2001           02212                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
005465,000024: 
005466,000025: 12,2002           37653                           CAF      BIT15                                 #  TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
005467,000026: 12,2003           54322                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
005468,000027: 
005469,000028: 12,2004           37675                           CAF      ZERO                                  #  SAME STORY ON ZEROING FAILREG.
005470,000029: 12,2005           55363                           TS       FAILREG                               
005471,000030: 
005472,000031: 12,2006           37675        DOFSTART           CAF      ZERO                                  #  DO A FRESH START,
005473,000032: 12,2007           55361                           TS       SMODE                                 
005474,000033: 12,2010           55111                           TS       ERESTORE                              #  Added from Sunburst.
005475,000034: 12,2011           54276                           TS       MODREG                                
005476,000035: 12,2012           54412                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION
005477,000036: 12,2013           54342                           TS       UPLOCK                                #  FREE UPLINK INTERLOCK
005478,000037: 12,2014           55113                           TS       T4TEMP                                
005479,000038: 
005480,000039: 12,2015           54032                           TS       CDUX                                  #  ZERO CDUS SO MATRIX COMPUTATION IN T4
005481,000040: 12,2016           54033                           TS       CDUY                                  #  WONT OVERFLOW.
005482,000041: 12,2017           54034                           TS       CDUZ                                  
005483,000042: 
005484,000043: 12,2020           55072                           TS       PHASE0                                #  INITIALIZE PHASE TABLE - NO MISSION
005485,000044: 12,2021           55074                           TS       PHASE1                                #  PROGRAMS RUNNING.
005486,000045: 12,2022           55076                           TS       PHASE2                                
005487,000046: 12,2023           55100                           TS       PHASE3                                
005488,000047: 12,2024           55102                           TS       PHASE4                                
005489,000048: 12,2025           55104                           TS       PHASE5                                
005490,000049: 
005491,000050: 12,2026           40000                           COM                                            
005492,000051: 12,2027           55071                           TS       -PHASE0                               
005493,000052: 12,2030           55073                           TS       -PHASE1                               
005494,000053: 12,2031           55075                           TS       -PHASE2                               
005495,000054: 12,2032           55077                           TS       -PHASE3                               
005496,000055: 12,2033           55101                           TS       -PHASE4                               
005497,000056: 12,2034           55103                           TS       -PHASE5                               
005498,000057: 
005499,000058: 12,2035           32431                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
005500,000059: 12,2036           54367                           TS       IMODES30                              
005501,000060: 
005502,000061: 12,2037           37660                           CAF      BIT10                                 #  REMOVE IMU FAIL INHIBIT IN 5 SECS.
005503,000062: 12,2040           04517                           TC       WAITLIST                              
005504,000063: 12,2041           02247 26003                     2CADR    IFAILOK                               
005505,000064: 
005506,000065: 12,2043           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
005507,000066: 12,2044           32437                           DCA      SWINIT                                
005508,000067: 12,2045           52062                           DXCH     STATE                                 
005509,000068: 12,2046           00006                           EXTEND                                         
005510,000069: 12,2047           32441                           DCA      SWINIT     +2                         
005511,000070: 12,2050           52064                           DXCH     STATE      +2                         
005512,000071: 
005513,000072: 12,2051           37664        ENDRSTRT           CAF      BIT6                                  #  IF GIMBAL LOCK LAMP IS STILL ON,
005514,000073: 12,2052           70322                           MASK     DSPTAB     +11D                       #  IMU WAS FOUND IN GIMBAL LOCK IN RESTART
005515,000074: 12,2053           10000                           CCS      A                                     #  AND LEFT IN COARSE ALIGN. IN THIS CASE
005516,000075: 12,2054           47661                           CS       BIT9                                  #  SET ISS OPERATE BIT IN IMODES30 TO
005517,000076: 12,2055           26367                           ADS      IMODES30                              #  OPERATE SO T4 INBIT MONITOR WONT ZERO
005518,000077: 
005519,000078: 12,2056           00003                           RELINT                                         #  THE CDUS AS IT DOES IN FRESH START.
005520,000079: 12,2057           04065                           TC       BANKCALL                              #  DISPLAY MAJOR MODE.
005521,000080: 12,2060           12001                           CADR     DSPMM                                 
005522,000081: 
005523,000082: 12,2061           14433        STARTSW            TCF      DUMMYJOB   +2                         #  PATCH FOR SIMULATION.
005524,000083: 
005525,000084: 12,2062           37654        STARTSIM           CAF      BIT14                                 
005526,000085: 12,2063           04355                           TC       FINDVAC                               
005527,000086: 12,2064           77777                           OCT      77777                                 #  FATAL IF NOT PATCHED AS ABOVE.
005528,000087: 12,2065           77777                           OCT      77777                                 
005529,000088: 
005530,000089: 12,2066           14433                           TCF      DUMMYJOB   +2                         #  DONT ZERO NEWJOB
005531,000090: 
005532,000091:                                                                                                  #           COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
005533,000092: 
005534,000093: 12,2067           25362        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
005535,000094: 
005536,000095: 12,2070           02212                           TC       STARTSUB                              #  COMMON INITIALIZATION ROUTINE.
005537,000096: 
005538,000097: 12,2071           32434                           CAF      9,6                                   #  LEAVE PROGRAM ALARM AND GIMBAL LOCK
005539,000098: 12,2072           70322                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON RESTART.
005540,000099: 12,2073           67653                           AD       BIT15                                 
005541,000100: 12,2074           56322                           XCH      DSPTAB     +11D                       
005542,000101: 12,2075           77664                           MASK     BIT6                                  
005543,000102: 12,2076           10000                           CCS      A                                     #  IF GIMBAL LOCK LAMP WAS ON, LEAVE ISS IN
005544,000103: 12,2077           37666                           CAF      BIT4                                  #  COARSE ALIGN.
005545,000104: 12,2100           00006                           EXTEND                                         
005546,000105: 12,2101           05012                           WOR      12                                    
005547,000106: 
005548,000107: 12,2102           34516                           CAF      PRIO37                                #  DISPLAY FAILREG AS INDICATION OF RESTART
005549,000108: 12,2103           04344                           TC       NOVAC                                 #  OR TO DISPLAY ABORT CODE AS ABOVE.
005550,000109: 12,2104           03010 02003                     2CADR    DOALARM                               
005551,000110: 12,2106           00006                           EXTEND                                         #  DONT TRY TO RESTART IF ERROR LIGHT RESET
005552,000111: 12,2107           00015                           READ     15                                    #  AND MARK REJECT BUTTONS DEPRESSED.
005553,000112: 12,2110           62427                           AD       -ELR                                  
005554,000113: 12,2111           00006                           EXTEND                                         
005555,000114: 12,2112           12114                           BZF      +2                                    
005556,000115: 12,2113           12126                           TCF      PCLOOP     -1                         #  VERIFY PHASE TABLE.
005557,000116: 
005558,000117:                                                                                                  #  This check is pulled back from Sunburst.
005559,000118: 12,2114           31111                           CA       ERESTORE                              #  IF SELF-CHECK ERASABLE-MEMORY TEST WAS
005560,000119: 12,2115           00006                           EXTEND                                         #  INTERRUPTED BY A RESTART, DOUBT ERASABLE
005561,000120: 12,2116           12120                           BZF      +2                                    #  AND DO A FRESH START.
005562,000121: 12,2117           12006                           TCF      DOFSTART                              
005563,000122: 
005564,000123: 12,2120           37665                           CAF      BIT5                                  
005565,000124: 12,2121           00006                           EXTEND                                         
005566,000125: 12,2122           02016                           RAND     16                                    
005567,000126: 12,2123           62430                           AD       -MKREJ                                
005568,000127: 12,2124           00006                           EXTEND                                         
005569,000128: 12,2125           12006                           BZF      DOFSTART                              
005570,000129: 
005571,000130: 12,2126           37674                 -1        CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENT.
005572,000131: 12,2127           54145        PCLOOP             TS       MPAC       +5                         
005573,000132: 12,2130           60000                           DOUBLE                                         
005574,000133: 12,2131           00006                           EXTEND                                         
005575,000134: 12,2132           50000                           INDEX    A                                     
005576,000135: 12,2133           31072                           DCA      -PHASE0                               #  COMPLEMENT INTO A - DIRECT INTO L.
005577,000136: 12,2134           00006                           EXTEND                                         
005578,000137: 12,2135           06001                           RXOR     L                                     #  RESULT MUST BE -0 FOR AGREEMENT.
005579,000138: 12,2136           10000                           CCS      A                                     
005580,000139: 12,2137           12201                           TCF      PTBAD                                 #  RESTART FAILURE.
005581,000140: 12,2140           12201                           TCF      PTBAD                                 
005582,000141: 12,2141           12201                           TCF      PTBAD                                 
005583,000142: 12,2142           10145                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
005584,000143: 12,2143           12127                           TCF      PCLOOP                                
005585,000144: 
005586,000145: 12,2144           54146                           TS       MPAC       +6                         #  SET TO +0.
005587,000146: 12,2145           37674                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
005588,000147: 12,2146           54145        NXTRST             TS       MPAC       +5                         
005589,000148: 12,2147           60000                           DOUBLE                                         
005590,000149: 12,2150           50000                           INDEX    A                                     
005591,000150: 12,2151           11072                           CCS      PHASE0                                
005592,000151: 12,2152           12175                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
005593,000152: 12,2153           12170                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
005594,000153: 
005595,000154: 12,2154           54140        PTERM              TS       MPAC                                  #  NNZ - TERMINATE REQUEST.
005596,000155: 12,2155           50145                           INDEX    MPAC       +5                         #  PICK UP RESTART TERMINATE CADR.
005597,000156: 12,2156           32421                           CAF      RTERMCAD                              
005598,000157: 
005599,000158: 12,2157           54001        PACT2              TS       L                                     
005600,000159: 12,2160           24140                           INCR     MPAC                                  #  ABS OF PHASE.
005601,000160: 12,2161           46025                           CS       LOW7                                  #  SEE THAT MAG IS LESS THAN 128.
005602,000161: 12,2162           70140                           MASK     MPAC                                  
005603,000162: 12,2163           10000                           CCS      A                                     
005604,000163: 12,2164           12201                           TCF      PTBAD                                 #  BAD DATA.
005605,000164: 
005606,000165: 12,2165           24146                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
005607,000166: 12,2166           30001                           CA       L                                     
005608,000167: 12,2167           04071                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
005609,000168: 
005610,000169: 12,2170           10145        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
005611,000170: 12,2171           12146                           TCF      NXTRST                                
005612,000171: 
005613,000172: 12,2172           10146        TSTMPAC6           CCS      MPAC       +6                         #  IF NO GROUPS ACTIVE THIS REQUEST, DO A
005614,000173: 12,2173           12205                           TCF      DORSTART                              
005615,000174: 12,2174           12006                           TCF      DOFSTART                              #  FRESH START
005616,000175: 
005617,000176: 12,2175           54140        PACTIVE            TS       MPAC                                  
005618,000177: 12,2176           50145                           INDEX    MPAC       +5                         #  SELECT RESTART ACTIVE CADR.
005619,000178: 12,2177           32413                           CAF      RACTCADR                              
005620,000179: 12,2200           12157                           TCF      PACT2                                 
005621,000180: 
005622,000181: 12,2201           32204        PTBAD              CAF      OCT1107                               #  SET ADDITIONAL FAILURE TO SHOW PHASE
005623,000182: 12,2202           55364                           TS       SFAIL                                 #  TABLE DISAGREEMENT (WILL BE DISPLAYED
005624,000183: 12,2203           12006                           TCF      DOFSTART                              #  IN R2).
005625,000184: 
005626,000185: 12,2204           01107        OCT1107            OCT      1107                                  #  ADDITIONAL ALARM CODE.
005627,000186: 
005628,000187: 12,2205           32402        DORSTART           CAF      IFAILINH                              #  LEAVE IMUFAILURE INHIBITS INTACT ON
005629,000188: 12,2206           70367                           MASK     IMODES30                              #  RESTART, RESETTING ALL FAILURE CODES.
005630,000189: 12,2207           62432                           AD       IM30INIR                              
005631,000190: 12,2210           54367                           TS       IMODES30                              
005632,000191: 12,2211           12051                           TCF      ENDRSTRT                              
005633,000192:                                                                                                  #  INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
005634,000193: 
005635,000194: 12,2212           56002        STARTSUB           XCH      Q                                     
005636,000195: 12,2213           54114                           TS       BUF                                   #  EXEC TEMPS ARE AVAILABLE TO US.
005637,000196: 
005638,000197: 12,2214           37675                           CAF      ZERO                                  #  ZERO OUTBITS WITHIN 3MS OF RESTART.
005639,000198: 12,2215           00006                           EXTEND                                         
005640,000199: 12,2216           01012                           WRITE    12                                    
005641,000200: 12,2217           00006                           EXTEND                                         
005642,000201: 12,2220           01014                           WRITE    14                                    
005643,000202: 12,2221           00006                           EXTEND                                         
005644,000203: 12,2222           01011                           WRITE    11                                    
005645,000204: 12,2223           34513                           CAF      PRIO34                                #  ENABLE INTERRUPTS.
005646,000205: 12,2224           00006                           EXTEND                                         
005647,000206: 12,2225           01013                           WRITE    13                                    
005648,000207: 
005649,000208: 12,2226           37651                           CAF      POSMAX                                #  T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
005650,000209: 12,2227           54030                           TS       TIME5                                 #  SO DOES T5.
005651,000210: 12,2230           54026                           TS       TIME3                                 #    (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
005652,000211: 12,2231           54027                           TS       TIME4                                 #    CASE RUPT SIGNALLED BEFORE TS TIME3).
005653,000212: 
005654,000213: 12,2232           32412                           CAF      STARTEB                               
005655,000214: 12,2233           54003                           TS       EBANK                                 #  SET FOR E3
005656,000215: 
005657,000216: 12,2234           37652                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
005658,000217: 12,2235           55407                           TS       LST1       +7                         
005659,000218: 12,2236           55406                           TS       LST1       +6                         
005660,000219: 12,2237           55405                           TS       LST1       +5                         
005661,000220: 12,2240           55404                           TS       LST1       +4                         
005662,000221: 12,2241           55403                           TS       LST1       +3                         
005663,000222: 12,2242           55402                           TS       LST1       +2                         
005664,000223: 12,2243           55401                           TS       LST1       +1                         
005665,000224: 12,2244           55400                           TS       LST1                                  
005666,000225: 
005667,000226: 12,2245           44550                           CS       ENDTASK                               
005668,000227: 12,2246           55410                           TS       LST2                                  
005669,000228: 12,2247           55412                           TS       LST2       +2                         
005670,000229: 12,2250           55414                           TS       LST2       +4                         
005671,000230: 12,2251           55416                           TS       LST2       +6                         
005672,000231: 12,2252           55420                           TS       LST2       +8D                        
005673,000232: 12,2253           55422                           TS       LST2       +10D                       
005674,000233: 12,2254           55424                           TS       LST2       +12D                       
005675,000234: 12,2255           55426                           TS       LST2       +14D                       
005676,000235: 12,2256           55430                           TS       LST2       +16D                       
005677,000236: 12,2257           44551                           CS       ENDTASK    +1                         
005678,000237: 12,2260           55411                           TS       LST2       +1                         
005679,000238: 12,2261           55413                           TS       LST2       +3                         
005680,000239: 12,2262           55415                           TS       LST2       +5                         
005681,000240: 12,2263           55417                           TS       LST2       +7                         
005682,000241: 12,2264           55421                           TS       LST2       +9D                        
005683,000242: 12,2265           55423                           TS       LST2       +11D                       
005684,000243: 12,2266           55425                           TS       LST2       +13D                       
005685,000244: 12,2267           55427                           TS       LST2       +15D                       
005686,000245: 12,2270           55431                           TS       LST2       +17D                       
005687,000246: 
005688,000247: 12,2271           47675                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
005689,000248: 12,2272           54153                           TS       PRIORITY                              #  AVAILABLE.
005690,000249: 12,2273           54167                           TS       PRIORITY   +12D                       
005691,000250: 12,2274           54203                           TS       PRIORITY   +24D                       
005692,000251: 12,2275           54217                           TS       PRIORITY   +36D                       
005693,000252: 12,2276           54233                           TS       PRIORITY   +48D                       
005694,000253: 12,2277           54247                           TS       PRIORITY   +60D                       
005695,000254: 12,2300           54263                           TS       PRIORITY   +72D                       
005696,000255: 
005697,000256: 12,2301           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
005698,000257: 
005699,000258: 12,2302           32410                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
005700,000259: 12,2303           54431                           TS       VAC1USE                               
005701,000260: 12,2304           62411                           AD       LTHVACA                               
005702,000261: 12,2305           54505                           TS       VAC2USE                               
005703,000262: 12,2306           62411                           AD       LTHVACA                               
005704,000263: 12,2307           54561                           TS       VAC3USE                               
005705,000264: 12,2310           62411                           AD       LTHVACA                               
005706,000265: 12,2311           54635                           TS       VAC4USE                               
005707,000266: 12,2312           62411                           AD       LTHVACA                               
005708,000267: 12,2313           54711                           TS       VAC5USE                               
005709,000268: 
005710,000269: 12,2314           35234                           CAF      TEN                                   #  TURN OFF ALL DISPLAY SYSTEM RELAYS.
005711,000270: 12,2315           54351                           TS       DIDFLG                                #  DISPLAY INERTIAL DATA FLAG.
005712,000271: 12,2316           54140        DSPOFF             TS       MPAC                                  
005713,000272: 12,2317           47656                           CS       BIT12                                 
005714,000273: 12,2320           50140                           INDEX    MPAC                                  
005715,000274: 12,2321           54307                           TS       DSPTAB                                
005716,000275: 12,2322           10140                           CCS      MPAC                                  
005717,000276: 12,2323           02316                           TC       DSPOFF                                
005718,000277: 
005719,000278: 12,2324           54045                           TS       INLINK                                
005720,000279: 12,2325           54341                           TS       DSPCNT                                
005721,000280: 12,2326           54366                           TS       LMPCMD                                
005722,000281: 12,2327           54323                           TS       CADRSTOR                              
005723,000282: 12,2330           54300                           TS       REQRET                                
005724,000283: 12,2331           54302                           TS       CLPASS                                
005725,000284: 12,2332           54277                           TS       DSPLOCK                               
005726,000285: 12,2333           54305                           TS       MONSAVE                               #  KILL MONITOR
005727,000286: 12,2334           54306                           TS       MONSAVE1                              
005728,000287: 12,2335           54324                           TS       GRABLOCK                              
005729,000288: 12,2336           54266                           TS       VERBREG                               
005730,000289: 12,2337           54267                           TS       NOUNREG                               
005731,000290: 12,2340           54327                           TS       DSPLIST                               
005732,000291: 12,2341           54330                           TS       DSPLIST    +1                         
005733,000292: 12,2342           54331                           TS       DSPLIST    +2                         
005734,000293: 
005735,000294: 12,2343           54374                           TS       MARKSTAT                              
005736,000295: 12,2344           54332                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
005737,000296: 12,2345           54371                           TS       IMUCADR                               
005738,000297: 12,2346           54372                           TS       OPTCADR                               
005739,000298: 12,2347           54373                           TS       RADCADR                               
005740,000299: 12,2350           54357                           TS       LGYRO                                 
005741,000300: 12,2351           54350                           TS       DSRUPTSW                              
005742,000301: 12,2352           37672                           CAF      NOUTCON                               
005743,000302: 12,2353           54303                           TS       NOUT                                  
005744,000303: 
005745,000304: 12,2354           47671                           CS       ONE                                   #  NO RADAR DESIGNATION.
005746,000305: 12,2355           54414                           TS       SAMPLIM                               #  NO RADAR RUPTS EXPECTED.
005747,000306: 
005748,000307: 12,2356           32407                           CAF      T4LINIT                               
005749,000308: 12,2357           54347                           TS       T4LOC                                 
005750,000309: 
005751,000310: 12,2360           32433                           CAF      IM33INIT                              #  NO PIP OR TM FAILS.
005752,000311: 12,2361           54370                           TS       IMODES33                              
005753,000312: 
005754,000313: 12,2362           37664                           CAF      BIT6                                  #  SET LR POS.
005755,000314: 12,2363           00006                           EXTEND                                         
005756,000315: 12,2364           02033                           RAND     33                                    
005757,000316: 12,2365           62435                           AD       RMODINIT                              
005758,000317: 12,2366           54413                           TS       RADMODES                              
005759,000318: 
005760,000319: 12,2367           32406                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
005761,000320: 12,2370           55360                           TS       SELFRET                               
005762,000321: 12,2371           45231                           CS       VD1                                   
005763,000322: 12,2372           54264                           TS       DSPCOUNT                              
005764,000323: 12,2373  E7,1401                                  EBANK=   DNTMGOTO                              
005765,000324: 
005766,000325: 12,2373           32404                           CAF      LDNTMGO                               #  SET UP TM PROGRAM.
005767,000326: 12,2374           54003                           TS       EBANK                                 
005768,000327: 
005769,000328: 12,2375           32403                           CAF      LDNPHAS1                              
005770,000329: 12,2376           55401                           TS       DNTMGOTO                              
005771,000330: 
005772,000331: 12,2377           32405                           CAF      NOMTMLST                              #  SET UP NOMINAL DOWNLINK LIST.
005773,000332: 12,2400           54411                           TS       DNLSTADR                              
005774,000333: 
005775,000334: 12,2401           00114                           TC       BUF                                   
005776,000335: 
005777,000336: 12,2402           00035        IFAILINH           OCT      35                                    #  ISS FAILURE INHIBIT BITS.
005778,000337: 12,2403           02052        LDNPHAS1           GENADR   DNPHASE1                              
005779,000338: 12,2404           03401        LDNTMGO            ECADR    DNTMGOTO                              
005780,000339: 12,2405           02321        NOMTMLST           GENADR   NOMDNLST                              
005781,000340: 12,2406           02033        LESCHK             GENADR   SELFCHK                               
005782,000341: 12,2407           04722        T4LINIT            ADRES    DSKYRSET                              
005783,000342: 12,2410           00431        VAC1ADRC           ADRES    VAC1USE                               
005784,000343: 12,2411           00054        LTHVACA            DEC      44         B-14                       
005785,000344: 
005786,000345: 12,2412           01400        STARTEB            ECADR    LST1                                  
005787,000346: 12,2413     7674               NUMGRPS            EQUALS   FIVE                                  #  SIX GROUPS CURRENTLY.
005788,000347: 
005789,000348:                                                                                                  #  WHERE TO GO ON RESTART IF GROUP ACTIVE:
005790,000349: 
005791,000350: 12,2413           00000        RACTCADR           CADR     10000                                 #  AVAILABLE FOR USE-NEXT ONE USED
005792,000351: 12,2414           42764                           CADR     OPTMSTRT                              #   RESTARTS DURING OPTM ALIGN CALIBRATION
005793,000352: 12,2415           03163                           CADR     ALRMSTRT                              
005794,000353: 12,2416           00000                           CADR     10000                                 
005795,000354: 12,2417           00000                           CADR     10000                                 
005796,000355: 12,2420           00000                           CADR     10000                                 
005797,000356: 
005798,000357:                                                                                                  #  WHERE TO GO ON RESTART IF TERMINATE REQUESTED.
005799,000358: 
005800,000359: 12,2421           00000        RTERMCAD           CADR     10000                                 
005801,000360: 12,2422           00000                           CADR     10000                                 
005802,000361: 12,2423           00000                           CADR     10000                                 
005803,000362: 12,2424           00000                           CADR     10000                                 
005804,000363: 12,2425           00000                           CADR     10000                                 
005805,000364: 12,2426           00000                           CADR     10000                                 
005806,000365: 
005807,000366: 12,2427           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
005808,000367: 12,2430           77757        -MKREJ             OCT      -20                                   #  - MARK REJECT.
005809,000368: 12,2431           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
005810,000369: 12,2432           37400        IM30INIR           OCT      37400                                 #  LEAVE FAIL INHIBITS ALONE.
005811,000370: 12,2433           16000        IM33INIT           OCT      16000                                 #  NO PIP OR TM FAIL SIGNALS.
005812,000371: 12,2434           00440        9,6                OCT      440                                   #  MASK FOR PROG ALARM AND GIMBAL LOCK.
005813,000372: 12,2435           00102        RMODINIT           OCT      00102                                 
005814,000373: 
005815,000374: 12,2436           00000        SWINIT             OCT      0                                     
005816,000375: 12,2437           00000                           OCT      0                                     
005817,000376: 12,2440           00000                           OCT      0                                     
005818,000377: 12,2441           00000                           OCT      0                                     
005819,000378: 
005820,000379: 12,2442                        ENDFRESS           EQUALS                                         

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