Assembly listing generated by yaYUL

Source Code

These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:

B1 — Revision 292
B2 — Revision 302
B3 — Revision 302
B4 — Revision 302
B5 — Revision 292
B6 — Revision 306

These dumps were then modified using memos, checklists, observed address changes, and the Sundance GSOPs to get the entire program to match Sundance revision 306 as closely as possible. Without more information, it is not possible to say how close it actually is; however, this code should be quite close. It is capable of flying the whole Apollo 9 mission using the original checklists and padload. Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

032919,000002: 032920,000003: 032921,000004: 032922,000005: 032923,000006: 032924,000007: 032925,000008: 032926,000009: 032927,000010: 032928,000011: 032929,000012: 032930,000013: 032931,000014: 032932,000015: 032933,000016: 032934,000017: 032935,000018: 032936,000019: 21,2102 032937,000020: 32,2000 032938,000021: 32,2000 032939,000022: 032940,000023: 32,3157 E7,1472 032941,000024: 32,3157 032942,000025: < 032944,000027: 32,3160 032945,000028: 032946,000029: 32,3161 032947,000030: 32,3162 032948,000031: 32,3163 032949,000032: 32,3164 032950,000033: 032994,000077: 032995,000078: 32,3222 032996,000079: 32,3223 032997,000080: 033233,000316: 033234,000317: 32,3525 033235,000318: 32,3526 033236,000319: 32,3527 033237,000320: < 033339,000422: < 033360,000443: 033361,000444: < 033363,000446: ## Copyright: Public domain. ## Filename: P70-P71.agc ## Purpose: A section of an attempt to reconstruct Sundance revision 306 ## as closely as possible with available information. Sundance ## 306 is the source code for the Lunar Module's (LM) Apollo ## Guidance Computer (AGC) for Apollo 9. This program was created ## using the mixed-revision SundanceXXX as a starting point, and ## pulling back features from Luminary 69 believed to have been ## added based on memos, checklists, observed address changes, ## or the Sundance GSOPs. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2020-07-24 MAS Created from SundanceXXX. BANK 21 SETLOC R11 BANK EBANK= DVCNTR COUNT* $$/R11 /a>032943,000026: 32,3157 05271 ROSEN TC FIXDELAY 00062 DEC 50 B-14 40102 CS FLAGWRD6 75022 MASK KILLRBIT 00006 EXTEND 15331 BZF TASKOVER F">032951,000034: 32,3165 41012 P71NOW? CS MODREG # YES. ARE WE IN P71 NOW? 63200 AD MODE71 00006 EXTEND 15331 BZF TASKOVER # YES. EXIT. 00006 EXTEND # NO. IS AN ABORT STAGE COMMANDED? 00030 READ CHAN30 54001 TS L 75023 MASK BIT4 10000 CCS A 13206 TCF P70NOW? # NO. 05361 TC NEWMODEX >032964,000047: 32,3200 00107 MODE71 DEC 71 B-14 254">032966,000049: 32,3201 37665 STRTABRT CAF PRIO25 05155 TC FINDVAC EBANK= WHICH 03224 64067 2CADR ABORTJOB 13157 TCF ROSEN F">032973,000056: 32,3206 41012 P70NOW? CS MODREG # NO. ARE WE IN P70 NOW? 63217 AD MODE70 00006 EXTEND 13157 BZF ROSEN # YES. CHECK AGAIN IN 50MS. 40001 CS L # NO. IS AN ABORT COMMANDED? 75026 MASK BIT1 00006 EXTEND 13157 BZF ROSEN # NO. 05361 TC NEWMODEX # YES. >032984,000067: 32,3217 00106 MODE70 DEC 70 B-14 13201 TCF STRTABRT BANK 32 SETLOC ABORTS BANK COUNT* $$/P70 32,3221 03616 P70 TC LEGAL? 05361 TC NEWMODEX 00106 DEC 70 B-14 F42">032998,000081: 32,3224 00006 ABORTJOB EXTEND # LOAD TEVENT FOR THE DOWNLINK. 30025 DCA TIME2 53355 DXCH TEVENT 05403 TC 2PHSCHNG 00001 OCT 00001 00002 OCT 00002 05403 TC 2PHSCHNG 00003 OCT 00003 00006 OCT 00006 05423 TC PHASCHNG 07024 OCT 07024 25000 OCT 25000 EBANK= WHICH 03245 64067 2CADR GOABORT 00004 INHINT 04674 TC POSTJUMP 12574 CADR GOPROG2 4">033020,000103: 32,3245 05423 GOABORT TC PHASCHNG 04024 OCT 04024 36216 CAF SIX # SET UP R60 FOR A 10 DEG/SEC MANUV. RATE. 55331 TS RATEINDX 35010 CAF LRBYBIT 55263 TS LRSTAT 00006 EXTEND 33711 DCA SVEXITAD 53253 DXCH AVEGEXIT 36221 CAF THREE # INITIALIZE FOR POWERED DOWNLIST. 54332 TS DNLSTCOD 55330 TS AGSWORD 05600 TC DOWNFLAG 00155 ADRES SWANDISP 05566 TC UPFLAG 00211 ADRES FLP70 05600 TC DOWNFLAG 17140 CADR XOVINFLG 05375 TC CHECKMM 00106 DEC 70 B-14 13530 TCF P71RET 4">033048,000131: 32,3272 33702 P70INIT CAF P70ADR 55430 TS WHICH 06014 TC INTPRET 77624 CALL 65631 TGOCOMP 77745 DLOAD 01244 MASS 56206 PUSH DDV 25655 MDOTDPS* 17642 STODL TBUP 70471 DDV SR1 25661 K(1/DV) 03644 STORE 1/DV1 03646 STORE 1/DV2 03650 STORE 1/DV3 77665 BDDV 25665 K(AT) 17634 STODL AT 25675 DTDECAY* 17640 STODL TTO 25671 DPSVEX 03636 STORE VE # INITIALIZE DPS EXHAUST VELOCITY 45014 SET CALL 04467 FLAP 60046 COMMINIT 7">033075,000158: 32,3323 45345 INJTARG DLOAD DSU 03474 TGO 25647 50SECS 77444 BPL EXIT 65416 UPTHROT 00004 INHINT 04737 TC IBNKCALL 75546 CADR ENGINOF1 00003 RELINT 03433 TC ZONEZERO 944">033088,000171: 32,3335 06014 ABRTGUID TC INTPRET 45014 SET CALL 04470 FLIC 60266 ASCENT 74E">033093,000176: 32,3341 77775 ABORTIGN VLOAD 03250 UNFC/2 25256 STOVL POINTVSM 06231 UNITX 01250 STORE SCAXIS 77414 CLEAR EXIT 02663 NOTHROTL 05423 TC PHASCHNG 04024 OCT 04024 05600 TC DOWNFLAG 00124 ADRES 3AXISFLG 00004 INHINT 04737 TC IBNKCALL 40221 CADR SETMINDB 05600 TC DOWNFLAG 00217 ADRES FLIC 04655 TC BANKCALL 54103 CADR R60LEM 04655 TC BANKCALL 75064 CADR P40AUTO 35030 CAF ZERO 55466 TS DVTOTAL 55467 TS DVTOTAL +1 06014 TC INTPRET 77624 CALL 61213 INITCDUW 77776 EXIT 33641 CAF 6.5SEC 00004 INHINT 05252 TC WAITLIST EBANK= DVCNTR 02376 74067 2CADR ULLGTASK 33640 CAF 5.0SEC 05252 TC WAITLIST EBANK= TTOGO 02402 74067 2CADR TIG-5 00006 EXTEND 30025 DCA TIME2 53425 DXCH TIG 00006 EXTEND 33643 DCA 10SECS 21425 DAS TIG 04655 TC BANKCALL 74655 CADR STCLOK3 13427 TCF UPTHROT1 4">033151,000234: 32,3416 77414 UPTHROT SET EXIT 04461 FLVR 00004 INHINT 35026 CAF ONE 05252 TC WAITLIST EBANK= DVCNTR 02566 74067 2CADR ZOOM 04655 -2 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES 75064 CADR P40AUTO # ARE PROPERLY SET. 431">033163,000246: 32,3427 00006 UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE. 33707 DCA ATMAGAD 53253 DXCH AVGEXIT 15225 TCF ENDOFJOB 24F">033170,000253: 32,3433 06014 ZONEZERO TC INTPRET 77731 SSP 01263 OUTROUTE 65444 CADR ZONE0RET 77414 CLEAR EXIT 03672 AVEGFLAG 05423 TC PHASCHNG 00004 OCT 00004 15225 TCF ENDOFJOB 554">033182,000265: 32,3444 05423 ZONE0RET TC PHASCHNG 05024 OCT 05024 20000 OCT 20000 06014 TC INTPRET 43234 RTB DAD 21454 LOADTIME 25645 80SEC 03546 STORE PIPTIME1 # STORE TEMPORARILY IN PIPTIME1. 34041 STCALL TDEC1 27030 LEMPREC 77775 VLOAD 00007 VATT 03540 STORE VN1 # STORE VTIG TEMPORARILY IN VN1. 76521 MXV VSL1 01736 REFSMMAT 27504 STOVL V 00001 RATT 03532 STORE RN1 # STORE RTIG TEMPORARILY IN RN1. 52521 MXV VSL6 01736 REFSMMAT 37476 STCALL R 67203 MUNGRAV 45014 SET CALL 04471 FLZONE0 60266 ASCENT 431">033208,000291: 32,3475 77776 PREBRET1 EXIT 05423 TC PHASCHNG 04024 OCT 04024 06014 TC INTPRET 76505 VXM VSL1 01736 REFSMMAT 03643 STORE DELVSIN 77646 ABVAL 27651 STOVL DELVSAB 03532 RN1 27627 STOVL RTIG 03540 VN1 17635 STODL VTIG 03546 PIPTIME1 03425 STORE TIG 43014 SET CLEAR 01067 XDELVFLG 03267 MUNFLAG 77776 EXIT 05361 TC NEWMODEX 00050 DEC 40 B-14 04674 TC POSTJUMP 75133 CADR P40LM 32,3524 03616 P71 TC LEGAL? 05361 TC NEWMODEX 00107 DEC 71 B-14 13224 TCF ABORTJOB >033238,000321: 32,3530 33703 P71RET CAF P71ADR 55430 TS WHICH 05566 TC UPFLAG 00144 ADRES KILLROSE 06014 TC INTPRET 77624 CALL 60031 P12INIT 77776 EXIT 00006 EXTEND 00030 READ CHAN30 40000 COM 75023 MASK BIT4 10000 CCS A 13601 TCF ABRTSTAG 00004 INHINT 04737 TC IBNKCALL 75546 CADR ENGINOF1 00003 RELINT 35025 CAF BIT2 00006 EXTEND 02030 RAND CHAN30 10000 CCS A 13565 TCF STAGED 33704 CAF OCT206 04655 TC BANKCALL 20532 CADR GOPERF1 14106 TCF GOTOPOOH 13565 TCF STAGED 13557 TCF -5 >033274,000357: 32,3565 33705 STAGED CAF OCT207 04655 TC BANKCALL 20532 CADR GOPERF1 14106 TCF GOTOPOOH 13573 TCF +2 13335 TCF ABRTGUID 00004 INHINT 35026 CAF ONE 05252 TC WAITLIST EBANK= DVCNTR 02446 74067 2CADR IGNITION 13427 TCF UPTHROT1 147">033289,000372: 32,3601 06014 ABRTSTAG TC INTPRET 77614 BOFF 04747 FLAP 65612 NEWTIME 72545 DLOAD SL1 03474 TGO 03474 STORE TGO 77634 RTB 65425 UPTHROT1 -2 5">033299,000382: 32,3612 77624 NEWTIME CALL 65631 TGOCOMP # IF FLAP=0, TGO=T-TIG 77650 GOTO 65323 INJTARG # ************************************************************************ >033306,000389: 32,3616 40105 LEGAL? CS FLAGWRD9 # ARE THE ABORTS ENABLED? 75016 MASK LETABBIT 10000 CCS A 13627 TCF ABORTALM 40103 CS FLAGWRD7 # IS SERVICER ON THE AIR? 75022 MASK AVEGFBIT 10000 CCS A 13627 TCF ABORTALM 00002 TC Q # YES. ALL IS WELL. C4D">033317,000400: 32,3627 04674 ABORTALM TC POSTJUMP 75714 CADR P40ALM # ************************************************************************ 0">033322,000405: 32,3631 45234 TGOCOMP RTB DSU 21454 LOADTIME 03425 TIG 77661 SL 20214 11D 03474 STORE TGO 77616 RVQ # ************************************************************************ >033332,000415: 32,3640 00764 5.0SEC DEC 500 B-14 >033334,000417: 32,3641 01212 6.5SEC DEC 650 B-14 >033336,000419: 32,3642 00000 01750 10SECS 2DEC 1000 B-28 /a>033338,000421: 32,3644 00000 17500 80SEC 2DEC 8000 B-28 >033340,000423: 32,3646 01161 00000 50SECS 2DEC 5000 B-17 4">033342,000425: 32,3650 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS. A32">033344,000427: 32,3652 04143 27611 ABTVINJ2 2DEC +16.77924013 B-7 32A">033346,000429: 32,3654 11075 16051 MDOTDPS* 2DEC 0.1425 B1 1">033349,000432: 32,3656 04031 23146 (1/DV)A 2DEC 16.20 B-7 # 2 SECONDS WORTH OF INITIAL ASCENT # STAGE ACCELERATION -- INVERTED (M/CS) # 1) PREDICATED ON A LIFTOFF MASS OF # 4869.9 KG (SNA-8-D-027 7/11/68) # 2) PREDICATED ON A CONTRIBUTION TO VEH- # ICLE ACCELERATION FROM RCS THRUSTERS # EQUIV. TO 1 JET ON CONTINUOUSLY. 9">033357,000440: 32,3660 33025 16051 K(1/DV) 2DEC 432.67 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS. /a>033359,000442: 32,3662 05034 27135 (AT)A 2DEC 3.086 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS. # ASSUMPTIONS SAME AS FOR (1/DV)A. /a>033362,000445: 32,3664 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT 1">033364,000447: 32,3666 27774 34000 (TBUP)A 2DEC 98279 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG # ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE # ADDITIONAL ASSUMPTION THAT NET MASS-FLOW # RATE = 5.299 KG/SEC = 5.135 (APS) + # .164 (1 RCS JET). # *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED ******* >033372,000455: 32,3670 07270 10464 DPSVEX 2DEC 2943.96 E-2 B-7 # 9942 FT/SEC IN M/CS. >033374,000457: 32,3672 07404 32650 APSVEX 2DEC 3003.78 E-2 B-7 # 9684 FT/SEC IN M/CS. 92A">033376,000459: 32,3674 00004 22000 DTDECAY* 2DEC 36.5 B-17 92A">033378,000461: 32,3676 00001 21146 ATDECAY* 2DEC 12.3 B-17 >033380,000463: 32,3700 12771 00000 (TGO)A 2DEC 45000 B-17 >033382,000465: 32,3702 02077 P70ADR REMADR P70TABLE >033383,000466: 32,3703 02115 P71ADR REMADR P71TABLE >033385,000468: 32,3704 00206 OCT206 OCT 206 >033386,000469: 32,3705 00207 OCT207 OCT 207 # ************************************************************************ EBANK= DVCNTR 4">033390,000473: 32,3706 02213 60067 ATMAGAD 2CADR ATMAG EBANK= DVCNTR 144">033393,000476: 32,3710 02354 66067 SVEXITAD 2CADR SERVEXIT Parent file is MAIN.agc