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.

013815,000002: 013816,000003: 013817,000004: 013818,000005: 013819,000006: 013820,000007: 013821,000008: 013822,000009: 013823,000010: 013824,000011: 013825,000012: 013826,000013: 013827,000014: 013828,000015: 013829,000016: 013830,000017: 013831,000018: 013832,000019: 013833,000020: 013834,000021: 013835,000022: 013836,000023: 013837,000024: 013838,000025: 013839,000026: 013840,000027: 013841,000028: 013842,000029: 013843,000030: 013844,000031: 013845,000032: 013846,000033: 33,2000 013847,000034: 37,2000 013848,000035: 37,2000 013849,000036: 37,2000 E5,1416 013850,000037: 37,2000 013851,000038: < 014028,000215: 014029,000216: 37,2247 014030,000217: 37,2250 014031,000218: 37,2251 < 014151,000338: 37,2427 014152,000339: 37,2430 014153,000340: 37,2431 014154,000341: 37,2432 014155,000342: 37,2433 014156,000343: 37,2434 014157,000344: 37,2435 014158,000345: 37,2436 014159,000346: 37,2437 014160,000347: 37,2440 014161,000348: 37,2441 014162,000349: 37,2442 014163,000350: 37,2443 014164,000351: < 014177,000364: 37,2457 014178,000365: 37,2460 014179,000366: 37,2461 014180,000367: 37,2462 014181,000368: 37,2463 014182,000369: 37,2464 014183,000370: 37,2465 014184,000371: < < < < ## Copyright: Public domain. ## Filename: IMU_PERFORMANCE_TESTS_2.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. # NAME- IMU PERFORMANCE TESTS 2 # DATE- MARCH 20, 1967 # BY- SYSTEM TEST GROUP 864-6900 EXT. 1274 # MODNO.- ZERO # FUNCTIONAL DESCRIPTION # POSITIONING ROUTINES FOR THE IMU PERFORMANCE TESTS AS WELL AS SOME OF # THE TESTS THEMSELVES. FOR A DESCRIPTION OF THESE SUBROUTINES AND THE # OPERATING PROCEDURES (TYPICALLY) SEE STG MEMO 685.THEORETICAL REF.E-1973 BANK 33 SETLOC IMU2 BANK EBANK= POSITON COUNT* $$/P07 >013852,000039: 37,2000 05361 REDO TC NEWMODEX 00007 MM 07 B-14 454">013855,000042: 37,2002 02322 GEOIMUTT TC IMUZERR B">013856,000043: 37,2003 35030 IMUBACK CA ZERO 55414 TS NDXCTR 55440 TS TORQNDX 55441 TS TORQNDX +1 C">013860,000047: 37,2007 34373 NBPOSPL CA DEC17 55571 TS ZERONDX 32473 CA XNBADR 02364 TC ZEROING 35011 CA HALF 55664 TS XNB /a>013866,000053: 37,2015 06014 GUESS TC INTPRET 84B">013867,000054: 37,2016 62545 LATAZCHK DLOAD SL2 02403 LATITUDE 15050 STODL DSPTEM1 +1 02401 AZIMUTH 77434 RTB EXIT 21512 1STO2S 56154 XCH MPAC 55046 TS DSPTEM1 32470 CAF VN0641 04655 TC BANKCALL 20406 CADR GOFLASH 02265 TC ENDTEST1 02034 TC +2 02026 TC -5 06014 TC INTPRET 47135 SLOAD RTB 01047 DSPTEM1 21457 CDULOGIC 02401 STORE AZIMUTH 60535 SLOAD SR2 01050 DSPTEM1 +1 02403 STORE LATITUDE 57546 COS DCOMP 77752 SL1 16437 STODL WANGI 02403 LATITUDE 72556 SIN SL1 16435 STODL WANGO 02401 AZIMUTH 73406 PUSH SIN 02675 STORE YNB +2 16705 STODL ZNB +4 77746 COS 02677 STORE YNB +4 77676 DCOMP C">013902,000089: 37,2061 36703 POSGMBL STCALL ZNB +2 47147 CALCGA 77776 EXIT 04655 TC BANKCALL 16711 CADR IMUCOARS 35011 CAF BIT14 # IF BIT14 SET, GIMBAL LOCK 70077 MASK FLAGWRD3 00006 EXTEND 12073 BZF +2 25414 INCR NDXCTR # +1 IF IN GIMBAL LOCK, OTHERWISE 0 05600 TC DOWNFLAG 00056 ADRES GLOKFAIL # RESET GIMBAL LOCK FLAG 02312 TC IMUSLLLG 11414 CCS NDXCTR # IF ONE GO AND DO A PIPA TEST ONLY 02123 TC PIPACHK # ALIGN AND MEASURE VERTICAL PIPA RATE 02315 TC FINIMUDD 00006 EXTEND 31575 DCA PERFDLAY 05347 TC LONGCALL # DELAY WHILE SUSPENSION STABILIZES EBANK= POSITON 02110 76065 2CADR GOESTIMS 32113 CA ESTICADR 05203 TC JOBSLEEP D53">013926,000113: 37,2110 32113 GOESTIMS CA ESTICADR 05207 TC JOBWAKE 05331 TC TASKOVER 452">013929,000116: 37,2113 76477 ESTICADR CADR ESTIMS >013930,000117: 37,2114 35030 TORQUE CA ZERO 55051 TS DSPTEM2 31504 CA DRIFTI 55052 TS DSPTEM2 +1 51416 INDEX POSITON 55420 TS SOUTHDR -1 02454 TC SHOW B">013938,000125: 37,2123 51414 PIPACHK INDEX NDXCTR # PIPA TEST 02125 TC +1 02444 TC EARTHR* 34373 CA DEC17 # ALLOW PIP COUNTER TO OVERFLOW 17 TIMES 55476 TS DATAPL +4 # IN THE ALLOTED TIME INTERVAL 32471 CA DEC58 55412 TS LENGTHOT 35026 CA ONE 55537 TS RESULTCT 35030 CA ZERO 51415 INDEX PIPINDEX 54037 TS PIPAX 55472 TS DATAPL 02327 TC CHECKG 00004 INHINT 35025 CAF TWO 05243 TC TWIDDLE EBANK= XSM 02146 ADRES PIPATASK 05225 TC ENDOFJOB 34B">013959,000146: 37,2146 00006 PIPATASK EXTEND 27412 DIM LENGTHOT 31412 CA LENGTHOT 00006 EXTEND 62156 BZMF STARTPIP 35015 CAF BIT10 05243 TC TWIDDLE EBANK= XSM 02146 ADRES PIPATASK 950">013968,000155: 37,2156 35011 STARTPIP CAF PRIO20 05155 TC FINDVAC EBANK= XSM 02163 76065 2CADR PIPJOBB 05331 TC TASKOVER 2">013975,000162: 37,2163 51414 PIPJOBB INDEX NDXCTR 02165 TC +1 02444 TC EARTHR* 31412 CA LENGTHOT 00006 EXTEND 62172 BZMF +2 05225 TC ENDOFJOB 35031 CA FIVE 55537 TS RESULTCT 02327 TC CHECKG 11473 CCS DATAPL +1 02202 TC +4 05726 TC CCSHOLE 41476 CS DATAPL +4 55476 TS DATAPL +4 00006 EXTEND 41473 DCS DATAPL 21477 DAS DATAPL +4 06014 TC INTPRET 45345 DLOAD DSU 02501 DATAPL +6 02475 DATAPL +2 45044 BPL CALL 76214 AINGOTN 76272 OVERFFIX E">014002,000189: 37,2214 56325 AINGOTN PDDL DDV 02477 DATAPL +4 47075 DMPR RTB 37042 DEC585 # DEC585 HAS BEEN REDEFINED FOR LEM 21510 SGNAGREE 01052 STORE DSPTEM2 77776 EXIT 11414 CCS NDXCTR 02276 TC COAALIGN # TAKE PLATFORM OUT OF GIMBAL LOCK 02454 TC SHOW 654">014012,000199: 37,2226 32466 VERTDRFT CA 3990DEC # ABOUT 1 HOUR VERTICAL DRIFT TEST 55412 TS LENGTHOT 51416 INDEX POSITON 41417 CS SOUTHDR -2 55442 TS DRIFTT 11415 CCS PIPINDEX # OFFSET PLATFORM TO MISS PIP DEAD-ZONES 12242 TCF PON4 # Z UP IN POS 4 >014019,000206: 37,2235 45022 PON2 CS BIT5 # X UP 27565 ADS ERCOMP +2 35022 CA BIT5 27567 ADS ERCOMP +4 12246 TCF PON >014024,000211: 37,2242 45022 PON4 CS BIT5 27565 ADS ERCOMP +2 35022 CA BIT5 27563 ADS ERCOMP 37,2246 02444 PON TC EARTHR* 35030 CA ZERO # ALLOW ONLY SOUTH GYRO EARTH RATE COMPENS 55404 TS ERVECTOR 55405 TS ERVECTOR +1 >014032,000219: 37,2252 35006 GUESS1 CAF POSMAX 55440 TS TORQNDX 55441 TS TORQNDX +1 30032 CA CDUX 55413 TS LOSVEC 02477 TC ESTIMS >014038,000225: 37,2260 31502 VALMIS CA DRIFTO 55052 TS DSPTEM2 +1 35030 CA ZERO 55051 TS DSPTEM2 02454 TC SHOW 431">014044,000231: 37,2265 05600 ENDTEST1 TC DOWNFLAG 00007 ADRES IMUSE 45030 CS ZERO 05364 TC NEWMODEA 05564 TC ENDEXT 958">014050,000237: 37,2272 43215 OVERFFIX DAD DAD 06241 DPPOSMAX 37050 ONEDPP 77616 RVQ 74E">014055,000242: 37,2276 00006 COAALIGN EXTEND # COARSE ALIGN SUBROUTINE 23571 QXCH ZERONDX 35030 CA ZERO 55206 TS THETAD 55207 TS THETAD +1 55210 TS THETAD +2 04655 TC BANKCALL 16711 CADR IMUCOARS F41">014063,000250: 37,2306 04655 ALIGNCOA TC BANKCALL 17625 CADR IMUSTALL 03036 TC SOMERR2 01571 TC ZERONDX C47">014068,000255: 37,2312 00006 IMUSLLLG EXTEND 23571 QXCH ZERONDX 02306 TC ALIGNCOA 444">014072,000259: 37,2315 00006 FINIMUDD EXTEND 23571 QXCH ZERONDX 04655 TC BANKCALL 17121 CADR IMUFINE 02306 TC ALIGNCOA 2">014078,000265: 37,2322 00006 IMUZERR EXTEND 23571 QXCH ZERONDX 04655 TC BANKCALL 16622 CADR IMUZERO 02306 TC ALIGNCOA >014084,000271: 37,2327 00006 CHECKG EXTEND # PIP PULSE CATCHING ROUTINE 23417 QXCH QPLACE 02337 TC +6 1">014087,000274: 37,2332 00003 CHECKG1 RELINT 30067 CA NEWJOB 00006 EXTEND 62343 BZMF +6 05172 TC CHANG1 00004 INHINT 51415 INDEX PIPINDEX 40037 CS PIPAX 55571 TS ZERONDX 00004 INHINT 51415 INDEX PIPINDEX 30037 CA PIPAX 61571 AD ZERONDX 00006 EXTEND 12332 BZF CHECKG1 51415 INDEX PIPINDEX 30037 CA PIPAX 51537 INDEX RESULTCT 55472 TS DATAPL 04114 TC FINETIME 51537 INDEX RESULTCT 55473 TS DATAPL +1 51537 INDEX RESULTCT 23474 LXCH DATAPL +2 00003 RELINT 7">014112,000299: 37,2363 01417 ENDCHKG TC QPLACE 7">014114,000301: 37,2364 54001 ZEROING TS L 12367 TCF +2 731">014116,000303: 37,2366 55571 ZEROING1 TS ZERONDX 35030 CAF ZERO 50001 INDEX L 54000 TS 0 24001 INCR L 11571 CCS ZERONDX 12366 TCF ZEROING1 00002 TC Q 345">014125,000312: 37,2376 65345 ERTHRVSE DLOAD PDDL 37043 SCHZEROS # PD24 = (SIN -COS 0)(OMEG/MS) 02403 LATITUDE 57546 COS DCOMP 73525 PDDL SIN 02403 LATITUDE 74266 VDEF VXSC 36476 OMEG/MS 02405 STORE ERVECTOR 77634 RTB 21454 LOADTIME 26433 STOVL TMARK 37043 SCHZEROS 02564 STORE ERCOMP 77616 RVQ >014141,000328: 37,2415 47020 EARTHR ITA RTB 00051 S2 21454 LOADTIME 02431 STORE TEMPTIME 51025 DSU BPL 02433 TMARK 76426 ERTHR 77624 CALL 76272 OVERFFIX /a>014150,000337: 37,2426 74261 ERTHR SL VXSC 20212 9D 02405 ERVECTOR 53321 MXV VAD 02643 XSM 02564 ERCOMP 16564 STODL ERCOMP 02431 TEMPTIME 02433 STORE TMARK 47170 AXT,1 RTB 02563 ECADR ERCOMP 21617 PULSEIMU 77650 GOTO 00051 S2 A">014165,000352: 37,2444 00006 EARTHR* EXTEND 23420 QXCH QPLACES 06014 TC INTPRET 77624 CALL 76415 EARTHR 77776 EXIT 02312 TC IMUSLLLG 01420 TC QPLACES >014174,000361: 37,2454 00006 SHOW EXTEND 23417 QXCH QPLACE /a>014176,000363: 37,2456 31416 SHOW1 CA POSITON 55053 TS DSPTEM2 +2 32467 CA VB06N98 04655 TC BANKCALL 20406 CADR GOFLASH 02265 TC ENDTEST1 # V 34 01417 TC QPLACE # V33 12456 TCF SHOW1 3">014185,000372: 37,2466 07626 3990DEC DEC 3990 B-14 8">014186,000373: 37,2467 01542 VB06N98 VN 0698 >014187,000374: 37,2470 01451 VN0641 VN 0641 /a>014188,000375: 37,2471 4373 DEC17 = ND1 /a>014189,000376: 37,2471 00072 DEC58 DEC 58 B-14 /a>014190,000377: 37,2472 02737 OGCPL ECADR OGC /a>014191,000378: 37,2473 5047 1SECX = 1SEC >014192,000379: 37,2473 01664 XNBADR GENADR XNB >014193,000380: 37,2474 01642 XSMADR GENADR XSM 3">014194,000381: 37,2475 07623 26552 OMEG/MS 2DEC .24339048 BLOCK 2 COUNT* $$/P07 D45">014199,000386: 4114 00004 FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED 00006 EXTEND 00004 READ LOSCALAR 54001 TS L 00006 EXTEND 06004 RXOR LOSCALAR 00006 EXTEND 14127 BZF +4 00006 EXTEND 00004 READ LOSCALAR 54001 TS L 45006 +4 CS POSMAX 60001 AD L 00006 EXTEND 14115 BZF FINETIME +1 00006 EXTEND 00003 READ HISCALAR 00002 TC Q IMU_PERFORMANCE_TESTS_2.agc. Parent file is MAIN.agc