Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

005701,000002:                                                                                                  ## Copyright:    Public domain.
005702,000003:                                                                                                  ## Filename:     FRESH_START_AND_RESTART.agc
005703,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
005704,000005:                                                                                                  ## Assembler:    yaYUL
005705,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
005706,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
005707,000008:                                                                                                  ## Pages:        151-159
005708,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
005709,000010:                                                                                                  ##               2016-10-04 HG   Added missed IDLEADR
005710,000011:                                                                                                  ##               2016-10-16 HG   Fix operand T4L``INIT -> T4LINIT
005711,000012:                                                                                                  ##                                           ENDRSTART -> ENDRSTRT
005712,000013:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
005713,000014:                                                                                                  ##                               and fixed the errors found.
005714,000015: 
005715,000016:                                                                                                  ## This source code has been transcribed or otherwise adapted from
005716,000017:                                                                                                  ## digitized images of a hardcopy from the private collection of 
005717,000018:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
005718,000019: 
005719,000020:                                                                                                  ## Notations on the hardcopy document read, in part:
005720,000021: 
005721,000022:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
005722,000023:                                                                                                  ##       NOV 10, 1966
005723,000024: 
005724,000025:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
005725,000026:                                                                                                  ##       date of the program revision or the assembly.]
005726,000027: 
005727,000028:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
005728,000029:                                                                                                  ## reduction in image quality) are available online at 
005729,000030:                                                                                                  ##       https://www.ibiblio.org/apollo.  
005730,000031:                                                                                                  ## The original high-quality digital images are available at archive.org:
005731,000032:                                                                                                  ##       https://archive.org/details/aurora00dapg

Page 151

005733,000034: 12,2000                                           BANK     12                                    
005734,000035: 12,2000  E3,1400                                  EBANK=   LST1                                  
005735,000036: 
005736,000037: 12,2000           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
005737,000038: 12,2001           02214                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
005738,000039: 
005739,000040: 12,2002           37641                           CAF      BIT15                                 #  TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
005740,000041: 12,2003           54322                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
005741,000042: 
005742,000043: 12,2004           37665                           CAF      ZERO                                  #  SAME STORY ON ZEROING FAILREG.
005743,000044: 12,2005           55363                           TS       FAILREG                               
005744,000045: 
005745,000046: 12,2006           37665        DOFSTART           CAF      ZERO                                  #  DO A FRESH START,
005746,000047: 12,2007           55361                           TS       SMODE                                 
005747,000048: 12,2010           54276                           TS       MODREG                                
005748,000049: 12,2011           54412                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION
005749,000050: 12,2012           54342                           TS       UPLOCK                                #  FREE UPLINK INTERLOCK
005750,000051: 
005751,000052: 12,2013           54032                           TS       CDUX                                  #  ZERO CDUS SO MATRIX COMPUTATION IN T4
005752,000053: 12,2014           54033                           TS       CDUY                                  #  WONT OVERFLOW.
005753,000054: 12,2015           54034                           TS       CDUZ                                  
005754,000055: 
005755,000056: 12,2016           55072                           TS       PHASE0                                #  INITIALIZE PHASE TABLE - NO MISSION
005756,000057: 12,2017           55074                           TS       PHASE1                                #  PROGRAMS RUNNING.
005757,000058: 12,2020           55076                           TS       PHASE2                                
005758,000059: 12,2021           55100                           TS       PHASE3                                
005759,000060: 12,2022           55102                           TS       PHASE4                                
005760,000061: 12,2023           55104                           TS       PHASE5                                
005761,000062: 
005762,000063: 12,2024           40000                           COM                                            
005763,000064: 12,2025           55071                           TS       -PHASE0                               
005764,000065: 12,2026           55073                           TS       -PHASE1                               
005765,000066: 12,2027           55075                           TS       -PHASE2                               
005766,000067: 12,2030           55077                           TS       -PHASE3                               
005767,000068: 12,2031           55101                           TS       -PHASE4                               
005768,000069: 12,2032           55103                           TS       -PHASE5                               
005769,000070: 
005770,000071: 12,2033           32433                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
005771,000072: 12,2034           54367                           TS       IMODES30                              
005772,000073: 
005773,000074: 12,2035           37646                           CAF      BIT10                                 #  REMOVE IMU FAIL INHIBIT IN 5 SECS.
005774,000075: 12,2036           04536                           TC       WAITLIST                              
005775,000076: 12,2037           02247 26003                     2CADR    IFAILOK                               
005776,000077: 12,2041           00006                           EXTEND                                         #  SETTING T5RUPT FOR SETIDLER PROGRAM
005777,000078: 12,2042           32443                           DCA      SETADR                                #  THE SETIDLER PROGRAM ASSURES 1 SECOND
005778,000079: 12,2043           52346                           DXCH     T5ADR                                 #  DELAY BEFORE THE DAPIDLER BEGINS.
005779,000080: 
005780,000081: 12,2044           32450                           CAF      OCT04012                              #  INITIALIZE DAPBOOLS
005781,000082: 12,2045           54765                           TS       DAPBOOLS                              

