Source Code

008457,000001: # Copyright: Public domain. 008458,000002: # Filename: FRESH_START_AND_RESTART.agc 008459,000003: # Purpose: A section of Luminary 1C, revision 131. 008460,000004: # It is part of the source code for the Lunar Module's (LM) 008461,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 008462,000006: # This file is intended to be a faithful transcription, except 008463,000007: # that the code format has been changed to conform to the 008464,000008: # requirements of the yaYUL assembler rather than the 008465,000009: # original YUL assembler. 008466,000010: # Reference: pp. 218-243 of 1729.pdf. 008467,000011: # Contact: Ron Burkey <info@sandroid.org>. 008468,000012: # Website: www.ibiblio.org/apollo/index.html 008469,000013: # Mod history: 05/06/03 RSB. Began transcribing. 008470,000014: # 05/14/05 RSB Corrected website reference above. 008471,000015: # 2010-10-25 JL Added missing # to comment. Indentation fixes. 008472,000016: 008473,000017: # Page 218 008474,000018: 10,2000 BANK 10 008475,000019: 05,2000 SETLOC FRANDRES 008476,000020: 05,2000 BANK 008477,000021: 008478,000022: 05,2447 E3,1400 EBANK= LST1 008479,000023: 008480,000024: 05,2447 COUNT* $$/START # FRESH AND RESTART 008481,000025: 05,2447 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL. 008482,000026: 05,2450 03105 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK 008483,000027: 008484,000028: 05,2451 12456 STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM FOR SIMULATION 008485,000029: 05,2452 34736 STARTSIM CAF BIT14 008486,000030: 05,2453 05105 TC FINDVAC 008487,000031: 05,2454 77777 SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF 008488,000032: 05,2455 77777 OCT 77777 # SIMULATION START ADDRESS. 008489,000033: 008490,000034: 05,2456 31035 SKIPSIM CA DSPTAB +11D # TURN OFF ALL DSPTAB +11D LAMPS 008491,000035: 05,2457 74771 MASK BITS4&6 # EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON 008492,000036: 05,2460 64735 AD BIT15 # REQUESTED FRESH START. 008493,000037: 05,2461 55035 TS DSPTAB +11D 008494,000038: 008495,000039: 05,2462 34755 CA ZERO 008496,000040: 05,2463 55365 TS ERCOUNT 008497,000041: 05,2464 54375 TS FAILREG 008498,000042: 05,2465 54376 TS FAILREG +1 008499,000043: 05,2466 54377 TS FAILREG +2 008500,000044: 05,2467 54320 TS REDOCTR 008501,000045: 008502,000046: 05,2470 44644 CS PRIO12 008503,000047: 05,2471 55310 TS DSRUPTSW 008504,000048: 008505,000049: 05,2472 34736 DOFSTART CAF BIT14 # INSURE ENGINE IS OFF. 008506,000050: 05,2473 00006 EXTEND 008507,000051: 05,2474 01011 WRITE DSALMOUT 008508,000052: 05,2475 44755 CS ZERO 008509,000053: 05,2476 54055 TS THRUST 008510,000054: 008511,000055: 05,2477 34751 DOFSTRT1 CAF FOUR 008512,000056: 05,2500 55262 TS RCSFLAGS # INITIALIZE ATTITUDE ERROR DISPLAYS. 008513,000057: 05,2501 34355 CA PRIO30 008514,000058: 05,2502 54366 TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS. 008515,000059: 008516,000060: 05,2503 34755 CA ZERO 008517,000061: 05,2504 55245 TS ABDELV # DAP INITIALIZATION 008518,000062: 05,2505 54371 TS NVSAVE 008519,000063: 05,2506 55071 TS EBANKTEM 008520,000064: 05,2507 55257 TS CH5MASK 008521,000065: 05,2510 55260 TS CH6MASK 008522,000066: 05,2511 55273 TS PVALVEST # FOR RCS FAILURE MONITOR 008523,000067: # Page 219 008524,000068: 05,2512 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART 008525,000069: 05,2513 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART 008526,000070: 05,2514 54333 TS DNLSTCOD # SELECT P00 DOWNLIST 008527,000071: 05,2515 55321 TS AGSWORD # ALLOW AGS INITIALIZATION 008528,000072: 05,2516 55501 TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD 008529,000073: 05,2517 00006 EXTEND 008530,000074: 05,2520 01005 WRITE CHAN5 # TURN OFF RCS JETS. 008531,000075: 05,2521 00006 EXTEND 008532,000076: 05,2522 01006 WRITE CHAN6 # TURN OFF RCS JETS. 008533,000077: 05,2523 00006 EXTEND 008534,000078: 05,2524 01012 WRITE CHAN12 008535,000079: 05,2525 00006 EXTEND 008536,000080: 05,2526 01013 WRITE CHAN13 008537,000081: 05,2527 00006 EXTEND 008538,000082: 05,2530 01014 WRITE CHAN14 008539,000083: 05,2531 41035 CS DSPTAB +11D 008540,000084: 05,2532 74771 MASK BITS4&6 008541,000085: 05,2533 10000 CCS A 008542,000086: 05,2534 02540 TC +4 008543,000087: 05,2535 34771 CA BITS4&6 008544,000088: 05,2536 00006 EXTEND # THE IMU WAS IN COARSE ALIGN IN GIMBAL 008545,000089: 05,2537 05012 WOR CHAN12 # LOCK, SO PUT IT BACK INTO COARSE ALIGN. 008546,000090: 05,2540 02641 +4 TC MR.KLEAN 008547,000091: 008548,000092: 05,2541 44755 CS ZERO 008549,000093: 05,2542 55010 TS MODREG 008550,000094: 008551,000095: 05,2543 33373 CAF IM30INIF # FRESH START IMU INITIALIZATION 008552,000096: 05,2544 55277 TS IMODES30 008553,000097: 008554,000098: 05,2545 33065 CAF MAXDB 008555,000099: 05,2546 55343 TS DB 008556,000100: 05,2547 34751 CAF FOUR 008557,000101: 05,2550 55322 TS RATEINDX # INITIALZE KALCMANU RATE 008558,000102: 05,2551 33061 CA BOOLSTRT 008559,000103: 05,2552 54111 TS DAPBOOLS 008560,000104: 05,2553 35015 CAF EBANK6 008561,000105: 05,2554 54003 TS EBANK 008562,000106: 05,2555 E6,1400 EBANK= HIASCENT 008563,000107: 008564,000108: 05,2555 33056 CA STIKSTRT 008565,000109: 05,2556 55444 TS STIKSENS 008566,000110: 05,2557 33057 CA RATESTRT 008567,000111: 05,2560 55476 TS -RATEDB 008568,000112: 05,2561 32000 CAF FULLAPS # INITIALIZE MAXIMUM ASCENT MASS FOR USE 008569,000113: 05,2562 55400 TS HIASCENT # BY 1/ACCS UNTIL THE PAD LOAD IS DONE. 008570,000114: 05,2563 33062 CA 77001OCT # LOAD DAP FILTER GAINS PAD LOAD. 008571,000115: 05,2564 55403 TS DKTRAP # TO BEST PRESENT ESTIMATE OF GOODIES 008572,000116: 05,2565 55406 TS LMTRAP # .14 DEG 008573,000117: 05,2566 33063 CA 60DEC 008574,000118: # Page 220 008575,000119: 05,2567 55405 TS DKKAOSN 008576,000120: 05,2570 55410 TS LMKAOSN # 6 SEC GAIN FOR ALPHA 008577,000121: 05,2571 34755 CA ZERO 008578,000122: 05,2572 55407 TS LMOMEGAN # UNITY GAIN 008579,000123: 05,2573 34363 CA TEN 008580,000124: 05,2574 55404 TS DKOMEGAN # 1 SEC GAIN FOR OMEGA 008581,000125: 05,2575 34744 CAF BIT8 # SET DOCKED DB TO 1.4 DEG. MAY OVERWRITE 008582,000126: 05,2576 55411 TS DKDB # WITH PAD LOAD. 008583,000127: 05,2577 35026 CAF IM33INIT 008584,000128: 05,2600 64746 AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY 008585,000129: 05,2601 55300 TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED. 008586,000130: 008587,000131: 05,2602 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START. 008588,000132: 05,2603 33400 DCA SWINIT 008589,000133: 05,2604 52075 DXCH STATE 008590,000134: 05,2605 33401 CA SWINIT +2 008591,000135: 05,2606 54076 TS STATE +2 008592,000136: 05,2607 34737 CA REFSMBIT # DO NOT ALTER REFSMFLG ON FRESH START. 008593,000137: 05,2610 70077 MASK STATE +3 008594,000138: 05,2611 63402 AD SWINIT +3 008595,000139: 05,2612 54077 TS STATE +3 008596,000140: 05,2613 00006 EXTEND 008597,000141: 05,2614 33404 DCA SWINIT +4 008598,000142: 05,2615 52101 DXCH STATE +4 008599,000143: 05,2616 00006 EXTEND 008600,000144: 05,2617 33406 DCA SWINIT +6 008601,000145: 05,2620 52103 DXCH STATE +6 008602,000146: 05,2621 34744 CA SURFFBIT # DO NOT ALTER SURFFLAG ON FRESH START. 008603,000147: 05,2622 64740 AD CMOONBIT # CMOONFLG 008604,000148: 05,2623 64741 AD LMOONBIT # LMOONFLG 008605,000149: 05,2624 70104 MASK STATE +8D 008606,000150: 05,2625 63407 AD SWINIT +8D 008607,000151: 05,2626 54104 TS STATE +8D 008608,000152: 05,2627 33410 CA SWINIT +9D 008609,000153: 05,2630 54105 TS STATE +9D 008610,000154: 05,2631 34737 CA APSFLBIT # DO NOT ALTER APSFLAG ON FRESH START. 008611,000155: 05,2632 70106 MASK STATE +10D 008612,000156: 05,2633 63411 AD SWINIT +10D 008613,000157: 05,2634 54106 TS STATE +10D 008614,000158: 05,2635 33412 CAF SWINIT +11D 008615,000159: 05,2636 54107 TS STATE +11D 008616,000160: 008617,000161: 05,2637 04635 ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK. 008618,000162: 05,2640 03211 CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DON'T ZERO NEWJOB) 008619,000163: 008620,000164: 05,2641 00004 MR.KLEAN INHINT 008621,000165: 05,2642 00006 EXTEND 008622,000166: 05,2643 34755 DCA NEG0 008623,000167: 05,2644 52754 DXCH -PHASE2 008624,000168: 008625,000169: # Page 221 008626,000170: 05,2645 00006 P00KLEAN EXTEND 008627,000171: 05,2646 34755 DCA NEG0 008628,000172: 05,2647 52760 DXCH -PHASE4 008629,000173: 05,2650 00006 V37KLEAN EXTEND 008630,000174: 05,2651 34755 DCA NEG0 008631,000175: 05,2652 52762 DXCH -PHASE5 008632,000176: 05,2653 00006 ABTKLEAN EXTEND 008633,000177: 05,2654 34755 DCA NEG0 008634,000178: 05,2655 52756 DXCH -PHASE3 008635,000179: 05,2656 00006 EXTEND 008636,000180: 05,2657 34755 DCA NEG0 008637,000181: 05,2660 52752 DXCH -PHASE1 008638,000182: 05,2661 00006 EXTEND 008639,000183: 05,2662 34755 DCA NEG0 008640,000184: 05,2663 52764 DXCH -PHASE6 008641,000185: 05,2664 00002 TC Q 008642,000186: 008643,000187: # Page 222 008644,000188: # COMES HERE FROM LOCATION 4000, GOJAM, RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME. 008645,000189: 008646,000190: 05,2665 E3,1400 EBANK= LST1 008647,000191: 05,2665 24320 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER. 008648,000192: 008649,000193: 05,2666 22002 LXCH Q 008650,000194: 05,2667 00006 EXTEND 008651,000195: 05,2670 04007 ROR SUPERBNK 008652,000196: 05,2671 53433 DXCH RSBBQ 008653,000197: 05,2672 31035 CA DSPTAB +11D 008654,000198: 05,2673 74750 MASK BIT4 008655,000199: 05,2674 00006 EXTEND 008656,000200: 05,2675 12701 BZF +4 008657,000201: 05,2676 64746 AD BIT6 # SET ERROR COUNTER ENABLE 008658,000202: 05,2677 00006 EXTEND 008659,000203: 05,2700 05012 WOR CHAN12 # ISS WAS IN COARSE ALIGN SO GO BACK TO 008660,000204: 05,2701 03066 BUTTONS TC LIGHTSET 008661,000205: 008662,000206: # ERACHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X 008663,000207: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND 008664,000208: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD 008665,000209: # EQUAL C(SKEEP7), AND SHOULD BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE 008666,000210: # C(ERESTORE) SHOULD EQUAL +0. 008667,000211: 008668,000212: 05,2702 34350 CAF HI5 008669,000213: 05,2703 71360 MASK ERESTORE 008670,000214: 05,2704 00006 EXTEND 008671,000215: 05,2705 12707 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K, 008672,000216: 05,2706 13103 TCF NONAVKEY +3 # DO FRESH START -- E MEMORY MIGHT BE BAD 008673,000217: 05,2707 41360 CS ERESTORE 008674,000218: 05,2710 00006 EXTEND 008675,000219: 05,2711 12726 BZF DORSTART # = +0 CONTINUE WITH RESTART. 008676,000220: 05,2712 61377 AD SKEEP7 008677,000221: 05,2713 00006 EXTEND 008678,000222: 05,2714 12716 BZF +2 # = SKEEP7, RESTORE E MEMORY. 008679,000223: 05,2715 13103 TCF NONAVKEY +3 # DO FRESH START -- E MEMORY MIGHT BE BAD 008680,000224: 05,2716 31374 CA SKEEP4 008681,000225: 05,2717 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST. 008682,000226: 05,2720 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN) 008683,000227: 05,2721 31376 DCA SKEEP5 008684,000228: 05,2722 51377 INDEX SKEEP7 008685,000229: 05,2723 52001 DXCH 0000 # E MEMORY RESTORED 008686,000230: 05,2724 34755 CA ZERO 008687,000231: 05,2725 55360 TS ERESTORE 008688,000232: 05,2726 03105 DORSTART TC STARTSUB # DO INITIALIZATION AFTER ERASE RESTORE. 008689,000233: 008690,000234: 05,2727 44736 SETINFL CS INTFLBIT 008691,000235: 05,2730 70106 MASK FLGWRD10 008692,000236: 05,2731 54106 TS FLGWRD10 008693,000237: # Page 223 008694,000238: 05,2732 33375 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK, NO ATT 008695,000239: 05,2733 71035 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART 008696,000240: 05,2734 64735 AD BIT15 008697,000241: 05,2735 57035 XCH DSPTAB +11D 008698,000242: 05,2736 33361 CAF IFAILINH # LEAVE IMU FAILURE INHIBITS INTACT ON 008699,000243: 05,2737 71277 MASK IMODES30 # HARDWARE RESTART, RESET ALL FAILURE 008700,000244: 05,2740 63374 AD IM30INIR # CODES. 008701,000245: 05,2741 55277 TS IMODES30 008702,000246: 008703,000247: 05,2742 31321 CA AGSWORD # BE SURE OF CORRECT DOWNLTST 008704,000248: 05,2743 54333 TS DNLSTCOD 008705,000249: 008706,000250: 05,2744 34750 CA BIT4 # TURN ON THROTTLE COUNTER 008707,000251: 05,2745 00006 EXTEND 008708,000252: 05,2746 05014 WOR CHAN14 # TURN ON THRUST DRIVE 008709,000253: 05,2747 40101 CS FLAGWRD5 008710,000254: 05,2750 74745 MASK ENGONBIT 008711,000255: 05,2751 10000 CCS A 008712,000256: 05,2752 12757 TCF +5 008713,000257: 05,2753 34737 CAF BIT13 008714,000258: 05,2754 00006 EXTEND 008715,000259: 05,2755 05011 WOR DSALMOUT # TURN ENGINE ON 008716,000260: 05,2756 12773 TCF GOPROG3 008717,000261: 05,2757 34736 +5 CAF BIT14 008718,000262: 05,2760 00006 EXTEND 008719,000263: 05,2761 05011 WOR DSALMOUT # TURN ENGINE OFF 008720,000264: 05,2762 12773 TCF GOPROG3 008721,000265: 008722,000266: 05,2763 00004 ENEMA INHINT 008723,000267: 05,2764 03114 TC STARTSB1 008724,000268: 05,2765 12767 TCF GOPROG2A 008725,000269: 05,2766 03157 GOPROG2 TC STARTSB2 008726,000270: 05,2767 03066 GOPROG2A TC LIGHTSET 008727,000271: 05,2770 43064 CS RSFLGBTS # CLEAR BITS 7 AND 14. 008728,000272: 05,2771 70106 MASK FLGWRD10 008729,000273: 05,2772 54106 TS FLGWRD10 008730,000274: 008731,000275: 05,2773 34756 GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS 008732,000276: 05,2774 54161 PCLOOP TS MPAC +5 008733,000277: 05,2775 60000 DOUBLE 008734,000278: 05,2776 00006 EXTEND 008735,000279: 05,2777 50000 INDEX A 008736,000280: 05,3000 30752 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L. 008737,000281: 05,3001 00006 EXTEND 008738,000282: 05,3002 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT. 008739,000283: 05,3003 10000 CCS A 008740,000284: 05,3004 13052 TCF PTBAD # RESTART FAILURE. 008741,000285: 05,3005 13052 TCF PTBAD 008742,000286: 05,3006 13052 TCF PTBAD 008743,000287: # Page 224 008744,000288: 05,3007 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 008745,000289: 05,3010 12774 TCF PCLOOP 008746,000290: 008747,000291: 05,3011 54162 TS MPAC +6 # SET TO +0. 008748,000292: 05,3012 05315 TC MMDSPLAY # DISPLAY MAJOR MODE 008749,000293: 008750,000294: 05,3013 00004 INHINT # RELINT DONE IN MMDSPLAY 008751,000295: 008752,000296: 05,3014 44736 CS DIDFLBIT # CLEAR DIDFLAG IN ORDER TO FORCE R10 TO 008753,000297: 05,3015 70075 MASK FLAGWRD1 # RE-INITIALIZE ITSELF IF IT HAD BEEN 008754,000298: 05,3016 54075 TS FLAGWRD1 # OPERATION AT THE TIME OF THE RESTART. 008755,000299: 008756,000300: 05,3017 44740 CS RODFLBIT # CLEAR RODFLAG. IF P66 IS IN OPERATION 008757,000301: 05,3020 70075 MASK FLAGWRD1 # IT WILL RE-INITIALIZE ITSELF AND 008758,000302: 05,3021 54075 TS FLAGWRD1 # CONTINUE. 008759,000303: 008760,000304: 05,3022 44741 CS P21FLBIT # CLEAR P21 FLAG SO THAT P21 WILL COMPUTE 008761,000305: 05,3023 70074 MASK FLAGWRD0 # NEW BASE STATE VECTORS. 008762,000306: 05,3024 54074 TS FLAGWRD0 008763,000307: 008764,000308: 05,3025 34756 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING. 008765,000309: 05,3026 54161 NXTRST TS MPAC +5 008766,000310: 05,3027 60000 DOUBLE 008767,000311: 05,3030 50000 INDEX A 008768,000312: 05,3031 10752 CCS PHASE1 008769,000313: 05,3032 13034 TCF PACTIVE # PNZ -- GROUP ACTIVE. 008770,000314: 05,3033 13041 TCF PINACT # +0 -- GROUP NOT RUNNING. 008771,000315: 008772,000316: 05,3034 54154 PACTIVE TS MPAC 008773,000317: 05,3035 24154 INCR MPAC # ABS OF PHASE. 008774,000318: 05,3036 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT. 008775,000319: 05,3037 33060 CA RACTCADR 008776,000320: 05,3040 04622 TC SWCALL # MUST RETURN TO SWRETURN. 008777,000321: 008778,000322: 05,3041 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS. 008779,000323: 05,3042 13026 TCF NXTRST 008780,000324: 008781,000325: 05,3043 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG 008782,000326: 05,3044 12637 TCF ENDRSTRT # PHASE ACTIVE 008783,000327: 05,3045 34735 CAF BIT15 # IS MODE -0 008784,000328: 05,3046 71010 MASK MODREG 008785,000329: 05,3047 00006 EXTEND 008786,000330: 05,3050 16001 BZF GOTOP00H # NO 008787,000331: 05,3051 12637 TCF ENDRSTRT # YES 008788,000332: 05,3052 05567 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE. 008789,000333: 05,3053 01107 OCT 1107 008790,000334: 008791,000335: 05,3054 12477 TCF DOFSTRT1 008792,000336: # Page 225 008793,000337: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE. 008794,000338: 008795,000339: 05,3055 4737 OCT10000 = BIT13 008796,000340: 05,3055 4355 OCT30000 = PRIO30 008797,000341: 05,3055 07777 OCT7777 OCT 7777 008798,000342: 05,3056 32321 STIKSTRT DEC 0.825268 # 20 D/S MAXIMUM COMPANDED RATE 008799,000343: 05,3057 77445 RATESTRT DEC -218 B-14 008800,000344: 05,3060 03527 RACTCADR CADR RESTARTS 008801,000345: 05,3061 21322 BOOLSTRT OCT 21322 008802,000346: 05,3062 77001 77001OCT OCT 77001 # .14 DEG SCALED AT 4.5 DEG 008803,000347: 05,3063 00074 60DEC DEC 60 B-14 008804,000348: 05,3064 20100 RSFLGBTS OCT 20100 008805,000349: 05,3065 03434 MAXDB OCTAL 03434 # 5 DEG ATTITUDE DEADBAND, SCALED AT 45. 008806,000350: 008807,000351: 05,3066 34747 LIGHTSET CAF BIT5 # CHECK FOR MARK REJECT AND ERROR RESET 008808,000352: 05,3067 00006 EXTEND 008809,000353: 05,3070 02016 RAND NAVKEYIN 008810,000354: 05,3071 00006 EXTEND 008811,000355: 05,3072 13100 BZF NONAVKEY # NO MARK REJECT 008812,000356: 05,3073 00006 EXTEND 008813,000357: 05,3074 00015 READ MNKEYIN # CHECK IF KEYS 2M AND 5M ON 008814,000358: 05,3075 63372 AD -ELR # MAIN DSKY KEYCODE (BITS 1-5) 008815,000359: 05,3076 00006 EXTEND 008816,000360: 05,3077 13101 BZF +2 008817,000361: 008818,000362: 05,3100 00002 NONAVKEY TC Q 008819,000363: 008820,000364: 05,3101 03105 TC STARTSUB 008821,000365: 05,3102 12472 TCF DOFSTART 008822,000366: 05,3103 03105 +3 TC STARTSUB 008823,000367: 05,3104 12477 TCF DOFSTRT1 # DO FRESH START BUT DON'T TOUCH ENGINE 008824,000368: 008825,000369: # Page 226 008826,000370: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART. 008827,000371: 008828,000372: 05,3105 E6,1536 EBANK= AOSQ 008829,000373: 05,3105 33362 STARTSUB CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL 008830,000374: 05,3106 54335 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE 008831,000375: # INTERRUPTED AND START SENDING FROM THE 008832,000376: # BEGINNING OF THE CURRENT DOWNLIST. 008833,000377: 05,3107 34746 CAF BIT6 008834,000378: 05,3110 00006 EXTEND 008835,000379: 05,3111 02033 RAND CHAN33 008836,000380: 05,3112 63376 AD RMODINIT 008837,000381: 05,3113 54110 TS RADMODES 008838,000382: 008839,000383: 05,3114 34733 STARTSB1 CAF POSMAX 008840,000384: 05,3115 54026 TS TIME3 008841,000385: 05,3116 67751 AD MINUS2 008842,000386: 05,3117 54027 TS TIME4 008843,000387: 05,3120 67752 AD NEGONE 008844,000388: 05,3121 54030 TS TIME5 008845,000389: 008846,000390: 05,3122 35015 CAF EBANK6 008847,000391: 05,3123 54003 TS EBANK 008848,000392: 008849,000393: 05,3124 44737 CS BIT13 # CAUSE DAPIDLER TO CALL 1/ACCS 008850,000394: 05,3125 71262 MASK RCSFLAGS 008851,000395: 05,3126 55262 TS RCSFLAGS # ZERO BIT 13 008852,000396: 05,3127 34733 CAF POSMAX # DISABLE TIME6 CLOCK. JUST IN CASE A T6 008853,000397: 05,3130 55466 TS T6NEXT # RUPT IS ALREADY IN THE PRIORITY CHAIN, 008854,000398: 05,3131 00006 EXTEND # ENSURE THAT ITS INPUTS WILL RENDER IT 008855,000399: 05,3132 03013 WAND CHAN13 # INEFFECTUAL. 008856,000400: 05,3133 34755 CAF ZERO 008857,000401: 05,3134 55465 TS NXT6ADR 008858,000402: 05,3135 55472 TS NEXTP 008859,000403: 008860,000404: 05,3136 44751 CS ACCSOKAY 008861,000405: 05,3137 70111 MASK DAPBOOLS 008862,000406: 05,3140 54111 TS DAPBOOLS 008863,000407: 008864,000408: 05,3141 00006 EXTEND # SET T5RUPT FOR DAPIDLER PROGRAM. 008865,000409: 05,3142 33360 DCA IDLEADR 008866,000410: 05,3143 53264 DXCH T5ADR 008867,000411: 008868,000412: 05,3144 40107 CS FLGWRD11 # IF R12 IS PERMITTED, ENSURE THAT NEXT 008869,000413: 05,3145 74735 MASK LRBYBIT # RADAR READS ARE NOT USED 008870,000414: 05,3146 00006 EXTEND 008871,000415: 05,3147 13157 BZF STARTSB2 # R12 OFF 008872,000416: 008873,000417: 05,3150 24006 INCR BBANK # SET EBANK TO 7 008874,000418: 05,3151 E7,1674 EBANK= STILBADH 008875,000419: 05,3151 11674 CCS STILBADH # IF STILBADH>0, NEXT READ WILL BE IGNORED 008876,000420: # Page 227 008877,000421: 05,3152 13154 TCF +2 008878,000422: 05,3153 25674 INCR STILBADH # SET STILBADH TO IGNORE NEXT READ 008879,000423: 008880,000424: 05,3154 11675 +2 CCS STILBADV 008881,000425: 05,3155 13157 TCF STARTSB2 # IF STILBADV>0, NEXT READ WILL BE IGNORED 008882,000426: 05,3156 25675 INCR STILBADV # SET STILBADV TO IGNORE NEXT READ 008883,000427: 008884,000428: 05,3157 33371 STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB 008885,000429: 05,3160 00006 EXTEND # ENGINE ON, OFF AND ISS WARNING. 008886,000430: 05,3161 03011 WAND DSALMOUT 008887,000431: 008888,000432: 05,3162 44743 CS READRBIT # CLEAR READRFLG FOR R29 008889,000433: 05,3163 70077 MASK FLAGWRD3 008890,000434: 05,3164 54077 TS FLAGWRD3 008891,000435: 008892,000436: 05,3165 40077 CS FLAGWRD3 # DURING SOFTWARE RESTART, CLEAR TURNON, 008893,000437: 05,3166 74741 MASK NR29FBIT # REPOSITION, CDU ZERO AND REMODE BITS 008894,000438: 05,3167 00006 EXTEND # IN RADMODES, SINCE TASKS ASSOCIATED 008895,000439: 05,3170 13172 BZF +2 # WITH THESE BITS HAVE BEEN KILLED 008896,000440: 05,3171 34742 CAF BIT10 # ALSO IF R29 HAD BEEN REQUESTED. 008897,000441: 05,3172 63365 AD OCT32001 # (NOR29FLG = 0) CLEAR BIT 10 RADMODES 008898,000442: 05,3173 40000 COM # TO MAKE R29 FORGET IT HAD STARTED 008899,000443: 05,3174 70110 MASK RADMODES # DESIGNATING 008900,000444: 05,3175 54110 TS RADMODES 008901,000445: 05,3176 33367 CAF OCT27470 # DURING SOFTWARE RESTART, DO NOT DISTURB 008902,000446: 05,3177 00006 EXTEND # IMU FLAGS. (COARSE ALIGN ENABLE, ZERO 008903,000447: 05,3200 03012 WAND CHAN12 # IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL 008904,000448: # TRIM DRIVES. LEAVE RR LOCKON ENABLE 008905,000449: # ALONE. 008906,000450: 008907,000451: 05,3201 44750 CS NORRMBIT # ENABLE R25. 008908,000452: 05,3202 70101 MASK FLAGWRD5 008909,000453: 05,3203 54101 TS FLAGWRD5 008910,000454: 008911,000455: 05,3204 44741 CS R77FLBIT # CLEAR R77FLAG 008912,000456: 05,3205 70101 MASK FLAGWRD5 008913,000457: 05,3206 54101 TS FLAGWRD5 008914,000458: 05,3207 33370 CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DISTURB 008915,000459: 05,3210 00006 EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND 008916,000460: 05,3211 03013 WAND CHAN13 # ENABLE T6RUPT FLAG. 008917,000461: 008918,000462: 05,3212 34740 CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY 008919,000463: 05,3213 00006 EXTEND # RESUMES EXCEPT DURING P64) 008920,000464: 05,3214 05013 WOR CHAN13 008921,000465: 008922,000466: 05,3215 34746 CAF BIT6 # DURING SOFTWARE RESTART, DO NOT DISTURB 008923,000467: 05,3216 00006 EXTEND # GYRO ENABLE FLAG. 008924,000468: 05,3217 03014 WAND CHAN14 008925,000469: 008926,000470: 05,3220 E3,1400 EBANK= LST1 008927,000471: # Page 228 008928,000472: 05,3220 35007 CAF STARTEB 008929,000473: 05,3221 54003 TS EBANK # SET FOR E3 008930,000474: 008931,000475: 05,3222 34734 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS. 008932,000476: 05,3223 55407 TS LST1 +7 008933,000477: 05,3224 55406 TS LST1 +6 008934,000478: 05,3225 55405 TS LST1 +5 008935,000479: 05,3226 55404 TS LST1 +4 008936,000480: 05,3227 55403 TS LST1 +3 008937,000481: 05,3230 55402 TS LST1 +2 008938,000482: 05,3231 55401 TS LST1 +1 008939,000483: 05,3232 55400 TS LST1 008940,000484: 008941,000485: 05,3233 45236 CS ENDTASK 008942,000486: 05,3234 55410 TS LST2 008943,000487: 05,3235 55412 TS LST2 +2 008944,000488: 05,3236 55414 TS LST2 +4 008945,000489: 05,3237 55416 TS LST2 +6 008946,000490: 05,3240 55420 TS LST2 +8D 008947,000491: 05,3241 55422 TS LST2 +10D 008948,000492: 05,3242 55424 TS LST2 +12D 008949,000493: 05,3243 55426 TS LST2 +14D 008950,000494: 05,3244 55430 TS LST2 +16D 008951,000495: 05,3245 45237 CS ENDTASK +1 008952,000496: 05,3246 55411 TS LST2 +1 008953,000497: 05,3247 55413 TS LST2 +3 008954,000498: 05,3250 55415 TS LST2 +5 008955,000499: 05,3251 55417 TS LST2 +7 008956,000500: 05,3252 55421 TS LST2 +9D 008957,000501: 05,3253 55423 TS LST2 +11D 008958,000502: 05,3254 55425 TS LST2 +13D 008959,000503: 05,3255 55427 TS LST2 +15D 008960,000504: 05,3256 55431 TS LST2 +17D 008961,000505: 008962,000506: 05,3257 44755 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS 008963,000507: 05,3260 54167 TS PRIORITY # AVAILABLE. 008964,000508: 05,3261 54203 TS PRIORITY +12D 008965,000509: 05,3262 54217 TS PRIORITY +24D 008966,000510: 05,3263 54233 TS PRIORITY +36D 008967,000511: 05,3264 54247 TS PRIORITY +48D 008968,000512: 05,3265 54263 TS PRIORITY +60D 008969,000513: 05,3266 54277 TS PRIORITY +72D 008970,000514: 05,3267 54313 TS PRIORITY +84D 008971,000515: 008972,000516: 05,3270 55310 TS DSRUPTSW 008973,000517: 05,3271 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS. 008974,000518: 008975,000519: 05,3272 33364 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE. 008976,000520: 05,3273 54400 TS VAC1USE 008977,000521: 05,3274 63366 AD LTHVACA 008978,000522: # Page 229 008979,000523: 05,3275 54454 TS VAC2USE 008980,000524: 05,3276 63366 AD LTHVACA 008981,000525: 05,3277 54530 TS VAC3USE 008982,000526: 05,3300 63366 AD LTHVACA 008983,000527: 05,3301 54604 TS VAC4USE 008984,000528: 05,3302 63366 AD LTHVACA 008985,000529: 05,3303 54660 TS VAC5USE 008986,000530: 008987,000531: 05,3304 34363 CAF TEN 008988,000532: 05,3305 54154 DSPOFF TS MPAC # R1, R2, R3 008989,000533: 05,3306 44740 CS BIT12 008990,000534: 05,3307 50154 INDEX MPAC 008991,000535: 05,3310 55022 TS DSPTAB 008992,000536: 05,3311 10154 CCS MPAC 008993,000537: 05,3312 13305 TCF DSPOFF 008994,000538: 008995,000539: 05,3313 55323 TS DELAYLOC 008996,000540: 05,3314 55324 TS DELAYLOC +1 008997,000541: 05,3315 55325 TS DELAYLOC +2 008998,000542: 05,3316 55073 TS R1SAVE 008999,000543: 05,3317 54045 TS INLINK 009000,000544: 05,3320 54775 TS DSPCNT 009001,000545: 05,3321 55041 TS CADRSTOR 009002,000546: 05,3322 55012 TS REQRET 009003,000547: 05,3323 55014 TS CLPASS 009004,000548: 05,3324 55011 TS DSPLOCK 009005,000549: 05,3325 55017 TS MONSAVE # KILL MONITOR 009006,000550: 05,3326 55020 TS MONSAVE1 009007,000551: 05,3327 55000 TS VERBREG 009008,000552: 05,3330 55001 TS NOUNREG 009009,000553: 05,3331 55042 TS DSPLIST 009010,000554: 05,3332 55307 TS MARKSTAT 009011,000555: 05,3333 55043 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE 009012,000556: 05,3334 55301 TS IMUCADR 009013,000557: 05,3335 55302 TS OPTCADR 009014,000558: 05,3336 55303 TS RADCADR 009015,000559: 05,3337 55304 TS ATTCADR 009016,000560: 05,3340 55311 TS LGYRO 009017,000561: 05,3341 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS 009018,000562: 05,3342 34760 CAF NOUTCON 009019,000563: 05,3343 55015 TS NOUT 009020,000564: 009021,000565: 05,3344 44753 CS ONE 009022,000566: 05,3345 55077 TS SAMPLIM 009023,000567: 05,3346 34746 CAF BIT6 009024,000568: 05,3347 71300 MASK IMODES33 # LEAVE BIT 6 UNCHANGED 009025,000569: 05,3350 65026 AD IM33INIT # NO PIP OR TM FAILS. BIT6=0 IN THIS WORD. 009026,000570: 05,3351 55300 TS IMODES33 009027,000571: 009028,000572: 05,3352 33363 CAF LESCHK # SELF CHECK GO-TO REGISTER. 009029,000573: # Page 230 009030,000574: 05,3353 55361 TS SELFRET 009031,000575: 009032,000576: 05,3354 44360 CS VD1 009033,000577: 05,3355 54776 TS DSPCOUNT 009034,000578: 009035,000579: 05,3356 00002 TC Q 009036,000580: 05,3357 E6,1536 EBANK= AOSQ 009037,000581: 05,3357 02024 34066 IDLEADR 2CADR DAPIDLER 009038,000582: 009039,000583: 05,3361 00435 IFAILINH OCT 435 009040,000584: 05,3362 03522 LDNPHAS1 GENADR DNPHASE1 009041,000585: 05,3363 03363 LESCHK GENADR SELFCHK 009042,000586: 05,3364 00400 VAC1ADRC ADRES VAC1USE 009043,000587: 05,3365 32001 OCT32001 OCT 32001 009044,000588: 05,3366 00054 LTHVACA DEC 44 B-14 009045,000589: 009046,000590: 05,3367 27470 OCT27470 OCT 27470 009047,000591: 05,3370 74160 OCT74160 OCT 74160 009048,000592: 05,3371 30001 OCT30001 OCT 30001 009049,000593: 05,3372 5007 STARTEB EQUALS EBANK3 009050,000594: 05,3372 4756 NUMGRPS EQUALS FIVE 009051,000595: 05,3372 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE. 009052,000596: 05,3373 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW 009053,000597: 05,3374 37000 IM30INIR OCT 37000 009054,000598: 05,3375 5026 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS. 009055,000599: 05,3375 00450 9,6,4 OCT 450 009056,000600: 05,3376 00102 RMODINIT OCT 00102 009057,000601: 05,3377 00000 SWINIT OCT 0 009058,000602: 05,3400 00000 OCT 0 009059,000603: 05,3401 00000 OCT 0 009060,000604: 05,3402 02000 OCT 02000 # BIT 11 = NOR29FLG 009061,000605: 05,3403 00000 OCT 0 009062,000606: 05,3404 00000 OCT 0 009063,000607: 05,3405 00000 OCT 0 009064,000608: 05,3406 00100 OCT 00100 009065,000609: 009066,000610: 05,3407 00000 OCT 0 009067,000611: 05,3410 00000 OCT 0 009068,000612: 05,3411 00000 OCT 0 009069,000613: 05,3412 40000 OCT 40000 # BIT 15 = LRBYPASS. 009070,000614: 009071,000615: # Page 231 009072,000616: # PROGRAM NAME GOTOP00H ASSEMBLY SUNDANCE 009073,000617: # LOG SECTION FRESH START AND RESTART 009074,000618: 009075,000619: # FUNCTIONAL DESCRIPTION 009076,000620: 009077,000621: # FLASH V 38 ON DSKY MM CHANGE REQUEST 009078,000622: 009079,000623: # INPUT/OUTPUT INFORMATION 009080,000624: 009081,000625: # A. CALLING SEQUENCE TC GOTOP00H 009082,000626: # B. ERASABLE INITIALIZATION NONE 009083,000627: # C. OUTPUT FLASH V 37 ON DSKY 009084,000628: # D. DEBRIS L 009085,000629: 009086,000630: # PROGRAM ANALYSIS 009087,000631: 009088,000632: # A. SUBROUTINES CALLED PRIODSPR, LINUS 009089,000633: # B. NORMAL EXIT TCF ENDOFJOB 009090,000634: # C. ALARM AND ABORT EXITS NONE 009091,000635: 009092,000636: 6001 BLOCK 03 009093,000637: 6000 SETLOC FFTAG5 009094,000638: 6000 BANK 009095,000639: 009096,000640: 6001 COUNT* $$/P00 009097,000641: 6001 34764 GOTOP00H CAF OCT33 # 4.33 SPOT FOR GOP00FIX 009098,000642: 6002 54001 TS L 009099,000643: 6003 40000 COM 009100,000644: 6004 52760 DXCH -PHASE4 009101,000645: 009102,000646: 6005 04635 TC POSTJUMP 009103,000647: 6006 10024 CADR GOP00FIX 009104,000648: 6007 00024 OCT24 MM 20 B-14 009105,000649: 6010 00031 OCT31 MM 25 B-14 009106,000650: 009107,000651: 20,2004 BANK 20 009108,000652: 04,2000 SETLOC VERB37 009109,000653: 04,2000 BANK 009110,000654: 009111,000655: 04,2024 COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4. 009112,000656: 04,2024 05516 GOP00FIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE 009113,000657: 04,2025 00311 ADRES XOVINFLG 009114,000658: 009115,000659: 04,2026 05516 TC DOWNFLAG # INSURE THAT ULLAGE IS OFF 009116,000660: 04,2027 00314 ADRES ULLAGFLG 009117,000661: # Page 232 009118,000662: 04,2030 05476 TC CLEARMRK +2 # RELEASE MARK DISPLAY SYSTEM. 009119,000663: 04,2031 32037 CAF V37N99 009120,000664: 04,2032 04616 TC BANKCALL 009121,000665: 04,2033 20477 CADR GOFLASH 009122,000666: 04,2034 12031 TCF -3 009123,000667: 04,2035 12031 TCF -4 009124,000668: 04,2036 12031 TCF -5 009125,000669: 009126,000670: 04,2037 11343 V37N99 VN 3799 009127,000671: 009128,000672: # Page 233 009129,000673: # PROGRAM NAME V37 ASSEMBLY SUNDANCE 009130,000674: 009131,000675: # LOG SECTION FRESH START AND RESTART 009132,000676: 009133,000677: # FUNCTIONAL DESCRIPTION 009134,000678: 009135,000679: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED. 009136,000680: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS 009137,000681: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUE. 009138,000682: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING. 009139,000683: # 4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION. 009140,000684: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST. 009141,000685: # 6. TRACK AND UPDATE FLAGS ARE SET TO ZERO. 009142,000686: # 7. DISPLAY SYSTEM IS RELEASED. 009143,000687: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES. 009144,000688: # A. PROGRAM SELECTED IS P00 009145,000689: # 1. RENDEZVOUS AND P25 FLAGS ARE RESET. (KILL P20 AND P25) 009146,000690: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2. 009147,000691: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG). 009148,000692: # 4. SUPERBANK 3 IS SELECTED. 009149,000693: # 5. NODOFLAG IS RESET. 009150,000694: # 6. ALL RESTART GROUPS EXCEPT GROUP2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2) 009151,000695: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE 009152,000696: # INITIATED. 009153,000697: # B. PROGRAM SELECTES IS P20 OR P25. 009154,000698: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM. THE PROGRAM IS RE-INITIALIZED 009155,000699: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED. 009156,000700: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST- 009157,000701: # ED MAJOR MODE HAS BEEN RUNNING THE BACKGROUND, 009158,000702: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING 009159,000703: # P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS MM IS SET. 009160,000704: # 3. CONTROL IS TRANSFERRED TO GOPROG2. 009161,000705: # C. PROGRAM SELECTED IS NEITHER P00, P20, NOR P25 009162,000706: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4 009163,000707: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART 009164,000708: # GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP2 IS NOT CLEARED, ALLOWING THESE PROGRAMS 009165,000709: # TO CONTINUE. 009166,000710: 009167,000711: # INPUT/OUTPUT INFORMATION 009168,000712: 009169,000713: # A. CALLING SEQUENCE 009170,000714: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE. 009171,000715: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG. 009172,000716: # MMCHANG EXECUTES A `TC POSTJUMP', CADR V37. 009173,000717: 009174,000718: # B. ERASABLE INITIALIZATION NONE 009175,000719: 009176,000720: # C. OUTPUT 009177,000721: # Page 234 009178,000722: # MAJOR MOD CHANGE 009179,000723: 009180,000724: # D. DEBRIS 009181,000725: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1, 009182,000726: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4 009183,000727: 009184,000728: # PROGRAM ANALYSIS 009185,000729: 009186,000730: # A. SUBROUTINES CALLED 009187,000731: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW, 009188,000732: # DSPMM 009189,000733: 009190,000734: # B. NORMAL EXIT TC ENDOFJOB 009191,000735: 009192,000736: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED) 009193,000737: 009194,000738: 04,2040 54774 V37 TS MMNUMBER # SAVE MAJOR MODE 009195,000739: 04,2041 34355 CAF PRIO30 # RESTART AT PINBALL PRIORITY 009196,000740: 04,2042 54366 TS RESTREG 009197,000741: 009198,000742: 04,2043 31277 CA IMODES30 # IS IMU BEING INITIALIZED 009199,000743: 04,2044 74746 MASK BIT6 009200,000744: 04,2045 10000 CCS A 009201,000745: 04,2046 12065 TCF CANTROD 009202,000746: 009203,000747: 04,2047 40774 CS MMNUMBER # IS P70 REQUESTED? 009204,000748: 04,2050 62403 AD DEC70 009205,000749: 04,2051 00006 EXTEND 009206,000750: 04,2052 12376 BZF SETUP70 # YES 009207,000751: 04,2053 64753 AD ONE # IS P71 REQUESTED? 009208,000752: 04,2054 00006 EXTEND 009209,000753: 04,2055 12375 BZF SETUP71 # YES 009210,000754: 009211,000755: 04,2056 30774 CA MMNUMBER # IS NEW REQUEST P00 009212,000756: 04,2057 00006 EXTEND 009213,000757: 04,2060 12107 BZF ISSERVON # YES, CHECK SERVICER STATUS 009214,000758: 009215,000759: 04,2061 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET 009216,000760: 04,2062 74753 MASK NODOBIT 009217,000761: 04,2063 10000 CCS A 009218,000762: 04,2064 12072 TCF CHECKTAB # NO 009219,000763: 04,2065 05567 CANTROD TC ALARM 009220,000764: 04,2066 01520 OCT 1520 009221,000765: 009222,000766: 04,2067 04457 V37BAD TC RELDSP # RELEASED DISPLAY FROM ASTRONAUT 009223,000767: 009224,000768: 04,2070 04635 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE 009225,000769: 04,2071 21051 CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ. 009226,000770: 009227,000771: 04,2072 32470 CHECKTAB CA NOV37MM # INDEX FOR MM TABLES. 009228,000772: 009229,000773: # Page 235 009230,000774: 04,2073 54155 AGAINMM TS MPAC +1 009231,000775: 04,2074 50155 NDX MPAC +1 009232,000776: 04,2075 32437 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR 009233,000777: 04,2076 76077 MASK LOW7 009234,000778: 04,2077 40000 COM 009235,000779: 04,2100 60774 AD MMNUMBER 009236,000780: 04,2101 10000 CCS A 009237,000781: 04,2102 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST 009238,000782: 04,2103 12073 TCF AGAINMM # YES, GET NEXT ONE 009239,000783: 04,2104 12326 TCF V37NONO # LAST TIME OR PASSED MM 009240,000784: 009241,000785: 04,2105 30155 CA MPAC +1 009242,000786: 04,2106 54773 TS MINDEX # SAVE INDEX FOR LATER 009243,000787: 009244,000788: 04,2107 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING 009245,000789: 04,2110 74746 MASK V37FLBIT 009246,000790: 04,2111 10000 CCS A 009247,000791: 04,2112 12132 TCF CANV37 009248,000792: 009249,000793: 04,2113 05516 TC DOWNFLAG # YES, TURN OFF THE AVERAGE FLAG AND 009250,000794: 04,2114 00163 ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO V37RET 009251,000795: 009252,000796: 04,2115 15155 TCF ENDOFJOB 009253,000797: 009254,000798: 04,2116 40074 V37RET CS FLAGWRD0 # IS P20 PR 022 RUNNING? 009255,000799: 04,2117 74745 MASK RNDVZBIT 009256,000800: 04,2120 10000 CCS A 009257,000801: 04,2121 12123 TCF +2 # NO. CHECK FOR P25. 009258,000802: 04,2122 12130 TCF 2.7SPT # YES. DO 2.7SPOT 009259,000803: 04,2123 40074 CS FLAGWRD0 # IS P25 RUNNING? 009260,000804: 04,2124 74743 MASK P25FLBIT 009261,000805: 04,2125 10000 CCS A 009262,000806: 04,2126 32372 2.0SPT CA OCT37667 009263,000807: 04,2127 64747 2.11SPT AD BIT5 009264,000808: 04,2130 62373 2.7SPT AD OCT40072 009265,000809: 04,2131 05357 TC PHSCHNGA 009266,000810: 009267,000811: 04,2132 34755 CANV37 CAF ZERO 009268,000812: 04,2133 00006 EXTEND 009269,000813: 04,2134 01007 WRITE SUPERBNK 009270,000814: 009271,000815: 04,2135 32371 CAF R00AD 009272,000816: 04,2136 54374 TS TEMPFLSH 009273,000817: 009274,000818: 04,2137 05353 TC PHASCHNG 009275,000819: 04,2140 00014 OCT 14 009276,000820: 009277,000821: 04,2141 06042 ROC TC INTPRET 009278,000822: 009279,000823: 04,2142 77624 CALL # WAIT FOR INTEGRATION TO FINISH 009280,000824: # Page 236 009281,000825: 04,2143 27410 INTSTALL 009282,000826: 04,2144 77776 DUMMYAD EXIT 009283,000827: 009284,000828: 04,2145 05516 TC DOWNFLAG 009285,000829: 04,2146 00124 ADRES 3AXISFLG # RESET 3-AXIT FLAG 009286,000830: 009287,000831: 04,2147 05516 TC DOWNFLAG 009288,000832: 04,2150 00055 ADRES P00HFLAG 009289,000833: 009290,000834: 04,2151 34735 CAF LRBYBIT # CLEAN UP THE R12 FLAGWORD. 009291,000835: 04,2152 54107 TS FLGWRD11 009292,000836: 009293,000837: 04,2153 05516 TC DOWNFLAG # INSURE THAT THE R04FLAG IS CLEAR. 009294,000838: 04,2154 00063 ADRES R04FLAG 009295,000839: 009296,000840: 04,2155 05516 TC DOWNFLAG 009297,000841: 04,2156 00056 ADRES GLOKFAIL # FLAGWORD 3 BIT 14 009298,000842: 009299,000843: 04,2157 05516 TC DOWNFLAG # INSURE MUNFLAG IS CLEAR. 009300,000844: 04,2160 00141 ADRES MUNFLAG 009301,000845: 009302,000846: 04,2161 05516 TC DOWNFLAG # RESET ABORT TARGETING FLAG (USE 009303,000847: 04,2162 00217 ADRES ABTTGFLG # PARAMETERS J1 AND KU) 009304,000848: 009305,000849: 04,2163 05516 TC DOWNFLAG # ALLOW X-AXIS OVERRIDE. 009306,000850: 04,2164 00311 ADRES XOVINFLG 009307,000851: 04,2165 10774 CCS MMNUMBER # IS THIS A P00H REQUEST 009308,000852: 04,2166 12314 TCF NOUVEAU # NO, PICK UP NEW PROGRAM 009309,000853: 009310,000854: 04,2167 04457 P00H TC RELDSP # RELEASE DISPLAY SYSTEM 009311,000855: 009312,000856: 04,2170 35017 CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR 009313,000857: 04,2171 55055 TS PHSPRDT2 # P00 INTEGRATION. 009314,000858: 009315,000859: 04,2172 06011 TC CLRADMOD # CLRADMOD DOES NA INHINT. 009316,000860: 009317,000861: 04,2173 44753 CS NODOBIT # TURN OFF NODOFLAG. 009318,000862: 04,2174 70076 MASK FLAGWRD2 009319,000863: 04,2175 54076 TS FLAGWRD2 009320,000864: 009321,000865: 04,2176 34756 CA FIVE # SET RESTART FOR STATINT 009322,000866: 04,2177 54001 TS L 009323,000867: 04,2200 40000 COM 009324,000868: 04,2201 52754 DXCH -PHASE2 009325,000869: 009326,000870: 04,2202 42374 CS OCT700 # TURN OFF P20, P25, IMU IN USE FLAG 009327,000871: 04,2203 70074 MASK FLAGWRD0 009328,000872: 04,2204 54074 TS FLAGWRD0 # REMDFLG 009329,000873: 009330,000874: 04,2205 34755 CAF DNLADP00 009331,000875: # Page 237 009332,000876: 04,2206 54333 SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE 009333,000877: 04,2207 55321 TS AGSWORD # (CURRENT LIST WILL BE COMPLETED BEFORE 009334,000878: # NEW ONE IS STARTED) 009335,000879: 009336,000880: 04,2210 04674 TC IBNKCALL 009337,000881: 04,2211 75561 CADR ENGINOF1 009338,000882: 009339,000883: 04,2212 04674 TC IBNKCALL # INSLURE ALLCOAST. 009340,000884: 04,2213 40205 CADR ALLCOAST # DOES A RESTORDB. 009341,000885: 009342,000886: 04,2214 44775 CS OCT120 # TURN OFF TRACK, UPDATE FLAGS 009343,000887: 04,2215 55071 TS EBANKTEM 009344,000888: 04,2216 70075 MASK FLAGWRD1 009345,000889: 04,2217 54075 TS FLAGWRD1 009346,000890: 009347,000891: 04,2220 04674 TC IBNKCALL # KILL GROUPS 1,3,5,6 009348,000892: 04,2221 12650 CADR V37KLEAN 009349,000893: 009350,000894: 04,2222 10774 CCS MMNUMBER # IS IT P00H 009351,000895: 04,2223 12232 TCF RENDV00 # NO 009352,000896: 04,2224 04674 GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4 009353,000897: 04,2225 12645 CADR P00KLEAN 009354,000898: 009355,000899: 04,2226 30774 CA MMNUMBER 009356,000900: 04,2227 55010 TS MODREG 009357,000901: 009358,000902: 04,2230 04635 GOGOPROG TC POSTJUMP 009359,000903: 04,2231 12766 CADR GOPROG2 009360,000904: 009361,000905: 04,2232 41010 RENDV00 CS MODREG # IS CURRENT PROGRAM 22 009362,000906: 04,2233 62332 AD OCT26 009363,000907: 04,2234 00006 EXTEND 009364,000908: 04,2235 12254 BZF RESET22 # YES -- CLEAR RENDEZVOUS FLAG 009365,000909: 009366,000910: 04,2236 40774 CS MMNUMBER # IS NE PROGRAM P22 009367,000911: 04,2237 62332 AD OCT26 009368,000912: 04,2240 00006 EXTEND 009369,000913: 04,2241 12254 BZF RESET22 009370,000914: 009371,000915: 04,2242 67751 AD NEG2 # IS NEW PROGRAM = P20 OR P25 009372,000916: 04,2243 00006 EXTEND 009373,000917: 04,2244 12266 BZF RENDN00 # YES 009374,000918: 04,2245 64756 AD FIVE # 25 009375,000919: 04,2246 00006 EXTEND 009376,000920: 04,2247 12266 BZF RENDN00 # YES 009377,000921: 009378,000922: 04,2250 32330 CA OCT500 # NO, IS EITHER P20 OR P25 RUNNING 009379,000923: 04,2251 70074 MASK FLAGWRD0 009380,000924: 04,2252 10000 CCS A 009381,000925: # Page 238 009382,000926: 04,2253 12263 TCF P00FIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25 009383,000927: 009384,000928: 04,2254 42374 RESET22 CS OCT700 # CLEAR RENDEZVOUS, P25 009385,000929: 04,2255 70074 MASK FLAGWRD0 # AND IMU IN USE FLAGS 009386,000930: 04,2256 54074 TS FLAGWRD0 009387,000931: 04,2257 06011 TC CLRADMOD 009388,000932: 009389,000933: 04,2260 00006 KILL2 EXTEND # NO, KILL 2 009390,000934: 04,2261 34755 DCA NEG0 009391,000935: 04,2262 52754 DXCH -PHASE2 009392,000936: 009393,000937: 04,2263 32370 P00FIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ 009394,000938: 04,2264 54374 TS TEMPFLSH 009395,000939: 009396,000940: 04,2265 12230 TCF GOGOPROG 009397,000941: 009398,000942: 04,2266 41010 RENDN00 CS MODREG 009399,000943: 04,2267 66007 AD OCT24 009400,000944: 04,2270 00006 EXTEND 009401,000945: 04,2271 12260 BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 -- 009402,000946: 009403,000947: 04,2272 64756 AD FIVE 009404,000948: 04,2273 00006 EXTEND 009405,000949: 04,2274 12260 BZF KILL2 009406,000950: 009407,000951: 04,2275 32330 CA OCT500 009408,000952: 04,2276 70074 MASK FLAGWRD0 009409,000953: 04,2277 60774 AD MMNUMBER 009410,000954: 04,2300 40000 COM 009411,000955: 04,2301 62333 AD P20REG # IS IT 20 AND IS RENDEZVOUS FLAG ON 009412,000956: 04,2302 00006 EXTEND 009413,000957: 04,2303 12310 BZF STATQUO # YES 009414,000958: 04,2304 62331 AD OCT305 # IS IT 25 AND IS P25 BIT ON 009415,000959: 04,2305 00006 EXTEND 009416,000960: 04,2306 12310 BZF STATQUO # YES, LEAVE AS IS 009417,000961: 04,2307 12260 TCF KILL2 009418,000962: 009419,000963: 04,2310 40075 STATQUO CS FLAGWRD1 # SET TRACKFLAG 009420,000964: 04,2311 74775 MASK OCT120 # UPDATE FLAG 009421,000965: 04,2312 26075 ADS FLAGWRD1 009422,000966: 009423,000967: 04,2313 12224 TCF GOMOD 009424,000968: 009425,000969: 04,2314 32330 NOUVEAU CAF OCT500 # IS P20 OR P25 FLAG SET 009426,000970: 04,2315 70074 MASK FLAGWRD0 009427,000971: 04,2316 10000 CCS A 009428,000972: 04,2317 12322 TCF +3 # YES 009429,000973: 04,2320 05516 TC DOWNFLAG # NO, RESET IMUINUSE FLAG 009430,000974: 04,2321 00007 ADRES IMUSE 009431,000975: # Page 239 009432,000976: 04,2322 50773 INDEX MINDEX 009433,000977: 04,2323 32471 CAF DNLADMM1 # OBTAIN APPROPIRATE DOWNLIST ADDRESS 009434,000978: 009435,000979: 04,2324 00004 INHINT 009436,000980: 04,2325 12206 TCF SEUDOP00 009437,000981: 009438,000982: 04,2326 04364 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST 009439,000983: 009440,000984: 04,2327 12067 TCF V37BAD 009441,000985: 009442,000986: 04,2330 4750 OCT00010 EQUALS BIT4 009443,000987: 04,2330 00500 OCT500 OCT 500 # BITS 7 AND 9 009444,000988: 04,2331 00305 OCT305 OCT 305 009445,000989: 04,2332 00026 OCT26 OCT 26 009446,000990: 04,2333 00124 P20REG OCT 124 009447,000991: 009448,000992: 04,2334 00004 V37XEQ INHINT 009449,000993: 04,2335 50773 INDEX MINDEX 009450,000994: 04,2336 32437 CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM 009451,000995: 04,2337 55057 TS MMTEMP 009452,000996: 04,2340 54020 TS CYR # SHIFT RIGHT TO BITS 14-10 009453,000997: 009454,000998: 04,2341 30020 CA CYR 009455,000999: 04,2342 77730 MASK PRIO37 009456,001000: 04,2343 55061 TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY 009457,001001: 04,2344 54063 TS NEWPRIO # STORE PRIO FOR SPVAC 009458,001002: 009459,001003: 04,2345 31057 CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP. 009460,001004: 04,2346 00006 EXTEND 009461,001005: 04,2347 74744 MP BIT8 009462,001006: 04,2350 74757 MASK LOW3 009463,001007: 04,2351 54001 TS L 009464,001008: 009465,001009: 04,2352 50773 INDEX MINDEX 009466,001010: 04,2353 32406 CAF FCADRMM1 009467,001011: 04,2354 55060 TS BASETEMP # MAKE BBCON BY ADDING HI5 OR FCADR 009468,001012: 04,2355 74350 MASK HI5 009469,001013: 04,2356 26001 ADS L 009470,001014: 009471,001015: 04,2357 31060 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR. 009472,001016: 04,2360 75012 MASK LOW10 009473,001017: 04,2361 64741 AD BIT11 009474,001018: 009475,001019: 04,2362 05116 TC SPVAC 009476,001020: 009477,001021: 04,2363 31057 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE 009478,001022: 04,2364 76077 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF 009479,001023: 04,2365 05314 TC NEWMODEA # PHSPRDT1) 009480,001024: 009481,001025: 04,2366 04457 TC RELDSP 009482,001026: # Page 240 009483,001027: 04,2367 05155 TC ENDOFJOB # AND EXIT 009484,001028: 009485,001029: 04,2370 5650 NEG7 EQUALS OCT77770 009486,001030: 009487,001031: 04,2370 1057 MMTEMP EQUALS PHSPRDT3 009488,001032: 04,2370 1060 BASETEMP EQUALS TBASE4 009489,001033: 04,2370 10337 V37QCAD CADR V37XEQ +3 009490,001034: 04,2371 10144 R00AD CADR DUMMYAD 009491,001035: 04,2372 37667 OCT37667 OCT 37667 009492,001036: 04,2373 40072 OCT40072 OCT 40072 009493,001037: 04,2374 00700 OCT700 OCT 700 009494,001038: 009495,001039: 04,2375 36250 SETUP71 CAF THREE 009496,001040: 04,2376 54002 SETUP70 TS Q 009497,001041: 04,2377 00006 EXTEND 009498,001042: 04,2400 32405 DCA P70CADR 009499,001043: 04,2401 60002 AD Q 009500,001044: 04,2402 52006 DTCB 009501,001045: 009502,001046: 04,2403 00106 DEC70 DEC 70 B-14 009503,001047: 04,2404 E7,1520 EBANK= R 009504,001048: 04,2404 02067 42067 P70CADR 2CADR P70 009505,001049: 009506,001050: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ETRY FOR EACH 009507,001051: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT 009508,001052: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST, 009509,001053: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE. 009510,001054: 009511,001055: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF 009512,001056: # THE MAJOR MODE. FOR EXAMPLE, 009513,001057: 009514,001058: # FCADRMM1 FCADR P79 # START OF P 79 009515,001059: # FCADR PROG18 # START OF P 18 009516,001060: # FCADR P01 # START OF P 01 009517,001061: 009518,001062: # NOTE: THE FIRST ENTRY MUST BE LABELED FCADRMM1. 009519,001063: # ----- 009520,001064: 009521,001065: 04,2406 26207 FCADRMM1 FCADR P76 009522,001066: 04,2407 72641 FCADR P75 009523,001067: 04,2410 72457 FCADR P74 009524,001068: 04,2411 72225 FCADR P73 009525,001069: 04,2412 72036 FCADR P72 009526,001070: 04,2413 71271 FCADR LANDJUNK 009527,001071: 04,2414 65000 FCADR P63LM 009528,001072: 04,2415 33277 FCADR P57 009529,001073: 04,2416 32050 FCADR PROG52 009530,001074: 04,2417 31421 FCADR P51 009531,001075: 04,2420 75442 FCADR P47LM 009532,001076: # Page 241 009533,001077: 04,2421 75414 FCADR P42LM 009534,001078: 04,2422 75276 FCADR P41LM 009535,001079: 04,2423 75153 FCADR P40LM 009536,001080: 04,2424 72635 FCADR P35 009537,001081: 04,2425 72455 FCADR P34 009538,001082: 04,2426 72223 FCADR P33 009539,001083: 04,2427 72034 FCADR P32 009540,001084: 04,2430 72000 FCADR P30 009541,001085: 04,2431 50400 FCADR PROG25 009542,001086: 04,2432 50000 FCADR PROG22 009543,001087: 04,2433 51506 FCADR PROG21 009544,001088: 04,2434 50000 FCADR PROG20 009545,001089: 04,2435 60061 FCADR P12LM 009546,001090: 04,2436 77652 FCADR P06 009547,001091: 009548,001092: # THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY 009549,001093: # INFORMATION, IT IS IN THE FOLLOWING FORM, 009550,001094: 009551,001095: # PPP PPE EEM MMM MMM 009552,001096: 009553,001097: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER 009554,001098: # 3 E BITS CONTAIN THE E-BANK NUMBER 009555,001099: # 5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS 009556,001100: # TO BE STARTED 009557,001101: 009558,001102: # FOR EXAMPLE, 009559,001103: 009560,001104: # PREMM1 OCT 67213 # PRIORITY 33 009561,001105: # # E-BANK 5 009562,001106: # # MAJOR MODE 11 009563,001107: # OCT 25437 # PRIORITY 12 009564,001108: # # E-BANK 6 009565,001109: # # MAJOR MODE 31 009566,001110: 009567,001111: # NOTE: THE FIRST ENTRY MUST BE LABELED PREMM1 009568,001112: 009569,001113: 04,2437 27714 PREMM1 OCT 27714 # MM 76 EBANK 7 PRIO 13 009570,001114: 04,2440 27713 OCT 27713 # MM 75 EBANK 7 PRIO 13 009571,001115: 04,2441 27712 OCT 27712 # MM 74 EBANK 7 PRIO 13 009572,001116: 04,2442 27711 OCT 27711 # MM 73 EBANK 7 PRIO 13 009573,001117: 04,2443 27710 OCT 27710 # MM 72 EBANK 7 PRIO 13 009574,001118: 04,2444 27704 OCT 27704 # MM 68 EBANK 7 PRIO 13 009575,001119: 04,2445 27677 OCT 27677 # MM 63 EBANK 7 PRIO 13 009576,001120: 04,2446 27271 OCT 27271 # MM 57 EBANK 5 PRIO 13 009577,001121: 04,2447 27264 OCT 27264 # MM 52 EBANK 5 PRIO 13 009578,001122: 04,2450 27263 OCT 27263 # MM 51 EBANK 5 PRIO 13 009579,001123: 04,2451 27657 OCT 27657 # MM 47 EBANK 7 PRIO 13 009580,001124: 04,2452 27652 OCT 27652 # MM 42 EBANK 7 PRIO 13 009581,001125: 04,2453 27651 OCT 27651 # MM 41 EBANK 7 PRIO 13 009582,001126: 04,2454 27650 OCT 27650 # MM 40 EBANK 7 PRIO 13 009583,001127: 04,2455 27643 OCT 27643 # MM 35 EBANK 7 PRIO 13 009584,001128: 04,2456 27642 OCT 27642 # MM 34 EBANK 7 PRIO 13 009585,001129: # Page 242 009586,001130: 04,2457 27641 OCT 27641 # MM 33 EBANK 7 PRIO 13 009587,001131: 04,2460 27640 OCT 27640 # MM 32 EBANK 7 PRIO 13 009588,001132: 04,2461 27636 OCT 27636 # MM 30 EBANK 7 PRIO 13 009589,001133: 04,2462 27631 OCT 27631 # MM 25 EBANK 7 PRIO 13 009590,001134: 04,2463 27626 OCT 27626 # MM 22 EBANK 7 PRIO 13 009591,001135: 04,2464 27625 OCT 27625 # MM 21 EBANK 7 PRIO 13 009592,001136: 04,2465 27624 OCT 27624 # MM 20 EBANK 7 PRIO 13 009593,001137: 04,2466 27614 OCT 27614 # MM 12 EBANK 7 PRIO 13 009594,001138: 04,2467 27006 OCT 27006 # MM 06 EBANK 4 PRIO 13 009595,001139: 009596,001140: # NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF 009597,001141: # ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00) 009598,001142: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE) 009599,001143: 009600,001144: 04,2470 00030 NOV37MM DEC 24 B-14 # MM'S -1 009601,001145: 009602,001146: 04,2471 00002 DNLADMM1 ADRES RENDEZVU # P76 009603,001147: 04,2472 00002 ADRES RENDEZVU # P75 009604,001148: 04,2473 00002 ADRES RENDEZVU # P74 009605,001149: 04,2474 00002 ADRES RENDEZVU # P73 009606,001150: 04,2475 00002 ADRES RENDEZVU # P72 009607,001151: 04,2476 00004 ADRES DESASCNT # P68 009608,001152: 04,2477 00004 ADRES DESASCNT # P63 009609,001153: 04,2500 00005 ADRES LUNRSALN # P57 009610,001154: 04,2501 00000 ADRES COSTALIN # P52 009611,001155: 04,2502 00000 ADRES COSTALIN # P51 009612,001156: 04,2503 00003 ADRES ORBMANUV # P47 009613,001157: 04,2504 00003 ADRES ORBMANUV # P42 009614,001158: 04,2505 00003 ADRES ORBMANUV # P41 009615,001159: 04,2506 00003 ADRES ORBMANUV # P40 009616,001160: 04,2507 00002 ADRES RENDEZVU # P35 009617,001161: 04,2510 00002 ADRES RENDEZVU # P34 009618,001162: 04,2511 00002 ADRES RENDEZVU # P33 009619,001163: 04,2512 00002 ADRES RENDEZVU # P32 009620,001164: 04,2513 00002 ADRES RENDEZVU # P30 009621,001165: 04,2514 00002 ADRES RENDEZVU # P25 009622,001166: 04,2515 00005 ADRES LUNRSALN # P22 009623,001167: 04,2516 00002 ADRES RENDEZVU # P21 009624,001168: 04,2517 00002 ADRES RENDEZVU # P20 009625,001169: 04,2520 00004 ADRES DESASCNT # P12 009626,001170: 04,2521 00000 ADRES COSTALIN # P06 009627,001171: 009628,001172: 04,2522 4755 DNLADP00 = ZERO 009629,001173: 04,2522 COSTALIN = 0 009630,001174: 04,2522 AGSUPDAT = 1 009631,001175: 04,2522 RENDEZVU = 2 009632,001176: 04,2522 ORBMANUV = 3 009633,001177: 04,2522 DESASCNT = 4 009634,001178: 04,2522 LUNRSALN = 5 009635,001179: 009636,001180: 13,2026 BANK 13 009637,001181: 13,2000 SETLOC INTINIT 009638,001182: 13,2000 BANK 009639,001183: 009640,001184: # Page 243 009641,001185: 13,2026 COUNT* $$/INTIN 009642,001186: 009643,001187: 13,2026 E3,1554 EBANK= RRECTCSM 009644,001188: 009645,001189: # THIS ROUTINE DOES THE P00 INTEGRATION 009646,001190: 009647,001191: 13,2026 43014 STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR 009648,001192: 13,2027 01474 VINTFLAG 009649,001193: 13,2030 04347 SURFFLAG # ALSO 6X6 W-MATRIX IF LM ON LUNAR 009650,001194: 13,2031 26036 DOINT # SURFACE AND W-MATRIX VALID 009651,001195: 13,2032 43014 BOF SET # FOR RENDEZVOUS NAVIGATION. 009652,001196: 13,2033 02756 RENDWFLG 009653,001197: 13,2034 26036 DOINT 009654,001198: 13,2035 01476 DIM0FLAG 009655,001199: 13,2036 45014 DOINT CLEAR CALL 009656,001200: 13,2037 01667 PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION 009657,001201: 13,2040 27133 INTEGRV # WHEN MODREG = 0 009658,001202: 009659,001203: 13,2041 71214 BON DLOAD 009660,001204: 13,2042 04307 SURFFLAG 009661,001205: 13,2043 26063 NO-INT 009662,001206: 13,2044 01571 TETCSM 009663,001207: 13,2045 34041 STCALL TDEC1 009664,001208: 13,2046 27410 INTSTALL 009665,001209: 13,2047 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR 009666,001210: 13,2050 01674 VINTFLAG 009667,001211: 13,2051 26643 SETIFLGS 009668,001212: 13,2052 77614 BOF # ALSO 9X9 W-MATRIX IF W IS VALID 009669,001213: 13,2053 02756 RENDWFLG 009670,001214: 13,2054 26060 DOINT2 009671,001215: 13,2055 43014 SET SET 009672,001216: 13,2056 01476 DIM0FLAG 009673,001217: 13,2057 01475 D6OR9FLG 009674,001218: 13,2060 45014 DOINT2 SET CALL 009675,001219: 13,2061 01467 PRECIFLG # DISENGAGE 4 TIME STEP LOGIC IN INTEG. 009676,001220: 13,2062 27133 INTEGRV 009677,001221: 13,2063 77614 NO-INT CLRGO 009678,001222: 13,2064 01236 NODOFLAG 009679,001223: 13,2065 26631 ENDINT 009680,001224: 009681,001225: # THISVINT IS CALLED BY MIDTOAV1 AND 2 009682,001226: 009683,001227: 13,2066 43414 THISVINT CLEAR RVQ 009684,001228: 13,2067 01674 VINTFLAG 009685,001229: 009686,001230: End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc