Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance 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. |
007515,000002: ## Copyright: Public domain.
007516,000003: ## Filename: FRESH_START_AND_RESTART.agc
007517,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
007518,000005: ## It is part of the reconstructed source code for the Lunar
007519,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
007520,000007: ## No original listings of this program are available;
007521,000008: ## instead, this file was created via disassembly of dumps
007522,000009: ## of various revisions of Sundance core rope modules.
007523,000010: ## Assembler: yaYUL
007524,000011: ## Contact: Ron Burkey <info@sandroid.org>.
007525,000012: ## Website: www.ibiblio.org/apollo/index.html
007526,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
007527,000014: ## 2021-05-30 ABS +8 -> +8D
007528,000015: ## Replaced use of ANTENBIT with BIT12 to match
007529,000016: ## Luminary 69.
007530,000017:
007531,000018: ## Sundance 292
007532,000019:
007533,000020: 10,2000 BANK 10
007534,000021: 05,2000 SETLOC FRANDRES
007535,000022: 05,2000 BANK
007536,000023:
007537,000024: 05,2264 E3,1400 EBANK= LST1
007538,000025:
007539,000026: 05,2264 COUNT* $$/START # FRESH AND RESTART
007540,000027: 05,2264 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
007541,000028: 05,2265 02676 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
007542,000029:
007543,000030: 05,2266 12273 STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION
007544,000031: 05,2267 35011 STARTSIM CAF BIT14
007545,000032: 05,2270 05155 TC FINDVAC
007546,000033: 05,2271 77777 SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF
007547,000034: 05,2272 77777 OCT 77777 # SIMULATION START ADDRESS.
007548,000035:
007549,000036: 05,2273 35010 SKIPSIM CAF BIT15 # TURN OFF ALL DSPTAB+11D LAMPS ONLY ON
007550,000037: 05,2274 55037 TS DSPTAB +11D # REQUESTED FRESH START.
007551,000038:
007552,000039: 05,2275 35030 CA ZERO
007553,000040: 05,2276 55365 TS ERCOUNT
007554,000041: 05,2277 54375 TS FAILREG
007555,000042: 05,2300 54376 TS FAILREG +1
007556,000043: 05,2301 54377 TS FAILREG +2
007557,000044: 05,2302 55205 TS REDOCTR
007558,000045:
007559,000046: 05,2303 44703 CS PRIO12
007560,000047: 05,2304 55315 TS DSRUPTSW
007561,000048:
007562,000049: 05,2305 35024 DOFSTART CAF FOUR
007563,000050: 05,2306 55275 TS RCSFLAGS # INITIALIZE ATTITUDE ERROR DISPLAYS.
007564,000051: 05,2307 34367 CA PRIO30
007565,000052: 05,2310 54366 TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS.
007566,000053:
007567,000054: 05,2311 35030 CA ZERO
007568,000055: 05,2312 55245 TS ABDELV # DAP INITIALIZATION
007569,000056: 05,2313 55246 TS ABDELV +1
007570,000057: 05,2314 54774 TS RASFLAG
007571,000058: 05,2315 54371 TS NVSAVE
007572,000059: 05,2316 55072 TS EBANKTEM
007573,000060: 05,2317 55264 TS CH5MASK
007574,000061: 05,2320 55265 TS CH6MASK
007575,000062: 05,2321 55300 TS PVALVEST # FOR RCS FAILURE MONITOR
007576,000063: 05,2322 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART
007577,000064: 05,2323 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART
007578,000065: 05,2324 54332 TS DNLSTCOD # SELECT POO DOWNLIST
007579,000066: 05,2325 55330 TS AGSWORD # ALLOW AGS INITIALIZATION
007580,000067: 05,2326 55501 TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
007581,000068: 05,2327 00006 EXTEND
007582,000069: 05,2330 01005 WRITE CHAN5 # TURN OFF RCS JETS.
007583,000070: 05,2331 00006 EXTEND
007584,000071: 05,2332 01006 WRITE CHAN6 # TURN OFF RCS JETS.
007585,000072: 05,2333 00006 EXTEND
007586,000073: 05,2334 01012 WRITE CHAN12
007587,000074: 05,2335 00006 EXTEND
007588,000075: 05,2336 01013 WRITE CHAN13
007589,000076: 05,2337 00006 EXTEND
007590,000077: 05,2340 01014 WRITE CHAN14
007591,000078: 05,2341 35011 CAF BIT14 # INSURE ENGINE IS OFF.
007592,000079: 05,2342 00006 EXTEND
007593,000080: 05,2343 01011 WRITE DSALMOUT
007594,000081: 05,2344 02422 TC MR.KLEAN
007595,000082:
007596,000083: 05,2345 45030 CS ZERO
007597,000084: 05,2346 54055 TS THRUST
007598,000085: 05,2347 55012 TS MODREG
007599,000086:
007600,000087: 05,2350 33130 CAF IM30INIF # FRESH START IMU INITIALIZATION.
007601,000088: 05,2351 55304 TS IMODES30
007602,000089:
007603,000090: 05,2352 35746 CAF WIDEDB
007604,000091: 05,2353 55356 TS DB
007605,000092: 05,2354 35024 CAF FOUR
007606,000093: 05,2355 55331 TS RATEINDX # INITIALIZE KALCMANU RATE
007607,000094: 05,2356 32672 CA BOOLSTRT
007608,000095: 05,2357 55102 TS DAPBOOLS
007609,000096: 05,2360 35065 CAF EBANK6
007610,000097: 05,2361 54003 TS EBANK
007611,000098: 05,2362 E6,1400 EBANK= HIASCENT
007612,000099:
007613,000100: 05,2362 32675 CAF FULLAPS # INITIALIZE MAXIMUM ASCENT MASS FOR USE
007614,000101: 05,2363 55400 TS HIASCENT # BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
007615,000102: 05,2364 32673 CA 77001OCT # LOAD DAP FILTER GAINS PAD LOAD
007616,000103: 05,2365 55403 TS DKTRAP # TO BEST PRESENT ESTIMATE OF GOODIES
007617,000104: 05,2366 55406 TS LMTRAP # .14 DEG
007618,000105: 05,2367 32674 CA 60DEC
007619,000106: 05,2370 55405 TS DKKAOSN
007620,000107: 05,2371 55410 TS LMKAOSN # 6 SEC GAIN FOR ALPHA
007621,000108: 05,2372 35030 CA ZERO
007622,000109: 05,2373 55407 TS LMOMEGAN # UNITY GAIN
007623,000110: 05,2374 34375 CA TEN
007624,000111: 05,2375 55404 TS DKOMEGAN # 1 SEC GAIN FOR OMEGA
007625,000112: 05,2376 35076 CAF IM33INIT
007626,000113: 05,2377 65021 AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
007627,000114: 05,2400 55305 TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED.
007628,000115:
007629,000116: 05,2401 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
007630,000117: 05,2402 33135 DCA SWINIT
007631,000118: 05,2403 52075 DXCH STATE
007632,000119: 05,2404 00006 EXTEND
007633,000120: 05,2405 33137 DCA SWINIT +2
007634,000121: 05,2406 52077 DXCH STATE +2
007635,000122: 05,2407 00006 EXTEND
007636,000123: 05,2410 33141 DCA SWINIT +4
007637,000124: 05,2411 52101 DXCH STATE +4
007638,000125: 05,2412 00006 EXTEND
007639,000126: 05,2413 33143 DCA SWINIT +6
007640,000127: 05,2414 52103 DXCH STATE +6
007641,000128: 05,2415 00006 EXTEND
007642,000129: 05,2416 33145 DCA SWINIT +8D
007643,000130: 05,2417 52105 DXCH STATE +8D
007644,000131:
007645,000132: 05,2420 04674 ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK.
007646,000133: 05,2421 03021 CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DONT ZERO NEWJOB)
007647,000134:
007648,000135: 05,2422 00006 MR.KLEAN EXTEND
007649,000136: 05,2423 35030 DCA NEG0
007650,000137: 05,2424 52755 DXCH -PHASE2
007651,000138: 05,2425 00006 POOKLEAN EXTEND
007652,000139: 05,2426 35030 DCA NEG0
007653,000140: 05,2427 52761 DXCH -PHASE4
007654,000141: 05,2430 00006 V37KLEAN EXTEND
007655,000142: 05,2431 35030 DCA NEG0
007656,000143: 05,2432 52753 DXCH -PHASE1
007657,000144: 05,2433 00006 EXTEND
007658,000145: 05,2434 35030 DCA NEG0
007659,000146: 05,2435 52757 DXCH -PHASE3
007660,000147: 05,2436 00006 EXTEND
007661,000148: 05,2437 35030 DCA NEG0
007662,000149: 05,2440 52763 DXCH -PHASE5
007663,000150: 05,2441 00006 EXTEND
007664,000151: 05,2442 35030 DCA NEG0
007665,000152: 05,2443 52765 DXCH -PHASE6
007666,000153: 05,2444 00002 TC Q
007667,000154:
007668,000155: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHIC
007669,000156:
007670,000157: 05,2445 E3,1400 EBANK= LST1 # H MAY HAVE BEEN RUNNING AT THE TIME.
007671,000158: 05,2445 25205 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
007672,000159:
007673,000160: 05,2446 22002 LXCH Q
007674,000161: 05,2447 00006 EXTEND
007675,000162: 05,2450 04007 ROR SUPERBNK
007676,000163: 05,2451 53433 DXCH RSBBQ
007677,000164: 05,2452 31037 CA DSPTAB +11D
007678,000165: 05,2453 75023 MASK BIT4
007679,000166: 05,2454 00006 EXTEND
007680,000167: 05,2455 12461 BZF +4
007681,000168: 05,2456 65021 AD BIT6 # SET ERROR COUNTER ENABLE
007682,000169: 05,2457 00006 EXTEND
007683,000170: 05,2460 05012 WOR CHAN12 # ISS WAS IN COARS ALIGN SO GO BACK TO
007684,000171: 05,2461 02676 TC STARTSUB
007685,000172:
007686,000173: # ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
007687,000174: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
007688,000175: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
007689,000176: # EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
007690,000177: # C(ERESTORE) SHOULD EQUAL +0.
007691,000178:
007692,000179: 05,2462 34362 CAF HI5
007693,000180: 05,2463 71360 MASK ERESTORE
007694,000181: 05,2464 00006 EXTEND
007695,000182: 05,2465 12467 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
007696,000183: 05,2466 12305 TCF DOFSTART # DOUBT E MEMORY AND DO A FRESH START.
007697,000184: 05,2467 41360 CS ERESTORE
007698,000185: 05,2470 00006 EXTEND
007699,000186: 05,2471 12506 BZF DORSTART # = +0 CONTINUE WITH RESTART.
007700,000187: 05,2472 61377 AD SKEEP7
007701,000188: 05,2473 00006 EXTEND
007702,000189: 05,2474 12476 BZF +2 # = SKEEP7, RESTORE E MEMORY.
007703,000190: 05,2475 12305 TCF DOFSTART # NOT = SKEEP7, DOUBE E MEM,DO FRESH START.
007704,000191: 05,2476 31374 CA SKEEP4
007705,000192: 05,2477 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST.
007706,000193: 05,2500 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
007707,000194: 05,2501 31376 DCA SKEEP5
007708,000195: 05,2502 51377 INDEX SKEEP7
007709,000196: 05,2503 52001 DXCH 0000 # E MEMORY RESTORED.
007710,000197: 05,2504 35030 CA ZERO
007711,000198: 05,2505 55360 TS ERESTORE
007712,000199: 05,2506 35010 DORSTART CA BIT15 # TEST OSC FAIL BIT TO SEE IF WE HAVE
007713,000200: 05,2507 00006 EXTEND # HAD A POWER TRANSIENT. IF SO, ATTEMPT
007714,000201: 05,2510 03033 WAND CHAN33 # A RESTART. IF NOT, CHACK THE PRESENT
007715,000202: 05,2511 00006 EXTEND # STATE OF AGC WARNING.
007716,000203: 05,2512 12520 BZF LIGHTSET
007717,000204:
007718,000205: 05,2513 35011 CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A FRESH
007719,000206: 05,2514 00006 EXTEND # START ON THE ASSUMPTION THAT WE'RE IN A
007720,000207: 05,2515 02033 RAND CHAN33 # RESTART LOOP.
007721,000208: 05,2516 00006 EXTEND
007722,000209: 05,2517 12305 BZF DOFSTART
007723,000210:
007724,000211: 05,2520 35022 LIGHTSET CAF BIT5 # CHECK FOR MARK REJECT AND ERROR RESET
007725,000212: 05,2521 00006 EXTEND
007726,000213: 05,2522 02016 RAND NAVKEYIN
007727,000214: 05,2523 00006 EXTEND
007728,000215: 05,2524 12532 BZF NONAVKEY # NO MARK REJECT
007729,000216: 05,2525 00006 EXTEND
007730,000217: 05,2526 00015 READ MNKEYIN # CHECK IF KEYS 2M AND 5M ON
007731,000218: 05,2527 63127 AD -ELR # MAIN DSKY KEYCODE (BITS 1-5)
007732,000219: 05,2530 00006 EXTEND
007733,000220: 05,2531 12305 BZF DOFSTART
007734,000221:
007735,000222: 05,2532 30774 NONAVKEY CA RASFLAG
007736,000223: 05,2533 76050 MASK LOW7
007737,000224: 05,2534 54774 TS RASFLAG
007738,000225: 05,2535 10000 CCS A
007739,000226: 05,2536 12540 TCF +2
007740,000227: 05,2537 02663 TC NOORBINT
007741,000228:
007742,000229: 05,2540 33132 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
007743,000230: 05,2541 71037 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART
007744,000231: 05,2542 65010 AD BIT15
007745,000232: 05,2543 57037 XCH DSPTAB +11D
007746,000233: 05,2544 33117 CAF IFAILINH # LEAVE IMU FAILURE INHIBITS INTACT ON
007747,000234: 05,2545 71304 MASK IMODES30 # HARDWARE RESTART. RESET ALL FAILURE
007748,000235: 05,2546 63131 AD IM30INIR # CODES.
007749,000236: 05,2547 55304 TS IMODES30
007750,000237:
007751,000238: 05,2550 31330 CA AGSWORD # BE SURE OF CORRECT DOWNLIST
007752,000239: 05,2551 54332 TS DNLSTCOD
007753,000240:
007754,000241: 05,2552 45024 CS ACCSOKAY
007755,000242: 05,2553 71102 MASK DAPBOOLS
007756,000243: 05,2554 55102 TS DAPBOOLS
007757,000244:
007758,000245: 05,2555 35023 CA BIT4 # TURN ON THROTTLE COUNTER
007759,000246: 05,2556 00006 EXTEND
007760,000247: 05,2557 05014 WOR CHAN14 # TURN ON THRUST DRIVE
007761,000248: 05,2560 40101 CS FLAGWRD5
007762,000249: 05,2561 75020 MASK ENGONBIT
007763,000250: 05,2562 10000 CCS A
007764,000251: 05,2563 12612 TCF GOPROG3
007765,000252: 05,2564 35012 CAF BIT13
007766,000253: 05,2565 00006 EXTEND
007767,000254: 05,2566 05011 WOR DSALMOUT # TURN ENGINE ON
007768,000255: 05,2567 12612 TCF GOPROG3
007769,000256:
007770,000257: 05,2570 02725 ENEMA TC STARTSB2
007771,000258: 05,2571 35030 CAF ZERO
007772,000259: 05,2572 54774 TS RASFLAG
007773,000260: 05,2573 02663 TC NOORBINT
007774,000261:
007775,000262: 05,2574 30035 CA CDUT
007776,000263: 05,2575 04524 TC MAGSUB
007777,000264: 05,2576 57777 DEC -.5
007778,000265: 05,2577 12602 TCF +3 # IF MODE 2.
007779,000266:
007780,000267: 05,2600 35030 CAF ZERO
007781,000268: 05,2601 12603 TCF +2
007782,000269: 05,2602 35013 CAF BIT12
007783,000270: 05,2603 57101 XCH RADMODES
007784,000271: 05,2604 77712 MASK -BIT12
007785,000272: 05,2605 27101 ADS RADMODES
007786,000273:
007787,000274: 05,2606 37667 CAF PRIO27
007788,000275: 05,2607 05142 TC NOVAC
007789,000276: 05,2610 E6,1532 EBANK= AOSQ
007790,000277: 05,2610 02305 40066 2CADR 1/ACCSET
007791,000278:
007792,000279: 05,2612 35031 GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
007793,000280: 05,2613 54161 PCLOOP TS MPAC +5
007794,000281: 05,2614 60000 DOUBLE
007795,000282: 05,2615 00006 EXTEND
007796,000283: 05,2616 50000 INDEX A
007797,000284: 05,2617 30753 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L.
007798,000285: 05,2620 00006 EXTEND
007799,000286: 05,2621 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT.
007800,000287: 05,2622 10000 CCS A
007801,000288:
007802,000289: 05,2623 12660 TCF PTBAD # RESTART FAILURE.
007803,000290: 05,2624 12660 TCF PTBAD
007804,000291: 05,2625 12660 TCF PTBAD
007805,000292:
007806,000293: 05,2626 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
007807,000294: 05,2627 12613 TCF PCLOOP
007808,000295:
007809,000296: 05,2630 54162 TS MPAC +6 # SET TO +0.
007810,000297: 05,2631 05361 TC MMDSPLAY # DISPLAY MAJOR MODE
007811,000298:
007812,000299: 05,2632 00004 INHINT # RELINT DONE IN MMDSPLAY
007813,000300:
007814,000301: 05,2633 35031 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
007815,000302: 05,2634 54161 NXTRST TS MPAC +5
007816,000303: 05,2635 60000 DOUBLE
007817,000304: 05,2636 50000 INDEX A
007818,000305: 05,2637 10753 CCS PHASE1
007819,000306: 05,2640 12642 TCF PACTIVE # PNZ - GROUP ACTIVE.
007820,000307: 05,2641 12647 TCF PINACT # +0 - GROUP NOT RUNNING.
007821,000308:
007822,000309: 05,2642 54154 PACTIVE TS MPAC
007823,000310: 05,2643 24154 INCR MPAC # ABS OF PHASE.
007824,000311: 05,2644 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
007825,000312: 05,2645 32671 CA RACTCADR
007826,000313: 05,2646 04661 TC SWCALL # MUST RETURN TO SWRETURN.
007827,000314:
007828,000315: 05,2647 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
007829,000316: 05,2650 12634 TCF NXTRST
007830,000317:
007831,000318: 05,2651 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
007832,000319: 05,2652 12420 TCF ENDRSTRT # PHASE ACTIVE
007833,000320: 05,2653 35010 CAF BIT15 # IS MODE -0
007834,000321: 05,2654 71012 MASK MODREG
007835,000322: 05,2655 00006 EXTEND
007836,000323: 05,2656 14106 BZF GOTOPOOH # NO
007837,000324: 05,2657 12420 TCF ENDRSTRT # YES
007838,000325: 05,2660 05646 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
007839,000326: 05,2661 01107 OCT 1107
007840,000327:
007841,000328: 05,2662 12305 TCF DOFSTART # IN R2).
007842,000329:
007843,000330: 05,2663 45011 NOORBINT CS INTF2BIT
007844,000331: 05,2664 70101 MASK FLAGWRD5
007845,000332: 05,2665 54101 TS FLAGWRD5
007846,000333: 05,2666 00002 TC Q
007847,000334:
007848,000335: # ******** ****** ******
007849,000336:
007850,000337: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
007851,000338:
007852,000339: 05,2667 05,2570 GOPROG2 EQUALS ENEMA
007853,000340: 05,2667 5012 OCT10000 = BIT13
007854,000341:
007855,000342: 05,2667 4367 OCT30000 = PRIO30
007856,000343: 05,2667 32001 OCT32001 OCT 32001
007857,000344: 05,2670 07777 OCT7777 OCT 7777
007858,000345: 05,2671 03314 RACTCADR CADR RESTARTS
007859,000346: 05,2672 21312 BOOLSTRT OCT 21312
007860,000347: 05,2673 77001 77001OCT OCT 77001 # .14 DEG SCALED AT 4.5 DEG
007861,000348: 05,2674 00074 60DEC DEC 60 B-14
007862,000349: 05,2675 02357 FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
007863,000350:
007864,000351: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
007865,000352:
007866,000353: 05,2676 E6,1532 EBANK= AOSQ
007867,000354: 05,2676 35065 STARTSUB CAF EBANK6
007868,000355: 05,2677 54003 TS EBANK
007869,000356:
007870,000357: 05,2700 35030 CAF ZERO
007871,000358: 05,2701 55631 TS ACCSET
007872,000359: 05,2702 55460 TS NEXTP
007873,000360: 05,2703 55461 TS NEXTU
007874,000361: 05,2704 55462 TS NEXTV
007875,000362:
007876,000363: 05,2705 33120 CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL
007877,000364: 05,2706 54335 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE
007878,000365: # INTERRUPTED AND START SENDING FROM THE
007879,000366: # BEGINNING OF THE CURRENT DOWNLIST.
007880,000367: 05,2707 35021 CAF BIT6
007881,000368: 05,2710 00006 EXTEND
007882,000369: 05,2711 02033 RAND CHAN33
007883,000370: 05,2712 63133 AD RMODINIT
007884,000371: 05,2713 55101 TS RADMODES
007885,000372:
007886,000373: 05,2714 35006 CAF POSMAX
007887,000374: 05,2715 54026 TS TIME3
007888,000375: 05,2716 67720 AD MINUS2
007889,000376: 05,2717 54027 TS TIME4
007890,000377: 05,2720 67721 AD NEGONE
007891,000378: 05,2721 54030 TS TIME5
007892,000379:
007893,000380: 05,2722 00006 EXTEND # SET T5RUPT FOR DAPIDLER PROGRAM.
007894,000381: 05,2723 33116 DCA IDLEADR
007895,000382: 05,2724 53277 DXCH T5ADR
007896,000383:
007897,000384: 05,2725 33126 STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
007898,000385: 05,2726 00006 EXTEND # ENGINE ON, OFF AND ISS WARNING.
007899,000386: 05,2727 03011 WAND DSALMOUT
007900,000387:
007901,000388: 05,2730 45016 CS XOVINHIB
007902,000389: 05,2731 71102 MASK DAPBOOLS
007903,000390: 05,2732 55102 TS DAPBOOLS
007904,000391:
007905,000392: 05,2733 33124 CAF OCT27470 # DURING SOFTWARE RESTART, DO NOT DISTURB
007906,000393: 05,2734 00006 EXTEND # IMU FLAGS. (COURSE ALIGN ENABLE, ZERO
007907,000394: 05,2735 03012 WAND CHAN12 # IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
007908,000395: # TRIM DRIVES. LEAVE RR LOCKON ENABLE
007909,000396: # ALONE.
007910,000397:
007911,000398: 05,2736 33125 CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DUSTURB
007912,000399: 05,2737 00006 EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND
007913,000400: 05,2740 03013 WAND CHAN13 # ENABLE T6RUPT FLAG.
007914,000401:
007915,000402: 05,2741 35013 CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY
007916,000403: 05,2742 00006 EXTEND # RESUMES EXCEPT DURING P64)
007917,000404: 05,2743 05013 WOR CHAN13
007918,000405:
007919,000406: 05,2744 35021 CAF BIT6 # DURING SOFTWARE RESTART, DO NOT DISTURB
007920,000407: 05,2745 00006 EXTEND # GYRO ENABLE FLAG.
007921,000408: 05,2746 03014 WAND CHAN14
007922,000409:
007923,000410: 05,2747 42667 CS OCT32001 # DURING SOFTWARE RESTART,CLEAR TURNON,
007924,000411: 05,2750 71101 MASK RADMODES # REPOSITION,CDU ZERO AND REMODE BITS
007925,000412: 05,2751 55101 TS RADMODES # IN RADMODES,SINCE TASKS ASSOCIATED
007926,000413: # WITH THESE BITS HAVE BEEN KILLED
007927,000414:
007928,000415: 05,2752 E3,1400 EBANK= LST1
007929,000416: 05,2752 35057 CAF STARTEB
007930,000417: 05,2753 54003 TS EBANK # SET FOR E3
007931,000418:
007932,000419: 05,2754 35007 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
007933,000420: 05,2755 55407 TS LST1 +7
007934,000421: 05,2756 55406 TS LST1 +6
007935,000422: 05,2757 55405 TS LST1 +5
007936,000423: 05,2760 55404 TS LST1 +4
007937,000424: 05,2761 55403 TS LST1 +3
007938,000425: 05,2762 55402 TS LST1 +2
007939,000426: 05,2763 55401 TS LST1 +1
007940,000427: 05,2764 55400 TS LST1
007941,000428:
007942,000429: 05,2765 45306 CS ENDTASK
007943,000430: 05,2766 55410 TS LST2
007944,000431: 05,2767 55412 TS LST2 +2
007945,000432: 05,2770 55414 TS LST2 +4
007946,000433: 05,2771 55416 TS LST2 +6
007947,000434:
007948,000435: 05,2772 55420 TS LST2 +8D
007949,000436: 05,2773 55422 TS LST2 +10D
007950,000437: 05,2774 55424 TS LST2 +12D
007951,000438: 05,2775 55426 TS LST2 +14D
007952,000439: 05,2776 55430 TS LST2 +16D
007953,000440: 05,2777 45307 CS ENDTASK +1
007954,000441: 05,3000 55411 TS LST2 +1
007955,000442: 05,3001 55413 TS LST2 +3
007956,000443: 05,3002 55415 TS LST2 +5
007957,000444: 05,3003 55417 TS LST2 +7
007958,000445: 05,3004 55421 TS LST2 +9D
007959,000446: 05,3005 55423 TS LST2 +11D
007960,000447: 05,3006 55425 TS LST2 +13D
007961,000448: 05,3007 55427 TS LST2 +15D
007962,000449: 05,3010 55431 TS LST2 +17D
007963,000450:
007964,000451: 05,3011 45030 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
007965,000452: 05,3012 54167 TS PRIORITY # AVAILABLE.
007966,000453: 05,3013 54203 TS PRIORITY +12D
007967,000454: 05,3014 54217 TS PRIORITY +24D
007968,000455: 05,3015 54233 TS PRIORITY +36D
007969,000456: 05,3016 54247 TS PRIORITY +48D
007970,000457: 05,3017 54263 TS PRIORITY +60D
007971,000458: 05,3020 54277 TS PRIORITY +72D
007972,000459:
007973,000460: 05,3021 55315 TS DSRUPTSW
007974,000461: 05,3022 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
007975,000462:
007976,000463: 05,3023 33122 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
007977,000464: 05,3024 54400 TS VAC1USE
007978,000465: 05,3025 63123 AD LTHVACA
007979,000466: 05,3026 54454 TS VAC2USE
007980,000467: 05,3027 63123 AD LTHVACA
007981,000468: 05,3030 54530 TS VAC3USE
007982,000469: 05,3031 63123 AD LTHVACA
007983,000470: 05,3032 54604 TS VAC4USE
007984,000471: 05,3033 63123 AD LTHVACA
007985,000472: 05,3034 54660 TS VAC5USE
007986,000473:
007987,000474: 05,3035 45026 CS ONE
007988,000475: 05,3036 55316 TS DIDFLG
007989,000476:
007990,000477: 05,3037 34375 CAF TEN
007991,000478: 05,3040 54154 DSPOFF TS MPAC # R1,R2,R3).
007992,000479: 05,3041 45013 CS BIT12
007993,000480: 05,3042 50154 INDEX MPAC
007994,000481: 05,3043 55024 TS DSPTAB
007995,000482: 05,3044 10154 CCS MPAC
007996,000483: 05,3045 13040 TCF DSPOFF
007997,000484:
007998,000485: 05,3046 55332 TS DELAYLOC
007999,000486: 05,3047 55333 TS DELAYLOC +1
008000,000487:
008001,000488: 05,3050 55334 TS DELAYLOC +2
008002,000489: 05,3051 55074 TS R1SAVE
008003,000490: 05,3052 54045 TS INLINK
008004,000491: 05,3053 54777 TS DSPCNT
008005,000492: 05,3054 55043 TS CADRSTOR
008006,000493: 05,3055 55014 TS REQRET
008007,000494: 05,3056 55016 TS CLPASS
008008,000495: 05,3057 55013 TS DSPLOCK
008009,000496: 05,3060 55021 TS MONSAVE # KILL MONITOR
008010,000497: 05,3061 55022 TS MONSAVE1
008011,000498: 05,3062 55002 TS VERBREG
008012,000499: 05,3063 55003 TS NOUNREG
008013,000500: 05,3064 55044 TS DSPLIST
008014,000501: 05,3065 55314 TS MARKSTAT
008015,000502: 05,3066 55045 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
008016,000503: 05,3067 55306 TS IMUCADR
008017,000504: 05,3070 55307 TS OPTCADR
008018,000505: 05,3071 55310 TS RADCADR
008019,000506: 05,3072 55311 TS ATTCADR
008020,000507: 05,3073 55321 TS LGYRO
008021,000508: 05,3074 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS
008022,000509: 05,3075 35033 CAF NOUTCON
008023,000510: 05,3076 55017 TS NOUT
008024,000511:
008025,000512: 05,3077 45023 CS NORRMBIT # ENABLE R25.
008026,000513: 05,3100 70101 MASK FLAGWRD5
008027,000514: 05,3101 54101 TS FLAGWRD5
008028,000515:
008029,000516: 05,3102 45026 CS ONE
008030,000517: 05,3103 55103 TS SAMPLIM
008031,000518: 05,3104 35021 CAF BIT6
008032,000519: 05,3105 71305 MASK IMODES33 # LEAVE BIT 6 UNCHANGED
008033,000520: 05,3106 65076 AD IM33INIT # NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
008034,000521: 05,3107 55305 TS IMODES33
008035,000522:
008036,000523: 05,3110 33121 CAF LESCHK # SELF CHECK GO-TO REGISTER.
008037,000524: 05,3111 55361 TS SELFRET
008038,000525:
008039,000526: 05,3112 44372 CS VD1
008040,000527: 05,3113 55000 TS DSPCOUNT
008041,000528:
008042,000529: 05,3114 00002 TC Q
008043,000530: 05,3115 E6,1532 EBANK= AOSQ
008044,000531: 05,3115 02067 34066 IDLEADR 2CADR DAPIDLER
008045,000532: 05,3117 00035 IFAILINH OCT 35
008046,000533: 05,3120 03155 LDNPHAS1 GENADR DNPHASE1
008047,000534: 05,3121 03336 LESCHK GENADR SELFCHK
008048,000535: 05,3122 00400 VAC1ADRC ADRES VAC1USE
008049,000536: 05,3123 00054 LTHVACA DEC 44 B-14
008050,000537:
008051,000538: 05,3124 27470 OCT27470 OCT 27470
008052,000539:
008053,000540: 05,3125 74160 OCT74160 OCT 74160
008054,000541: 05,3126 30001 OCT30001 OCT 30001
008055,000542: 05,3127 5057 STARTEB EQUALS EBANK3
008056,000543: 05,3127 5031 NUMGRPS EQUALS FIVE
008057,000544: 05,3127 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
008058,000545: 05,3130 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
008059,000546: 05,3131 37400 IM30INIR OCT 37400
008060,000547: 05,3132 5076 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS.
008061,000548: 05,3132 00450 9,6,4 OCT 450
008062,000549: 05,3133 00102 RMODINIT OCT 00102
008063,000550: 05,3134 00000 SWINIT OCT 0
008064,000551: 05,3135 00000 OCT 0
008065,000552: 05,3136 00000 OCT 0
008066,000553: 05,3137 00000 OCT 0
008067,000554: 05,3140 00000 OCT 0
008068,000555: 05,3141 00000 OCT 0
008069,000556: 05,3142 00000 OCT 0
008070,000557: 05,3143 00100 OCT 00100
008071,000558:
008072,000559: 05,3144 00000 OCT 0
008073,000560: 05,3145 00010 OCT 00010
008074,000561:
008075,000562: # PROGRAM NAME GOTOPOOH ASSEMBLY SUNDANCE
008076,000563: # LOG SECTION FRESH START AND RESTART
008077,000564:
008078,000565: # FUNCTIONAL DESCRIPTION
008079,000566:
008080,000567: # FLASH V 37 ON DSKY %MM CHANGE REQUEST "
008081,000568:
008082,000569: # INPUT/OUTPUT INFORMATION
008083,000570:
008084,000571: # A. CALLING SEQUENCE TC GOTOPOOH
008085,000572:
008086,000573: # B. ERASABLE INITIALIZATION NONE
008087,000574:
008088,000575: # C. OUTPUT FLASH V 37 ON DSKY
008089,000576:
008090,000577: # D. DEBRIS L
008091,000578:
008092,000579: # PROGRAM ANALYSIS
008093,000580:
008094,000581: # A. SUBROUTINES CALLED PRIODSPR, LINUS
008095,000582:
008096,000583: # B. NORMAL EXIT TCF ENDOFJOB
008097,000584:
008098,000585: # C. ALARM AND ABORT EXITS NONE
008099,000586:
008100,000587: 4106 BLOCK 02
008101,000588: 4000 SETLOC FFTAG10
008102,000589: 4000 BANK
008103,000590:
008104,000591: 4106 COUNT* $$/P00
008105,000592:
008106,000593: 4106 05413 GOTOPOOH TC PHASCHNG # RESTART GOTOPOOH
008107,000594: 4107 00014 OCT 14
008108,000595:
008109,000596: 4110 04674 TC POSTJUMP
008110,000597: 4111 10000 CADR GOPOOFIX
008111,000598: 4112 00024 OCT24 MM 20 B-14
008112,000599: 4113 00031 OCT31 MM 25 B-14
008113,000600:
008114,000601: 20,2000 BANK 20
008115,000602: 04,2000 SETLOC VERB37
008116,000603: 04,2000 BANK
008117,000604:
008118,000605: 04,2000 COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4.
008119,000606: 04,2000 32006 GOPOOFIX CAF V37N99
008120,000607: 04,2001 04655 TC BANKCALL
008121,000608: 04,2002 20406 CADR GOFLASH
008122,000609: 04,2003 12000 TCF -3
008123,000610: 04,2004 12000 TCF -4
008124,000611: 04,2005 12000 TCF -5
008125,000612:
008126,000613: 04,2006 11343 V37N99 VN 3799
008127,000614:
008128,000615: # PROGRAM NAME V37 ASSEMBLY SUNDANCE
008129,000616:
008130,000617: # LOG SECTION FRESH START AND RESTART
008131,000618:
008132,000619: # FUNCTIONAL DESCRIPTION
008133,000620:
008134,000621: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
008135,000622: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
008136,000623: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
008137,000624: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
008138,000625: # 4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
008139,000626: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
008140,000627: # 6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
008141,000628: # 7. DISPLAY SYSTEM IS RELEASED.
008142,000629: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
008143,000630: # A. PROGRAM SELECTED IS P00.
008144,000631: # 1. RENDEZVOUS AND P25 FLAGS ARE RESET.(KILL P20 AND P25)
008145,000632: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
008146,000633: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
008147,000634: # 4. SUPERBANK 3 IS SELECTED.
008148,000635: # 5. NODOFLAG IS RESET.
008149,000636: # 6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
008150,000637: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
008151,000638: # INITIATED.
008152,000639: # B. PROGRAM SELECTED IS P20 OR P25.
008153,000640: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
008154,000641: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
008155,000642: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
008156,000643: # ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
008157,000644: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
008158,000645: # P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS M M IS SET.
008159,000646: # 3. CONTROL IS TRANSFERRED TO GOPROG2.
008160,000647: # C. PROGRAM SELECTED IS NEITHER P00,P20, NOR P25
008161,000648: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
008162,000649: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
008163,000650: # GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
008164,000651: # TO CONTINUE.
008165,000652:
008166,000653: # INPUT/OUTPUT INFORMATION
008167,000654:
008168,000655: # A. CALLING SEQUENCE
008169,000656:
008170,000657: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
008171,000658: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
008172,000659: # MMCHANG EXECUTES A TC POSTJUMP, CADR V37.
008173,000660:
008174,000661: # B. ERASABLE INITIALIZATION NONE
008175,000662:
008176,000663: # C. OUTPUT
008177,000664:
008178,000665: # MAJOR MODE CHANGE
008179,000666:
008180,000667: # D. DEBRIS
008181,000668: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
008182,000669: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
008183,000670:
008184,000671: # PROGRAM ANALYSIS
008185,000672:
008186,000673: # A. SUBROUTINES CALLED
008187,000674: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
008188,000675: # DSPMM
008189,000676:
008190,000677: # B. NORMAL EXIT TC ENDOFJOB
008191,000678:
008192,000679: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED)
008193,000680:
008194,000681: 04,2007 54776 V37 TS MMNUMBER # SAVE MAJOR MODE
008195,000682: 04,2010 34367 CAF PRIO30 # RESTART AT PINBALL PRIORITY
008196,000683: 04,2011 54366 TS RESTREG
008197,000684:
008198,000685: 04,2012 31304 CA IMODES30 # IS IMU BEINB INITIALIZED
008199,000686: 04,2013 75021 MASK BIT6
008200,000687: 04,2014 10000 CCS A
008201,000688: 04,2015 12025 TCF CANTROO
008202,000689:
008203,000690: 04,2016 30776 CA MMNUMBER # IS NEW REQUEST POO
008204,000691: 04,2017 00006 EXTEND
008205,000692: 04,2020 12062 BZF ISSERVON # YES, CHECK SERVICER STATUS
008206,000693:
008207,000694: 04,2021 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
008208,000695: 04,2022 75026 MASK NODOBIT
008209,000696: 04,2023 10000 CCS A
008210,000697: 04,2024 12032 TCF CHECKTAB # NO
008211,000698: 04,2025 05646 CANTROO TC ALARM
008212,000699: 04,2026 01520 OCT 1520
008213,000700:
008214,000701: 04,2027 04471 V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
008215,000702:
008216,000703: 04,2030 04674 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
008217,000704: 04,2031 20746 CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ.
008218,000705:
008219,000706: 04,2032 00004 CHECKTAB INHINT
008220,000707: 04,2033 37665 CAF PRIO25
008221,000708: 04,2034 54063 TS NEWPRIO
008222,000709:
008223,000710: 04,2035 40776 CS MMNUMBER # IS P70 REQUESTED?
008224,000711: 04,2036 62316 AD DEC70
008225,000712: 04,2037 00006 EXTEND
008226,000713: 04,2040 12307 BZF SETUP70 # YES
008227,000714: 04,2041 65026 AD ONE # IS P71 REQUESTED?
008228,000715: 04,2042 00006 EXTEND
008229,000716: 04,2043 12313 BZF SETUP71 # YES
008230,000717: 04,2044 00003 RELINT
008231,000718:
008232,000719: 04,2045 32413 CA NOV37MM # INDEX FOR MM TABLES.
008233,000720:
008234,000721: 04,2046 54155 AGAINMM TS MPAC +1
008235,000722: 04,2047 50155 NDX MPAC +1
008236,000723: 04,2050 32357 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR
008237,000724: 04,2051 76050 MASK LOW7
008238,000725: 04,2052 40000 COM
008239,000726: 04,2053 60776 AD MMNUMBER
008240,000727: 04,2054 10000 CCS A
008241,000728: 04,2055 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
008242,000729: 04,2056 12046 TCF AGAINMM # YES, GET NEXT ONE
008243,000730: 04,2057 12242 TCF V37NONO # LAST TIME OR PASSED MM
008244,000731:
008245,000732: 04,2060 30155 CA MPAC +1
008246,000733: 04,2061 54775 TS MINDEX # SAVE INDEX FOR LATER
008247,000734:
008248,000735: 04,2062 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET - I.E. IS SERVICER GOING
008249,000736: 04,2063 75021 MASK V37FLBIT
008250,000737: 04,2064 10000 CCS A
008251,000738: 04,2065 12073 TCF CANV37 # NO
008252,000739:
008253,000740: 04,2066 05575 TC DOWNFLAG # YES, TURN OFF THE AVERAGE FLAG AND
008254,000741: 04,2067 00163 ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO CANV37.
008255,000742:
008256,000743: 04,2070 32305 CAF CANV37AD
008257,000744: 04,2071 55262 TS OUTROUTE
008258,000745:
008259,000746: 04,2072 15225 TCF ENDOFJOB
008260,000747:
008261,000748: 04,2073 05575 CANV37 TC DOWNFLAG
008262,000749: 04,2074 00162 ADRES V37FLAG
008263,000750:
008264,000751: 04,2075 35030 CAF ZERO
008265,000752: 04,2076 00006 EXTEND
008266,000753: 04,2077 01007 WRITE SUPERBNK
008267,000754:
008268,000755: 04,2100 32304 CAF ROOAD
008269,000756: 04,2101 54374 TS TEMPFLSH
008270,000757:
008271,000758: 04,2102 05413 TC PHASCHNG
008272,000759: 04,2103 00014 OCT 14
008273,000760:
008274,000761:
008275,000762: 04,2104 06014 ROO TC INTPRET
008276,000763:
008277,000764: 04,2105 77624 CALL # WAIT FOR INTEGRATION TO FINISH
008278,000765: 04,2106 27362 INTSTALL
008279,000766: 04,2107 77776 DUMMYAD EXIT
008280,000767:
008281,000768: 04,2110 05575 TC DOWNFLAG
008282,000769: 04,2111 00124 ADRES 3AXISFLG # RESET 3-AXIS FLAG
008283,000770:
008284,000771: 04,2112 10776 CCS MMNUMBER # IS THIS A POOH REQUEST
008285,000772: 04,2113 12230 TCF NOUVEAU # NO, PICK UP NEW PROGRAM
008286,000773:
008287,000774: 04,2114 04471 POOH TC RELDSP # RELEASE DISPLAY SYSTEM
008288,000775:
008289,000776: 04,2115 00004 INHINT
008290,000777:
008291,000778: 04,2116 04737 TC IBNKCALL
008292,000779: 04,2117 51061 CADR CLRADMOD # CLRADMOD DOES AN INHINT.
008293,000780:
008294,000781: 04,2120 45026 CS NODOBIT # TURN OFF NODOFLAG.
008295,000782: 04,2121 70076 MASK FLAGWRD2
008296,000783: 04,2122 54076 TS FLAGWRD2
008297,000784:
008298,000785: 04,2123 35031 CA FIVE # SET RESTART FOR STATEINT1
008299,000786: 04,2124 54001 TS L
008300,000787: 04,2125 40000 COM
008301,000788: 04,2126 52755 DXCH -PHASE2
008302,000789:
008303,000790: 04,2127 42306 CS OCT700 # TURN OFF P20,P25,IMU IN USE FLAG
008304,000791: 04,2130 70074 MASK FLAGWRD0
008305,000792: 04,2131 54074 TS FLAGWRD0 # RENDFLG
008306,000793:
008307,000794: 04,2132 35030 CAF DNLADP00
008308,000795:
008309,000796: 04,2133 54332 SEUDOPOO TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
008310,000797: 04,2134 55330 TS AGSWORD # (CURRENT LIST WILL BE COMPLETED BEFORE
008311,000798: # NEW ONE IS STARTED)
008312,000799: 04,2135 04737 TC IBNKCALL
008313,000800: 04,2136 75546 CADR ENGINOF1
008314,000801:
008315,000802: 04,2137 04737 TC IBNKCALL # INSURE ALLCOAST.
008316,000803: 04,2140 40263 CADR ALLCOAST # DOES A RESTORDB.
008317,000804:
008318,000805: 04,2141 04737 TC IBNKCALL
008319,000806: 04,2142 40244 CADR STOPRATE
008320,000807:
008321,000808: 04,2143 45045 CS OCT120 # TURN OFF TRACK, UPDATE FLAGS
008322,000809: 04,2144 55072 TS EBANKTEM
008323,000810: 04,2145 70075 MASK FLAGWRD1
008324,000811: 04,2146 54075 TS FLAGWRD1
008325,000812:
008326,000813: 04,2147 04737 TC IBNKCALL # KILL GROUPS 1,3,5,6
008327,000814: 04,2150 12430 CADR V37KLEAN
008328,000815:
008329,000816: 04,2151 10776 CCS MMNUMBER # IS IT POOH
008330,000817: 04,2152 12161 TCF RENDVOO # NO
008331,000818: 04,2153 04737 GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
008332,000819: 04,2154 12425 CADR POOKLEAN
008333,000820:
008334,000821: 04,2155 30776 CA MMNUMBER
008335,000822: 04,2156 55012 TS MODREG
008336,000823:
008337,000824: 04,2157 04674 GOGOPROG TC POSTJUMP
008338,000825: 04,2160 12570 CADR GOPROG2
008339,000826:
008340,000827: 04,2161 40776 RENDVOO CS MMNUMBER # IS NEW PROGRAM P22
008341,000828: 04,2162 64112 AD OCT24 # IS NEW PROGRAM = P20 OR P25
008342,000829: 04,2163 00006 EXTEND
008343,000830: 04,2164 12202 BZF RENDNOO # YES
008344,000831: 04,2165 65031 AD FIVE # 25
008345,000832: 04,2166 00006 EXTEND
008346,000833: 04,2167 12202 BZF RENDNOO # YES
008347,000834:
008348,000835: 04,2170 32244 CA OCT500 # NO, IS EITHER P20 OR P25 RUNNING
008349,000836: 04,2171 70074 MASK FLAGWRD0
008350,000837: 04,2172 10000 CCS A
008351,000838: 04,2173 12177 TCF POOFIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
008352,000839:
008353,000840: 04,2174 00006 KILL2 EXTEND # NO, KILL 2
008354,000841: 04,2175 35030 DCA NEG0
008355,000842:
008356,000843: 04,2176 52755 DXCH -PHASE2
008357,000844:
008358,000845: 04,2177 32303 POOFIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ
008359,000846: 04,2200 54374 TS TEMPFLSH
008360,000847:
008361,000848: 04,2201 12157 TCF GOGOPROG
008362,000849:
008363,000850: 04,2202 41012 RENDNOO CS MODREG
008364,000851: 04,2203 64112 AD OCT24
008365,000852: 04,2204 00006 EXTEND
008366,000853: 04,2205 12174 BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 -
008367,000854:
008368,000855: 04,2206 65031 AD FIVE
008369,000856: 04,2207 00006 EXTEND
008370,000857: 04,2210 12174 BZF KILL2
008371,000858:
008372,000859: 04,2211 32244 CA OCT500
008373,000860: 04,2212 70074 MASK FLAGWRD0
008374,000861: 04,2213 60776 AD MMNUMBER
008375,000862: 04,2214 40000 COM
008376,000863: 04,2215 62246 AD P20REG # IS IT 20 AND IS RENDEZVOUS FLAG ON
008377,000864: 04,2216 00006 EXTEND
008378,000865: 04,2217 12224 BZF STATQUO # YES
008379,000866: 04,2220 62245 AD OCT305 # IS IT 25 AND IS P25 BIT ON
008380,000867: 04,2221 00006 EXTEND
008381,000868: 04,2222 12224 BZF STATQUO # YES, LEAVE AS IS
008382,000869: 04,2223 12174 TCF KILL2
008383,000870:
008384,000871: 04,2224 40075 STATQUO CS FLAGWRD1 # SET TRACKFLAG
008385,000872: 04,2225 75045 MASK OCT120 # UPDATE FLAG
008386,000873: 04,2226 26075 ADS FLAGWRD1
008387,000874:
008388,000875: 04,2227 12153 TCF GOMOD
008389,000876:
008390,000877: 04,2230 32244 NOUVEAU CAF OCT500 # IS P20 OR P25 FLAG SET
008391,000878: 04,2231 70074 MASK FLAGWRD0
008392,000879: 04,2232 10000 CCS A
008393,000880: 04,2233 12236 TCF +3 # YES
008394,000881: 04,2234 05575 TC DOWNFLAG # NO,RESET IMUINUSE FLAG
008395,000882: 04,2235 00007 ADRES IMUSE
008396,000883:
008397,000884: 04,2236 50775 INDEX MINDEX
008398,000885: 04,2237 32414 CAF DNLADMM1 # OBTAIN APPROPRIATE DOWNLIST ADDRESS
008399,000886:
008400,000887: 04,2240 00004 INHINT
008401,000888: 04,2241 12133 TCF SEUDOPOO
008402,000889:
008403,000890: 04,2242 04376 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESNT EXIST
008404,000891:
008405,000892: 04,2243 12027 TCF V37BAD
008406,000893:
008407,000894: 04,2244 5023 OCT00010 EQUALS BIT4
008408,000895: 04,2244 00500 OCT500 OCT 500 # BITS 7 AND 9
008409,000896: 04,2245 00305 OCT305 OCT 305
008410,000897: 04,2246 00124 P20REG OCT 124
008411,000898:
008412,000899: 04,2247 00004 V37XEQ INHINT
008413,000900: 04,2250 50775 INDEX MINDEX
008414,000901: 04,2251 32357 CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM
008415,000902: 04,2252 55061 TS MMTEMP
008416,000903: 04,2253 54020 TS CYR # SHIFT RIGHT TO BITS 14 - 10
008417,000904:
008418,000905: 04,2254 30020 CA CYR
008419,000906: 04,2255 77677 MASK PRIO37
008420,000907: 04,2256 55063 TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
008421,000908: 04,2257 54063 TS NEWPRIO # STORE PRIO FOR SPVAC
008422,000909:
008423,000910: 04,2260 31061 CA MMTEMP # OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
008424,000911: 04,2261 00006 EXTEND
008425,000912: 04,2262 75017 MP BIT8
008426,000913: 04,2263 75032 MASK LOW3
008427,000914: 04,2264 54001 TS L
008428,000915:
008429,000916: 04,2265 50775 INDEX MINDEX
008430,000917: 04,2266 32323 CAF FCADRMM1
008431,000918: 04,2267 55062 TS BASETEMP # MAKE BBCON BY ADDING HI5 OF FCADR
008432,000919: 04,2270 74362 MASK HI5
008433,000920: 04,2271 26001 ADS L
008434,000921:
008435,000922: 04,2272 31062 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
008436,000923: 04,2273 75062 MASK LOW10
008437,000924: 04,2274 65014 AD BIT11
008438,000925:
008439,000926: 04,2275 05166 TC SPVAC
008440,000927:
008441,000928: 04,2276 31061 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
008442,000929: 04,2277 76050 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
008443,000930: 04,2300 05354 TC NEWMODEA # PHSPRDT1)
008444,000931:
008445,000932: 04,2301 04471 TC RELDSP # RELEASE DISPLAY
008446,000933: 04,2302 05225 TC ENDOFJOB # AND EXIT
008447,000934:
008448,000935: 04,2303 1061 MMTEMP EQUALS PHSPRDT3
008449,000936: 04,2303 1062 BASETEMP EQUALS TBASE4
008450,000937: 04,2303 10252 V37QCAD CADR V37XEQ +3
008451,000938: 04,2304 10107 ROOAD CADR DUMMYAD
008452,000939: 04,2305 10073 CANV37AD CADR CANV37
008453,000940:
008454,000941: 04,2306 00700 OCT700 OCT 700
008455,000942:
008456,000943: 04,2307 00006 SETUP70 EXTEND
008457,000944: 04,2310 32320 DCA P70CADR
008458,000945: 04,2311 05166 +2 TC SPVAC
008459,000946: 04,2312 14243 TCF JAMTERM
008460,000947:
008461,000948: 04,2313 00006 SETUP71 EXTEND
008462,000949: 04,2314 32322 DCA P71CADR
008463,000950: 04,2315 12311 TCF SETUP70 +2
008464,000951:
008465,000952: 04,2316 00106 DEC70 DEC 70 B-14
008466,000953: 04,2317 E7,1475 EBANK= R
008467,000954: 04,2317 03201 64067 P70CADR 2CADR P70
008468,000955: 04,2321 E7,1475 EBANK= R
008469,000956: 04,2321 03504 64067 P71CADR 2CADR P71
008470,000957:
008471,000958: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
008472,000959: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
008473,000960: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
008474,000961:
008475,000962: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
008476,000963:
008477,000964: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
008478,000965: # THE MAJOR MODE. FOR EXAMPLE,
008479,000966:
008480,000967: # FCADRMM1 FCADR P79 START OF P 79
008481,000968: # FCADR PROG18 START OF P 18
008482,000969: # FCADR P01 START OF P 01
008483,000970:
008484,000971: # NOTE, THE FIRST ENTRY MUST BE LABLED FCADRMM1.
008485,000972: # ----
008486,000973:
008487,000974: 04,2323 71635 FCADRMM1 FCADR P79
008488,000975: 04,2324 71414 FCADR P78
008489,000976: 04,2325 72661 FCADR P75
008490,000977: 04,2326 72505 FCADR P74
008491,000978: 04,2327 72257 FCADR P73
008492,000979: 04,2330 72122 FCADR P72
008493,000980: 04,2331 64671 FCADR P63LM
008494,000981: 04,2332 32000 FCADR PROG52
008495,000982: 04,2333 30740 FCADR P51
008496,000983: 04,2334 75421 FCADR P47LM
008497,000984: 04,2335 75373 FCADR P42LM
008498,000985: 04,2336 75255 FCADR P41LM
008499,000986: 04,2337 75133 FCADR P40LM
008500,000987: 04,2340 71630 FCADR P39
008501,000988: 04,2341 71411 FCADR P38
008502,000989: 04,2342 72655 FCADR P35
008503,000990: 04,2343 72503 FCADR P34
008504,000991: 04,2344 72255 FCADR P33
008505,000992: 04,2345 72120 FCADR P32
008506,000993: 04,2346 71254 FCADR P31LM
008507,000994: 04,2347 72021 FCADR P30
008508,000995: 04,2350 50353 FCADR PROG25
008509,000996: 04,2351 51116 FCADR PROG21
008510,000997: 04,2352 50000 FCADR PROG20
008511,000998: 04,2353 60000 FCADR P12LM
008512,000999: 04,2354 64003 FCADR P11
008513,001000: 04,2355 64000 FCADR P10
008514,001001: 04,2356 77507 FCADR P06
008515,001002: # THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
008516,001003: # INFORMATION, IT IS IN THE FOLLOWING FORM,
008517,001004:
008518,001005: # PPP PPE EEM MMM MMM
008519,001006:
008520,001007: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
008521,001008: # 3 E BITS CONTAIN THE E-BANK NUMBER
008522,001009: # 5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
008523,001010: # TO BE STARTED
008524,001011:
008525,001012: # FOR EXAMPLE,
008526,001013:
008527,001014: # PREMM1 OCT 67213 PRIORITY 33
008528,001015: # E-BANK 5
008529,001016: # MAJOR MODE 11
008530,001017: # OCT 25437 PRIORITY 12
008531,001018: # E-BANK 6
008532,001019: # MAJOR MODE 31
008533,001020:
008534,001021: # NOTE, THE FIRST ENTRY MUST BE LABELED PREMM1
008535,001022: 04,2357 27717 PREMM1 OCT 27717 # MM 79 EBANK 7 PRIO 13
008536,001023: 04,2360 27716 OCT 27716 # MM 78 EBANK 7 PRIO 13
008537,001024: 04,2361 27713 OCT 27713 # MM 75 EBANK 7 PRIO 13
008538,001025: 04,2362 27712 OCT 27712 # MM 74 EBANK 7 PRIO 13
008539,001026: 04,2363 27711 OCT 27711 # MM 73 EBANK 7 PRIO 13
008540,001027: 04,2364 27710 OCT 27710 # MM 72 EBANK 7 PRIO 13
008541,001028: 04,2365 27677 OCT 27677 # MM 63 EBANK 7 PRIO 13
008542,001029: 04,2366 27264 OCT 27264 # MM 52 EBANK 5 PRIO 13
008543,001030: 04,2367 27263 OCT 27263 # MM 51 EBANK 5 PRIO 13
008544,001031: 04,2370 27657 OCT 27657 # MM 47 EBANK 7 PRIO 13
008545,001032: 04,2371 27652 OCT 27652 # MM 42 EBANK 7 PRIO 13
008546,001033: 04,2372 27651 OCT 27651 # MM 41 EBANK 7 PRIO 13
008547,001034: 04,2373 27650 OCT 27650 # MM 40 EBANK 7 PRIO 13
008548,001035: 04,2374 27647 OCT 27647 # MM 39 EBANK 7 PRIO 13
008549,001036: 04,2375 27646 OCT 27646 # MM 38 EBANK 7 PRIO 13
008550,001037: 04,2376 27643 OCT 27643 # MM 35 EBANK 7 PRIO 13
008551,001038: 04,2377 27642 OCT 27642 # MM 34 EBANK 7 PRIO 13
008552,001039: 04,2400 27641 OCT 27641 # MM 33 EBANK 7 PRIO 13
008553,001040: 04,2401 27640 OCT 27640 # MM 32 EBANK 7 PRIO 13
008554,001041: 04,2402 27637 OCT 27637 # MM 31 EBANK 7 PRIO 13
008555,001042: 04,2403 27636 OCT 27636 # MM 30 EBANK 7 PRIO 13
008556,001043: 04,2404 27631 OCT 27631 # MM 25 EBANK 7 PRIO 13
008557,001044: 04,2405 27625 OCT 27625 # MM 21 EBANK 7 PRIO 13
008558,001045: 04,2406 27624 OCT 27624 # MM 20 EBANK 7 PRIO 13
008559,001046: 04,2407 27614 OCT 27614 # MM 12 EBANK 7 PRIO 13
008560,001047: 04,2410 27613 OCT 27613 # MM 11 EBANK 7 PRIO 13
008561,001048: 04,2411 27612 OCT 27612 # MM 10 EBANK 7 PRIO 13
008562,001049: 04,2412 27006 OCT 27006 # MM 06 EBANK 4 PRIO 13
008563,001050:
008564,001051: # NOTE, THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
008565,001052: # ---- THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
008566,001053: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
008567,001054:
008568,001055: 04,2413 00033 NOV37MM DEC 27 B-14 # MM'S -1
008569,001056:
008570,001057: 04,2414 00002 DNLADMM1 ADRES RENDEZVU # P79
008571,001058: 04,2415 00002 ADRES RENDEZVU # P78
008572,001059: 04,2416 00002 ADRES RENDEZVU # P75
008573,001060: 04,2417 00002 ADRES RENDEZVU # P74
008574,001061: 04,2420 00002 ADRES RENDEZVU # P73
008575,001062: 04,2421 00002 ADRES RENDEZVU # P72
008576,001063: 04,2422 00003 ADRES POWERED # P63
008577,001064: 04,2423 00000 ADRES COSTALIN # P52
008578,001065: 04,2424 00000 ADRES COSTALIN # P51
008579,001066: 04,2425 00003 ADRES POWERED # P47
008580,001067: 04,2426 00003 ADRES POWERED # P42
008581,001068: 04,2427 00003 ADRES POWERED # P41
008582,001069: 04,2430 00003 ADRES POWERED # P40
008583,001070: 04,2431 00002 ADRES RENDEZVU # P39
008584,001071: 04,2432 00002 ADRES RENDEZVU # P38
008585,001072: 04,2433 00002 ADRES RENDEZVU # P35
008586,001073: 04,2434 00002 ADRES RENDEZVU # P34
008587,001074: 04,2435 00002 ADRES RENDEZVU # P33
008588,001075: 04,2436 00002 ADRES RENDEZVU # P32
008589,001076: 04,2437 00002 ADRES RENDEZVU # P31LM
008590,001077: 04,2440 00002 ADRES RENDEZVU # P30
008591,001078: 04,2441 00002 ADRES RENDEZVU # P25
008592,001079: 04,2442 00002 ADRES RENDEZVU # P21
008593,001080: 04,2443 00002 ADRES RENDEZVU # P20
008594,001081: 04,2444 00003 ADRES POWERED # P12
008595,001082: 04,2445 00002 ADRES RENDEZVU # P11
008596,001083: 04,2446 00002 ADRES RENDEZVU # P10
008597,001084: 04,2447 00000 ADRES COSTALIN # P06
008598,001085: 04,2450 5030 DNLADP00 = ZERO
008599,001086: 04,2450 COSTALIN = 0
008600,001087: 04,2450 AGSUPDAT = 1
008601,001088: 04,2450 RENDEZVU = 2
008602,001089: 04,2450 POWERED = 3
008603,001090:
|
|
Sundance 302 |
008605,001092:
008606,001093: 13,2000 BANK 13
008607,001094: 13,2000 SETLOC INTINIT
008608,001095: 13,2000 BANK
008609,001096:
008610,001097: 13,2000 COUNT* $$/INTIN
008611,001098:
008612,001099: 13,2000 E3,1554 EBANK= RRECTCSM
008613,001100:
008614,001101: # THIS ROUTINE DOES THE POO INTEGRATION
008615,001102:
008616,001103: 13,2000 43014 STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
008617,001104: 13,2001 01474 VINTFLAG
008618,001105: 13,2002 04347 SURFFLAG # ALSO 6X6 W-MATRIX IF LM ON LUNAR
008619,001106: 13,2003 26010 DOINT # SURFACE AND W-MATRIX VALID
008620,001107: 13,2004 43014 BOF SET # FOR RENDEZVOUS NAVIGATION.
008621,001108: 13,2005 02756 RENDWFLG
008622,001109: 13,2006 26010 DOINT
008623,001110: 13,2007 01476 DIM0FLAG
008624,001111: 13,2010 45014 DOINT CLEAR CALL
008625,001112: 13,2011 01667 PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
008626,001113: 13,2012 27105 INTEGRV # WHEN MODREG = 0
008627,001114:
008628,001115: 13,2013 77745 DLOAD
008629,001116: 13,2014 01571 TETCSM
008630,001117: 13,2015 34041 STCALL TDEC1
008631,001118: 13,2016 27362 INTSTALL
008632,001119: 13,2017 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
008633,001120: 13,2020 01674 VINTFLAG
008634,001121: 13,2021 26622 SETIFLGS
008635,001122: 13,2022 43014 BON BOF # ALSO 9X9 W-MATRIX IF W IS VALID
008636,001123: 13,2023 04307 SURFFLAG
008637,001124: 13,2024 26032 DOINT2
008638,001125: 13,2025 02756 RENDWFLG
008639,001126: 13,2026 26032 DOINT2
008640,001127: 13,2027 43014 SET SET
008641,001128: 13,2030 01476 DIM0FLAG
008642,001129: 13,2031 01475 D6OR9FLG
008643,001130: 13,2032 45014 DOINT2 SET CALL
008644,001131: 13,2033 01467 PRECIFLG # DISENGAGE 4 TIME STEP LOGIC IN INTEG.
008645,001132: 13,2034 27105 INTEGRV
008646,001133: 13,2035 77614 NO-INT CLRGO
008647,001134: 13,2036 01236 NODOFLAG
008648,001135: 13,2037 26610 ENDINT
008649,001136:
008650,001137:
008651,001138: # THISVINT IS CALLED BY MIDTOAV1 AND 2
008652,001139:
008653,001140: 13,2040 43414 THISVINT CLEAR RVQ
008654,001141: 13,2041 01674 VINTFLAG
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc