Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Sundial E, the final release of the Block II Command Module (CM) Apollo Guidance Computer (AGC) system test software.

They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003053-121, 2003053-151, and 2003972-211, belonging to the MIT Museum.

Since only binary dumps (rather than listings) of Sundial 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.

014116,000002: 014117,000003: 014118,000004: 014119,000005: 014120,000006: 014121,000007: 014122,000008: 014123,000009: 014124,000010: 014125,000011: 014126,000012: 014127,000013: 014128,000014: 014129,000015: 014130,000016: 04,3534 014131,000017: 014132,000018: 014133,000019: ## Copyright: Public domain. ## Filename: RTB_OP_CODES.agc ## Purpose: A section of Sundial E. ## It is part of the reconstructed source code for the final ## release of the Block II Command Module system test software. No ## original listings of this program are available; instead, this ## file was created via disassembly of dumps of Sundial core rope ## modules and comparison with other AGC programs. ## Assembler: yaYUL ## Contact: Ron Burkey <info@sandroid.org>. ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2023-06-22 MAS Created from Aurora 12. ## 2023-06-30 MAS Updated for Sundial E. SETLOC ENDPINS1 # LOAD TIME2, TIME1 INTO MPAC: D45">014134,000020: 04,3534 00006 LOADTIME EXTEND 30025 DCA TIME2 16470 TCF SLOAD2 # CONVERT THE SINGLE PRECISION 2'S COMPLEMENT NUMBER ARRIVING IN MPAC (SCALED IN HALF-REVOLUTIONS) TO A # DP 1'S COMPLEMENT NUMBER SCALED IN REVOLUTIONS. 943">014141,000027: 04,3537 10140 CDULOGIC CCS MPAC 37657 CAF ZERO 13544 TCF +3 13543 NOOP 47635 CS HALF 54141 TS MPAC +1 37657 CAF ZERO 56140 XCH MPAC 00006 EXTEND 77635 MP HALF 20141 DAS MPAC 16472 TCF SLOAD2 +2 # C(A) = +0. # READ IMU CDUS INTO MPAC AS A VECTOR. ESPECIALLY USEFUL IN CONNECTION WITH SMNB, ETC. 553">014157,000043: 04,3553 00004 READCDUS INHINT 30033 CA CDUY # IN ORDER Y Z X 54140 TS MPAC 30034 CA CDUZ 54143 TS MPAC +3 30032 CA CDUX 13570 TCF READPIPS +6 # COMMON CODING. # READ THE PIPS INTO MPAC WITHOUT CHANGING THEM: 053">014167,000053: 04,3562 00004 READPIPS INHINT 30037 CA PIPAX 54140 TS MPAC 30040 CA PIPAY 54143 TS MPAC +3 30041 CA PIPAZ 00003 RELINT 54145 TS MPAC +5 37657 CAF ZERO 54141 TS MPAC +1 54144 TS MPAC +4 54146 TS MPAC +6 5">014181,000067: 04,3576 47652 VECMODE CS ONE 16013 TCF NEWMODE # FORCE TP SIGN AGREEMENT IN MPAC: 545">014186,000072: 04,3600 07230 SGNAGREE TC TPAGREE 16014 TCF DANZIG # CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE # SCALED IN HALF-REVOLUTIONS. >014192,000078: 04,3602 03632 1STO2S TC 1TO2SUB 37657 CAF ZERO 54141 TS MPAC +1 16013 TCF NEWMODE # DO 1STO2S ON A VECTOR OF ANGLES: 3">014199,000085: 04,3606 03632 V1STO2S TC 1TO2SUB # ANSWER ARRIVES IN A AND MPAC. 52146 DXCH MPAC +5 52141 DXCH MPAC 03632 TC 1TO2SUB 54142 TS MPAC +2 52144 DXCH MPAC +3 52141 DXCH MPAC 03632 TC 1TO2SUB 54141 TS MPAC +1 30145 CA MPAC +5 54140 TS MPAC 37652 CAF ONE # MODE IS TP. 16013 TCF NEWMODE # V1STO2S FOR 2 COMPONENT VECTOR, USED BY RR. 253">014219,000105: 04,3623 03632 2V1STO2S TC 1TO2SUB 52144 DXCH MPAC +3 52141 DXCH MPAC 03632 TC 1TO2SUB 54001 TS L 30143 CA MPAC +3 16470 TCF SLOAD2 # SUBROUTINE TO DO DOUBLING AND 1'S TO 2'S COMVERSION: 2">014229,000115: 04,3632 52141 1TO2SUB DXCH MPAC # FINAL MPAC +1 UNSPECIFIED. 20001 DDOUBL 10000 CCS A 67652 AD ONE 13640 TCF +2 40000 COM # THIS WAS REVERSE OF MSU. 54140 TS MPAC # AND SKIP ON OVERFLOW. 00002 TC Q 50000 INDEX A # OVERFLOW UNCORRECT AND IN MSU. 37633 CAF LIMITS 26140 ADS MPAC 00002 TC Q # SUBROUTINE TO INCREMENT CDUS 553">014245,000131: 04,3646 33661 INCRCDUS CAF LOCTHETA 54114 TS BUF # PLACE ADRES(THETA) IN BUF. 30140 CAE MPAC # INCREMENT IN 1S COMPL. 03662 TC CDUINC 24114 INCR BUF 30143 CAE MPAC +3 03662 TC CDUINC 24114 INCR BUF 30145 CAE MPAC +5 03662 TC CDUINC 13576 TCF VECMODE 441">014260,000146: 04,3661 00400 LOCTHETA ADRES THETAD # THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL. # QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL. # (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL. >014266,000152: 04,3662 54126 CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT 50114 INDEX BUF 10000 CCS 0 # CHANGE 2S COMPL. ANGLE(IN BUF)INTO 1S 67652 AD ONE 13672 TCF +4 67652 AD ONE 67652 AD ONE # OVERFLOW HERE IF 2S COMPL. IS 180 DEG. 40000 COM 60126 AD TEM2 # ADD IN INCREMENT. WILL OVERFLOW IF RE- # SULT MOVES FROM 2ND TO 3D QUAD.(OR BACK) 10000 CCS A # BACK TO 2S COMPL. 67652 AD ONE 13677 TCF +2 40000 COM 54126 TS TEM2 # STORE 14BIT QUANTITY WITH PRESENT SIGN 13704 TCF +4 50000 INDEX A # OVERFLOW MEANS CORRECT 14BIT VALUE,WRONG # SIGN. 37633 CAF LIMITS # FIX IT,BY ADDING IN 37777 OR 40000 60126 AD TEM2 50114 INDEX BUF 54000 TS 0 # STORE NEW ANGLE IN 2S COMPLEMENT. 00002 TC Q # RTB TO TORQUE GYROS, EXCEPT FOR THE CALL TO IMUSTALL. ECADR OF COMMANDS ARRIVES IN X1. D55">014294,000180: 04,3707 50104 PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1 30046 CA X1 04064 TC BANKCALL 26333 CADR IMUPULSE 16014 TCF DANZIG 4">014300,000186: 04,3714 00004 PIPREAD INHINT 37657 CAF ZERO 56037 XCH PIPAX 54140 TS MPAC 37657 CAF ZERO 56040 XCH PIPAY 54143 TS MPAC +3 37657 CAF ZERO 56041 XCH PIPAZ 00003 RELINT 54145 TS MPAC +5 37657 CAF ZERO 54141 TS MPAC +1 54144 TS MPAC +4 54146 TS MPAC +6 13576 TCF VECMODE # TRANSPSE COMPUTES THE TRANSPOSE OF A MATRIX (TRANSPOSE = INVERSE OF ORTHOGONAL TRANSFORMATION). # THE INPUT IS A MATRIX DEFINING COORDINATE SYSTEM A WITH RESPECT TO COORDINATE SYSTEM B STORED IN STARAD THRU # STARAD +17D. # THE OUTPUT IS A MATRIX DEFINING COORDINATE SYSTEM B WITH RESPECT TO COORDINATE SYSTEM A STORED IN STARAD THRU # STARAD +17D. 345">014327,000213: 04,3734 53447 TRANSPSE DXCH STARAD +2 # PUSHDOWN NONE 53453 DXCH STARAD +6 53447 DXCH STARAD +2 53451 DXCH STARAD +4 53461 DXCH STARAD +12D 53451 DXCH STARAD +4 53457 DXCH STARAD +10D 53463 DXCH STARAD +14D 53457 DXCH STARAD +10D 16014 TCF DANZIG # EACH ROUTINE TAKES A 3X3 MATRIX STORED IN DOUBLE PRECISION IN A FIXED AREA OF ERASABLE MEMORY AND REPLACES IT # WITH THE TRANSPOSE MATRIX. TRANSP1 USES LOCATIONS XNB+0,+1 THROUGH XNB+16D, 17D AND TRANSP2 USES LOCATIONS # XNB1+0,+1 THROUGH XNB1+16D, 17D. EACH MATRIX IS STORED BY ROWS. EBANK= XNB 1">014346,000232: 04,3746 53425 TRANSP1 DXCH XNB +2 53431 DXCH XNB +6 53425 DXCH XNB +2 53427 DXCH XNB +4 53437 DXCH XNB +12D 53427 DXCH XNB +4 53435 DXCH XNB +10D 53441 DXCH XNB +14D 53435 DXCH XNB +10D 16014 TCF DANZIG EBANK= XNB1 2">014362,000248: 04,3760 53736 TRANSP2 DXCH XNB1 +2 53742 DXCH XNB1 +6 53736 DXCH XNB1 +2 53740 DXCH XNB1 +4 53750 DXCH XNB1 +12D 53740 DXCH XNB1 +4 53746 DXCH XNB1 +10D 53752 DXCH XNB1 +14D 53746 DXCH XNB1 +10D 16014 TCF DANZIG 353">014375,000261: 04,3772 ENDRTBSS EQUALS RTB_OP_CODES.agc. Parent file is MAIN.agc