Source Code

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