Source Code
|
These source-code files are part of a reconstructed copy of Luminary 178, the
final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Zerlina 56, Luminary 210, and
Luminary 131, previously transcribed from digitized copies of those programs.
The code was created by combining the three, using Zerlina 56 as a base, since
it was based off of Luminary 183. The differences between the three were
carefully merged using the Luminary memos as a guide, with all changes made
after Luminary 178 being backed out. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021152N. Note that page numbers
in the reconstructed code match those for the baseline log section mentioned in
each file's changelog; the page numbers for a real Luminary 178 listing would
be different.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
009122,000002: ## Copyright: Public domain.
009123,000003: ## Filename: FRESH_START_AND_RESTART.agc
009124,000004: ## Purpose: A section of Luminary revision 178.
009125,000005: ## It is part of the reconstructed source code for the final
009126,000006: ## release of the flight software for the Lunar Module's
009127,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
009128,000008: ## code has been recreated from copies of Zerlina 56, Luminary
009129,000009: ## 210, and Luminary 131, as well as many Luminary memos.
009130,000010: ## It has been adapted such that the resulting bugger words
009131,000011: ## exactly match those specified for Luminary 178 in NASA
009132,000012: ## drawing 2021152N, which gives relatively high confidence
009133,000013: ## that the reconstruction is correct.
009134,000014: ## Reference: pp. 218-244
009135,000015: ## Assembler: yaYUL
009136,000016: ## Contact: Ron Burkey <info@sandroid.org>.
009137,000017: ## Website: www.ibiblio.org/apollo/index.html
009138,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
009139,000019: ## 2019-09-01 MAS Updated for Luminary 178. Added clearing
009140,000020: ## of R12RDFLG, zeroing of R1SAVE, and
009141,000021: ## initialization of SAMPLIM to STARTSB2.
009142,000022: ## 2021-05-30 ABS CANTROD -> CANTROO
009143,000023:
|
|
Page 218
|
009145,000025: 10,2000 BANK 10
009146,000026: 05,2000 SETLOC FRANDRES
009147,000027: 05,2000 BANK
009148,000028:
009149,000029: 05,2460 E3,1400 EBANK= LST1
009150,000030:
009151,000031: 05,2460 COUNT* $$/START # FRESH AND RESTART
009152,000032: 05,2460 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
009153,000033: 05,2461 03116 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
009154,000034:
009155,000035: 05,2462 12467 STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION
009156,000036: 05,2463 34736 STARTSIM CAF BIT14
009157,000037: 05,2464 05105 TC FINDVAC
009158,000038: 05,2465 77777 SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF
009159,000039: 05,2466 77777 OCT 77777 # SIMULATION START ADDRESS.
009160,000040:
009161,000041: 05,2467 31035 SKIPSIM CA DSPTAB +11D
009162,000042: 05,2470 74771 MASK BITS4&6 # TURN OFF ALL DSPTAB +11D LAMPS
009163,000043: 05,2471 64735 AD BIT15 # EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
009164,000044: 05,2472 55035 TS DSPTAB +11D # REQUESTED FRESH START.
009165,000045:
009166,000046: 05,2473 34755 CA ZERO
009167,000047: 05,2474 55365 TS ERCOUNT
009168,000048: 05,2475 54375 TS FAILREG
009169,000049: 05,2476 54376 TS FAILREG +1
009170,000050: 05,2477 54377 TS FAILREG +2
009171,000051: 05,2500 54320 TS REDOCTR
009172,000052:
009173,000053: 05,2501 00006 EXTEND
009174,000054: 05,2502 01077 WRITE CHAN77 # ZERO CHANNEL 77
009175,000055:
009176,000056: 05,2503 44644 CS PRIO12
009177,000057: 05,2504 55310 TS DSRUPTSW
009178,000058:
009179,000059: 05,2505 34736 DOFSTART CAF BIT14 # INSURE ENGINE IS OFF.
009180,000060: 05,2506 00006 EXTEND
009181,000061: 05,2507 01011 WRITE DSALMOUT
009182,000062: 05,2510 44755 CS ZERO
009183,000063: 05,2511 54055 TS THRUST
009184,000064:
009185,000065: 05,2512 34751 DOFSTRT1 CAF FOUR
009186,000066: 05,2513 55262 TS RCSFLAGS # INITIALIZE ATTITUDE ERROR DISPLAYS.
009187,000067: 05,2514 34355 CA PRIO30
009188,000068: 05,2515 54366 TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS.
009189,000069:
009190,000070: 05,2516 34755 CA ZERO
009191,000071: 05,2517 55245 TS ABDELV # DAP INITIALIZATION
009192,000072: 05,2520 54371 TS NVSAVE
009193,000073: 05,2521 55071 TS EBANKTEM
|
|
Page 219
|
009195,000075: 05,2522 55257 TS CH5MASK
009196,000076: 05,2523 55260 TS CH6MASK
009197,000077: 05,2524 55273 TS PVALVEST # FOR RCS FAILURE MONITOR
009198,000078: 05,2525 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART
009199,000079: 05,2526 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART
009200,000080: 05,2527 54333 TS DNLSTCOD # SELECT POO DOWNLIST
009201,000081: 05,2530 55321 TS AGSWORD # ALLOW AGS INITIALIZATION
009202,000082: 05,2531 55501 TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
009203,000083: 05,2532 00006 EXTEND
009204,000084: 05,2533 01005 WRITE CHAN5 # TURN OFF RCS JETS.
009205,000085: 05,2534 00006 EXTEND
009206,000086: 05,2535 01006 WRITE CHAN6 # TURN OFF RCS JETS.
009207,000087: 05,2536 00006 EXTEND
009208,000088: 05,2537 01012 WRITE CHAN12
009209,000089: 05,2540 00006 EXTEND
009210,000090: 05,2541 01013 WRITE CHAN13
009211,000091: 05,2542 00006 EXTEND
009212,000092: 05,2543 01014 WRITE CHAN14
009213,000093: 05,2544 41035 CS DSPTAB +11D
009214,000094: 05,2545 74771 MASK BITS4&6
009215,000095: 05,2546 10000 CCS A
009216,000096: 05,2547 02553 TC +4
009217,000097: 05,2550 34771 CA BITS4&6
009218,000098: 05,2551 00006 EXTEND # THE IMU WAS IN COARSE ALIGN IN GIMBAL
009219,000099: 05,2552 05012 WOR CHAN12 # LOCK, SO PUT IT BACK INTO COARSE ALIGN.
009220,000100: 05,2553 02653 +4 TC MR.KLEAN
009221,000101:
009222,000102: 05,2554 44755 CS ZERO
009223,000103: 05,2555 55010 TS MODREG
009224,000104:
009225,000105: 05,2556 33376 CAF IM30INIF # FRESH START IMU INITIALIZATION.
009226,000106: 05,2557 55277 TS IMODES30
009227,000107:
009228,000108: 05,2560 33076 CAF MAXDB
009229,000109: 05,2561 55343 TS DB
009230,000110: 05,2562 34751 CAF FOUR
009231,000111: 05,2563 55322 TS RATEINDX # INITIALIZE KALCMANU RATE
009232,000112: 05,2564 33072 CA BOOLSTRT
009233,000113: 05,2565 54111 TS DAPBOOLS
009234,000114: 05,2566 35015 CAF EBANK6
009235,000115: 05,2567 54003 TS EBANK
009236,000116: 05,2570 E6,1400 EBANK= HIASCENT
009237,000117:
009238,000118: 05,2570 33070 CA STIKSTRT
009239,000119: 05,2571 55444 TS STIKSENS
009240,000120: 05,2572 33071 CA RATESTRT
009241,000121: 05,2573 55476 TS -RATEDB
009242,000122: 05,2574 32000 CAF FULLAPS # INITIALIZE MAXIMUM ASCENT MASS FOR USE
009243,000123: 05,2575 55400 TS HIASCENT # BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
009244,000124: 05,2576 33073 CA 77001OCT # LOAD DAP FILTER GAINS PAD LOAD
|
|
Page 220
|
009246,000126: 05,2577 55403 TS DKTRAP # TO BEST PRESENT ESTIMATE OF GOODIES
009247,000127: 05,2600 55406 TS LMTRAP # .14 DEG
009248,000128: 05,2601 33074 CA 60DEC
009249,000129: 05,2602 55405 TS DKKAOSN
009250,000130: 05,2603 55410 TS LMKAOSN # 6 SEC GAIN FOR ALPHA
009251,000131: 05,2604 34755 CA ZERO
009252,000132: 05,2605 55407 TS LMOMEGAN # UNITY GAIN
009253,000133: 05,2606 34363 CA TEN
009254,000134: 05,2607 55404 TS DKOMEGAN # 1 SEC GAIN FOR OMEGA
009255,000135: 05,2610 34744 CAF BIT8 # SET DOCKED DB TO 1.4 DEG. MAY OVERWRITE
009256,000136: 05,2611 55411 TS DKDB # WITH PAD LOAD.
009257,000137: 05,2612 35026 CAF IM33INIT
009258,000138: 05,2613 64746 AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
009259,000139: 05,2614 55300 TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED.
009260,000140:
009261,000141: 05,2615 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
009262,000142: 05,2616 33403 DCA SWINIT
009263,000143: 05,2617 52075 DXCH STATE
009264,000144: 05,2620 33404 CA SWINIT +2
009265,000145: 05,2621 54076 TS STATE +2
009266,000146: 05,2622 34737 CA REFSMBIT # DO NOT ALTER REFSMFLG ON FRESH START.
009267,000147: 05,2623 64741 AD NOP07BIT # NODOP07
009268,000148: 05,2624 70077 MASK STATE +3
009269,000149: 05,2625 63405 AD SWINIT +3
009270,000150: 05,2626 54077 TS STATE +3
009271,000151: 05,2627 00006 EXTEND
009272,000152: 05,2630 33407 DCA SWINIT +4
009273,000153: 05,2631 52101 DXCH STATE +4
009274,000154: 05,2632 00006 EXTEND
009275,000155: 05,2633 33411 DCA SWINIT +6
009276,000156: 05,2634 52103 DXCH STATE +6
009277,000157: 05,2635 33067 CA OCT6200 # CMOONFLG, LMOONFLG, SURFFLAG
009278,000158: 05,2636 70104 MASK STATE +8D
009279,000159: 05,2637 63412 AD SWINIT +8D
009280,000160: 05,2640 54104 TS STATE +8D
009281,000161: 05,2641 33413 CA SWINIT +9D
009282,000162: 05,2642 54105 TS STATE +9D
009283,000163: 05,2643 34737 CA APSFLBIT # DO NOT ALTER APSFLAG ON FRESH START.
009284,000164: 05,2644 70106 MASK STATE +10D
009285,000165: 05,2645 63414 AD SWINIT +10D
009286,000166: 05,2646 54106 TS STATE +10D
009287,000167: 05,2647 33415 CAF SWINIT +11D
009288,000168: 05,2650 54107 TS STATE +11D
009289,000169:
009290,000170: 05,2651 04635 ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK.
009291,000171: 05,2652 03212 CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DONT ZERO NEWJOB)
009292,000172:
009293,000173: 05,2653 00004 MR.KLEAN INHINT
009294,000174: 05,2654 00006 EXTEND
|
|
Page 221
|
009296,000176: 05,2655 34755 DCA NEG0
009297,000177: 05,2656 52754 DXCH -PHASE2
009298,000178: 05,2657 00006 POOKLEAN EXTEND
009299,000179: 05,2660 34755 DCA NEG0
009300,000180: 05,2661 52760 DXCH -PHASE4
009301,000181: 05,2662 00006 V37KLEAN EXTEND
009302,000182: 05,2663 34755 DCA NEG0
009303,000183: 05,2664 52762 DXCH -PHASE5
009304,000184: 05,2665 00006 ABTKLEAN EXTEND
009305,000185: 05,2666 34755 DCA NEG0
009306,000186: 05,2667 52756 DXCH -PHASE3
009307,000187: 05,2670 00006 EXTEND
009308,000188: 05,2671 34755 DCA NEG0
009309,000189: 05,2672 52752 DXCH -PHASE1
009310,000190: 05,2673 00006 EXTEND
009311,000191: 05,2674 34755 DCA NEG0
009312,000192: 05,2675 52764 DXCH -PHASE6
009313,000193: 05,2676 00002 TC Q
009314,000194:
|
|
Page 222
|
009316,000196: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME
009317,000197:
009318,000198: 05,2677 E3,1400 EBANK= LST1
009319,000199: 05,2677 24320 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
009320,000200:
009321,000201: 05,2700 22002 LXCH Q
009322,000202: 05,2701 00006 EXTEND
009323,000203: 05,2702 04007 ROR SUPERBNK
009324,000204: 05,2703 53433 DXCH RSBBQ
009325,000205: 05,2704 31035 CA DSPTAB +11D
009326,000206: 05,2705 74750 MASK BIT4
009327,000207: 05,2706 00006 EXTEND
009328,000208: 05,2707 12713 BZF +4
009329,000209: 05,2710 64746 AD BIT6 # SET ERROR COUNTER ENABLE
009330,000210: 05,2711 00006 EXTEND
009331,000211: 05,2712 05012 WOR CHAN12 # ISS WAS IN COARS ALIGN SO GO BACK TO
009332,000212: 05,2713 03077 BUTTONS TC LIGHTSET
009333,000213:
009334,000214: # ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
009335,000215: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
009336,000216: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
009337,000217: # EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
009338,000218: # C(ERESTORE) SHOULD EQUAL +0.
009339,000219:
009340,000220: 05,2714 34350 CAF HI5
009341,000221: 05,2715 71360 MASK ERESTORE
009342,000222: 05,2716 00006 EXTEND
009343,000223: 05,2717 12721 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
009344,000224: 05,2720 13114 TCF NONAVKEY +3 # DO FRESH START - E MEMORY MIGHT BE BAD
009345,000225: 05,2721 41360 CS ERESTORE
009346,000226: 05,2722 00006 EXTEND
009347,000227: 05,2723 12740 BZF DORSTART # = +0 CONTINUE WITH RESTART.
009348,000228: 05,2724 61377 AD SKEEP7
009349,000229: 05,2725 00006 EXTEND
009350,000230: 05,2726 12730 BZF +2 # = SKEEP7, RESTORE E MEMORY.
009351,000231: 05,2727 13114 TCF NONAVKEY +3 # DO FRESH START - E MEMORY MIGHT BE BAD
009352,000232: 05,2730 31374 CA SKEEP4
009353,000233: 05,2731 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST.
009354,000234: 05,2732 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
009355,000235: 05,2733 31376 DCA SKEEP5
009356,000236: 05,2734 51377 INDEX SKEEP7
009357,000237: 05,2735 52001 DXCH 0000 # E MEMORY RESTORED.
009358,000238: 05,2736 34755 CA ZERO
009359,000239: 05,2737 55360 TS ERESTORE
009360,000240: 05,2740 03116 DORSTART TC STARTSUB # DO INITIALIZATION AFTER ERASE RESTORE.
009361,000241:
009362,000242: 05,2741 44736 SETINFL CS INTFLBIT
009363,000243: 05,2742 70106 MASK FLGWRD10
009364,000244: 05,2743 54106 TS FLGWRD10
|
|
Page 223
|
009366,000246: 05,2744 33400 CA 9,6,4 # LEAVE PROG ALARM,GIMBAL LOCK, NO ATT
009367,000247: 05,2745 71035 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART
009368,000248: 05,2746 64735 AD BIT15
009369,000249: 05,2747 57035 XCH DSPTAB +11D
009370,000250: 05,2750 33364 CAF IFAILINH # LEAVE IMU FAILURE INHIBITS INTACT ON
009371,000251: 05,2751 71277 MASK IMODES30 # HARDWARE RESTART. RESET ALL FAILURE
009372,000252: 05,2752 63377 AD IM30INIR # CODES.
009373,000253: 05,2753 55277 TS IMODES30
009374,000254:
009375,000255: 05,2754 31321 CA AGSWORD # BE SURE OF CORRECT DOWNLIST
009376,000256: 05,2755 54333 TS DNLSTCOD
009377,000257:
009378,000258: 05,2756 34750 CA BIT4 # TURN ON THROTTLE COUNTER
009379,000259: 05,2757 00006 EXTEND
009380,000260: 05,2760 05014 WOR CHAN14 # TURN ON THRUST DRIVE
009381,000261: 05,2761 40101 CS FLAGWRD5
009382,000262: 05,2762 74745 MASK ENGONBIT
009383,000263: 05,2763 10000 CCS A
009384,000264: 05,2764 12771 TCF +5
009385,000265: 05,2765 34737 CAF BIT13
009386,000266: 05,2766 00006 EXTEND
009387,000267: 05,2767 05011 WOR DSALMOUT # TURN ENGINE ON
009388,000268: 05,2770 13005 TCF GOPROG3
009389,000269: 05,2771 34736 +5 CAF BIT14
009390,000270: 05,2772 00006 EXTEND
009391,000271: 05,2773 05011 WOR DSALMOUT # TURN ENGINE OFF.
009392,000272: 05,2774 13005 TCF GOPROG3
009393,000273:
009394,000274: 05,2775 00004 ENEMA INHINT
009395,000275: 05,2776 03125 TC STARTSB1
009396,000276: 05,2777 13001 TCF GOPROG2A
009397,000277: 05,3000 03170 GOPROG2 TC STARTSB2
009398,000278: 05,3001 03077 GOPROG2A TC LIGHTSET
009399,000279: 05,3002 43075 CS RSFLGBTS # BITS 7 AND 14.
009400,000280: 05,3003 70106 MASK FLGWRD10
009401,000281: 05,3004 54106 TS FLGWRD10
009402,000282:
009403,000283: 05,3005 34756 GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
009404,000284: 05,3006 54161 PCLOOP TS MPAC +5
009405,000285: 05,3007 60000 DOUBLE
009406,000286: 05,3010 00006 EXTEND
009407,000287: 05,3011 50000 INDEX A
009408,000288: 05,3012 30752 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L.
009409,000289: 05,3013 00006 EXTEND
009410,000290: 05,3014 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT.
009411,000291: 05,3015 10000 CCS A
009412,000292: 05,3016 13064 TCF PTBAD # RESTART FAILURE.
009413,000293: 05,3017 13064 TCF PTBAD
009414,000294: 05,3020 13064 TCF PTBAD
009415,000295:
|
|
Page 224
|
009417,000297: 05,3021 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
009418,000298: 05,3022 13006 TCF PCLOOP
009419,000299:
009420,000300: 05,3023 54162 TS MPAC +6 # SET TO +0.
009421,000301: 05,3024 05326 TC MMDSPLAY # DISPLAY MAJOR MODE
009422,000302:
009423,000303: 05,3025 00004 INHINT # RELINT DONE IN MMDSPLAY
009424,000304:
009425,000305: 05,3026 44736 CS DIDFLBIT # CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
009426,000306: 05,3027 70075 MASK FLAGWRD1 # RE-INITIALIZE ITSELF IF IT HAD BEEN
009427,000307: 05,3030 54075 TS FLAGWRD1 # OPERATING AT THE TIME OF THE RESTART.
009428,000308:
009429,000309: 05,3031 44740 CS RODFLBIT # CLEAR RODFLAG. IF P66 IS IN OPERATION
009430,000310: 05,3032 70075 MASK FLAGWRD1 # IT WILL RE-INITIALIZE ITSELF AND
009431,000311: 05,3033 54075 TS FLAGWRD1 # CONTINUE.
009432,000312:
009433,000313: 05,3034 44741 CS P21FLBIT # CLEAR P21FLAG SO THAT P21 WILL COMPUTE
009434,000314: 05,3035 70074 MASK FLAGWRD0 # NEW BASE STATE VECTORS.
009435,000315: 05,3036 54074 TS FLAGWRD0
009436,000316:
009437,000317: 05,3037 34756 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
009438,000318: 05,3040 54161 NXTRST TS MPAC +5
009439,000319: 05,3041 60000 DOUBLE
009440,000320: 05,3042 50000 INDEX A
009441,000321: 05,3043 10752 CCS PHASE1
009442,000322: 05,3044 13046 TCF PACTIVE # PNZ - GROUP ACTIVE.
009443,000323: 05,3045 13053 TCF PINACT # +0 - GROUP NOT RUNNING.
009444,000324:
009445,000325: 05,3046 54154 PACTIVE TS MPAC
009446,000326: 05,3047 24154 INCR MPAC # ABS OF PHASE.
009447,000327: 05,3050 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
009448,000328: 05,3051 04616 TC BANKCALL
009449,000329: 05,3052 03530 CADR RESTARTS
009450,000330: 05,3053 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
009451,000331: 05,3054 13040 TCF NXTRST
009452,000332:
009453,000333: 05,3055 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
009454,000334: 05,3056 12651 TCF ENDRSTRT # PHASE ACTIVE
009455,000335: 05,3057 34735 CAF BIT15 # IS MODE -0
009456,000336: 05,3060 71010 MASK MODREG
009457,000337: 05,3061 00006 EXTEND
009458,000338: 05,3062 16001 BZF GOTOPOOH # NO
009459,000339: 05,3063 12651 TCF ENDRSTRT # YES
009460,000340: 05,3064 05600 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
009461,000341: 05,3065 01107 OCT 1107
009462,000342:
009463,000343: 05,3066 12512 TCF DOFSTRT1
009464,000344:
009465,000345: # ******** ****** ******
|
|
Page 225
|
009467,000347: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
009468,000348:
009469,000349: 05,3067 4737 OCT10000 = BIT13
009470,000350: 05,3067 4355 OCT30000 = PRIO30
009471,000351: 05,3067 06200 OCT6200 OCT 6200 # SURFBIT, CMOONBIT, LMOONBIT FOR SWINITS
009472,000352: 05,3070 32321 STIKSTRT DEC 0.825268 # 20 D/S MAXIMUM COMMANDED RATE
009473,000353: 05,3071 77445 RATESTRT DEC -218 B-14
009474,000354: 05,3072 21322 BOOLSTRT OCT 21322
009475,000355: 05,3073 77001 77001OCT OCT 77001 # .14 DEG SCALED AT 4.5 DEG
009476,000356: 05,3074 00074 60DEC DEC 60 B-14
009477,000357: 05,3075 20100 RSFLGBTS OCT 20100
009478,000358: 05,3076 03434 MAXDB OCTAL 03434 # 5 DEG ATTITUDE DEADBAND, SCALED AT 45.
009479,000359:
009480,000360: 05,3077 34747 LIGHTSET CAF BIT5 # CHECK FOR MARK REJECT AND ERROR RESET
009481,000361: 05,3100 00006 EXTEND
009482,000362: 05,3101 02016 RAND NAVKEYIN
009483,000363: 05,3102 00006 EXTEND
009484,000364: 05,3103 13111 BZF NONAVKEY # NO MARK REJECT
009485,000365: 05,3104 00006 EXTEND
009486,000366: 05,3105 00015 READ MNKEYIN # CHECK IF KEYS 2M AND 5M ON
009487,000367: 05,3106 63375 AD -ELR # MAIN DSKY KEYCODE(BITS 1-5)
009488,000368: 05,3107 00006 EXTEND
009489,000369: 05,3110 13112 BZF +2
009490,000370:
009491,000371: 05,3111 00002 NONAVKEY TC Q
009492,000372:
009493,000373: 05,3112 03116 TC STARTSUB
009494,000374: 05,3113 12505 TCF DOFSTART
009495,000375: 05,3114 03116 +3 TC STARTSUB
009496,000376: 05,3115 12512 TCF DOFSTRT1 # DO FRESH START BUT DON'T TOUCH ENGINE
009497,000377:
|
|
Page 226
|
009499,000379: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
009500,000380:
009501,000381: 05,3116 E6,1536 EBANK= AOSQ
009502,000382: 05,3116 33365 STARTSUB CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL
009503,000383: 05,3117 54335 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE
009504,000384: # INTERRUPTED AND START SENDING FROM THE
009505,000385: # BEGINNING OF THE CURRENT DOWNLIST.
009506,000386: 05,3120 34746 CAF BIT6
009507,000387: 05,3121 00006 EXTEND
009508,000388: 05,3122 02033 RAND CHAN33
009509,000389: 05,3123 63401 AD RMODINIT
009510,000390: 05,3124 54110 TS RADMODES
009511,000391:
009512,000392: 05,3125 34733 STARTSB1 CAF POSMAX
009513,000393: 05,3126 54026 TS TIME3
009514,000394: 05,3127 67751 AD MINUS2
009515,000395: 05,3130 54027 TS TIME4
009516,000396: 05,3131 67752 AD NEGONE
009517,000397: 05,3132 54030 TS TIME5
009518,000398:
009519,000399: 05,3133 35015 CAF EBANK6
009520,000400: 05,3134 54003 TS EBANK
009521,000401:
009522,000402: 05,3135 44737 CS BIT13 # CAUSE DAPIDLER TO CALL 1/ACCS
009523,000403: 05,3136 71262 MASK RCSFLAGS
009524,000404: 05,3137 55262 TS RCSFLAGS # ZERO BIT 13
009525,000405: 05,3140 34733 CAF POSMAX # DISABLE TIME6 CLOCK. JUST IN CASE A T6
009526,000406: 05,3141 55466 TS T6NEXT # RUPT IS ALREADY IN THE PRIORITY CHAIN,
009527,000407: 05,3142 00006 EXTEND # ENSURE THAT IT'S INPUTS WILL RENDER IT
009528,000408: 05,3143 03013 WAND CHAN13 # INEFFECTUAL.
009529,000409: 05,3144 34755 CAF ZERO
009530,000410: 05,3145 55465 TS NXT6ADR
009531,000411: 05,3146 55472 TS NEXTP
009532,000412:
009533,000413: 05,3147 44751 CS ACCSOKAY
009534,000414: 05,3150 70111 MASK DAPBOOLS
009535,000415: 05,3151 54111 TS DAPBOOLS
009536,000416:
009537,000417: 05,3152 00006 EXTEND # SET T5RUPT FOR DAPIDLER PROGRAM.
009538,000418: 05,3153 33363 DCA IDLEADR
009539,000419: 05,3154 53264 DXCH T5ADR
009540,000420:
009541,000421: 05,3155 40107 CS FLGWRD11 # IF R12 IS PERMITTED, ENSURE THAT NEXT
009542,000422: 05,3156 74735 MASK LRBYBIT # RADAR READS ARE NOT USED
009543,000423: 05,3157 00006 EXTEND
009544,000424: 05,3160 13170 BZF STARTSB2 # R12 OFF
009545,000425:
009546,000426: 05,3161 24006 INCR BBANK # SET EBANK TO 7
009547,000427: 05,3162 E7,1674 EBANK= STILBADH
009548,000428: 05,3162 11674 CCS STILBADH # IF STILBADH>0, NEXT READ WILL BE IGNORED
|
|
Page 227
|
009550,000430: 05,3163 13165 TCF +2
009551,000431: 05,3164 25674 INCR STILBADH # SET STILBADH TO IGNORE NEXT READ
009552,000432:
009553,000433: 05,3165 11675 +2 CCS STILBADV
009554,000434: 05,3166 13170 TCF STARTSB2 # IF STILBADV >0,NEXT READ WILL BE IGNORED
009555,000435: 05,3167 25675 INCR STILBADV # SET STILBADV TO IGNORE NEXT READ
009556,000436:
009557,000437: 05,3170 33374 STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
009558,000438: 05,3171 00006 EXTEND # ENGINE ON, OFF AND ISS WARNING.
009559,000439: 05,3172 03011 WAND DSALMOUT
009560,000440:
009561,000441: 05,3173 43370 CS OCT32001
009562,000442: 05,3174 70110 MASK RADMODES
009563,000443: 05,3175 54110 TS RADMODES
009564,000444: 05,3176 33372 CAF OCT27470 # DURING SOFTWARE RESTART, DO NOT DISTURB
009565,000445: 05,3177 00006 EXTEND # IMU FLAGS. (COURSE ALIGN ENABLE, ZERO
009566,000446: 05,3200 03012 WAND CHAN12 # IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
009567,000447: # TRIM DRIVES. LEAVE RR LOCKON ENABLE
009568,000448: # ALONE.
009569,000449:
009570,000450: 05,3201 44751 CS R12RDBIT # R12RDFLG CLEARED TO ESCAPE FROM POSSIBLE
009571,000451: 05,3202 70107 MASK FLGWRD11 # "CCS NEWJOB" LOOP IN VUPDAT SEC. OF R12
009572,000452: 05,3203 54107 TS FLGWRD11
009573,000453:
009574,000454: 05,3204 44750 CS NORRMBIT # ENABLE R25.
009575,000455: 05,3205 70101 MASK FLAGWRD5
009576,000456: 05,3206 54101 TS FLAGWRD5
009577,000457:
009578,000458: 05,3207 44741 CS R77FLBIT # CLEAR R77FLAG
009579,000459: 05,3210 70101 MASK FLAGWRD5
009580,000460: 05,3211 54101 TS FLAGWRD5
009581,000461: 05,3212 33373 CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DUSTURB
009582,000462: 05,3213 00006 EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND
009583,000463: 05,3214 03013 WAND CHAN13 # ENABLE T6RUPT FLAG.
009584,000464:
009585,000465: 05,3215 34740 CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY
009586,000466: 05,3216 00006 EXTEND # RESUMES EXCEPT DURING P64)
009587,000467: 05,3217 05013 WOR CHAN13
009588,000468:
009589,000469: 05,3220 34771 CAF OCT50 # DURING SOFTWARE RESTART, DO NOT DISTURB
009590,000470: 05,3221 00006 EXTEND # GYRO ENABLE OR THRUST ENABLE
009591,000471: 05,3222 03014 WAND CHAN14
009592,000472:
009593,000473: 05,3223 E3,1400 EBANK= LST1
009594,000474: 05,3223 35007 CAF STARTEB
009595,000475: 05,3224 54003 TS EBANK # SET FOR E3
009596,000476:
009597,000477: 05,3225 34734 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
009598,000478: 05,3226 55407 TS LST1 +7
009599,000479: 05,3227 55406 TS LST1 +6
009600,000480: 05,3230 55405 TS LST1 +5
009601,000481: 05,3231 55404 TS LST1 +4
009602,000482: 05,3232 55403 TS LST1 +3
009603,000483: 05,3233 55402 TS LST1 +2
|
|
Page 228
|
009605,000485: 05,3234 55401 TS LST1 +1
009606,000486: 05,3235 55400 TS LST1
009607,000487:
009608,000488: 05,3236 45247 CS ENDTASK
009609,000489: 05,3237 55410 TS LST2
009610,000490: 05,3240 55412 TS LST2 +2
009611,000491: 05,3241 55414 TS LST2 +4
009612,000492: 05,3242 55416 TS LST2 +6
009613,000493: 05,3243 55420 TS LST2 +8D
009614,000494: 05,3244 55422 TS LST2 +10D
009615,000495: 05,3245 55424 TS LST2 +12D
009616,000496: 05,3246 55426 TS LST2 +14D
009617,000497: 05,3247 55430 TS LST2 +16D
009618,000498: 05,3250 45250 CS ENDTASK +1
009619,000499: 05,3251 55411 TS LST2 +1
009620,000500: 05,3252 55413 TS LST2 +3
009621,000501: 05,3253 55415 TS LST2 +5
009622,000502: 05,3254 55417 TS LST2 +7
009623,000503: 05,3255 55421 TS LST2 +9D
009624,000504: 05,3256 55423 TS LST2 +11D
009625,000505: 05,3257 55425 TS LST2 +13D
009626,000506: 05,3260 55427 TS LST2 +15D
009627,000507: 05,3261 55431 TS LST2 +17D
009628,000508:
009629,000509: 05,3262 44755 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
009630,000510: 05,3263 54167 TS PRIORITY # AVAILABLE.
009631,000511: 05,3264 54203 TS PRIORITY +12D
009632,000512: 05,3265 54217 TS PRIORITY +24D
009633,000513: 05,3266 54233 TS PRIORITY +36D
009634,000514: 05,3267 54247 TS PRIORITY +48D
009635,000515: 05,3270 54263 TS PRIORITY +60D
009636,000516: 05,3271 54277 TS PRIORITY +72D
009637,000517: 05,3272 54313 TS PRIORITY +84D
009638,000518:
009639,000519: 05,3273 55310 TS DSRUPTSW
009640,000520: 05,3274 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
009641,000521:
009642,000522: 05,3275 33367 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
009643,000523: 05,3276 54400 TS VAC1USE
009644,000524: 05,3277 63371 AD LTHVACA
009645,000525: 05,3300 54454 TS VAC2USE
009646,000526: 05,3301 63371 AD LTHVACA
009647,000527: 05,3302 54530 TS VAC3USE
009648,000528: 05,3303 63371 AD LTHVACA
009649,000529: 05,3304 54604 TS VAC4USE
009650,000530: 05,3305 63371 AD LTHVACA
009651,000531: 05,3306 54660 TS VAC5USE
009652,000532:
009653,000533: 05,3307 34363 CAF TEN
009654,000534: 05,3310 54154 DSPOFF TS MPAC # R1,R2,R3).
|
|
Page 229
|
009656,000536: 05,3311 44740 CS BIT12
009657,000537: 05,3312 50154 INDEX MPAC
009658,000538: 05,3313 55022 TS DSPTAB
009659,000539: 05,3314 10154 CCS MPAC
009660,000540: 05,3315 13310 TCF DSPOFF
009661,000541:
009662,000542: 05,3316 55323 TS DELAYLOC
009663,000543: 05,3317 55324 TS DELAYLOC +1
009664,000544: 05,3320 55325 TS DELAYLOC +2
009665,000545: 05,3321 55073 TS R1SAVE
009666,000546: 05,3322 54045 TS INLINK
009667,000547: 05,3323 54775 TS DSPCNT
009668,000548: 05,3324 55041 TS CADRSTOR
009669,000549: 05,3325 55012 TS REQRET
009670,000550: 05,3326 55014 TS CLPASS
009671,000551: 05,3327 55011 TS DSPLOCK
009672,000552: 05,3330 55017 TS MONSAVE # KILL MONITOR
009673,000553: 05,3331 55020 TS MONSAVE1
009674,000554: 05,3332 55000 TS VERBREG
009675,000555: 05,3333 55001 TS NOUNREG
009676,000556: 05,3334 55042 TS DSPLIST
009677,000557: 05,3335 55307 TS MARKSTAT
009678,000558: 05,3336 55043 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
009679,000559: 05,3337 55301 TS IMUCADR
009680,000560: 05,3340 55302 TS OPTCADR
009681,000561: 05,3341 55303 TS RADCADR
009682,000562: 05,3342 55304 TS ATTCADR
009683,000563: 05,3343 55311 TS LGYRO
009684,000564: 05,3344 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS
009685,000565: 05,3345 34760 CAF NOUTCON
009686,000566: 05,3346 55015 TS NOUT
009687,000567:
009688,000568: 05,3347 44753 CS ONE
009689,000569: 05,3350 55077 TS SAMPLIM
009690,000570: 05,3351 34746 CAF BIT6
009691,000571: 05,3352 71300 MASK IMODES33 # LEAVE BIT 6 UNCHANGED
009692,000572: 05,3353 65026 AD IM33INIT # NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
009693,000573: 05,3354 55300 TS IMODES33
009694,000574:
009695,000575: 05,3355 33366 CAF LESCHK # SELF CHECK GO-TO REGISTER.
009696,000576: 05,3356 55361 TS SELFRET
009697,000577:
009698,000578: 05,3357 44360 CS VD1
009699,000579: 05,3360 54776 TS DSPCOUNT
009700,000580:
009701,000581: 05,3361 00002 TC Q
009702,000582: 05,3362 E6,1536 EBANK= AOSQ
009703,000583: 05,3362 02024 34066 IDLEADR 2CADR DAPIDLER
009704,000584:
009705,000585: 05,3364 00435 IFAILINH OCT 435
009706,000586: 05,3365 03525 LDNPHAS1 GENADR DNPHASE1
009707,000587: 05,3366 03371 LESCHK GENADR SELFCHK
|
|
Page 230
|
009709,000589: 05,3367 00400 VAC1ADRC ADRES VAC1USE
009710,000590: 05,3370 32001 OCT32001 OCT 32001
009711,000591: 05,3371 00054 LTHVACA DEC 44 B-14
009712,000592:
009713,000593: 05,3372 27470 OCT27470 OCT 27470
009714,000594: 05,3373 74160 OCT74160 OCT 74160
009715,000595: 05,3374 30001 OCT30001 OCT 30001
009716,000596: 05,3375 5007 STARTEB EQUALS EBANK3
009717,000597: 05,3375 4756 NUMGRPS EQUALS FIVE
009718,000598: 05,3375 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
009719,000599: 05,3376 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
009720,000600: 05,3377 37000 IM30INIR OCT 37000
009721,000601: 05,3400 5026 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS.
009722,000602: 05,3400 00450 9,6,4 OCT 450
009723,000603: 05,3401 00102 RMODINIT OCT 00102
009724,000604: 05,3402 00000 SWINIT OCT 0
009725,000605: 05,3403 00000 OCT 0
009726,000606: 05,3404 00000 OCT 0
009727,000607: 05,3405 00000 OCT 0
009728,000608: 05,3406 00000 OCT 0
009729,000609: 05,3407 00000 OCT 0
009730,000610: 05,3410 00000 OCT 0
009731,000611: 05,3411 00100 OCT 00100
009732,000612:
009733,000613: 05,3412 00000 OCT 0
009734,000614: 05,3413 00000 OCT 0
009735,000615: 05,3414 00000 OCT 0
009736,000616: 05,3415 40000 OCT 40000 # BIT 15 = LRBYPASS.
009737,000617:
|
|
Page 231
|
009739,000619: # PROGRAM NAME GOTOPOOH ASSEMBLY SUNDANCE
009740,000620: # LOG SECTION FRESH START AND RESTART
009741,000621:
009742,000622: # FUNCTIONAL DESCRIPTION
009743,000623:
009744,000624: # FLASH V 37 ON DSKY %MM CHANGE REQUEST "
009745,000625:
009746,000626: # INPUT/OUTPUT INFORMATION
009747,000627:
009748,000628: # A. CALLING SEQUENCE TC GOTOPOOH
009749,000629:
009750,000630: # B. ERASABLE INITIALIZATION NONE
009751,000631:
009752,000632: # C. OUTPUT FLASH V 37 ON DSKY
009753,000633:
009754,000634: # D. DEBRIS L
009755,000635:
009756,000636: # PROGRAM ANALYSIS
009757,000637:
009758,000638: # A. SUBROUTINES CALLED PRIODSPR, LINUS
009759,000639:
009760,000640: # B. NORMAL EXIT TCF ENDOFJOB
009761,000641:
009762,000642: # C. ALARM AND ABORT EXITS NONE
009763,000643:
009764,000644: 6001 BLOCK 03
009765,000645: 6000 SETLOC FFTAG5
009766,000646: 6000 BANK
009767,000647:
009768,000648: 6001 COUNT* $$/P00
009769,000649: 6001 34764 GOTOPOOH CAF OCT33 # 4.33 SPOT FOR GOPOOFIX
009770,000650: 6002 54001 TS L
009771,000651: 6003 40000 COM
009772,000652: 6004 52760 DXCH -PHASE4
009773,000653:
009774,000654: 6005 04635 TC POSTJUMP
009775,000655: 6006 10024 CADR GOPOOFIX
009776,000656: 6007 00024 OCT24 MM 20 B-14
009777,000657: 6010 00031 OCT31 MM 25 B-14
009778,000658:
009779,000659: 20,2004 BANK 20
009780,000660: 04,2000 SETLOC VERB37
009781,000661: 04,2000 BANK
009782,000662:
009783,000663: 04,2024 COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4.
009784,000664: 04,2024 05527 GOPOOFIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
009785,000665: 04,2025 00311 ADRES XOVINFLG
009786,000666:
009787,000667: 04,2026 05527 TC DOWNFLAG # INSURE THAT ULLAGE IS OFF
009788,000668: 04,2027 00314 ADRES ULLAGFLG
009789,000669:
|
|
Page 232
|
009791,000671: 04,2030 05507 TC CLEARMRK +2 # RELEASE MARK DISPLAY SYSTEM.
009792,000672: 04,2031 32037 CAF V37N99
009793,000673: 04,2032 04616 TC BANKCALL
009794,000674: 04,2033 20477 CADR GOFLASH
009795,000675: 04,2034 12031 TCF -3
009796,000676: 04,2035 12031 TCF -4
009797,000677: 04,2036 12031 TCF -5
009798,000678:
009799,000679: 04,2037 11343 V37N99 VN 3799
009800,000680:
|
|
Page 233
|
009802,000682: # PROGRAM NAME V37 ASSEMBLY SUNDANCE
009803,000683:
009804,000684: # LOG SECTION FRESH START AND RESTART
009805,000685:
009806,000686: # FUNCTIONAL DESCRIPTION
009807,000687:
009808,000688: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
009809,000689: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
009810,000690: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
009811,000691: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
009812,000692: # 4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
009813,000693: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
009814,000694: # 6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
009815,000695: # 7. DISPLAY SYSTEM IS RELEASED.
009816,000696: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
009817,000697: # A. PROGRAM SELECTED IS P00.
009818,000698: # 1. RENDEZVOUS AND P25 FLAGS ARE RESET.(KILL P20 AND P25)
009819,000699: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
009820,000700: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER(MODREG).
009821,000701: # 4. SUPERBANK 3 IS SELECTED.
009822,000702: # 5. NODOFLAG IS RESET.
009823,000703: # 6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
009824,000704: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
009825,000705: # INITIATED.
009826,000706: # B. PROGRAM SELECTED IS P20 OR P25.
009827,000707: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
009828,000708: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
009829,000709: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
009830,000710: # ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
009831,000711: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
009832,000712: # P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS M M IS SET.
009833,000713: # 3. CONTROL IS TRANSFERRED TO GOPROG2.
009834,000714: # C. PROGRAM SELECTED IS NEITHER P00,P20, NOR P25
009835,000715: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
009836,000716: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
009837,000717: # GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
009838,000718: # TO CONTINUE.
009839,000719:
009840,000720: # INPUT/OUTPUT INFORMATION
009841,000721:
009842,000722: # A. CALLING SEQUENCE
009843,000723:
009844,000724: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
009845,000725: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
009846,000726: # MMCHANG EXECUTES A TC POSTJUMP, CADR V37.
009847,000727:
009848,000728: # B. ERASABLE INITIALIZATION NONE
009849,000729:
009850,000730: # C. OUTPUT
009851,000731:
|
|
Page 234
|
009853,000733: # MAJOR MODE CHANGE
009854,000734:
009855,000735: # D. DEBRIS
009856,000736: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
009857,000737: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
009858,000738:
009859,000739: # PROGRAM ANALYSIS
009860,000740:
009861,000741: # A. SUBROUTINES CALLED
009862,000742: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
009863,000743: # DSPMM
009864,000744:
009865,000745: # B. NORMAL EXIT TC ENDOFJOB
009866,000746:
009867,000747: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED)
009868,000748:
009869,000749: 04,2040 54774 V37 TS MMNUMBER # SAVE MAJOR MODE
009870,000750: 04,2041 34355 CAF PRIO30 # RESTART AT PINBALL PRIORITY
009871,000751: 04,2042 54366 TS RESTREG
009872,000752:
009873,000753: 04,2043 31277 CA IMODES30 # IS IMU BEINB INITIALIZED
009874,000754: 04,2044 74746 MASK BIT6
009875,000755: 04,2045 10000 CCS A
009876,000756: 04,2046 12065 TCF CANTROO
009877,000757:
009878,000758: 04,2047 40774 CS MMNUMBER # IS P70 REQUESTED?
009879,000759: 04,2050 62411 AD DEC70
009880,000760: 04,2051 00006 EXTEND
009881,000761: 04,2052 12404 BZF SETUP70 # YES
009882,000762: 04,2053 64753 AD ONE # IS P71 REQUESTED?
009883,000763: 04,2054 00006 EXTEND
009884,000764: 04,2055 12403 BZF SETUP71 # YES
009885,000765:
009886,000766: 04,2056 30774 CA MMNUMBER # IS NEW REQUEST POO
009887,000767: 04,2057 00006 EXTEND
009888,000768: 04,2060 12107 BZF ISSERVON # YES, CHECK SERVICER STATUS
009889,000769:
009890,000770: 04,2061 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
009891,000771: 04,2062 74753 MASK NODOBIT
009892,000772: 04,2063 10000 CCS A
009893,000773: 04,2064 12072 TCF CHECKTAB # NO
009894,000774: 04,2065 05600 CANTROO TC ALARM
009895,000775: 04,2066 01520 OCT 1520
009896,000776:
009897,000777: 04,2067 04457 V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
009898,000778:
009899,000779: 04,2070 04635 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
009900,000780: 04,2071 21051 CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ.
009901,000781:
009902,000782: 04,2072 32476 CHECKTAB CA NOV37MM # INDEX FOR MM TABLES.
|
|
Page 235
|
009904,000784: 04,2073 54155 AGAINMM TS MPAC +1
009905,000785: 04,2074 50155 NDX MPAC +1
009906,000786: 04,2075 32445 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR
009907,000787: 04,2076 76077 MASK LOW7
009908,000788: 04,2077 40000 COM
009909,000789: 04,2100 60774 AD MMNUMBER
009910,000790: 04,2101 10000 CCS A
009911,000791: 04,2102 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
009912,000792: 04,2103 12073 TCF AGAINMM # YES, GET NEXT ONE
009913,000793: 04,2104 12334 TCF V37NONO # LAST TIME OR PASSED MM
009914,000794:
009915,000795: 04,2105 30155 CA MPAC +1
009916,000796: 04,2106 54773 TS MINDEX # SAVE INDEX FOR LATER
009917,000797:
009918,000798: 04,2107 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET - I.E. IS SERVICER GOING
009919,000799: 04,2110 74746 MASK V37FLBIT
009920,000800: 04,2111 10000 CCS A
009921,000801: 04,2112 12136 TCF CANV37 # NO
009922,000802:
009923,000803: 04,2113 04727 TC SUPERSW
009924,000804: 04,2114 00004 INHINT
009925,000805: 04,2115 04674 TC IBNKCALL # YES, TURN ENGINE OFF
009926,000806: 04,2116 75556 CADR ENGINOF1
009927,000807: 04,2117 05527 TC DOWNFLAG # NOW TURN OFF THE AVERAGE G FLAG AND
009928,000808: 04,2120 00163 ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO V37RET.
009929,000809:
009930,000810: 04,2121 15155 TCF ENDOFJOB
009931,000811:
009932,000812: 04,2122 40074 V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
009933,000813: 04,2123 74745 MASK RNDVZBIT
009934,000814: 04,2124 10000 CCS A
009935,000815: 04,2125 12127 TCF +2 # NO. CHECK FOR P25.
009936,000816: 04,2126 12134 TCF 2.7SPT # YES. DO 2.7SPOT
009937,000817: 04,2127 40074 CS FLAGWRD0 # IS P25 RUNNING?
009938,000818: 04,2130 74743 MASK P25FLBIT
009939,000819: 04,2131 10000 CCS A
009940,000820: 04,2132 32400 2.0SPT CA OCT37667
009941,000821: 04,2133 64747 2.11SPT AD BIT5
009942,000822: 04,2134 62401 2.7SPT AD OCT40072
009943,000823: 04,2135 05370 TC PHSCHNGA
009944,000824:
009945,000825: 04,2136 34755 CANV37 CAF ZERO
009946,000826: 04,2137 00006 EXTEND
009947,000827: 04,2140 01007 WRITE SUPERBNK
009948,000828:
009949,000829: 04,2141 32377 CAF ROOAD
009950,000830: 04,2142 54374 TS TEMPFLSH
009951,000831:
009952,000832: 04,2143 05364 TC PHASCHNG
009953,000833: 04,2144 00014 OCT 14
009954,000834:
|
|
Page 236
|
009956,000836: 04,2145 06042 ROO TC INTPRET
009957,000837:
009958,000838: 04,2146 77624 CALL # WAIT FOR INTEGRATION TO FINISH
009959,000839: 04,2147 27410 INTSTALL
009960,000840: 04,2150 77776 DUMMYAD EXIT
009961,000841:
009962,000842: 04,2151 05527 TC DOWNFLAG
009963,000843: 04,2152 00124 ADRES 3AXISFLG # RESET 3-AXIS FLAG
009964,000844:
009965,000845: 04,2153 05527 TC DOWNFLAG
009966,000846: 04,2154 00055 ADRES POOHFLAG
009967,000847:
009968,000848: 04,2155 34735 CAF LRBYBIT # CLEAN UP THE R12 FLAGWORD.
009969,000849: 04,2156 54107 TS FLGWRD11
009970,000850:
009971,000851: 04,2157 05527 TC DOWNFLAG # INSURE THAT THE R04FLAG IS CLEAR.
009972,000852: 04,2160 00063 ADRES R04FLAG
009973,000853:
009974,000854: 04,2161 05527 TC DOWNFLAG
009975,000855: 04,2162 00056 ADRES GLOKFAIL # FLAGWORD 3 BIT 14
009976,000856:
009977,000857: 04,2163 05527 TC DOWNFLAG # INSURE MUNFLAG IS CLEAR.
009978,000858: 04,2164 00141 ADRES MUNFLAG
009979,000859:
009980,000860: 04,2165 05527 TC DOWNFLAG # RESET ABORT TARGETING FLAG (USE
009981,000861: 04,2166 00217 ADRES ABTTGFLG # PARAMETERS J1 AND KU)
009982,000862:
009983,000863: 04,2167 05527 TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
009984,000864: 04,2170 00311 ADRES XOVINFLG
009985,000865: 04,2171 10774 CCS MMNUMBER # IS THIS A POOH REQUEST
009986,000866: 04,2172 12322 TCF NOUVEAU # NO, PICK UP NEW PROGRAM
009987,000867:
009988,000868: 04,2173 04457 POOH TC RELDSP # RELEASE DISPLAY SYSTEM
009989,000869:
009990,000870: 04,2174 35017 CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
009991,000871: 04,2175 55055 TS PHSPRDT2 # P00 INTEGRATION.
009992,000872:
009993,000873: 04,2176 06011 TC CLRADMOD # CLRADMOD DOES AN INHINT.
009994,000874:
009995,000875: 04,2177 44753 CS NODOBIT # TURN OFF NODOFLAG.
009996,000876: 04,2200 70076 MASK FLAGWRD2
009997,000877: 04,2201 54076 TS FLAGWRD2
009998,000878:
009999,000879: 04,2202 34756 CA FIVE # SET RESTART FOR STATEINT1
010000,000880: 04,2203 54001 TS L
010001,000881: 04,2204 40000 COM
010002,000882: 04,2205 52754 DXCH -PHASE2
010003,000883:
010004,000884: 04,2206 42402 CS OCT700 # TURN OFF P20,P25,IMU IN USE FLAG
010005,000885: 04,2207 70074 MASK FLAGWRD0
|
|
Page 237
|
010007,000887: 04,2210 54074 TS FLAGWRD0 # RENDFLG
010008,000888:
010009,000889: 04,2211 34755 CAF DNLADP00
010010,000890:
010011,000891: 04,2212 54333 SEUDOPOO TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
010012,000892: 04,2213 55321 TS AGSWORD # (CURRENT LIST WILL BE COMPLETED BEFORE
010013,000893: # NEW ONE IS STARTED)
010014,000894: 04,2214 44741 CS NOP07BIT
010015,000895: 04,2215 70077 MASK FLAGWRD3
010016,000896: 04,2216 64741 AD NOP07BIT
010017,000897: 04,2217 54077 TS FLAGWRD3
010018,000898:
010019,000899: 04,2220 04674 TC IBNKCALL # INSURE ALLCOAST.
010020,000900: 04,2221 40205 CADR ALLCOAST # DOES A RESTORDB.
010021,000901:
010022,000902: 04,2222 44775 CS OCT120 # TURN OFF TRACK, UPDATE FLAGS
010023,000903: 04,2223 55071 TS EBANKTEM
010024,000904: 04,2224 70075 MASK FLAGWRD1
010025,000905: 04,2225 54075 TS FLAGWRD1
010026,000906:
010027,000907: 04,2226 04674 TC IBNKCALL # KILL GROUPS 1,3,5,6
010028,000908: 04,2227 12662 CADR V37KLEAN
010029,000909:
010030,000910: 04,2230 10774 CCS MMNUMBER # IS IT POOH
010031,000911: 04,2231 12240 TCF RENDVOO # NO
010032,000912: 04,2232 04674 GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
010033,000913: 04,2233 12657 CADR POOKLEAN
010034,000914:
010035,000915: 04,2234 30774 CA MMNUMBER
010036,000916: 04,2235 55010 TS MODREG
010037,000917:
010038,000918: 04,2236 04635 GOGOPROG TC POSTJUMP
010039,000919: 04,2237 13000 CADR GOPROG2
010040,000920:
010041,000921: 04,2240 41010 RENDVOO CS MODREG # IS CURRENT PROGRAM 22
010042,000922: 04,2241 62340 AD OCT26
010043,000923: 04,2242 00006 EXTEND
010044,000924: 04,2243 12262 BZF RESET22 # YES - CLEAR RENDEZVOUS FLAG
010045,000925:
010046,000926:
010047,000927: 04,2244 40774 CS MMNUMBER # IS NEW PROGRAM P22
010048,000928: 04,2245 62340 AD OCT26
010049,000929: 04,2246 00006 EXTEND
010050,000930: 04,2247 12262 BZF RESET22
010051,000931:
010052,000932:
010053,000933: 04,2250 67751 AD NEG2 # IS NEW PROGRAM = P20 OR P25
010054,000934: 04,2251 00006 EXTEND
010055,000935: 04,2252 12274 BZF RENDNOO # YES
010056,000936: 04,2253 64756 AD FIVE # 25
|
|
Page 238
|
010058,000938: 04,2254 00006 EXTEND
010059,000939: 04,2255 12274 BZF RENDNOO # YES
010060,000940:
010061,000941: 04,2256 32336 CA OCT500 # NO, IS EITHER P20 OR P25 RUNNING
010062,000942: 04,2257 70074 MASK FLAGWRD0
010063,000943: 04,2260 10000 CCS A
010064,000944: 04,2261 12271 TCF POOFIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
010065,000945:
010066,000946: 04,2262 42402 RESET22 CS OCT700 # CLEAR RENDEZVOUS,P25
010067,000947: 04,2263 70074 MASK FLAGWRD0 # AND IMU IN USE FLAGS
010068,000948: 04,2264 54074 TS FLAGWRD0
010069,000949: 04,2265 06011 TC CLRADMOD
010070,000950:
010071,000951: 04,2266 00006 KILL2 EXTEND # NO, KILL 2
010072,000952: 04,2267 34755 DCA NEG0
010073,000953: 04,2270 52754 DXCH -PHASE2
010074,000954:
010075,000955: 04,2271 32376 POOFIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ
010076,000956: 04,2272 54374 TS TEMPFLSH
010077,000957:
010078,000958: 04,2273 12236 TCF GOGOPROG
010079,000959:
010080,000960: 04,2274 41010 RENDNOO CS MODREG
010081,000961: 04,2275 66007 AD OCT24
010082,000962: 04,2276 00006 EXTEND
010083,000963: 04,2277 12266 BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 -
010084,000964:
010085,000965: 04,2300 64756 AD FIVE
010086,000966: 04,2301 00006 EXTEND
010087,000967: 04,2302 12266 BZF KILL2
010088,000968:
010089,000969: 04,2303 32336 CA OCT500
010090,000970: 04,2304 70074 MASK FLAGWRD0
010091,000971: 04,2305 60774 AD MMNUMBER
010092,000972: 04,2306 40000 COM
010093,000973: 04,2307 62341 AD P20REG # IS IT 20 AND IS RENDEZVOUS FLAG ON
010094,000974: 04,2310 00006 EXTEND
010095,000975: 04,2311 12316 BZF STATQUO # YES
010096,000976: 04,2312 62337 AD OCT305 # IS IT 25 AND IS P25 BIT ON
010097,000977: 04,2313 00006 EXTEND
010098,000978: 04,2314 12316 BZF STATQUO # YES, LEAVE AS IS
010099,000979: 04,2315 12266 TCF KILL2
010100,000980:
010101,000981: 04,2316 40075 STATQUO CS FLAGWRD1 # SET TRACKFLAG
010102,000982: 04,2317 74775 MASK OCT120 # UPDATE FLAG
010103,000983: 04,2320 26075 ADS FLAGWRD1
010104,000984:
010105,000985: 04,2321 12232 TCF GOMOD
010106,000986:
010107,000987: 04,2322 32336 NOUVEAU CAF OCT500 # IS P20 OR P25 FLAG SET
|
|
Page 239
|
010109,000989: 04,2323 70074 MASK FLAGWRD0
010110,000990: 04,2324 10000 CCS A
010111,000991: 04,2325 12330 TCF +3 # YES
010112,000992: 04,2326 05527 TC DOWNFLAG # NO,RESET IMUINUSE FLAG
010113,000993: 04,2327 00007 ADRES IMUSE
010114,000994:
010115,000995: 04,2330 50773 INDEX MINDEX
010116,000996: 04,2331 32477 CAF DNLADMM1 # OBTAIN APPROPRIATE DOWNLIST ADDRESS
010117,000997:
010118,000998: 04,2332 00004 INHINT
010119,000999: 04,2333 12212 TCF SEUDOPOO
010120,001000:
010121,001001: 04,2334 04364 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESNT EXIST
010122,001002:
010123,001003: 04,2335 12067 TCF V37BAD
010124,001004:
010125,001005: 04,2336 4750 OCT00010 EQUALS BIT4
010126,001006: 04,2336 00500 OCT500 OCT 500 # BITS 7 AND 9
010127,001007: 04,2337 00305 OCT305 OCT 305
010128,001008: 04,2340 00026 OCT26 OCT 26
010129,001009: 04,2341 00124 P20REG OCT 124
010130,001010:
010131,001011: 04,2342 00004 V37XEQ INHINT
010132,001012: 04,2343 50773 INDEX MINDEX
010133,001013: 04,2344 32445 CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM
010134,001014: 04,2345 55057 TS MMTEMP
010135,001015: 04,2346 54020 TS CYR # SHIFT RIGHT TO BITS 14 - 10
010136,001016:
010137,001017: 04,2347 30020 CA CYR
010138,001018: 04,2350 77730 MASK PRIO37
010139,001019: 04,2351 55061 TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
010140,001020: 04,2352 54063 TS NEWPRIO # STORE PRIO FOR SPVAC
010141,001021:
010142,001022: 04,2353 31057 CA MMTEMP # OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
010143,001023: 04,2354 00006 EXTEND
010144,001024: 04,2355 74744 MP BIT8
010145,001025: 04,2356 74757 MASK LOW3
010146,001026: 04,2357 54001 TS L
010147,001027:
010148,001028: 04,2360 50773 INDEX MINDEX
010149,001029: 04,2361 32414 CAF FCADRMM1
010150,001030: 04,2362 55060 TS BASETEMP # MAKE BBCON BY ADDING HI5 OF FCADR
010151,001031: 04,2363 74350 MASK HI5
010152,001032: 04,2364 26001 ADS L
010153,001033:
010154,001034: 04,2365 31060 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
010155,001035: 04,2366 75012 MASK LOW10
010156,001036: 04,2367 64741 AD BIT11
010157,001037:
010158,001038: 04,2370 05116 TC SPVAC
010159,001039:
|
|
Page 240
|
010161,001041: 04,2371 31057 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
010162,001042: 04,2372 76077 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
010163,001043: 04,2373 05325 TC NEWMODEA # PHSPRDT1)
010164,001044:
010165,001045: 04,2374 04457 TC RELDSP # RELEASE DISPLAY
010166,001046: 04,2375 05155 TC ENDOFJOB # AND EXIT
010167,001047:
010168,001048: 04,2376 5661 NEG7 EQUALS OCT77770
010169,001049:
010170,001050: 04,2376 1057 MMTEMP EQUALS PHSPRDT3
010171,001051: 04,2376 1060 BASETEMP EQUALS TBASE4
010172,001052: 04,2376 10345 V37QCAD CADR V37XEQ +3
010173,001053: 04,2377 10150 ROOAD CADR DUMMYAD
010174,001054: 04,2400 37667 OCT37667 OCT 37667
010175,001055: 04,2401 40072 OCT40072 OCT 40072
010176,001056: 04,2402 00700 OCT700 OCT 700
010177,001057:
010178,001058: 04,2403 36250 SETUP71 CAF THREE
010179,001059: 04,2404 54002 SETUP70 TS Q
010180,001060: 04,2405 00006 EXTEND
010181,001061: 04,2406 32413 DCA P70CADR
010182,001062: 04,2407 60002 AD Q
010183,001063: 04,2410 52006 DTCB
010184,001064:
010185,001065: 04,2411 00106 DEC70 DEC 70 B-14
010186,001066: 04,2412 E7,1520 EBANK= R
010187,001067: 04,2412 02072 42067 P70CADR 2CADR P70
010188,001068: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
010189,001069: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
010190,001070: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
010191,001071:
010192,001072: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
010193,001073:
010194,001074: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
010195,001075: # THE MAJOR MODE. FOR EXAMPLE,
010196,001076:
010197,001077: # FCADRMM1 FCADR P79 START OF P 79
010198,001078: # FCADR PROG18 START OF P 18
010199,001079: # FCADR P01 START OF P 01
010200,001080:
010201,001081: # NOTE, THE FIRST ENTRY MUST BE LABLED FCADRMM1.
010202,001082: # ----
010203,001083:
010204,001084: 04,2414 26207 FCADRMM1 FCADR P76
010205,001085: 04,2415 72647 FCADR P75
010206,001086: 04,2416 72457 FCADR P74
010207,001087: 04,2417 72225 FCADR P73
010208,001088: 04,2420 72036 FCADR P72
010209,001089: 04,2421 71271 FCADR LANDJUNK
|
|
Page 241
|
010211,001091: 04,2422 64562 FCADR P63LM
010212,001092: 04,2423 33310 FCADR P57
010213,001093: 04,2424 32067 FCADR PROG52
010214,001094: 04,2425 31421 FCADR P51
010215,001095: 04,2426 75437 FCADR P47LM
010216,001096: 04,2427 75411 FCADR P42LM
010217,001097: 04,2430 75271 FCADR P41LM
010218,001098: 04,2431 75146 FCADR P40LM
010219,001099: 04,2432 72643 FCADR P35
010220,001100: 04,2433 72455 FCADR P34
010221,001101: 04,2434 72223 FCADR P33
010222,001102: 04,2435 72034 FCADR P32
010223,001103: 04,2436 72000 FCADR P30
010224,001104: 04,2437 50462 FCADR PROG25
010225,001105: 04,2440 50000 FCADR PROG22
010226,001106: 04,2441 51440 FCADR PROG21
010227,001107: 04,2442 50000 FCADR PROG20
010228,001108: 04,2443 60061 FCADR P12LM
010229,001109: 04,2444 77654 FCADR P06
010230,001110: # THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
010231,001111: # INFORMATION, IT IS IN THE FOLLOWING FORM,
010232,001112:
010233,001113: # PPP PPE EEM MMM MMM
010234,001114:
010235,001115: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
010236,001116: # 3 E BITS CONTAIN THE E-BANK NUMBER
010237,001117: # 5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
010238,001118: # TO BE STARTED
010239,001119:
010240,001120: # FOR EXAMPLE,
010241,001121:
010242,001122: # PREMM1 OCT 67213 PRIORITY 33
010243,001123: # E-BANK 5
010244,001124: # MAJOR MODE 11
010245,001125: # OCT 25437 PRIORITY 12
010246,001126: # E-BANK 6
010247,001127: # MAJOR MODE 31
010248,001128:
010249,001129: # NOTE, THE FIRST ENTRY MUST BE LABELED PREMM1
010250,001130: 04,2445 27714 PREMM1 OCT 27714 # MM 76 EBANK 7 PRIO 13
010251,001131: 04,2446 27713 OCT 27713 # MM 75 EBANK 7 PRIO 13
010252,001132: 04,2447 27712 OCT 27712 # MM 74 EBANK 7 PRIO 13
010253,001133: 04,2450 27711 OCT 27711 # MM 73 EBANK 7 PRIO 13
010254,001134: 04,2451 27710 OCT 27710 # MM 72 EBANK 7 PRIO 13
010255,001135: 04,2452 27704 OCT 27704 # MM 68 EBANK 7 PRIO 13
010256,001136: 04,2453 27677 OCT 27677 # MM 63 EBANK 7 PRIO 13
010257,001137: 04,2454 27271 OCT 27271 # MM 57 EBANK 5 PRIO 13
010258,001138: 04,2455 27264 OCT 27264 # MM 52 EBANK 5 PRIO 13
010259,001139: 04,2456 27263 OCT 27263 # MM 51 EBANK 5 PRIO 13
010260,001140: 04,2457 27657 OCT 27657 # MM 47 EBANK 7 PRIO 13
|
|
Page 242
|
010262,001142: 04,2460 27652 OCT 27652 # MM 42 EBANK 7 PRIO 13
010263,001143: 04,2461 27651 OCT 27651 # MM 41 EBANK 7 PRIO 13
010264,001144: 04,2462 27650 OCT 27650 # MM 40 EBANK 7 PRIO 13
010265,001145: 04,2463 27643 OCT 27643 # MM 35 EBANK 7 PRIO 13
010266,001146: 04,2464 27642 OCT 27642 # MM 34 EBANK 7 PRIO 13
010267,001147: 04,2465 27641 OCT 27641 # MM 33 EBANK 7 PRIO 13
010268,001148: 04,2466 27640 OCT 27640 # MM 32 EBANK 7 PRIO 13
010269,001149: 04,2467 27636 OCT 27636 # MM 30 EBANK 7 PRIO 13
010270,001150: 04,2470 27631 OCT 27631 # MM 25 EBANK 7 PRIO 13
010271,001151: 04,2471 27626 OCT 27626 # MM 22 EBANK 7 PRIO 13
010272,001152: 04,2472 27625 OCT 27625 # MM 21 EBANK 7 PRIO 13
010273,001153: 04,2473 27624 OCT 27624 # MM 20 EBANK 7 PRIO 13
010274,001154: 04,2474 27614 OCT 27614 # MM 12 EBANK 7 PRIO 13
010275,001155: 04,2475 27006 OCT 27006 # MM 06 EBANK 4 PRIO 13
010276,001156: # NOTE, THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
010277,001157: # ---- THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
010278,001158: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
010279,001159:
010280,001160: 04,2476 00030 NOV37MM DEC 24 B-14 # MM'S -1
010281,001161:
010282,001162: 04,2477 00002 DNLADMM1 ADRES RENDEZVL # P76
010283,001163: 04,2500 00002 ADRES RENDEZVL # P75
010284,001164: 04,2501 00002 ADRES RENDEZVL # P74
010285,001165: 04,2502 00002 ADRES RENDEZVL # P73
010286,001166: 04,2503 00002 ADRES RENDEZVL # P72
010287,001167: 04,2504 00004 ADRES DESASCNT # P68
010288,001168: 04,2505 00004 ADRES DESASCNT # P63
010289,001169: 04,2506 00005 ADRES LUNRSALN # P57
010290,001170: 04,2507 00000 ADRES COSTALIL # P52
010291,001171: 04,2510 00000 ADRES COSTALIL # P51
010292,001172: 04,2511 00003 ADRES ORBMANUL # P47
010293,001173: 04,2512 00003 ADRES ORBMANUL # P42
010294,001174: 04,2513 00003 ADRES ORBMANUL # P41
010295,001175: 04,2514 00003 ADRES ORBMANUL # P40
010296,001176: 04,2515 00002 ADRES RENDEZVL # P35
010297,001177: 04,2516 00002 ADRES RENDEZVL # P34
010298,001178: 04,2517 00002 ADRES RENDEZVL # P33
010299,001179: 04,2520 00002 ADRES RENDEZVL # P32
010300,001180: 04,2521 00002 ADRES RENDEZVL # P30
010301,001181: 04,2522 00002 ADRES RENDEZVL # P25
010302,001182: 04,2523 00005 ADRES LUNRSALN # P22
010303,001183: 04,2524 00002 ADRES RENDEZVL # P21
010304,001184: 04,2525 00002 ADRES RENDEZVL # P20
010305,001185: 04,2526 00004 ADRES DESASCNT # P12
010306,001186: 04,2527 00000 ADRES COSTALIL # P06
010307,001187: 04,2530 4755 DNLADP00 = ZERO
010308,001188: 04,2530 COSTALIL = 0
010309,001189: 04,2530 AGSUPDAT = 1
010310,001190: 04,2530 RENDEZVL = 2
010311,001191: 04,2530 ORBMANUL = 3
|
|
Page 243
|
010313,001193: 04,2530 DESASCNT = 4
010314,001194: 04,2530 LUNRSALN = 5
010315,001195: 13,2026 BANK 13
010316,001196: 13,2000 SETLOC INTINIT
010317,001197: 13,2000 BANK
010318,001198:
010319,001199: 13,2026 COUNT* $$/INTIN
010320,001200:
010321,001201: 13,2026 E3,1554 EBANK= RRECTCSM
010322,001202:
010323,001203: # THIS ROUTINE DOES THE POO INTEGRATION
010324,001204:
010325,001205: 13,2026 43014 STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
010326,001206: 13,2027 01474 VINTFLAG
010327,001207: 13,2030 04347 SURFFLAG # ALSO 6X6 W-MATRIX IF LM ON LUNAR
010328,001208: 13,2031 26036 DOINT # SURFACE AND W-MATRIX VALID
010329,001209: 13,2032 43014 BOF SET # FOR RENDEZVOUS NAVIGATION.
010330,001210: 13,2033 02756 RENDWFLG
010331,001211: 13,2034 26036 DOINT
010332,001212: 13,2035 01476 DIM0FLAG
010333,001213: 13,2036 45014 DOINT CLEAR CALL
010334,001214: 13,2037 01667 PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
010335,001215: 13,2040 27133 INTEGRV # WHEN MODREG = 0
010336,001216:
010337,001217: 13,2041 71214 BON DLOAD
010338,001218: 13,2042 04307 SURFFLAG
010339,001219: 13,2043 26063 NO-INT
010340,001220: 13,2044 01571 TETCSM
010341,001221: 13,2045 34041 STCALL TDEC1
010342,001222: 13,2046 27410 INTSTALL
010343,001223: 13,2047 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
010344,001224: 13,2050 01674 VINTFLAG
010345,001225: 13,2051 26643 SETIFLGS
010346,001226: 13,2052 77614 BOF # ALSO 9X9 W-MATRIX IF W IS VALID
010347,001227: 13,2053 02756 RENDWFLG
010348,001228: 13,2054 26060 DOINT2
010349,001229: 13,2055 43014 SET SET
010350,001230: 13,2056 01476 DIM0FLAG
010351,001231: 13,2057 01475 D6OR9FLG
010352,001232: 13,2060 45014 DOINT2 SET CALL
010353,001233: 13,2061 01467 PRECIFLG # DISENGAGE 4 TIME STEP LOGIC IN INTEG.
010354,001234: 13,2062 27133 INTEGRV
010355,001235: 13,2063 77614 NO-INT CLRGO
010356,001236: 13,2064 01236 NODOFLAG
010357,001237: 13,2065 26631 ENDINT
010358,001238:
010359,001239:
010360,001240: # THISVINT IS CALLED BY MIDTOAV1 AND2
010361,001241:
010362,001242: 13,2066 43414 THISVINT CLEAR RVQ
|
|
Page 244
|
010364,001244: 13,2067 01674 VINTFLAG
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc