Source Code

These source-code files were obtained by digitally photographing a Solarium 55 (Apollo 6) program listing from the American Computer Museum in Bozeman, Montana. Photography was by Ron Burkey, with assistance from museum curator George Keremedjiev and Montana State University curator Kim Scott. The listing originally belonged to Eldon C. Hall, who donated it to the museum. Volunteers then manually typed in the source code or else modified similar pre-existing Colossus 249 (Apollo 9) source files to incorporate changes, although this transcription was principally done by Jim Lawton and corrected by Ron Burkey. Notations on the program listing read, in part:

        YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
	BY NASA 1021108-021                    DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.

Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions.

005548,000002:                                                                                                  ## Copyright:   Public domain.
005549,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
005550,000004:                                                                                                  ## Purpose:     Part of the source code for Solarium build 55. This
005551,000005:                                                                                                  ##              is for the Command Module's (CM) Apollo Guidance
005552,000006:                                                                                                  ##              Computer (AGC), for Apollo 6.
005553,000007:                                                                                                  ## Assembler:   yaYUL --block1
005554,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
005555,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
005556,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Solarium055/
005557,000011:                                                                                                  ## Mod history: 2009-09-28 JL   Created.
005558,000012:                                                                                                  ##              2016-08-23 RSB  Typos.
005559,000013:                                                                                                  ##              2016-12-28 RSB  Proofed comment text using octopus/ProoferComments,
005560,000014:                                                                                                  ##                              and fixed errors found.
005561,000015: 

Page 140

005563,000017: 
005564,000018: 04,6705                                           BANK     4                                     
005565,000019:                                                                                                  #        FRESH START - A KEYBOARD REQUEST TO INITIALIZE THE SYSTEM.
005566,000020: 
005567,000021: 04,6705           20017        SLAP1              INHINT                                         #  COMES HERE FROM THE PINBALL VERB FAN.
005568,000022: 04,6706           35501                           CAF      ZERO                                  #   (ZERO FAILREG IN FRESH START ONLY).
005569,000023: 04,6707           51763                           TS       FAILREG                               
005570,000024: 04,6710           50612                           TS       MODREG                                
005571,000025: 04,6711           51075                           TS       REDOCNTR                              #  ZERO ONLY DURING FRESH START.
005572,000026: 
005573,000027: 04,6712           34513                           CAF      BIT4                                  #  DISABLE IMU FAIL FOR 5 SECS.
005574,000028: 04,6713           50726        SLAP2              TS       OLDERR                                #   CURTAINS ENTERS HERE FROM THATSALL.
005575,000029:                                                                                                  #  DSPLOCK (BIT 4 OF STATE), UPLOCK (BIT2 OF
005576,000030:                                                                                                  #  STATE), EXTVBACT (BIT3 OF STATE) ARE
005577,000031:                                                                                                  #  ZEROED BELOW (FRESH START ONLY).
005578,000032: 04,6714           35501                           CAF      ZERO                                  
005579,000033: 04,6715           51765                           TS       ERCOUNT                               
005580,000034: 
005581,000035: 04,6716           07200                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
005582,000036: 
005583,000037: 04,6717           34477        NOGO               CAF      MAXPROG                               #  MAKE ALL RESTART GROUPS INACTIVE.
005584,000038: 04,6720           50077                           TS       BUF                                   
005585,000039: 04,6721           44516                           CS       ONE                                   
005586,000040: 04,6722           20077                           INDEX    BUF                                   
005587,000041: 04,6723           50650                           TS       PHASE1                                
005588,000042: 04,6724           40000                           COM                                            
005589,000043: 04,6725           20077                           INDEX    BUF                                   
005590,000044: 04,6726           50656                           TS       -PHASE1                               
005591,000045: 
005592,000046: 04,6727           10077                           CCS      BUF                                   
005593,000047: 04,6730           06720                           TC       NOGO       +1                         
005594,000048: 
005595,000049: 04,6731           50011                           TS       OUT1                                  #  RESET OUT1 HERE INSTEAD OF IN STARTSUB.
005596,000050: 04,6732           51762                           TS       SMODE                                 #  DISABLE SELF-CHECK.
005597,000051: 
005598,000052: 04,6733           34500                           CAF      BIT15                                 #  TELL T4RUPT TO TURN OFF ALL C RELAYS.
005599,000053: 04,6734           50724        DSP12D             TS       DSPTAB     +12D                       
005600,000054: 04,6735           50725        DSP13D             TS       DSPTAB     +13D                       
005601,000055: 
005602,000056: 04,6736           37344                           CAF      OCT40010                              
005603,000057: 04,6737           50723        DSP11D             TS       DSPTAB     +11D                       #  LEAVE IMU IN FINE ALIGN
005604,000058: 
005605,000059: 04,6740           50727                           TS       WASKSET                               #  DISABLE KSAMP DURING INITIAL TRANSIENT.
005606,000060: 
005607,000061: 04,6741           34512                           CAF      BIT5                                  #  FOR 160 MS.
005608,000062: 04,6742           02173                           TC       WAITLIST                              
005609,000063: 04,6743           10771                           CADR     KENABLE                               
005610,000064: 
005611,000065: 04,6744           30007                           XCH      IN3                                   
005612,000066: 04,6745           30007                           XCH      IN3                                   
005613,000067: 04,6746           77342                           MASK     OPTMODES                              

