Source Code

These source-code files are part of a reconstructed copy of Corona 261, the final, flown release of the Block I Command Module (CM) Apollo Guidance Computer (AGC) software for the AS-202 mission.

They have been created via disassembly of binary dumps of the original core rope memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241, 1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo 4 and 6 software, Solarium 55, was used as a starting point, since it was directly derived from Corona and (at least in theory) only minimally modified.

Since only binary dumps (rather than listings) of Corona are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

005349,000002:                                                                                                  ## Copyright:   Public domain.
005350,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
005351,000004:                                                                                                  ## Purpose:     A section of Corona revision 261.
005352,000005:                                                                                                  ##              It is part of the source code for the Apollo Guidance Computer
005353,000006:                                                                                                  ##              (AGC) for AS-202. No original listings of this software are
005354,000007:                                                                                                  ##              available; instead, this file was created via disassembly of
005355,000008:                                                                                                  ##              the core rope modules actually flown on the mission.
005356,000009:                                                                                                  ## Assembler:   yaYUL
005357,000010:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
005358,000011:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
005359,000012:                                                                                                  ## Mod history: 2023-05-27 MAS  Created from Solarium 55.
005360,000013:                                                                                                  ##              2023-06-17 MAS  Updated for Corona.
005361,000014: 
005362,000015: 
005363,000016: 04,6705                                           BANK     4                                     
005364,000017:                                                                                                  #        FRESH START - A KEYBOARD REQUEST TO INITIALIZE THE SYSTEM.
005365,000018: 
005366,000019: 04,6705           20017        SLAP1              INHINT                                         #  COMES HERE FROM THE PINBALL VERB FAN.
005367,000020: 04,6706           35501                           CAF      ZERO                                  #   (ZERO FAILREG IN FRESH START ONLY).
005368,000021: 04,6707           51763                           TS       FAILREG                               
005369,000022: 04,6710           50612                           TS       MODREG                                
005370,000023: 04,6711           51075                           TS       REDOCNTR                              #  ZERO ONLY DURING FRESH START.
005371,000024: 
005372,000025: 04,6712           34513                           CAF      BIT4                                  #  DISABLE IMU FAIL FOR 5 SECS.
005373,000026: 04,6713           50726        SLAP2              TS       OLDERR                                #   CURTAINS ENTERS HERE FROM THATSALL.
005374,000027:                                                                                                  #  DSPLOCK (BIT 4 OF STATE), UPLOCK (BIT2 OF
005375,000028:                                                                                                  #  STATE), EXTVBACT (BIT3 OF STATE) ARE
005376,000029:                                                                                                  #  ZEROED BELOW (FRESH START ONLY).
005377,000030: 04,6714           35501                           CAF      ZERO                                  
005378,000031: 04,6715           51765                           TS       ERCOUNT                               
005379,000032: 
005380,000033: 04,6716           07165                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
005381,000034: 
005382,000035: 04,6717           34477        NOGO               CAF      MAXPROG                               #  MAKE ALL RESTART GROUPS INACTIVE.
005383,000036: 04,6720           50077                           TS       BUF                                   
005384,000037: 04,6721           44516                           CS       ONE                                   
005385,000038: 04,6722           20077                           INDEX    BUF                                   
005386,000039: 04,6723           50650                           TS       PHASE1                                
005387,000040: 04,6724           40000                           COM                                            
005388,000041: 04,6725           20077                           INDEX    BUF                                   
005389,000042: 04,6726           50656                           TS       -PHASE1                               
005390,000043: 
005391,000044: 04,6727           10077                           CCS      BUF                                   
005392,000045: 04,6730           06720                           TC       NOGO       +1                         
005393,000046: 
005394,000047: 04,6731           50011                           TS       OUT1                                  #  RESET OUT1 HERE INSTEAD OF IN STARTSUB.
005395,000048: 04,6732           51762                           TS       SMODE                                 #  DISABLE SELF-CHECK.
005396,000049: 
005397,000050: 04,6733           34500                           CAF      BIT15                                 #  TELL T4RUPT TO TURN OFF ALL C RELAYS.
005398,000051: 04,6734           50724        DSP12D             TS       DSPTAB     +12D                       
005399,000052: 04,6735           50725        DSP13D             TS       DSPTAB     +13D                       
005400,000053: 
005401,000054: 04,6736           37330                           CAF      OCT40010                              
005402,000055: 04,6737           50723        DSP11D             TS       DSPTAB     +11D                       #  LEAVE IMU IN FINE ALIGN
005403,000056: 
005404,000057: 04,6740           50727                           TS       WASKSET                               #  DISABLE KSAMP DURING INITIAL TRANSIENT.
005405,000058: 
005406,000059: 04,6741           34512                           CAF      BIT5                                  #  FOR 160 MS.
005407,000060: 04,6742           02173                           TC       WAITLIST                              
005408,000061: 04,6743           10771                           CADR     KENABLE                               
005409,000062: 
005410,000063: 04,6744           30007                           XCH      IN3                                   
005411,000064: 04,6745           30007                           XCH      IN3                                   
005412,000065: 04,6746           77326                           MASK     OPTMODES                              
005413,000066: 04,6747           50730                           TS       WASOPSET                              
005414,000067: 
005415,000068: 04,6750           37344                           CAF      SWINIT                                #  INITIALIZE SWITCH BIT AREA ON FRESH
005416,000069: 04,6751           50645                           TS       STATE                                 #  START ONLY.
005417,000070: 04,6752           37345                           CAF      SWINIT     +1                         
005418,000071: 04,6753           50646                           TS       STATE      +1                         
005419,000072: 04,6754           37346                           CAF      SWINIT     +2                         
005420,000073: 04,6755           50647                           TS       STATE      +2                         
005421,000074: 
005422,000075: 04,6756           40726                           CS       OLDERR                                #  SEE IF CURTAINS CALLED FRESH START.
005423,000076: 04,6757           74512                           MASK     BIT5                                  
005424,000077: 04,6760           10000                           CCS      A                                     
005425,000078: 04,6761           06764                           TC       STARTSW                               
005426,000079: 
005427,000080: 04,6762           03015                           TC       ALARM                                 
005428,000081: 04,6763           00301                           OCT      00301                                 
005429,000082: 
005430,000083: 04,6764           07122        STARTSW            TC       ENDFRESH                              
005431,000084: 04,6765           32160        ESTART             CAF      PRIO25                                #  FIRE UP INITIALIZATION JOB.
005432,000085: 04,6766           02046                           TC       FINDVAC                               
005433,000086: 04,6767           67601                           CADR     BEGIN202                              
005434,000087: 
005435,000088: 04,6770           07122                           TC       ENDFRESH                              
005436,000089: 
005437,000090: 04,6771           37327        KENABLE            CAF      OCT50                                 #  COMMANDED FINE ALIGN.
005438,000091: 04,6772           50727                           TS       WASKSET                               
005439,000092: 04,6773           34505                           CAF      BIT10                                 #  REMOVE IMU FAIL INHIBIT IN 5 SECS.
005440,000093: 04,6774           02173                           TC       WAITLIST                              
005441,000094: 04,6775           30201                           CADR     IFAILOK                               
005442,000095: 
005443,000096: 04,6776           02256                           TC       TASKOVER                              
005444,000097: 
005445,000098: 04,6777           51764        THATSALL           TS       SFAIL                                 #  CURTAINS - FLUSH MISSION PROGRAM.
005446,000099: 04,7000           20017                           INHINT                                         
005447,000100: 04,7001           37003                           CAF      BITS4&5                               #  DO FRESH START AND PROGRAM ALARM.
005448,000101: 04,7002           06713                           TC       SLAP2                                 
005449,000102: 
005450,000103: 04,7003     4477               MAXPROG            EQUALS   FIVE                                  
005451,000104: 04,7003           00030        BITS4&5            OCT      30                                    
005452,000105: 
005453,000106: 04,7004           00120        BITS5&7            OCT      120                                   
005454,000107: 
005455,000108: 
005456,000109:                                                                                                  #        WHENEVER A GO SEQUENCE (GOJAM) IS FIRED,  GOPROG  IS CALLED TO RESTART ANY COMPUTER ACTIVITY THAT
005457,000110:                                                                                                  #  MAY HAVE BEEN GOING ON AT THE TIME. (A NUMBER OF ALARMS SUCH AS PARITY FAILURE OR POWER FAILURE CAUSE GOJAM).
005458,000111:                                                                                                  #  THE FUNCTION OF GOPROG IS TO INITIALIZE THE COMPUTER SUB-SYSTEM (I.E., NO C RELAYS ARE CHANGED, ETC.) AND
005459,000112:                                                                                                  #  RESTART ALL MAJOR ROUTINES WHOSE PHASE BITS INDICATE ACTIVITY.
005460,000113: 
005461,000114: 04,7005           34512        GOPROG             CAF      DVMONMSK                              #  SHOULD BE SYS FLAG FOR ENGINE ON.
005462,000115: 04,7006           70646                           MASK     FLAGWRD1                              
005463,000116: 04,7007           10000                           CCS      A                                     #  SEE IF ENGINE WAS ON.
005464,000117: 04,7010           34502                           CAF      BIT13                                 #  YES..PUT IT BACK ON.
005465,000118: 04,7011           50011                           TS       OUT1                                  #  NO...ZERO IT.
005466,000119: 
005467,000120: 04,7012           35503                           CAF      TWO                                   #  SET RESTART FAIL INDICATION, WHICH WILL
005468,000121: 04,7013           50726                           TS       OLDERR                                #  BE REMOVED AFTER SUCCESSFUL VERIFICATION
005469,000122: 04,7014           07165                           TC       STARTSUB                              #  OF PHASE TABLE AGREEMENT.
005470,000123: 
005471,000124: 04,7015           30004                           XCH      IN0                                   #  IF BOTH ERROR RESET AND MARK ARE
005472,000125: 04,7016           77325                           MASK     HUNGMASK                              #  DEPRESSED, FALL INTO FRESH START TO
005473,000126: 04,7017           67022                           AD       HUNGCODE                              #  HOPEFULLY PREVENT OR STOP RECURRING GOS.
005474,000127: 04,7020           10000                           CCS      A                                     
005475,000128: 04,7021           07025                           TC       PHASECHK   -1                         #  RESTART
005476,000129: 04,7022           37755        HUNGCODE           OCT      37755                                 #  COMPLEMENT OF IN0 HUNG SETTING.
005477,000130: 04,7023           07025                           TC       PHASECHK   -1                         #  RESTART
005478,000131: 04,7024           06717                           TC       NOGO                                  
005479,000132: 
005480,000133: 04,7025           34477                           CAF      MAXPROG                               #  PHASE BITS ARE KEPT IN TWO COPIES,
005481,000134: 04,7026           50115        PHASECHK           TS       MPAC                                  #  ONE DIRECT AND ONE COMPLEMENTED. THIS
005482,000135: 04,7027           20000                           INDEX    A                                     #  SECTION MAKES SURE ALL ENTRIES IN EACH
005483,000136: 04,7030           40650                           CS       PHASETAB                              #  SATISFIES THIS RULE AS AN INDICATION OF
005484,000137: 04,7031           50077                           TS       BUF                                   #  THE GOODNESS OF ERASABLE MEMORY. IF THE
005485,000138: 04,7032           40000                           COM                                            #  TEST FAILS, DO A FRESH START WITH THE
005486,000139: 04,7033           20115                           INDEX    MPAC                                  #  MODE LIGHTS SET TO 00 TO TELL THE STORY.
005487,000140: 04,7034           70656                           MASK     PHASEBAR                              
005488,000141: 04,7035           07127                           TC       ZEROTEST                              #  P.(-P) AND (-P).(--P) SHOULD BOTH BE
005489,000142: 04,7036           20115                           INDEX    MPAC                                  #  +0 FOR A LOGICAL MATCH.
005490,000143: 04,7037           40656                           CS       PHASEBAR                              
005491,000144: 04,7040           70077                           MASK     BUF                                   
005492,000145: 04,7041           07127                           TC       ZEROTEST                              
005493,000146: 
005494,000147: 04,7042           10115                           CCS      MPAC                                  
005495,000148: 04,7043           07026                           TC       PHASECHK                              
005496,000149: 
005497,000150: 04,7044           51443                           TS       DISPCNTR                              #  ENABLE VG DISPLAY GRAB
005498,000151: 04,7045           50726                           TS       OLDERR                                #  NO RESTART FAIL.
005499,000152: 04,7046           34516                           CAF      ONE                                   #  INCREMENT REDOCNTR.
005500,000153: 04,7047           61075                           AD       REDOCNTR                              
005501,000154: 04,7050           51075                           TS       REDOCNTR                              
005502,000155: 
005503,000156: 04,7051           44500                           CS       BIT15                                 
005504,000157: 04,7052           70725                           MASK     DSPTAB     +13D                       #  PICK UP ALL BUT BIT 15.
005505,000158: 04,7053           64500                           AD       BIT15                                 #  SET BIT 15 TO FORCE RESETTING RELAYS.
005506,000159: 04,7054           50725                           TS       DSPTAB     +13D                       #  MIGHT TAKE A WHILE TO GET OUT.
005507,000160: 
005508,000161: 04,7055           30007        CHECKIN3           XCH      IN3                                   #  PUT PRESENT MODES INTO WAS  REGISTERS.
005509,000162: 04,7056           30007                           XCH      IN3                                   
005510,000163: 04,7057           50727                           TS       WASKSET                               
005511,000164: 04,7060           74720                           MASK     LOW7                                  
005512,000165: 04,7061           30727                           XCH      WASKSET                               
005513,000166: 04,7062           77326                           MASK     OPTMODES                              
005514,000167: 04,7063           50730                           TS       WASOPSET                              
005515,000168: 
005516,000169: 04,7064           37004                           CAF      BITS5&7                               #  IMU ATTITUDE CONTROL OR ENTRY MODE.
005517,000170: 04,7065           70727                           MASK     WASKSET                               
005518,000171: 04,7066           10000                           CCS      A                                     #  IS IT IN ONE OF THESE MODES.
005519,000172: 04,7067           45501                           CS       ZERO                                  #  YES.. PUT +0 INTO CDUIND.
005520,000173: 04,7070           40000                           COM                                            #  NO... PUT -0 INTO CDUIND.
005521,000174: 04,7071           50677                           TS       CDUIND                                
005522,000175: 
005523,000176: 04,7072           10004                           CCS      IN0                                   
005524,000177: 04,7073           07101                           TC       GOJUMP                                
005525,000178: 04,7074           07101                           TC       GOJUMP                                
005526,000179: 04,7075           07076                           TC       +1                                    
005527,000180: 04,7076           44503                           CS       BIT12                                 
005528,000181: 04,7077           70730                           MASK     WASOPSET                              
005529,000182: 04,7100           50730                           TS       WASOPSET                              
005530,000183: 
005531,000184: 
005532,000185: 04,7101           34477        GOJUMP             CAF      MAXPROG                               #  SCAN PHASE TABLE FOR ACTIVITY.
005533,000186: 04,7102           50120                           TS       LOC                                   
005534,000187: 
005535,000188: 04,7103           20016                           RELINT                                         #  OPEN THE INTERRUPT GATE SO THAT EACH
005536,000189: 04,7104           20017                           INHINT                                         #  GO DISPATCH HAS 10 MS.
005537,000190: 
005538,000191: 04,7105           64516                           AD       ONE                                   #  GROUP NUMBER IN PROG.
005539,000192: 04,7106           50573                           TS       PROG                                  
005540,000193: 04,7107           20000                           INDEX    A                                     #  SEE IF GROUP ACTIVE.
005541,000194: 04,7110           10647                           CCS      PHASE1     -1                         
005542,000195: 04,7111           07141                           TC       PROGON                                #  VALID IF PHASE LESS THAN 127.
005543,000196: 04,7112           07153                           TC       GOTERM                                #  DO REQUESTED PHASE TERMINATE.
005544,000197: 04,7113           10000                           CCS      A                                     #  INACTIVE IF PHASE = -1.
005545,000198: 04,7114           07162                           TC       RSTFAIL2                              #  BAD DATA IF -0.
005546,000199: 04,7115           10120        GORETURN           CCS      LOC                                   
005547,000200: 04,7116           07102                           TC       GOJUMP     +1                         
005548,000201: 
005549,000202: 04,7117           32172                           CAF      PRIO37                                #  FIRE UP JOB TO DISPLAY FAILREG
005550,000203: 04,7120           02052                           TC       NOVAC                                 
005551,000204: 04,7121           23712                           CADR     DOALARM                               
005552,000205: 
005553,000206: 04,7122           20016        ENDFRESH           RELINT                                         
005554,000207: 04,7123           05654                           TC       BANKCALL                              #  DISPLAY MAJOR MODES.
005555,000208: 04,7124           16003                           CADR     DSPMM                                 
005556,000209: 
005557,000210: 04,7125           05720                           TC       POSTJUMP                              
005558,000211: 04,7126           23402                           CADR     DUMMYJOB                              #  THIS REVERTS TO THE IDLING JOB.
005559,000212: 
005560,000213: 04,7127           10000        ZEROTEST           CCS      A                                     
005561,000214: 04,7130           06717                           TC       NOGO                                  #  RESTART FROM GO IMPOSSIBLE.
005562,000215: 04,7131           00001                           TC       Q                                     #  OK SO FAR
005563,000216: 04,7132           06717                           TC       NOGO                                  
005564,000217: 04,7133           06717                           TC       NOGO                                  
005565,000218: 
005566,000219: 
005567,000220:                                                                                                  #    INTERNAL RESTART BY PROGRAM CONTROL TO FLUSH OUT WAITLIST AND EXEC.
005568,000221: 
005569,000222: 04,7134           20017        ENEMA              INHINT                                         #  A STRANGE INSTRUCTION TO BEAR THIS NAME.
005570,000223: 04,7135           07165                           TC       STARTSUB                              
005571,000224: 
005572,000225: 04,7136           45501                           CS       ZERO                                  #  ALL 7 IN SFAIL DENOTES PROGRAMMED REDO.
005573,000226: 04,7137           51764                           TS       SFAIL                                 
005574,000227: 
005575,000228: 04,7140           07055                           TC       CHECKIN3                              
005576,000229: 
005577,000230: 
005578,000231:                                                                                                  #        DISPATCH OR TERMINATE RESTART GROUPS.
005579,000232: 
005580,000233: 04,7141           64516        PROGON             AD       ONE                                   #  PHASE BITS TO MPAC.
005581,000234: 04,7142           50115                           TS       MPAC                                  
005582,000235: 04,7143           44720                           CS       LOW7                                  #  CHECK SIZE.
005583,000236: 04,7144           70115                           MASK     MPAC                                  
005584,000237: 04,7145           10000                           CCS      A                                     
005585,000238: 04,7146           07162                           TC       RSTFAIL2                              #  RESTART FAIL - OUT OF RANGE.
005586,000239: 
005587,000240: 04,7147           20120                           INDEX    LOC                                   #  JUMP TO GOCADR LOC.
005588,000241: 04,7150           37334                           CAF      GOCADR                                
005589,000242: 04,7151           05662                           TC       SWCALL                                
005590,000243: 
005591,000244: 04,7152           07115                           TC       GORETURN                              #  ON RETURN FROM SWCALL.
005592,000245: 
005593,000246: 04,7153           44516        GOTERM             CS       ONE                                   #  IF A RESTART GROUP HAD BEEN REQUESTED TO
005594,000247: 04,7154           20120                           INDEX    LOC                                   #  TERMINATE, DO THE TERMINATE NOW.
005595,000248: 04,7155           50650                           TS       PHASE1                                
005596,000249: 04,7156           40000                           COM                                            
005597,000250: 04,7157           20120                           INDEX    LOC                                   
005598,000251: 04,7160           50656                           TS       -PHASE1                               
005599,000252: 04,7161           07115                           TC       GORETURN                              
005600,000253: 
005601,000254: 04,7162           35503        RSTFAIL2           CAF      TWO                                   #  BAD DATA IN RESTART TABLES - FAIL.
005602,000255: 04,7163           50726                           TS       OLDERR                                
005603,000256: 04,7164           06717                           TC       NOGO                                  
005604,000257: 
005605,000258: 
005606,000259:                                                                                                  #        INITIALIZATION SUBROUTINE, CONTAINING INITIALIZATION COMMON TO BOTH FRESH START (KEYBOARD REQUEST) AND
005607,000260:                                                                                                  #  RESTART (IN RESPONSE TO A GO SEQUENCE).
005608,000261: 
005609,000262: 04,7165           30001        STARTSUB           XCH      Q                                     
005610,000263: 04,7166           50077                           TS       BUF                                   #  EXEC TEMPS ARE AVAILABLE TO US.
005611,000264: 
005612,000265: 04,7167           34476                           CAF      POSMAX                                #  T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
005613,000266: 04,7170           50037                           TS       TIME3                                 #    (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
005614,000267: 04,7171           50040                           TS       TIME4                                 #    CASE RUPT SIGNALLED BEFORE TS TIME3),
005615,000268: 
005616,000269: 04,7172           34520                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
005617,000270: 04,7173           50560                           TS       LST1       +6                         
005618,000271: 04,7174           50557                           TS       LST1       +5                         
005619,000272: 04,7175           50556                           TS       LST1       +4                         
005620,000273: 04,7176           50555                           TS       LST1       +3                         
005621,000274: 04,7177           50554                           TS       LST1       +2                         
005622,000275: 04,7200           50553                           TS       LST1       +1                         
005623,000276: 04,7201           50552                           TS       LST1                                  
005624,000277: 
005625,000278: 04,7202           42260                           CS       ENDTASK                               #  SET ALL TASKS TO DUMMY TASK.
005626,000279: 04,7203           50570                           TS       LST2       +7                         
005627,000280: 04,7204           50567                           TS       LST2       +6                         
005628,000281: 04,7205           50566                           TS       LST2       +5                         
005629,000282: 04,7206           50565                           TS       LST2       +4                         
005630,000283: 04,7207           50564                           TS       LST2       +3                         
005631,000284: 04,7210           50563                           TS       LST2       +2                         
005632,000285: 04,7211           50562                           TS       LST2       +1                         
005633,000286: 04,7212           50561                           TS       LST2                                  
005634,000287: 
005635,000288: 04,7213           45501                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
005636,000289: 04,7214           50134                           TS       PRIORITY   +8D                        #  AVAILABLE (EXCEPT THIS ONE).
005637,000290: 04,7215           50144                           TS       PRIORITY   +16D                       
005638,000291: 04,7216           50154                           TS       PRIORITY   +24D                       
005639,000292: 04,7217           50164                           TS       PRIORITY   +32D                       
005640,000293: 04,7220           50174                           TS       PRIORITY   +40D                       
005641,000294: 04,7221           50204                           TS       PRIORITY   +48D                       
005642,000295: 04,7222           50214                           TS       PRIORITY   +56D                       
005643,000296: 
005644,000297: 04,7223           50033                           TS       DSRUPTSW                              #  -0 GIVES US 40 MS TO GET READY FOR T4.
005645,000298: 04,7224           50677                           TS       CDUIND                                #  MAKE IMU AND OPTICS AVAILABLE.
005646,000299: 04,7225           50703                           TS       OPTIND                                
005647,000300: 
005648,000301: 
005649,000302: 04,7226           37342                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
005650,000303: 04,7227           50216                           TS       VAC1USE                               
005651,000304: 04,7230           67343                           AD       LTHVACA                               
005652,000305: 04,7231           50272                           TS       VAC2USE                               
005653,000306: 04,7232           67343                           AD       LTHVACA                               
005654,000307: 04,7233           50346                           TS       VAC3USE                               
005655,000308: 04,7234           67343                           AD       LTHVACA                               
005656,000309: 04,7235           50422                           TS       VAC4USE                               
005657,000310: 04,7236           67343                           AD       LTHVACA                               
005658,000311: 04,7237           50476                           TS       VAC5USE                               
005659,000312: 
005660,000313: 04,7240           34505                           CAF      BIT10                                 #  THIS REGISTER SET BECOMES DUMMY JOB.
005661,000314: 04,7241           50124                           TS       PRIORITY                              
005662,000315: 
005663,000316: 04,7242           33240                           CAF      TEN                                   #  TURN OFF ALL DISPLAY SYSTEM RELAYS.
005664,000317: 04,7243           50115        DSPOFF             TS       MPAC                                  
005665,000318: 04,7244           44503                           CS       BIT12                                 
005666,000319: 04,7245           20115                           INDEX    MPAC                                  
005667,000320: 04,7246           50710                           TS       DSPTAB                                
005668,000321: 04,7247           10115                           CCS      MPAC                                  
005669,000322: 04,7250           07243                           TC       DSPOFF                                
005670,000323: 
005671,000324: 04,7251           50041                           TS       UPLINK                                #  THESE MIGHT PICK UP AN INCREMENT DURING
005672,000325: 04,7252           50056                           TS       56                                    #  A GO.
005673,000326: 04,7253           50706                           TS       DSPCNT                                #  SKIPS TO HERE WHEN FINISHED WITH C(A)=0.
005674,000327: 04,7254           50215                           TS       NEWJOB                                
005675,000328: 04,7255           50627                           TS       CADRSTOR                              
005676,000329: 04,7256           50613                           TS       REQRET                                
005677,000330: 04,7257           50633                           TS       CLPASS                                
005678,000331: 04,7260           50625                           TS       MONSAVE                               #  KILL MONITOR
005679,000332: 04,7261           50626                           TS       MONSAVE1                              
005680,000333: 04,7262           50630                           TS       GRABLOCK                              
005681,000334: 04,7263           50602                           TS       VERBREG                               
005682,000335: 04,7264           50603                           TS       NOUNREG                               
005683,000336: 04,7265           50634                           TS       DSPLIST                               
005684,000337: 04,7266           50635                           TS       DSPLIST    +1                         
005685,000338: 04,7267           50636                           TS       DSPLIST    +2                         
005686,000339: 04,7270           50764                           TS       LGYRO                                 #  MAKE GYRO ROUTINES AVAILABLE.
005687,000340: 04,7271           50756                           TS       GCOMP                                 #  ZERO COMPENSATING GYRO TORQUES.
005688,000341: 04,7272           50757                           TS       GCOMP      +1                         
005689,000342: 04,7273           50760                           TS       GCOMP      +2                         
005690,000343: 04,7274           50761                           TS       GCOMP      +3                         
005691,000344: 04,7275           50762                           TS       GCOMP      +4                         
005692,000345: 04,7276           50763                           TS       GCOMP      +5                         
005693,000346: 04,7277           50731                           TS       DESKSET                               #  NO COMPUTER COMMAND.
005694,000347: 04,7300           50732                           TS       DESOPSET                              #  (SAME AS IMU).
005695,000348: 04,7301           50733                           TS       IMUCADR                               #  INITIALIZE MODE-SWITCHING.
005696,000349: 04,7302           50734                           TS       OPTCADR                               
005697,000350: 04,7303           50675                           TS       TMMARKER                              
005698,000351: 04,7304           50735                           TS       MARKSTAT                              #  MAKE MARK SYSTEM AVAILABLE.
005699,000352: 
005700,000353: 04,7305           40036                           CS       TIME1                                 #  SAVE TIME OF LAST RESTART. (MINUS VALUE)
005701,000354: 04,7306           51077                           TS       REDOTIME   +1                         
005702,000355: 
005703,000356: 04,7307           34475                           CAF      SIX                                   #  (MAY NOT GET ANY ENDPULSES BEFORE T4).
005704,000357: 04,7310           50670                           TS       TELCOUNT                              
005705,000358: 
005706,000359: 04,7311           37331                           CAF      LPHASE1                               
005707,000360: 04,7312           50673                           TS       DNTMGOTO                              
005708,000361: 
005709,000362: 04,7313           32564                           CAF      LDNLST1                               
005710,000363: 04,7314           50672                           TS       DNLSTADR                              
005711,000364: 
005712,000365: 04,7315           37333                           CAF      NOUTCON                               
005713,000366: 04,7316           50707                           TS       NOUT                                  
005714,000367: 
005715,000368: 04,7317           47332                           CS       BIT3/4                                #  ZERO ONLY DSPLOCK (BIT4 OF STATE) AND
005716,000369: 04,7320           70645                           MASK     STATE                                 #  EXTVBACT (BIT3 OF STATE) FOR RESTART.
005717,000370: 04,7321           50645                           TS       STATE                                 #  UPLOCK (BIT2 OF STATE) IS ZEROED ONLY
005718,000371:                                                                                                  #  IN FRESH START.
005719,000372: 04,7322           43235                           CS       VD1                                   
005720,000373: 04,7323           50614                           TS       DSPCOUNT                              
005721,000374: 04,7324           00077                           TC       BUF                                   #  DONE.
005722,000375: 
005723,000376: 
005724,000377: 04,7325           40037        HUNGMASK           OCT      40037                                 #  KEYCODE AND MARK BUTTON ONLY
005725,000378: 04,7326           35000        OPTMODES           OCT      35000                                 
005726,000379: 
005727,000380: 04,7327           00050        OCT50              OCT      50                                    #  FINE ALIGN + TRANSFER SWITCH.
005728,000381: 04,7330           40010        OCT40010           OCT      40010                                 #  IMU FINE ALIGN C-RELAY SETTING.
005729,000382: 04,7331           02413        LPHASE1            ADRES    DNPHASE1                              
005730,000383: 04,7332           00014        BIT3/4             OCT      14                                    
005731,000384: 04,7333           00013        NOUTCON            DEC      11         B-14                       
005732,000385: 
005733,000386: 
005734,000387: 
005735,000388: 04,7334           51306        GOCADR             CADR     MIDGO                                 #  GROUP 1 RESTARTS.
005736,000389: 04,7335           26527                           CADR     RESTARTS                              #  GROUP 2 RESTARTS.
005737,000390: 04,7336           26527                           CADR     RESTARTS                              #  GROUP 3 RESTARTS.
005738,000391: 04,7337           26527                           CADR     RESTARTS                              #  GROUP 4 RESTARTS.
005739,000392: 04,7340           26527                           CADR     RESTARTS                              #  GROUP 5 RESTARTS.
005740,000393: 04,7341           26527                           CADR     RESTARTS                              #  GROUP 6 RESTARTS.
005741,000394: 
005742,000395: 04,7342           00216        VAC1ADRC           ADRES    VAC1USE                               
005743,000396: 04,7343           00054        LTHVACA            DEC      44         B-14                       
005744,000397: 
005745,000398: 04,7344           01360        SWINIT             OCT      01360                                 
005746,000399: 04,7345           00000                           OCT      00000                                 #  STATE +1
005747,000400: 04,7346           00000                           OCT      00000                                 #  STATE +2

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