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