Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
005548,000002: ## Copyright: Public domain.
005549,000003: ## Filename: FRESH_START_AND_RESTART.agc
005550,000004: ## Purpose: Part of the source code for Solarium build 55. This
005551,000005: ## is for the Command Module's (CM) Apollo Guidance
005552,000006: ## Computer (AGC), for Apollo 6.
005553,000007: ## Assembler: yaYUL --block1
005554,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
005555,000009: ## Website: www.ibiblio.org/apollo/index.html
005556,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
005557,000011: ## Mod history: 2009-09-28 JL Created.
005558,000012: ## 2016-08-23 RSB Typos.
005559,000013: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
005560,000014: ## and fixed errors found.
005561,000015:
|
|
Page 140
|
005563,000017:
005564,000018: 04,6705 BANK 4
005565,000019: # FRESH START - A KEYBOARD REQUEST TO INITIALIZE THE SYSTEM.
005566,000020:
005567,000021: 04,6705 20017 SLAP1 INHINT # COMES HERE FROM THE PINBALL VERB FAN.
005568,000022: 04,6706 35501 CAF ZERO # (ZERO FAILREG IN FRESH START ONLY).
005569,000023: 04,6707 51763 TS FAILREG
005570,000024: 04,6710 50612 TS MODREG
005571,000025: 04,6711 51075 TS REDOCNTR # ZERO ONLY DURING FRESH START.
005572,000026:
005573,000027: 04,6712 34513 CAF BIT4 # DISABLE IMU FAIL FOR 5 SECS.
005574,000028: 04,6713 50726 SLAP2 TS OLDERR # CURTAINS ENTERS HERE FROM THATSALL.
005575,000029: # DSPLOCK (BIT 4 OF STATE), UPLOCK (BIT2 OF
005576,000030: # STATE), EXTVBACT (BIT3 OF STATE) ARE
005577,000031: # ZEROED BELOW (FRESH START ONLY).
005578,000032: 04,6714 35501 CAF ZERO
005579,000033: 04,6715 51765 TS ERCOUNT
005580,000034:
005581,000035: 04,6716 07200 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
005582,000036:
005583,000037: 04,6717 34477 NOGO CAF MAXPROG # MAKE ALL RESTART GROUPS INACTIVE.
005584,000038: 04,6720 50077 TS BUF
005585,000039: 04,6721 44516 CS ONE
005586,000040: 04,6722 20077 INDEX BUF
005587,000041: 04,6723 50650 TS PHASE1
005588,000042: 04,6724 40000 COM
005589,000043: 04,6725 20077 INDEX BUF
005590,000044: 04,6726 50656 TS -PHASE1
005591,000045:
005592,000046: 04,6727 10077 CCS BUF
005593,000047: 04,6730 06720 TC NOGO +1
005594,000048:
005595,000049: 04,6731 50011 TS OUT1 # RESET OUT1 HERE INSTEAD OF IN STARTSUB.
005596,000050: 04,6732 51762 TS SMODE # DISABLE SELF-CHECK.
005597,000051:
005598,000052: 04,6733 34500 CAF BIT15 # TELL T4RUPT TO TURN OFF ALL C RELAYS.
005599,000053: 04,6734 50724 DSP12D TS DSPTAB +12D
005600,000054: 04,6735 50725 DSP13D TS DSPTAB +13D
005601,000055:
005602,000056: 04,6736 37344 CAF OCT40010
005603,000057: 04,6737 50723 DSP11D TS DSPTAB +11D # LEAVE IMU IN FINE ALIGN
005604,000058:
005605,000059: 04,6740 50727 TS WASKSET # DISABLE KSAMP DURING INITIAL TRANSIENT.
005606,000060:
005607,000061: 04,6741 34512 CAF BIT5 # FOR 160 MS.
005608,000062: 04,6742 02173 TC WAITLIST
005609,000063: 04,6743 10771 CADR KENABLE
005610,000064:
005611,000065: 04,6744 30007 XCH IN3
005612,000066: 04,6745 30007 XCH IN3
005613,000067: 04,6746 77342 MASK OPTMODES
|
|
Page 141
|
005615,000069: 04,6747 50730 TS WASOPSET
005616,000070:
005617,000071: 04,6750 37360 CAF SWINIT # INITIALIZE SWITCH BIT AREA ON FRESH
005618,000072: 04,6751 50645 TS STATE # START ONLY.
005619,000073: 04,6752 37361 CAF SWINIT +1
005620,000074: 04,6753 50646 TS STATE +1
005621,000075: 04,6754 37362 CAF SWINIT +2
005622,000076: 04,6755 50647 TS STATE +2
005623,000077:
005624,000078: 04,6756 40726 CS OLDERR # SEE IF CURTAINS CALLED FRESH START.
005625,000079: 04,6757 74512 MASK BIT5
005626,000080: 04,6760 10000 CCS A
005627,000081: 04,6761 06764 TC STARTSW
005628,000082:
005629,000083: 04,6762 03007 TC ALARM
005630,000084: 04,6763 00301 OCT 00301
005631,000085:
005632,000086: 04,6764 07135 STARTSW TC ENDFRESH
005633,000087: 04,6765 32160 ESTART CAF PRIO25 # FIRE UP INITIALIZATION JOB.
005634,000088: 04,6766 02046 TC FINDVAC
005635,000089: 04,6767 67411 CADR BEGIN501
005636,000090:
005637,000091: 04,6770 07135 TC ENDFRESH
005638,000092:
005639,000093: 04,6771 37343 KENABLE CAF OCT50 # COMMANDED FINE ALIGN.
005640,000094: 04,6772 50727 TS WASKSET
005641,000095: 04,6773 34505 CAF BIT10 # REMOVE IMU FAIL INHIBIT IN 5 SECS.
005642,000096: 04,6774 02173 TC WAITLIST
005643,000097: 04,6775 30201 CADR IFAILOK
005644,000098:
005645,000099: 04,6776 02256 TC TASKOVER
005646,000100:
005647,000101: 04,6777 51764 THATSALL TS SFAIL # CURTAINS - FLUSH MISSION PROGRAM.
005648,000102: 04,7000 20017 INHINT
005649,000103: 04,7001 37003 CAF BITS4&5 # DO FRESH START AND PROGRAM ALARM.
005650,000104: 04,7002 06713 TC SLAP2
005651,000105:
005652,000106: 04,7003 4477 MAXPROG EQUALS FIVE
005653,000107: 04,7003 00030 BITS4&5 OCT 30
005654,000108:
005655,000109: 04,7004 00120 BITS5&7 OCT 120
005656,000110:
|
|
Page 142
|
005658,000112:
005659,000113: # WHENEVER A GO SEQUENCE (GOJAM) IS FIRED, GOPROG IS CALLED TO RESTART ANY COMPUTER ACTIVITY THAT
005660,000114: # MAY HAVE BEEN GOING ON AT THE TIME. (A NUMBER OF ALARMS SUCH AS PARITY FAILURE OR POWER FAILURE CAUSE GOJAM).
005661,000115: # THE FUNCTION OF GOPROG IS TO INITIALIZE THE COMPUTER SUB-SYSTEM (I.E., NO C RELAYS ARE CHANGED, ETC.) AND
005662,000116: # RESTART ALL MAJOR ROUTINES WHOSE PHASE BITS INDICATE ACTIVITY.
005663,000117:
005664,000118: 04,7005 11760 GOPROG CCS ERESTORE # RESTORE TWO ERASABLE REGISTERS IF
005665,000119: 04,7006 07010 TC +2 # RESTART OCCURS WHILE SELF-CHECK HAS
005666,000120: 04,7007 07020 TC GOPROG2 # REMOVED CONTENTS OF THESE REGISTERS.
005667,000121: 04,7010 41776 CS 1776
005668,000122: 04,7011 40000 CS A
005669,000123: 04,7012 21777 NDX 1777
005670,000124: 04,7013 50001 TS 0001 # RESTORE C(X)
005671,000125: 04,7014 41775 CS 1775
005672,000126: 04,7015 40000 CS A
005673,000127: 04,7016 21777 NDX 1777
005674,000128: 04,7017 50000 TS 0000 # RESTORE C(X-1)
005675,000129: 04,7020 34512 GOPROG2 CAF DVMONMSK # SHOULD BE SYS FLAG FOR ENGINE ON.
005676,000130: 04,7021 70646 MASK FLAGWRD1
005677,000131: 04,7022 10000 CCS A # SEE IF ENGINE WAS ON.
005678,000132: 04,7023 34502 CAF BIT13 # YES..PUT IT BACK ON.
005679,000133: 04,7024 50011 TS OUT1 # NO...ZERO IT.
005680,000134:
005681,000135: 04,7025 35503 CAF TWO # SET RESTART FAIL INDICATION, WHICH WILL
005682,000136: 04,7026 50726 TS OLDERR # BE REMOVED AFTER SUCCESSFUL VERIFICATION
005683,000137: 04,7027 07200 TC STARTSUB # OF PHASE TABLE AGREEMENT.
005684,000138:
005685,000139: 04,7030 30004 XCH IN0 # IF BOTH ERROR RESET AND MARK ARE
005686,000140: 04,7031 77341 MASK HUNGMASK # DEPRESSED, FALL INTO FRESH START TO
005687,000141: 04,7032 67035 AD HUNGCODE # HOPEFULLY PREVENT OR STOP RECURRING GOS.
005688,000142: 04,7033 10000 CCS A
005689,000143: 04,7034 07040 TC PHASECHK -1 # RESTART
005690,000144: 04,7035 37755 HUNGCODE OCT 37755 # COMPLEMENT OF IN0 HUNG SETTING.
005691,000145: 04,7036 07040 TC PHASECHK -1 # RESTART
005692,000146: 04,7037 06717 TC NOGO
005693,000147:
005694,000148: 04,7040 34477 CAF MAXPROG # PHASE BITS ARE KEPT IN TWO COPIES,
005695,000149: 04,7041 50115 PHASECHK TS MPAC # ONE DIRECT AND ONE COMPLEMENTED. THIS
005696,000150: 04,7042 20000 INDEX A # SECTION MAKES SURE ALL ENTRIES IN EACH
005697,000151: 04,7043 40650 CS PHASETAB # SATISFIES THIS RULE AS AN INDICATION OF
005698,000152: 04,7044 50077 TS BUF # THE GOODNESS OF ERASABLE MEMORY. IF THE
005699,000153: 04,7045 40000 COM # TEST FAILS, DO A FRESH START WITH THE
005700,000154: 04,7046 20115 INDEX MPAC # MODE LIGHTS SET TO 00 TO TELL THE STORY.
005701,000155: 04,7047 70656 MASK PHASEBAR
005702,000156: 04,7050 07142 TC ZEROTEST # P.(-P) AND (-P).(--P) SHOULD BOTH BE
005703,000157: 04,7051 20115 INDEX MPAC # +0 FOR A LOGICAL MATCH.
005704,000158: 04,7052 40656 CS PHASEBAR
005705,000159: 04,7053 70077 MASK BUF
005706,000160: 04,7054 07142 TC ZEROTEST
005707,000161:
005708,000162: 04,7055 10115 CCS MPAC
|
|
Page 143
|
005710,000164: 04,7056 07041 TC PHASECHK
005711,000165:
005712,000166: 04,7057 51443 TS DISPCNTR # ENABLE VG DISPLAY GRAB
005713,000167: 04,7060 50726 TS OLDERR # NO RESTART FAIL.
005714,000168: 04,7061 34516 CAF ONE # INCREMENT REDOCNTR.
005715,000169: 04,7062 61075 AD REDOCNTR
005716,000170: 04,7063 51075 TS REDOCNTR
005717,000171:
005718,000172: 04,7064 44500 CS BIT15
005719,000173: 04,7065 70725 MASK DSPTAB +13D # PICK UP ALL BUT BIT 15.
005720,000174: 04,7066 64500 AD BIT15 # SET BIT 15 TO FORCE RESETTING RELAYS.
005721,000175: 04,7067 50725 TS DSPTAB +13D # MIGHT TAKE A WHILE TO GET OUT.
005722,000176:
005723,000177: 04,7070 30007 CHECKIN3 XCH IN3 # PUT PRESENT MODES INTO WAS REGISTERS.
005724,000178: 04,7071 30007 XCH IN3
005725,000179: 04,7072 50727 TS WASKSET
005726,000180: 04,7073 74720 MASK LOW7
005727,000181: 04,7074 30727 XCH WASKSET
005728,000182: 04,7075 77342 MASK OPTMODES
005729,000183: 04,7076 50730 TS WASOPSET
005730,000184:
005731,000185: 04,7077 37004 CAF BITS5&7 # IMU ATTITUDE CONTROL OR ENTRY MODE.
005732,000186: 04,7100 70727 MASK WASKSET
005733,000187: 04,7101 10000 CCS A # IS IT IN ONE OF THESE MODES.
005734,000188: 04,7102 45501 CS ZERO # YES.. PUT +0 INTO CDUIND.
005735,000189: 04,7103 40000 COM # NO... PUT -0 INTO CDUIND.
005736,000190: 04,7104 50677 TS CDUIND
005737,000191:
005738,000192: 04,7105 10004 CCS IN0
005739,000193: 04,7106 07114 TC GOJUMP
005740,000194: 04,7107 07114 TC GOJUMP
005741,000195: 04,7110 07111 TC +1
005742,000196: 04,7111 44503 CS BIT12
005743,000197: 04,7112 70730 MASK WASOPSET
005744,000198: 04,7113 50730 TS WASOPSET
005745,000199:
|
|
Page 144
|
005747,000201:
005748,000202: 04,7114 34477 GOJUMP CAF MAXPROG # SCAN PHASE TABLE FOR ACTIVITY.
005749,000203: 04,7115 50120 TS LOC
005750,000204:
005751,000205: 04,7116 20016 RELINT # OPEN THE INTERRUPT GATE SO THAT EACH
005752,000206: 04,7117 20017 INHINT # GO DISPATCH HAS 10 MS.
005753,000207:
005754,000208: 04,7120 64516 AD ONE # GROUP NUMBER IN PROG.
005755,000209: 04,7121 50573 TS PROG
005756,000210: 04,7122 20000 INDEX A # SEE IF GROUP ACTIVE.
005757,000211: 04,7123 10647 CCS PHASE1 -1
005758,000212: 04,7124 07154 TC PROGON # VALID IF PHASE LESS THAN 127.
005759,000213: 04,7125 07166 TC GOTERM # DO REQUESTED PHASE TERMINATE.
005760,000214: 04,7126 10000 CCS A # INACTIVE IF PHASE = -1.
005761,000215: 04,7127 07175 TC RSTFAIL2 # BAD DATA IF -0.
005762,000216: 04,7130 10120 GORETURN CCS LOC
005763,000217: 04,7131 07115 TC GOJUMP +1
005764,000218:
005765,000219: 04,7132 32172 CAF PRIO37 # FIRE UP JOB TO DISPLAY FAILREG
005766,000220: 04,7133 02052 TC NOVAC
005767,000221: 04,7134 23725 CADR DOALARM
005768,000222:
005769,000223: 04,7135 20016 ENDFRESH RELINT
005770,000224: 04,7136 05654 TC BANKCALL # DISPLAY MAJOR MODES.
005771,000225: 04,7137 16003 CADR DSPMM
005772,000226:
005773,000227: 04,7140 05720 TC POSTJUMP
005774,000228: 04,7141 23415 CADR DUMMYJOB # THIS REVERTS TO THE IDLING JOB.
005775,000229:
005776,000230: 04,7142 10000 ZEROTEST CCS A
005777,000231: 04,7143 06717 TC NOGO # RESTART FROM GO IMPOSSIBLE.
005778,000232: 04,7144 00001 TC Q # OK SO FAR
005779,000233: 04,7145 06717 TC NOGO
005780,000234: 04,7146 06717 TC NOGO
005781,000235:
|
|
Page 145
|
005783,000237:
005784,000238: # INTERNAL RESTART BY PROGRAM CONTROL TO FLUSH OUT WAITLIST AND EXEC.
005785,000239:
005786,000240: 04,7147 20017 ENEMA INHINT # A STRANGE INSTRUCTION TO BEAR THIS NAME.
005787,000241: 04,7150 07200 TC STARTSUB
005788,000242:
005789,000243: 04,7151 45501 CS ZERO # ALL 7 IN SFAIL DENOTES PROGRAMMED REDO.
005790,000244: 04,7152 51764 TS SFAIL
005791,000245:
005792,000246: 04,7153 07070 TC CHECKIN3
005793,000247:
|
|
Page 146
|
005795,000249:
005796,000250: # DISPATCH OR TERMINATE RESTART GROUPS.
005797,000251:
005798,000252: 04,7154 64516 PROGON AD ONE # PHASE BITS TO MPAC.
005799,000253: 04,7155 50115 TS MPAC
005800,000254: 04,7156 44720 CS LOW7 # CHECK SIZE.
005801,000255: 04,7157 70115 MASK MPAC
005802,000256: 04,7160 10000 CCS A
005803,000257: 04,7161 07175 TC RSTFAIL2 # RESTART FAIL - OUT OF RANGE.
005804,000258:
005805,000259: 04,7162 20120 INDEX LOC # JUMP TO GOCADR LOC.
005806,000260: 04,7163 37350 CAF GOCADR
005807,000261: 04,7164 05662 TC SWCALL
005808,000262:
005809,000263: 04,7165 07130 TC GORETURN # ON RETURN FROM SWCALL.
005810,000264:
005811,000265: 04,7166 44516 GOTERM CS ONE # IF A RESTART GROUP HAD BEEN REQUESTED TO
005812,000266: 04,7167 20120 INDEX LOC # TERMINATE, DO THE TERMINATE NOW.
005813,000267: 04,7170 50650 TS PHASE1
005814,000268: 04,7171 40000 COM
005815,000269: 04,7172 20120 INDEX LOC
005816,000270: 04,7173 50656 TS -PHASE1
005817,000271: 04,7174 07130 TC GORETURN
005818,000272:
005819,000273: 04,7175 35503 RSTFAIL2 CAF TWO # BAD DATA IN RESTART TABLES - FAIL.
005820,000274: 04,7176 50726 TS OLDERR
005821,000275: 04,7177 06717 TC NOGO
005822,000276:
|
|
Page 147
|
005824,000278:
005825,000279: # INITIALIZATION SUBROUTINE, CONTAINING INITIALIZATION COMMON TO BOTH FRESH START (KEYBOARD REQUEST) AND
005826,000280: # RESTART (IN RESPONSE TO A GO SEQUENCE).
005827,000281:
005828,000282: 04,7200 30001 STARTSUB XCH Q
005829,000283: 04,7201 50077 TS BUF # EXEC TEMPS ARE AVAILABLE TO US.
005830,000284:
005831,000285: 04,7202 34476 CAF POSMAX # T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
005832,000286: 04,7203 50037 TS TIME3 # (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
005833,000287: 04,7204 50040 TS TIME4 # CASE RUPT SIGNALLED BEFORE TS TIME3),
005834,000288:
005835,000289: 04,7205 34520 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
005836,000290: 04,7206 50560 TS LST1 +6
005837,000291: 04,7207 50557 TS LST1 +5
005838,000292: 04,7210 50556 TS LST1 +4
005839,000293: 04,7211 50555 TS LST1 +3
005840,000294: 04,7212 50554 TS LST1 +2
005841,000295: 04,7213 50553 TS LST1 +1
005842,000296: 04,7214 50552 TS LST1
005843,000297:
005844,000298: 04,7215 42260 CS ENDTASK # SET ALL TASKS TO DUMMY TASK.
005845,000299: 04,7216 50570 TS LST2 +7
005846,000300: 04,7217 50567 TS LST2 +6
005847,000301: 04,7220 50566 TS LST2 +5
005848,000302: 04,7221 50565 TS LST2 +4
005849,000303: 04,7222 50564 TS LST2 +3
005850,000304: 04,7223 50563 TS LST2 +2
005851,000305: 04,7224 50562 TS LST2 +1
005852,000306: 04,7225 50561 TS LST2
005853,000307:
005854,000308: 04,7226 45501 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
005855,000309: 04,7227 50134 TS PRIORITY +8D # AVAILABLE (EXCEPT THIS ONE).
005856,000310: 04,7230 50144 TS PRIORITY +16D
005857,000311: 04,7231 50154 TS PRIORITY +24D
005858,000312: 04,7232 50164 TS PRIORITY +32D
005859,000313: 04,7233 50174 TS PRIORITY +40D
005860,000314: 04,7234 50204 TS PRIORITY +48D
005861,000315: 04,7235 50214 TS PRIORITY +56D
005862,000316:
005863,000317: 04,7236 50033 TS DSRUPTSW # -0 GIVES US 40 MS TO GET READY FOR T4.
005864,000318: 04,7237 50677 TS CDUIND # MAKE IMU AND OPTICS AVAILABLE.
005865,000319: 04,7240 50703 TS OPTIND
005866,000320:
|
|
Page 148
|
005868,000322:
005869,000323: 04,7241 37356 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
005870,000324: 04,7242 50216 TS VAC1USE
005871,000325: 04,7243 67357 AD LTHVACA
005872,000326: 04,7244 50272 TS VAC2USE
005873,000327: 04,7245 67357 AD LTHVACA
005874,000328: 04,7246 50346 TS VAC3USE
005875,000329: 04,7247 67357 AD LTHVACA
005876,000330: 04,7250 50422 TS VAC4USE
005877,000331: 04,7251 67357 AD LTHVACA
005878,000332: 04,7252 50476 TS VAC5USE
005879,000333:
005880,000334: 04,7253 34505 CAF BIT10 # THIS REGISTER SET BECOMES DUMMY JOB.
005881,000335: 04,7254 50124 TS PRIORITY
005882,000336:
005883,000337: 04,7255 33232 CAF TEN # TURN OFF ALL DISPLAY SYSTEM RELAYS.
005884,000338: 04,7256 50115 DSPOFF TS MPAC
005885,000339: 04,7257 44503 CS BIT12
005886,000340: 04,7260 20115 INDEX MPAC
005887,000341: 04,7261 50710 TS DSPTAB
005888,000342: 04,7262 10115 CCS MPAC
005889,000343: 04,7263 07256 TC DSPOFF
005890,000344:
005891,000345: 04,7264 51760 TS ERESTORE
005892,000346: 04,7265 50041 TS UPLINK # THESE MIGHT PICK UP AN INCREMENT DURING
005893,000347: 04,7266 50056 TS 56 # A GO.
005894,000348: 04,7267 50706 TS DSPCNT # SKIPS TO HERE WHEN FINISHED WITH C(A)=0.
005895,000349: 04,7270 50215 TS NEWJOB
005896,000350: 04,7271 50627 TS CADRSTOR
005897,000351: 04,7272 50613 TS REQRET
005898,000352: 04,7273 50633 TS CLPASS
005899,000353: 04,7274 50625 TS MONSAVE # KILL MONITOR
005900,000354: 04,7275 50626 TS MONSAVE1
005901,000355: 04,7276 50630 TS GRABLOCK
005902,000356: 04,7277 50602 TS VERBREG
005903,000357: 04,7300 50603 TS NOUNREG
005904,000358: 04,7301 50634 TS DSPLIST
005905,000359: 04,7302 50635 TS DSPLIST +1
005906,000360: 04,7303 50636 TS DSPLIST +2
|
|
Page 149
|
005908,000362: 04,7304 50764 TS LGYRO # MAKE GYRO ROUTINES AVAILABLE.
005909,000363: 04,7305 50756 TS GCOMP # ZERO COMPENSATING GYRO TORQUES.
005910,000364: 04,7306 50757 TS GCOMP +1
005911,000365: 04,7307 50760 TS GCOMP +2
005912,000366: 04,7310 50761 TS GCOMP +3
005913,000367: 04,7311 50762 TS GCOMP +4
005914,000368: 04,7312 50763 TS GCOMP +5
005915,000369: 04,7313 50731 TS DESKSET # NO COMPUTER COMMAND.
005916,000370: 04,7314 50732 TS DESOPSET # (SAME AS IMU).
005917,000371: 04,7315 50733 TS IMUCADR # INITIALIZE MODE-SWITCHING.
005918,000372: 04,7316 50734 TS OPTCADR
005919,000373: 04,7317 50675 TS TMMARKER
005920,000374: 04,7320 50735 TS MARKSTAT # MAKE MARK SYSTEM AVAILABLE.
005921,000375:
005922,000376: 04,7321 40036 CS TIME1 # SAVE TIME OF LAST RESTART. (MINUS VALUE)
005923,000377: 04,7322 51077 TS REDOTIME +1
005924,000378:
005925,000379: 04,7323 34475 CAF SIX # (MAY NOT GET ANY ENDPULSES BEFORE T4).
005926,000380: 04,7324 50670 TS TELCOUNT
005927,000381:
005928,000382: 04,7325 37345 CAF LPHASE1
005929,000383: 04,7326 50673 TS DNTMGOTO
005930,000384:
005931,000385: 04,7327 32566 CAF LDNLST1
005932,000386: 04,7330 50672 TS DNLSTADR
005933,000387:
005934,000388: 04,7331 37347 CAF NOUTCON
005935,000389: 04,7332 50707 TS NOUT
005936,000390:
005937,000391: 04,7333 47346 CS BIT3/4 # ZERO ONLY DSPLOCK (BIT4 OF STATE) AND
005938,000392: 04,7334 70645 MASK STATE # EXTVBACT (BIT3 OF STATE) FOR RESTART.
005939,000393: 04,7335 50645 TS STATE # UPLOCK (BIT2 OF STATE) IS ZEROED ONLY
005940,000394: # IN FRESH START.
005941,000395: 04,7336 43227 CS VD1
005942,000396: 04,7337 50614 TS DSPCOUNT
005943,000397: 04,7340 00077 TC BUF # DONE.
005944,000398:
|
|
Page 150
|
005946,000400:
005947,000401: 04,7341 40037 HUNGMASK OCT 40037 # KEYCODE AND MARK BUTTON ONLY
005948,000402: 04,7342 35000 OPTMODES OCT 35000
005949,000403:
005950,000404: 04,7343 00050 OCT50 OCT 50 # FINE ALIGN + TRANSFER SWITCH.
005951,000405: 04,7344 40010 OCT40010 OCT 40010 # IMU FINE ALIGN C-RELAY SETTING.
005952,000406: 04,7345 02413 LPHASE1 ADRES DNPHASE1
005953,000407: 04,7346 00014 BIT3/4 OCT 14
005954,000408: 04,7347 00013 NOUTCON DEC 11 B-14
005955,000409:
005956,000410:
005957,000411:
005958,000412: 04,7350 02124 GOCADR CADR ENDOFJOB # FOR 501 ONLY
005959,000413: 04,7351 26563 CADR RESTARTS # GROUP 2 RESTARTS.
005960,000414: 04,7352 26563 CADR RESTARTS # GROUP 3 RESTARTS.
005961,000415: 04,7353 26563 CADR RESTARTS # GROUP 4 RESTARTS.
005962,000416: 04,7354 26563 CADR RESTARTS # GROUP 5 RESTARTS.
005963,000417: 04,7355 26563 CADR RESTARTS # GROUP 6 RESTARTS.
005964,000418:
005965,000419: 04,7356 00216 VAC1ADRC ADRES VAC1USE
005966,000420: 04,7357 00054 LTHVACA DEC 44 B-14
005967,000421:
005968,000422: 04,7360 01340 SWINIT OCT 01340
005969,000423: 04,7361 00000 OCT 00000 # STATE +1
005970,000424: 04,7362 00000 OCT 00000 # STATE +2
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc