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