Source Code
|
These source-code files are part of a reconstructed copy of Luminary 97, the
second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software. It was created to fix two incorrect ephemeris constants in
Luminary 96, as described by anomaly report LNY-59.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memos 83 and 85, using asterisks
indicating changed lines in the listing as a guide. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 97 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
035559,000002: ## Copyright: Public domain.
035560,000003: ## Filename: P70-P71.agc
035561,000004: ## Purpose: A section of Luminary revision 97.
035562,000005: ## It is part of the reconstructed source code for the
035563,000006: ## second release of the flight software for the Lunar
035564,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
035565,000008: ## It was created to fix two incorrect ephemeris constants in
035566,000009: ## Luminary 96, as described by anomaly report LNY-59.
035567,000010: ## The code has been recreated from a copy of Luminary 99
035568,000011: ## revision 001, using asterisks indicating changed lines in
035569,000012: ## the listing and Luminary Memos #83 and #85, which list
035570,000013: ## changes between Luminary 97 and 98, and 98 and 99. The
035571,000014: ## code has been adapted such that the resulting bugger words
035572,000015: ## exactly match those specified for Luminary 97 in NASA drawing
035573,000016: ## 2021152D, which gives relatively high confidence that the
035574,000017: ## reconstruction is correct.
035575,000018: ## Reference: pp. 829-837
035576,000019: ## Assembler: yaYUL
035577,000020: ## Contact: Ron Burkey <info@sandroid.org>.
035578,000021: ## Website: www.ibiblio.org/apollo/index.html
035579,000022: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
035580,000023:
|
|
Page 829
|
035582,000025: 21,2006 BANK 21
035583,000026: 21,2000 SETLOC R11
035584,000027: 21,2000 BANK
035585,000028:
035586,000029: 21,2006 E7,1515 EBANK= DVCNTR
035587,000030: 21,2006 COUNT* $$/R11
035588,000031:
035589,000032: 21,2006 40103 R10,R11 CS FLAGWRD7 # IS SERVICER STILL RUNNING?
035590,000033: 21,2007 74747 MASK AVEGFBIT
035591,000034: 21,2010 10000 CCS A
035592,000035: 21,2011 15261 TCF TASKOVER # LET AVGEND TAKE CARE OF GROUP 2.
035593,000036: 21,2012 11056 CCS PIPCTR
035594,000037: 21,2013 12015 TCF +2
035595,000038: 21,2014 12130 TCF LRHTASK # LAST PASS. CALL LRHTASK.
035596,000039: 21,2015 55714 +2 TS PIPCTR1
035597,000040:
035598,000041: 21,2016 E7,1714 PIPCTR1 = LADQSAVE
035599,000042: 21,2016 1056 PIPCTR = PHSPRDT2
035600,000043: 21,2016 36010 CAF OCT31
035601,000044: 21,2017 05173 TC TWIDDLE
035602,000045: 21,2020 02006 ADRES R10,R11
035603,000046: 21,2021 41303 R10,R11A CS IMODES33 # IF LAMP TEST, DO NOT CHANGE LR LITES.
035604,000047: 21,2022 74753 MASK BIT1
035605,000048: 21,2023 00006 EXTEND
035606,000049: 21,2024 12042 BZF 10,11
035607,000050:
035608,000051: 21,2025 70107 FLASHH? MASK FLGWRD11 # C(A) = 1 = HFLASH BIT
035609,000052: 21,2026 00006 EXTEND
035610,000053: 21,2027 12033 BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
035611,000054:
035612,000055: 21,2030 34747 CA HLITE
035613,000056: 21,2031 54001 TS L
035614,000057: 21,2032 04606 TC FLIP # FLIP H LITE
035615,000058:
035616,000059: 21,2033 34752 FLASHV? CA VFLSHBIT # VFLASHBIT MUST BE BIT 2.
035617,000060: 21,2034 70107 MASK FLGWRD11
035618,000061: 21,2035 00006 EXTEND
035619,000062: 21,2036 12042 BZF 10,11 # V FLASH OFF
035620,000063:
035621,000064: 21,2037 34751 CA VLITE
035622,000065: 21,2040 54001 TS L
035623,000066: 21,2041 04606 TC FLIP # FLIP V LITE
035624,000067:
035625,000068: 21,2042 30105 10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
035626,000069: 21,2043 74743 MASK LETABBIT
035627,000070: 21,2044 00006 EXTEND
035628,000071: 21,2045 12154 BZF LANDISP # NO. PROCEED TO R10.
035629,000072:
035630,000073: 21,2046 41011 P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
|
|
Page 830
|
035632,000075: 21,2047 62107 AD 1DEC71
035633,000076: 21,2050 00006 EXTEND
035634,000077: 21,2051 12154 BZF LANDISP # YES. PROCEED TO R10.
035635,000078:
035636,000079: 21,2052 00006 EXTEND # NO. IS AN ABORT STAGE COMMANDED?
035637,000080: 21,2053 00030 READ CHAN30
035638,000081: 21,2054 40000 COM
035639,000082: 21,2055 54001 TS L
035640,000083: 21,2056 74750 MASK BIT4
035641,000084: 21,2057 10000 CCS A
035642,000085: 21,2060 12076 TCF P71A # YES.
035643,000086:
035644,000087: 21,2061 41011 P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
035645,000088: 21,2062 62106 AD 1DEC70
035646,000089: 21,2063 00006 EXTEND
035647,000090: 21,2064 12154 BZF LANDISP # YES. PROCEED TO R10.
035648,000091:
035649,000092: 21,2065 30001 CA L # NO. IS AN ABORT COMMANDED?
035650,000093: 21,2066 74753 MASK BIT1
035651,000094: 21,2067 10000 CCS A
035652,000095: 21,2070 12073 TCF P70A # YES.
035653,000096: 21,2071 12154 TCF LANDISP # NO. PROCEED TO R10.
035654,000097:
035655,000098: 21,2072 COUNT* $$/P70
035656,000099:
035657,000100: 21,2072 02110 P70 TC LEGAL?
035658,000101: 21,2073 44755 P70A CS ZERO
035659,000102: 21,2074 12077 TCF +3
035660,000103: 21,2075 02110 P71 TC LEGAL?
035661,000104: 21,2076 34752 P71A CAF TWO
035662,000105: 21,2077 54002 +3 TS Q
035663,000106: 21,2100 00004 INHINT
035664,000107: 21,2101 00006 EXTEND
035665,000108: 21,2102 32105 DCA CNTABTAD
035666,000109: 21,2103 52006 DTCB
035667,000110:
035668,000111: 21,2104 E7,1515 EBANK= DVCNTR
035669,000112: 21,2104 03402 12067 CNTABTAD 2CADR CONTABRT
035670,000113:
035671,000114: 21,2106 00106 1DEC70 DEC 70 B-14
035672,000115: 21,2107 00107 1DEC71 DEC 71 B-14
035673,000116:
035674,000117: 05,3402 BANK 05
035675,000118: 05,2000 SETLOC ABORTS1
035676,000119: 05,2000 BANK
035677,000120: 05,3402 COUNT* $$/P70
035678,000121:
035679,000122: 05,3402 33405 CONTABRT CAF ABRTJADR
035680,000123: 05,3403 54017 TS BRUPT
035681,000124: 05,3404 50017 RESUME
|
|
Page 831
|
035683,000126:
035684,000127: 05,3405 13406 ABRTJADR TCF ABRTJASK
035685,000128:
035686,000129: 05,3406 33477 ABRTJASK CAF OCTAL27
035687,000130: 05,3407 60002 AD Q
035688,000131: 05,3410 54001 TS L
035689,000132: 05,3411 40000 COM
035690,000133: 05,3412 52761 DXCH -PHASE4
035691,000134: 05,3413 50002 INDEX Q
035692,000135: 05,3414 33476 CAF MODE70
035693,000136: 05,3415 55011 TS MODREG
035694,000137:
035695,000138: 05,3416 55163 TS DISPDEX # INSURE DISPDEX IS POSITIVE.
035696,000139:
035697,000140: 05,3417 10002 CCS Q # SET APSFLAG IF P71.
035698,000141: 05,3420 40106 CS FLGWRD10 # SET APSFLAG PRIOR TO THE ENEMA.
035699,000142: 05,3421 74737 MASK APSFLBIT
035700,000143: 05,3422 26106 ADS FLGWRD10
035701,000144: 05,3423 43501 CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9
035702,000145: 05,3424 70111 MASK DAPBOOLS # (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
035703,000146: 05,3425 54111 TS DAPBOOLS
035704,000147:
035705,000148: 05,3426 40101 CS FLAGWRD5 # SET ENGONFLG.
035706,000149: 05,3427 74745 MASK ENGONBIT
035707,000150: 05,3430 26101 ADS FLAGWRD5
035708,000151:
035709,000152: 05,3431 44355 CS PRIO30 # INSURE THAT THE ENGINE IS ON, IF ARMED.
035710,000153: 05,3432 00006 EXTEND
035711,000154: 05,3433 02011 RAND DSALMOUT
035712,000155: 05,3434 64737 AD BIT13
035713,000156: 05,3435 00006 EXTEND
035714,000157: 05,3436 01011 WRITE DSALMOUT
035715,000158:
035716,000159: 05,3437 34735 CAF LRBYBIT # TERMINATE R12.
035717,000160: 05,3440 54107 TS FLGWRD11
035718,000161:
035719,000162: 05,3441 40074 CS FLAGWRD0 # SET R10FLAG TO SUPPRESS OUTPUTS TO THE
035720,000163: 05,3442 74752 MASK R10FLBIT # CROSS-POINTER DISPLAY.
035721,000164: 05,3443 26074 ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
035722,000165: # DISPLAY INERTIAL DATA OUTBIT.
035723,000166: 05,3444 06011 TC CLRADMOD # INSURE RADMODES PROPERLY SET FOR R29.
035724,000167:
035725,000168: 05,3445 00006 EXTEND # LOAD TEVENT FOR THE DOWNLINK.
035726,000169: 05,3446 30025 DCA TIME2
035727,000170: 05,3447 53345 DXCH TEVENT
035728,000171:
035729,000172: 05,3450 00006 EXTEND
035730,000173: 05,3451 33475 DCA SVEXITAD
035731,000174: 05,3452 53253 DXCH AVGEXIT
035732,000175:
|
|
Page 832
|
035734,000177: 05,3453 00006 EXTEND
035735,000178: 05,3454 34755 DCA NEG0
035736,000179: 05,3455 52753 DXCH -PHASE1
035737,000180:
035738,000181: 05,3456 00006 EXTEND
035739,000182: 05,3457 34755 DCA NEG0
035740,000183: 05,3460 52757 DXCH -PHASE3
035741,000184:
035742,000185: 05,3461 00006 EXTEND
035743,000186: 05,3462 34755 DCA NEG0
035744,000187: 05,3463 52765 DXCH -PHASE6
035745,000188:
035746,000189: 05,3464 36245 CAF THREE # SET UP 4.3SPOT FOR GOABORT
035747,000190: 05,3465 54001 TS L
035748,000191: 05,3466 40000 COM
035749,000192: 05,3467 52761 DXCH -PHASE4
035750,000193:
035751,000194: 05,3470 37730 CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
035752,000195: 05,3471 54030 TS TIME5 # 40 MILLISECONDS.
035753,000196:
035754,000197: 05,3472 04635 TC POSTJUMP
035755,000198: 05,3473 12765 CADR ENEMA
035756,000199:
035757,000200: 05,3474 E7,1515 EBANK= DVCNTR
035758,000201: 05,3474 03770 64067 SVEXITAD 2CADR SERVEXIT
035759,000202:
035760,000203: 05,3476 00106 MODE70 DEC 70 B-14
035761,000204: 05,3477 00027 OCTAL27 OCT 27
035762,000205: 05,3500 00107 MODE71 DEC 71 B-14
035763,000206:
035764,000207: 05,3501 00640 DAPBITS OCT 00640
035765,000208:
035766,000209: 32,3540 BANK 32
035767,000210: 32,2000 SETLOC ABORTS
035768,000211: 32,2000 BANK
035769,000212:
035770,000213: 32,3540 COUNT* $$/P70
035771,000214:
035772,000215: 32,3540 06037 GOABORT TC INTPRET
035773,000216: 32,3541 77624 CALL
035774,000217: 32,3542 61104 INITCDUW
035775,000218: 32,3543 77776 EXIT
035776,000219: 32,3544 34751 CAF FOUR
035777,000220: 32,3545 55515 TS DVCNTR
035778,000221:
035779,000222: 32,3546 33764 CAF WHICHADR
035780,000223: 32,3547 55455 TS WHICH
035781,000224:
035782,000225: 32,3550 05516 TC DOWNFLAG
035783,000226: 32,3551 00214 ADRES FLRCS
|
|
Page 833
|
035785,000228: 32,3552 05516 TC DOWNFLAG
035786,000229: 32,3553 00175 ADRES FLUNDISP
035787,000230:
035788,000231: 32,3554 05516 TC DOWNFLAG
035789,000232: 32,3555 00161 ADRES IDLEFLAG
035790,000233:
035791,000234: 32,3556 05504 TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
035792,000235: 32,3557 00307 ADRES ACC4-2FL
035793,000236:
035794,000237: 32,3560 05321 TC CHECKMM
035795,000238: 32,3561 00106 70DEC DEC 70 B-14
035796,000239: 32,3562 13707 TCF P71RET
035797,000240:
035798,000241: 32,3563 06037 P70INIT TC INTPRET
035799,000242: 32,3564 77624 CALL
035800,000243: 32,3565 65737 TGOCOMP
035801,000244: 32,3566 54345 DLOAD SL
035802,000245: 32,3567 34003 MDOTDPS
035803,000246: 32,3570 20205 4D
035804,000247: 32,3571 77665 BDDV
035805,000248: 32,3572 01245 MASS
035806,000249: 32,3573 16271 STODL TBUP
035807,000250: 32,3574 01245 MASS
035808,000251: 32,3575 70471 DDV SR1
035809,000252: 32,3576 16015 K(1/DV)
035810,000253: 32,3577 03635 STORE 1/DV1
035811,000254: 32,3600 03637 STORE 1/DV2
035812,000255: 32,3601 03641 STORE 1/DV3
035813,000256: 32,3602 77665 BDDV
035814,000257: 32,3603 25763 K(AT)
035815,000258: 32,3604 16263 STODL AT
035816,000259: 32,3605 34005 DTDECAY
035817,000260: 32,3606 54276 DCOMP SL
035818,000261: 32,3607 20214 11D
035819,000262: 32,3610 02267 STORE TTO
035820,000263: 32,3611 57535 SLOAD DCOMP
035821,000264: 32,3612 26002 DPSVEX
035822,000265: 32,3613 77702 SR2
035823,000266: 32,3614 02265 STORE VE # INITIALIZE DPS EXHAUST VELOCITY
035824,000267: 32,3615 45014 SET CALL
035825,000268: 32,3616 04467 FLAP
035826,000269: 32,3617 60300 COMMINIT
035827,000270: 32,3620 52160 AXC,1 GOTO # RETURN HERE IN P70, SE X1 FOR DPS COEFF.
035828,000271: 32,3621 00000 0D
035829,000272: 32,3622 65625 BOTHPOLY
035830,000273: 32,3623 77760 INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF
035831,000274: 32,3624 00010 8D
035832,000275: 32,3625 41343 BOTHPOLY DLOAD* DMP # TGO D
035833,000276: 32,3626 02551 ABTCOF,1
035834,000277: 32,3627 03517 TGO
|
|
Page 834
|
035836,000279: 32,3630 41213 DAD* DMP
035837,000280: 32,3631 02553 ABTCOF +2,1 # TGO(C+TGO D)
035838,000281: 32,3632 03517 TGO
035839,000282: 32,3633 41213 DAD* DMP
035840,000283: 32,3634 02555 ABTCOF +4,1 # TGO(B+TGO(C + TGO D))
035841,000284: 32,3635 03517 TGO
035842,000285: 32,3636 77613 DAD*
035843,000286: 32,3637 02557 ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
035844,000287: 32,3640 02277 STORE ZDOTD # STORE TENTATIVELY IN ZDOTD
035845,000288: 32,3641 51025 DSU BPL # CHECK AGAINST MINIMUM
035846,000289: 32,3642 02571 VMIN
035847,000290: 32,3643 65647 UPRATE # IF BIG ENOUGH, LEAVE ZDOTD AS IS .
035848,000291: 32,3644 77745 DLOAD
035849,000292: 32,3645 02571 VMIN
035850,000293: 32,3646 02277 STORE ZDOTD # IF TOO SMALL, REPLACE WITH MINIMUM.
035851,000294: 32,3647 77745 UPRATE DLOAD
035852,000295: 32,3650 02575 ABTRDOT
035853,000296: 32,3651 36273 STCALL RDOTD # INITIALIZE RDOTD.
035854,000297: 32,3652 57312 YCOMP # COMPUTE Y
035855,000298: 32,3653 45246 ABS DSU
035856,000299: 32,3654 02573 YLIM # /Y/-DYMAX
035857,000300: 32,3655 75240 BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0
035858,000301: 32,3656 65661 YOK # IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
035859,000302: 32,3657 02335 Y
035860,000303: 32,3660 03633 STORE YCO
035861,000304: 32,3661 45345 YOK DLOAD DSU
035862,000305: 32,3662 03633 YCO
035863,000306: 32,3663 02335 Y # COMPUTE XRANGE IN CASE ASTRONAUT WANTS
035864,000307: 32,3664 77661 SR
035865,000308: 32,3665 20606 5D
035866,000309: 32,3666 03643 STORE XRANGE # TO LOOK.
035867,000310: 32,3667 77414 UPTHROT SET EXIT
035868,000311: 32,3670 04461 FLVR
035869,000312:
035870,000313: 32,3671 05504 TC UPFLAG # SET ROTFLAG
035871,000314: 32,3672 00220 ADRES ROTFLAG
035872,000315:
035873,000316: 32,3673 03746 TC THROTUP
035874,000317:
035875,000318: 32,3674 05353 TC PHASCHNG
035876,000319: 32,3675 04024 OCT 04024
035877,000320:
035878,000321: 32,3676 04616 -3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
035879,000322: 32,3677 73747 CADR P40AUTO # ARE PROPERLY SET.
035880,000323:
035881,000324: 32,3700 03746 TC THROTUP
035882,000325:
035883,000326: 32,3701 00006 UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE.
035884,000327: 32,3702 33766 DCA ATMAGAD
035885,000328: 32,3703 53253 DXCH AVGEXIT
|
|
Page 835
|
035887,000330: 32,3704 05353 GRP4OFF TC PHASCHNG # TERMINATE USE OF GROUP 4.
035888,000331: 32,3705 00004 OCT 00004
035889,000332:
035890,000333: 32,3706 15155 TCF ENDOFJOB
035891,000334:
035892,000335: 32,3707 05516 P71RET TC DOWNFLAG
035893,000336: 32,3710 00215 ADRES LETABORT
035894,000337:
035895,000338: 32,3711 36000 CAF THRESH2 # SET DVMON THRESHOLD TO THE ASCENT VALUE.
035896,000339: 32,3712 55251 TS DVTHRUSH
035897,000340:
035898,000341: 32,3713 06037 TC INTPRET
035899,000342: 32,3714 45014 BON CALL
035900,000343: 32,3715 04707 FLAP
035901,000344: 32,3716 65724 OLDTIME
035902,000345: 32,3717 65737 TGOCOMP # IF FLAP=0, TGO=T-TIG
035903,000346: 32,3720 52131 SSP GOTO
035904,000347: 32,3721 00053 QPRET
035905,000348: 32,3722 65623 CADR INJTARG
035906,000349: 32,3723 60254 P12INIT # WILL EXIT P12INIT TO INJTARG
035907,000350: 32,3724 72545 OLDTIME DLOAD SL1 # IF FLAP=1,TGO=2 TGO
035908,000351: 32,3725 03517 TGO
035909,000352: 32,3726 37502 STCALL TGO1
035910,000353: 32,3727 60254 P12INIT
035911,000354: 32,3730 77776 EXIT
035912,000355: 32,3731 05353 TC PHASCHNG
035913,000356: 32,3732 04024 OCT 04024
035914,000357:
035915,000358: 32,3733 00006 EXTEND
035916,000359: 32,3734 31502 DCA TGO1
035917,000360: 32,3735 53517 DXCH TGO
035918,000361: 32,3736 13676 TCF UPTHROT1 -3
035919,000362:
035920,000363: 32,3737 E7,1501 TGO1 = VGBODY
035921,000364: # ************************************************************************
035922,000365:
035923,000366: 21,2110 BANK 21
035924,000367: 21,2000 SETLOC R11
035925,000368: 21,2000 BANK
035926,000369: 21,2110 COUNT* $$/P70
035927,000370:
035928,000371: 21,2110 40775 LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
035929,000372: 21,2111 61011 AD MODREG
035930,000373: 21,2112 00006 EXTEND
035931,000374: 21,2113 12124 BZF ABORTALM
035932,000375:
035933,000376: 21,2114 40105 CS FLAGWRD9 # ARE THE ABORTS ENABLED?
035934,000377: 21,2115 74743 MASK LETABBIT
035935,000378: 21,2116 10000 CCS A
|
|
Page 836
|
035937,000380: 21,2117 12124 TCF ABORTALM
035938,000381:
035939,000382: 21,2120 30103 CA FLAGWRD7 # IS SERVICER ON THE AIR?
035940,000383: 21,2121 74747 MASK AVEGFBIT
035941,000384: 21,2122 10000 CCS A
035942,000385: 21,2123 00002 TC Q # YES. ALL IS WELL.
035943,000386: 21,2124 04364 ABORTALM TC FALTON
035944,000387: 21,2125 04457 TC RELDSP
035945,000388: 21,2126 04635 TC POSTJUMP
035946,000389: 21,2127 21050 CADR PINBRNCH
035947,000390:
035948,000391: 32,3737 BANK 32
035949,000392: 32,2000 SETLOC ABORTS
035950,000393: 32,2000 BANK
035951,000394:
035952,000395: 32,3737 COUNT* $$/P70
035953,000396:
035954,000397: # ************************************************************************
035955,000398:
035956,000399: 32,3737 45234 TGOCOMP RTB DSU
035957,000400: 32,3740 21573 LOADTIME
035958,000401: 32,3741 03442 TIG
035959,000402: 32,3742 77661 SL
035960,000403: 32,3743 20214 11D
035961,000404: 32,3744 03517 STORE TGO
035962,000405: 32,3745 77616 RVQ
035963,000406:
035964,000407: # ************************************************************************
035965,000408:
035966,000409: 32,3746 34737 THROTUP CAF BIT13
035967,000410: 32,3747 54055 TS THRUST
035968,000411: 32,3750 34750 CAF BIT4
035969,000412: 32,3751 00006 EXTEND
035970,000413: 32,3752 05014 WOR CHAN14
035971,000414: 32,3753 00002 TC Q
035972,000415:
035973,000416: # ************************************************************************
035974,000417:
035975,000418: 32,3754 00000 01750 10SECS 2DEC 1000 B-28
035976,000419: 32,3756 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
035977,000420: 32,3760 11021 00000 (TGO)A 2DEC 37000 B-17
035978,000421: 32,3762 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT
035979,000422: 32,3764 02112 WHICHADR REMADR ABRTABLE
035980,000423:
035981,000424: # ************************************************************************
|
|
Page 837
|
035983,000426: 32,3765 E7,1515 EBANK= DVCNTR
035984,000427: 32,3765 03642 70067 ATMAGAD 2CADR ATMAG
035985,000428: 32,3767 00003 ORBMANAD ADRES ORBMANUV
035986,000429:
End of include-file P70-P71.agc. Parent file is MAIN.agc