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