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