Page 152

005783,000084: 12,2046           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
005784,000085: 12,2047           32445                           DCA      SWINIT                                
005785,000086: 12,2050           52062                           DXCH     STATE                                 
005786,000087: 12,2051           00006                           EXTEND                                         
005787,000088: 12,2052           32447                           DCA      SWINIT     +2                         
005788,000089: 12,2053           52064                           DXCH     STATE      +2                         
005789,000090: 
005790,000091: 12,2054           37652        ENDRSTRT           CAF      BIT6                                  #  IF GIMBAL LOCK LAMP IS STILL ON,
005791,000092: 12,2055           70322                           MASK     DSPTAB     +11D                       #  IMU WAS FOUND IN GIMBAL LOCK IN RESTART
005792,000093: 12,2056           10000                           CCS      A                                     #  AND LEFT IN COARSE ALIGN. IN THIS CASE
005793,000094: 12,2057           47647                           CS       BIT9                                  #  SET ISS OPERATE BIT IN IMODES30 TO
005794,000095: 12,2060           26367                           ADS      IMODES30                              #  OPERATE SO T4 INBIT MONITOR WONT ZERO
005795,000096: 
005796,000097: 12,2061           00003                           RELINT                                         #  THE CDUS AS IT DOES IN FRESH START.
005797,000098: 12,2062           04063                           TC       BANKCALL                              #  DISPLAY MAJOR MODE.
005798,000099: 12,2063           12001                           CADR     DSPMM                                 
005799,000100: 
005800,000101: 12,2064           14452        STARTSW            TCF      DUMMYJOB   +2                         #  PATCH FOR SIMULATION.
005801,000102: 
005802,000103: 12,2065           37642        STARTSIM           CAF      BIT14                                 
005803,000104: 12,2066           04374                           TC       FINDVAC                               
005804,000105: 12,2067           77777                           OCT      77777                                 #  FATAL IF NOT PATCHED AS ABOVE.
005805,000106: 12,2070           77777                           OCT      77777                                 
005806,000107: 
005807,000108: 12,2071           14452                           TCF      DUMMYJOB   +2                         #  DONT ZERO NEWJOB
005808,000109: 

Page 153

