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