Source Code

   YAYUL: ASSEMBLE REVISION 5 OF PROGRAM BOREALIS       BY MSTEWART MAR. 27,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.

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

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