005810,000111:                                                                                                  #           COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
005811,000112: 
005812,000113: 12,2072           25362        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
005813,000114: 
005814,000115: 12,2073           02214                           TC       STARTSUB                              #  COMMON INITIALIZATION ROUTINE.
005815,000116: 
005816,000117: 12,2074           32436                           CAF      9,6                                   #  LEAVE PROGRAM ALARM AND GIMBAL LOCK
005817,000118: 12,2075           70322                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON RESTART.
005818,000119: 12,2076           67641                           AD       BIT15                                 
005819,000120: 12,2077           56322                           XCH      DSPTAB     +11D                       
005820,000121: 12,2100           77652                           MASK     BIT6                                  
005821,000122: 12,2101           10000                           CCS      A                                     #  IF GIMBAL LOCK LAMP WAS ON, LEAVE ISS IN
005822,000123: 12,2102           37654                           CAF      BIT4                                  #  COARSE ALIGN.
005823,000124: 12,2103           00006                           EXTEND                                         
005824,000125: 12,2104           05012                           WOR      12                                    
005825,000126: 
005826,000127: 12,2105           00006                           EXTEND                                         #  SETTING T5RUPT FOR DAPIDLER PROGRAM
005827,000128: 12,2106           32441                           DCA      IDLEADR                               
005828,000129: 12,2107           52346                           DXCH     T5ADR                                 
005829,000130: 12,2110           34535                           CAF      PRIO37                                #  DISPLAY FAILREG AS INDICATION OF RESTART
005830,000131: 12,2111           04363                           TC       NOVAC                                 #  OR TO DISPLAY ABORT CODE AS ABOVE.
005831,000132: 12,2112           02773 02003                     2CADR    DOALARM                               
005832,000133: 12,2114           00006                           EXTEND                                         #  DONT TRY TO RESTART IF ERROR LIGHT RESET
005833,000134: 12,2115           00015                           READ     15                                    #  AND MARK REJECT BUTTONS DEPRESSED.
005834,000135: 12,2116           62431                           AD       -ELR                                  
005835,000136: 12,2117           00006                           EXTEND                                         
005836,000137: 12,2120           12122                           BZF      +2                                    
005837,000138: 12,2121           12130                           TCF      PCLOOP     -1                         #  VERIFY PHASE TABLE.
005838,000139: 
005839,000140: 12,2122           37653                           CAF      BIT5                                  
005840,000141: 12,2123           00006                           EXTEND                                         
005841,000142: 12,2124           02016                           RAND     16                                    
005842,000143: 12,2125           62432                           AD       -MKREJ                                
005843,000144: 12,2126           00006                           EXTEND                                         
005844,000145: 12,2127           12006                           BZF      DOFSTART                              
005845,000146: 
005846,000147: 12,2130           37664                 -1        CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENT.
005847,000148: 12,2131           54145        PCLOOP             TS       MPAC       +5                         
005848,000149: 12,2132           60000                           DOUBLE                                         
005849,000150: 12,2133           00006                           EXTEND                                         
005850,000151: 12,2134           50000                           INDEX    A                                     
005851,000152: 12,2135           31072                           DCA      -PHASE0                               #  COMPLEMENT INTO A - DIRECT INTO L.
005852,000153: 12,2136           00006                           EXTEND                                         
005853,000154: 12,2137           06001                           RXOR     L                                     #  RESULT MUST BE -0 FOR AGREEMENT.
005854,000155: 12,2140           10000                           CCS      A                                     
005855,000156: 12,2141           12203                           TCF      PTBAD                                 #  RESTART FAILURE.
005856,000157: 12,2142           12203                           TCF      PTBAD                                 
005857,000158: 12,2143           12203                           TCF      PTBAD                                 

Page 154

