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