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.

019108,000002: 019109,000003: 019110,000004: 019111,000005: 019112,000006: 019113,000007: 019114,000008: 019115,000009: 019116,000010: 019117,000011: 019118,000012: 019119,000013: 019120,000014: 019121,000015: 019122,000016: 019123,000017: 019124,000018: 019125,000019: 32,2000 019126,000020: 32,2000 019127,000021: 32,2000 019128,000022: 019129,000023: 32,2000 E7,1424 019130,000024: 019131,000025: 019132,000026: 32,2001 019133,000027: 32,2002 019134,000028: 019135,000029: 019136,000030: 32,2004 019137,000031: < < < < < ## Copyright: Public domain. ## Filename: P10,P11.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 32 SETLOC P10S BANK EBANK= TIG 32,2000 05600 P10 TC DOWNFLAG 00140 ADRES LTCPFLG 02005 TC P10/P11 32,2003 05566 P11 TC UPFLAG 00140 ADRES LTCPFLG 1">019138,000032: 32,2005 00006 P10/P11 EXTEND 31423 DCA TIG(AS) 53425 DXCH TIG 55424 TS TIG 32657 CAF V06N33AP 02643 TC VNDISP 32664 CAF V06N81AP 02643 TC VNDISP 30140 CA DSPMMTEM 00006 EXTEND 12032 BZF P10DISPS 32665 CAF V06N91 02643 TC VNDISP 32666 CAF V06N92 04655 TC BANKCALL 20544 CADR GOFLASHR 14106 TCF GOTOPOOH 02042 TC P1XSETUP 02022 TC -5 35026 CAF ONE 05556 TC BLANKET 053">019166,000060: 32,2032 32551 P10DISPS CA P10ZERO 55454 TS NN +1 32663 CAF V06N56 02643 TC VNDISP 32661 CAF V06N37AP 02643 TC VNDISP 32667 CAF V06N94 02643 TC VNDISP 550">019178,000072: 32,2042 06014 P1XSETUP TC INTPRET 43345 DLOAD DAD 03423 TIG(AS) 03744 INJTIME 03674 STORE TCSITPF 34041 STCALL TDEC1 27014 CSMPREC 77331 SSP VLOAD 03663 P1XITCNT 00000 0 00025 VATT1 17706 STODL VCSMINT 03716 INJALT 43312 SL2 DAD 24564 P10RM 27704 STOVL RLEMT2 00017 RATT1 03664 STORE RCSMINT 53435 VXV UNIT 00025 VATT1 17762 STODL UNVEC2 24560 30MIN 43206 PUSH DAD 03423 TIG(AS) 17740 STODL P1XMAX 43021 BDSU SET 03423 TIG(AS) 00474 SLOPESW 17427 STODL P1XTMIN 06233 ZEROVECS 03756 STORE P1XDT 0">019210,000104: 32,2101 77601 P1XLOOP SETPD 00001 0 65375 VLOAD PDDL 02025 RLS 03423 TIG(AS) 45006 PUSH CALL 51222 RP-TO-R 03676 STORE RLSBRCS 46206 PUSH VPROJ 03762 UNVEC2 57552 VSL2 VCOMP 77655 VAD 72056 UNIT LXA,1 03662 P1XITCNT 66110 INCR,1 SXA,1 00001 1 03662 P1XITCNT 37750 STCALL ULVEC 64516 P1XROT 77624 CALL 27362 INTSTALL 43175 VLOAD SET 03706 VCSMINT 00063 MOONFLAG 01543 STORE VCV 43175 VLOAD SET 03664 RCSMINT 01473 INTYPFLG 15535 STODL RCV 06233 ZEROVECS 15517 STODL TET 03423 TIG(AS) 45215 DAD DSU 03744 INJTIME 03674 TCSITPF 34041 STCALL TDEC1 27060 INTEGRVS 77214 BOFF VLOAD 03346 LTCPFLG 64210 P10CSI 00017 RATT1 01772 STORE RTARG 63256 UNIT PDVL 03724 RP1XROT 50256 UNIT DOT 65552 SL1 ACOS 51515 PDVL ABVAL 00017 RATT1 77715 PDVL 00025 VATT1 03770 STORE P11VTPF 77646 ABVAL 45006 PUSH CALL 64477 P11SMA 47375 VLOAD VXV 00017 RATT1 03724 RP1XROT 65241 DOT PDDL 03762 UNVEC2 00003 2D 41366 SQRT DMP 00003 2D 41205 DMP DMP 24577 ROOT1/MU 00001 0 75205 DMP SIGN 24562 P1XPI 41502 SR2 PUSH 03756 STORE P1XDT 77650 GOTO 64341 P1XCONV >019282,000176: 32,2210 43345 P10CSI DLOAD DAD 03423 TIG(AS) 03744 INJTIME 27621 STOVL TCSI 03724 RP1XROT 43142 SR1 SET 01072 AVFLAG 26317 STOVL RACT1 03732 VP1XROT 77742 VSR2 27457 STOVL VACT1 00001 0D 27465 STOVL RPASS1 00007 6D 03473 STORE VPASS1 77201 SETPD VLOAD 00001 0 03473 VPASS1 65315 PDVL PDDL 03465 RPASS1 03621 TCSI 65325 PDDL PDDL 03623 TTPI 33631 TWOPI 77006 PUSH AXT,2 00002 2 45134 SXA,2 CALL 02333 RTX2 73403 INTINT 77624 CALL 46202 PASSIVE 77160 AXC,1 AXT,2 00012 10D 00002 2D 53575 VLOAD UNIT 03465 RPASS1 53435 VXV UNIT 03473 VPASS1 02275 STORE UP1 66145 DLOAD SXA,1 24577 ROOT1/MU 02332 RTX1 16335 STODL RTSR1/MU 24571 P10MU 67061 SR SXA,2 20607 6D 02333 RTX2 36337 STCALL RTMU 70077 CSI/A 24D">019333,000227: 32,2271 53135 P10ALARM SLOAD BZE 03601 CSIALRM 64276 P10ITER 77776 EXIT 02471 TC P1XERDIS 2">019340,000234: 32,2276 45345 P10ITER DLOAD DSU 03746 CDHDELH 03567 DIFFALT 26760 STOVL DELDEP 02303 DELVEET1 77646 ABVAL 27563 STOVL DELVTPI 02311 DELVEET2 40246 ABVAL SETPD 00001 0 17565 STODL DELVTPF 03756 P1XDT 14015 STODL DELINDEP 03740 P1XMAX 14017 STODL MAX 03427 P1XTMIN 14011 STODL MIN 24556 P10FRAC 14051 STODL TWEEKIT 03423 TIG(AS) 16766 STODL INDEP 03567 DIFFALT 00037 STORE DEP 45014 CLEAR CALL 04271 ORDERSW 24536 ITERATOR 77745 DLOAD 03567 DIFFALT 16762 STODL DEPREV 00017 MAX 17740 STODL P1XMAX 00011 MIN 17427 STODL P1XTMIN 00015 DELINDEP 03756 STORE P1XDT 6">019376,000270: 32,2341 77646 P1XCONV ABVAL 50025 DSU BMN 24554 ONESEC 64361 P1XFINAL 54335 SLOAD SR 03663 P1XITCNT 20617 14D 51025 DSU BPL 24552 P1MAXIT 64466 P1XERR 43345 DLOAD DAD 03423 TIG(AS) 03756 P1XDT 03423 STORE TIG(AS) 77650 GOTO 64101 P1XLOOP 14C">019393,000287: 32,2361 50375 P1XFINAL VLOAD DOT 03676 RLSBRCS 03762 UNVEC2 53515 PDVL UNIT 03676 RLSBRCS 72441 DOT SL1 03750 ULVEC 75326 ACOS SIGN 57405 DMP DCOMP 24564 P10RM 54205 DMP SL 24562 P1XPI 20206 5D 17740 STODL P1XMAX 03423 TIG(AS) 45214 SET DSU 03075 ASCNTFLG 03672 P1XDELTT 17427 STODL P1XTMIN 03423 TIG(AS) 43006 PUSH BON 03306 LTCPFLG 64420 P11DISP 77615 DAD 03744 INJTIME 03621 STORE TCSI 77615 DAD 02261 T1TOT2 03371 STORE TCDH 77650 GOTO 64464 P1XEND 0">019425,000319: 32,2420 77615 P11DISP DAD 03742 TPITIME 03577 STORE INTIME 17623 STODL TTPI 03760 TPIANGLE 17714 STODL INJANGLE 03744 INJTIME 45415 DAD STADR 40103 STCALL TCSITPF 64516 P1XROT 67201 SETPD SLOAD 00001 0 14423 P31ZERO 41525 PDDL PUSH 24566 EPSFOUR* 43160 AXC,1 CLEAR 00012 10D 00275 B29FLAG 45345 DLOAD DSU 03744 INJTIME 03742 TPITIME 26355 STOVL DELLT4 03724 RP1XROT 26341 STOVL RINIT 03732 VP1XROT 36347 STCALL VINIT 22022 INITVEL 70575 VLOAD VSR2 03363 DELVEET3 77646 ABVAL 27563 STOVL DELVTPI 03553 VACT4 70451 VSU VSR2 03770 P11VTPF 77646 ABVAL 03565 STORE DELVTPF >019463,000357: 32,2464 77776 P1XEND EXIT 02600 TC P1XDISP >019466,000360: 32,2466 77776 P1XERR EXIT 05651 TC ALARM 00605 OCT 605 953">019470,000364: 32,2471 32654 P1XERDIS CAF V05N09AP 04655 TC BANKCALL 20406 CADR GOFLASH 14106 TCF GOTOPOOH 12005 TCF P10/P11 12471 TCF -5 >019477,000371: 32,2477 41205 P11SMA DMP DMP 00003 2D 24573 1/MU* 41405 DMP PUSH 45335 SLOAD DSU 24570 SMATWO 65301 NORM PDDL 00047 X1 70501 NORM SR1 00050 X2 77671 DDV 53664 XSU,2 SR* 00046 X1 57173 3,2 43406 PUSH RVQ >019493,000387: 32,2516 41345 P1XROT DLOAD DMP 03714 INJANGLE 24575 DEGTOREV 41461 SL PUSH 20217 14D 74346 COS VXSC 03750 ULVEC 73525 PDDL SIN 47315 PDVL VXV 03762 UNVEC2 03750 ULVEC 74256 UNIT VXSC 77655 VAD 72561 VXSC VSL2 03704 RLEMT2 03724 STORE RP1XROT 74256 UNIT VXSC 03720 P1XVVER 53515 PDVL UNIT 03724 RP1XROT 74235 VXV VXSC 03762 UNVEC2 03722 P1XVHOR 52372 VSL1 VSU 66476 VCOMP VSL3 03732 STORE VP1XROT 77616 RVQ 4">019521,000415: 32,2551 00000 00012 P1MAXIT 2DEC 10 B-28 F">019522,000416: 32,2553 32,2551 P10ZERO = P1MAXIT >019523,000417: 32,2553 00000 00144 ONESEC 2DEC 100 B-28 3">019524,000418: 32,2555 06314 31463 P10FRAC 2DEC 0.2 /a>019525,000419: 32,2557 00012 37440 30MIN 2DEC 1800 E2 /a>019526,000420: 32,2561 01444 07733 P1XPI 2DEC 3.141592659 B-6 /a>019527,000421: 32,2563 00324 05324 P10RM 2DEC 1738090 B-27 22A">019528,000422: 32,2565 01252 25253 EPSFOUR* 2DEC 0.0416666666 >019529,000423: 32,2567 00100 SMATWO DEC 2 B5 /a>019530,000424: 32,2570 16471 01352 P10MU 2DEC 4.902778 E8 B-30 /a>019531,000425: 32,2572 21412 20500 1/MU* 2DEC 2.03966 E-9 B28 556">019532,000426: 32,2574 00055 20266 DEGTOREV 2DEC 0.0055555555 B-1 D55">019533,000427: 32,2576 27533 07571 ROOT1/MU 2DEC 4.516259492 E-5 B14 0">019535,000429: 32,2600 00006 P1XDISP EXTEND 31423 DCA TIG(AS) 53425 DXCH TIG 55424 TS TIG 32657 CAF V06N33AP 02643 TC VNDISP 30140 CA DSPMMTEM 00006 EXTEND 12620 BZF P10OUTD 32661 CAF V06N37AP 02643 TC VNDISP 31673 CA TCSITPF 55046 TS DSPTEM1 32660 CAF V06N34AP 02643 TC VNDISP 02624 TC P10N53 4">019556,000450: 32,2620 32655 P10OUTD CAF V06N30AP 02643 TC VNDISP 32656 CAF V06N31AP 02643 TC VNDISP >019562,000456: 32,2624 32662 P10N53 CAF V06N53AP 02643 TC VNDISP 4">019565,000459: 32,2626 35026 P1XCNTD CAF ONE 00004 INHINT 05252 TC WAITLIST EBANK= TIG 02707 74067 2CADR CLOKTASK 00003 RELINT 32670 CAF V16N35AP 04655 TC BANKCALL 20406 CADR GOFLASH 04106 TC GOTOPOOH 12642 TCF +2 12626 TCF P1XCNTD 04106 TC GOTOPOOH >019581,000475: 32,2643 00006 VNDISP EXTEND 23452 QXCH RTRN 55602 TS VERBNOUN 31602 CA VERBNOUN 04655 TCR BANKCALL 20406 CADR GOFLASH 14106 TCF GOTOPOOH 01452 TC RTRN 12646 TCF -5 150">019591,000485: 32,2654 01211 V05N09AP VN 0509 150">019592,000486: 32,2655 01436 V06N30AP VN 0630 150">019593,000487: 32,2656 01437 V06N31AP VN 0631 150">019594,000488: 32,2657 01441 V06N33AP VN 0633 150">019595,000489: 32,2660 01442 V06N34AP VN 0634 150">019596,000490: 32,2661 01445 V06N37AP VN 0637 150">019597,000491: 32,2662 01465 V06N53AP VN 0653 >019598,000492: 32,2663 01470 V06N56 VN 0656 150">019599,000493: 32,2664 01521 V06N81AP VN 0681 >019600,000494: 32,2665 01533 V06N91 VN 0691 >019601,000495: 32,2666 01534 V06N92 VN 0692 >019602,000496: 32,2667 01536 V06N94 VN 0694 150">019603,000497: 32,2670 04043 V16N35AP VN 1635 Parent file is MAIN.agc