Page 141

005615,000069: 04,6747           50730                           TS       WASOPSET                              
005616,000070: 
005617,000071: 04,6750           37360                           CAF      SWINIT                                #  INITIALIZE SWITCH BIT AREA ON FRESH
005618,000072: 04,6751           50645                           TS       STATE                                 #  START ONLY.
005619,000073: 04,6752           37361                           CAF      SWINIT     +1                         
005620,000074: 04,6753           50646                           TS       STATE      +1                         
005621,000075: 04,6754           37362                           CAF      SWINIT     +2                         
005622,000076: 04,6755           50647                           TS       STATE      +2                         
005623,000077: 
005624,000078: 04,6756           40726                           CS       OLDERR                                #  SEE IF CURTAINS CALLED FRESH START.
005625,000079: 04,6757           74512                           MASK     BIT5                                  
005626,000080: 04,6760           10000                           CCS      A                                     
005627,000081: 04,6761           06764                           TC       STARTSW                               
005628,000082: 
005629,000083: 04,6762           03007                           TC       ALARM                                 
005630,000084: 04,6763           00301                           OCT      00301                                 
005631,000085: 
005632,000086: 04,6764           07135        STARTSW            TC       ENDFRESH                              
005633,000087: 04,6765           32160        ESTART             CAF      PRIO25                                #  FIRE UP INITIALIZATION JOB.
005634,000088: 04,6766           02046                           TC       FINDVAC                               
005635,000089: 04,6767           67411                           CADR     BEGIN501                              
005636,000090: 
005637,000091: 04,6770           07135                           TC       ENDFRESH                              
005638,000092: 
005639,000093: 04,6771           37343        KENABLE            CAF      OCT50                                 #  COMMANDED FINE ALIGN.
005640,000094: 04,6772           50727                           TS       WASKSET                               
005641,000095: 04,6773           34505                           CAF      BIT10                                 #  REMOVE IMU FAIL INHIBIT IN 5 SECS.
005642,000096: 04,6774           02173                           TC       WAITLIST                              
005643,000097: 04,6775           30201                           CADR     IFAILOK                               
005644,000098: 
005645,000099: 04,6776           02256                           TC       TASKOVER                              
005646,000100: 
005647,000101: 04,6777           51764        THATSALL           TS       SFAIL                                 #  CURTAINS - FLUSH MISSION PROGRAM.
005648,000102: 04,7000           20017                           INHINT                                         
005649,000103: 04,7001           37003                           CAF      BITS4&5                               #  DO FRESH START AND PROGRAM ALARM.
005650,000104: 04,7002           06713                           TC       SLAP2                                 
005651,000105: 
005652,000106: 04,7003     4477               MAXPROG            EQUALS   FIVE                                  
005653,000107: 04,7003           00030        BITS4&5            OCT      30                                    
005654,000108: 
005655,000109: 04,7004           00120        BITS5&7            OCT      120                                   
005656,000110: 

