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