Source Code

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