Source Code
035909,000001: # Copyright: Public domain.
035910,000002: # Filename: P70-P71.agc
035911,000003: # Purpose: Part of the source code for Luminary 1A build 099.
035912,000004: # It is part of the source code for the Lunar Module's (LM)
035913,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
035914,000006: # Assembler: yaYUL
035915,000007: # Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
035916,000008: # Website: www.ibiblio.org/apollo.
035917,000009: # Pages: 829-837
035918,000010: # Mod history: 2009-05-23 HG Transcribed from page images.
035919,000011: # 2009-06-05 RSB Fixed a typo.
035920,000012: # 2011-01-06 JL Fixed pseudo-labels which were incorrectly real labels.
035921,000013:
035922,000014: # This source code has been transcribed or otherwise adapted from
035923,000015: # digitized images of a hardcopy from the MIT Museum. The digitization
035924,000016: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
035925,000017: # the Museum. Many thanks to both. The images (with suitable reduction
035926,000018: # in storage size and consequent reduction in image quality as well) are
035927,000019: # available online at www.ibiblio.org/apollo. If for some reason you
035928,000020: # find that the images are illegible, contact me at info@sandroid.org
035929,000021: # about getting access to the (much) higher-quality images which Paul
035930,000022: # actually created.
035931,000023:
035932,000024: # Notations on the hardcopy document read, in part:
035933,000025:
035934,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
035935,000027: # 16:27 JULY 14, 1969
035936,000028:
035937,000029: # Page 829
035938,000030: 21,2006 BANK 21
035939,000031: 21,2000 SETLOC R11
035940,000032: 21,2000 BANK
035941,000033:
035942,000034: 21,2006 E7,1515 EBANK= DVCNTR
035943,000035: 21,2006 COUNT* $$/R11
035944,000036:
035945,000037: 21,2006 40103 R10,R11 CS FLAGWRD7 # IS SERVICER STILL RUNNING?
035946,000038: 21,2007 74747 MASK AVEGFBIT
035947,000039: 21,2010 10000 CCS A
035948,000040: 21,2011 15261 TCF TASKOVER # LET AVGEND TAKE CARE OF GROUP 2.
035949,000041: 21,2012 11056 CCS PIPCTR
035950,000042: 21,2013 12015 TCF +2
035951,000043: 21,2014 12130 TCF LRHTASK # LAST PASS. CALL LRHTASK.
035952,000044: 21,2015 55714 +2 TS PIPCTR1
035953,000045:
035954,000046: 21,2016 E7,1714 PIPCTR1 = LADQSAVE
035955,000047: 21,2016 1056 PIPCTR = PHSPRDT2
035956,000048: 21,2016 36010 CAF OCT31
035957,000049: 21,2017 05173 TC TWIDDLE
035958,000050: 21,2020 02006 ADRES R10,R11
035959,000051: 21,2021 41303 R10,R11A CS IMODES33 # IF LAMP TEST, DO NOT CHANGE LR LITES.
035960,000052: 21,2022 74753 MASK BIT1
035961,000053: 21,2023 00006 EXTEND
035962,000054: 21,2024 12042 BZF 10,11
035963,000055:
035964,000056: 21,2025 70107 FLASHH? MASK FLGWRD11 # C(A) = 1 - HFLASH BIT
035965,000057: 21,2026 00006 EXTEND
035966,000058: 21,2027 12033 BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
035967,000059:
035968,000060: 21,2030 34747 CA HLITE
035969,000061: 21,2031 54001 TS L
035970,000062: 21,2032 04606 TC FLIP # FLIP H LITE
035971,000063:
035972,000064: 21,2033 34752 FLASHV? CA VFLSHBIT # VLASHBIT MUST BE BIT 2.
035973,000065: 21,2034 70107 MASK FLGWRD11
035974,000066: 21,2035 00006 EXTEND
035975,000067: 21,2036 12042 BZF 10,11 # V FLASH OFF
035976,000068:
035977,000069: 21,2037 34751 CA VLITE
035978,000070: 21,2040 54001 TS L
035979,000071: 21,2041 04606 TC FLIP # FLIP V LITE
035980,000072:
035981,000073: 21,2042 30105 10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
035982,000074: 21,2043 74743 MASK LETABBIT
035983,000075: 21,2044 00006 EXTEND
035984,000076: 21,2045 12154 BZF LANDISP # NO. PROCEED TO R10.
035985,000077:
035986,000078: 21,2046 41011 P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
035987,000079: # Page 830
035988,000080: 21,2047 62107 AD 1DEC71
035989,000081: 21,2050 00006 EXTEND
035990,000082: 21,2051 12154 BZF LANDISP # YES. PROCEED TO R10.
035991,000083:
035992,000084: 21,2052 00006 EXTEND # NO. IS AN ABORT STAGE COMMANDED?
035993,000085: 21,2053 00030 READ CHAN30
035994,000086: 21,2054 40000 COM
035995,000087: 21,2055 54001 TS L
035996,000088: 21,2056 74750 MASK BIT4
035997,000089: 21,2057 10000 CCS A
035998,000090: 21,2060 12076 TCF P71A # YES.
035999,000091:
036000,000092: 21,2061 41011 P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
036001,000093: 21,2062 62106 AD 1DEC70
036002,000094: 21,2063 00006 EXTEND
036003,000095: 21,2064 12154 BZF LANDISP # YES. PROCEED TO R10.
036004,000096:
036005,000097: 21,2065 30001 CA L # NO. IS AN ABORT COMMANDED?
036006,000098: 21,2066 74753 MASK BIT1
036007,000099: 21,2067 10000 CCS A
036008,000100: 21,2070 12073 TCF P70A # YES.
036009,000101: 21,2071 12154 TCF LANDISP # NO. PROCEED TO R10.
036010,000102:
036011,000103: 21,2072 COUNT* $$/P70
036012,000104:
036013,000105: 21,2072 02110 P70 TC LEGAL?
036014,000106: 21,2073 44755 P70A CS ZERO
036015,000107: 21,2074 12077 TCF +3
036016,000108: 21,2075 02110 P71 TC LEGAL?
036017,000109: 21,2076 34752 P71A CAF TWO
036018,000110: 21,2077 54002 +3 TS Q
036019,000111: 21,2100 00004 INHINT
036020,000112: 21,2101 00006 EXTEND
036021,000113: 21,2102 32105 DCA CNTABTAD
036022,000114: 21,2103 52006 DTCB
036023,000115:
036024,000116: 21,2104 E7,1515 EBANK= DVCNTR
036025,000117: 21,2104 03402 12067 CNTABTAD 2CADR CONTABRT
036026,000118:
036027,000119: 21,2106 00106 1DEC70 DEC 70 B-14
036028,000120: 21,2107 00107 1DEC71 DEC 71 B-14
036029,000121:
036030,000122: 05,3402 BANK 05
036031,000123: 05,2000 SETLOC ABORTS1
036032,000124: 05,2000 BANK
036033,000125: 05,3402 COUNT* $$/P70
036034,000126:
036035,000127: 05,3402 33405 CONTABRT CAF ABRTJADR
036036,000128: 05,3403 54017 TS BRUPT
036037,000129: 05,3404 50017 RESUME
036038,000130: # Page 831
036039,000131:
036040,000132: 05,3405 13406 ABRTJADR TCF ABRTJASK
036041,000133:
036042,000134: 05,3406 33477 ABRTJASK CAF OCTAL27
036043,000135: 05,3407 60002 AD Q
036044,000136: 05,3410 54001 TS L
036045,000137: 05,3411 40000 COM
036046,000138: 05,3412 52761 DXCH -PHASE4
036047,000139: 05,3413 50002 INDEX Q
036048,000140: 05,3414 33476 CAF MODE70
036049,000141: 05,3415 55011 TS MODREG
036050,000142:
036051,000143: 05,3416 55163 TS DISPDEX # INSURE DISPDEX IS POSITIVE.
036052,000144:
036053,000145: 05,3417 10002 CCS Q # SET APSFLAG IF P71.
036054,000146: 05,3420 40106 CS FLGWRD10 # SET APSFLAG PRIOR TO THE ENEMA.
036055,000147: 05,3421 74737 MASK APSFLBIT
036056,000148: 05,3422 26106 ADS FLGWRD10
036057,000149: 05,3423 43501 CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9
036058,000150: 05,3424 70111 MASK DAPBOOLS # (TURN OFF ULLAGE, DRIFT, AND XOVINHIB
036059,000151: 05,3425 54111 TS DAPBOOLS
036060,000152:
036061,000153: 05,3426 40101 CS FLAGWRD5 # SET ENGONFLG.
036062,000154: 05,3427 74745 MASK ENGONBIT
036063,000155: 05,3430 26101 ADS FLAGWRD5
036064,000156:
036065,000157: 05,3431 44355 CS PRIO30 # INSURE THAT THE ENGINE IS ON, IF ARMED.
036066,000158: 05,3432 00006 EXTEND
036067,000159: 05,3433 02011 RAND DSALMOUT
036068,000160: 05,3434 64737 AD BIT13
036069,000161: 05,3435 00006 EXTEND
036070,000162: 05,3436 01011 WRITE DSALMOUT
036071,000163:
036072,000164: 05,3437 34735 CAF LRBYBIT # TERMINATE R12.
036073,000165: 05,3440 54107 TS FLGWRD11
036074,000166:
036075,000167: 05,3441 40074 CS FLAGWRD0 # SET R10FLAG TO SUPPRESS OUTPUTS TO THE
036076,000168: 05,3442 74752 MASK R10FLBIT # CROSS-POINTER DISPLAY.
036077,000169: 05,3443 26074 ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
036078,000170: # DISPLAY INERTIAL DATA OUTBIT.
036079,000171: 05,3444 06011 TC CLRADMOD # INSURE RADMODES PROPERLY SET FOR R29.
036080,000172:
036081,000173: 05,3445 00006 EXTEND # LOAD TEVENT FOR THE DOWNLINK.
036082,000174: 05,3446 30025 DCA TIME2
036083,000175: 05,3447 53345 DXCH TEVENT
036084,000176:
036085,000177: 05,3450 00006 EXTEND
036086,000178: 05,3451 33475 DCA SVEXITAD
036087,000179: 05,3452 53253 DXCH AVGEXIT
036088,000180:
036089,000181: # Page 832
036090,000182: 05,3453 00006 EXTEND
036091,000183: 05,3454 34755 DCA NEG0
036092,000184: 05,3455 52753 DXCH -PHASE1
036093,000185:
036094,000186: 05,3456 00006 EXTEND
036095,000187: 05,3457 34755 DCA NEG0
036096,000188: 05,3460 52757 DXCH -PHASE3
036097,000189:
036098,000190: 05,3461 00006 EXTEND
036099,000191: 05,3462 34755 DCA NEG0
036100,000192: 05,3463 52765 DXCH -PHASE6
036101,000193:
036102,000194: 05,3464 36245 CAF THREE # SET UP 4.3SPOT FOR GOABORT
036103,000195: 05,3465 54001 TS L
036104,000196: 05,3466 40000 COM
036105,000197: 05,3467 52761 DXCH -PHASE4
036106,000198:
036107,000199: # the 3 in OCT37774 could be something else, garbled
036108,000200: 05,3470 37730 CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
036109,000201: 05,3471 54030 TS TIME5 # 40 MILLISECONDS.
036110,000202:
036111,000203: 05,3472 04635 TC POSTJUMP
036112,000204: 05,3473 12765 CADR ENEMA
036113,000205:
036114,000206: 05,3474 E7,1515 EBANK= DVCNTR
036115,000207: 05,3474 03770 64067 SVEXITAD 2CADR SERVEXIT
036116,000208:
036117,000209: 05,3476 00106 MODE70 DEC 70 B-14
036118,000210: 05,3477 00027 OCTAL27 OCT 27
036119,000211: 05,3500 00107 MODE71 DEC 71 B-14
036120,000212:
036121,000213: 05,3501 00640 DAPBITS OCT 00640
036122,000214:
036123,000215: 32,3540 BANK 32
036124,000216: 32,2000 SETLOC ABORTS
036125,000217: 32,2000 BANK
036126,000218:
036127,000219: 32,3540 COUNT* $$/P70
036128,000220:
036129,000221: 32,3540 06037 GOABORT TC INTPRET
036130,000222: 32,3541 77624 CALL
036131,000223: 32,3542 61104 INITCDUW
036132,000224: 32,3543 77776 EXIT
036133,000225: 32,3544 34751 CAF FOUR
036134,000226: 32,3545 55515 TS DVCNTR
036135,000227:
036136,000228: 32,3546 33764 CAF WHICHADR
036137,000229: 32,3547 55455 TS WHICH
036138,000230:
036139,000231: 32,3550 05516 TC DOWNFLAG
036140,000232: 32,3551 00214 ADRES FLRCS
036141,000233: # Page 833
036142,000234: 32,3552 05516 TC DOWNFLAG
036143,000235: 32,3553 00175 ADRES FLUNDISP
036144,000236:
036145,000237: 32,3554 05516 TC DOWNFLAG
036146,000238: 32,3555 00161 ADRES IDLEFLAG
036147,000239:
036148,000240: 32,3556 05504 TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILIITY.
036149,000241: 32,3557 00307 ADRES ACC4-2FL
036150,000242:
036151,000243: 32,3560 05321 TC CHECKMM
036152,000244: 32,3561 00106 70DEC DEC 70 B-14
036153,000245: 32,3562 13707 TCF P71RET
036154,000246:
036155,000247: 32,3563 06037 P70INIT TC INTPRET
036156,000248: 32,3564 77624 CALL
036157,000249: 32,3565 65737 TGOCOMP
036158,000250: 32,3566 54345 DLOAD SL
036159,000251: 32,3567 34003 MDOTDPS
036160,000252: 32,3570 20205 4D
036161,000253: 32,3571 77665 BDDV
036162,000254: 32,3572 01245 MASS
036163,000255: 32,3573 16271 STODL TBUP
036164,000256: 32,3574 01245 MASS
036165,000257: 32,3575 70471 DDV SR1
036166,000258: 32,3576 16015 K(1/DV)
036167,000259: 32,3577 03635 STORE 1/DV1
036168,000260: 32,3600 03637 STORE 1/DV2
036169,000261: 32,3601 03641 STORE 1/DV3
036170,000262: 32,3602 77665 BDDV
036171,000263: 32,3603 25763 K(AT)
036172,000264: 32,3604 16263 STODL AT
036173,000265: 32,3605 34005 DTDECAY
036174,000266: 32,3606 54276 DCOMP SL
036175,000267: 32,3607 20214 11D
036176,000268: 32,3610 02267 STORE TTO
036177,000269: 32,3611 57535 SLOAD DCOMP
036178,000270: 32,3612 26002 DPSVEX
036179,000271: 32,3613 77702 SR2
036180,000272: 32,3614 02265 STORE VE # INITIALIZE DPS EXHAUST VELOCITY
036181,000273: 32,3615 45014 SET CALL
036182,000274: 32,3616 04467 FLAP
036183,000275: 32,3617 60300 COMMINIT
036184,000276: 32,3620 52160 AXC,1 GOTO # RETURN HERE IN P70, SET X1 FOR DPS COEFF.
036185,000277: 32,3621 00000 0D
036186,000278: 32,3622 65625 BOTHPOLY
036187,000279: 32,3623 77760 INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF.
036188,000280: 32,3624 00010 8D
036189,000281: 32,3625 41343 BOTHPOLY DLOAD* DMP # TGO D
036190,000282: 32,3626 02551 ABTCOF,1
036191,000283: 32,3627 03517 TGO
036192,000284: # Page 834
036193,000285: 32,3630 41213 DAD* DMP
036194,000286: 32,3631 02553 ABTCOF +2,1 # TGO(C+TGO )
036195,000287: 32,3632 03517 TGO
036196,000288: 32,3633 41213 DAD* DMP
036197,000289: 32,3634 02555 ABTCOF +4,1 # TGO(B+TGO d))
036198,000290: 32,3635 03517 TGO
036199,000291: 32,3636 77613 DAD*
036200,000292: 32,3637 02557 ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
036201,000293: 32,3640 02277 STORE ZDOTD # STORE TENTATIVELY IN ZDOTD
036202,000294: 32,3641 51025 DSU BPL # CHECK AGAINST MINIMUM
036203,000295: 32,3642 02571 VMIN
036204,000296: 32,3643 65647 UPRATE # IF BIG ENOUGH, LEAVE ZDOTD AS IS .
036205,000297: 32,3644 77745 DLOAD
036206,000298: 32,3645 02571 VMIN
036207,000299: 32,3646 02277 STORE ZDOTD # IF TOO SMALL, REPLCAE WITH MINIMUM.
036208,000300: 32,3647 77745 UPRATE DLOAD
036209,000301: 32,3650 02575 ABTRDOT
036210,000302: 32,3651 36273 STCALL RDOTD # INITIALZE RDOTD.
036211,000303: 32,3652 57312 YCOMP # COMPUTE Y
036212,000304: 32,3653 45246 ABS DSU
036213,000305: 32,3654 02573 YLIM # /Y/-DYMAX
036214,000306: 32,3655 75240 BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0
036215,000307: 32,3656 65661 YOK # IF >0, FIX SIGN OF DEFICIT. THIS IS YCO.
036216,000308: 32,3657 02335 Y
036217,000309: 32,3660 03633 STORE YCO
036218,000310: 32,3661 45345 YOK DLOAD DSU
036219,000311: 32,3662 03633 YCO
036220,000312: 32,3663 02335 Y # COMPUTE XRANGE IN CASE ASTRONAUT WANTS
036221,000313: 32,3664 77661 SR
036222,000314: 32,3665 20606 5D
036223,000315: 32,3666 03643 STORE XRANGE # TO LOOK.
036224,000316: 32,3667 77414 UPTHROT SET EXIT
036225,000317: 32,3670 04461 FLVR
036226,000318:
036227,000319: 32,3671 05504 TC UPFLAG # SET ROTFLAG
036228,000320: 32,3672 00220 ADRES ROTFLAG
036229,000321:
036230,000322: 32,3673 03746 TC THROTUP
036231,000323:
036232,000324: 32,3674 05353 TC PHASCHNG
036233,000325: 32,3675 04024 OCT 04024
036234,000326:
036235,000327: 32,3676 04616 -3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
036236,000328: 32,3677 73747 CADR P40AUTO # ARE PROPERLY SET.
036237,000329:
036238,000330: 32,3700 03746 TC THROTUP
036239,000331:
036240,000332: 32,3701 00006 UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE.
036241,000333: 32,3702 33766 DCA ATMAGAD
036242,000334: 32,3703 53253 DXCH AVGEXIT
036243,000335: # Page 835
036244,000336: 32,3704 05353 GRP4OFF TC PHASCHNG # TERMINATE USE OF GROUP 4.
036245,000337: 32,3705 00004 OCT 00004
036246,000338:
036247,000339: 32,3706 15155 TCF ENDOFJOB
036248,000340:
036249,000341: 32,3707 05516 P71RET TC DOWNFLAG
036250,000342: 32,3710 00215 ADRES LETABORT
036251,000343:
036252,000344: 32,3711 36000 CAF THRESH2 # SET DVMON THRESHOLD TO THE ASCENT VALUE.
036253,000345: 32,3712 55251 TS DVTHRUSH
036254,000346:
036255,000347: 32,3713 06037 TC INTPRET
036256,000348: 32,3714 45014 BON CALL
036257,000349: 32,3715 04707 FLAP
036258,000350: 32,3716 65724 OLDTIME
036259,000351: 32,3717 65737 TGOCOMP # IF FLAP=0, TGO=T-TIG
036260,000352: 32,3720 52131 SSP GOTO
036261,000353: 32,3721 00053 QPRET
036262,000354: 32,3722 65623 CADR INJTARG
036263,000355: 32,3723 60254 P12INIT # WILL EXIT P12INIT TO INJTARG
036264,000356: 32,3724 72545 OLDTIME DLOAD SL1 # IF FLAP=1,GTO=2 TGO
036265,000357: 32,3725 03517 TGO
036266,000358: 32,3726 37502 STCALL TGO1
036267,000359: 32,3727 60254 P12INIT
036268,000360: 32,3730 77776 EXIT
036269,000361: 32,3731 05353 TC PHASCHNG
036270,000362: 32,3732 04024 OCT 04024
036271,000363:
036272,000364: 32,3733 00006 EXTEND
036273,000365: 32,3734 31502 DCA TGO1
036274,000366: 32,3735 53517 DXCH TGO
036275,000367: 32,3736 13676 TCF UPTHROT1 -3
036276,000368:
036277,000369: 32,3737 E7,1501 TGO1 = VGBODY
036278,000370: # *************************************************************************
036279,000371:
036280,000372: 21,2110 BANK 21
036281,000373: 21,2000 SETLOC R11
036282,000374: 21,2000 BANK
036283,000375: 21,2110 COUNT* $$/P70
036284,000376:
036285,000377: 21,2110 40775 LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
036286,000378: 21,2111 61011 AD MODREG
036287,000379: 21,2112 00006 EXTEND
036288,000380: 21,2113 12124 BZF ABORTALM
036289,000381:
036290,000382: 21,2114 40105 CS FLAGWRD9 # ARE THE ABORTS ENABLED?
036291,000383: 21,2115 74743 MASK LETABBIT
036292,000384: 21,2116 10000 CCS A
036293,000385: # Page 836
036294,000386: 21,2117 12124 TCF ABORTALM
036295,000387:
036296,000388: 21,2120 30103 CA FLAGWRD7 # IS SERVICER ON THE AIR?
036297,000389: 21,2121 74747 MASK AVEGFBIT
036298,000390: 21,2122 10000 CCS A
036299,000391: 21,2123 00002 TC Q # YES. ALL IS WELL.
036300,000392: 21,2124 04364 ABORTALM TC FALTON
036301,000393: 21,2125 04457 TC RELDSP
036302,000394: 21,2126 04635 TC POSTJUMP
036303,000395: 21,2127 21050 CADR PINBRNCH
036304,000396:
036305,000397: 32,3737 BANK 32
036306,000398: 32,2000 SETLOC ABORTS
036307,000399: 32,2000 BANK
036308,000400:
036309,000401: 32,3737 COUNT* $$/P70
036310,000402:
036311,000403: # **********************************************************************
036312,000404:
036313,000405: 32,3737 45234 TGOCOMP RTB DSU
036314,000406: 32,3740 21573 LOADTIME
036315,000407: 32,3741 03442 TIG
036316,000408: 32,3742 77661 SL
036317,000409: 32,3743 20214 11D
036318,000410: 32,3744 03517 STORE TGO
036319,000411: 32,3745 77616 RVQ
036320,000412:
036321,000413: # ************************************************************************
036322,000414:
036323,000415: 32,3746 34737 THROTUP CAF BIT13
036324,000416: 32,3747 54055 TS THRUST
036325,000417: 32,3750 34750 CAF BIT4
036326,000418: 32,3751 00006 EXTEND
036327,000419: 32,3752 05014 WOR CHAN14
036328,000420: 32,3753 00002 TC Q
036329,000421:
036330,000422: # ************************************************************************
036331,000423:
036332,000424: 32,3754 00000 01750 10SECS 2DEC 1000 B-28
036333,000425: 32,3756 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
036334,000426: 32,3760 11021 00000 (TGO)A 2DEC 37000 B-17
036335,000427: 32,3762 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT
036336,000428: 32,3764 02112 WHICHADR REMADR ABRTABLE
036337,000429:
036338,000430: # ************************************************************************
036339,000431: # Page 837
036340,000432: 32,3765 E7,1515 EBANK= DVCNTR
036341,000433: 32,3765 03642 70067 ATMAGAD 2CADR ATMAG
036342,000434: 32,3767 00003 ORBMANAD ADRES ORBMANUV
036343,000435:
End of include-file P70-P71.agc. Parent file is MAIN.agc