Source Code
![]() |
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the
second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
036806,000002: ## Copyright: Public domain.
036807,000003: ## Filename: P70-P71.agc
036808,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
036809,000005: ## otherwise known as Luminary Rev 99, the second release
036810,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
036811,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
036812,000008: ## placement of a single label. The corrections shown here have
036813,000009: ## been verified to have the same bank checksums as AGC developer
036814,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
036815,000011: ## to be accurate. This file is intended to be a faithful
036816,000012: ## recreation, except that the code format has been changed to
036817,000013: ## conform to the requirements of the yaYUL assembler rather than
036818,000014: ## the original YUL assembler.
036819,000015: ##
036820,000016: ## Assembler: yaYUL
036821,000017: ## Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
036822,000018: ## Website: www.ibiblio.org/apollo.
036823,000019: ## Pages: 829-837
036824,000020: ## Mod history: 2009-05-23 HG Transcribed from page images.
036825,000021: ## 2009-06-05 RSB Fixed a typo.
036826,000022: ## 2011-01-06 JL Fixed pseudo-labels which were incorrectly real labels.
036827,000023: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
036828,000024: ## and corrected the errors found.
036829,000025: ## 2017-03-14 RSB Comment-text fixes noted in proofing Luminary 116.
036830,000026: ## 2017-08-01 MAS Created from LMY99 Rev 1.
036831,000027: ## 2017-08-16 RSB Comment typo identified in AP11ROPE scans.
036832,000028:
036833,000029: ## This source code has been transcribed or otherwise adapted from
036834,000030: ## digitized images of a hardcopy from the MIT Museum. The digitization
036835,000031: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
036836,000032: ## the Museum. Many thanks to both. The images (with suitable reduction
036837,000033: ## in storage size and consequent reduction in image quality as well) are
036838,000034: ## available online at www.ibiblio.org/apollo. If for some reason you
036839,000035: ## find that the images are illegible, contact me at info@sandroid.org
036840,000036: ## about getting access to the (much) higher-quality images which Paul
036841,000037: ## actually created.
036842,000038: ##
036843,000039: ## The code has been modified to match LMY99 Revision 0, otherwise
036844,000040: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
036845,000041: ## the listing from which it was transcribed. It has been verified to
036846,000042: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
036847,000043: ## of Luminary Revision 99 (for which we do not have scans).
036848,000044: ##
036849,000045: ## Notations on Allan Klumpp's listing read, in part:
036850,000046: ##
036851,000047: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
036852,000048:
![]() |
Page 829 |
036854,000050: 21,2006 BANK 21
036855,000051: 21,2000 SETLOC R11
036856,000052: 21,2000 BANK
036857,000053:
036858,000054: 21,2006 E7,1515 EBANK= DVCNTR
036859,000055: 21,2006 COUNT* $$/R11
036860,000056:
036861,000057: 21,2006 40103 R10,R11 CS FLAGWRD7 # IS SERVICER STILL RUNNING?
036862,000058: 21,2007 74747 MASK AVEGFBIT
036863,000059: 21,2010 10000 CCS A
036864,000060: 21,2011 15261 TCF TASKOVER # LET AVGEND TAKE CARE OF GROUP 2.
036865,000061: 21,2012 11056 CCS PIPCTR
036866,000062: 21,2013 12015 TCF +2
036867,000063: 21,2014 12130 TCF LRHTASK # LAST PASS. CALL LRHTASK.
036868,000064: 21,2015 55714 +2 TS PIPCTR1
036869,000065:
036870,000066: 21,2016 E7,1714 PIPCTR1 = LADQSAVE
036871,000067: 21,2016 1056 PIPCTR = PHSPRDT2
036872,000068: 21,2016 36010 CAF OCT31
036873,000069: 21,2017 05173 TC TWIDDLE
036874,000070: 21,2020 02006 ADRES R10,R11
036875,000071: 21,2021 41303 R10,R11A CS IMODES33 # IF LAMP TEST, DO NOT CHANGE LR LITES.
036876,000072: 21,2022 74753 MASK BIT1
036877,000073: 21,2023 00006 EXTEND
036878,000074: 21,2024 12042 BZF 10,11
036879,000075:
036880,000076: 21,2025 70107 FLASHH? MASK FLGWRD11 # C(A) = 1 = HFLASH BIT
036881,000077: 21,2026 00006 EXTEND
036882,000078: 21,2027 12033 BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
036883,000079:
036884,000080: 21,2030 34747 CA HLITE
036885,000081: 21,2031 54001 TS L
036886,000082: 21,2032 04606 TC FLIP # FLIP H LITE
036887,000083:
036888,000084: 21,2033 34752 FLASHV? CA VFLSHBIT # VFLASHBIT MUST BE BIT 2.
036889,000085: 21,2034 70107 MASK FLGWRD11
036890,000086: 21,2035 00006 EXTEND
036891,000087: 21,2036 12042 BZF 10,11 # V FLASH OFF
036892,000088:
036893,000089: 21,2037 34751 CA VLITE
036894,000090: 21,2040 54001 TS L
036895,000091: 21,2041 04606 TC FLIP # FLIP V LITE
036896,000092:
036897,000093: 21,2042 30105 10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
036898,000094: 21,2043 74743 MASK LETABBIT
036899,000095: 21,2044 00006 EXTEND
036900,000096: 21,2045 12154 BZF LANDISP # NO. PROCEED TO R10.
036901,000097:
036902,000098: 21,2046 41011 P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
![]() |
Page 830 |
036904,000100: 21,2047 62107 AD 1DEC71
036905,000101: 21,2050 00006 EXTEND
036906,000102: 21,2051 12154 BZF LANDISP # YES. PROCEED TO R10.
036907,000103:
036908,000104: 21,2052 00006 EXTEND # NO. IS AN ABORT STAGE COMMANDED?
036909,000105: 21,2053 00030 READ CHAN30
036910,000106: 21,2054 40000 COM
036911,000107: 21,2055 54001 TS L
036912,000108: 21,2056 74750 MASK BIT4
036913,000109: 21,2057 10000 CCS A
036914,000110: 21,2060 12076 TCF P71A # YES.
036915,000111:
036916,000112: 21,2061 41011 P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
036917,000113: 21,2062 62106 AD 1DEC70
036918,000114: 21,2063 00006 EXTEND
036919,000115: 21,2064 12154 BZF LANDISP # YES. PROCEED TO R10.
036920,000116:
036921,000117: 21,2065 30001 CA L # NO. IS AN ABORT COMMANDED?
036922,000118: 21,2066 74753 MASK BIT1
036923,000119: 21,2067 10000 CCS A
036924,000120: 21,2070 12073 TCF P70A # YES.
036925,000121: 21,2071 12154 TCF LANDISP # NO. PROCEED TO R10.
036926,000122:
036927,000123: 21,2072 COUNT* $$/P70
036928,000124:
036929,000125: 21,2072 02110 P70 TC LEGAL?
036930,000126: 21,2073 44755 P70A CS ZERO
036931,000127: 21,2074 12077 TCF +3
036932,000128: 21,2075 02110 P71 TC LEGAL?
036933,000129: 21,2076 34752 P71A CAF TWO
036934,000130: 21,2077 54002 +3 TS Q
036935,000131: 21,2100 00004 INHINT
036936,000132: 21,2101 00006 EXTEND
036937,000133: 21,2102 32105 DCA CNTABTAD
036938,000134: 21,2103 52006 DTCB
036939,000135:
036940,000136: 21,2104 E7,1515 EBANK= DVCNTR
036941,000137: 21,2104 03402 12067 CNTABTAD 2CADR CONTABRT
036942,000138:
036943,000139: 21,2106 00106 1DEC70 DEC 70 B-14
036944,000140: 21,2107 00107 1DEC71 DEC 71 B-14
036945,000141:
036946,000142: 05,3402 BANK 05
036947,000143: 05,2000 SETLOC ABORTS1
036948,000144: 05,2000 BANK
036949,000145: 05,3402 COUNT* $$/P70
036950,000146:
036951,000147: 05,3402 33405 CONTABRT CAF ABRTJADR
036952,000148: 05,3403 54017 TS BRUPT
036953,000149: 05,3404 50017 RESUME
![]() |
Page 831 |
036955,000151:
036956,000152: 05,3405 13406 ABRTJADR TCF ABRTJASK
036957,000153:
036958,000154: 05,3406 33477 ABRTJASK CAF OCTAL27
036959,000155: 05,3407 60002 AD Q
036960,000156: 05,3410 54001 TS L
036961,000157: 05,3411 40000 COM
036962,000158: 05,3412 52761 DXCH -PHASE4
036963,000159: 05,3413 50002 INDEX Q
036964,000160: 05,3414 33476 CAF MODE70
036965,000161: 05,3415 55011 TS MODREG
036966,000162:
036967,000163: 05,3416 55163 TS DISPDEX # INSURE DISPDEX IS POSITIVE.
036968,000164:
036969,000165: 05,3417 10002 CCS Q # SET APSFLAG IF P71.
036970,000166: 05,3420 40106 CS FLGWRD10 # SET APSFLAG PRIOR TO THE ENEMA.
036971,000167: 05,3421 74737 MASK APSFLBIT
036972,000168: 05,3422 26106 ADS FLGWRD10
036973,000169: 05,3423 43501 CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9
036974,000170: 05,3424 70111 MASK DAPBOOLS # (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
036975,000171: 05,3425 54111 TS DAPBOOLS
036976,000172:
036977,000173: 05,3426 40101 CS FLAGWRD5 # SET ENGONFLG.
036978,000174: 05,3427 74745 MASK ENGONBIT
036979,000175: 05,3430 26101 ADS FLAGWRD5
036980,000176:
036981,000177: 05,3431 44355 CS PRIO30 # INSURE THAT THE ENGINE IS ON, IF ARMED.
036982,000178: 05,3432 00006 EXTEND
036983,000179: 05,3433 02011 RAND DSALMOUT
036984,000180: 05,3434 64737 AD BIT13
036985,000181: 05,3435 00006 EXTEND
036986,000182: 05,3436 01011 WRITE DSALMOUT
036987,000183:
036988,000184: 05,3437 34735 CAF LRBYBIT # TERMINATE R12.
036989,000185: 05,3440 54107 TS FLGWRD11
036990,000186:
036991,000187: 05,3441 40074 CS FLAGWRD0 # SET R10FLAG TO SUPPRESS OUTPUTS TO THE
036992,000188: 05,3442 74752 MASK R10FLBIT # CROSS-POINTER DISPLAY.
036993,000189: 05,3443 26074 ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
036994,000190: # DISPLAY INERTIAL DATA OUTBIT.
036995,000191: 05,3444 06011 TC CLRADMOD # INSURE RADMODES PROPERLY SET FOR R29.
036996,000192:
036997,000193: 05,3445 00006 EXTEND # LOAD TEVENT FOR THE DOWNLINK.
036998,000194: 05,3446 30025 DCA TIME2
036999,000195: 05,3447 53345 DXCH TEVENT
037000,000196:
037001,000197: 05,3450 00006 EXTEND
037002,000198: 05,3451 33475 DCA SVEXITAD
037003,000199: 05,3452 53253 DXCH AVGEXIT
037004,000200:
![]() |
Page 832 |
037006,000202: 05,3453 00006 EXTEND
037007,000203: 05,3454 34755 DCA NEG0
037008,000204: 05,3455 52753 DXCH -PHASE1
037009,000205:
037010,000206: 05,3456 00006 EXTEND
037011,000207: 05,3457 34755 DCA NEG0
037012,000208: 05,3460 52757 DXCH -PHASE3
037013,000209:
037014,000210: 05,3461 00006 EXTEND
037015,000211: 05,3462 34755 DCA NEG0
037016,000212: 05,3463 52765 DXCH -PHASE6
037017,000213:
037018,000214: 05,3464 36245 CAF THREE # SET UP 4.3SPOT FOR GOABORT
037019,000215: 05,3465 54001 TS L
037020,000216: 05,3466 40000 COM
037021,000217: 05,3467 52761 DXCH -PHASE4
037022,000218:
037023,000219: 05,3470 37730 CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
037024,000220: 05,3471 54030 TS TIME5 # 40 MILLISECONDS.
037025,000221:
037026,000222: 05,3472 04635 TC POSTJUMP
037027,000223: 05,3473 12765 CADR ENEMA
037028,000224:
037029,000225: 05,3474 E7,1515 EBANK= DVCNTR
037030,000226: 05,3474 03770 64067 SVEXITAD 2CADR SERVEXIT
037031,000227:
037032,000228: 05,3476 00106 MODE70 DEC 70 B-14
037033,000229: 05,3477 00027 OCTAL27 OCT 27
037034,000230: 05,3500 00107 MODE71 DEC 71 B-14
037035,000231:
037036,000232: 05,3501 00640 DAPBITS OCT 00640
037037,000233:
037038,000234: 32,3540 BANK 32
037039,000235: 32,2000 SETLOC ABORTS
037040,000236: 32,2000 BANK
037041,000237:
037042,000238: 32,3540 COUNT* $$/P70
037043,000239:
037044,000240: 32,3540 06037 GOABORT TC INTPRET
037045,000241: 32,3541 77624 CALL
037046,000242: 32,3542 61104 INITCDUW
037047,000243: 32,3543 77776 EXIT
037048,000244: 32,3544 34751 CAF FOUR
037049,000245: 32,3545 55515 TS DVCNTR
037050,000246:
037051,000247: 32,3546 33764 CAF WHICHADR
037052,000248: 32,3547 55455 TS WHICH
037053,000249:
037054,000250: 32,3550 05516 TC DOWNFLAG
037055,000251: 32,3551 00214 ADRES FLRCS
![]() |
Page 833 |
037057,000253: 32,3552 05516 TC DOWNFLAG
037058,000254: 32,3553 00175 ADRES FLUNDISP
037059,000255:
037060,000256: 32,3554 05516 TC DOWNFLAG
037061,000257: 32,3555 00161 ADRES IDLEFLAG
037062,000258:
037063,000259: 32,3556 05504 TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
037064,000260: 32,3557 00307 ADRES ACC4-2FL
037065,000261:
037066,000262: 32,3560 05321 TC CHECKMM
037067,000263: 32,3561 00106 70DEC DEC 70 B-14
037068,000264: 32,3562 13707 TCF P71RET
037069,000265:
037070,000266: 32,3563 06037 P70INIT TC INTPRET
037071,000267: 32,3564 77624 CALL
037072,000268: 32,3565 65737 TGOCOMP
037073,000269: 32,3566 54345 DLOAD SL
037074,000270: 32,3567 34003 MDOTDPS
037075,000271: 32,3570 20205 4D
037076,000272: 32,3571 77665 BDDV
037077,000273: 32,3572 01245 MASS
037078,000274: 32,3573 16271 STODL TBUP
037079,000275: 32,3574 01245 MASS
037080,000276: 32,3575 70471 DDV SR1
037081,000277: 32,3576 16015 K(1/DV)
037082,000278: 32,3577 03635 STORE 1/DV1
037083,000279: 32,3600 03637 STORE 1/DV2
037084,000280: 32,3601 03641 STORE 1/DV3
037085,000281: 32,3602 77665 BDDV
037086,000282: 32,3603 25763 K(AT)
037087,000283: 32,3604 16263 STODL AT
037088,000284: 32,3605 34005 DTDECAY
037089,000285: 32,3606 54276 DCOMP SL
037090,000286: 32,3607 20214 11D
037091,000287: 32,3610 02267 STORE TTO
037092,000288: 32,3611 57535 SLOAD DCOMP
037093,000289: 32,3612 26002 DPSVEX
037094,000290: 32,3613 77702 SR2
037095,000291: 32,3614 02265 STORE VE # INITIALIZE DPS EXHAUST VELOCITY
037096,000292: 32,3615 45014 SET CALL
037097,000293: 32,3616 04467 FLAP
037098,000294: 32,3617 60300 COMMINIT
037099,000295: 32,3620 52160 AXC,1 GOTO # RETURN HERE IN P70, SE X1 FOR DPS COEFF.
037100,000296: 32,3621 00000 0D
037101,000297: 32,3622 65625 BOTHPOLY
037102,000298: 32,3623 77760 INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF
037103,000299: 32,3624 00010 8D
037104,000300: 32,3625 41343 BOTHPOLY DLOAD* DMP # TGO D
037105,000301: 32,3626 02551 ABTCOF,1
037106,000302: 32,3627 03517 TGO
![]() |
Page 834 |
037108,000304: 32,3630 41213 DAD* DMP
037109,000305: 32,3631 02553 ABTCOF +2,1 # TGO(C+TGO D)
037110,000306: 32,3632 03517 TGO
037111,000307: 32,3633 41213 DAD* DMP
037112,000308: 32,3634 02555 ABTCOF +4,1 # TGO(B+TGO(C + TGO D))
037113,000309: 32,3635 03517 TGO
037114,000310: 32,3636 77613 DAD*
037115,000311: 32,3637 02557 ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
037116,000312: 32,3640 02277 STORE ZDOTD # STORE TENTATIVELY IN ZDOTD
037117,000313: 32,3641 51025 DSU BPL # CHECK AGAINST MINIMUM
037118,000314: 32,3642 02571 VMIN
037119,000315: 32,3643 65647 UPRATE # IF BIG ENOUGH, LEAVE ZDOTD AS IS .
037120,000316: 32,3644 77745 DLOAD
037121,000317: 32,3645 02571 VMIN
037122,000318: 32,3646 02277 STORE ZDOTD # IF TOO SMALL, REPLACE WITH MINIMUM.
037123,000319: 32,3647 77745 UPRATE DLOAD
037124,000320: 32,3650 02575 ABTRDOT
037125,000321: 32,3651 36273 STCALL RDOTD # INITIALIZE RDOTD.
037126,000322: 32,3652 57312 YCOMP # COMPUTE Y
037127,000323: 32,3653 45246 ABS DSU
037128,000324: 32,3654 02573 YLIM # /Y/-DYMAX
037129,000325: 32,3655 75240 BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0
037130,000326: 32,3656 65661 YOK # IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
037131,000327: 32,3657 02335 Y
037132,000328: 32,3660 03633 STORE YCO
037133,000329: 32,3661 45345 YOK DLOAD DSU
037134,000330: 32,3662 03633 YCO
037135,000331: 32,3663 02335 Y # COMPUTE XRANGE IN CASE ASTRONAUT WANTS
037136,000332: 32,3664 77661 SR
037137,000333: 32,3665 20606 5D
037138,000334: 32,3666 03643 STORE XRANGE # TO LOOK.
037139,000335: 32,3667 77414 UPTHROT SET EXIT
037140,000336: 32,3670 04461 FLVR
037141,000337:
037142,000338: 32,3671 05504 TC UPFLAG # SET ROTFLAG
037143,000339: 32,3672 00220 ADRES ROTFLAG
037144,000340:
037145,000341: 32,3673 03746 TC THROTUP
037146,000342:
037147,000343: 32,3674 05353 TC PHASCHNG
037148,000344: 32,3675 04024 OCT 04024
037149,000345:
037150,000346: 32,3676 04616 -3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
037151,000347: 32,3677 73747 CADR P40AUTO # ARE PROPERLY SET.
037152,000348:
037153,000349: 32,3700 03746 TC THROTUP
037154,000350:
037155,000351: 32,3701 00006 UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE.
037156,000352: 32,3702 33766 DCA ATMAGAD
037157,000353: 32,3703 53253 DXCH AVGEXIT
![]() |
Page 835 |
037159,000355: 32,3704 05353 GRP4OFF TC PHASCHNG # TERMINATE USE OF GROUP 4.
037160,000356: 32,3705 00004 OCT 00004
037161,000357:
037162,000358: 32,3706 15155 TCF ENDOFJOB
037163,000359:
037164,000360: 32,3707 05516 P71RET TC DOWNFLAG
037165,000361: 32,3710 00215 ADRES LETABORT
037166,000362:
037167,000363: 32,3711 36000 CAF THRESH2 # SET DVMON THRESHOLD TO THE ASCENT VALUE.
037168,000364: 32,3712 55251 TS DVTHRUSH
037169,000365:
037170,000366: 32,3713 06037 TC INTPRET
037171,000367: 32,3714 45014 BON CALL
037172,000368: 32,3715 04707 FLAP
037173,000369: 32,3716 65724 OLDTIME
037174,000370: 32,3717 65737 TGOCOMP # IF FLAP=0, TGO=T-TIG
037175,000371: 32,3720 52131 SSP GOTO
037176,000372: 32,3721 00053 QPRET
037177,000373: 32,3722 65623 CADR INJTARG
037178,000374: 32,3723 60254 P12INIT # WILL EXIT P12INIT TO INJTARG
037179,000375: 32,3724 72545 OLDTIME DLOAD SL1 # IF FLAP=1,TGO=2 TGO
037180,000376: 32,3725 03517 TGO
037181,000377: 32,3726 37502 STCALL TGO1
037182,000378: 32,3727 60254 P12INIT
037183,000379: 32,3730 77776 EXIT
037184,000380: 32,3731 05353 TC PHASCHNG
037185,000381: 32,3732 04024 OCT 04024
037186,000382:
037187,000383: 32,3733 00006 EXTEND
037188,000384: 32,3734 31502 DCA TGO1
037189,000385: 32,3735 53517 DXCH TGO
037190,000386: 32,3736 13676 TCF UPTHROT1 -3
037191,000387:
037192,000388: 32,3737 E7,1501 TGO1 = VGBODY
037193,000389: # ************************************************************************
037194,000390:
037195,000391: 21,2110 BANK 21
037196,000392: 21,2000 SETLOC R11
037197,000393: 21,2000 BANK
037198,000394: 21,2110 COUNT* $$/P70
037199,000395:
037200,000396: 21,2110 40775 LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
037201,000397: 21,2111 61011 AD MODREG
037202,000398: 21,2112 00006 EXTEND
037203,000399: 21,2113 12124 BZF ABORTALM
037204,000400:
037205,000401: 21,2114 40105 CS FLAGWRD9 # ARE THE ABORTS ENABLED?
037206,000402: 21,2115 74743 MASK LETABBIT
037207,000403: 21,2116 10000 CCS A
![]() |
Page 836 |
037209,000405: 21,2117 12124 TCF ABORTALM
037210,000406:
037211,000407: 21,2120 30103 CA FLAGWRD7 # IS SERVICER ON THE AIR?
037212,000408: 21,2121 74747 MASK AVEGFBIT
037213,000409: 21,2122 10000 CCS A
037214,000410: 21,2123 00002 TC Q # YES. ALL IS WELL.
037215,000411: 21,2124 04364 ABORTALM TC FALTON
037216,000412: 21,2125 04457 TC RELDSP
037217,000413: 21,2126 04635 TC POSTJUMP
037218,000414: 21,2127 21050 CADR PINBRNCH
037219,000415:
037220,000416: 32,3737 BANK 32
037221,000417: 32,2000 SETLOC ABORTS
037222,000418: 32,2000 BANK
037223,000419:
037224,000420: 32,3737 COUNT* $$/P70
037225,000421:
037226,000422: # ************************************************************************
037227,000423:
037228,000424: 32,3737 45234 TGOCOMP RTB DSU
037229,000425: 32,3740 21573 LOADTIME
037230,000426: 32,3741 03442 TIG
037231,000427: 32,3742 77661 SL
037232,000428: 32,3743 20214 11D
037233,000429: 32,3744 03517 STORE TGO
037234,000430: 32,3745 77616 RVQ
037235,000431:
037236,000432: # ************************************************************************
037237,000433:
037238,000434: 32,3746 34737 THROTUP CAF BIT13
037239,000435: 32,3747 54055 TS THRUST
037240,000436: 32,3750 34750 CAF BIT4
037241,000437: 32,3751 00006 EXTEND
037242,000438: 32,3752 05014 WOR CHAN14
037243,000439: 32,3753 00002 TC Q
037244,000440:
037245,000441: # ************************************************************************
037246,000442:
037247,000443: 32,3754 00000 01750 10SECS 2DEC 1000 B-28
037248,000444: 32,3756 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
037249,000445: 32,3760 11021 00000 (TGO)A 2DEC 37000 B-17
037250,000446: 32,3762 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT
037251,000447: 32,3764 02112 WHICHADR REMADR ABRTABLE
037252,000448:
037253,000449: # ************************************************************************
![]() |
Page 837 |
037255,000451: 32,3765 E7,1515 EBANK= DVCNTR
037256,000452: 32,3765 03642 70067 ATMAGAD 2CADR ATMAG
037257,000453: 32,3767 00003 ORBMANAD ADRES ORBMANUV
037258,000454:
End of include-file P70-P71.agc. Parent file is MAIN.agc