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