Source Code

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