Page 142

005658,000112: 
005659,000113:                                                                                                  #        WHENEVER A GO SEQUENCE (GOJAM) IS FIRED,  GOPROG  IS CALLED TO RESTART ANY COMPUTER ACTIVITY THAT
005660,000114:                                                                                                  #  MAY HAVE BEEN GOING ON AT THE TIME. (A NUMBER OF ALARMS SUCH AS PARITY FAILURE OR POWER FAILURE CAUSE GOJAM).
005661,000115:                                                                                                  #  THE FUNCTION OF GOPROG IS TO INITIALIZE THE COMPUTER SUB-SYSTEM (I.E., NO C RELAYS ARE CHANGED, ETC.) AND
005662,000116:                                                                                                  #  RESTART ALL MAJOR ROUTINES WHOSE PHASE BITS INDICATE ACTIVITY.
005663,000117: 
005664,000118: 04,7005           11760        GOPROG             CCS      ERESTORE                              #  RESTORE TWO ERASABLE REGISTERS IF
005665,000119: 04,7006           07010                           TC       +2                                    #  RESTART OCCURS WHILE SELF-CHECK HAS
005666,000120: 04,7007           07020                           TC       GOPROG2                               #  REMOVED CONTENTS OF THESE REGISTERS.
005667,000121: 04,7010           41776                           CS       1776                                  
005668,000122: 04,7011           40000                           CS       A                                     
005669,000123: 04,7012           21777                           NDX      1777                                  
005670,000124: 04,7013           50001                           TS       0001                                  #  RESTORE C(X)
005671,000125: 04,7014           41775                           CS       1775                                  
005672,000126: 04,7015           40000                           CS       A                                     
005673,000127: 04,7016           21777                           NDX      1777                                  
005674,000128: 04,7017           50000                           TS       0000                                  #  RESTORE C(X-1)
005675,000129: 04,7020           34512        GOPROG2            CAF      DVMONMSK                              #  SHOULD BE SYS FLAG FOR ENGINE ON.
005676,000130: 04,7021           70646                           MASK     FLAGWRD1                              
005677,000131: 04,7022           10000                           CCS      A                                     #  SEE IF ENGINE WAS ON.
005678,000132: 04,7023           34502                           CAF      BIT13                                 #  YES..PUT IT BACK ON.
005679,000133: 04,7024           50011                           TS       OUT1                                  #  NO...ZERO IT.
005680,000134: 
005681,000135: 04,7025           35503                           CAF      TWO                                   #  SET RESTART FAIL INDICATION, WHICH WILL
005682,000136: 04,7026           50726                           TS       OLDERR                                #  BE REMOVED AFTER SUCCESSFUL VERIFICATION
005683,000137: 04,7027           07200                           TC       STARTSUB                              #  OF PHASE TABLE AGREEMENT.
005684,000138: 
005685,000139: 04,7030           30004                           XCH      IN0                                   #  IF BOTH ERROR RESET AND MARK ARE
005686,000140: 04,7031           77341                           MASK     HUNGMASK                              #  DEPRESSED, FALL INTO FRESH START TO
005687,000141: 04,7032           67035                           AD       HUNGCODE                              #  HOPEFULLY PREVENT OR STOP RECURRING GOS.
005688,000142: 04,7033           10000                           CCS      A                                     
005689,000143: 04,7034           07040                           TC       PHASECHK   -1                         #  RESTART
005690,000144: 04,7035           37755        HUNGCODE           OCT      37755                                 #  COMPLEMENT OF IN0 HUNG SETTING.
005691,000145: 04,7036           07040                           TC       PHASECHK   -1                         #  RESTART
005692,000146: 04,7037           06717                           TC       NOGO                                  
005693,000147: 
005694,000148: 04,7040           34477                           CAF      MAXPROG                               #  PHASE BITS ARE KEPT IN TWO COPIES,
005695,000149: 04,7041           50115        PHASECHK           TS       MPAC                                  #  ONE DIRECT AND ONE COMPLEMENTED. THIS
005696,000150: 04,7042           20000                           INDEX    A                                     #  SECTION MAKES SURE ALL ENTRIES IN EACH
005697,000151: 04,7043           40650                           CS       PHASETAB                              #  SATISFIES THIS RULE AS AN INDICATION OF
005698,000152: 04,7044           50077                           TS       BUF                                   #  THE GOODNESS OF ERASABLE MEMORY. IF THE
005699,000153: 04,7045           40000                           COM                                            #  TEST FAILS, DO A FRESH START WITH THE
005700,000154: 04,7046           20115                           INDEX    MPAC                                  #  MODE LIGHTS SET TO 00 TO TELL THE STORY.
005701,000155: 04,7047           70656                           MASK     PHASEBAR                              
005702,000156: 04,7050           07142                           TC       ZEROTEST                              #  P.(-P) AND (-P).(--P) SHOULD BOTH BE
005703,000157: 04,7051           20115                           INDEX    MPAC                                  #  +0 FOR A LOGICAL MATCH.
005704,000158: 04,7052           40656                           CS       PHASEBAR                              
005705,000159: 04,7053           70077                           MASK     BUF                                   
005706,000160: 04,7054           07142                           TC       ZEROTEST                              
005707,000161: 
005708,000162: 04,7055           10115                           CCS      MPAC                                  

