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