Source Code
![]() |
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
009552,000002: ## Copyright: Public domain.
009553,000003: ## Filename: FRESH_START_AND_RESTART.agc
009554,000004: ## Purpose: A section of Luminary revision 210.
009555,000005: ## It is part of the source code for the Lunar Module's (LM)
009556,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
009557,000007: ## This file is intended to be a faithful transcription, except
009558,000008: ## that the code format has been changed to conform to the
009559,000009: ## requirements of the yaYUL assembler rather than the
009560,000010: ## original YUL assembler.
009561,000011: ## Reference: pp. 222-248
009562,000012: ## Assembler: yaYUL
009563,000013: ## Contact: Ron Burkey <info@sandroid.org>.
009564,000014: ## Website: www.ibiblio.org/apollo/index.html
009565,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
009566,000016: ## 2016-11-22 HG Transcribed
009567,000017: ## 2016-12-07 HG fix P00 -> POO
009568,000018: ## Change DNLADPOO -> DNLADP00
009569,000019: ## COUNT* $$/POO -> COUNT* $$/P00
009570,000020: ## R00 -> ROO
009571,000021: ## R00AD -> ROOAD
009572,000022: ## RENDN00 -> RENDNOO
009573,000023: ## change POO -> P00 in some comments
009574,000024: ## 2016-12-11 HG Fix operator CA BANKCALL -> TC BANKCALL
009575,000025: ## 2016-12-23 RSB Proofed comment text with octopus/ProoferComments
009576,000026: ## and fixed all errors found.
009577,000027: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
009578,000028: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
009579,000029: ## side-by-side diff of Luminary 69/99/116/131/210.
009580,000030:
![]() |
Page 222 |
009582,000032: 10,2000 BANK 10
009583,000033: 05,2000 SETLOC FRANDRES
009584,000034: 05,2000 BANK
009585,000035:
009586,000036: 05,2454 E3,1400 EBANK= LST1
009587,000037:
009588,000038: 05,2454 COUNT* $$/START # FRESH AND RESTART
009589,000039: 05,2454 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
009590,000040: 05,2455 03107 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
009591,000041:
009592,000042: 05,2456 12463 STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION
009593,000043: 05,2457 34727 STARTSIM CAF BIT14
009594,000044: 05,2460 05076 TC FINDVAC
009595,000045: 05,2461 77777 SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF
009596,000046: 05,2462 77777 OCT 77777 # SIMULATION START ADDRESS.
009597,000047:
009598,000048: 05,2463 31035 SKIPSIM CA DSPTAB +11D # TURN OFF ALL DSPTAB +11D LAMPS
009599,000049: 05,2464 74762 MASK BITS4&6 # EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
009600,000050: 05,2465 64726 AD BIT15 # REQUESTED FRESH START.
009601,000051: 05,2466 55035 TS DSPTAB +11D
009602,000052:
009603,000053: 05,2467 34746 CA ZERO
009604,000054: 05,2470 55365 TS ERCOUNT
009605,000055: 05,2471 54375 TS FAILREG
009606,000056: 05,2472 54376 TS FAILREG +1
009607,000057: 05,2473 54377 TS FAILREG +2
009608,000058: 05,2474 54320 TS REDOCTR
009609,000059:
009610,000060: 05,2475 00006 EXTEND
009611,000061: 05,2476 01077 WRITE CHAN77 # ZERO CHANNEL 77
009612,000062:
009613,000063: 05,2477 44635 CS PRIO12
009614,000064: 05,2500 55310 TS DSRUPTSW
009615,000065:
009616,000066: 05,2501 34727 DOFSTART CAF BIT14 # INSURE ENGINE IS OFF.
009617,000067: 05,2502 00006 EXTEND
009618,000068: 05,2503 01011 WRITE DSALMOUT
009619,000069: 05,2504 44746 CS ZERO
009620,000070: 05,2505 54055 TS THRUST
009621,000071:
009622,000072: 05,2506 34346 DOFSTRT1 CA PRIO30
009623,000073: 05,2507 55264 TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS.
009624,000074:
009625,000075: 05,2510 34746 CA ZERO
009626,000076: 05,2511 55245 TS ABDELV # DAP INITIALIZATION
009627,000077: 05,2512 54370 TS NVSAVE
009628,000078: 05,2513 55071 TS EBANKTEM
009629,000079: 05,2514 55257 TS CH5MASK
009630,000080: 05,2515 55260 TS CH6MASK
009631,000081:
![]() |
Page 223 |
009633,000083: 05,2516 55273 TS PVALVEST # FOR RCS FAILURE MONITOR
009634,000084: 05,2517 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART
009635,000085: 05,2520 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART
009636,000086: 05,2521 54333 TS DNLSTCOD # SELECT POO DOWNLIST
009637,000087: 05,2522 55321 TS AGSWORD # ALLOW AGS INITIALIZATION
009638,000088: 05,2523 55501 TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
009639,000089: 05,2524 00006 EXTEND
009640,000090: 05,2525 01005 WRITE CHAN5 # TURN OFF RCS JETS.
009641,000091: 05,2526 00006 EXTEND
009642,000092: 05,2527 01006 WRITE CHAN6 # TURN OFF RCS JETS.
009643,000093: 05,2530 00006 EXTEND
009644,000094: 05,2531 01012 WRITE CHAN12
009645,000095: 05,2532 00006 EXTEND
009646,000096: 05,2533 01013 WRITE CHAN13
009647,000097: 05,2534 00006 EXTEND
009648,000098: 05,2535 01014 WRITE CHAN14
009649,000099: 05,2536 41035 CS DSPTAB +11D
009650,000100: 05,2537 74762 MASK BITS4&6
009651,000101: 05,2540 10000 CCS A
009652,000102: 05,2541 02545 TC +4
009653,000103: 05,2542 34762 CA BITS4&6
009654,000104: 05,2543 00006 EXTEND # THE IMU WAS IN COARSE ALIGN IN GIMBAL
009655,000105: 05,2544 05012 WOR CHAN12 # LOCK, SO PUT IT BACK INTO COARSE ALIGN.
009656,000106: 05,2545 02645 +4 TC MR.KLEAN
009657,000107:
009658,000108: 05,2546 44746 CS ZERO
009659,000109: 05,2547 55010 TS MODREG
009660,000110:
009661,000111: 05,2550 33377 CAF IM30INIF # FRESH START IMU INITIALIZATION.
009662,000112: 05,2551 55277 TS IMODES30
009663,000113:
009664,000114: 05,2552 33067 CAF MAXDB
009665,000115: 05,2553 55343 TS DB
009666,000116: 05,2554 34742 CAF FOUR
009667,000117: 05,2555 55322 TS RATEINDX # INITIALIZE KALCMANU RATE
009668,000118: 05,2556 33064 CA BOOLSTRT
009669,000119: 05,2557 54111 TS DAPBOOLS
009670,000120: 05,2560 35006 CAF EBANK6
009671,000121: 05,2561 54003 TS EBANK
009672,000122: 05,2562 E6,1400 EBANK= HIASCENT
009673,000123:
009674,000124: 05,2562 33062 CA STIKSTRT
009675,000125: 05,2563 55444 TS STIKSENS
009676,000126: 05,2564 33063 CA RATESTRT
009677,000127: 05,2565 55476 TS -RATEDB
009678,000128: 05,2566 32000 CAF FULLAPS # INITIALIZE MAXIMUM ASCENT MASS FOR USE
009679,000129: 05,2567 55400 TS HIASCENT # BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
009680,000130: 05,2570 44775 CS LOW9 # LOAD DAP FILTER GAINS (PAD LOAD)
009681,000131: 05,2571 55403 TS DKTRAP # TO BEST PRESENT ESTIMATE OF GOODIES
009682,000132: 05,2572 55406 TS LMTRAP # .14 DEG
009683,000133:
![]() |
Page 224 |
009685,000135: 05,2573 33065 CA 60DEC
009686,000136: 05,2574 55405 TS DKKAOSN
009687,000137: 05,2575 55410 TS LMKAOSN # 6 SEC GAIN FOR ALPHA
009688,000138: 05,2576 34746 CA ZERO
009689,000139: 05,2577 55407 TS LMOMEGAN # UNITY GAIN
009690,000140: 05,2600 34354 CA TEN
009691,000141: 05,2601 55404 TS DKOMEGAN # 1 SEC GAIN FOR OMEGA
009692,000142: 05,2602 34735 CAF BIT8 # SET DOCKED DB TO 1.4 DEG. MAY OVERWRITE
009693,000143: 05,2603 55411 TS DKDB # WITH PAD LOAD.
009694,000144: 05,2604 35017 CAF IM33INIT
009695,000145: 05,2605 64737 AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
009696,000146: 05,2606 55300 TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED.
009697,000147:
009698,000148: 05,2607 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
009699,000149: 05,2610 33404 DCA SWINIT
009700,000150: 05,2611 52075 DXCH STATE
009701,000151: 05,2612 33405 CA SWINIT +2
009702,000152: 05,2613 54076 TS STATE +2
009703,000153: 05,2614 34730 CA REFSMBIT # DO NOT ALTER REFSMFLG ON FRESH START.
009704,000154: 05,2615 64732 AD NOP07BIT # NODOP07
009705,000155: 05,2616 70077 MASK STATE +3
009706,000156: 05,2617 63406 AD SWINIT +3
009707,000157: 05,2620 54077 TS STATE +3
009708,000158: 05,2621 00006 EXTEND
009709,000159: 05,2622 33410 DCA SWINIT +4
009710,000160: 05,2623 52101 DXCH STATE +4
009711,000161: 05,2624 00006 EXTEND
009712,000162: 05,2625 33412 DCA SWINIT +6
009713,000163: 05,2626 52103 DXCH STATE +6
009714,000164: 05,2627 33061 CA OCT6200 # CMOONFLG, LMOONFLG, SURFFLAG
009715,000165: 05,2630 70104 MASK STATE +8D
009716,000166: 05,2631 63413 AD SWINIT +8D
009717,000167: 05,2632 54104 TS STATE +8D
009718,000168: 05,2633 33414 CA SWINIT +9D
009719,000169: 05,2634 54105 TS STATE +9D
009720,000170: 05,2635 34730 CA APSFLBIT # DO NOT ALTER APSFLAG ON FRESH START.
009721,000171: 05,2636 70106 MASK STATE +10D
009722,000172: 05,2637 63415 AD SWINIT +10D
009723,000173: 05,2640 54106 TS STATE +10D
009724,000174: 05,2641 33416 CAF SWINIT +11D
009725,000175: 05,2642 54107 TS STATE +11D
009726,000176:
009727,000177: 05,2643 04626 ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK.
009728,000178: 05,2644 03212 CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DONT ZERO NEWJOB)
009729,000179:
009730,000180: 05,2645 00004 MR.KLEAN INHINT
009731,000181: 05,2646 00006 EXTEND
009732,000182: 05,2647 34746 DCA NEG0
009733,000183: 05,2650 52754 DXCH -PHASE2
009734,000184:
![]() |
Page 225 |
009736,000186: 05,2651 00006 POOKLEAN EXTEND
009737,000187: 05,2652 34746 DCA NEG0
009738,000188: 05,2653 52760 DXCH -PHASE4
009739,000189: 05,2654 00006 V37KLEAN EXTEND
009740,000190: 05,2655 34746 DCA NEG0
009741,000191: 05,2656 52762 DXCH -PHASE5
009742,000192: 05,2657 00006 ABTKLEAN EXTEND
009743,000193: 05,2660 34746 DCA NEG0
009744,000194: 05,2661 52756 DXCH -PHASE3
009745,000195: 05,2662 00006 EXTEND
009746,000196: 05,2663 34746 DCA NEG0
009747,000197: 05,2664 52752 DXCH -PHASE1
009748,000198: 05,2665 00006 EXTEND
009749,000199: 05,2666 34746 DCA NEG0
009750,000200: 05,2667 52764 DXCH -PHASE6
009751,000201: 05,2670 00002 TC Q
009752,000202:
![]() |
Page 226 |
009754,000204: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME
009755,000205:
009756,000206: 05,2671 E3,1400 EBANK= LST1
009757,000207: 05,2671 24320 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
009758,000208:
009759,000209: 05,2672 22002 LXCH Q
009760,000210: 05,2673 00006 EXTEND
009761,000211: 05,2674 04007 ROR SUPERBNK
009762,000212: 05,2675 53433 DXCH RSBBQ
009763,000213: 05,2676 31035 CA DSPTAB +11D
009764,000214: 05,2677 74741 MASK BIT4
009765,000215: 05,2700 00006 EXTEND
009766,000216: 05,2701 12705 BZF +4
009767,000217: 05,2702 64737 AD BIT6 # SET ERROR COUNTER ENABLE
009768,000218: 05,2703 00006 EXTEND
009769,000219: 05,2704 05012 WOR CHAN12 # ISS WAS IN COARS ALIGN SO GO BACK TO
009770,000220: 05,2705 03070 BUTTONS TC LIGHTSET
009771,000221:
009772,000222: # ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
009773,000223: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
009774,000224: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
009775,000225: # EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
009776,000226: # C(ERESTORE) SHOULD EQUAL +0.
009777,000227:
009778,000228: 05,2706 34341 CAF HI5
009779,000229: 05,2707 71360 MASK ERESTORE
009780,000230: 05,2710 00006 EXTEND
009781,000231: 05,2711 12713 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
009782,000232: 05,2712 13105 TCF NONAVKEY +3 # DO FRESH START - E MEMORY MIGHT BE BAD
009783,000233: 05,2713 41360 CS ERESTORE
009784,000234: 05,2714 00006 EXTEND
009785,000235: 05,2715 12732 BZF DORSTART # = +0 CONTINUE WITH RESTART.
009786,000236: 05,2716 61377 AD SKEEP7
009787,000237: 05,2717 00006 EXTEND
009788,000238: 05,2720 12722 BZF +2 # = SKEEP7, RESTORE E MEMORY.
009789,000239: 05,2721 13105 TCF NONAVKEY +3 # DO FRESH START - E MEMORY MIGHT BE BAD
009790,000240: 05,2722 31374 CA SKEEP4
009791,000241: 05,2723 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST.
009792,000242: 05,2724 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
009793,000243: 05,2725 31376 DCA SKEEP5
009794,000244: 05,2726 51377 INDEX SKEEP7
009795,000245: 05,2727 52001 DXCH 0000 # E MEMORY RESTORED.
009796,000246: 05,2730 34746 CA ZERO
009797,000247: 05,2731 55360 TS ERESTORE
009798,000248: 05,2732 03107 DORSTART TC STARTSUB # DO INITIALIZATION AFTER ERASE RESTORE.
009799,000249:
009800,000250: 05,2733 44727 SETINFL CS INTFLBIT
009801,000251: 05,2734 70106 MASK FLGWRD10
009802,000252: 05,2735 54106 TS FLGWRD10
![]() |
Page 227 |
009804,000254: 05,2736 33401 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
009805,000255: 05,2737 71035 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART
009806,000256: 05,2740 64726 AD BIT15
009807,000257: 05,2741 57035 XCH DSPTAB +11D
009808,000258: 05,2742 33365 CAF IFAILINH # LEAVE IMU FAILURE INHIBITS INTACT ON
009809,000259: 05,2743 71277 MASK IMODES30 # HARDWARE RESTART. RESET ALL FAILURE
009810,000260: 05,2744 63400 AD IM30INIR # CODES.
009811,000261: 05,2745 55277 TS IMODES30
009812,000262:
009813,000263: 05,2746 31321 CA AGSWORD # BE SURE OF CORRECT DOWNLIST
009814,000264: 05,2747 54333 TS DNLSTCOD
009815,000265:
009816,000266: 05,2750 34741 CA BIT4 # TURN ON THROTTLE COUNTER
009817,000267: 05,2751 00006 EXTEND
009818,000268: 05,2752 05014 WOR CHAN14 # TURN ON THRUST DRIVE
009819,000269: 05,2753 40101 CS FLAGWRD5
009820,000270: 05,2754 74736 MASK ENGONBIT
009821,000271: 05,2755 10000 CCS A
009822,000272: 05,2756 12763 TCF +5
009823,000273: 05,2757 34730 CAF BIT13
009824,000274: 05,2760 00006 EXTEND
009825,000275: 05,2761 05011 WOR DSALMOUT # TURN ENGINE ON
009826,000276: 05,2762 12777 TCF GOPROG3
009827,000277: 05,2763 34727 +5 CAF BIT14
009828,000278: 05,2764 00006 EXTEND
009829,000279: 05,2765 05011 WOR DSALMOUT # TURN ENGINE OFF.
009830,000280: 05,2766 12777 TCF GOPROG3
009831,000281:
009832,000282: 05,2767 00004 ENEMA INHINT
009833,000283: 05,2770 03116 TC STARTSB1
009834,000284: 05,2771 12773 TCF GOPROG2A
009835,000285: 05,2772 03156 GOPROG2 TC STARTSB2
009836,000286: 05,2773 03070 GOPROG2A TC LIGHTSET
009837,000287: 05,2774 44727 CS INTFLBIT # CLEAR INTEGR IN PROGRESS BIT
009838,000288: 05,2775 70106 MASK FLGWRD10
009839,000289: 05,2776 54106 TS FLGWRD10
009840,000290:
009841,000291: 05,2777 34747 GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
009842,000292: 05,3000 54161 PCLOOP TS MPAC +5
009843,000293: 05,3001 60000 DOUBLE
009844,000294: 05,3002 00006 EXTEND
009845,000295: 05,3003 50000 INDEX A
009846,000296: 05,3004 30752 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L.
009847,000297: 05,3005 00006 EXTEND
009848,000298: 05,3006 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT.
009849,000299: 05,3007 10000 CCS A
009850,000300: 05,3010 13056 TCF PTBAD # RESTART FAILURE.
009851,000301: 05,3011 13056 TCF PTBAD
009852,000302: 05,3012 13056 TCF PTBAD
009853,000303:
![]() |
Page 228 |
009855,000305: 05,3013 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
009856,000306: 05,3014 13000 TCF PCLOOP
009857,000307:
009858,000308: 05,3015 54162 TS MPAC +6 # SET TO +0.
009859,000309: 05,3016 05317 TC MMDSPLAY # DISPLAY MAJOR MODE
009860,000310:
009861,000311: 05,3017 00004 INHINT # RELINT DONE IN MMDSPLAY
009862,000312:
009863,000313: 05,3020 44727 CS DIDFLBIT # CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
009864,000314: 05,3021 70075 MASK FLAGWRD1 # RE-INITIALIZE ITSELF IF IT HAD BEEN
009865,000315: 05,3022 54075 TS FLAGWRD1 # OPERATING AT THE TIME OF THE RESTART.
009866,000316:
009867,000317: 05,3023 44731 CS RODFLBIT # CLEAR RODFLAG. IF P66 IS IN OPERATION
009868,000318: 05,3024 70075 MASK FLAGWRD1 # IT WILL RE-INITIALIZE ITSELF AND
009869,000319: 05,3025 54075 TS FLAGWRD1 # CONTINUE.
009870,000320:
009871,000321: 05,3026 44732 CS P21FLBIT # CLEAR P21FLAG SO THAT P21 WILL COMPUTE
009872,000322: 05,3027 70074 MASK FLAGWRD0 # NEW BASE STATE VECTORS.
009873,000323: 05,3030 54074 TS FLAGWRD0
009874,000324:
009875,000325: 05,3031 34747 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
009876,000326: 05,3032 54161 NXTRST TS MPAC +5
009877,000327: 05,3033 60000 DOUBLE
009878,000328: 05,3034 50000 INDEX A
009879,000329: 05,3035 10752 CCS PHASE1
009880,000330: 05,3036 13040 TCF PACTIVE # PNZ - GROUP ACTIVE.
009881,000331: 05,3037 13045 TCF PINACT # +0 - GROUP NOT RUNNING.
009882,000332:
009883,000333: 05,3040 54154 PACTIVE TS MPAC
009884,000334: 05,3041 24154 INCR MPAC # ABS OF PHASE.
009885,000335: 05,3042 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
009886,000336: 05,3043 04607 TC BANKCALL
009887,000337: 05,3044 03530 CADR RESTARTS
009888,000338: 05,3045 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
009889,000339: 05,3046 13032 TCF NXTRST
009890,000340:
009891,000341: 05,3047 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
009892,000342: 05,3050 12643 TCF ENDRSTRT # PHASE ACTIVE
009893,000343: 05,3051 34726 CAF BIT15 # IS MODE -0
009894,000344: 05,3052 71010 MASK MODREG
009895,000345: 05,3053 00006 EXTEND
009896,000346: 05,3054 16011 BZF CALGOPOO # NO
009897,000347: 05,3055 12643 TCF ENDRSTRT # YES
009898,000348: 05,3056 05571 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
009899,000349: 05,3057 01107 OCT 1107
009900,000350:
009901,000351: 05,3060 12506 TCF DOFSTRT1
009902,000352:
009903,000353: # ******** ****** ******
![]() |
Page 229 |
009905,000355: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
009906,000356:
009907,000357: 05,3061 4730 OCT10000 = BIT13
009908,000358: 05,3061 4346 OCT30000 = PRIO30
009909,000359: 05,3061 06200 OCT6200 OCT 6200 # SURFBIT, CMOONBIT, LMOONBIT FOR SWINITS
009910,000360: 05,3062 32321 STIKSTRT DEC 0.825268 # 20 D/S MAXIMUM COMMANDED RATE
009911,000361: 05,3063 77445 RATESTRT DEC -218 B-14
009912,000362: 05,3064 21322 BOOLSTRT OCT 21322
009913,000363: 05,3065 00074 60DEC DEC 60 B-14
009914,000364: 05,3066 20100 RSFLGBTS OCT 20100
009915,000365: 05,3067 03434 MAXDB OCTAL 03434 # 5 DEG ATTITUDE DEADBAND, SCALED AT 45.
009916,000366:
009917,000367: 05,3070 34740 LIGHTSET CAF BIT5 # CHECK FOR MARK REJECT AND ERROR RESET
009918,000368: 05,3071 00006 EXTEND
009919,000369: 05,3072 02016 RAND NAVKEYIN
009920,000370: 05,3073 00006 EXTEND
009921,000371: 05,3074 13102 BZF NONAVKEY # NO MARK REJECT
009922,000372: 05,3075 00006 EXTEND
009923,000373: 05,3076 00015 READ MNKEYIN # CHECK IF KEYS 2M AND 5M ON
009924,000374: 05,3077 63376 AD -ELR # MAIN DSKY KEYCODE(BITS 1-5)
009925,000375: 05,3100 00006 EXTEND
009926,000376: 05,3101 13103 BZF +2
009927,000377:
009928,000378: 05,3102 00002 NONAVKEY TC Q
009929,000379:
009930,000380: 05,3103 03107 TC STARTSUB
009931,000381: 05,3104 12501 TCF DOFSTART
009932,000382: 05,3105 03107 +3 TC STARTSUB
009933,000383: 05,3106 12506 TCF DOFSTRT1 # DO FRESH START BUT DON'T TOUCH ENGINE
009934,000384:
![]() |
Page 230 |
009936,000386: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
009937,000387:
009938,000388: 05,3107 E6,1536 EBANK= AOSQ
009939,000389: 05,3107 33366 STARTSUB CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL
009940,000390: 05,3110 54335 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE
009941,000391: # INTERRUPTED AND START SENDING FROM THE
009942,000392: # BEGINNING OF THE CURRENT DOWNLIST.
009943,000393: 05,3111 34737 CAF BIT6
009944,000394: 05,3112 00006 EXTEND
009945,000395: 05,3113 02033 RAND CHAN33
009946,000396: 05,3114 63402 AD RMODINIT
009947,000397: 05,3115 54110 TS RADMODES
009948,000398:
009949,000399: 05,3116 34724 STARTSB1 CAF POSMAX
009950,000400: 05,3117 54026 TS TIME3
009951,000401: 05,3120 67767 AD MINUS2
009952,000402: 05,3121 54027 TS TIME4
009953,000403: 05,3122 67770 AD NEGONE
009954,000404: 05,3123 54030 TS TIME5
009955,000405:
009956,000406: 05,3124 35006 CAF EBANK6
009957,000407: 05,3125 54003 TS EBANK
009958,000408:
009959,000409: 05,3126 34724 CAF POSMAX # DISABLE TIME6 CLOCK. JUST IN CASE A T6
009960,000410: 05,3127 55466 TS T6NEXT # RUPT IS ALREADY IN THE PRIORITY CHAIN,
009961,000411: 05,3130 00006 EXTEND # ENSURE THAT IT'S INPUTS WILL RENDER IT
009962,000412: 05,3131 03013 WAND CHAN13 # INEFFECTUAL.
009963,000413: 05,3132 34746 CAF ZERO
009964,000414: 05,3133 55465 TS NXT6ADR
009965,000415: 05,3134 55472 TS NEXTP
009966,000416:
009967,000417: 05,3135 44742 CS ACCSOKAY
009968,000418: 05,3136 70111 MASK DAPBOOLS
009969,000419: 05,3137 54111 TS DAPBOOLS
009970,000420:
009971,000421: 05,3140 00006 EXTEND # SET T5RUPT FOR DAPIDLER PROGRAM.
009972,000422: 05,3141 33364 DCA IDLEADR
009973,000423: 05,3142 53263 DXCH T5ADR
009974,000424:
009975,000425: 05,3143 40107 CS FLGWRD11 # IF R12 IS PERMITTED, ENSURE THAT NEXT
009976,000426: 05,3144 74726 MASK LRBYBIT # RADAR READS ARE NOT USED
009977,000427: 05,3145 00006 EXTEND
009978,000428: 05,3146 13156 BZF STARTSB2 # R12 OFF
009979,000429:
009980,000430: 05,3147 24006 INCR BBANK # SET EBANK TO 7
009981,000431: 05,3150 E7,1674 EBANK= STILBADH
009982,000432: 05,3150 11674 CCS STILBADH # IF STILBADH>0, NEXT READ WILL BE IGNORED
009983,000433: 05,3151 13153 TCF +2
009984,000434: 05,3152 25674 INCR STILBADH # SET STILBADH TO IGNORE NEXT READ
009985,000435:
![]() |
Page 231 |
009987,000437:
009988,000438: 05,3153 11675 +2 CCS STILBADV
009989,000439: 05,3154 13156 TCF STARTSB2 # IF STILBADV>0, NEXT READ WILL BE IGNORED
009990,000440: 05,3155 25675 INCR STILBADV # SET STILBADV TO IGNORE NEXT READ
009991,000441:
009992,000442: 05,3156 33375 STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
009993,000443: 05,3157 00006 EXTEND # ENGINE ON, OFF AND ISS WARNING.
009994,000444: 05,3160 03011 WAND DSALMOUT
009995,000445:
009996,000446: 05,3161 43371 CS OCT32001
009997,000447: 05,3162 70110 MASK RADMODES
009998,000448: 05,3163 54110 TS RADMODES
009999,000449: 05,3164 33373 CAF OCT27470 # DURING SOFTWARE RESTART, DO NOT DISTURB
010000,000450: 05,3165 00006 EXTEND # IMU FLAGS. (COURSE ALIGN ENABLE, ZERO
010001,000451: 05,3166 03012 WAND CHAN12 # IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
010002,000452: # TRIM DRIVES. LEAVE RR LOCKON ENABLE
010003,000453: # ALONE.
010004,000454:
010005,000455: 05,3167 44742 CS R12RDBIT # R12RDFLG CLEARED TO ESCAPE FROM POSSIBLE
010006,000456: 05,3170 70107 MASK FLGWRD11 # "CCS NEWJOB" LOOP IN VUPDAT SEC. OF R12
010007,000457: 05,3171 54107 TS FLGWRD11
010008,000458:
010009,000459: 05,3172 44741 CS NORRMBIT # ENABLE R25.
010010,000460: 05,3173 70101 MASK FLAGWRD5
010011,000461: 05,3174 54101 TS FLAGWRD5
010012,000462:
010013,000463: 05,3175 44732 CS R77FLBIT # CLEAR R77FLAG
010014,000464: 05,3176 70101 MASK FLAGWRD5
010015,000465: 05,3177 54101 TS FLAGWRD5
010016,000466: 05,3200 33374 CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DUSTURB
010017,000467: 05,3201 00006 EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND
010018,000468: 05,3202 03013 WAND CHAN13 # ENABLE T6RUPT FLAG.
010019,000469:
010020,000470: 05,3203 34731 CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY
010021,000471: 05,3204 00006 EXTEND # RESUMES EXCEPT DURING P64)
010022,000472: 05,3205 05013 WOR CHAN13
010023,000473:
010024,000474: 05,3206 34762 CAF OCT50 # DURING SOFTWARE RESTART, DO NOT DISTURB
010025,000475: 05,3207 00006 EXTEND # GYRO ENABLE OR THRUST ENABLE
010026,000476: 05,3210 03014 WAND CHAN14
010027,000477:
010028,000478: 05,3211 46130 CS OCT40001 # TO TURN OFF SUPER-KEYRELEASE LIGHT:
010029,000479: 05,3212 71035 MASK DSPTAB +11D # TURN OFF BITS 15 AND 1 IF THEY WERE ON;
010030,000480: 05,3213 64726 AD BIT15 # NOW SET BIT 15 TO TRIGGER DSKY UPDATE
010031,000481: 05,3214 55035 TS DSPTAB +11D
010032,000482:
010033,000483: 05,3215 E3,1400 EBANK= LST1
010034,000484: 05,3215 35000 CAF STARTEB
010035,000485: 05,3216 54003 TS EBANK # SET FOR E3
010036,000486:
010037,000487: 05,3217 34725 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
010038,000488:
![]() |
Page 232 |
010040,000490: 05,3220 55407 TS LST1 +7
010041,000491: 05,3221 55406 TS LST1 +6
010042,000492: 05,3222 55405 TS LST1 +5
010043,000493: 05,3223 55404 TS LST1 +4
010044,000494: 05,3224 55403 TS LST1 +3
010045,000495: 05,3225 55402 TS LST1 +2
010046,000496: 05,3226 55401 TS LST1 +1
010047,000497: 05,3227 55400 TS LST1
010048,000498:
010049,000499: 05,3230 45240 CS ENDTASK
010050,000500: 05,3231 55410 TS LST2
010051,000501: 05,3232 55412 TS LST2 +2
010052,000502: 05,3233 55414 TS LST2 +4
010053,000503: 05,3234 55416 TS LST2 +6
010054,000504: 05,3235 55420 TS LST2 +8D
010055,000505: 05,3236 55422 TS LST2 +10D
010056,000506: 05,3237 55424 TS LST2 +12D
010057,000507: 05,3240 55426 TS LST2 +14D
010058,000508: 05,3241 55430 TS LST2 +16D
010059,000509: 05,3242 45241 CS ENDTASK +1
010060,000510: 05,3243 55411 TS LST2 +1
010061,000511: 05,3244 55413 TS LST2 +3
010062,000512: 05,3245 55415 TS LST2 +5
010063,000513: 05,3246 55417 TS LST2 +7
010064,000514: 05,3247 55421 TS LST2 +9D
010065,000515: 05,3250 55423 TS LST2 +11D
010066,000516: 05,3251 55425 TS LST2 +13D
010067,000517: 05,3252 55427 TS LST2 +15D
010068,000518: 05,3253 55431 TS LST2 +17D
010069,000519:
010070,000520: 05,3254 44746 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
010071,000521: 05,3255 54167 TS PRIORITY # AVAILABLE.
010072,000522: 05,3256 54203 TS PRIORITY +12D
010073,000523: 05,3257 54217 TS PRIORITY +24D
010074,000524: 05,3260 54233 TS PRIORITY +36D
010075,000525: 05,3261 54247 TS PRIORITY +48D
010076,000526: 05,3262 54263 TS PRIORITY +60D
010077,000527: 05,3263 54277 TS PRIORITY +72D
010078,000528: 05,3264 54313 TS PRIORITY +84D
010079,000529:
010080,000530: 05,3265 55310 TS DSRUPTSW
010081,000531: 05,3266 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
010082,000532:
010083,000533: 05,3267 33370 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
010084,000534: 05,3270 54400 TS VAC1USE
010085,000535: 05,3271 63372 AD LTHVACA
010086,000536: 05,3272 54454 TS VAC2USE
010087,000537: 05,3273 63372 AD LTHVACA
010088,000538: 05,3274 54530 TS VAC3USE
010089,000539: 05,3275 63372 AD LTHVACA
010090,000540:
![]() |
Page 233 |
010092,000542: 05,3276 54604 TS VAC4USE
010093,000543: 05,3277 63372 AD LTHVACA
010094,000544: 05,3300 54660 TS VAC5USE
010095,000545:
010096,000546: 05,3301 34354 CAF TEN
010097,000547: 05,3302 54154 DSPOFF TS MPAC # R1, R2, R3).
010098,000548: 05,3303 44731 CS BIT12
010099,000549: 05,3304 50154 INDEX MPAC
010100,000550: 05,3305 55022 TS DSPTAB
010101,000551: 05,3306 10154 CCS MPAC
010102,000552: 05,3307 13302 TCF DSPOFF
010103,000553:
010104,000554: 05,3310 55323 TS DELAYLOC
010105,000555: 05,3311 55324 TS DELAYLOC +1
010106,000556: 05,3312 55325 TS DELAYLOC +2
010107,000557: 05,3313 54045 TS INLINK
010108,000558: 05,3314 54775 TS DSPCNT
010109,000559: 05,3315 55041 TS CADRSTOR
010110,000560: 05,3316 55012 TS REQRET
010111,000561: 05,3317 55014 TS CLPASS
010112,000562: 05,3320 55011 TS DSPLOCK
010113,000563: 05,3321 55017 TS MONSAVE # KILL MONITOR
010114,000564: 05,3322 55020 TS MONSAVE1
010115,000565: 05,3323 55000 TS VERBREG
010116,000566: 05,3324 55001 TS NOUNREG
010117,000567: 05,3325 55042 TS DSPLIST
010118,000568: 05,3326 55307 TS MARKSTAT
010119,000569: 05,3327 55043 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
010120,000570: 05,3330 55301 TS IMUCADR
010121,000571: 05,3331 55302 TS OPTCADR
010122,000572: 05,3332 55303 TS RADCADR
010123,000573: 05,3333 55304 TS ATTCADR
010124,000574: 05,3334 55311 TS LGYRO
010125,000575: 05,3335 55776 TS OLDAGS # ZERO OUT LAST MARKTIME SENT TO AGS
010126,000576: 05,3336 55777 TS OLDAGS +1 # BY P20
010127,000577: 05,3337 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS
010128,000578: 05,3340 34751 CAF NOUTCON
010129,000579: 05,3341 55015 TS NOUT
010130,000580:
010131,000581: 05,3342 34727 CAF BIT14
010132,000582: 05,3343 55073 TS AGSCODE # AGSCODE DOWNLIST CODE = RESET CONFIG
010133,000583:
010134,000584: 05,3344 34737 CAF BIT6
010135,000585: 05,3345 71300 MASK IMODES33 # LEAVE BIT 6 UNCHANGED
010136,000586: 05,3346 65017 AD IM33INIT # NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
010137,000587: 05,3347 55300 TS IMODES33
010138,000588:
010139,000589: 05,3350 33367 CAF LESCHK # SELF CHECK GO-TO REGISTER.
010140,000590: 05,3351 55361 TS SELFRET
010141,000591:
![]() |
Page 234 |
010143,000593:
010144,000594: 05,3352 44351 CS VD1
010145,000595: 05,3353 54776 TS DSPCOUNT
010146,000596:
010147,000597: 05,3354 00006 EXTEND # SET UP A JOB TO DO 1/ACCS AND TO ZERO
010148,000598: 05,3355 22070 QXCH RUPTREG1 # THE OFFSET ACCELERATION ESTIMATE.
010149,000599:
010150,000600: 05,3356 37736 CAF PRIO27
010151,000601: 05,3357 05063 TC NOVAC
010152,000602: 05,3360 E6,1536 EBANK= AOSQ
010153,000603: 05,3360 03576 42066 2CADR 1/ACCSET
010154,000604:
010155,000605:
010156,000606: 05,3362 00070 TC RUPTREG1 # RETURN TO CALLER.
010157,000607:
010158,000608:
010159,000609: 05,3363 E6,1536 EBANK= AOSQ
010160,000610: 05,3363 02037 34066 IDLEADR 2CADR DAPIDLER
010161,000611:
010162,000612: 05,3365 00435 IFAILINH OCT 435
010163,000613: 05,3366 03524 LDNPHAS1 GENADR DNPHASE1
010164,000614: 05,3367 03341 LESCHK GENADR SELFCHK
010165,000615: 05,3370 00400 VAC1ADRC ADRES VAC1USE
010166,000616: 05,3371 32001 OCT32001 OCT 32001
010167,000617: 05,3372 00054 LTHVACA DEC 44 B-14
010168,000618:
010169,000619: 05,3373 27470 OCT27470 OCT 27470
010170,000620: 05,3374 74160 OCT74160 OCT 74160
010171,000621: 05,3375 30001 OCT30001 OCT 30001
010172,000622: 05,3376 5000 STARTEB EQUALS EBANK3
010173,000623: 05,3376 4747 NUMGRPS EQUALS FIVE
010174,000624: 05,3376 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
010175,000625: 05,3377 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
010176,000626: 05,3400 37000 IM30INIR OCT 37000
010177,000627: 05,3401 5017 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS.
010178,000628: 05,3401 00450 9,6,4 OCT 450
010179,000629: 05,3402 00102 RMODINIT OCT 00102
010180,000630: 05,3403 00000 SWINIT OCT 0
010181,000631: 05,3404 00000 OCT 0
010182,000632: 05,3405 00000 OCT 0
010183,000633: 05,3406 00000 OCT 0
010184,000634: 05,3407 00000 OCT 0
010185,000635: 05,3410 00000 OCT 0
010186,000636: 05,3411 00000 OCT 0
010187,000637: 05,3412 00100 OCT 00100
010188,000638:
010189,000639: 05,3413 00000 OCT 0
010190,000640: 05,3414 00000 OCT 0
010191,000641: 05,3415 00000 OCT 0
010192,000642: 05,3416 40000 OCT 40000 # BIT 15 = LRBYPASS.
010193,000643:
![]() |
Page 235 |
010195,000645: # PROGRAM NAME GOTOPOOH ASSEMBLY SUNDANCE
010196,000646: # LOG SECTION FRESH START AND RESTART
010197,000647:
010198,000648: # FUNCTIONAL DESCRIPTION
010199,000649:
010200,000650: # FLASH V 37 ON DSKY %MM CHANGE REQUEST "
010201,000651:
010202,000652: # INPUT/OUTPUT INFORMATION
010203,000653:
010204,000654: # A. CALLING SEQUENCE TC GOTOPOOH
010205,000655:
010206,000656: # B. ERASABLE INITIALIZATION NONE
010207,000657:
010208,000658: # C. OUTPUT FLASH V 37 ON DSKY
010209,000659:
010210,000660: # D. DEBRIS L
010211,000661:
010212,000662: # PROGRAM ANALYSIS
010213,000663:
010214,000664: # A. SUBROUTINES CALLED PRIODSPR, LINUS
010215,000665:
010216,000666: # B. NORMAL EXIT TCF ENDOFJOB
010217,000667:
010218,000668: # C. ALARM AND ABORT EXITS NONE
010219,000669:
010220,000670: 6001 BLOCK 03
010221,000671: 6000 SETLOC FFTAG5
010222,000672: 6000 BANK
010223,000673:
010224,000674: 6001 COUNT* $$/P00
010225,000675: 6001 34755 GOTOPOOH CAF OCT33 # 4.33 SPOT FOR GOPOOFIX
010226,000676: 6002 54001 TS L
010227,000677: 6003 40000 COM
010228,000678: 6004 52760 DXCH -PHASE4
010229,000679:
010230,000680: 6005 04626 TC POSTJUMP
010231,000681: 6006 10040 CADR GOPOOFIX
010232,000682: 6007 00024 OCT24 MM 20 B-14
010233,000683: 6010 00031 OCT31 MM 25 B-14
010234,000684:
010235,000685:
010236,000686:
010237,000687:
010238,000688: 6011 34346 CALGOPOO CAF PRIO30
010239,000689: 6012 05063 TC NOVAC
010240,000690: 6013 E7,1471 EBANK= WHOCARES
010241,000691: 6013 06001 06067 2CADR GOTOPOOH
010242,000692: 6015 04626 TC POSTJUMP
010243,000693: 6016 03212 CADR DUMMYJOB +2
010244,000694:
![]() |
Page 236 |
010246,000696: 20,2004 BANK 20
010247,000697: 04,2000 SETLOC VERB37
010248,000698: 04,2000 BANK
010249,000699:
010250,000700: 04,2040 COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4.
010251,000701: 04,2040 05520 GOPOOFIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
010252,000702: 04,2041 00311 ADRES XOVINFLG
010253,000703:
010254,000704: 04,2042 05520 TC DOWNFLAG # INSURE THAT ULLAGE IS OFF
010255,000705: 04,2043 00314 ADRES ULLAGFLG
010256,000706:
010257,000707: 04,2044 05500 TC CLEARMRK +2 # RELEASE MARK DISPLAY SYSTEM.
010258,000708: 04,2045 32053 CAF V37N99
010259,000709: 04,2046 04607 TC BANKCALL
010260,000710: 04,2047 20471 CADR GOFLASH
010261,000711: 04,2050 12045 TCF -3
010262,000712: 04,2051 12045 TCF -4
010263,000713: 04,2052 12045 TCF -5
010264,000714:
010265,000715: 04,2053 11343 V37N99 VN 3799
010266,000716:
![]() |
Page 237 |
010268,000718: # PROGRAM NAME V37 ASSEMBLY SUNDANCE
010269,000719:
010270,000720: # LOG SECTION FRESH START AND RESTART
010271,000721:
010272,000722: # FUNCTIONAL DESCRIPTION
010273,000723:
010274,000724: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
010275,000725: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
010276,000726: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
010277,000727: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
010278,000728: # 4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
010279,000729: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
010280,000730: # 6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
010281,000731: # 7. DISPLAY SYSTEM IS RELEASED.
010282,000732: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
010283,000733: # A. PROGRAM SELECTED IS P00.
010284,000734: # 1. RENDEZVOUS AND P25 FLAGS ARE RESET.(KILL P20 AND P25)
010285,000735: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
010286,000736: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
010287,000737: # 4. SUPERBANK 3 IS SELECTED.
010288,000738: # 5. NODOFLAG IS RESET.
010289,000739: # 6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
010290,000740: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
010291,000741: # INITIATED.
010292,000742: # B. PROGRAM SELECTED IS P20 OR P25.
010293,000743: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
010294,000744: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
010295,000745: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
010296,000746: # ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
010297,000747: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
010298,000748: # P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS M M IS SET.
010299,000749: # 3. CONTROL IS TRANSFERRED TO GOPROG2.
010300,000750: # C. PROGRAM SELECTED IS NEITHER P00,P20, NOR P25
010301,000751: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
010302,000752: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
010303,000753: # GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
010304,000754: # TO CONTINUE.
010305,000755:
010306,000756: # INPUT/OUTPUT INFORMATION
010307,000757:
010308,000758: # A. CALLING SEQUENCE
010309,000759:
010310,000760: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
010311,000761: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
010312,000762: # MMCHANG EXECUTES A TC POSTJUMP, CADR V37.
010313,000763:
010314,000764: # B. ERASABLE INITIALIZATION NONE
010315,000765:
010316,000766: # C. OUTPUT
010317,000767:
![]() |
Page 238 |
010319,000769: # MAJOR MODE CHANGE
010320,000770:
010321,000771: # D. DEBRIS
010322,000772: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
010323,000773: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
010324,000774:
010325,000775: # PROGRAM ANALYSIS
010326,000776:
010327,000777: # A. SUBROUTINES CALLED
010328,000778: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
010329,000779: # DSPMM
010330,000780:
010331,000781: # B. NORMAL EXIT TC ENDOFJOB
010332,000782:
010333,000783: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED)
010334,000784:
010335,000785: 04,2054 54774 V37 TS MMNUMBER # SAVE MAJOR MODE
010336,000786: 04,2055 34346 CAF PRIO30 # RESTART AT PINBALL PRIORITY
010337,000787: 04,2056 55264 TS RESTREG
010338,000788:
010339,000789: 04,2057 31277 CA IMODES30 # IS IMU BEINB INITIALIZED
010340,000790: 04,2060 74737 MASK BIT6
010341,000791: 04,2061 10000 CCS A
010342,000792: 04,2062 12105 TCF CANTROD
010343,000793:
010344,000794: 04,2063 34740 CA BIT5 # IS IMUZERO IN PROGRESS
010345,000795: 04,2064 71300 MASK IMODES33
010346,000796: 04,2065 10000 CCS A # IF SO DAP IS OFF
010347,000797: 04,2066 12105 TCF CANTROD
010348,000798:
010349,000799: 04,2067 40774 CS MMNUMBER # IS P70 REQUESTED?
010350,000800: 04,2070 62435 AD DEC70
010351,000801: 04,2071 00006 EXTEND
010352,000802: 04,2072 12430 BZF SETUP70 # YES
010353,000803: 04,2073 64744 AD ONE # IS P71 REQUESTED?
010354,000804: 04,2074 00006 EXTEND
010355,000805: 04,2075 12427 BZF SETUP71 # YES
010356,000806:
010357,000807: 04,2076 30774 CA MMNUMBER # IS NEW REQUEST POO
010358,000808: 04,2077 00006 EXTEND
010359,000809: 04,2100 12127 BZF ISSERVON # YES, CHECK SERVICER STATUS
010360,000810:
010361,000811: 04,2101 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
010362,000812: 04,2102 74744 MASK NODOBIT
010363,000813: 04,2103 10000 CCS A
010364,000814: 04,2104 12112 TCF CHECKTAB # NO
010365,000815: 04,2105 05571 CANTROD TC ALARM
010366,000816: 04,2106 01520 OCT 1520
010367,000817:
010368,000818: 04,2107 04450 V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
010369,000819:
![]() |
Page 239 |
010371,000821:
010372,000822: 04,2110 04626 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
010373,000823: 04,2111 21062 CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ.
010374,000824:
010375,000825: 04,2112 32524 CHECKTAB CA NOV37MM # INDEX FOR MM TABLES.
010376,000826: 04,2113 54155 AGAINMM TS MPAC +1
010377,000827: 04,2114 50155 NDX MPAC +1
010378,000828: 04,2115 32472 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR
010379,000829: 04,2116 76115 MASK LOW7
010380,000830: 04,2117 40000 COM
010381,000831: 04,2120 60774 AD MMNUMBER
010382,000832: 04,2121 10000 CCS A
010383,000833: 04,2122 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
010384,000834: 04,2123 12113 TCF AGAINMM # YES, GET NEXT ONE
010385,000835: 04,2124 12360 TCF V37NONO # LAST TIME OR PASSED MM
010386,000836:
010387,000837: 04,2125 30155 CA MPAC +1
010388,000838: 04,2126 54773 TS MINDEX # SAVE INDEX FOR LATER
010389,000839:
010390,000840: 04,2127 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET - I.E. IS SERVICER GOING
010391,000841: 04,2130 74737 MASK V37FLBIT
010392,000842: 04,2131 10000 CCS A
010393,000843: 04,2132 12160 TCF CANV37 # NO
010394,000844:
010395,000845: 04,2133 04720 TC SUPERSW
010396,000846: 04,2134 00004 INHINT
010397,000847: 04,2135 04665 TC IBNKCALL # YES, TURN ENGINE OFF
010398,000848: 04,2136 75556 CADR ENGINOF1
010399,000849: 04,2137 05520 TC DOWNFLAG # NOW TURN OFF THE AVERAGE G FLAG AND
010400,000850: 04,2140 00163 ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO V37RET.
010401,000851:
010402,000852: 04,2141 06050 TC KILLTASK
010403,000853: 04,2142 74350 CADR ULLGTASK
010404,000854:
010405,000855: 04,2143 15146 TCF ENDOFJOB
010406,000856:
010407,000857: 04,2144 40074 V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
010408,000858: 04,2145 74736 MASK RNDVZBIT
010409,000859: 04,2146 10000 CCS A
010410,000860: 04,2147 12151 TCF +2 # NO. CHECK FOR P25.
010411,000861: 04,2150 12156 TCF 2.7SPT # YES. DO 2.7SPOT
010412,000862: 04,2151 40074 CS FLAGWRD0 # IS P25 RUNNING?
010413,000863: 04,2152 74734 MASK P25FLBIT
010414,000864: 04,2153 10000 CCS A
010415,000865: 04,2154 32424 2.0SPT CA OCT37667
010416,000866: 04,2155 64740 2.11SPT AD BIT5
010417,000867: 04,2156 62425 2.7SPT AD OCT40072
010418,000868: 04,2157 05361 TC PHSCHNGA
010419,000869:
010420,000870: 04,2160 34746 CANV37 CAF ZERO
010421,000871: 04,2161 00006 EXTEND
010422,000872:
![]() |
Page 240 |
010424,000874:
010425,000875: 04,2162 01007 WRITE SUPERBNK
010426,000876:
010427,000877: 04,2163 32423 CAF ROOAD
010428,000878: 04,2164 54373 TS TEMPFLSH
010429,000879:
010430,000880: 04,2165 05355 TC PHASCHNG
010431,000881: 04,2166 00014 OCT 14
010432,000882:
010433,000883: 04,2167 06060 ROO TC INTPRET
010434,000884:
010435,000885: 04,2170 77624 CALL # WAIT FOR INTEGRATION TO FINISH
010436,000886: 04,2171 27447 INTSTALL
010437,000887: 04,2172 77776 DUMMYAD EXIT
010438,000888:
010439,000889: 04,2173 05520 TC DOWNFLAG
010440,000890: 04,2174 00124 ADRES 3AXISFLG # RESET 3-AXIS FLAG
010441,000891:
010442,000892: 04,2175 05520 TC DOWNFLAG
010443,000893: 04,2176 00055 ADRES POOHFLAG
010444,000894:
010445,000895: 04,2177 05520 TC DOWNFLAG # CLEAR FOR NORMAL INFLIGHT MARKING
010446,000896: 04,2200 00222 ADRES FLT59FLG
010447,000897:
010448,000898: 04,2201 34726 CAF LRBYBIT # CLEAN UP THE R12 FLAGWORD.
010449,000899: 04,2202 54107 TS FLGWRD11
010450,000900:
010451,000901: 04,2203 05520 TC DOWNFLAG # INSURE THAT THE R04FLAG IS CLEAR.
010452,000902: 04,2204 00063 ADRES R04FLAG
010453,000903:
010454,000904: 04,2205 05520 TC DOWNFLAG
010455,000905: 04,2206 00056 ADRES GLOKFAIL # FLAGWORD 3 BIT 14
010456,000906:
010457,000907: 04,2207 05520 TC DOWNFLAG # INSURE MUNFLAG IS CLEAR.
010458,000908: 04,2210 00141 ADRES MUNFLAG
010459,000909:
010460,000910: 04,2211 05520 TC DOWNFLAG # RESET ABORT TARGETING FLAG (USE
010461,000911: 04,2212 00217 ADRES ABTTGFLG # PARAMETERS J1 AND KU)
010462,000912:
010463,000913: 04,2213 05520 TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
010464,000914: 04,2214 00311 ADRES XOVINFLG
010465,000915: 04,2215 10774 CCS MMNUMBER # IS THIS A POOH REQUEST
010466,000916: 04,2216 12346 TCF NOUVEAU # NO, PICK UP NEW PROGRAM
010467,000917:
010468,000918: 04,2217 04450 POOH TC RELDSP # RELEASE DISPLAY SYSTEM
010469,000919:
010470,000920: 04,2220 35010 CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
010471,000921: 04,2221 55055 TS PHSPRDT2 # P00 INTEGRATION.
010472,000922:
010473,000923: 04,2222 06027 TC CLRADMOD # CLRADMOD DOES AN INHINT.
010474,000924:
![]() |
Page 241 |
010476,000926: 04,2223 44744 CS NODOBIT # TURN OFF NODOFLAG.
010477,000927: 04,2224 70076 MASK FLAGWRD2
010478,000928: 04,2225 54076 TS FLAGWRD2
010479,000929:
010480,000930: 04,2226 34747 CA FIVE # SET RESTART FOR STATEINT1
010481,000931: 04,2227 54001 TS L
010482,000932: 04,2230 40000 COM
010483,000933: 04,2231 52754 DXCH -PHASE2
010484,000934:
010485,000935: 04,2232 42426 CS OCT700 # TURN OFF P20,P25,IMU IN USE FLAG
010486,000936: 04,2233 70074 MASK FLAGWRD0
010487,000937: 04,2234 54074 TS FLAGWRD0 # RENDFLG
010488,000938:
010489,000939: 04,2235 34746 CAF DNLADP00
010490,000940:
010491,000941: 04,2236 54333 SEUDOPOO TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
010492,000942: 04,2237 55321 TS AGSWORD # (CURRENT LIST WILL BE COMPLETED BEFORE
010493,000943: # NEW ONE IS STARTED)
010494,000944:
010495,000945: 04,2240 44732 CS NOP07BIT
010496,000946: 04,2241 70077 MASK FLAGWRD3
010497,000947: 04,2242 64732 AD NOP07BIT
010498,000948: 04,2243 54077 TS FLAGWRD3
010499,000949:
010500,000950: 04,2244 04665 TC IBNKCALL # INSURE ALLCOAST.
010501,000951: 04,2245 40205 CADR ALLCOAST # DOES A RESTORDB.
010502,000952:
010503,000953: 04,2246 44766 CS OCT120 # TURN OFF TRACK, UPDATE FLAGS
010504,000954: 04,2247 55071 TS EBANKTEM
010505,000955: 04,2250 70075 MASK FLAGWRD1
010506,000956: 04,2251 54075 TS FLAGWRD1
010507,000957:
010508,000958: 04,2252 04665 TC IBNKCALL # KILL GROUPS 1,3,5,6
010509,000959: 04,2253 12654 CADR V37KLEAN
010510,000960:
010511,000961: 04,2254 10774 CCS MMNUMBER # IS IT POOH
010512,000962: 04,2255 12264 TCF RENDV00 # NO
010513,000963: 04,2256 04665 GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
010514,000964: 04,2257 12651 CADR POOKLEAN
010515,000965:
010516,000966: 04,2260 30774 CA MMNUMBER
010517,000967: 04,2261 55010 TS MODREG
010518,000968:
010519,000969: 04,2262 04626 GOGOPROG TC POSTJUMP
010520,000970: 04,2263 12772 CADR GOPROG2
010521,000971:
010522,000972: 04,2264 41010 RENDV00 CS MODREG # IS CURRENT PROGRAM 22
010523,000973: 04,2265 62364 AD OCT26
010524,000974: 04,2266 00006 EXTEND
010525,000975: 04,2267 12306 BZF RESET22 # YES - CLEAR RENDEZVOUS FLAG
010526,000976:
![]() |
Page 242 |
010528,000978: 04,2270 40774 CS MMNUMBER # IS NEW PROGRAM P22
010529,000979: 04,2271 62364 AD OCT26
010530,000980: 04,2272 00006 EXTEND
010531,000981: 04,2273 12306 BZF RESET22
010532,000982:
010533,000983:
010534,000984: 04,2274 67767 AD NEG2 # IS NEW PROGRAM = P20 OR P25
010535,000985: 04,2275 00006 EXTEND
010536,000986: 04,2276 12320 BZF RENDNOO # YES
010537,000987: 04,2277 64747 AD FIVE # 25
010538,000988: 04,2300 00006 EXTEND
010539,000989: 04,2301 12320 BZF RENDNOO # YES
010540,000990:
010541,000991: 04,2302 32362 CA OCT500 # NO, IS EITHER P20 OR P25 RUNNING
010542,000992: 04,2303 70074 MASK FLAGWRD0
010543,000993: 04,2304 10000 CCS A
010544,000994: 04,2305 12315 TCF POOFIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
010545,000995:
010546,000996: 04,2306 42426 RESET22 CS OCT700 # CLEAR RENDEZVOUS,P25
010547,000997: 04,2307 70074 MASK FLAGWRD0 # AND IMU IN USE FLAGS
010548,000998: 04,2310 54074 TS FLAGWRD0
010549,000999: 04,2311 06027 TC CLRADMOD
010550,001000:
010551,001001: 04,2312 00006 KILL2 EXTEND # NO, KILL 2
010552,001002: 04,2313 34746 DCA NEG0
010553,001003: 04,2314 52754 DXCH -PHASE2
010554,001004:
010555,001005: 04,2315 32422 POOFIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ
010556,001006: 04,2316 54373 TS TEMPFLSH
010557,001007:
010558,001008: 04,2317 12262 TCF GOGOPROG
010559,001009:
010560,001010: 04,2320 41010 RENDNOO CS MODREG
010561,001011: 04,2321 66007 AD OCT24
010562,001012: 04,2322 00006 EXTEND
010563,001013: 04,2323 12312 BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 -
010564,001014:
010565,001015: 04,2324 64747 AD FIVE
010566,001016: 04,2325 00006 EXTEND
010567,001017: 04,2326 12312 BZF KILL2
010568,001018:
010569,001019: 04,2327 32362 CA OCT500
010570,001020: 04,2330 70074 MASK FLAGWRD0
010571,001021: 04,2331 60774 AD MMNUMBER
010572,001022: 04,2332 40000 COM
010573,001023: 04,2333 62365 AD P20REG # IS IT 20 AND IS RENDEZVOUS FLAG ON
010574,001024: 04,2334 00006 EXTEND
010575,001025: 04,2335 12342 BZF STATQUO # YES
010576,001026: 04,2336 62363 AD OCT305 # IS IT 25 AND IS P25 BIT ON
010577,001027: 04,2337 00006 EXTEND
010578,001028:
![]() |
Page 243 |
010580,001030: 04,2340 12342 BZF STATQUO # YES, LEAVE AS IS
010581,001031: 04,2341 12312 TCF KILL2
010582,001032:
010583,001033: 04,2342 40075 STATQUO CS FLAGWRD1 # SET TRACKFLAG
010584,001034: 04,2343 74766 MASK OCT120 # UPDATE FLAG
010585,001035: 04,2344 26075 ADS FLAGWRD1
010586,001036:
010587,001037: 04,2345 12256 TCF GOMOD
010588,001038:
010589,001039: 04,2346 32362 NOUVEAU CAF OCT500 # IS P20 OR P25 FLAG SET
010590,001040: 04,2347 70074 MASK FLAGWRD0
010591,001041: 04,2350 10000 CCS A
010592,001042: 04,2351 12354 TCF +3 # YES
010593,001043: 04,2352 05520 TC DOWNFLAG # NO, RESET IMUINUSE FLAG
010594,001044: 04,2353 00007 ADRES IMUSE
010595,001045:
010596,001046: 04,2354 50773 INDEX MINDEX
010597,001047: 04,2355 32525 CAF DNLADMM1 # OBTAIN APPROPRIATE DOWNLIST ADDRESS
010598,001048:
010599,001049: 04,2356 00004 INHINT
010600,001050: 04,2357 12236 TCF SEUDOPOO
010601,001051:
010602,001052: 04,2360 04355 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESNT EXIST
010603,001053:
010604,001054: 04,2361 12107 TCF V37BAD
010605,001055:
010606,001056: 04,2362 4741 OCT00010 EQUALS BIT4
010607,001057: 04,2362 00500 OCT500 OCT 500 # BITS 7 AND 9
010608,001058: 04,2363 00305 OCT305 OCT 305
010609,001059: 04,2364 00026 OCT26 OCT 26
010610,001060: 04,2365 00124 P20REG OCT 124
010611,001061:
010612,001062: 04,2366 00004 V37XEQ INHINT
010613,001063: 04,2367 50773 INDEX MINDEX
010614,001064: 04,2370 32472 CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM
010615,001065: 04,2371 55057 TS MMTEMP
010616,001066: 04,2372 54020 TS CYR # SHIFT RIGHT TO BITS 14 - 10
010617,001067:
010618,001068: 04,2373 30020 CA CYR
010619,001069: 04,2374 77746 MASK PRIO37
010620,001070: 04,2375 55061 TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
010621,001071: 04,2376 54063 TS NEWPRIO # STORE PRIO FOR SPVAC
010622,001072:
010623,001073: 04,2377 31057 CA MMTEMP # OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
010624,001074: 04,2400 00006 EXTEND
010625,001075: 04,2401 74735 MP BIT8
010626,001076: 04,2402 74750 MASK LOW3
010627,001077: 04,2403 54001 TS L
010628,001078:
010629,001079: 04,2404 50773 INDEX MINDEX
010630,001080:
![]() |
Page 244 |
010632,001082: 04,2405 32440 CAF FCADRMM1
010633,001083: 04,2406 55060 TS BASETEMP # MAKE BBCON BY ADDING HI5 OF FCADR
010634,001084: 04,2407 74341 MASK HI5
010635,001085: 04,2410 26001 ADS L
010636,001086:
010637,001087: 04,2411 31060 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
010638,001088: 04,2412 75003 MASK LOW10
010639,001089: 04,2413 64732 AD BIT11
010640,001090:
010641,001091: 04,2414 05107 TC SPVAC
010642,001092:
010643,001093: 04,2415 31057 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
010644,001094: 04,2416 76115 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
010645,001095: 04,2417 05316 TC NEWMODEA # PHSPRDT1)
010646,001096:
010647,001097: 04,2420 04450 TC RELDSP # RELEASE DISPLAY
010648,001098: 04,2421 05146 TC ENDOFJOB # AND EXIT
010649,001099:
010650,001100: 04,2422 5652 NEG7 EQUALS OCT77770
010651,001101:
010652,001102: 04,2422 1057 MMTEMP EQUALS PHSPRDT3
010653,001103: 04,2422 1060 BASETEMP EQUALS TBASE4
010654,001104: 04,2422 10371 V37QCAD CADR V37XEQ +3
010655,001105: 04,2423 10172 ROOAD CADR DUMMYAD
010656,001106: 04,2424 37667 OCT37667 OCT 37667
010657,001107: 04,2425 40072 OCT40072 OCT 40072
010658,001108: 04,2426 00700 OCT700 OCT 700
010659,001109:
010660,001110: 04,2427 36266 SETUP71 CAF THREE
010661,001111: 04,2430 54002 SETUP70 TS Q
010662,001112: 04,2431 00006 EXTEND
010663,001113: 04,2432 32437 DCA P70CADR
010664,001114: 04,2433 60002 AD Q
010665,001115: 04,2434 52006 DTCB
010666,001116:
010667,001117: 04,2435 00106 DEC70 DEC 70 B-14
010668,001118: 04,2436 E7,1520 EBANK= R
010669,001119: 04,2436 02132 42067 P70CADR 2CADR P70
010670,001120: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
010671,001121: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
010672,001122: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
010673,001123:
010674,001124: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
010675,001125:
010676,001126: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
010677,001127: # THE MAJOR MODE. FOR EXAMPLE,
010678,001128:
010679,001129: # FCADRMM1 FCADR P79 START OF P 79
010680,001130: # FCADR PROG18 START OF P 18
010681,001131:
![]() |
Page 245 |
010683,001133: # FCADR P01 START OF P 01
010684,001134: # NOTE, THE FIRST ENTRY MUST BE LABLED FCADRMM1.
010685,001135: # ----
010686,001136:
010687,001137: 04,2440 FCADRMM1 EQUALS
010688,001138: 04,2440 26207 FCADR P76ER77
010689,001139: 04,2441 26207 FCADR P76ER77
010690,001140: 04,2442 72647 FCADR P75
010691,001141: 04,2443 72457 FCADR P74
010692,001142: 04,2444 72225 FCADR P73
010693,001143: 04,2445 72036 FCADR P72
010694,001144: 04,2446 71271 FCADR LANDJUNK
010695,001145: 04,2447 64602 FCADR P63LM
010696,001146: 04,2450 33274 FCADR P57
010697,001147: 04,2451 32201 FCADR PROG52
010698,001148: 04,2452 31404 FCADR P51
010699,001149: 04,2453 75437 FCADR P47LM
010700,001150: 04,2454 75411 FCADR P42LM
010701,001151: 04,2455 75271 FCADR P41LM
010702,001152: 04,2456 75146 FCADR P40LM
010703,001153: 04,2457 72643 FCADR P35
010704,001154: 04,2460 72455 FCADR P34
010705,001155: 04,2461 72223 FCADR P33
010706,001156: 04,2462 72034 FCADR P32
010707,001157: 04,2463 72000 FCADR P30
010708,001158: 04,2464 50462 FCADR PROG25
010709,001159: 04,2465 50000 FCADR PROG22
010710,001160: 04,2466 51441 FCADR PROG21
010711,001161: 04,2467 50000 FCADR PROG20
010712,001162: 04,2470 60061 FCADR P12LM
010713,001163: 04,2471 77654 FCADR P06
010714,001164: # THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
010715,001165: # INFORMATION, IT IS IN THE FOLLOWING FORM,
010716,001166:
010717,001167: # PPP PPE EEM MMM MMM
010718,001168:
010719,001169: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
010720,001170: # 3 E BITS CONTAIN THE E-BANK NUMBER
010721,001171: # 5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
010722,001172: # TO BE STARTED
010723,001173:
010724,001174: # FOR EXAMPLE,
010725,001175:
010726,001176: # PREMM1 OCT 67213 PRIORITY 33
010727,001177: # E-BANK 5
010728,001178: # MAJOR MODE 11
010729,001179: # OCT 25437 PRIORITY 12
010730,001180: # E-BANK 6
010731,001181: # MAJOR MODE 31
010732,001182:
![]() |
Page 246 |
010734,001184: # NOTE, THE FIRST ENTRY MUST BE LABELED PREMM1
010735,001185: 04,2472 PREMM1 EQUALS
010736,001186: 04,2472 27715 OCT 27715 # MM 77 EBANK 7 PRIO 13
010737,001187: 04,2473 27714 OCT 27714 # MM 76 EBANK 7 PRIO 13
010738,001188: 04,2474 27713 OCT 27713 # MM 75 EBANK 7 PRIO 13
010739,001189: 04,2475 27712 OCT 27712 # MM 74 EBANK 7 PRIO 13
010740,001190: 04,2476 27711 OCT 27711 # MM 73 EBANK 7 PRIO 13
010741,001191: 04,2477 27710 OCT 27710 # MM 72 EBANK 7 PRIO 13
010742,001192: 04,2500 27704 OCT 27704 # MM 68 EBANK 7 PRIO 13
010743,001193: 04,2501 27677 OCT 27677 # MM 63 EBANK 7 PRIO 13
010744,001194: 04,2502 27271 OCT 27271 # MM 57 EBANK 5 PRIO 13
010745,001195: 04,2503 27264 OCT 27264 # MM 52 EBANK 5 PRIO 13
010746,001196: 04,2504 27263 OCT 27263 # MM 51 EBANK 5 PRIO 13
010747,001197: 04,2505 27657 OCT 27657 # MM 47 EBANK 7 PRIO 13
010748,001198: 04,2506 27652 OCT 27652 # MM 42 EBANK 7 PRIO 13
010749,001199: 04,2507 27651 OCT 27651 # MM 41 EBANK 7 PRIO 13
010750,001200: 04,2510 27650 OCT 27650 # MM 40 EBANK 7 PRIO 13
010751,001201: 04,2511 27643 OCT 27643 # MM 35 EBANK 7 PRIO 13
010752,001202: 04,2512 27642 OCT 27642 # MM 34 EBANK 7 PRIO 13
010753,001203: 04,2513 27641 OCT 27641 # MM 33 EBANK 7 PRIO 13
010754,001204: 04,2514 27640 OCT 27640 # MM 32 EBANK 7 PRIO 13
010755,001205: 04,2515 27636 OCT 27636 # MM 30 EBANK 7 PRIO 13
010756,001206: 04,2516 27631 OCT 27631 # MM 25 EBANK 7 PRIO 13
010757,001207: 04,2517 27626 OCT 27626 # MM 22 EBANK 7 PRIO 13
010758,001208: 04,2520 27625 OCT 27625 # MM 21 EBANK 7 PRIO 13
010759,001209: 04,2521 27624 OCT 27624 # MM 20 EBANK 7 PRIO 13
010760,001210: 04,2522 27614 OCT 27614 # MM 12 EBANK 7 PRIO 13
010761,001211: 04,2523 27006 OCT 27006 # MM 06 EBANK 4 PRIO 13
010762,001212: # NOTE, THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
010763,001213: # ---- THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
010764,001214: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
010765,001215:
010766,001216: 04,2524 00031 NOV37MM DEC 25 B-14 # MM'S - 1
010767,001217:
010768,001218:
010769,001219: 04,2525 DNLADMM1 EQUALS
010770,001220: 04,2525 00002 ADRES RENDEZVL # P77
010771,001221: 04,2526 00002 ADRES RENDEZVL # P76
010772,001222: 04,2527 00002 ADRES RENDEZVL # P75
010773,001223: 04,2530 00002 ADRES RENDEZVL # P74
010774,001224: 04,2531 00002 ADRES RENDEZVL # P73
010775,001225: 04,2532 00002 ADRES RENDEZVL # P72
010776,001226: 04,2533 00004 ADRES DESASCNT # P68
010777,001227: 04,2534 00004 ADRES DESASCNT # P63
010778,001228: 04,2535 00005 ADRES LUNRSALN # P57
010779,001229: 04,2536 00000 ADRES COSTALIL # P52
010780,001230: 04,2537 00000 ADRES COSTALIL # P51
010781,001231: 04,2540 00003 ADRES ORBMANUL # P47
010782,001232: 04,2541 00003 ADRES ORBMANUL # P42
010783,001233: 04,2542 00003 ADRES ORBMANUL # P41
010784,001234:
![]() |
Page 247 |
010786,001236: 04,2543 00003 ADRES ORBMANUL # P40
010787,001237: 04,2544 00002 ADRES RENDEZVL # P35
010788,001238: 04,2545 00002 ADRES RENDEZVL # P34
010789,001239: 04,2546 00002 ADRES RENDEZVL # P33
010790,001240: 04,2547 00002 ADRES RENDEZVL # P32
010791,001241: 04,2550 00002 ADRES RENDEZVL # P30
010792,001242: 04,2551 00002 ADRES RENDEZVL # P25
010793,001243: 04,2552 00005 ADRES LUNRSALN # P22
010794,001244: 04,2553 00002 ADRES RENDEZVL # P21
010795,001245: 04,2554 00002 ADRES RENDEZVL # P20
010796,001246: 04,2555 00004 ADRES DESASCNT # P12
010797,001247: 04,2556 00000 ADRES COSTALIL # P06
010798,001248: 04,2557 4746 DNLADP00 = ZERO
010799,001249: 04,2557 COSTALIL = 0
010800,001250: 04,2557 AGSUPDAT = 1
010801,001251: 04,2557 RENDEZVL = 2
010802,001252: 04,2557 ORBMANUL = 3
010803,001253: 04,2557 DESASCNT = 4
010804,001254: 04,2557 LUNRSALN = 5
010805,001255: 13,2026 BANK 13
010806,001256: 13,2000 SETLOC INTINIT
010807,001257: 13,2000 BANK
010808,001258:
010809,001259: 13,2026 COUNT* $$/INTIN
010810,001260:
010811,001261: 13,2026 E3,1554 EBANK= RRECTCSM
010812,001262:
010813,001263: # THIS ROUTINE DOES THE POO INTEGRATION
010814,001264:
010815,001265: 13,2026 43014 STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
010816,001266: 13,2027 01474 VINTFLAG
010817,001267: 13,2030 04347 SURFFLAG # ALSO 6X6 W-MATRIX IF LM ON LUNAR
010818,001268: 13,2031 26036 DOINT # SURFACE AND W-MATRIX VALID
010819,001269: 13,2032 43014 BOF SET # FOR RENDEZVOUS NAVIGATION.
010820,001270: 13,2033 02756 RENDWFLG
010821,001271: 13,2034 26036 DOINT
010822,001272: 13,2035 01476 DIM0FLAG
010823,001273: 13,2036 45014 DOINT CLEAR CALL
010824,001274: 13,2037 01667 PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
010825,001275: 13,2040 27172 INTEGRV # WHEN MODREG = 0
010826,001276:
010827,001277: 13,2041 71214 BON DLOAD
010828,001278: 13,2042 04307 SURFFLAG
010829,001279: 13,2043 26063 NO-INT
010830,001280: 13,2044 01571 TETCSM
010831,001281: 13,2045 34041 STCALL TDEC1
010832,001282: 13,2046 27447 INTSTALL
010833,001283: 13,2047 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
010834,001284: 13,2050 01674 VINTFLAG
010835,001285: 13,2051 26702 SETIFLGS
010836,001286:
![]() |
Page 248 |
010838,001288: 13,2052 77614 BOF # ALSO 9X9 W-MATRIX IF W IS VALID
010839,001289: 13,2053 02756 RENDWFLG
010840,001290: 13,2054 26060 DOINT2
010841,001291: 13,2055 43014 SET SET
010842,001292: 13,2056 01476 DIM0FLAG
010843,001293: 13,2057 01475 D6OR9FLG
010844,001294: 13,2060 45014 DOINT2 SET CALL
010845,001295: 13,2061 01467 PRECIFLG # DISENGAGE 4 TIME STEP LOGIC IN INTEG.
010846,001296: 13,2062 27172 INTEGRV
010847,001297: 13,2063 77614 NO-INT CLRGO
010848,001298: 13,2064 01236 NODOFLAG
010849,001299: 13,2065 26670 ENDINT
010850,001300:
010851,001301:
010852,001302: # THISVINT IS CALLED BY MIDTOAV1 AND2
010853,001303:
010854,001304: 13,2066 43414 THISVINT CLEAR RVQ
010855,001305: 13,2067 01674 VINTFLAG
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc