Assembly listing generated by yaYUL

Source Code

These source code files are a reconstruction of Sundance, 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

This means that source code does not represent a specific historical revision of Sundance, but rather a mixture of the three released versions. Nonetheless, it is capable of flying the whole Apollo 9 mission. This source code matches the binary dumps, as closely as feasible, but 100% match is not possible, due mostly to changes in memory addresses at which code and variables were allocated in different revisions of Sundance. Refer to this list of explanations for each binary mismatch.

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.

032789,000002: 032790,000003: 032791,000004: 032792,000005: 032793,000006: 032794,000007: 032795,000008: 032796,000009: 032797,000010: 032798,000011: 032799,000012: 032800,000013: 032801,000014: 032802,000015: 032803,000016: 032804,000017: 21,2102 032805,000018: 32,2000 032806,000019: 32,2000 032807,000020: 032808,000021: 32,3137 E7,1472 032809,000022: 32,3137 032810,000023: < 032812,000025: 32,3140 032813,000026: 032814,000027: 32,3141 032815,000028: 32,3142 032816,000029: 32,3143 032817,000030: 32,3144 032818,000031: 032862,000075: 032863,000076: 32,3202 032864,000077: 32,3203 032865,000078: 033101,000314: 033102,000315: 32,3505 033103,000316: 32,3506 033104,000317: 32,3507 033105,000318: < 033207,000420: < 033228,000441: 033229,000442: < 033231,000444: ## Copyright: Public domain. ## Filename: P70-P71.agc ## Purpose: A section of a reconstructed, mixed version of Sundance ## It is part of the reconstructed source code for the Lunar ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9. ## No original listings of this program are available; ## instead, this file was created via disassembly of dumps ## of various revisions of Sundance core rope modules. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2020-06-17 MAS Created from Luminary 69. ## Sundance 292 BANK 21 SETLOC R11 BANK EBANK= DVCNTR COUNT* $$/R11 /a>032811,000024: 32,3137 05271 ROSEN TC FIXDELAY 00062 DEC 50 B-14 40102 CS FLAGWRD6 75022 MASK KILLRBIT 00006 EXTEND 15321 BZF TASKOVER F">032819,000032: 32,3145 41012 P71NOW? CS MODREG # YES. ARE WE IN P71 NOW? 63160 AD MODE71 00006 EXTEND 15321 BZF TASKOVER # YES. EXIT. 00006 EXTEND # NO. IS AN ABORT STAGE COMMANDED? 00030 READ CHAN30 54001 TS L 75023 MASK BIT4 10000 CCS A 13166 TCF P70NOW? # NO. 05351 TC NEWMODEX >032832,000045: 32,3160 00107 MODE71 DEC 71 B-14 254">032834,000047: 32,3161 37665 STRTABRT CAF PRIO25 05155 TC FINDVAC EBANK= WHICH 03204 64067 2CADR ABORTJOB 13137 TCF ROSEN F">032841,000054: 32,3166 41012 P70NOW? CS MODREG # NO. ARE WE IN P70 NOW? 63177 AD MODE70 00006 EXTEND 13137 BZF ROSEN # YES. CHECK AGAIN IN 50MS. 40001 CS L # NO. IS AN ABORT COMMANDED? 75026 MASK BIT1 00006 EXTEND 13137 BZF ROSEN # NO. 05351 TC NEWMODEX # YES. >032852,000065: 32,3177 00106 MODE70 DEC 70 B-14 13161 TCF STRTABRT BANK 32 SETLOC ABORTS BANK COUNT* $$/P70 32,3201 03576 P70 TC LEGAL? 05351 TC NEWMODEX 00106 DEC 70 B-14 F42">032866,000079: 32,3204 00006 ABORTJOB EXTEND # LOAD TEVENT FOR THE DOWNLINK. 30025 DCA TIME2 53355 DXCH TEVENT 05373 TC 2PHSCHNG 00001 OCT 00001 00002 OCT 00002 05373 TC 2PHSCHNG 00003 OCT 00003 00006 OCT 00006 05413 TC PHASCHNG 07024 OCT 07024 25000 OCT 25000 EBANK= WHICH 03225 64067 2CADR GOABORT 00004 INHINT 04674 TC POSTJUMP 12570 CADR GOPROG2 4">032888,000101: 32,3225 05413 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 33671 DCA SVEXITAD 53253 DXCH AVEGEXIT 36221 CAF THREE # INITIALIZE FOR POWERED DOWNLIST. 54332 TS DNLSTCOD 55330 TS AGSWORD 05575 TC DOWNFLAG 00155 ADRES SWANDISP 05563 TC UPFLAG 00211 ADRES FLP70 05575 TC DOWNFLAG 17140 CADR XOVINFLG 05365 TC CHECKMM 00106 DEC 70 B-14 13510 TCF P71RET 4">032916,000129: 32,3252 33662 P70INIT CAF P70ADR 55430 TS WHICH 06014 TC INTPRET 77624 CALL 65611 TGOCOMP 77745 DLOAD 01244 MASS 56206 PUSH DDV 25635 MDOTDPS* 17642 STODL TBUP 70471 DDV SR1 25641 K(1/DV) 03644 STORE 1/DV1 03646 STORE 1/DV2 03650 STORE 1/DV3 77665 BDDV 25645 K(AT) 17634 STODL AT 25655 DTDECAY* 17640 STODL TTO 25651 DPSVEX 03636 STORE VE # INITIALIZE DPS EXHAUST VELOCITY 45014 SET CALL 04467 FLAP 60046 COMMINIT 7">032943,000156: 32,3303 45345 INJTARG DLOAD DSU 03474 TGO 25627 50SECS 77444 BPL EXIT 65376 UPTHROT 00004 INHINT 04737 TC IBNKCALL 75546 CADR ENGINOF1 00003 RELINT 03413 TC ZONEZERO 944">032956,000169: 32,3315 06014 ABRTGUID TC INTPRET 45014 SET CALL 04470 FLIC 60266 ASCENT 74E">032961,000174: 32,3321 77775 ABORTIGN VLOAD 03250 UNFC/2 25256 STOVL POINTVSM 06231 UNITX 01250 STORE SCAXIS 77414 CLEAR EXIT 02663 NOTHROTL 05413 TC PHASCHNG 04024 OCT 04024 05575 TC DOWNFLAG 00124 ADRES 3AXISFLG 00004 INHINT 04737 TC IBNKCALL 40221 CADR SETMINDB 05575 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 33621 CAF 6.5SEC 00004 INHINT 05252 TC WAITLIST EBANK= DVCNTR 02376 74067 2CADR ULLGTASK 33620 CAF 5.0SEC 05252 TC WAITLIST EBANK= TTOGO 02402 74067 2CADR TIG-5 00006 EXTEND 30025 DCA TIME2 53425 DXCH TIG 00006 EXTEND 33623 DCA 10SECS 21425 DAS TIG 04655 TC BANKCALL 74655 CADR STCLOK3 13407 TCF UPTHROT1 4">033019,000232: 32,3376 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">033031,000244: 32,3407 00006 UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE. 33667 DCA ATMAGAD 53253 DXCH AVGEXIT 15225 TCF ENDOFJOB 24F">033038,000251: 32,3413 06014 ZONEZERO TC INTPRET 77731 SSP 01263 OUTROUTE 65424 CADR ZONE0RET 77414 CLEAR EXIT 03672 AVEGFLAG 05413 TC PHASCHNG 00004 OCT 00004 15225 TCF ENDOFJOB 554">033050,000263: 32,3424 05413 ZONE0RET TC PHASCHNG 05024 OCT 05024 20000 OCT 20000 06014 TC INTPRET 43234 RTB DAD 21454 LOADTIME 25625 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 67200 MUNGRAV 45014 SET CALL 04471 FLZONE0 60266 ASCENT 431">033076,000289: 32,3455 77776 PREBRET1 EXIT 05413 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 05351 TC NEWMODEX 00050 DEC 40 B-14 04674 TC POSTJUMP 75133 CADR P40LM 32,3504 03576 P71 TC LEGAL? 05351 TC NEWMODEX 00107 DEC 71 B-14 13204 TCF ABORTJOB >033106,000319: 32,3510 33663 P71RET CAF P71ADR 55430 TS WHICH 05563 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 13561 TCF ABRTSTAG 00004 INHINT 04737 TC IBNKCALL 75546 CADR ENGINOF1 00003 RELINT 35025 CAF BIT2 00006 EXTEND 02030 RAND CHAN30 10000 CCS A 13545 TCF STAGED 33664 CAF OCT206 04655 TC BANKCALL 20532 CADR GOPERF1 14106 TCF GOTOPOOH 13545 TCF STAGED 13537 TCF -5 >033142,000355: 32,3545 33665 STAGED CAF OCT207 04655 TC BANKCALL 20532 CADR GOPERF1 14106 TCF GOTOPOOH 13553 TCF +2 13315 TCF ABRTGUID 00004 INHINT 35026 CAF ONE 05252 TC WAITLIST EBANK= DVCNTR 02446 74067 2CADR IGNITION 13407 TCF UPTHROT1 147">033157,000370: 32,3561 06014 ABRTSTAG TC INTPRET 77614 BOFF 04747 FLAP 65572 NEWTIME 72545 DLOAD SL1 03474 TGO 03474 STORE TGO 77634 RTB 65405 UPTHROT1 -2 5">033167,000380: 32,3572 77624 NEWTIME CALL 65611 TGOCOMP # IF FLAP=0, TGO=T-TIG 77650 GOTO 65303 INJTARG # ************************************************************************ >033174,000387: 32,3576 40105 LEGAL? CS FLAGWRD9 # ARE THE ABORTS ENABLED? 75016 MASK LETABBIT 10000 CCS A 13607 TCF ABORTALM 40103 CS FLAGWRD7 # IS SERVICER ON THE AIR? 75022 MASK AVEGFBIT 10000 CCS A 13607 TCF ABORTALM 00002 TC Q # YES. ALL IS WELL. C4D">033185,000398: 32,3607 04674 ABORTALM TC POSTJUMP 75714 CADR P40ALM # ************************************************************************ 0">033190,000403: 32,3611 45234 TGOCOMP RTB DSU 21454 LOADTIME 03425 TIG 77661 SL 20214 11D 03474 STORE TGO 77616 RVQ # ************************************************************************ >033200,000413: 32,3620 00764 5.0SEC DEC 500 B-14 >033202,000415: 32,3621 01212 6.5SEC DEC 650 B-14 >033204,000417: 32,3622 00000 01750 10SECS 2DEC 1000 B-28 /a>033206,000419: 32,3624 00000 17500 80SEC 2DEC 8000 B-28 >033208,000421: 32,3626 01161 00000 50SECS 2DEC 5000 B-17 4">033210,000423: 32,3630 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS. A32">033212,000425: 32,3632 04143 27611 ABTVINJ2 2DEC +16.77924013 B-7 32A">033214,000427: 32,3634 11075 16051 MDOTDPS* 2DEC 0.1425 B1 1">033217,000430: 32,3636 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">033225,000438: 32,3640 33025 16051 K(1/DV) 2DEC 432.67 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS. /a>033227,000440: 32,3642 05034 27135 (AT)A 2DEC 3.086 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS. # ASSUMPTIONS SAME AS FOR (1/DV)A. /a>033230,000443: 32,3644 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT 1">033232,000445: 32,3646 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 ******* >033240,000453: 32,3650 07270 10464 DPSVEX 2DEC 2943.96 E-2 B-7 # 9942 FT/SEC IN M/CS. >033242,000455: 32,3652 07404 32650 APSVEX 2DEC 3003.78 E-2 B-7 # 9684 FT/SEC IN M/CS. 92A">033244,000457: 32,3654 00004 22000 DTDECAY* 2DEC 36.5 B-17 92A">033246,000459: 32,3656 00001 21146 ATDECAY* 2DEC 12.3 B-17 >033248,000461: 32,3660 12771 00000 (TGO)A 2DEC 45000 B-17 >033250,000463: 32,3662 02077 P70ADR REMADR P70TABLE >033251,000464: 32,3663 02115 P71ADR REMADR P71TABLE >033253,000466: 32,3664 00206 OCT206 OCT 206 >033254,000467: 32,3665 00207 OCT207 OCT 207 # ************************************************************************ EBANK= DVCNTR 4">033258,000471: 32,3666 02213 60067 ATMAGAD 2CADR ATMAG EBANK= DVCNTR 144">033261,000474: 32,3670 02351 66067 SVEXITAD 2CADR SERVEXIT Parent file is MAIN.agc