Source Code

065224,000001: # Copyright: Public domain. 065225,000002: # Filename: RT8_OP_CODES.agc 065226,000003: # Purpose: Part of the source code for Comanche, build 055. It 065227,000004: # is part of the source code for the Command Module's 065228,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 065229,000006: # Assembler: yaYUL 065230,000007: # Reference: pp. 1508-1516 065231,000008: # Contact: Ron Burkey <info@sandroid.org> 065232,000009: # Website: http://www.ibiblio.org/apollo. 065233,000010: # Mod history: 2009-05-07 RSB Adapted from Colossus249/RT8_OP_CODES.agc 065234,000011: # and page images. 065235,000012: # 2009-05-07 RSB Oops! Left out the entire last page before. 065236,000013: 065237,000014: # The contents of the "Comanche055" files, in general, are transcribed 065238,000015: # from scanned documents. 065239,000016: 065240,000017: # Assemble revision 055 of AGC program Comanche by NASA 065241,000018: # 2021113-051. April 1, 1969. 065242,000019: 065243,000020: # This AGC program shall also be referred to as Colossus 2A 065244,000021: 065245,000022: # Prepared by 065246,000023: # Massachusetts Institute of Technology 065247,000024: # 75 Cambridge Parkway 065248,000025: # Cambridge, Massachusetts 065249,000026: 065250,000027: # under NASA contract NAS 9-4065. 065251,000028: 065252,000029: # Refer directly to the online document mentioned above for further 065253,000030: # information. Please report any errors to info@sandroid.org. 065254,000031: 065255,000032: # Page 1508 065256,000033: 22,3510 BANK 22 065257,000034: 22,2000 SETLOC RTBCODES 065258,000035: 22,2000 BANK 065259,000036: 065260,000037: 22,3510 0002713 EBANK= XNB 065261,000038: 22,3510 COUNT* $$/RTB 065262,000039: 065263,000040: # LOAD TIME2, TIME1 INTO MPAC: 065264,000041: 065265,000042: 22,3510 00006 LOADTIME EXTEND 065266,000043: 22,3511 30025 DCA TIME2 065267,000044: 22,3512 16024 TCF SLOAD2 065268,000045: 065269,000046: # CONVERT THE SINGLE PRECISION 2'S COMPLEMENT NUMBER ARRIVING IN MPAC (SCALED IN HALF-REVOLUTIONS) TO A 065270,000047: # DP 1'S COMPLEMENT NUMBER SCALED IN REVOLUTIONS. 065271,000048: 065272,000049: 22,3513 10154 CDULOGIC CCS MPAC 065273,000050: 22,3514 35021 CAF ZERO 065274,000051: 22,3515 13520 TCF +3 065275,000052: 22,3516 13517 NOOP 065276,000053: 22,3517 45002 CS HALF 065277,000054: 065278,000055: 22,3520 54155 TS MPAC +1 065279,000056: 22,3521 35021 CAF ZERO 065280,000057: 22,3522 56154 XCH MPAC 065281,000058: 22,3523 00006 EXTEND 065282,000059: 22,3524 75002 MP HALF 065283,000060: 22,3525 20155 DAS MPAC 065284,000061: 22,3526 16030 TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION 065285,000062: 065286,000063: # READ THE PIPS INTO MPAC WITHOUT CHANGING THEM: 065287,000064: 065288,000065: 22,3527 00004 READPIPS INHINT 065289,000066: 22,3530 30037 CA PIPAX 065290,000067: 22,3531 54154 TS MPAC 065291,000068: 22,3532 30040 CA PIPAY 065292,000069: 22,3533 54157 TS MPAC +3 065293,000070: 22,3534 30041 CA PIPAZ 065294,000071: 22,3535 00003 RELINT 065295,000072: 22,3536 54161 TS MPAC +5 065296,000073: 065297,000074: 22,3537 35021 CAF ZERO 065298,000075: 22,3540 54155 TS MPAC +1 065299,000076: 22,3541 54160 TS MPAC +4 065300,000077: 22,3542 54162 TS MPAC +6 065301,000078: 22,3543 16470 VECMODE TCF VMODE 065302,000079: 065303,000080: # FORCE TP SIGN AGREEMENT IN MPAC: 065304,000081: 065305,000082: 22,3544 07226 SGNAGREE TC TPAGREE 065306,000083: 065307,000084: # Page 1509 065308,000085: 065309,000086: 22,3545 16030 TCF DANZIG 065310,000087: 065311,000088: # CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE 065312,000089: # SCALED IN HALF-REVOLUTIONS. 065313,000090: 065314,000091: 22,3546 03576 1STO2S TC 1TO2SUB 065315,000092: 22,3547 35021 CAF ZERO 065316,000093: 22,3550 54155 TS MPAC +1 065317,000094: 22,3551 16027 TCF NEWMODE 065318,000095: 065319,000096: # DO 1STO2S ON A VECTOR OF ANGLES: 065320,000097: 065321,000098: 22,3552 03576 V1STO2S TC 1TO2SUB # ANSWER ARRIVES IN A AND MPAC. 065322,000099: 065323,000100: 22,3553 52162 DXCH MPAC +5 065324,000101: 22,3554 52155 DXCH MPAC 065325,000102: 22,3555 03576 TC 1TO2SUB 065326,000103: 22,3556 54156 TS MPAC +2 065327,000104: 065328,000105: 22,3557 52160 DXCH MPAC +3 065329,000106: 22,3560 52155 DXCH MPAC 065330,000107: 22,3561 03576 TC 1TO2SUB 065331,000108: 22,3562 54155 TS MPAC +1 065332,000109: 065333,000110: 22,3563 30161 CA MPAC +5 065334,000111: 22,3564 54154 TS MPAC 065335,000112: 065336,000113: 22,3565 35017 TPMODE CAF ONE # MODE IS TP. 065337,000114: 22,3566 16027 TCF NEWMODE 065338,000115: 065339,000116: # V1STO2S FOR 2 COMPONENT VECTOR. USED BY RR. 065340,000117: 065341,000118: 22,3567 03576 2V1STO2S TC 1TO2SUB 065342,000119: 22,3570 52160 DXCH MPAC +3 065343,000120: 22,3571 52155 DXCH MPAC 065344,000121: 22,3572 03576 TC 1TO2SUB 065345,000122: 22,3573 54001 TS L 065346,000123: 22,3574 30157 CA MPAC +3 065347,000124: 22,3575 16024 TCF SLOAD2 065348,000125: 065349,000126: # SUBROUTINE TO DO DOUBLING AND 1'S TO 2'S CONVERSION: 065350,000127: 065351,000128: 22,3576 52155 1TO2SUB DXCH MPAC # FINAL MPAC +1 UNSPECIFIED. 065352,000129: 22,3577 20001 DDOUBL 065353,000130: 22,3600 10000 CCS A 065354,000131: 22,3601 65017 AD ONE 065355,000132: 22,3602 13604 TCF +2 065356,000133: 22,3603 40000 COM # THIS WAS REVERSE OF MSU. 065357,000134: 065358,000135: 22,3604 54154 TS MPAC # AND SKIP ON OVERFLOW. 065359,000136: # Page 1510 065360,000137: 22,3605 00002 TC Q 065361,000138: 065362,000139: 22,3606 50000 INDEX A # OVERFLOW UNCORRECT AND IN MSU. 065363,000140: 22,3607 35000 CAF LIMITS 065364,000141: 22,3610 26154 ADS MPAC 065365,000142: 22,3611 00002 TC Q 065366,000143: 065367,000144: # Page 1511 065368,000145: # SUBROUTINE TO INCREMENT CDUS 065369,000146: 065370,000147: 22,3612 33625 INCRCDUS CAF LOCTHETA 065371,000148: 22,3613 54130 TS BUF # PLACE ADRES(THETA) IN BUF. 065372,000149: 22,3614 30154 CAE MPAC # INCREMENT IN 1'S COMPL. 065373,000150: 22,3615 03626 TC CDUINC 065374,000151: 065375,000152: 22,3616 24130 INCR BUF 065376,000153: 22,3617 30157 CAE MPAC +3 065377,000154: 22,3620 03626 TC CDUINC 065378,000155: 065379,000156: 22,3621 24130 INCR BUF 065380,000157: 22,3622 30161 CAE MPAC +5 065381,000158: 22,3623 03626 TC CDUINC 065382,000159: 065383,000160: 22,3624 13543 TCF VECMODE 065384,000161: 065385,000162: 22,3625 01155 LOCTHETA ADRES THETAD 065386,000163: 065387,000164: # THE FOLLOWING ROUTINE INCREMENTS IN 2'S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1'S COMPL. 065388,000165: # QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCRMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2'S COMPL. 065389,000166: # (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL. 065390,000167: 065391,000168: 22,3626 54142 CDUINC TS TEM2 # 1'S COMPL. QUANT. ARRIVES IN ACC. STORE IT 065392,000169: 22,3627 50130 INDEX BUF 065393,000170: 22,3630 10000 CCS 0 # CHANGE 2'S COMPLE. ANGEL (IN BUF) INTO 1'S 065394,000171: 22,3631 65017 AD ONE 065395,000172: 22,3632 13636 TCF +4 065396,000173: 22,3633 65017 AD ONE 065397,000174: 22,3634 65017 AD ONE # OVEFLOW HERE IF 2'S COMPL. IS 180 DEG. 065398,000175: 22,3635 40000 COM 065399,000176: 065400,000177: 22,3636 60142 AD TEM2 # SULT MOVES FROM 2ND TO 3D QUAD. (OR BACK) 065401,000178: 22,3637 10000 CCS A # BACK TO 2'S COMPL. 065402,000179: 22,3640 65017 AD ONE 065403,000180: 22,3641 13643 TCF +2 065404,000181: 22,3642 40000 COM 065405,000182: 22,3643 54142 TS TEM2 # STORE 14-BIT QUANTITY WITH PRESENT SIGN 065406,000183: 22,3644 13650 TCF +4 065407,000184: 22,3645 50000 INDEX A # SIGN. 065408,000185: 22,3646 35000 CAF LIMITS # FIX IT, BY ADDING IN 37777 OR 40000 065409,000186: 22,3647 60142 AD TEM2 065410,000187: 065411,000188: 22,3650 50130 INDEX BUF 065412,000189: 22,3651 54000 TS 0 # STORE NEW ANGLE IN 2'S COMPLEMENT. 065413,000190: 22,3652 00002 TC Q 065414,000191: 065415,000192: # Page 1512 065416,000193: # RTB TO TORQUE GYROS, EXCEPT FOR THE CALL TO IMUSTALL. ECADR OF COMMANDS ARRIVES IN X1. 065417,000194: 065418,000195: 22,3653 50120 PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1 065419,000196: 22,3654 30046 CA X1 065420,000197: 22,3655 04662 TC BANKCALL 065421,000198: 22,3656 17206 CADR IMUPULSE 065422,000199: 22,3657 16030 TCF DANZIG 065423,000200: 065424,000201: # Page 1513 065425,000202: # EACH ROUTINE TAKES A 3X3 MATRIX STORED IN DOUBLE PRECISION IN A FIXED AREA OF ERASABLE MEMORY AND REPLACES IT 065426,000203: # WITH THE TRANSPOSE MATRIX. TRANSP1 USES LOCATIONS XNB+0,+1 THROUGH XNB+16D,+17D AND TRANSP2 USES LOCATIONS 065427,000204: # XNB1+0,+1 THROUGH XNB1+16D,+17D. EACH MATRIX IS STORED BY ROWS. 065428,000205: 065429,000206: 22,3660 02713 XNBEB ECADR XNB 065430,000207: 22,3661 02554 XNB1EB ECADR XNB1 065431,000208: 065432,000209: 22,3662 0002713 EBANK= XNB 065433,000210: 065434,000211: 22,3662 33660 TRANSP1 CAF XNBEB 065435,000212: 22,3663 54003 TS EBANK 065436,000213: 22,3664 53716 DXCH XNB +2 065437,000214: 22,3665 53722 DXCH XNB +6 065438,000215: 22,3666 53716 DXCH XNB +2 065439,000216: 065440,000217: 22,3667 53720 DXCH XNB +4 065441,000218: 22,3670 53730 DXCH XNB +12D 065442,000219: 22,3671 53720 DXCH XNB +4 065443,000220: 065444,000221: 22,3672 53726 DXCH XNB +10D 065445,000222: 22,3673 53732 DXCH XNB +14D 065446,000223: 22,3674 53726 DXCH XNB +10D 065447,000224: 22,3675 16030 TCF DANZIG 065448,000225: 22,3676 0002554 EBANK= XNB1 065449,000226: 065450,000227: 22,3676 33661 TRANSP2 CAF XNB1EB 065451,000228: 22,3677 54003 TS EBANK 065452,000229: 22,3700 53557 DXCH XNB1 +2 065453,000230: 22,3701 53563 DXCH XNB1 +6 065454,000231: 22,3702 53557 DXCH XNB1 +2 065455,000232: 065456,000233: 22,3703 53561 DXCH XNB1 +4 065457,000234: 22,3704 53571 DXCH XNB1 +12D 065458,000235: 22,3705 53561 DXCH XNB1 +4 065459,000236: 065460,000237: 22,3706 53567 DXCH XNB1 +10D 065461,000238: 22,3707 53573 DXCH XNB1 +14D 065462,000239: 22,3710 53567 DXCH XNB1 +10D 065463,000240: 22,3711 16030 TCF DANZIG 065464,000241: 065465,000242: # Page 1514 065466,000243: # THE SUBROUTINE SIGNMPAC SETS C(MPAC, MPAC +1) TO SIGN(MPAC). 065467,000244: # FOR THIS, ONLY THE CONTENTS OF MPAC ARE EXAMINED. ALSO +0 YIELDS POSMAX AND -0 YIELDS NEGMAX. 065468,000245: 065469,000246: # ENTRY MAY BE BY EITHER OF THE FOLLOWING: 065470,000247: # 1. LIMIT THE SIZE OF MPAC ON INTERPRETIVE OVERFLOW: 065471,000248: # ENTRY: BOVB 065472,000249: # SIGNMPAC 065473,000250: # 2. GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC: 065474,000251: # ENTRY: RTB 065475,000252: # SIGNMPAC 065476,000253: # IN EITHER CASE, RETURN IS TO TEH NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. 065477,000254: 065478,000255: 22,3712 00006 SIGNMPAC EXTEND 065479,000256: 22,3713 34777 DCA DPOSMAX 065480,000257: 22,3714 52155 DXCH MPAC 065481,000258: 22,3715 10000 CCS A 065482,000259: 22,3716 35021 DPMODE CAF ZERO # SETS MPAC +2 TO ZERO IN THE PROCESS 065483,000260: 22,3717 16026 TCF SLOAD2 +2 065484,000261: 22,3720 13721 TCF +1 065485,000262: 22,3721 00006 EXTEND 065486,000263: 22,3722 44777 DCS DPOSMAX 065487,000264: 22,3723 16024 TCF SLOAD2 065488,000265: 065489,000266: # RTB OP CODE NORMUNIT IS LIKE INTERPRETIVE INSTRUCTION UNIT, EXCEPT THAT IT CAN BE DEPENDED ON NOT TO BLOW 065490,000267: # UP WHEN THE VECTOR BEING UNITIZED IS VERY SAMLL -- IT WILL BLOW UP WHEN ALL COMPONENT ARE ZERO. IF NORMUNIT 065491,000268: # IS USED AND THE UPPER ORDER HALVES OF ALL COMPONENTS ARE ZERO, THE MAGNITUDE RETURNS IN 36D WILL BE TOO LARGE 065492,000269: # BY A FACTOR OF 2(13) AND THE SQURED MAGNITUDE RETURNED AT 34D WILL BE TOO BIG BY A FACTOR OF 2(26). 065493,000270: 065494,000271: 22,3724 35017 NORMUNX1 CAF ONE 065495,000272: 22,3725 13727 TCF NORMUNIT +1 065496,000273: 22,3726 35021 NORMUNIT CAF ZERO 065497,000274: 22,3727 60120 AD FIXLOC 065498,000275: 22,3730 54156 TS MPAC +2 065499,000276: 22,3731 04662 TC BANKCALL # GET SIGN AGREEMENT IN ALL COMPONENTS 065500,000277: 22,3732 01010 CADR VECAGREE 065501,000278: 22,3733 10154 CCS MPAC 065502,000279: 22,3734 13770 TCF NOSHIFT 065503,000280: 22,3735 13737 TCF +2 065504,000281: 22,3736 13770 TCF NOSHIFT 065505,000282: 22,3737 10157 CCS MPAC +3 065506,000283: 22,3740 13770 TCF NOSHIFT 065507,000284: 22,3741 13743 TCF +2 065508,000285: 22,3742 13770 TCF NOSHIFT 065509,000286: 22,3743 10161 CCS MPAC +5 065510,000287: 22,3744 13770 TCF NOSHIFT 065511,000288: 22,3745 13747 TCF +2 065512,000289: 22,3746 13770 TCF NOSHIFT 065513,000290: # Page 1515 065514,000291: 22,3747 30155 CA MPAC +1 # SHIFT ALL COMPONENTS LEFT 13 065515,000292: 22,3750 00006 EXTEND 065516,000293: 22,3751 75002 MP BIT14 065517,000294: 22,3752 20155 DAS MPAC # DAS GAINS A LITTLE ACCURACY 065518,000295: 22,3753 30160 CA MPAC +4 065519,000296: 22,3754 00006 EXTEND 065520,000297: 22,3755 75002 MP BIT14 065521,000298: 22,3756 20160 DAS MPAC +3 065522,000299: 22,3757 30162 CA MPAC +6 065523,000300: 22,3760 00006 EXTEND 065524,000301: 22,3761 75002 MP BIT14 065525,000302: 22,3762 20162 DAS MPAC +5 065526,000303: 22,3763 35025 CAF THIRTEEN 065527,000304: 22,3764 50156 INDEX MPAC +2 065528,000305: 22,3765 54045 TS 37D 065529,000306: 22,3766 04701 OFFTUNIT TC POSTJUMP 065530,000307: 22,3767 01024 CADR UNIT +1 # SKIP THE "TC VECAGREE" DONE AT UNIT 065531,000308: 065532,000309: 22,3770 35021 NOSHIFT CAF ZERO 065533,000310: 22,3771 13764 TCF OFFTUNIT -2 065534,000311: 065535,000312: # RTB VECSGNAG ... FORCES SIGN AGREEMENT OF VECTOR IN MPAC. 065536,000313: 065537,000314: 22,3772 04662 VECSGNAG TC BANKCALL 065538,000315: 22,3773 01010 CADR VECAGREE 065539,000316: 22,3774 06030 TC DANZIG 065540,000317: 065541,000318: # Page 1516 065542,000319: # MODULE CHANGE FOR NEW LUNAR GRAVITY MODEL 065543,000320: 13,2000 SETLOC MODCHG3 065544,000321: 13,2000 BANK 065545,000322: 13,3770 71214 QUALITY1 BOF DLOAD 065546,000323: 13,3771 00343 MOONFLAG 065547,000324: 13,3772 23220 NBRANCH 065548,000325: 13,3773 00017 URPV 065549,000326: 13,3774 52116 DSQ GOTO 065550,000327: 13,3775 25754 QUALITY2 065551,000328: 12,2000 SETLOC MODCHG2 065552,000329: 12,2000 BANK 065553,000330: 12,3754 63525 QUALITY2 PDDL DSQ # SQUARE INTO 2D, B2 065554,000331: 12,3755 00021 URPV +2 # Y COMPONENT, B1 065555,000332: 12,3756 77625 DSU 065556,000333: 12,3757 74205 DMP VXSC # 5(Y**2-X**2)UR 065557,000334: 12,3760 27755 5/8 # CONSTANT, 5B3 065558,000335: 12,3761 00017 URPV # VECTOR, RESULT MAXIMUM IS 5, SCALING 065559,000336: # HERE B6 065560,000337: 12,3762 65332 VSL3 PDDL # STORE SCALED B3 IN 2D, 4D, 6D FOR XYZ 065561,000338: 12,3763 00017 URPV # X COMPONENT, B1 065562,000339: 12,3764 43342 SR1 DAD # 2 X X COMPONENT FOR B3 SCALING 065563,000340: 12,3765 00003 2D # ADD TO VECTOR X COMPONENT OF ANSWER. 065564,000341: # SAME AS MULTIPLYING BY UNITX. MAX IS 7. 065565,000342: 12,3766 14003 STODL 2D 065566,000343: 12,3767 00021 URPV +2 # Y COMPONENT, B1 065567,000344: 12,3770 44342 SR1 BDSU # 2 X Y COMPONENT FOR B3 SCALING 065568,000345: 12,3771 00005 4D # SUBTRACT FROM VECTOR Y COMPONENT OF 065569,000346: # ANSWER, SAME AS MULTIPLYING BY UNITY. 065570,000347: # MAX IS 7. 065571,000348: 12,3772 00005 STORE 4D # 2D HAS VECTOR, B3. 065572,000349: 12,3773 74335 SLOAD VXSC # MULTIPLY COEFFICIENT TIMES VECTOR IN 2D 065573,000350: 12,3774 01777 E3J22R2M 065574,000351: 12,3775 43525 PDDL RVQ # J22 TERM X R**4 IN 2D, SCALED B61 065575,000352: 12,3776 00023 COSPHI/2 # SAME AS URPV +4, Z COMPONENT 065576,000353: 065577,000354: # *** END OF CHIEFTAN.028 *** 065578,000355: End of include-file RT8_OP_CODES.agc. Parent file is MAIN.agc