Assembly listing generated by yaYUL

Source Code

These source-code files are part of a reconstructed copy of Comanche 67, the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

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

062473,000002: 062474,000003: 062475,000004: 062476,000005: 062477,000006: 062478,000007: 062479,000008: 062480,000009: 062481,000010: 062482,000011: 062483,000012: 062484,000013: 062485,000014: 062486,000015: 062487,000016: 062488,000017: 22,3510 062489,000018: 22,2000 062490,000019: 22,2000 062491,000020: 062492,000021: 22,3510 E5,1713 062493,000022: 22,3510 062494,000023: 062495,000024: 062496,000025: < ## Copyright: Public domain. ## Filename: RTB_OP_CODES.agc ## Purpose: A section of Comanche revision 067. ## It is part of the reconstructed source code for the flight ## software for the Command Module's (CM) Apollo Guidance Computer ## (AGC) for Apollo 12. No original listings of this program are ## available; instead, this file was created via dissassembly of ## dumps of Comanche 067 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-08-16 MAS Created from Comanche 055. ## 2024-05-13 MAS Updated for Comanche 067. BANK 22 SETLOC RTBCODES BANK EBANK= XNB COUNT* $$/RTB # LOAD TIME2, TIME1 INTO MPAC: D45">062497,000026: 22,3510 00006 LOADTIME EXTEND 30025 DCA TIME2 16024 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">062504,000033: 22,3513 10154 CDULOGIC CCS MPAC 35035 CAF ZERO 13520 TCF +3 13517 NOOP 45016 CS HALF 54155 TS MPAC +1 35035 CAF ZERO 56154 XCH MPAC 00006 EXTEND 75016 MP HALF 20155 DAS MPAC 16030 TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION # READ THE PIPS INTO MPAC WITHOUT CHANGING THEM: 053">062520,000049: 22,3527 00004 READPIPS INHINT 30037 CA PIPAX 54154 TS MPAC 30040 CA PIPAY 54157 TS MPAC +3 30041 CA PIPAZ 00003 RELINT 54161 TS MPAC +5 35035 CAF ZERO 54155 TS MPAC +1 54160 TS MPAC +4 54162 TS MPAC +6 5">062533,000062: 22,3543 16470 VECMODE TCF VMODE # FORCE TP SIGN AGREEMENT IN MPAC: 545">062537,000066: 22,3544 07226 SGNAGREE TC TPAGREE 16030 TCF DANZIG # CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE # SCALED IN HALF-REVOLUTIONS. >062545,000074: 22,3546 03576 1STO2S TC 1TO2SUB 35035 CAF ZERO 54155 TS MPAC +1 16027 TCF NEWMODE # DO 1STO2S ON A VECTOR OF ANGLES: 3">062552,000081: 22,3552 03576 V1STO2S TC 1TO2SUB # ANSWER ARRIVES IN A AND MPAC. 52162 DXCH MPAC +5 52155 DXCH MPAC 03576 TC 1TO2SUB 54156 TS MPAC +2 52160 DXCH MPAC +3 52155 DXCH MPAC 03576 TC 1TO2SUB 54155 TS MPAC +1 30161 CA MPAC +5 54154 TS MPAC >062567,000096: 22,3565 35033 TPMODE CAF ONE # MODE IS TP. 16027 TCF NEWMODE # V1STO2S FOR 2 COMPONENT VECTOR. USED BY RR. 253">062572,000101: 22,3567 03576 2V1STO2S TC 1TO2SUB 52160 DXCH MPAC +3 52155 DXCH MPAC 03576 TC 1TO2SUB 54001 TS L 30157 CA MPAC +3 16024 TCF SLOAD2 # SUBROUTINE TO DO DOUBLING AND 1'S TO 2'S CONVERSION: 2">062582,000111: 22,3576 52155 1TO2SUB DXCH MPAC # FINAL MPAC +1 UNSPECIFIED. 20001 DDOUBL 10000 CCS A 65033 AD ONE 13604 TCF +2 40000 COM # THIS WAS REVERSE OF MSU. 54154 TS MPAC # AND SKIP ON OVERFLOW. 00002 TC Q 50000 INDEX A # OVERFLOW UNCORRECT AND IN MSU. 35014 CAF LIMITS 26154 ADS MPAC 00002 TC Q # SUBROUTINE TO INCREMENT CDUS 553">062599,000128: 22,3612 33625 INCRCDUS CAF LOCTHETA 54130 TS BUF # PLACE ADRES(THETA) IN BUF. 30154 CAE MPAC # INCREMENT IN 1S COMPL. 03626 TC CDUINC 24130 INCR BUF 30157 CAE MPAC +3 03626 TC CDUINC 24130 INCR BUF 30161 CAE MPAC +5 03626 TC CDUINC 13543 TCF VECMODE 441">062614,000143: 22,3625 01155 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. >062620,000149: 22,3626 54142 CDUINC TS TEM2 # 1S COMPL. QUANT. ARRIVES IN ACC. STORE IT 50130 INDEX BUF 10000 CCS 0 # CHANGE 2S COMPL. ANGLE (IN BUF) INTO 1S 65033 AD ONE 13636 TCF +4 65033 AD ONE 65033 AD ONE # OVERFLOW HERE IF 2S COMPL. IS 180 DEG. 40000 COM 60142 AD TEM2 # SULT MOVES FROM 2ND TO 3D QUAD. (OR BACK) 10000 CCS A # BACK TO 2S COMPL. 65033 AD ONE 13643 TCF +2 40000 COM 54142 TS TEM2 # STORE 14BIT QUANTITY WITH PRESENT SIGN 13650 TCF +4 50000 INDEX A # SIGN. 35014 CAF LIMITS # FIX IT, BY ADDING IN 37777 OR 40000 60142 AD TEM2 50130 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">062646,000175: 22,3653 50120 PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1 30046 CA X1 04676 TC BANKCALL 17206 CADR IMUPULSE 16030 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. /a>062656,000185: 22,3660 02713 XNBEB ECADR XNB >062657,000186: 22,3661 02554 XNB1EB ECADR XNB1 EBANK= XNB 1">062661,000190: 22,3662 33660 TRANSP1 CAF XNBEB 54003 TS EBANK 53716 DXCH XNB +2 53722 DXCH XNB +6 53716 DXCH XNB +2 53720 DXCH XNB +4 53730 DXCH XNB +12D 53720 DXCH XNB +4 53726 DXCH XNB +10D 53732 DXCH XNB +14D 53726 DXCH XNB +10D 16030 TCF DANZIG EBANK= XNB1 2">062677,000206: 22,3676 33661 TRANSP2 CAF XNB1EB 54003 TS EBANK 53557 DXCH XNB1 +2 53563 DXCH XNB1 +6 53557 DXCH XNB1 +2 53561 DXCH XNB1 +4 53571 DXCH XNB1 +12D 53561 DXCH XNB1 +4 53567 DXCH XNB1 +10D 53573 DXCH XNB1 +14D 53567 DXCH XNB1 +10D 16030 TCF DANZIG # THE SUBROUTINE SIGNMPAC SETS C(MPAC, MPAC +1) TO SIGN(MPAC). # FOR THIS, ONLY THE CONTENTS OF MPAC ARE EXAMINED. ALSO +0 YIELDS POSMAX AND -0 YIELDS NEGMAX. # ENTRY MAY BE BY EITHER OF THE FOLLOWING: # 1. LIMIT THE SIZE OF MPAC ON INTERPRETIVE OVERFLOW: # ENTRY: BOVB # SIGNMPAC # 2. GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC: # ENTRY: RTB # SIGNMPAC # IN EITHER CASE, RETURN IS TO THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. 143">062704,000233: 22,3712 00006 SIGNMPAC EXTEND 35013 DCA DPOSMAX 52155 DXCH MPAC 10000 CCS A >062708,000237: 22,3716 35035 DPMODE CAF ZERO # SETS MPAC +2 TO ZERO IN THE PROCESS 16026 TCF SLOAD2 +2 13721 TCF +1 00006 EXTEND 45013 DCS DPOSMAX 16024 TCF SLOAD2 # RTB OP CODE NORMUNIT IS LIKE INTERPRETIVE INSTRUCTION UNIT, EXCEPT THAT IT CAN BE DEPENDED ON NOT TO BLOW # UP WHEN THE VECTOR BEING UNITIZED IS VERY SMALL -- IT WILL BLOW UP WHEN ALL COMPONENTS ARE ZERO. IF NORMUNIT # IS USED AND THE UPPER ORDER HALVES OF ALL COMPONENTS ARE ZERO, THE MAGNITUDE RETURNED IN 36D WILL BE TOO LARGE # BY A FACTOR OF 2(13) AND THE SQUARED MAGNITUDE RETURNED AT 34D WILL BE TOO BIG BY A FACTOR OF 2(26). 831">062720,000249: 22,3724 35033 NORMUNX1 CAF ONE 13727 TCF NORMUNIT +1 954">062722,000251: 22,3726 35035 NORMUNIT CAF ZERO 60120 AD FIXLOC 54156 TS MPAC +2 04676 TC BANKCALL # GET SIGN AGREEMENT IN ALL COMPONENTS 01010 CADR VECAGREE 10154 CCS MPAC 13770 TCF NOSHIFT 13737 TCF +2 13770 TCF NOSHIFT 10157 CCS MPAC +3 13770 TCF NOSHIFT 13743 TCF +2 13770 TCF NOSHIFT 10161 CCS MPAC +5 13770 TCF NOSHIFT 13747 TCF +2 13770 TCF NOSHIFT 30155 CA MPAC +1 # SHIFT ALL COMPONENTS LEFT 13 00006 EXTEND 75016 MP BIT14 20155 DAS MPAC # DAS GAINS A LITTLE ACCURACY 30160 CA MPAC +4 00006 EXTEND 75016 MP BIT14 20160 DAS MPAC +3 30162 CA MPAC +6 00006 EXTEND 75016 MP BIT14 20162 DAS MPAC +5 35041 CAF THIRTEEN 50156 INDEX MPAC +2 54045 TS 37D 954">062754,000283: 22,3766 04715 OFFTUNIT TC POSTJUMP 01024 CADR UNIT +1 # SKIP THE "TC VECAGREE" DONE AT UNIT 4">062757,000286: 22,3770 35035 NOSHIFT CAF ZERO 13764 TCF OFFTUNIT -2 # RTB VECSGNAG ... FORCES SIGN AGREEMENT OF VECTOR IN MPAC. 147">062762,000291: 22,3772 04676 VECSGNAG TC BANKCALL 01010 CADR VECAGREE 06030 TC DANZIG RTB_OP_CODES.agc. Parent file is MAIN.agc