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