Page 143

005710,000164: 04,7056           07041                           TC       PHASECHK                              
005711,000165: 
005712,000166: 04,7057           51443                           TS       DISPCNTR                              #  ENABLE VG DISPLAY GRAB
005713,000167: 04,7060           50726                           TS       OLDERR                                #  NO RESTART FAIL.
005714,000168: 04,7061           34516                           CAF      ONE                                   #  INCREMENT REDOCNTR.
005715,000169: 04,7062           61075                           AD       REDOCNTR                              
005716,000170: 04,7063           51075                           TS       REDOCNTR                              
005717,000171: 
005718,000172: 04,7064           44500                           CS       BIT15                                 
005719,000173: 04,7065           70725                           MASK     DSPTAB     +13D                       #  PICK UP ALL BUT BIT 15.
005720,000174: 04,7066           64500                           AD       BIT15                                 #  SET BIT 15 TO FORCE RESETTING RELAYS.
005721,000175: 04,7067           50725                           TS       DSPTAB     +13D                       #  MIGHT TAKE A WHILE TO GET OUT.
005722,000176: 
005723,000177: 04,7070           30007        CHECKIN3           XCH      IN3                                   #  PUT PRESENT MODES INTO WAS  REGISTERS.
005724,000178: 04,7071           30007                           XCH      IN3                                   
005725,000179: 04,7072           50727                           TS       WASKSET                               
005726,000180: 04,7073           74720                           MASK     LOW7                                  
005727,000181: 04,7074           30727                           XCH      WASKSET                               
005728,000182: 04,7075           77342                           MASK     OPTMODES                              
005729,000183: 04,7076           50730                           TS       WASOPSET                              
005730,000184: 
005731,000185: 04,7077           37004                           CAF      BITS5&7                               #  IMU ATTITUDE CONTROL OR ENTRY MODE.
005732,000186: 04,7100           70727                           MASK     WASKSET                               
005733,000187: 04,7101           10000                           CCS      A                                     #  IS IT IN ONE OF THESE MODES.
005734,000188: 04,7102           45501                           CS       ZERO                                  #  YES.. PUT +0 INTO CDUIND.
005735,000189: 04,7103           40000                           COM                                            #  NO... PUT -0 INTO CDUIND.
005736,000190: 04,7104           50677                           TS       CDUIND                                
005737,000191: 
005738,000192: 04,7105           10004                           CCS      IN0                                   
005739,000193: 04,7106           07114                           TC       GOJUMP                                
005740,000194: 04,7107           07114                           TC       GOJUMP                                
005741,000195: 04,7110           07111                           TC       +1                                    
005742,000196: 04,7111           44503                           CS       BIT12                                 
005743,000197: 04,7112           70730                           MASK     WASOPSET                              
005744,000198: 04,7113           50730                           TS       WASOPSET                              
005745,000199: 

Page 144