005859,000160: 12,2144           10145                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
005860,000161: 12,2145           12131                           TCF      PCLOOP                                
005861,000162: 
005862,000163: 12,2146           54146                           TS       MPAC       +6                         #  SET TO +0.
005863,000164: 12,2147           37664                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
005864,000165: 12,2150           54145        NXTRST             TS       MPAC       +5                         
005865,000166: 12,2151           60000                           DOUBLE                                         
005866,000167: 12,2152           50000                           INDEX    A                                     
005867,000168: 12,2153           11072                           CCS      PHASE0                                
005868,000169: 12,2154           12177                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
005869,000170: 12,2155           12172                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
005870,000171: 
005871,000172: 12,2156           54140        PTERM              TS       MPAC                                  #  NNZ - TERMINATE REQUEST.
005872,000173: 12,2157           50145                           INDEX    MPAC       +5                         #  PICK UP RESTART TERMINATE CADR.
005873,000174: 12,2160           32423                           CAF      RTERMCAD                              
005874,000175: 
005875,000176: 12,2161           54001        PACT2              TS       L                                     
005876,000177: 12,2162           24140                           INCR     MPAC                                  #  ABS OF PHASE.
005877,000178: 12,2163           46027                           CS       LOW7                                  #  SEE THAT MAG IS LESS THAN 128.
005878,000179: 12,2164           70140                           MASK     MPAC                                  
005879,000180: 12,2165           10000                           CCS      A                                     
005880,000181: 12,2166           12203                           TCF      PTBAD                                 #  BAD DATA.
005881,000182: 
005882,000183: 12,2167           24146                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
005883,000184: 12,2170           30001                           CA       L                                     
005884,000185: 12,2171           04067                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
005885,000186: 
005886,000187: 12,2172           10145        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
005887,000188: 12,2173           12150                           TCF      NXTRST                                
005888,000189: 
005889,000190: 12,2174           10146        TSTMPAC6           CCS      MPAC       +6                         #  IF NO GROUPS ACTIVE THIS REQUEST, DO A
005890,000191: 12,2175           12207                           TCF      DORSTART                              
005891,000192: 12,2176           12006                           TCF      DOFSTART                              #  FRESH START
005892,000193: 
005893,000194: 12,2177           54140        PACTIVE            TS       MPAC                                  
005894,000195: 12,2200           50145                           INDEX    MPAC       +5                         #  SELECT RESTART ACTIVE CADR.
005895,000196: 12,2201           32415                           CAF      RACTCADR                              
005896,000197: 12,2202           12161                           TCF      PACT2                                 
005897,000198: 
005898,000199: 12,2203           32206        PTBAD              CAF      OCT1107                               #  SET ADDITIONAL FAILURE TO SHOW PHASE
005899,000200: 12,2204           55364                           TS       SFAIL                                 #  TABLE DISAGREEMENT (WILL BE DISPLAYED
005900,000201: 12,2205           12006                           TCF      DOFSTART                              #  IN R2).
005901,000202: 
005902,000203: 12,2206           01107        OCT1107            OCT      1107                                  #  ADDITIONAL ALARM CODE.
005903,000204: 
005904,000205: 12,2207           32404        DORSTART           CAF      IFAILINH                              #  LEAVE IMUFAILURE INHIBITS INTACT ON
005905,000206: 12,2210           70367                           MASK     IMODES30                              #  RESTART, RESETTING ALL FAILURE CODES.
005906,000207: 12,2211           62434                           AD       IM30INIR                              
005907,000208: 12,2212           54367                           TS       IMODES30                              

Page 155

005909,000210: 12,2213           12054                           TCF      ENDRSTRT                              

Page 156

