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