005747,000201: 
005748,000202: 04,7114           34477        GOJUMP             CAF      MAXPROG                               #  SCAN PHASE TABLE FOR ACTIVITY.
005749,000203: 04,7115           50120                           TS       LOC                                   
005750,000204: 
005751,000205: 04,7116           20016                           RELINT                                         #  OPEN THE INTERRUPT GATE SO THAT EACH
005752,000206: 04,7117           20017                           INHINT                                         #  GO DISPATCH HAS 10 MS.
005753,000207: 
005754,000208: 04,7120           64516                           AD       ONE                                   #  GROUP NUMBER IN PROG.
005755,000209: 04,7121           50573                           TS       PROG                                  
005756,000210: 04,7122           20000                           INDEX    A                                     #  SEE IF GROUP ACTIVE.
005757,000211: 04,7123           10647                           CCS      PHASE1     -1                         
005758,000212: 04,7124           07154                           TC       PROGON                                #  VALID IF PHASE LESS THAN 127.
005759,000213: 04,7125           07166                           TC       GOTERM                                #  DO REQUESTED PHASE TERMINATE.
005760,000214: 04,7126           10000                           CCS      A                                     #  INACTIVE IF PHASE = -1.
005761,000215: 04,7127           07175                           TC       RSTFAIL2                              #  BAD DATA IF -0.
005762,000216: 04,7130           10120        GORETURN           CCS      LOC                                   
005763,000217: 04,7131           07115                           TC       GOJUMP     +1                         
005764,000218: 
005765,000219: 04,7132           32172                           CAF      PRIO37                                #  FIRE UP JOB TO DISPLAY FAILREG
005766,000220: 04,7133           02052                           TC       NOVAC                                 
005767,000221: 04,7134           23725                           CADR     DOALARM                               
005768,000222: 
005769,000223: 04,7135           20016        ENDFRESH           RELINT                                         
005770,000224: 04,7136           05654                           TC       BANKCALL                              #  DISPLAY MAJOR MODES.
005771,000225: 04,7137           16003                           CADR     DSPMM                                 
005772,000226: 
005773,000227: 04,7140           05720                           TC       POSTJUMP                              
005774,000228: 04,7141           23415                           CADR     DUMMYJOB                              #  THIS REVERTS TO THE IDLING JOB.
005775,000229: 
005776,000230: 04,7142           10000        ZEROTEST           CCS      A                                     
005777,000231: 04,7143           06717                           TC       NOGO                                  #  RESTART FROM GO IMPOSSIBLE.
005778,000232: 04,7144           00001                           TC       Q                                     #  OK SO FAR
005779,000233: 04,7145           06717                           TC       NOGO                                  
005780,000234: 04,7146           06717                           TC       NOGO                                  
005781,000235: 

Page 145

005783,000237: 
005784,000238:                                                                                                  #    INTERNAL RESTART BY PROGRAM CONTROL TO FLUSH OUT WAITLIST AND EXEC.
005785,000239: 
005786,000240: 04,7147           20017        ENEMA              INHINT                                         #  A STRANGE INSTRUCTION TO BEAR THIS NAME.
005787,000241: 04,7150           07200                           TC       STARTSUB                              
005788,000242: 
005789,000243: 04,7151           45501                           CS       ZERO                                  #  ALL 7 IN SFAIL DENOTES PROGRAMMED REDO.
005790,000244: 04,7152           51764                           TS       SFAIL                                 
005791,000245: 
005792,000246: 04,7153           07070                           TC       CHECKIN3                              
005793,000247: 

Page 146

