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