005911,000212:                                                                                                  #  INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
005912,000213: 
005913,000214: 12,2214           56002        STARTSUB           XCH      Q                                     
005914,000215: 12,2215           54114                           TS       BUF                                   #  EXEC TEMPS ARE AVAILABLE TO US.
005915,000216: 
005916,000217: 12,2216           37665                           CAF      ZERO                                  #  ZERO OUTBITS WITHIN 3MS OF RESTART.
005917,000218: 12,2217           00006                           EXTEND                                         
005918,000219: 12,2220           01012                           WRITE    12                                    
005919,000220: 12,2221           00006                           EXTEND                                         
005920,000221: 12,2222           01014                           WRITE    14                                    
005921,000222: 12,2223           00006                           EXTEND                                         
005922,000223: 12,2224           01011                           WRITE    11                                    
005923,000224: 12,2225           34532                           CAF      PRIO34                                #  ENABLE INTERRUPTS.
005924,000225: 12,2226           00006                           EXTEND                                         
005925,000226: 12,2227           01013                           WRITE    13                                    
005926,000227: 
005927,000228: 12,2230           37637                           CAF      POSMAX                                #  T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
005928,000229: 12,2231           54030                           TS       TIME5                                 #  SO DOES T5.
005929,000230: 12,2232           54026                           TS       TIME3                                 #    (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
005930,000231: 12,2233           54027                           TS       TIME4                                 #    CASE RUPT SIGNALLED BEFORE TS TIME3).
005931,000232: 
005932,000233: 12,2234           32414                           CAF      STARTEB                               
005933,000234: 12,2235           54003                           TS       EBANK                                 #  SET FOR E3
005934,000235: 
005935,000236: 12,2236           37640                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
005936,000237: 12,2237           55407                           TS       LST1       +7                         
005937,000238: 12,2240           55406                           TS       LST1       +6                         
005938,000239: 12,2241           55405                           TS       LST1       +5                         
005939,000240: 12,2242           55404                           TS       LST1       +4                         
005940,000241: 12,2243           55403                           TS       LST1       +3                         
005941,000242: 12,2244           55402                           TS       LST1       +2                         
005942,000243: 12,2245           55401                           TS       LST1       +1                         
005943,000244: 12,2246           55400                           TS       LST1                                  
005944,000245: 
005945,000246: 12,2247           44567                           CS       ENDTASK                               
005946,000247: 12,2250           55410                           TS       LST2                                  
005947,000248: 12,2251           55412                           TS       LST2       +2                         
005948,000249: 12,2252           55414                           TS       LST2       +4                         
005949,000250: 12,2253           55416                           TS       LST2       +6                         
005950,000251: 12,2254           55420                           TS       LST2       +8D                        
005951,000252: 12,2255           55422                           TS       LST2       +10D                       
005952,000253: 12,2256           55424                           TS       LST2       +12D                       
005953,000254: 12,2257           55426                           TS       LST2       +14D                       
005954,000255: 12,2260           55430                           TS       LST2       +16D                       
005955,000256: 12,2261           44570                           CS       ENDTASK    +1                         
005956,000257: 12,2262           55411                           TS       LST2       +1                         
005957,000258: 12,2263           55413                           TS       LST2       +3                         
005958,000259: 12,2264           55415                           TS       LST2       +5                         
005959,000260: 12,2265           55417                           TS       LST2       +7                         
005960,000261: 12,2266           55421                           TS       LST2       +9D                        

Page 157

005962,000263: 12,2267           55423                           TS       LST2       +11D                       
005963,000264: 12,2270           55425                           TS       LST2       +13D                       
005964,000265: 12,2271           55427                           TS       LST2       +15D                       
005965,000266: 12,2272           55431                           TS       LST2       +17D                       
005966,000267: 
005967,000268: 12,2273           47665                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
005968,000269: 12,2274           54153                           TS       PRIORITY                              #  AVAILABLE.
005969,000270: 12,2275           54167                           TS       PRIORITY   +12D                       
005970,000271: 12,2276           54203                           TS       PRIORITY   +24D                       
005971,000272: 12,2277           54217                           TS       PRIORITY   +36D                       
005972,000273: 12,2300           54233                           TS       PRIORITY   +48D                       
005973,000274: 12,2301           54247                           TS       PRIORITY   +60D                       
005974,000275: 12,2302           54263                           TS       PRIORITY   +72D                       
005975,000276: 
005976,000277: 12,2303           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
005977,000278: 
005978,000279: 12,2304           32412                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
005979,000280: 12,2305           54431                           TS       VAC1USE                               
005980,000281: 12,2306           62413                           AD       LTHVACA                               
005981,000282: 12,2307           54505                           TS       VAC2USE                               
005982,000283: 12,2310           62413                           AD       LTHVACA                               
005983,000284: 12,2311           54561                           TS       VAC3USE                               
005984,000285: 12,2312           62413                           AD       LTHVACA                               
005985,000286: 12,2313           54635                           TS       VAC4USE                               
005986,000287: 12,2314           62413                           AD       LTHVACA                               
005987,000288: 12,2315           54711                           TS       VAC5USE                               
005988,000289: 
005989,000290: 12,2316           37661                           CAF      TEN                                   #  TURN OFF ALL DISPLAY SYSTEM RELAYS.
005990,000291: 12,2317           54351                           TS       DIDFLG                                #  DISPLAY INERTIAL DATA FLAG.
005991,000292: 12,2320           54140        DSPOFF             TS       MPAC                                  
005992,000293: 12,2321           47644                           CS       BIT12                                 
005993,000294: 12,2322           50140                           INDEX    MPAC                                  
005994,000295: 12,2323           54307                           TS       DSPTAB                                
005995,000296: 12,2324           10140                           CCS      MPAC                                  
005996,000297: 12,2325           02320                           TC       DSPOFF                                
005997,000298: 
005998,000299: 12,2326           54045                           TS       INLINK                                
005999,000300: 12,2327           54341                           TS       DSPCNT                                
006000,000301: 12,2330           54366                           TS       LMPCMD                                
006001,000302: 12,2331           54323                           TS       CADRSTOR                              
006002,000303: 12,2332           54300                           TS       REQRET                                
006003,000304: 12,2333           54302                           TS       CLPASS                                
006004,000305: 12,2334           54277                           TS       DSPLOCK                               
006005,000306: 12,2335           54305                           TS       MONSAVE                               #  KILL MONITOR
006006,000307: 12,2336           54306                           TS       MONSAVE1                              
006007,000308: 12,2337           54324                           TS       GRABLOCK                              
006008,000309: 12,2340           54266                           TS       VERBREG                               
006009,000310: 12,2341           54267                           TS       NOUNREG                               
006010,000311: 12,2342           54327                           TS       DSPLIST                               
006011,000312: 12,2343           54330                           TS       DSPLIST    +1                         