005795,000249: 
005796,000250:                                                                                                  #        DISPATCH OR TERMINATE RESTART GROUPS.
005797,000251: 
005798,000252: 04,7154           64516        PROGON             AD       ONE                                   #  PHASE BITS TO MPAC.
005799,000253: 04,7155           50115                           TS       MPAC                                  
005800,000254: 04,7156           44720                           CS       LOW7                                  #  CHECK SIZE.
005801,000255: 04,7157           70115                           MASK     MPAC                                  
005802,000256: 04,7160           10000                           CCS      A                                     
005803,000257: 04,7161           07175                           TC       RSTFAIL2                              #  RESTART FAIL - OUT OF RANGE.
005804,000258: 
005805,000259: 04,7162           20120                           INDEX    LOC                                   #  JUMP TO GOCADR LOC.
005806,000260: 04,7163           37350                           CAF      GOCADR                                
005807,000261: 04,7164           05662                           TC       SWCALL                                
005808,000262: 
005809,000263: 04,7165           07130                           TC       GORETURN                              #  ON RETURN FROM SWCALL.
005810,000264: 
005811,000265: 04,7166           44516        GOTERM             CS       ONE                                   #  IF A RESTART GROUP HAD BEEN REQUESTED TO
005812,000266: 04,7167           20120                           INDEX    LOC                                   #  TERMINATE, DO THE TERMINATE NOW.
005813,000267: 04,7170           50650                           TS       PHASE1                                
005814,000268: 04,7171           40000                           COM                                            
005815,000269: 04,7172           20120                           INDEX    LOC                                   
005816,000270: 04,7173           50656                           TS       -PHASE1                               
005817,000271: 04,7174           07130                           TC       GORETURN                              
005818,000272: 
005819,000273: 04,7175           35503        RSTFAIL2           CAF      TWO                                   #  BAD DATA IN RESTART TABLES - FAIL.
005820,000274: 04,7176           50726                           TS       OLDERR                                
005821,000275: 04,7177           06717                           TC       NOGO                                  
005822,000276: 

Page 147

005824,000278: 
005825,000279:                                                                                                  #        INITIALIZATION SUBROUTINE, CONTAINING INITIALIZATION COMMON TO BOTH FRESH START (KEYBOARD REQUEST) AND
005826,000280:                                                                                                  #  RESTART (IN RESPONSE TO A GO SEQUENCE).
005827,000281: 
005828,000282: 04,7200           30001        STARTSUB           XCH      Q                                     
005829,000283: 04,7201           50077                           TS       BUF                                   #  EXEC TEMPS ARE AVAILABLE TO US.
005830,000284: 
005831,000285: 04,7202           34476                           CAF      POSMAX                                #  T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
005832,000286: 04,7203           50037                           TS       TIME3                                 #    (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
005833,000287: 04,7204           50040                           TS       TIME4                                 #    CASE RUPT SIGNALLED BEFORE TS TIME3),
005834,000288: 
005835,000289: 04,7205           34520                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
005836,000290: 04,7206           50560                           TS       LST1       +6                         
005837,000291: 04,7207           50557                           TS       LST1       +5                         
005838,000292: 04,7210           50556                           TS       LST1       +4                         
005839,000293: 04,7211           50555                           TS       LST1       +3                         
005840,000294: 04,7212           50554                           TS       LST1       +2                         
005841,000295: 04,7213           50553                           TS       LST1       +1                         
005842,000296: 04,7214           50552                           TS       LST1                                  
005843,000297: 
005844,000298: 04,7215           42260                           CS       ENDTASK                               #  SET ALL TASKS TO DUMMY TASK.
005845,000299: 04,7216           50570                           TS       LST2       +7                         
005846,000300: 04,7217           50567                           TS       LST2       +6                         
005847,000301: 04,7220           50566                           TS       LST2       +5                         
005848,000302: 04,7221           50565                           TS       LST2       +4                         
005849,000303: 04,7222           50564                           TS       LST2       +3                         
005850,000304: 04,7223           50563                           TS       LST2       +2                         
005851,000305: 04,7224           50562                           TS       LST2       +1                         
005852,000306: 04,7225           50561                           TS       LST2                                  
005853,000307: 
005854,000308: 04,7226           45501                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
005855,000309: 04,7227           50134                           TS       PRIORITY   +8D                        #  AVAILABLE (EXCEPT THIS ONE).
005856,000310: 04,7230           50144                           TS       PRIORITY   +16D                       
005857,000311: 04,7231           50154                           TS       PRIORITY   +24D                       
005858,000312: 04,7232           50164                           TS       PRIORITY   +32D                       
005859,000313: 04,7233           50174                           TS       PRIORITY   +40D                       
005860,000314: 04,7234           50204                           TS       PRIORITY   +48D                       
005861,000315: 04,7235           50214                           TS       PRIORITY   +56D                       
005862,000316: 
005863,000317: 04,7236           50033                           TS       DSRUPTSW                              #  -0 GIVES US 40 MS TO GET READY FOR T4.
005864,000318: 04,7237           50677                           TS       CDUIND                                #  MAKE IMU AND OPTICS AVAILABLE.
005865,000319: 04,7240           50703                           TS       OPTIND                                
005866,000320: 

