GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
009754,000002: ## Copyright: Public domain.
009755,000003: ## Filename: FRESH_START_AND_RESTART.agc
009756,000004: ## Purpose: The main source file for Luminary revision 069.
009757,000005: ## It is part of the source code for the original release
009758,000006: ## of the flight software for the Lunar Module's (LM) Apollo
009759,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
009760,000008: ## version was Luminary 69 revision 2, which included a
009761,000009: ## newer lunar gravity model and only affected module 2.
009762,000010: ## This file is intended to be a faithful transcription, except
009763,000011: ## that the code format has been changed to conform to the
009764,000012: ## requirements of the yaYUL assembler rather than the
009765,000013: ## original YUL assembler.
009766,000014: ## Reference: pp. 226-252
009767,000015: ## Assembler: yaYUL
009768,000016: ## Contact: Ron Burkey <info@sandroid.org>.
009769,000017: ## Website: www.ibiblio.org/apollo/index.html
009770,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
009771,000019: ## 2017-01-09 HG Transcribed
009772,000020: ## 2017-01-25 RSB Proofed comment text using octopus/prooferComments
009773,000021: ## and fixed errors found.
009774,000022: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
009775,000023: ## side-by-side diff of Luminary 69/99/116/131/210.
009776,000024: ## 2017-08-15 RSB Comment-text fixes identified in proofing vs AP11ROPE.
009777,000025:
|
|
Page 226 |
009779,000027: 10,2000 BANK 10
009780,000028: 05,2000 SETLOC FRANDRES
009781,000029: 05,2000 BANK
009782,000030:
009783,000031: 05,2447 E3,1400 EBANK= LST1
009784,000032:
009785,000033: 05,2447 COUNT* $$/START # FRESH AND RESTART
009786,000034: 05,2447 00004 SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
009787,000035: 05,2450 03100 TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
009788,000036:
009789,000037: 05,2451 12456 STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION
009790,000038: 05,2452 34736 STARTSIM CAF BIT14
009791,000039: 05,2453 05105 TC FINDVAC
009792,000040: 05,2454 77777 SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF
009793,000041: 05,2455 77777 OCT 77777 # SIMULATION START ADDRESS.
009794,000042:
009795,000043: 05,2456 31036 SKIPSIM CA DSPTAB +11D # TURN OFF ALL DSPTAB +11D LAMPS
009796,000044: 05,2457 74771 MASK BITS4&6 # EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
009797,000045: 05,2460 64735 AD BIT15 # REQUESTED FRESH START.
009798,000046: 05,2461 55036 TS DSPTAB +11D
009799,000047:
009800,000048: 05,2462 34740 CA BIT12 # INITIALIZE DOWNLINK ERASABLE MEMORY
009801,000049: 05,2463 54333 TS DUMPCNT # DUMP FOR ONE PASS.
009802,000050:
009803,000051: 05,2464 34755 CA ZERO
009804,000052: 05,2465 55365 TS ERCOUNT
009805,000053: 05,2466 54375 TS FAILREG
009806,000054: 05,2467 54376 TS FAILREG +1
009807,000055: 05,2470 54377 TS FAILREG +2
009808,000056: 05,2471 54320 TS REDOCTR
009809,000057:
009810,000058: 05,2472 44644 CS PRIO12
009811,000059: 05,2473 55313 TS DSRUPTSW
009812,000060:
009813,000061: 05,2474 34736 DOFSTART CAF BIT14 # INSURE ENGINE IS OFF.
009814,000062: 05,2475 00006 EXTEND
009815,000063: 05,2476 01011 WRITE DSALMOUT
009816,000064: 05,2477 44755 CS ZERO
009817,000065: 05,2500 54055 TS THRUST
009818,000066:
009819,000067: 05,2501 34751 DOFSTRT1 CAF FOUR
009820,000068: 05,2502 55273 TS RCSFLAGS # INITIALIZE ATTITUDE ERROR DISPLAYS.
009821,000069: 05,2503 34355 CA PRIO30
009822,000070: 05,2504 54366 TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS.
009823,000071:
009824,000072: 05,2505 34755 CA ZERO
009825,000073: 05,2506 55246 TS ABDELV # DAP INITIALIZATION
009826,000074: 05,2507 54371 TS NVSAVE
009827,000075: 05,2510 55072 TS EBANKTEM
009828,000076:
|
|
Page 227 |
009830,000078: 05,2511 55262 TS CH5MASK
009831,000079: 05,2512 55263 TS CH6MASK
009832,000080: 05,2513 55276 TS PVALVEST # FOR RCS FAILURE MONITOR
009833,000081: 05,2514 55360 TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART
009834,000082: 05,2515 55362 TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART
009835,000083: 05,2516 54332 TS DNLSTCOD # SELECT POO DOWNLIST
009836,000084: 05,2517 55324 TS AGSWORD # ALLOW AGS INITIALIZATION
009837,000085: 05,2520 55501 TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
009838,000086: 05,2521 00006 EXTEND
009839,000087: 05,2522 01005 WRITE CHAN5 # TURN OFF RCS JETS.
009840,000088: 05,2523 00006 EXTEND
009841,000089: 05,2524 01006 WRITE CHAN6 # TURN OFF RCS JETS.
009842,000090: 05,2525 00006 EXTEND
009843,000091: 05,2526 01012 WRITE CHAN12
009844,000092: 05,2527 00006 EXTEND
009845,000093: 05,2530 01013 WRITE CHAN13
009846,000094: 05,2531 00006 EXTEND
009847,000095: 05,2532 01014 WRITE CHAN14
009848,000096: 05,2533 41036 CS DSPTAB +11D
009849,000097: 05,2534 74771 MASK BITS4&6
009850,000098: 05,2535 10000 CCS A
009851,000099: 05,2536 02542 TC +4
009852,000100: 05,2537 34771 CA BITS4&6
009853,000101: 05,2540 00006 EXTEND # THE IMU WAS IN COARSE ALIGN IN GIMBAL
009854,000102: 05,2541 05012 WOR CHAN12 # LOCK, SO PUT IT BACK INTO COARSE ALIGN.
009855,000103: 05,2542 02643 +4 TC MR.KLEAN
009856,000104:
009857,000105: 05,2543 44755 CS ZERO
009858,000106: 05,2544 55011 TS MODREG
009859,000107:
009860,000108: 05,2545 33350 CAF IM30INIF # FRESH START IMU INITIALIZATION.
009861,000109: 05,2546 55302 TS IMODES30
009862,000110:
009863,000111: 05,2547 33062 CAF MAXDB
009864,000112: 05,2550 55346 TS DB
009865,000113: 05,2551 34751 CAF FOUR
009866,000114: 05,2552 55325 TS RATEINDX # INITIALIZE KALCMANU RATE
009867,000115: 05,2553 33056 CA BOOLSTRT
009868,000116: 05,2554 54111 TS DAPBOOLS
009869,000117: 05,2555 35015 CAF EBANK6
009870,000118: 05,2556 54003 TS EBANK
009871,000119: 05,2557 E6,1400 EBANK= HIASCENT
009872,000120:
009873,000121: 05,2557 33053 CA STIKSTRT
009874,000122: 05,2560 55442 TS STIKSENS
009875,000123: 05,2561 33054 CA RATESTRT
009876,000124: 05,2562 55474 TS -RATEDB
009877,000125: 05,2563 32000 CAF FULLAPS # INITIALIZE MAXIMUM ASCENT MASS FOR USE
009878,000126: 05,2564 55400 TS HIASCENT # BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
009879,000127: 05,2565 33057 CA 77001OCT # LOAD DAP FILTER GAINS PAD LOAD
009880,000128:
|
|
Page 228 |
009882,000130: 05,2566 55403 TS DKTRAP # TO BEST PRESENT ESTIMATE OF GOODIES
009883,000131: 05,2567 55406 TS LMTRAP # .14 DEG
009884,000132: 05,2570 33060 CA 60DEC
009885,000133: 05,2571 55405 TS DKKAOSN
009886,000134: 05,2572 55410 TS LMKAOSN # 6 SEC GAIN FOR ALPHA
009887,000135: 05,2573 34755 CA ZERO
009888,000136: 05,2574 55407 TS LMOMEGAN # UNITY GAIN
009889,000137: 05,2575 34363 CA TEN
009890,000138: 05,2576 55404 TS DKOMEGAN # 1 SEC GAIN FOR OMEGA
009891,000139: 05,2577 34744 CAF BIT8 # SET DOCKED DB TO 1.4 DEG. MAY OVERWRITE
009892,000140: 05,2600 55411 TS DKDB # WITH PAD LOAD.
009893,000141: 05,2601 35026 CAF IM33INIT
009894,000142: 05,2602 64746 AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
009895,000143: 05,2603 55303 TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED.
009896,000144:
009897,000145: 05,2604 00006 EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
009898,000146: 05,2605 33355 DCA SWINIT
009899,000147: 05,2606 52075 DXCH STATE
009900,000148: 05,2607 33356 CA SWINIT +2
009901,000149: 05,2610 54076 TS STATE +2
009902,000150: 05,2611 34737 CA REFSMBIT # DO NOT ALTER REFSMFLG ON FRESH START.
009903,000151: 05,2612 70077 MASK STATE +3
009904,000152: 05,2613 63357 AD SWINIT +3
009905,000153: 05,2614 54077 TS STATE +3
009906,000154: 05,2615 00006 EXTEND
009907,000155: 05,2616 33361 DCA SWINIT +4
009908,000156: 05,2617 52101 DXCH STATE +4
009909,000157: 05,2620 00006 EXTEND
009910,000158: 05,2621 33363 DCA SWINIT +6
009911,000159: 05,2622 52103 DXCH STATE +6
009912,000160: 05,2623 34744 CA SURFFBIT # DO NOT ALTER SURFFLAG ON FRESH START.
009913,000161: 05,2624 64740 AD CMOONBIT # CMOONFLG
009914,000162: 05,2625 64741 AD LMOONBIT # LMOONFLG
009915,000163: 05,2626 70104 MASK STATE +8D
009916,000164: 05,2627 63364 AD SWINIT +8D
009917,000165: 05,2630 54104 TS STATE +8D
009918,000166: 05,2631 33365 CA SWINIT +9D
009919,000167: 05,2632 54105 TS STATE +9D
009920,000168: 05,2633 34737 CA APSFLBIT # DO NOT ALTER APSFLAG ON FRESH START.
009921,000169: 05,2634 70106 MASK STATE +10D
009922,000170: 05,2635 63366 AD SWINIT +10D
009923,000171: 05,2636 54106 TS STATE +10D
009924,000172: 05,2637 33367 CAF SWINIT +11D
009925,000173: 05,2640 54107 TS STATE +11D
009926,000174:
009927,000175: 05,2641 04635 ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK.
009928,000176: 05,2642 03205 CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DONT ZERO NEWJOB)
009929,000177:
009930,000178: 05,2643 00004 MR.KLEAN INHINT
009931,000179:
|
|
Page 229 |
009933,000181: 05,2644 00006 EXTEND
009934,000182: 05,2645 34755 DCA NEG0
009935,000183: 05,2646 52755 DXCH -PHASE2
009936,000184: 05,2647 00006 POOKLEAN EXTEND
009937,000185: 05,2650 34755 DCA NEG0
009938,000186: 05,2651 52761 DXCH -PHASE4
009939,000187: 05,2652 00006 V37KLEAN EXTEND
009940,000188: 05,2653 34755 DCA NEG0
009941,000189: 05,2654 52753 DXCH -PHASE1
009942,000190: 05,2655 00006 EXTEND
009943,000191: 05,2656 34755 DCA NEG0
009944,000192: 05,2657 52757 DXCH -PHASE3
009945,000193: 05,2660 00006 EXTEND
009946,000194: 05,2661 34755 DCA NEG0
009947,000195: 05,2662 52763 DXCH -PHASE5
009948,000196: 05,2663 00006 EXTEND
009949,000197: 05,2664 34755 DCA NEG0
009950,000198: 05,2665 52765 DXCH -PHASE6
009951,000199: 05,2666 00002 TC Q
009952,000200:
|
|
Page 230 |
009954,000202: # COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHIC
009955,000203:
009956,000204: 05,2667 E3,1400 EBANK= LST1 # H MAY HAVE BEEN RUNNING AT THE TIME.
009957,000205: 05,2667 24320 GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
009958,000206:
009959,000207: 05,2670 22002 LXCH Q
009960,000208: 05,2671 00006 EXTEND
009961,000209: 05,2672 04007 ROR SUPERBNK
009962,000210: 05,2673 53433 DXCH RSBBQ
009963,000211: 05,2674 31036 CA DSPTAB +11D
009964,000212: 05,2675 74750 MASK BIT4
009965,000213: 05,2676 00006 EXTEND
009966,000214: 05,2677 12703 BZF +4
009967,000215: 05,2700 64746 AD BIT6 # SET ERROR COUNTER ENABLE
009968,000216: 05,2701 00006 EXTEND
009969,000217: 05,2702 05012 WOR CHAN12 # ISS WAS IN COARS ALIGN SO GO BACK TO
009970,000218: 05,2703 03100 TC STARTSUB
009971,000219:
009972,000220: # ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
009973,000221: # AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
009974,000222: # ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
009975,000223: # EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
009976,000224: # C(ERESTORE) SHOULD EQUAL +0.
009977,000225:
009978,000226: 05,2704 34350 CAF HI5
009979,000227: 05,2705 71360 MASK ERESTORE
009980,000228: 05,2706 00006 EXTEND
009981,000229: 05,2707 12711 BZF +2 # IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
009982,000230: 05,2710 12501 TCF DOFSTRT1 # DO FRESH START - E MEMORY MIGHT BE BAD.
009983,000231: 05,2711 41360 CS ERESTORE
009984,000232: 05,2712 00006 EXTEND
009985,000233: 05,2713 12730 BZF DORSTART # = +0 CONTINUE WITH RESTART.
009986,000234: 05,2714 61377 AD SKEEP7
009987,000235: 05,2715 00006 EXTEND
009988,000236: 05,2716 12720 BZF +2 # = SKEEP7, RESTORE E MEMORY.
009989,000237: 05,2717 12501 TCF DOFSTRT1 # DO FRESH START - E MEMORY MIGHT BE BAD.
009990,000238: 05,2720 31374 CA SKEEP4
009991,000239: 05,2721 54003 TS EBANK # EBANK OF E MEMORY THAT WAS UNDER TEST.
009992,000240: 05,2722 00006 EXTEND # (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
009993,000241: 05,2723 31376 DCA SKEEP5
009994,000242: 05,2724 51377 INDEX SKEEP7
009995,000243: 05,2725 52001 DXCH 0000 # E MEMORY RESTORED.
009996,000244: 05,2726 34755 CA ZERO
009997,000245: 05,2727 55360 TS ERESTORE
009998,000246: 05,2730 12731 DORSTART NOOP # REMOVE OSC FAIL AND LGC WARNING LOGIC
009999,000247: # SINCE SOFTWARE PROBLEMS NO LONGER
010000,000248: # CAUSE HARDWARE RESTARTS (EXCEPT PARITY).
010001,000249: 05,2731 03063 BUTTONS TC LIGHTSET # EXIT TO DOFSTART IF ERROR RESET AND
010002,000250: # MARK REJECT DEPRESSED SIMULTANEOUSLY
010003,000251:
|
|
Page 231 |
010005,000253: 05,2732 44736 SETINFL CS INTFLBIT
010006,000254: 05,2733 70106 MASK FLGWRD10
010007,000255: 05,2734 54106 TS FLGWRD10
010008,000256:
010009,000257: 05,2735 33352 CA 9,6,4 # LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
010010,000258: 05,2736 71036 MASK DSPTAB +11D # LAMPS INTACT ON HARDWARE RESTART
010011,000259: 05,2737 64735 AD BIT15
010012,000260: 05,2740 57036 XCH DSPTAB +11D
010013,000261: 05,2741 33336 CAF IFAILINH # LEAVE IMU FAILURE INHIBITS INTACT ON
010014,000262: 05,2742 71302 MASK IMODES30 # HARDWARE RESTART. RESET ALL FAILURE
010015,000263: 05,2743 63351 AD IM30INIR # CODES.
010016,000264: 05,2744 55302 TS IMODES30
010017,000265:
010018,000266: 05,2745 31324 CA AGSWORD # BE SURE OF CORRECT DOWNLIST
010019,000267: 05,2746 54332 TS DNLSTCOD
010020,000268:
010021,000269: 05,2747 34750 CA BIT4 # TURN ON THROTTLE COUNTER
010022,000270: 05,2750 00006 EXTEND
010023,000271: 05,2751 05014 WOR CHAN14 # TURN ON THRUST DRIVE
010024,000272: 05,2752 40101 CS FLAGWRD5
010025,000273: 05,2753 74745 MASK ENGONBIT
010026,000274: 05,2754 10000 CCS A
010027,000275: 05,2755 12762 TCF +5
010028,000276: 05,2756 34737 CAF BIT13
010029,000277: 05,2757 00006 EXTEND
010030,000278: 05,2760 05011 WOR DSALMOUT # TURN ENGINE ON
010031,000279: 05,2761 12776 TCF GOPROG3
010032,000280: 05,2762 34736 +5 CAF BIT14
010033,000281: 05,2763 00006 EXTEND
010034,000282: 05,2764 05011 WOR DSALMOUT # TURN ENGINE OFF.
010035,000283: 05,2765 12776 TCF GOPROG3
010036,000284:
010037,000285: 05,2766 00004 ENEMA INHINT
010038,000286: 05,2767 03115 TC STARTSB1
010039,000287: 05,2770 12772 TCF GOPROG2A
010040,000288: 05,2771 03137 GOPROG2 TC STARTSB2
010041,000289: 05,2772 03063 GOPROG2A TC LIGHTSET
010042,000290: 05,2773 43061 CS RSFLGBTS # CLEAR BITS 7 AND 14.
010043,000291: 05,2774 70106 MASK FLGWRD10
010044,000292: 05,2775 54106 TS FLGWRD10
010045,000293:
010046,000294: 05,2776 34756 GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
010047,000295: 05,2777 54161 PCLOOP TS MPAC +5
010048,000296: 05,3000 60000 DOUBLE
010049,000297: 05,3001 00006 EXTEND
010050,000298: 05,3002 50000 INDEX A
010051,000299: 05,3003 30753 DCA -PHASE1 # COMPLEMENT INTO A, DIRECT INTO L.
010052,000300: 05,3004 00006 EXTEND
010053,000301: 05,3005 06001 RXOR LCHAN # RESULT MUST BE -0 FOR AGREEMENT.
010054,000302: 05,3006 10000 CCS A
010055,000303:
|
|
Page 232 |
010057,000305: 05,3007 13047 TCF PTBAD # RESTART FAILURE.
010058,000306: 05,3010 13047 TCF PTBAD
010059,000307: 05,3011 13047 TCF PTBAD
010060,000308:
010061,000309: 05,3012 10161 CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
010062,000310: 05,3013 12777 TCF PCLOOP
010063,000311:
010064,000312: 05,3014 54162 TS MPAC +6 # SET TO +0.
010065,000313: 05,3015 05315 TC MMDSPLAY # DISPLAY MAJOR MODE
010066,000314:
010067,000315: 05,3016 00004 INHINT # RELINT DONE IN MMDSPLAY
010068,000316:
010069,000317: 05,3017 44736 CS DIDFLBIT # CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
010070,000318: 05,3020 70075 MASK FLAGWRD1 # RE-INITIALIZE ITSELF IF IT HAD BEEN
010071,000319: 05,3021 54075 TS FLAGWRD1 # OPERATING AT THE TIME OF THE RESTART.
010072,000320:
010073,000321: 05,3022 34756 CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
010074,000322: 05,3023 54161 NXTRST TS MPAC +5
010075,000323: 05,3024 60000 DOUBLE
010076,000324: 05,3025 50000 INDEX A
010077,000325: 05,3026 10753 CCS PHASE1
010078,000326: 05,3027 13031 TCF PACTIVE # PNZ - GROUP ACTIVE.
010079,000327: 05,3030 13036 TCF PINACT # +0 - GROUP NOT RUNNING.
010080,000328:
010081,000329: 05,3031 54154 PACTIVE TS MPAC
010082,000330: 05,3032 24154 INCR MPAC # ABS OF PHASE.
010083,000331: 05,3033 24162 INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
010084,000332: 05,3034 33055 CA RACTCADR
010085,000333: 05,3035 04622 TC SWCALL # MUST RETURN TO SWRETURN.
010086,000334:
010087,000335: 05,3036 10161 PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
010088,000336: 05,3037 13023 TCF NXTRST
010089,000337:
010090,000338: 05,3040 10162 CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
010091,000339: 05,3041 12641 TCF ENDRSTRT # PHASE ACTIVE
010092,000340: 05,3042 34735 CAF BIT15 # IS MODE -0
010093,000341: 05,3043 71011 MASK MODREG
010094,000342: 05,3044 00006 EXTEND
010095,000343: 05,3045 16001 BZF GOTOPOOH # NO
010096,000344: 05,3046 12641 TCF ENDRSTRT # YES
010097,000345: 05,3047 05567 PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
010098,000346: 05,3050 01107 OCT 1107
010099,000347:
010100,000348: 05,3051 12501 TCF DOFSTRT1
010101,000349: # ******** ****** ******
010102,000350:
010103,000351: # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
010104,000352:
010105,000353: 05,3052 4737 OCT10000 = BIT13
010106,000354:
|
|
Page 233 |
010108,000356: 05,3052 4355 OCT30000 = PRIO30
010109,000357: 05,3052 07777 OCT7777 OCT 7777
010110,000358: 05,3053 32321 STIKSTRT DEC 0.825268 # 20 D/S MAXIMUM COMMANDED RATE
010111,000359: 05,3054 77445 RATESTRT DEC -218 B-14
010112,000360: 05,3055 03523 RACTCADR CADR RESTARTS
010113,000361: 05,3056 21312 BOOLSTRT OCT 21312
010114,000362: 05,3057 77001 77001OCT OCT 77001 # .14 DEG SCALED AT 4.5 DEG
010115,000363: 05,3060 00074 60DEC DEC 60 B-14
010116,000364: 05,3061 20100 RSFLGBTS OCT 20100
010117,000365: 05,3062 03434 MAXDB OCTAL 03434 # 5 DEG ATTITUDE DEADBAND, SCALED AT 45.
010118,000366:
010119,000367: 05,3063 34747 LIGHTSET CAF BIT5 # CHECK FOR MARK REJECT AND ERROR RESET
010120,000368: 05,3064 00006 EXTEND
010121,000369: 05,3065 02016 RAND NAVKEYIN
010122,000370: 05,3066 00006 EXTEND
010123,000371: 05,3067 13075 BZF NONAVKEY # NO MARK REJECT
010124,000372: 05,3070 00006 EXTEND
010125,000373: 05,3071 00015 READ MNKEYIN # CHECK IF KEYS 2M AND 5M ON
010126,000374: 05,3072 63347 AD -ELR # MAIN DSKY KEYCODE (BITS 1-5)
010127,000375: 05,3073 00006 EXTEND
010128,000376: 05,3074 13076 BZF +2
010129,000377:
010130,000378: 05,3075 00002 NONAVKEY TC Q
010131,000379:
010132,000380: 05,3076 03100 TC STARTSUB
010133,000381: 05,3077 12474 TCF DOFSTART
010134,000382:
|
|
Page 234 |
010136,000384: # INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
010137,000385:
010138,000386: 05,3100 E6,1537 EBANK= AOSQ
010139,000387: 05,3100 33337 STARTSUB CAF LDNPHAS1 # SET POINTER SO NEXT 20MS DOWNRUPT WILL
010140,000388: 05,3101 54335 TS DNTMGOTO # CAUSE THE CURRENT DOWNLIST TO BE
010141,000389: # INTERRUPTED AND START SENDING FROM THE
010142,000390: # BEGINNING OF THE CURRENT DOWNLIST.
010143,000391: 05,3102 34746 CAF BIT6
010144,000392: 05,3103 00006 EXTEND
010145,000393: 05,3104 02033 RAND CHAN33
010146,000394: 05,3105 63353 AD RMODINIT
010147,000395: 05,3106 54110 TS RADMODES
010148,000396:
010149,000397: 05,3107 34733 CAF POSMAX
010150,000398: 05,3110 54026 TS TIME3
010151,000399: 05,3111 67745 AD MINUS2
010152,000400: 05,3112 54027 TS TIME4
010153,000401: 05,3113 67746 AD NEGONE
010154,000402: 05,3114 54030 TS TIME5
010155,000403:
010156,000404: 05,3115 35015 STARTSB1 CAF EBANK6
010157,000405: 05,3116 54003 TS EBANK
010158,000406:
010159,000407: 05,3117 44737 CS BIT13 # CAUSE DAPIDLER TO CALL 1/ACCS
010160,000408: 05,3120 71273 MASK RCSFLAGS
010161,000409: 05,3121 55273 TS RCSFLAGS # ZERO BIT 13
010162,000410: 05,3122 34733 CAF POSMAX # DISABLE TIME6 CLOCK. JUST IN CASE A T6
010163,000411: 05,3123 55464 TS T6NEXT # RUPT IS ALREADY IN THE PRIORITY CHAIN,
010164,000412: 05,3124 00006 EXTEND # ENSURE THAT IT'S INPUTS WILL RENDER IT
010165,000413: 05,3125 03013 WAND CHAN13 # INEFFECTUAL.
010166,000414: 05,3126 34755 CAF ZERO
010167,000415: 05,3127 55463 TS NXT6ADR
010168,000416: 05,3130 55470 TS NEXTP
010169,000417:
010170,000418: 05,3131 44751 CS ACCSOKAY
010171,000419: 05,3132 70111 MASK DAPBOOLS
010172,000420: 05,3133 54111 TS DAPBOOLS
010173,000421:
010174,000422: 05,3134 00006 EXTEND # SET T5RUPT FOR DAPIDLER PROGRAM.
010175,000423: 05,3135 33335 DCA IDLEADR
010176,000424: 05,3136 53275 DXCH T5ADR
010177,000425:
010178,000426: 05,3137 33346 STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
010179,000427: 05,3140 00006 EXTEND # ENGINE ON, OFF AND ISS WARNING.
010180,000428: 05,3141 03011 WAND DSALMOUT
010181,000429:
010182,000430: 05,3142 44743 CS READRBIT # CLEAR READRFLG FOR R29.
010183,000431: 05,3143 70077 MASK FLAGWRD3
010184,000432: 05,3144 54077 TS FLAGWRD3
010185,000433:
|
|
Page 235 |
010187,000435:
010188,000436: 05,3145 40077 CS FLAGWRD3 # DURING SOFTWARE RESTART,CLEAR TURNON,
010189,000437: 05,3146 74741 MASK NR29FBIT # REPOSITION,CDU ZERO AND REMODE BITS
010190,000438: 05,3147 00006 EXTEND # IN RADMODES,SINCE TASKS ASSOCIATED
010191,000439: 05,3150 13152 BZF +2 # WITH THESE BITS HAVE BEEN KILLED
010192,000440: 05,3151 34742 CAF BIT10 # ALSO IF R29 HAD BEEN REQUESTED,
010193,000441: 05,3152 63342 AD OCT32001 # (NOR29FLG = 0) CLEAR BIT 10 RADMODES
010194,000442: 05,3153 40000 COM # TO MAKE R29 FORGET IT HAD STARTED
010195,000443: 05,3154 70110 MASK RADMODES # DESIGNATING
010196,000444: 05,3155 54110 TS RADMODES
010197,000445: 05,3156 33344 CAF OCT27470 # DURING SOFTWARE RESTART, DO NOT DISTURB
010198,000446: 05,3157 00006 EXTEND # IMU FLAGS. (COURSE ALIGN ENABLE, ZERO
010199,000447: 05,3160 03012 WAND CHAN12 # IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
010200,000448: # TRIM DRIVES. LEAVE RR LOCKON ENABLE
010201,000449: # ALONE.
010202,000450:
010203,000451: 05,3161 44750 CS NORRMBIT # ENABLE R25.
010204,000452: 05,3162 70101 MASK FLAGWRD5
010205,000453: 05,3163 54101 TS FLAGWRD5
010206,000454:
010207,000455: 05,3164 33345 CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DUSTURB
010208,000456: 05,3165 00006 EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND
010209,000457: 05,3166 03013 WAND CHAN13 # ENABLE T6RUPT FLAG.
010210,000458:
010211,000459: 05,3167 34740 CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY
010212,000460: 05,3170 00006 EXTEND # RESUMES EXCEPT DURING P64)
010213,000461: 05,3171 05013 WOR CHAN13
010214,000462:
010215,000463: 05,3172 34746 CAF BIT6 # DURING SOFTWARE RESTART, DO NOT DISTURB
010216,000464: 05,3173 00006 EXTEND # GYRO ENABLE FLAG.
010217,000465: 05,3174 03014 WAND CHAN14
010218,000466:
010219,000467: 05,3175 E3,1400 EBANK= LST1
010220,000468: 05,3175 35007 CAF STARTEB
010221,000469: 05,3176 54003 TS EBANK # SET FOR E3
010222,000470:
010223,000471: 05,3177 34734 CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
010224,000472: 05,3200 55407 TS LST1 +7
010225,000473: 05,3201 55406 TS LST1 +6
010226,000474: 05,3202 55405 TS LST1 +5
010227,000475: 05,3203 55404 TS LST1 +4
010228,000476: 05,3204 55403 TS LST1 +3
010229,000477: 05,3205 55402 TS LST1 +2
010230,000478: 05,3206 55401 TS LST1 +1
010231,000479: 05,3207 55400 TS LST1
010232,000480:
010233,000481: 05,3210 45236 CS ENDTASK
010234,000482: 05,3211 55410 TS LST2
010235,000483: 05,3212 55412 TS LST2 +2
010236,000484: 05,3213 55414 TS LST2 +4
010237,000485: 05,3214 55416 TS LST2 +6
010238,000486:
|
|
Page 236 |
010240,000488: 05,3215 55420 TS LST2 +8D
010241,000489: 05,3216 55422 TS LST2 +10D
010242,000490: 05,3217 55424 TS LST2 +12D
010243,000491: 05,3220 55426 TS LST2 +14D
010244,000492: 05,3221 55430 TS LST2 +16D
010245,000493: 05,3222 45237 CS ENDTASK +1
010246,000494: 05,3223 55411 TS LST2 +1
010247,000495: 05,3224 55413 TS LST2 +3
010248,000496: 05,3225 55415 TS LST2 +5
010249,000497: 05,3226 55417 TS LST2 +7
010250,000498: 05,3227 55421 TS LST2 +9D
010251,000499: 05,3230 55423 TS LST2 +11D
010252,000500: 05,3231 55425 TS LST2 +13D
010253,000501: 05,3232 55427 TS LST2 +15D
010254,000502: 05,3233 55431 TS LST2 +17D
010255,000503:
010256,000504: 05,3234 44755 CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
010257,000505: 05,3235 54167 TS PRIORITY # AVAILABLE.
010258,000506: 05,3236 54203 TS PRIORITY +12D
010259,000507: 05,3237 54217 TS PRIORITY +24D
010260,000508: 05,3240 54233 TS PRIORITY +36D
010261,000509: 05,3241 54247 TS PRIORITY +48D
010262,000510: 05,3242 54263 TS PRIORITY +60D
010263,000511: 05,3243 54277 TS PRIORITY +72D
010264,000512: 05,3244 54313 TS PRIORITY +84D
010265,000513:
010266,000514: 05,3245 55313 TS DSRUPTSW
010267,000515: 05,3246 54067 TS NEWJOB # SHOWS NO ACTIVE JOBS.
010268,000516:
010269,000517: 05,3247 33341 CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
010270,000518: 05,3250 54400 TS VAC1USE
010271,000519: 05,3251 63343 AD LTHVACA
010272,000520: 05,3252 54454 TS VAC2USE
010273,000521: 05,3253 63343 AD LTHVACA
010274,000522: 05,3254 54530 TS VAC3USE
010275,000523: 05,3255 63343 AD LTHVACA
010276,000524: 05,3256 54604 TS VAC4USE
010277,000525: 05,3257 63343 AD LTHVACA
010278,000526: 05,3260 54660 TS VAC5USE
010279,000527:
010280,000528: 05,3261 34363 CAF TEN
010281,000529: 05,3262 54154 DSPOFF TS MPAC # R1,R2,R3).
010282,000530: 05,3263 44740 CS BIT12
010283,000531: 05,3264 50154 INDEX MPAC
010284,000532: 05,3265 55023 TS DSPTAB
010285,000533: 05,3266 10154 CCS MPAC
010286,000534: 05,3267 13262 TCF DSPOFF
010287,000535:
010288,000536: 05,3270 55326 TS DELAYLOC
010289,000537: 05,3271 55327 TS DELAYLOC +1
010290,000538:
|
|
Page 237 |
010292,000540: 05,3272 55330 TS DELAYLOC +2
010293,000541: 05,3273 55074 TS R1SAVE
010294,000542: 05,3274 54045 TS INLINK
010295,000543: 05,3275 54776 TS DSPCNT
010296,000544: 05,3276 55042 TS CADRSTOR
010297,000545: 05,3277 55013 TS REQRET
010298,000546: 05,3300 55015 TS CLPASS
010299,000547: 05,3301 55012 TS DSPLOCK
010300,000548: 05,3302 55020 TS MONSAVE # KILL MONITOR
010301,000549: 05,3303 55021 TS MONSAVE1
010302,000550: 05,3304 55001 TS VERBREG
010303,000551: 05,3305 55002 TS NOUNREG
010304,000552: 05,3306 55043 TS DSPLIST
010305,000553: 05,3307 55312 TS MARKSTAT
010306,000554: 05,3310 55044 TS EXTVBACT # MAKE EXTENDED VERBS AVAILABLE
010307,000555: 05,3311 55304 TS IMUCADR
010308,000556: 05,3312 55305 TS OPTCADR
010309,000557: 05,3313 55306 TS RADCADR
010310,000558: 05,3314 55307 TS ATTCADR
010311,000559: 05,3315 55314 TS LGYRO
010312,000560: 05,3316 54100 TS FLAGWRD4 # KILL INTERFACE DISPLAYS
010313,000561: 05,3317 34760 CAF NOUTCON
010314,000562: 05,3320 55016 TS NOUT
010315,000563:
010316,000564: 05,3321 44753 CS ONE
010317,000565: 05,3322 55100 TS SAMPLIM
010318,000566: 05,3323 34746 CAF BIT6
010319,000567: 05,3324 71303 MASK IMODES33 # LEAVE BIT 6 UNCHANGED
010320,000568: 05,3325 65026 AD IM33INIT # NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
010321,000569: 05,3326 55303 TS IMODES33
010322,000570:
010323,000571: 05,3327 33340 CAF LESCHK # SELF CHECK GO-TO REGISTER.
010324,000572: 05,3330 55361 TS SELFRET
010325,000573:
010326,000574: 05,3331 44360 CS VD1
010327,000575: 05,3332 54777 TS DSPCOUNT
010328,000576:
010329,000577: 05,3333 00002 TC Q
010330,000578: 05,3334 E6,1537 EBANK= AOSQ
010331,000579: 05,3334 02024 34066 IDLEADR 2CADR DAPIDLER
010332,000580: 05,3336 00435 IFAILINH OCT 435
010333,000581: 05,3337 03437 LDNPHAS1 GENADR DNPHASE1
010334,000582: 05,3340 03344 LESCHK GENADR SELFCHK
010335,000583: 05,3341 00400 VAC1ADRC ADRES VAC1USE
010336,000584: 05,3342 32001 OCT32001 OCT 32001
010337,000585: 05,3343 00054 LTHVACA DEC 44 B-14
010338,000586:
010339,000587: 05,3344 27470 OCT27470 OCT 27470
010340,000588:
|
|
Page 238 |
010342,000590: 05,3345 74160 OCT74160 OCT 74160
010343,000591: 05,3346 30001 OCT30001 OCT 30001
010344,000592: 05,3347 5007 STARTEB EQUALS EBANK3
010345,000593: 05,3347 4756 NUMGRPS EQUALS FIVE
010346,000594: 05,3347 77755 -ELR OCT -22 # -ERROR LIGHT RESET KEY CODE.
010347,000595: 05,3350 37411 IM30INIF OCT 37411 # INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
010348,000596: 05,3351 37000 IM30INIR OCT 37000
010349,000597: 05,3352 5026 IM33INIT = PRIO16 # NO PIP OR TM FAIL SIGNALS.
010350,000598: 05,3352 00450 9,6,4 OCT 450
010351,000599: 05,3353 00102 RMODINIT OCT 00102
010352,000600: 05,3354 00000 SWINIT OCT 0
010353,000601: 05,3355 00000 OCT 0
010354,000602: 05,3356 00000 OCT 0
010355,000603: 05,3357 02000 OCT 02000 # BIT 11 = NOR29FLG
010356,000604: 05,3360 00000 OCT 0
010357,000605: 05,3361 00000 OCT 0
010358,000606: 05,3362 00000 OCT 0
010359,000607: 05,3363 00100 OCT 00100
010360,000608:
010361,000609: 05,3364 00000 OCT 0
010362,000610: 05,3365 00000 OCT 0
010363,000611: 05,3366 00000 OCT 0
010364,000612: 05,3367 40000 OCT 40000 # BIT 15 = LRBYPASS.
010365,000613:
|
|
Page 239 |
010367,000615: # PROGRAM NAME GOTOPOOH ASSEMBLY SUNDANCE
010368,000616: # LOG SECTION FRESH START AND RESTART
010369,000617:
010370,000618: # FUNCTIONAL DESCRIPTION
010371,000619:
010372,000620: # FLASH V 37 ON DSKY %MM CHANGE REQUEST "
010373,000621:
010374,000622: # INPUT/OUTPUT INFORMATION
010375,000623:
010376,000624: # A. CALLING SEQUENCE TC GOTOPOOH
010377,000625:
010378,000626: # B. ERASABLE INITIALIZATION NONE
010379,000627:
010380,000628: # C. OUTPUT FLASH V 37 ON DSKY
010381,000629:
010382,000630: # D. DEBRIS L
010383,000631:
010384,000632: # PROGRAM ANALYSIS
010385,000633:
010386,000634: # A. SUBROUTINES CALLED PRIODSPR, LINUS
010387,000635:
010388,000636: # B. NORMAL EXIT TCF ENDOFJOB
010389,000637:
010390,000638: # C. ALARM AND ABORT EXITS NONE
010391,000639:
010392,000640: 6001 BLOCK 03
010393,000641: 6000 SETLOC FFTAG5
010394,000642: 6000 BANK
010395,000643:
010396,000644: 6001 COUNT* $$/P00
010397,000645: 6001 34764 GOTOPOOH CAF OCT33 # 4.33 SPOT FOR GOPOOFIX
010398,000646: 6002 54001 TS L
010399,000647: 6003 40000 COM
010400,000648: 6004 52761 DXCH -PHASE4
010401,000649:
010402,000650: 6005 04635 TC POSTJUMP
010403,000651: 6006 10024 CADR GOPOOFIX
010404,000652: 6007 00024 OCT24 MM 20 B-14
010405,000653: 6010 00031 OCT31 MM 25 B-14
010406,000654:
010407,000655: 20,2004 BANK 20
010408,000656: 04,2000 SETLOC VERB37
010409,000657: 04,2000 BANK
010410,000658:
010411,000659: 04,2024 COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4.
010412,000660: 04,2024 05516 GOPOOFIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
010413,000661: 04,2025 00311 ADRES XOVINFLG
010414,000662:
010415,000663: 04,2026 05516 TC DOWNFLAG # INSURE THAT ULLAGE IS OFF
010416,000664: 04,2027 00314 ADRES ULLAGFLG
010417,000665:
|
|
Page 240 |
010419,000667: 04,2030 32036 CAF V37N99
010420,000668: 04,2031 04616 TC BANKCALL
010421,000669: 04,2032 20351 CADR GOFLASH
010422,000670: 04,2033 12030 TCF -3
010423,000671: 04,2034 12030 TCF -4
010424,000672: 04,2035 12030 TCF -5
010425,000673:
010426,000674: 04,2036 11343 V37N99 VN 3799
010427,000675:
|
|
Page 241 |
010429,000677: # PROGRAM NAME V37 ASSEMBLY SUNDANCE
010430,000678:
010431,000679: # LOG SECTION FRESH START AND RESTART
010432,000680:
010433,000681: # FUNCTIONAL DESCRIPTION
010434,000682:
010435,000683: # 1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
010436,000684: # 2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
010437,000685: # SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
010438,000686: # 3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
010439,000687: # 4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
010440,000688: # 5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
010441,000689: # 6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
010442,000690: # 7. DISPLAY SYSTEM IS RELEASED.
010443,000691: # 8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
010444,000692: # A. PROGRAM SELECTED IS P00.
010445,000693: # 1. RENDEZVOUS AND P25 FLAGS ARE RESET.(KILL P20 AND P25)
010446,000694: # 2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
010447,000695: # 3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
010448,000696: # 4. SUPERBANK 3 IS SELECTED.
010449,000697: # 5. NODOFLAG IS RESET.
010450,000698: # 6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
010451,000699: # WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
010452,000700: # INITIATED.
010453,000701: # B. PROGRAM SELECTED IS P20 OR P25.
010454,000702: # 1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
010455,000703: # VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
010456,000704: # 2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
010457,000705: # ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
010458,000706: # AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
010459,000707: # P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS M M IS SET.
010460,000708: # 3. CONTROL IS TRANSFERRED TO GOPROG2.
010461,000709: # C. PROGRAM SELECTED IS NEITHER P00,P20, NOR P25
010462,000710: # 1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
010463,000711: # 2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
010464,000712: # GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
010465,000713: # TO CONTINUE.
010466,000714:
010467,000715: # INPUT/OUTPUT INFORMATION
010468,000716:
010469,000717: # A. CALLING SEQUENCE
010470,000718:
010471,000719: # CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
010472,000720: # VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
010473,000721: # MMCHANG EXECUTES A TC POSTJUMP, CADR V37.
010474,000722:
010475,000723: # B. ERASABLE INITIALIZATION NONE
010476,000724:
010477,000725: # C. OUTPUT
010478,000726:
|
|
Page 242 |
010480,000728: # MAJOR MODE CHANGE
010481,000729:
010482,000730: # D. DEBRIS
010483,000731: # MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
010484,000732: # GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
010485,000733:
010486,000734: # PROGRAM ANALYSIS
010487,000735:
010488,000736: # A. SUBROUTINES CALLED
010489,000737: # ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
010490,000738: # DSPMM
010491,000739:
010492,000740: # B. NORMAL EXIT TC ENDOFJOB
010493,000741:
010494,000742: # C. ALARMS 1520 (MAJOR MODE CHANGE NOT PERMITTED)
010495,000743:
010496,000744: 04,2037 54775 V37 TS MMNUMBER # SAVE MAJOR MODE
010497,000745: 04,2040 34355 CAF PRIO30 # RESTART AT PINBALL PRIORITY
010498,000746: 04,2041 54366 TS RESTREG
010499,000747:
010500,000748: 04,2042 31302 CA IMODES30 # IS IMU BEINB INITIALIZED
010501,000749: 04,2043 74746 MASK BIT6
010502,000750: 04,2044 10000 CCS A
010503,000751: 04,2045 12064 TCF CANTROO
010504,000752:
010505,000753: 04,2046 40775 CS MMNUMBER # IS P70 REQUESTED?
010506,000754: 04,2047 62375 AD DEC70
010507,000755: 04,2050 00006 EXTEND
010508,000756: 04,2051 12370 BZF SETUP70 # YES
010509,000757: 04,2052 64753 AD ONE # IS P71 REQUESTED?
010510,000758: 04,2053 00006 EXTEND
010511,000759: 04,2054 12367 BZF SETUP71 # YES
010512,000760:
010513,000761: 04,2055 30775 CA MMNUMBER # IS NEW REQUEST POO
010514,000762: 04,2056 00006 EXTEND
010515,000763: 04,2057 12106 BZF ISSERVON # YES, CHECK SERVICER STATUS
010516,000764:
010517,000765: 04,2060 40076 CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
010518,000766: 04,2061 74753 MASK NODOBIT
010519,000767: 04,2062 10000 CCS A
010520,000768: 04,2063 12071 TCF CHECKTAB # NO
010521,000769: 04,2064 05567 CANTROO TC ALARM
010522,000770: 04,2065 01520 OCT 1520
010523,000771:
010524,000772: 04,2066 04457 V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
010525,000773:
010526,000774: 04,2067 04635 TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
010527,000775: 04,2070 20723 CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ.
010528,000776:
010529,000777: 04,2071 32474 CHECKTAB CA NOV37MM # INDEX FOR MM TABLES.
010530,000778:
|
|
Page 243 |
010532,000780: 04,2072 54155 AGAINMM TS MPAC +1
010533,000781: 04,2073 50155 NDX MPAC +1
010534,000782: 04,2074 32436 CA PREMM1 # OBTAIN WHICH MM THIS IS FOR
010535,000783: 04,2075 76073 MASK LOW7
010536,000784: 04,2076 40000 COM
010537,000785: 04,2077 60775 AD MMNUMBER
010538,000786: 04,2100 10000 CCS A
010539,000787: 04,2101 10155 CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
010540,000788: 04,2102 12072 TCF AGAINMM # YES, GET NEXT ONE
010541,000789: 04,2103 12317 TCF V37NONO # LAST TIME OR PASSED MM
010542,000790:
010543,000791: 04,2104 30155 CA MPAC +1
010544,000792: 04,2105 54774 TS MINDEX # SAVE INDEX FOR LATER
010545,000793:
010546,000794: 04,2106 40103 ISSERVON CS FLAGWRD7 # V37 FLAG SET - I.E. IS SERVICER GOING
010547,000795: 04,2107 74746 MASK V37FLBIT
010548,000796: 04,2110 10000 CCS A
010549,000797: 04,2111 12133 TCF CANV37 # NO
010550,000798:
010551,000799: 04,2112 05516 TC DOWNFLAG # YES, TURN OFF THE AVERAGE FLAG AND
010552,000800: 04,2113 00163 ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO CANV37.
010553,000801:
010554,000802: 04,2114 32363 CAF V37RETAD
010555,000803: 04,2115 55260 TS OUTROUTE
010556,000804:
010557,000805: 04,2116 15155 TCF ENDOFJOB
010558,000806:
010559,000807: 04,2117 40074 V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
010560,000808: 04,2120 74745 MASK RNDVZBIT
010561,000809: 04,2121 10000 CCS A
010562,000810: 04,2122 12124 TCF +2 # NO. CHECK FOR P25.
010563,000811: 04,2123 12131 TCF 2.7SPT # YES. DO 2.7SPOT
010564,000812: 04,2124 40074 CS FLAGWRD0 # IS P25 RUNNING?
010565,000813: 04,2125 74743 MASK P25FLBIT
010566,000814: 04,2126 10000 CCS A
010567,000815: 04,2127 32364 2.0SPT CA OCT37667
010568,000816: 04,2130 64747 2.11SPT AD BIT5
010569,000817: 04,2131 62365 2.7SPT AD OCT40072
010570,000818: 04,2132 05357 TC PHSCHNGA
010571,000819:
010572,000820: 04,2133 34755 CANV37 CAF ZERO
010573,000821: 04,2134 00006 EXTEND
010574,000822: 04,2135 01007 WRITE SUPERBNK
010575,000823:
010576,000824: 04,2136 32362 CAF ROOAD
010577,000825: 04,2137 54374 TS TEMPFLSH
010578,000826:
010579,000827: 04,2140 05353 TC PHASCHNG
010580,000828: 04,2141 00014 OCT 14
010581,000829:
|
|
Page 244 |
010583,000831:
010584,000832: 04,2142 06036 ROO TC INTPRET
010585,000833:
010586,000834: 04,2143 77624 CALL # WAIT FOR INTEGRATION TO FINISH
010587,000835: 04,2144 27412 INTSTALL
010588,000836: 04,2145 77776 DUMMYAD EXIT
010589,000837:
010590,000838: 04,2146 05516 TC DOWNFLAG
010591,000839: 04,2147 00124 ADRES 3AXISFLG # RESET 3-AXIS FLAG
010592,000840:
010593,000841: 04,2150 34735 CAF LRBYBIT # CLEAN UP THE R12 FLAGWORD.
010594,000842: 04,2151 54107 TS FLGWRD11
010595,000843:
010596,000844: 04,2152 05516 TC DOWNFLAG # INSURE THAT THE R04FLAG IS CLEAR.
010597,000845: 04,2153 00063 ADRES R04FLAG
010598,000846:
010599,000847: 04,2154 05516 TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
010600,000848: 04,2155 00311 ADRES XOVINFLG
010601,000849: 04,2156 10775 CCS MMNUMBER # IS THIS A POOH REQUEST
010602,000850: 04,2157 12305 TCF NOUVEAU # NO, PICK UP NEW PROGRAM
010603,000851:
010604,000852: 04,2160 04457 POOH TC RELDSP # RELEASE DISPLAY SYSTEM
010605,000853:
010606,000854: 04,2161 35017 CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
010607,000855: 04,2162 55056 TS PHSPRDT2 # P00 INTEGRATION.
010608,000856:
010609,000857: 04,2163 06011 TC CLRADMOD # CLRADMOD DOES AN INHINT.
010610,000858:
010611,000859: 04,2164 44753 CS NODOBIT # TURN OFF NODOFLAG.
010612,000860: 04,2165 70076 MASK FLAGWRD2
010613,000861: 04,2166 54076 TS FLAGWRD2
010614,000862:
010615,000863: 04,2167 34756 CA FIVE # SET RESTART FOR STATEINT1
010616,000864: 04,2170 54001 TS L
010617,000865: 04,2171 40000 COM
010618,000866: 04,2172 52755 DXCH -PHASE2
010619,000867:
010620,000868: 04,2173 42366 CS OCT700 # TURN OFF P20,P25,IMU IN USE FLAG
010621,000869: 04,2174 70074 MASK FLAGWRD0
010622,000870: 04,2175 54074 TS FLAGWRD0 # RENDFLG
010623,000871:
010624,000872: 04,2176 34755 CAF DNLADP00
010625,000873:
010626,000874: 04,2177 54332 SEUDOPOO TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
010627,000875: 04,2200 55324 TS AGSWORD # (CURRENT LIST WILL BE COMPLETED BEFORE
010628,000876: # NEW ONE IS STARTED)
010629,000877: 04,2201 04674 TC IBNKCALL
010630,000878: 04,2202 75555 CADR ENGINOF1
010631,000879:
010632,000880: 04,2203 04674 TC IBNKCALL # INSURE ALLCOAST.
010633,000881: 04,2204 40204 CADR ALLCOAST # DOES A RESTORDB.
010634,000882:
|
|
Page 245 |
010636,000884:
010637,000885: 04,2205 44775 CS OCT120 # TURN OFF TRACK, UPDATE FLAGS
010638,000886: 04,2206 55072 TS EBANKTEM
010639,000887: 04,2207 70075 MASK FLAGWRD1
010640,000888: 04,2210 54075 TS FLAGWRD1
010641,000889:
010642,000890: 04,2211 04674 TC IBNKCALL # KILL GROUPS 1,3,5,6
010643,000891: 04,2212 12652 CADR V37KLEAN
010644,000892:
010645,000893: 04,2213 10775 CCS MMNUMBER # IS IT POOH
010646,000894: 04,2214 12223 TCF RENDVOO # NO
010647,000895: 04,2215 04674 GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
010648,000896: 04,2216 12647 CADR POOKLEAN
010649,000897:
010650,000898: 04,2217 30775 CA MMNUMBER
010651,000899: 04,2220 55011 TS MODREG
010652,000900:
010653,000901: 04,2221 04635 GOGOPROG TC POSTJUMP
010654,000902: 04,2222 12771 CADR GOPROG2
010655,000903:
010656,000904: 04,2223 41011 RENDVOO CS MODREG # IS CURRENT PROGRAM 22
010657,000905: 04,2224 62323 AD OCT26
010658,000906: 04,2225 00006 EXTEND
010659,000907: 04,2226 12245 BZF RESET22 # YES - CLEAR RENDEZVOUS FLAG
010660,000908:
010661,000909:
010662,000910: 04,2227 40775 CS MMNUMBER # IS NEW PROGRAM P22
010663,000911: 04,2230 62323 AD OCT26
010664,000912: 04,2231 00006 EXTEND
010665,000913: 04,2232 12245 BZF RESET22
010666,000914:
010667,000915:
010668,000916: 04,2233 67745 AD NEG2 # IS NEW PROGRAM = P20 OR P25
010669,000917: 04,2234 00006 EXTEND
010670,000918: 04,2235 12257 BZF RENDNOO # YES
010671,000919: 04,2236 64756 AD FIVE # 25
010672,000920: 04,2237 00006 EXTEND
010673,000921: 04,2240 12257 BZF RENDNOO # YES
010674,000922:
010675,000923: 04,2241 32321 CA OCT500 # NO, IS EITHER P20 OR P25 RUNNING
010676,000924: 04,2242 70074 MASK FLAGWRD0
010677,000925: 04,2243 10000 CCS A
010678,000926: 04,2244 12254 TCF POOFIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
010679,000927:
010680,000928: 04,2245 42366 RESET22 CS OCT700 # CLEAR RENDEZVOUS,P25
010681,000929: 04,2246 70074 MASK FLAGWRD0 # AND IMU IN USE FLAGS
010682,000930: 04,2247 54074 TS FLAGWRD0
010683,000931: 04,2250 06011 TC CLRADMOD
010684,000932:
010685,000933: 04,2251 00006 KILL2 EXTEND # NO, KILL 2
010686,000934: 04,2252 34755 DCA NEG0
010687,000935:
|
|
Page 246 |
010689,000937: 04,2253 52755 DXCH -PHASE2
010690,000938:
010691,000939: 04,2254 32361 POOFIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ
010692,000940: 04,2255 54374 TS TEMPFLSH
010693,000941:
010694,000942: 04,2256 12221 TCF GOGOPROG
010695,000943:
010696,000944: 04,2257 41011 RENDNOO CS MODREG
010697,000945: 04,2260 66007 AD OCT24
010698,000946: 04,2261 00006 EXTEND
010699,000947: 04,2262 12251 BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 -
010700,000948:
010701,000949: 04,2263 64756 AD FIVE
010702,000950: 04,2264 00006 EXTEND
010703,000951: 04,2265 12251 BZF KILL2
010704,000952:
010705,000953: 04,2266 32321 CA OCT500
010706,000954: 04,2267 70074 MASK FLAGWRD0
010707,000955: 04,2270 60775 AD MMNUMBER
010708,000956: 04,2271 40000 COM
010709,000957: 04,2272 62324 AD P20REG # IS IT 20 AND IS RENDEZVOUS FLAG ON
010710,000958: 04,2273 00006 EXTEND
010711,000959: 04,2274 12301 BZF STATQUO # YES
010712,000960: 04,2275 62322 AD OCT305 # IS IT 25 AND IS P25 BIT ON
010713,000961: 04,2276 00006 EXTEND
010714,000962: 04,2277 12301 BZF STATQUO # YES, LEAVE AS IS
010715,000963: 04,2300 12251 TCF KILL2
010716,000964:
010717,000965: 04,2301 40075 STATQUO CS FLAGWRD1 # SET TRACKFLAG
010718,000966: 04,2302 74775 MASK OCT120 # UPDATE FLAG
010719,000967: 04,2303 26075 ADS FLAGWRD1
010720,000968:
010721,000969: 04,2304 12215 TCF GOMOD
010722,000970:
010723,000971: 04,2305 32321 NOUVEAU CAF OCT500 # IS P20 OR P25 FLAG SET
010724,000972: 04,2306 70074 MASK FLAGWRD0
010725,000973: 04,2307 10000 CCS A
010726,000974: 04,2310 12313 TCF +3 # YES
010727,000975: 04,2311 05516 TC DOWNFLAG # NO,RESET IMUINUSE FLAG
010728,000976: 04,2312 00007 ADRES IMUSE
010729,000977:
010730,000978: 04,2313 50774 INDEX MINDEX
010731,000979: 04,2314 32475 CAF DNLADMM1 # OBTAIN APPROPRIATE DOWNLIST ADDRESS
010732,000980:
010733,000981: 04,2315 00004 INHINT
010734,000982: 04,2316 12177 TCF SEUDOPOO
010735,000983:
010736,000984: 04,2317 04364 V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESNT EXIST
010737,000985:
010738,000986: 04,2320 12066 TCF V37BAD
010739,000987:
|
|
Page 247 |
010741,000989: 04,2321 4750 OCT00010 EQUALS BIT4
010742,000990: 04,2321 00500 OCT500 OCT 500 # BITS 7 AND 9
010743,000991: 04,2322 00305 OCT305 OCT 305
010744,000992: 04,2323 00026 OCT26 OCT 26
010745,000993: 04,2324 00124 P20REG OCT 124
010746,000994:
010747,000995: 04,2325 00004 V37XEQ INHINT
010748,000996: 04,2326 50774 INDEX MINDEX
010749,000997: 04,2327 32436 CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM
010750,000998: 04,2330 55060 TS MMTEMP
010751,000999: 04,2331 54020 TS CYR # SHIFT RIGHT TO BITS 14 - 10
010752,001000:
010753,001001: 04,2332 30020 CA CYR
010754,001002: 04,2333 77724 MASK PRIO37
010755,001003: 04,2334 55062 TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
010756,001004: 04,2335 54063 TS NEWPRIO # STORE PRIO FOR SPVAC
010757,001005:
010758,001006: 04,2336 31060 CA MMTEMP # OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
010759,001007: 04,2337 00006 EXTEND
010760,001008: 04,2340 74744 MP BIT8
010761,001009: 04,2341 74757 MASK LOW3
010762,001010: 04,2342 54001 TS L
010763,001011:
010764,001012: 04,2343 50774 INDEX MINDEX
010765,001013: 04,2344 32400 CAF FCADRMM1
010766,001014: 04,2345 55061 TS BASETEMP # MAKE BBCON BY ADDING HI5 OF FCADR
010767,001015: 04,2346 74350 MASK HI5
010768,001016: 04,2347 26001 ADS L
010769,001017:
010770,001018: 04,2350 31061 CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
010771,001019: 04,2351 75012 MASK LOW10
010772,001020: 04,2352 64741 AD BIT11
010773,001021:
010774,001022: 04,2353 05116 TC SPVAC
010775,001023:
010776,001024: 04,2354 31060 V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
010777,001025: 04,2355 76073 MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
010778,001026: 04,2356 05314 TC NEWMODEA # PHSPRDT1)
010779,001027:
010780,001028: 04,2357 04457 TC RELDSP # RELEASE DISPLAY
010781,001029: 04,2360 05155 TC ENDOFJOB # AND EXIT
010782,001030:
010783,001031: 04,2361 5660 NEG7 EQUALS OCT77770
010784,001032:
010785,001033: 04,2361 1060 MMTEMP EQUALS PHSPRDT3
010786,001034: 04,2361 1061 BASETEMP EQUALS TBASE4
010787,001035: 04,2361 10330 V37QCAD CADR V37XEQ +3
010788,001036: 04,2362 10145 ROOAD CADR DUMMYAD
010789,001037: 04,2363 10117 V37RETAD CADR V37RET
010790,001038: 04,2364 37667 OCT37667 OCT 37667
010791,001039:
|
|
Page 248 |
010793,001041: 04,2365 40072 OCT40072 OCT 40072
010794,001042: 04,2366 00700 OCT700 OCT 700
010795,001043:
010796,001044: 04,2367 36244 SETUP71 CAF THREE
010797,001045: 04,2370 54002 SETUP70 TS Q
010798,001046: 04,2371 00006 EXTEND
010799,001047: 04,2372 32377 DCA P70CADR
010800,001048: 04,2373 60002 AD Q
010801,001049: 04,2374 52006 DTCB
010802,001050:
010803,001051: 04,2375 00106 DEC70 DEC 70 B-14
010804,001052: 04,2376 E7,1516 EBANK= R
010805,001053: 04,2376 02166 42067 P70CADR 2CADR P70
010806,001054: # FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
010807,001055: # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
010808,001056: # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
010809,001057:
010810,001058: # TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
010811,001059:
010812,001060: # THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
010813,001061: # THE MAJOR MODE. FOR EXAMPLE,
010814,001062:
010815,001063: # FCADRMM1 FCADR P79 START OF P 79
010816,001064: # FCADR PROG18 START OF P 18
010817,001065: # FCADR P01 START OF P 01
010818,001066:
010819,001067: # NOTE, THE FIRST ENTRY MUST BE LABLED FCADRMM1.
010820,001068: # ----
010821,001069:
010822,001070: 04,2400 71524 FCADRMM1 FCADR P79
010823,001071: 04,2401 71274 FCADR P78
010824,001072: 04,2402 26207 FCADR P76
010825,001073: 04,2403 72673 FCADR P75
010826,001074: 04,2404 72513 FCADR P74
010827,001075: 04,2405 72164 FCADR P73
010828,001076: 04,2406 72031 FCADR P72
010829,001077: 04,2407 62172 FCADR LANDJUNK
010830,001078: 04,2410 64772 FCADR P63LM
010831,001079: 04,2411 33317 FCADR P57
010832,001080: 04,2412 32050 FCADR PROG52
010833,001081: 04,2413 31340 FCADR P51
010834,001082: 04,2414 75436 FCADR P47LM
010835,001083: 04,2415 75410 FCADR P42LM
010836,001084: 04,2416 75272 FCADR P41LM
010837,001085: 04,2417 75147 FCADR P40LM
010838,001086: 04,2420 71517 FCADR P39
010839,001087: 04,2421 71271 FCADR P38
010840,001088: 04,2422 72667 FCADR P35
010841,001089: 04,2423 72511 FCADR P34
010842,001090:
|
|
Page 249 |
010844,001092: 04,2424 72162 FCADR P33
010845,001093: 04,2425 72027 FCADR P32
010846,001094: 04,2426 72414 FCADR P31
010847,001095: 04,2427 72000 FCADR P30
010848,001096: 04,2430 50427 FCADR PROG25
010849,001097: 04,2431 50022 FCADR PROG22
010850,001098: 04,2432 51402 FCADR PROG21
010851,001099: 04,2433 50022 FCADR PROG20
010852,001100: 04,2434 60006 FCADR P12LM
010853,001101: 04,2435 77641 FCADR P06
010854,001102: # THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
010855,001103: # INFORMATION, IT IS IN THE FOLLOWING FORM,
010856,001104:
010857,001105: # PPP PPE EEM MMM MMM
010858,001106:
010859,001107: # WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
010860,001108: # 3 E BITS CONTAIN THE E-BANK NUMBER
010861,001109: # 5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
010862,001110: # TO BE STARTED
010863,001111:
010864,001112: # FOR EXAMPLE,
010865,001113:
010866,001114: # PREMM1 OCT 67213 PRIORITY 33
010867,001115: # E-BANK 5
010868,001116: # MAJOR MODE 11
010869,001117: # OCT 25437 PRIORITY 12
010870,001118: # E-BANK 6
010871,001119: # MAJOR MODE 31
010872,001120:
010873,001121: # NOTE, THE FIRST ENTRY MUST BE LABELED PREMM1
010874,001122: 04,2436 27717 PREMM1 OCT 27717 # MM 79 EBANK 7 PRIO 13
010875,001123: 04,2437 27716 OCT 27716 # MM 78 EBANK 7 PRIO 13
010876,001124: 04,2440 27714 OCT 27714 # MM 76 EBANK 7 PRIO 13
010877,001125: 04,2441 27713 OCT 27713 # MM 75 EBANK 7 PRIO 13
010878,001126: 04,2442 27712 OCT 27712 # MM 74 EBANK 7 PRIO 13
010879,001127: 04,2443 27711 OCT 27711 # MM 73 EBANK 7 PRIO 13
010880,001128: 04,2444 27710 OCT 27710 # MM 72 EBANK 7 PRIO 13
010881,001129: 04,2445 27704 OCT 27704 # MM 68 EBANK 7 PRIO 13
010882,001130: 04,2446 27677 OCT 27677 # MM 63 EBANK 7 PRIO 13
010883,001131: 04,2447 27271 OCT 27271 # MM 57 EBANK 5 PRIO 13
010884,001132: 04,2450 27264 OCT 27264 # MM 52 EBANK 5 PRIO 13
010885,001133: 04,2451 27263 OCT 27263 # MM 51 EBANK 5 PRIO 13
010886,001134: 04,2452 27657 OCT 27657 # MM 47 EBANK 7 PRIO 13
010887,001135: 04,2453 27652 OCT 27652 # MM 42 EBANK 7 PRIO 13
010888,001136: 04,2454 27651 OCT 27651 # MM 41 EBANK 7 PRIO 13
010889,001137: 04,2455 27650 OCT 27650 # MM 40 EBANK 7 PRIO 13
010890,001138: 04,2456 27647 OCT 27647 # MM 39 EBANK 7 PRIO 13
010891,001139: 04,2457 27646 OCT 27646 # MM 38 EBANK 7 PRIO 13
010892,001140: 04,2460 27643 OCT 27643 # MM 35 EBANK 7 PRIO 13
010893,001141: 04,2461 27642 OCT 27642 # MM 34 EBANK 7 PRIO 13
010894,001142:
|
|
Page 250 |
010896,001144: 04,2462 27641 OCT 27641 # MM 33 EBANK 7 PRIO 13
010897,001145: 04,2463 27640 OCT 27640 # MM 32 EBANK 7 PRIO 13
010898,001146: 04,2464 27637 OCT 27637 # MM 31 EBANK 7 PRIO 13
010899,001147: 04,2465 27636 OCT 27636 # MM 30 EBANK 7 PRIO 13
010900,001148: 04,2466 27631 OCT 27631 # MM 25 EBANK 7 PRIO 13
010901,001149: 04,2467 27626 OCT 27626 # MM 22 EBANK 7 PRIO 13
010902,001150: 04,2470 27625 OCT 27625 # MM 21 EBANK 7 PRIO 13
010903,001151: 04,2471 27624 OCT 27624 # MM 20 EBANK 7 PRIO 13
010904,001152: 04,2472 27614 OCT 27614 # MM 12 EBANK 7 PRIO 13
010905,001153: 04,2473 27006 OCT 27006 # MM 06 EBANK 4 PRIO 13
010906,001154:
010907,001155: # NOTE, THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
010908,001156: # ---- THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
010909,001157: # THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
010910,001158:
010911,001159: 04,2474 00035 NOV37MM DEC 29 B-14 # MM'S -1
010912,001160:
010913,001161: 04,2475 00002 DNLADMM1 ADRES RENDEZVU # P79
010914,001162: 04,2476 00002 ADRES RENDEZVU # P78
010915,001163: 04,2477 00002 ADRES RENDEZVU
010916,001164: 04,2500 00002 ADRES RENDEZVU # P75
010917,001165: 04,2501 00002 ADRES RENDEZVU # P74
010918,001166: 04,2502 00002 ADRES RENDEZVU # P73
010919,001167: 04,2503 00002 ADRES RENDEZVU # P72
010920,001168: 04,2504 00004 ADRES DESASCNT # P68
010921,001169: 04,2505 00004 ADRES DESASCNT # P63
010922,001170: 04,2506 00005 ADRES LUNRSALN # P57
010923,001171: 04,2507 00000 ADRES COSTALIN # P52
010924,001172: 04,2510 00000 ADRES COSTALIN # P51
010925,001173: 04,2511 00003 ADRES ORBMANUV # P47
010926,001174: 04,2512 00003 ADRES ORBMANUV # P42
010927,001175: 04,2513 00003 ADRES ORBMANUV # P41
010928,001176: 04,2514 00003 ADRES ORBMANUV # P40
010929,001177: 04,2515 00002 ADRES RENDEZVU # P39
010930,001178: 04,2516 00002 ADRES RENDEZVU # P38
010931,001179: 04,2517 00002 ADRES RENDEZVU # P35
010932,001180: 04,2520 00002 ADRES RENDEZVU # P34
010933,001181: 04,2521 00002 ADRES RENDEZVU # P33
010934,001182: 04,2522 00002 ADRES RENDEZVU # P32
010935,001183: 04,2523 00002 ADRES RENDEZVU # P31LM
010936,001184: 04,2524 00002 ADRES RENDEZVU # P30
010937,001185: 04,2525 00002 ADRES RENDEZVU # P25
010938,001186: 04,2526 00005 ADRES LUNRSALN # P22
010939,001187: 04,2527 00002 ADRES RENDEZVU # P21
010940,001188: 04,2530 00002 ADRES RENDEZVU # P20
010941,001189: 04,2531 00004 ADRES DESASCNT # P12
010942,001190: 04,2532 00000 ADRES COSTALIN # P06
010943,001191: 04,2533 4755 DNLADP00 = ZERO
010944,001192: 04,2533 COSTALIN = 0
010945,001193: 04,2533 AGSUPDAT = 1
010946,001194: 04,2533 RENDEZVU = 2
010947,001195:
|
|
Page 251 |
010949,001197: 04,2533 ORBMANUV = 3
010950,001198: 04,2533 DESASCNT = 4
010951,001199: 04,2533 LUNRSALN = 5
010952,001200:
010953,001201: 13,2026 BANK 13
010954,001202: 13,2000 SETLOC INTINIT
010955,001203: 13,2000 BANK
010956,001204:
010957,001205: 13,2026 COUNT* $$/INTIN
010958,001206:
010959,001207: 13,2026 E3,1554 EBANK= RRECTCSM
010960,001208:
010961,001209: # THIS ROUTINE DOES THE POO INTEGRATION
010962,001210:
010963,001211: 13,2026 43014 STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
010964,001212: 13,2027 01474 VINTFLAG
010965,001213: 13,2030 04347 SURFFLAG # ALSO 6X6 W-MATRIX IF LM ON LUNAR
010966,001214: 13,2031 26036 DOINT # SURFACE AND W-MATRIX VALID
010967,001215: 13,2032 43014 BOF SET # FOR RENDEZVOUS NAVIGATION.
010968,001216: 13,2033 02756 RENDWFLG
010969,001217: 13,2034 26036 DOINT
010970,001218: 13,2035 01476 DIM0FLAG
010971,001219: 13,2036 45014 DOINT CLEAR CALL
010972,001220: 13,2037 01667 PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
010973,001221: 13,2040 27134 INTEGRV # WHEN MODREG = 0
010974,001222:
010975,001223: 13,2041 71214 BON DLOAD
010976,001224: 13,2042 04307 SURFFLAG
010977,001225: 13,2043 26063 NO-INT
010978,001226: 13,2044 01571 TETCSM
010979,001227: 13,2045 34041 STCALL TDEC1
010980,001228: 13,2046 27412 INTSTALL
010981,001229: 13,2047 45014 CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
010982,001230: 13,2050 01674 VINTFLAG
010983,001231: 13,2051 26644 SETIFLGS
010984,001232: 13,2052 77614 BOF # ALSO 9X9 W-MATRIX IF W IS VALID
010985,001233: 13,2053 02756 RENDWFLG
010986,001234: 13,2054 26060 DOINT2
010987,001235: 13,2055 43014 SET SET
010988,001236: 13,2056 01476 DIM0FLAG
010989,001237: 13,2057 01475 D6OR9FLG
010990,001238: 13,2060 45014 DOINT2 SET CALL
010991,001239: 13,2061 01467 PRECIFLG # DISENGAGE 4 TIME STEP LOGIC IN INTEG.
010992,001240: 13,2062 27134 INTEGRV
010993,001241: 13,2063 77614 NO-INT CLRGO
010994,001242: 13,2064 01236 NODOFLAG
010995,001243: 13,2065 26632 ENDINT
010996,001244:
010997,001245:
010998,001246: # THISVINT IS CALLED BY MIDTOAV1 AND 2
010999,001247:
|
|
Page 252 |
011001,001249: 13,2066 43414 THISVINT CLEAR RVQ
011002,001250: 13,2067 01674 VINTFLAG
End of include-file FRESH_START_AND_RESTART.agc. Parent file is MAIN.agc