Page 158

006013,000314: 12,2344           54331                           TS       DSPLIST    +2                         
006014,000315: 
006015,000316: 12,2345           54374                           TS       MARKSTAT                              
006016,000317: 12,2346           54332                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
006017,000318: 12,2347           54371                           TS       IMUCADR                               
006018,000319: 12,2350           54372                           TS       OPTCADR                               
006019,000320: 12,2351           54373                           TS       RADCADR                               
006020,000321: 12,2352           54357                           TS       LGYRO                                 
006021,000322: 12,2353           54350                           TS       DSRUPTSW                              
006022,000323: 12,2354           37660                           CAF      NOUTCON                               
006023,000324: 12,2355           54303                           TS       NOUT                                  
006024,000325: 
006025,000326: 12,2356           47657                           CS       ONE                                   #  NO RADAR DESIGNATION.
006026,000327: 12,2357           54414                           TS       SAMPLIM                               #  NO RADAR RUPTS EXPECTED.
006027,000328: 
006028,000329: 12,2360           32411                           CAF      T4LINIT                               
006029,000330: 12,2361           54347                           TS       T4LOC                                 
006030,000331: 
006031,000332: 12,2362           32435                           CAF      IM33INIT                              #  NO PIP OR TM FAILS.
006032,000333: 12,2363           54370                           TS       IMODES33                              
006033,000334: 
006034,000335: 12,2364           37652                           CAF      BIT6                                  #  SET LR POS.
006035,000336: 12,2365           00006                           EXTEND                                         
006036,000337: 12,2366           02033                           RAND     33                                    
006037,000338: 12,2367           62437                           AD       RMODINIT                              
006038,000339: 12,2370           54413                           TS       RADMODES                              
006039,000340: 
006040,000341: 12,2371           32410                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
006041,000342: 12,2372           55360                           TS       SELFRET                               
006042,000343: 12,2373           45237                           CS       VD1                                   
006043,000344: 12,2374           54264                           TS       DSPCOUNT                              
006044,000345: 12,2375  E7,1401                                  EBANK=   DNTMGOTO                              
006045,000346: 
006046,000347: 12,2375           32406                           CAF      LDNTMGO                               #  SET UP TM PROGRAM.
006047,000348: 12,2376           54003                           TS       EBANK                                 
006048,000349: 
006049,000350: 12,2377           32405                           CAF      LDNPHAS1                              
006050,000351: 12,2400           55401                           TS       DNTMGOTO                              
006051,000352: 
006052,000353: 12,2401           32407                           CAF      NOMTMLST                              #  SET UP NOMINAL DOWNLINK LIST.
006053,000354: 12,2402           54411                           TS       DNLSTADR                              
006054,000355: 
006055,000356: 12,2403           00114                           TC       BUF                                   
006056,000357: 
006057,000358: 12,2404           00035        IFAILINH           OCT      35                                    #  ISS FAILURE INHIBIT BITS.
006058,000359: 12,2405           02052        LDNPHAS1           GENADR   DNPHASE1                              
006059,000360: 12,2406           03401        LDNTMGO            ECADR    DNTMGOTO                              
006060,000361: 12,2407           02321        NOMTMLST           GENADR   NOMDNLST                              
006061,000362: 12,2410           02101        LESCHK             GENADR   SELFCHK                               
006062,000363: 12,2411           04730        T4LINIT            ADRES    DSKYRSET                              

Page 159

006064,000365: 12,2412           00431        VAC1ADRC           ADRES    VAC1USE                               
006065,000366: 12,2413           00054        LTHVACA            DEC      44         B-14                       
006066,000367: 
006067,000368: 12,2414           01400        STARTEB            ECADR    LST1                                  
006068,000369: 12,2415     7664               NUMGRPS            EQUALS   FIVE                                  #  SIX GROUPS CURRENTLY.
006069,000370: 
006070,000371:                                                                                                  #  WHERE TO GO ON RESTART IF GROUP ACTIVE:
006071,000372: 
006072,000373: 12,2415           00000        RACTCADR           CADR     10000                                 #  AVAILABLE FOR USE-NEXT ONE USED
006073,000374: 12,2416           42764                           CADR     OPTMSTRT                              #   RESTARTS DURING OPTM ALIGN CALIBRATION
006074,000375: 12,2417           00000                           CADR     10000                                 
006075,000376: 12,2420           00000                           CADR     10000                                 
006076,000377: 12,2421           00000                           CADR     10000                                 
006077,000378: 12,2422           00000                           CADR     10000                                 
006078,000379: 
006079,000380:                                                                                                  #  WHERE TO GO ON RESTART IF TERMINATE REQUESTED.
006080,000381: 
006081,000382: 12,2423           00000        RTERMCAD           CADR     10000                                 
006082,000383: 12,2424           00000                           CADR     10000                                 
006083,000384: 12,2425           00000                           CADR     10000                                 
006084,000385: 12,2426           00000                           CADR     10000                                 
006085,000386: 12,2427           00000                           CADR     10000                                 
006086,000387: 12,2430           00000                           CADR     10000                                 
006087,000388: 
006088,000389: 12,2431           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
006089,000390: 12,2432           77757        -MKREJ             OCT      -20                                   #  - MARK REJECT.
006090,000391: 12,2433           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
006091,000392: 12,2434           37400        IM30INIR           OCT      37400                                 #  LEAVE FAIL INHIBITS ALONE.
006092,000393: 12,2435           16000        IM33INIT           OCT      16000                                 #  NO PIP OR TM FAIL SIGNALS.
006093,000394: 12,2436           00440        9,6                OCT      440                                   #  MASK FOR PROG ALARM AND GIMBAL LOCK.
006094,000395: 12,2437           00102        RMODINIT           OCT      00102                                 
006095,000396: 
006096,000397: 12,2440  E6,1551                                  EBANK=   DT                                    
006097,000398: 12,2440           03141 46006  IDLEADR            2CADR    DAPIDLER                              
006098,000399: 12,2442  E6,1551                                  EBANK=   DT                                    
006099,000400: 12,2442           03115 46006  SETADR             2CADR    SETIDLE                               
006100,000401: 12,2444           00000        SWINIT             OCT      0                                     
006101,000402: 12,2445           00000                           OCT      0                                     
006102,000403: 12,2446           00000                           OCT      0                                     
006103,000404: 12,2447           00000                           OCT      0                                     
006104,000405: 
006105,000406: 12,2450           04012        OCT04012           OCTAL    04012                                 #  INITIAL VALUE OF DAPBOOLS
006106,000407: 12,2451                        ENDFRESS           EQUALS                                         

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