Page 148

005868,000322: 
005869,000323: 04,7241           37356                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
005870,000324: 04,7242           50216                           TS       VAC1USE                               
005871,000325: 04,7243           67357                           AD       LTHVACA                               
005872,000326: 04,7244           50272                           TS       VAC2USE                               
005873,000327: 04,7245           67357                           AD       LTHVACA                               
005874,000328: 04,7246           50346                           TS       VAC3USE                               
005875,000329: 04,7247           67357                           AD       LTHVACA                               
005876,000330: 04,7250           50422                           TS       VAC4USE                               
005877,000331: 04,7251           67357                           AD       LTHVACA                               
005878,000332: 04,7252           50476                           TS       VAC5USE                               
005879,000333: 
005880,000334: 04,7253           34505                           CAF      BIT10                                 #  THIS REGISTER SET BECOMES DUMMY JOB.
005881,000335: 04,7254           50124                           TS       PRIORITY                              
005882,000336: 
005883,000337: 04,7255           33232                           CAF      TEN                                   #  TURN OFF ALL DISPLAY SYSTEM RELAYS.
005884,000338: 04,7256           50115        DSPOFF             TS       MPAC                                  
005885,000339: 04,7257           44503                           CS       BIT12                                 
005886,000340: 04,7260           20115                           INDEX    MPAC                                  
005887,000341: 04,7261           50710                           TS       DSPTAB                                
005888,000342: 04,7262           10115                           CCS      MPAC                                  
005889,000343: 04,7263           07256                           TC       DSPOFF                                
005890,000344: 
005891,000345: 04,7264           51760                           TS       ERESTORE                              
005892,000346: 04,7265           50041                           TS       UPLINK                                #  THESE MIGHT PICK UP AN INCREMENT DURING
005893,000347: 04,7266           50056                           TS       56                                    #  A GO.
005894,000348: 04,7267           50706                           TS       DSPCNT                                #  SKIPS TO HERE WHEN FINISHED WITH C(A)=0.
005895,000349: 04,7270           50215                           TS       NEWJOB                                
005896,000350: 04,7271           50627                           TS       CADRSTOR                              
005897,000351: 04,7272           50613                           TS       REQRET                                
005898,000352: 04,7273           50633                           TS       CLPASS                                
005899,000353: 04,7274           50625                           TS       MONSAVE                               #  KILL MONITOR
005900,000354: 04,7275           50626                           TS       MONSAVE1                              
005901,000355: 04,7276           50630                           TS       GRABLOCK                              
005902,000356: 04,7277           50602                           TS       VERBREG                               
005903,000357: 04,7300           50603                           TS       NOUNREG                               
005904,000358: 04,7301           50634                           TS       DSPLIST                               
005905,000359: 04,7302           50635                           TS       DSPLIST    +1                         
005906,000360: 04,7303           50636                           TS       DSPLIST    +2                         

Page 149

