Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
003485,000002: ## Copyright: Public domain.
003486,000003: ## Filename: FRESH_START_AND_RESTART.agc
003487,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
003488,000005: ## It is part of an early development version of the software
003489,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
003490,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
003491,000008: ## upon which Don Eyles's offline development program Shepatin
003492,000009: ## was based; the listing herein transcribed was actually for
003493,000010: ## the equivalent revision 0 of Shepatin.
003494,000011: ## This file is intended to be a faithful transcription, except
003495,000012: ## that the code format has been changed to conform to the
003496,000013: ## requirements of the yaYUL assembler rather than the
003497,000014: ## original YUL assembler.
003498,000015: ## Reference: pp. 78-89
003499,000016: ## Assembler: yaYUL
003500,000017: ## Contact: Ron Burkey <info@sandroid.org>.
003501,000018: ## Website: www.ibiblio.org/apollo/index.html
003502,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
003503,000020: ## 2017-05-29 HG Transcribed
003504,000021: ## 2017-06-15 HG Fix operand BIT14 -> BIT4
003505,000022: ## Fix operator TC -> TS
003506,000023: ## TCF -> TC
003507,000024: ## Fix statements CS LMPCMD --> MASK LMPCMD
003508,000025: ## MASK BIT15 --> AD BIT15
003509,000026: ## ADS LMPCMD --> TS LMPCMD
003510,000027: ## Fix value IM30INIR OCT 37000 -> OCT 37400
003511,000028: ## 2017-06-21 RSB Various comment fixes found using
003512,000029: ## octopus/ProoferComments.
003513,000030:
|
|
Page 78 |
003515,000032: 01,2000 BANK 01
003516,000033: 01,2000 E3,1400 EBANK= LST1
003517,000034:
003518,000035: 01,2000 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
003519,000036: 01,2001 02322 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
003520,000037:
003521,000038: 01,2002 12007 STARTSW TCF GOON # PATCH FOR SIMULATIONS
003522,000039:
003523,000040: 01,2003 37740 STARTSIM CAF BIT14
003524,000041:
003525,000042: 01,2004 05534 TC FINDVAC
003526,000043: 01,2005 0061 EBANK= ITEMP1
003527,000044: 01,2005 03524 72060 2CADR BEGIN206
003528,000045:
003529,000046: 01,2007 37737 GOON CAF BIT15 # TURN OFF ALL DSPTAB +11D LAMPS ONLY ON
003530,000047: 01,2010 54326 TS DSPTAB +11D # REQUESTED FRESH START.
003531,000048:
003532,000049: 01,2011 37761 CAF ZERO # SAME STORY ON ZEROING FAILREG.
003533,000050: 01,2012 55360 TS REDOCTR
003534,000051: 01,2013 55363 TS FAILREG
003535,000052: 01,2014 55364 TS FAILREG +1
003536,000053: 01,2015 55365 TS FAILREG +2
003537,000054:
003538,000055: 01,2016 00006 EXTEND # INITIALIZE SPECIAL ENEMIZE REGISTER
003539,000056: 01,2017 32141 DCA ENJOBCAD
003540,000057: 01,2020 52376 DXCH FLUSHREG # *** REMOVE IF FAKESTRT REMOVED
003541,000058:
003542,000059: 01,2021 47761 DOFSTART CS ZERO # MAKE ALL MTIMER/PHASE PAIRS AVAILABLE.
003543,000060: 01,2022 55167 TS MTIMER4
003544,000061: 01,2023 55170 TS MTIMER3
003545,000062: 01,2024 55171 TS MTIMER2
003546,000063: 01,2025 55172 TS MTIMER1
003547,000064:
003548,000065: 01,2026 55173 TS MPHASE4
003549,000066: 01,2027 55174 TS MPHASE3
003550,000067: 01,2030 55175 TS MPHASE2
003551,000068: 01,2031 55176 TS MPHASE1
003552,000069:
003553,000070: # INITIALIZE SWITCH REGISTERS INCLUDING DAPBOOLS
003554,000071:
003555,000072: 01,2032 47755 CS ONE
003556,000073: 01,2033 55144 TS LMPOUTT
003557,000074:
003558,000075: 01,2034 37757 CA SEVEN
003559,000076: 01,2035 54001 -6 TS L
003560,000077: 01,2036 50001 INDEX L
003561,000078: 01,2037 32540 CA SWINIT
003562,000079: 01,2040 50001 INDEX L
003563,000080: 01,2041 54074 TS STATE
003564,000081: 01,2042 10001 CCS L
003565,000082: 01,2043 12035 TCF -6
003566,000083:
|
|
Page 79 |
003568,000085:
003569,000086: 01,2044 54032 TS CDUX # ZERO CDUS SO MATRIX COMPUTATION IN T4
003570,000087: 01,2045 54033 TS CDUY # WONT OVERFLOW.
003571,000088: 01,2046 54034 TS CDUZ
003572,000089:
003573,000090: 01,2047 55132 TS LMPCMD # RESET LMP COMMAND AREA.
003574,000091: 01,2050 55133 TS LMPCMD +1
003575,000092: 01,2051 55134 TS LMPCMD +2
003576,000093: 01,2052 55135 TS LMPCMD +3
003577,000094: 01,2053 55136 TS LMPCMD +4
003578,000095: 01,2054 55137 TS LMPCMD +5
003579,000096: 01,2055 55140 TS LMPCMD +6
003580,000097: 01,2056 55141 TS LMPCMD +7
003581,000098: 01,2057 55142 TS LMPIN
003582,000099: 01,2060 55143 TS LMPOUT
003583,000100:
003584,000101: 01,2061 37761 POOH3 CAF ZERO
003585,000102: 01,2062 55357 TS SMODE
003586,000103: 01,2063 54302 TS MODREG
003587,000104: 01,2064 54412 TS AGSWORD # ALLOW AGS INITIALIZATION.
003588,000105:
003589,000106: 01,2065 55112 TS PHASE6 # INITIALIZE PHASE TABLES - NO MISSION
003590,000107: 01,2066 55100 TS PHASE1 # PROGRAMS RUNNING.
003591,000108: 01,2067 55102 TS PHASE2
003592,000109: 01,2070 55104 TS PHASE3
003593,000110: 01,2071 55106 TS PHASE4
003594,000111: 01,2072 55110 TS PHASE5
003595,000112:
003596,000113: 01,2073 40000 COM
003597,000114: 01,2074 55111 TS -PHASE6
003598,000115: 01,2075 55077 TS -PHASE1
003599,000116: 01,2076 55101 TS -PHASE2
003600,000117: 01,2077 55103 TS -PHASE3
003601,000118: 01,2100 55105 TS -PHASE4
003602,000119: 01,2101 55107 TS -PHASE5
003603,000120:
003604,000121: 01,2102 34265 CAF LNORMT4
003605,000122: 01,2103 54346 TS T4LOC
003606,000123:
003607,000124: 01,2104 32527 CAF IM30INIF # FRESH START IMU INITIALIZATION.
003608,000125: 01,2105 54365 TS IMODES30
003609,000126:
003610,000127: 01,2106 37744 CAF BIT10 # REMOVE IMU FAIL INHIBIT IN 5 SECS.
003611,000128: 01,2107 05701 TC WAITLIST
003612,000129: 01,2110 E3,1400 EBANK= LST1
003613,000130: 01,2110 02272 26003 2CADR IFAILOK
003614,000131: 01,2112 00006 EXTEND # SETTING T5RUPT FOR SETIDLER PROGRAM
003615,000132: 01,2113 32537 DCA SETADR # THE SETIDLER PROGRAM ASSURES 1 SECOND
003616,000133: 01,2114 53001 DXCH T5ADR # DELAY BEFORE THE DAPIDLER BEGINS.
003617,000134:
|
|
Page 80 |
003619,000136: 01,2115 37750 ENDRSTRT CAF BIT6 # IF GIMBAL LOCK LAMP IS STILL ON,
003620,000137: 01,2116 70326 MASK DSPTAB +11D # IMU WAS FOUND IN GIMBAL LOCK IN RESTART
003621,000138: 01,2117 10000 CCS A # AND LEFT IN COARSE ALIGN. IN THIS CASE
003622,000139: 01,2120 47745 CS BIT9 # SET ISS OPERATE BIT IN IMODES30 TO
003623,000140: 01,2121 26365 ADS IMODES30 # OPERATE SO T4 INBIT MONITOR WONT ZERO
003624,000141:
003625,000142: 01,2122 00003 RELINT # THE CDUS AS IT DOES IN FRESH START.
003626,000143: 01,2123 05224 TC BANKCALL # DISPLAY MAJOR MODE.
003627,000144: 01,2124 12001 CADR DSPMM
003628,000145:
003629,000146: 01,2125 35226 CAF PRIO30 # THIS IS USED ONLY FOR SPECIAL ENEMIZE.
003630,000147: 01,2126 00004 INHINT # $$$ REMOVE IF FULL RESTARTABILITY ***
003631,000148: 01,2127 05534 TC FINDVAC
003632,000149: 01,2130 0375 EBANK= FLUSHREG
003633,000150: 01,2130 02134 02000 2CADR FLUSHLOC
003634,000151: 01,2132 00003 RELINT
003635,000152: 01,2133 15616 TCF DUMMYJOB +2 # DONT ZERO NEWJOB
003636,000153:
003637,000154:
003638,000155:
003639,000156: 01,2134 00006 FLUSHLOC EXTEND # GO TO SPECIAL ENEMA LOC FOR ROM
003640,000157: 01,2135 30376 DCA FLUSHREG
003641,000158: 01,2136 52006 DXCH Z # USUALLY THIS WILL BE AN ENDOFJOB
003642,000159:
003643,000160: 01,2137 00312 OCT312 OCT 312
003644,000161: 01,2140 E3,1400 EBANK= LST1
003645,000162: 01,2140 05605 04003 ENJOBCAD 2CADR ENDOFJOB
003646,000163:
|
|
Page 81 |
003648,000165: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
003649,000166:
003650,000167: 01,2142 05224 GOPROG TC BANKCALL # * * * SUBJECT TO A HUGE CHANGE * * *
003651,000168: 01,2143 16055 CADR FAKESTRT
003652,000169: 01,2144 25360 INCR REDOCTR
003653,000170:
003654,000171: 01,2145 31355 CA ERESTORE
003655,000172: 01,2146 00006 EXTEND
003656,000173: 01,2147 12161 BZF 2STARTSB
003657,000174: 01,2150 31377 CA SKEEP7
003658,000175: 01,2151 74547 MASK HI5
003659,000176: 01,2152 00006 EXTEND # IF SKEEP7 CONTAINS NONSENSE, DO
003660,000177: 01,2153 12155 BZF +2 # A FRESH START. THIS ELIMINATES A CHANCE
003661,000178: 01,2154 12000 TCF SLAP1 # OF POSSIBLE COMPUTER LOCKUP.
003662,000179:
003663,000180: 01,2155 00006 EXTEND # RESTORE B(X) AND B(X+1) IF RESTART
003664,000181: 01,2156 31376 DCA SKEEP5 # HAPPENED WHILE SELF-CHECK HAD REPLACED
003665,000182: 01,2157 51377 NDX SKEEP7 # THEM WITH CHECKING WORDS.
003666,000183: 01,2160 52001 DXCH 0000
003667,000184:
003668,000185: 01,2161 02322 2STARTSB TC STARTSUB # COMMON INITIALIZATION ROUTINE
003669,000186:
003670,000187: 01,2162 32532 CAF 9,6 # LEAVE PROGRAM ALARM AND GIMBAL LOCK
003671,000188: 01,2163 70326 MASK DSPTAB +11D # LAMPS INTACT ON RESTART.
003672,000189: 01,2164 67737 AD BIT15
003673,000190: 01,2165 56326 XCH DSPTAB +11D
003674,000191:
003675,000192: 01,2166 77750 MASK BIT6
003676,000193: 01,2167 10000 CCS A # IF GIMBAL LOCK LAMP WAS ON, LEAVE ISS IN
003677,000194: 01,2170 37752 CAF BIT4 # COARSE ALIGN.
003678,000195: 01,2171 00006 EXTEND
003679,000196: 01,2172 05012 WOR 12
003680,000197:
003681,000198: # DAP ZEROES GODAPGO TO BYPASS STARTUP OF DAP AFTER JETABORT UNTIL GROUND
003682,000199: 01,2173 00006 EXTEND # SETTING T5RUPT FOR DAPIDLER PROGRAM
003683,000200: 01,2174 32535 DCA IDLEADR
003684,000201: 01,2175 53001 DXCH T5ADR
003685,000202: # RESETS GODAPGO.
003686,000203: 01,2176 35676 CAF PRIO37 # DISPLAY FAILREG AS INDICATION OF RESTART
003687,000204: 01,2177 05523 TC NOVAC # OR TO DISPLAY ABORT CODE AS ABOVE.
003688,000205: 01,2200 E3,1400 EBANK= LST1
003689,000206: 01,2200 02063 16003 2CADR DOALARM
003690,000207: 01,2202 00006 LIGHTSET EXTEND # DONT TRY TO RESTART IF ERROR
003691,000208: 01,2203 00015 READ 15 # AND MARK REJECT BUTTONS DEPRESSED.
003692,000209: 01,2204 62525 AD -ELR
003693,000210: 01,2205 00006 EXTEND
003694,000211: 01,2206 12210 BZF +2
003695,000212: 01,2207 12216 TCF +7
003696,000213:
003697,000214: 01,2210 37751 CAF BIT5
003698,000215:
|
|
Page 82 |
003700,000217: 01,2211 00006 EXTEND
003701,000218: 01,2212 02016 RAND 16
003702,000219: 01,2213 62526 AD -MKREJ
003703,000220: 01,2214 00006 EXTEND
003704,000221: 01,2215 12021 BZF DOFSTART
003705,000222:
003706,000223: 01,2216 40346 CS T4LOC # SEE IF LMP COMMAND WAS SITTING IN CH 10
003707,000224: 01,2217 62521 AD LLMPRS2 # WHEN RESTART OCCURRED. IF SO, SET BIT 15
003708,000225:
003709,000226: 01,2220 00006 EXTEND # BACK TO ZERO SO THE COMMAND WILL BE
003710,000227: 01,2221 12230 BZF LMPRUPT # RESENT.
003711,000228:
003712,000229: 01,2222 11144 CCS LMPOUTT # IF NOT, SEE IF UPDATE OF REFERENCE
003713,000230: 01,2223 67755 AD ONE # POINTER (LMPOUT) WAS IN PROCESS. IF SO,
003714,000231: 01,2224 55143 TS LMPOUT # LMPOUTT IS NON-NEGATIVE.
003715,000232: 01,2225 47755 CS ONE # SHOW LMPOUT UPDATED.
003716,000233: 01,2226 55144 TS LMPOUTT
003717,000234: 01,2227 12236 TCF T4LOCRST
003718,000235:
003719,000236: 01,2230 47737 LMPRUPT CS BIT15 # CANT USE ADS HERE SINCE CODING MUST BE
003720,000237: 01,2231 51143 INDEX LMPOUT # REPEATABLE (RESTART DURING RESTART, ETC)
003721,000238: 01,2232 71132 MASK LMPCMD
003722,000239: 01,2233 67737 AD BIT15
003723,000240: 01,2234 51143 INDEX LMPOUT
003724,000241: 01,2235 55132 TS LMPCMD
003725,000242:
003726,000243: 01,2236 34265 T4LOCRST CAF LNORMT4
003727,000244: 01,2237 54346 TS T4LOC
003728,000245:
003729,000246: 01,2240 37760 -1 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENT.
003730,000247: 01,2241 54151 PCLOOP TS MPAC +5
003731,000248: 01,2242 60000 DOUBLE
003732,000249:
003733,000250: 01,2243 00006 EXTEND
003734,000251: 01,2244 50000 INDEX A
003735,000252: 01,2245 31100 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L.
003736,000253: 01,2246 00006 EXTEND
003737,000254: 01,2247 06001 RXOR L # RESULT MUST BE -0 FOR AGREEMENT.
003738,000255: 01,2250 10000 CCS A
003739,000256: 01,2251 12310 TCF PTBAD # RESTART FAILURE.
003740,000257: 01,2252 12310 TCF PTBAD
003741,000258: 01,2253 12310 TCF PTBAD
003742,000259:
003743,000260: 01,2254 10151 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
003744,000261: 01,2255 12241 TCF PCLOOP
003745,000262:
003746,000263: 01,2256 54152 TS MPAC +6 # SET TO +0.
003747,000264: 01,2257 02267 TC NXTRST -1 # * * * BYPASS 77 CHECK FOR NOW
003748,000265: 01,2260 31111 CA -PHASE6 # TEST TO SEE IF IT IS A PLANNED NO RESTAR
003749,000266: 01,2261 62264 AD OCT77 # T RESTART
003750,000267: 01,2262 10000 CCS A
003751,000268: 01,2263 12267 TCF +4 # A NORMAL RESTART
003752,000269:
|
|
Page 83 |
003754,000271: 01,2264 00077 OCT77 OCT 77 # CAN:T GET HERE
003755,000272: 01,2265 12267 TCF +2 # A NORMAL RESTART
003756,000273: 01,2266 12267 TCF +1 # THIS MAY GO TO FORGETIT IF EVER USED
003757,000274:
003758,000275: 01,2267 37760 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
003759,000276: 01,2270 54151 NXTRST TS MPAC +5
003760,000277: 01,2271 60000 DOUBLE
003761,000278: 01,2272 50000 INDEX A
003762,000279: 01,2273 11100 CCS PHASE1
003763,000280: 01,2274 12276 TCF PACTIVE # PNZ - GROUP ACTIVE.
003764,000281: 01,2275 12303 TCF PINACT # +0 - GROUP NOT RUNNING.
003765,000282:
003766,000283: 01,2276 54144 PACTIVE TS MPAC
003767,000284: 01,2277 24144 INCR MPAC # ABS OF PHASE.
003768,000285:
003769,000286: 01,2300 24152 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
003770,000287: 01,2301 32313 CA RACTCADR # GO TO RESTARTS AND PROCESS PHASE INFO.
003771,000288: 01,2302 05230 TC SWCALL # MUST RETURN TO SWRETURN.
003772,000289:
003773,000290: 01,2303 10151 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
003774,000291: 01,2304 12270 TCF NXTRST
003775,000292:
003776,000293: 01,2305 10152 TSTMPAC6 CCS MPAC +6 # IF NO GROUPS ACTIVE THIS REQUEST, DO A
003777,000294: 01,2306 12315 TCF DORSTART
003778,000295: 01,2307 12021 TCF DOFSTART # FRESH START
003779,000296:
003780,000297: 01,2310 32314 PTBAD CAF OCT1107 # SET ADDITIONAL FAILURE TO SHOW PHASE
003781,000298: 01,2311 55361 TS SFAIL # TABLE DISAGREEMENT (WILL BE DISPLAYED
003782,000299: 01,2312 12021 TCF DOFSTART # IN R2).
003783,000300:
003784,000301: 01,2313 14132 RACTCADR CADR RESTARTS
003785,000302: 01,2314 01107 OCT1107 OCT 1107 # ADDITIONAL ALARM CODE.
003786,000303:
003787,000304: 01,2315 32514 DORSTART CAF IFAILINH # LEAVE IMU FAILURE INHIBITS INTACT ON
003788,000305: 01,2316 70365 MASK IMODES30 # RESTART, RESETTING ALL FAILURE CODES.
003789,000306: 01,2317 62530 AD IM30INIR
003790,000307: 01,2320 54365 TS IMODES30
003791,000308:
003792,000309: 01,2321 12115 TCF ENDRSTRT
003793,000310:
|
|
Page 84 |
003795,000312: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
003796,000313: 01,2322 E7,1401 EBANK= DNTMGOTO # DO PORTION OF FRESH START NOT DONE
003797,000314: 01,2322 32516 STARTSUB CAF LDNTMGO # BY POO.
003798,000315: 01,2323 54003 TS EBANK # SET UP TM PROGRAM.
003799,000316:
003800,000317: 01,2324 32515 CAF LDNPHAS1
003801,000318: 01,2325 55401 TS DNTMGOTO
003802,000319:
003803,000320: 01,2326 56002 STARTSB2 XCH Q # ENTRY FROM POO.
003804,000321: 01,2327 54120 TS BUF # EXEC TEMPS ARE AVAILABLE TO US.
003805,000322:
003806,000323: 01,2330 37761 CAF ZERO # ZERO OUTBITS WITHIN 3MS OF RESTART.
003807,000324: 01,2331 00006 EXTEND
003808,000325: 01,2332 01012 WRITE 12
003809,000326: 01,2333 00006 EXTEND
003810,000327: 01,2334 01014 WRITE 14
003811,000328: 01,2335 00006 EXTEND
003812,000329: 01,2336 01011 WRITE 11
003813,000330: 01,2337 55355 TS ERESTORE # ERASCHK RESTORE FLAG
003814,000331:
003815,000332: 01,2340 00006 EXTEND # USE FIRST 8 OF 12 SUPER-BANKS (ADD PROG
003816,000333: 01,2341 01007 WRITE 7 # WHEN LAST FOUR ARE NEEDED). PROBABLY V37
003817,000334: 01,2342 35673 CAF PRIO34 # ENABLE INTERRUPTS.
003818,000335: 01,2343 00006 EXTEND
003819,000336: 01,2344 01013 WRITE 13
003820,000337:
003821,000338: 01,2345 37735 CAF POSMAX # T3 AND T4 OVERFLOW AS SOON AS POSSIBLE.
003822,000339: 01,2346 54030 TS TIME5 # SO DOES T5.
003823,000340: 01,2347 54026 TS TIME3 # (POSMAX IS PSEUDO INTERRUPT SIGNAL IN
003824,000341: 01,2350 54027 TS TIME4 # CASE RUPT SIGNALLED BEFORE TS TIME3).
003825,000342:
003826,000343: 01,2351 E3,1400 EBANK= LST1
003827,000344: 01,2351 32524 CAF STARTEB
003828,000345: 01,2352 54003 TS EBANK # SET FOR E3
003829,000346:
003830,000347: 01,2353 37736 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
003831,000348: 01,2354 55407 TS LST1 +7
003832,000349: 01,2355 55406 TS LST1 +6
003833,000350: 01,2356 55405 TS LST1 +5
003834,000351: 01,2357 55404 TS LST1 +4
003835,000352: 01,2360 55403 TS LST1 +3
003836,000353: 01,2361 55402 TS LST1 +2
003837,000354: 01,2362 55401 TS LST1 +1
003838,000355:
003839,000356: 01,2363 55400 TS LST1
003840,000357:
003841,000358: 01,2364 45732 CS ENDTASK
003842,000359: 01,2365 55410 TS LST2
003843,000360: 01,2366 55412 TS LST2 +2
003844,000361: 01,2367 55414 TS LST2 +4
003845,000362: 01,2370 55416 TS LST2 +6
003846,000363:
|
|
Page 85 |
003848,000365: 01,2371 55420 TS LST2 +8D
003849,000366: 01,2372 55422 TS LST2 +10D
003850,000367:
003851,000368: 01,2373 55424 TS LST2 +12D
003852,000369: 01,2374 55426 TS LST2 +14D
003853,000370: 01,2375 55430 TS LST2 +16D
003854,000371: 01,2376 45733 CS ENDTASK +1
003855,000372: 01,2377 55411 TS LST2 +1
003856,000373: 01,2400 55413 TS LST2 +3
003857,000374: 01,2401 55415 TS LST2 +5
003858,000375: 01,2402 55417 TS LST2 +7
003859,000376: 01,2403 55421 TS LST2 +9D
003860,000377: 01,2404 55423 TS LST2 +11D
003861,000378: 01,2405 55425 TS LST2 +13D
003862,000379: 01,2406 55427 TS LST2 +15D
003863,000380: 01,2407 55431 TS LST2 +17D
003864,000381:
003865,000382: 01,2410 47761 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
003866,000383: 01,2411 54157 TS PRIORITY # AVAILABLE.
003867,000384: 01,2412 54173 TS PRIORITY +12D
003868,000385: 01,2413 54207 TS PRIORITY +24D
003869,000386: 01,2414 54223 TS PRIORITY +36D
003870,000387: 01,2415 54237 TS PRIORITY +48D
003871,000388: 01,2416 54253 TS PRIORITY +60D
003872,000389: 01,2417 54267 TS PRIORITY +72D
003873,000390:
003874,000391: 01,2420 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
003875,000392:
003876,000393: 01,2421 32522 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
003877,000394: 01,2422 54431 TS VAC1USE
003878,000395: 01,2423 62523 AD LTHVACA
003879,000396: 01,2424 54505 TS VAC2USE
003880,000397: 01,2425 62523 AD LTHVACA
003881,000398: 01,2426 54561 TS VAC3USE
003882,000399: 01,2427 62523 AD LTHVACA
003883,000400: 01,2430 54635 TS VAC4USE
003884,000401: 01,2431 62523 AD LTHVACA
003885,000402: 01,2432 54711 TS VAC5USE
003886,000403:
003887,000404: 01,2433 34557 CAF TEN # TURN OFF ALL DISPLAY SYSTEM RELAYS.
003888,000405: 01,2434 54350 TS DIDFLG # DISPLAY INERTIAL DATA FLAG.
003889,000406: 01,2435 54144 DSPOFF TS MPAC
003890,000407: 01,2436 47742 CS BIT12
003891,000408: 01,2437 50144 INDEX MPAC
003892,000409: 01,2440 54313 TS DSPTAB
003893,000410: 01,2441 10144 CCS MPAC
003894,000411: 01,2442 02435 TC DSPOFF
003895,000412:
003896,000413: 01,2443 54045 TS INLINK
003897,000414: 01,2444 54345 TS DSPCNT
003898,000415:
003899,000416: 01,2445 54327 TS CADRSTOR
003900,000417:
|
|
Page 86 |
003902,000419: 01,2446 54304 TS REQRET
003903,000420: 01,2447 54306 TS CLPASS
003904,000421: 01,2450 54303 TS DSPLOCK
003905,000422: 01,2451 54311 TS MONSAVE # KILL MONITOR
003906,000423: 01,2452 54312 TS MONSAVE1
003907,000424: 01,2453 54330 TS GRABLOCK
003908,000425: 01,2454 54272 TS VERBREG
003909,000426: 01,2455 54273 TS NOUNREG
003910,000427:
003911,000428: 01,2456 54333 TS DSPLIST
003912,000429: 01,2457 54334 TS DSPLIST +1
003913,000430: 01,2460 54335 TS DSPLIST +2
003914,000431:
003915,000432: 01,2461 54373 TS MARKSTAT
003916,000433: 01,2462 54336 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
003917,000434: 01,2463 54367 TS IMUCADR
003918,000435: 01,2464 54370 TS OPTCADR
003919,000436: 01,2465 54371 TS RADCADR
003920,000437: 01,2466 54372 TS ATTCADR
003921,000438: 01,2467 54765 TS PHASENUM
003922,000439: 01,2470 54356 TS LGYRO
003923,000440: 01,2471 54347 TS DSRUPTSW
003924,000441: 01,2472 37756 CAF NOUTCON
003925,000442: 01,2473 54307 TS NOUT
003926,000443:
003927,000444: 01,2474 47755 CS ONE # NO RADAR DESIGNATION.
003928,000445: 01,2475 54414 TS SAMPLIM # NO RADAR RUPTS EXPECTED.
003929,000446:
003930,000447: 01,2476 32531 CAF IM33INIT # NO PIP OR TM FAILS.
003931,000448: 01,2477 54366 TS IMODES33
003932,000449:
003933,000450: 01,2500 37750 CAF BIT6 # SET LR POS.
003934,000451: 01,2501 00006 EXTEND
003935,000452: 01,2502 02033 RAND 33
003936,000453: 01,2503 62533 AD RMODINIT
003937,000454: 01,2504 54413 TS RADMODES
003938,000455:
003939,000456: 01,2505 32520 CAF LESCHK # SELF CHECK GO-TO REGISTER.
003940,000457: 01,2506 55356 TS SELFRET
003941,000458: 01,2507 44554 CS VD1
003942,000459: 01,2510 54270 TS DSPCOUNT
003943,000460:
003944,000461: 01,2511 32517 CAF NOMTMLST # SET UP NOMINAL DOWNLINK LIST.
003945,000462: 01,2512 54411 TS DNLSTADR
003946,000463:
003947,000464: 01,2513 00120 TC BUF
003948,000465:
003949,000466: 01,2514 00035 IFAILINH OCT 35 # ISS FAILURE INHIBIT BITS.
003950,000467: 01,2515 02124 LDNPHAS1 GENADR DNPHASE1
003951,000468: 01,2516 03401 LDNTMGO ECADR DNTMGOTO
003952,000469: 01,2517 02354 NOMTMLST GENADR NOMDNLST
003953,000470:
|
|
Page 87 |
003955,000472: 01,2520 02102 LESCHK GENADR SELFCHK
003956,000473: 01,2521 02013 LLMPRS2 GENADR LMPRESET
003957,000474: 01,2522 00431 VAC1ADRC ADRES VAC1USE
003958,000475: 01,2523 00054 LTHVACA DEC 44 B-14
003959,000476:
003960,000477: 01,2524 01400 STARTEB ECADR LST1
003961,000478: 01,2525 7760 NUMGRPS EQUALS FIVE # SIX GROUPS CURRENTLY.
003962,000479:
003963,000480: # WHERE TO GO ON RESTART IF TERMINATE REQUESTED.
003964,000481:
003965,000482: 01,2525 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
003966,000483: 01,2526 77757 -MKREJ OCT -20 # - MARK REJECT.
003967,000484: 01,2527 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
003968,000485: 01,2530 37400 IM30INIR OCT 37400 # LEAVE FAIL INHIBITS ALONE.
003969,000486:
003970,000487: 01,2531 16000 IM33INIT OCT 16000 # NO PIP OR TM FAIL SIGNALS.
003971,000488: 01,2532 00440 9,6 OCT 440 # MASK FOR PROG ALARM AND GIMBAL LOCK.
003972,000489: 01,2533 00102 RMODINIT OCT 00102
003973,000490:
003974,000491: 01,2534 E6,1541 EBANK= DT
003975,000492: 01,2534 02136 34006 IDLEADR 2CADR DAPIDLER
003976,000493: 01,2536 E6,1541 EBANK= DT
003977,000494: 01,2536 03620 34006 SETADR 2CADR SETIDLE
003978,000495:
003979,000496: 01,2540 00000 SWINIT OCT 0
003980,000497: 01,2541 00000 OCT 0
003981,000498: 01,2542 00005 OCT 00005
003982,000499: 01,2543 44516 OCT 44516 # INIT FOR DAPBOOLS. DB SET IN SETIDLE.
003983,000500: 01,2544 00000 OCT 0
003984,000501: 01,2545 00000 OCT 0
003985,000502: 01,2546 00000 OCT 0
003986,000503: 01,2547 00000 OCT 0
003987,000504:
|
|
Page 88 |
003989,000506: # PROGRAM TO REVERT TO IDLING MODE (P 00).
003990,000507:
003991,000508: # CALLING SEQUENCE: TC (OR TCF) POOH UNDER EXEC (NOT INTERRUPTED).
003992,000509:
003993,000510: 4261 BLOCK 02
003994,000511: 4261 05243 POOH TC POSTJUMP
003995,000512: 4262 02550 CADR POOH2 # DO A PARTIAL FRESH START.
003996,000513:
003997,000514:
003998,000515: 01,2550 BANK 01
003999,000516:
004000,000517: 01,2550 00004 POOH2 INHINT
004001,000518: 01,2551 02326 TC STARTSB2 # DOESN'T CLOBBER DOWNLINK.
004002,000519:
004003,000520: 01,2552 06045 TC FLAG2DWN
004004,000521: 01,2553 00020 OCT 20 # TURN OFF MISSION TIMER FLAG
004005,000522:
004006,000523: # ***** HERE WE SHOULD RESET STATE REGISTERS, DEAL WITH DAP, ETC. *****
004007,000524:
004008,000525: 01,2554 32556 CA LPOOH3 # PICK UP RETURN FOR MSTART.
004009,000526: 01,2555 05174 TC MSTART -1 # START MISSION TIMERS COUNTING.
004010,000527: # WE GET A RELINT AT MSTART.
004011,000528:
004012,000529:
004013,000530: 01,2556 02061 LPOOH3 ADRES POOH3
004014,000531: 07,2000 BANK 7
004015,000532:
004016,000533: 07,2000 00004 FORGETIT INHINT # THIS IS ALSO DOV74
004017,000534: 07,2001 00006 EXTEND
004018,000535: 07,2002 32047 DCA KILLCAD
004019,000536: 07,2003 53075 DXCH DVMNEXIT
004020,000537:
004021,000538: 07,2004 00006 EXTEND
004022,000539: 07,2005 32045 DCA CADAVER
004023,000540: 07,2006 53073 DXCH AVGEXIT
004024,000541:
004025,000542: 07,2007 32050 CAF PINGSMON
004026,000543: 07,2010 55322 TS DVSELECT
004027,000544:
004028,000545: 07,2011 06071 TC ENGINOFF
004029,000546:
004030,000547: 07,2012 42051 CS BGIMBALS # TURN OFF TRIM GIMBALS
004031,000548: 07,2013 00006 EXTEND
004032,000549: 07,2014 03012 WAND 12
004033,000550:
004034,000551: 07,2015 00004 ENEMA INHINT
004035,000552: 07,2016 37761 CAF ZERO # MAKE INACTIVE ALL RESTART PHASES
004036,000553: 07,2017 55100 TS PHASE1 # EXCEPT SERVICER
004037,000554:
|
|
Page 89 |
004039,000556: 07,2020 55102 TS PHASE2
004040,000557: 07,2021 55104 TS PHASE3
004041,000558:
004042,000559: 07,2022 55106 TS PHASE4
004043,000560: 07,2023 55112 TS PHASE6
004044,000561:
004045,000562: 07,2024 40000 COM
004046,000563: 07,2025 55077 TS -PHASE1
004047,000564: 07,2026 55101 TS -PHASE2
004048,000565: 07,2027 55103 TS -PHASE3
004049,000566: 07,2030 55105 TS -PHASE4
004050,000567: 07,2031 55111 TS -PHASE6
004051,000568:
004052,000569: 07,2032 55176 TS MPHASE1 # SET TIMER/PHASE PAIRS TO IDLE STATE
004053,000570: 07,2033 55175 TS MPHASE2
004054,000571: 07,2034 55174 TS MPHASE3
004055,000572: 07,2035 55173 TS MPHASE4
004056,000573: 07,2036 55167 TS MTIMER4
004057,000574: 07,2037 55170 TS MTIMER3
004058,000575: 07,2040 55171 TS MTIMER2
004059,000576: 07,2041 55172 TS MTIMER1
004060,000577:
004061,000578: # START TASK TO RESET LMP COMMANDS HERE AND OTHER CLEANUP PROBLEMS
004062,000579: 07,2042 05243 TC POSTJUMP
004063,000580: 07,2043 02145 CADR GOPROG +3
004064,000581:
004065,000582: 07,2044 E3,1400 EBANK= LST1
004066,000583: 07,2044 02312 60063 CADAVER 2CADR SERVEXIT
004067,000584:
004068,000585: 07,2046 E3,1400 EBANK= LST1
004069,000586: 07,2046 02052 16003 KILLCAD 2CADR AVEGKILL
004070,000587:
004071,000588: 07,2050 02156 PINGSMON GENADR PGNCSMON
004072,000589: 07,2051 07400 BGIMBALS OCT 7400
004073,000590:
004074,000591: 07,2052 06036 AVEGKILL TC FLAG1DWN # COMES HERE WHEN ENGINE OFF
004075,000592: 07,2053 00001 OCT 1
004076,000593: # SERVICER GOES TO POOH AND ENABLES TIMERS AT DEAD END. ALL PROGRAMS MUSTTURN OFF PIPAS AT END OF MISSION PHASE
004077,000594: 07,2054 15605 TCF ENDOFJOB
004078,000595:
004079,000596: 07,2055 25360 FAKESTRT INCR REDOCTR # FAKESTRT ALARM
004080,000597: 07,2056 04744 TC ALARM
004081,000598: 07,2057 00316 OCT 0316
004082,000599:
004083,000600: 07,2060 12000 TCF FORGETIT
004084,000601:
004085,000602: 07,2061 07,2000 DOV74 EQUALS FORGETIT
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc