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