005908,000362: 04,7304           50764                           TS       LGYRO                                 #  MAKE GYRO ROUTINES AVAILABLE.
005909,000363: 04,7305           50756                           TS       GCOMP                                 #  ZERO COMPENSATING GYRO TORQUES.
005910,000364: 04,7306           50757                           TS       GCOMP      +1                         
005911,000365: 04,7307           50760                           TS       GCOMP      +2                         
005912,000366: 04,7310           50761                           TS       GCOMP      +3                         
005913,000367: 04,7311           50762                           TS       GCOMP      +4                         
005914,000368: 04,7312           50763                           TS       GCOMP      +5                         
005915,000369: 04,7313           50731                           TS       DESKSET                               #  NO COMPUTER COMMAND.
005916,000370: 04,7314           50732                           TS       DESOPSET                              #  (SAME AS IMU).
005917,000371: 04,7315           50733                           TS       IMUCADR                               #  INITIALIZE MODE-SWITCHING.
005918,000372: 04,7316           50734                           TS       OPTCADR                               
005919,000373: 04,7317           50675                           TS       TMMARKER                              
005920,000374: 04,7320           50735                           TS       MARKSTAT                              #  MAKE MARK SYSTEM AVAILABLE.
005921,000375: 
005922,000376: 04,7321           40036                           CS       TIME1                                 #  SAVE TIME OF LAST RESTART. (MINUS VALUE)
005923,000377: 04,7322           51077                           TS       REDOTIME   +1                         
005924,000378: 
005925,000379: 04,7323           34475                           CAF      SIX                                   #  (MAY NOT GET ANY ENDPULSES BEFORE T4).
005926,000380: 04,7324           50670                           TS       TELCOUNT                              
005927,000381: 
005928,000382: 04,7325           37345                           CAF      LPHASE1                               
005929,000383: 04,7326           50673                           TS       DNTMGOTO                              
005930,000384: 
005931,000385: 04,7327           32566                           CAF      LDNLST1                               
005932,000386: 04,7330           50672                           TS       DNLSTADR                              
005933,000387: 
005934,000388: 04,7331           37347                           CAF      NOUTCON                               
005935,000389: 04,7332           50707                           TS       NOUT                                  
005936,000390: 
005937,000391: 04,7333           47346                           CS       BIT3/4                                #  ZERO ONLY DSPLOCK (BIT4 OF STATE) AND
005938,000392: 04,7334           70645                           MASK     STATE                                 #  EXTVBACT (BIT3 OF STATE) FOR RESTART.
005939,000393: 04,7335           50645                           TS       STATE                                 #  UPLOCK (BIT2 OF STATE) IS ZEROED ONLY
005940,000394:                                                                                                  #  IN FRESH START.
005941,000395: 04,7336           43227                           CS       VD1                                   
005942,000396: 04,7337           50614                           TS       DSPCOUNT                              
005943,000397: 04,7340           00077                           TC       BUF                                   #  DONE.
005944,000398: 

Page 150

005946,000400: 
005947,000401: 04,7341           40037        HUNGMASK           OCT      40037                                 #  KEYCODE AND MARK BUTTON ONLY
005948,000402: 04,7342           35000        OPTMODES           OCT      35000                                 
005949,000403: 
005950,000404: 04,7343           00050        OCT50              OCT      50                                    #  FINE ALIGN + TRANSFER SWITCH.
005951,000405: 04,7344           40010        OCT40010           OCT      40010                                 #  IMU FINE ALIGN C-RELAY SETTING.
005952,000406: 04,7345           02413        LPHASE1            ADRES    DNPHASE1                              
005953,000407: 04,7346           00014        BIT3/4             OCT      14                                    
005954,000408: 04,7347           00013        NOUTCON            DEC      11         B-14                       
005955,000409: 
005956,000410: 
005957,000411: 
005958,000412: 04,7350           02124        GOCADR             CADR     ENDOFJOB                              #  FOR 501 ONLY
005959,000413: 04,7351           26563                           CADR     RESTARTS                              #  GROUP 2 RESTARTS.
005960,000414: 04,7352           26563                           CADR     RESTARTS                              #  GROUP 3 RESTARTS.
005961,000415: 04,7353           26563                           CADR     RESTARTS                              #  GROUP 4 RESTARTS.
005962,000416: 04,7354           26563                           CADR     RESTARTS                              #  GROUP 5 RESTARTS.
005963,000417: 04,7355           26563                           CADR     RESTARTS                              #  GROUP 6 RESTARTS.
005964,000418: 
005965,000419: 04,7356           00216        VAC1ADRC           ADRES    VAC1USE                               
005966,000420: 04,7357           00054        LTHVACA            DEC      44         B-14                       
005967,000421: 
005968,000422: 04,7360           01340        SWINIT             OCT      01340                                 
005969,000423: 04,7361           00000                           OCT      00000                                 #  STATE +1
005970,000424: 04,7362           00000                           OCT      00000                                 #  STATE +2

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