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