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