Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
059850,000002: ## Copyright: Public domain.
059851,000003: ## Filename: RTB_OP_CODES.agc
059852,000004: ## Purpose: A section of LUM69 revision 2.
059853,000005: ## It is part of the reconstructed source code for the flown
059854,000006: ## version of the flight software for the Lunar Module's (LM)
059855,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
059856,000008: ## been recreated from a copy of Luminary revsion 069, using
059857,000009: ## changes present in Luminary 099 which were described in
059858,000010: ## Luminary memos 75 and 78. The code has been adapted such
059859,000011: ## that the resulting bugger words exactly match those specified
059860,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
059861,000013: ## relatively high confidence that the reconstruction is correct.
059862,000014: ## Reference: pp. 1390-1397
059863,000015: ## Assembler: yaYUL
059864,000016: ## Contact: Ron Burkey <info@sandroid.org>.
059865,000017: ## Website: www.ibiblio.org/apollo/index.html
059866,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
059867,000019:
|
|
Page 1390
|
059869,000021: 22,3731 BANK 22
059870,000022: 10,2000 SETLOC RTBCODES
059871,000023: 10,2000 BANK
059872,000024:
059873,000025: 10,3462 E5,1664 EBANK= XNB
059874,000026: 10,3462 COUNT* $$/RTB
059875,000027:
059876,000028: # LOAD TIME2, TIME1 INTO MPAC:
059877,000029:
059878,000030: 10,3462 00006 LOADTIME EXTEND
059879,000031: 10,3463 30025 DCA TIME2
059880,000032: 10,3464 16054 TCF SLOAD2
059881,000033:
059882,000034: # CONVERT THE SINGLE PRECISION 2'S COMPLEMENT NUMBER ARRIVING IN MPAC (SCALED IN HALF-REVOLUTIONS) TO A
059883,000035: # DP 1'S COMPLEMENT NUMBER SCALED IN REVOLUTIONS.
059884,000036:
059885,000037: 10,3465 10154 CDULOGIC CCS MPAC
059886,000038: 10,3466 34755 CAF ZERO
059887,000039: 10,3467 13472 TCF +3
059888,000040: 10,3470 13471 NOOP
059889,000041: 10,3471 44736 CS HALF
059890,000042:
059891,000043: 10,3472 54155 TS MPAC +1
059892,000044: 10,3473 34755 CAF ZERO
059893,000045: 10,3474 56154 XCH MPAC
059894,000046: 10,3475 00006 EXTEND
059895,000047: 10,3476 74736 MP HALF
059896,000048: 10,3477 20155 DAS MPAC
059897,000049: 10,3500 16060 TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION
059898,000050:
059899,000051: # READ THE PIPS INTO MPAC WITHOUT CHANGING THEM:
059900,000052:
059901,000053: 10,3501 00004 READPIPS INHINT
059902,000054: 10,3502 30037 CA PIPAX
059903,000055: 10,3503 54154 TS MPAC
059904,000056: 10,3504 30040 CA PIPAY
059905,000057: 10,3505 54157 TS MPAC +3
059906,000058: 10,3506 30041 CA PIPAZ
059907,000059: 10,3507 00003 RELINT
059908,000060: 10,3510 54161 TS MPAC +5
059909,000061:
059910,000062: 10,3511 34755 CAF ZERO
059911,000063: 10,3512 54155 TS MPAC +1
059912,000064: 10,3513 54160 TS MPAC +4
059913,000065: 10,3514 54162 TS MPAC +6
059914,000066:
059915,000067: 10,3515 16520 VECMODE TCF VMODE
059916,000068:
059917,000069: # FORCE TP SIGN AGREEMENT IN MPAC:
059918,000070:
059919,000071: 10,3516 07256 SGNAGREE TC TPAGREE
|
|
Page 1391
|
059921,000073: 10,3517 16060 TCF DANZIG
059922,000074:
059923,000075: # CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE
059924,000076: # SCALED IN HALF-REVOLUTIONS.
059925,000077:
059926,000078: 10,3520 03550 1STO2S TC 1TO2SUB
059927,000079: 10,3521 34755 CAF ZERO
059928,000080: 10,3522 54155 TS MPAC +1
059929,000081: 10,3523 16057 TCF NEWMODE
059930,000082:
059931,000083: # DO 1STO2S ON A VECTOR OF ANGLES:
059932,000084:
059933,000085: 10,3524 03550 V1STO2S TC 1TO2SUB # ANSWER ARRIVES IN A AND MPAC.
059934,000086:
059935,000087: 10,3525 52162 DXCH MPAC +5
059936,000088: 10,3526 52155 DXCH MPAC
059937,000089: 10,3527 03550 TC 1TO2SUB
059938,000090: 10,3530 54156 TS MPAC +2
059939,000091:
059940,000092: 10,3531 52160 DXCH MPAC +3
059941,000093: 10,3532 52155 DXCH MPAC
059942,000094: 10,3533 03550 TC 1TO2SUB
059943,000095: 10,3534 54155 TS MPAC +1
059944,000096:
059945,000097: 10,3535 30161 CA MPAC +5
059946,000098: 10,3536 54154 TS MPAC
059947,000099:
059948,000100: 10,3537 34753 TPMODE CAF ONE # MODE IS TP.
059949,000101: 10,3540 16057 TCF NEWMODE
059950,000102:
059951,000103: # V1STO2S FOR 2 COMPONENT VECTOR. USED BY RR.
059952,000104:
059953,000105: 10,3541 03550 2V1STO2S TC 1TO2SUB
059954,000106: 10,3542 52160 DXCH MPAC +3
059955,000107: 10,3543 52155 DXCH MPAC
059956,000108: 10,3544 03550 TC 1TO2SUB
059957,000109: 10,3545 54001 TS L
059958,000110: 10,3546 30157 CA MPAC +3
059959,000111: 10,3547 16054 TCF SLOAD2
059960,000112:
059961,000113: # SUBROUTINE TO DO DOUBLING AND 1'S TO 2'S CONVERSION:
059962,000114:
059963,000115: 10,3550 52155 1TO2SUB DXCH MPAC # FINAL MPAC +1 UNSPECIFIED.
059964,000116: 10,3551 20001 DDOUBL
059965,000117: 10,3552 10000 CCS A
059966,000118: 10,3553 64753 AD ONE
059967,000119: 10,3554 13556 TCF +2
059968,000120: 10,3555 40000 COM # THIS WAS REVERSE OF MSU.
059969,000121:
059970,000122: 10,3556 54154 TS MPAC # AND SKIP ON OVERFLOW.
|
|
Page 1392
|
059972,000124: 10,3557 00002 TC Q
059973,000125:
059974,000126: 10,3560 50000 INDEX A # OVERFLOW UNCORRECT AND IN MSU.
059975,000127: 10,3561 34734 CAF LIMITS
059976,000128: 10,3562 26154 ADS MPAC
059977,000129: 10,3563 00002 TC Q
|
|
Page 1393
|
059979,000131: # SUBROUTINE TO INCREMENT CDUS
059980,000132: 10,3564 33577 INCRCDUS CAF LOCTHETA
059981,000133: 10,3565 54130 TS BUF # PLACE ADRES(THETA) IN BUF.
059982,000134: 10,3566 30154 CAE MPAC # INCREMENT IN 1S COMPL.
059983,000135: 10,3567 03600 TC CDUINC
059984,000136:
059985,000137: 10,3570 24130 INCR BUF
059986,000138: 10,3571 30157 CAE MPAC +3
059987,000139: 10,3572 03600 TC CDUINC
059988,000140:
059989,000141: 10,3573 24130 INCR BUF
059990,000142: 10,3574 30161 CAE MPAC +5
059991,000143: 10,3575 03600 TC CDUINC
059992,000144:
059993,000145: 10,3576 13515 TCF VECMODE
059994,000146:
059995,000147: 10,3577 00321 LOCTHETA ADRES THETAD
059996,000148:
059997,000149: # THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL.
059998,000150: # QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL.
059999,000151: # (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL.
060000,000152:
060001,000153: 10,3600 54142 CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
060002,000154: 10,3601 50130 INDEX BUF
060003,000155: 10,3602 10000 CCS 0 # CHANGE 2S COMPL. ANGLE(IN BUF)INTO 1S
060004,000156: 10,3603 64753 AD ONE
060005,000157: 10,3604 13610 TCF +4
060006,000158: 10,3605 64753 AD ONE
060007,000159: 10,3606 64753 AD ONE # OVERFLOW HERE IF 2S COMPL. IS 180 DEG.
060008,000160: 10,3607 40000 COM
060009,000161:
060010,000162: 10,3610 60142 AD TEM2 # SULT MOVES FROM 2ND TO 3D QUAD.(OR BACK)
060011,000163: 10,3611 10000 CCS A # BACK TO 2S COMPL.
060012,000164: 10,3612 64753 AD ONE
060013,000165: 10,3613 13615 TCF +2
060014,000166: 10,3614 40000 COM
060015,000167: 10,3615 54142 TS TEM2 # STORE 14BIT QUANTITY WITH PRESENT SIGN
060016,000168: 10,3616 13622 TCF +4
060017,000169: 10,3617 50000 INDEX A # SIGN.
060018,000170: 10,3620 34734 CAF LIMITS # FIX IT, BY ADDING IN 37777 OR 40000
060019,000171: 10,3621 60142 AD TEM2
060020,000172:
060021,000173: 10,3622 50130 INDEX BUF
060022,000174: 10,3623 54000 TS 0 # STORE NEW ANGLE IN 2S COMPLEMENT.
060023,000175: 10,3624 00002 TC Q
060024,000176:
|
|
Page 1394
|
060026,000178: # RTB TO TORQUE GYROS, EXCEPT FOR THE CALL TO IMUSTALL. ECADR OF COMMANDS ARRIVES IN X1.
060027,000179:
060028,000180: 10,3625 50120 PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1
060029,000181: 10,3626 30046 CA X1
060030,000182: 10,3627 04616 TC BANKCALL
060031,000183: 10,3630 17276 CADR IMUPULSE
060032,000184: 10,3631 16060 TCF DANZIG
060033,000185:
|
|
Page 1395
|
060035,000187: # EACH ROUTINE TAKES A 3X3 MATRIX STORED IN DOUBLE PRECISION IN A FIXED AREA OF ERASABLE MEMORY AND REPLACES IT
060036,000188: # WITH THE TRANSPOSE MATRIX. TRANSP1 USES LOCATIONS XNB+0,+1 THROUGH XNB+16D, 17D AND TRANSP2 USES LOCATIONS
060037,000189: # XNB1+0,+1 THROUGH XNB1+16D, 17D. EACH MATRIX IS STORED BY ROWS.
060038,000190:
060039,000191: 10,3632 02664 XNBEB ECADR XNB
060040,000192: 10,3633 03467 XNB1EB ECADR XNB1
060041,000193:
060042,000194: 10,3634 E5,1664 EBANK= XNB
060043,000195:
060044,000196: 10,3634 33632 TRANSP1 CAF XNBEB
060045,000197: 10,3635 54003 TS EBANK
060046,000198: 10,3636 53667 DXCH XNB +2
060047,000199: 10,3637 53673 DXCH XNB +6
060048,000200: 10,3640 53667 DXCH XNB +2
060049,000201:
060050,000202: 10,3641 53671 DXCH XNB +4
060051,000203: 10,3642 53701 DXCH XNB +12D
060052,000204: 10,3643 53671 DXCH XNB +4
060053,000205:
060054,000206: 10,3644 53677 DXCH XNB +10D
060055,000207: 10,3645 53703 DXCH XNB +14D
060056,000208: 10,3646 53677 DXCH XNB +10D
060057,000209: 10,3647 16060 TCF DANZIG
060058,000210:
060059,000211: 10,3650 E7,1467 EBANK= XNB1
060060,000212:
060061,000213: 10,3650 33633 TRANSP2 CAF XNB1EB
060062,000214: 10,3651 54003 TS EBANK
060063,000215: 10,3652 53472 DXCH XNB1 +2
060064,000216: 10,3653 53476 DXCH XNB1 +6
060065,000217: 10,3654 53472 DXCH XNB1 +2
060066,000218:
060067,000219: 10,3655 53474 DXCH XNB1 +4
060068,000220: 10,3656 53504 DXCH XNB1 +12D
060069,000221: 10,3657 53474 DXCH XNB1 +4
060070,000222:
060071,000223: 10,3660 53502 DXCH XNB1 +10D
060072,000224: 10,3661 53506 DXCH XNB1 +14D
060073,000225: 10,3662 53502 DXCH XNB1 +10D
060074,000226: 10,3663 16060 TCF DANZIG
060075,000227:
|
|
Page 1396
|
060077,000229: # THE SUBROUTINE SIGNMPAC SETS C(MPAC, MPAC +1) TO SIGN(MPAC).
060078,000230: # FOR THIS, ONLY THE CONTENTS OF MPAC ARE EXAMINED. ALSO +0 YIELDS POSMAX AND -0 YIELDS NEGMAX.
060079,000231:
060080,000232: # ENTRY MAY BE BY EITHER OF THE FOLLOWING:
060081,000233: # 1. LIMIT THE SIZE OF MPAC ON INTERPRETIVE OVERFLOW:
060082,000234: # ENTRY: BOVB
060083,000235: # SIGNMPAC
060084,000236: # 2. GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC:
060085,000237: # ENTRY: RTB
060086,000238: # SIGNMPAC
060087,000239: # IN EITHER CASE, RETURN IS TO THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE.
060088,000240:
060089,000241: 10,3664 00006 SIGNMPAC EXTEND
060090,000242: 10,3665 34733 DCA DPOSMAX
060091,000243: 10,3666 52155 DXCH MPAC
060092,000244: 10,3667 10000 CCS A
060093,000245: 10,3670 34755 DPMODE CAF ZERO # SETS MPAC +2 TO ZERO IN THE PROCESS
060094,000246: 10,3671 16056 TCF SLOAD2 +2
060095,000247: 10,3672 13673 TCF +1
060096,000248: 10,3673 00006 EXTEND
060097,000249: 10,3674 44733 DCS DPOSMAX
060098,000250: 10,3675 16054 TCF SLOAD2
060099,000251:
060100,000252: # RTB OP CODE NORMUNIT IS LIKE INTERPRETIVE INSTRUCTION UNIT, EXCEPT THAT IT CAN BE DEPENDED ON NOT TO BLOW
060101,000253: # UP WHEN THE VECTOR BEING UNITIZED IS VERY SMALL -- IT WILL BLOW UP WHEN ALL COMPONENTS ARE ZERO. IF NORMUNIT
060102,000254: # IS USED AND THE UPPER ORDER HALVES OF ALL COMPONENTS ARE ZERO, THE MAGNITUDE RETURNED IN 36D WILL BE TOO LARGE
060103,000255: # BY A FACTOR OF 2(13) AND THE SQUARED MAGNITUDE RETURNED AT 34D WILL BE TOO BIG BY A FACTOR OF 2(26).
060104,000256:
060105,000257: 10,3676 34753 NORMUNX1 CAF ONE
060106,000258: 10,3677 13701 TCF NORMUNIT +1
060107,000259: 10,3700 34755 NORMUNIT CAF ZERO
060108,000260: 10,3701 60120 AD FIXLOC
060109,000261: 10,3702 54156 TS MPAC +2
060110,000262: 10,3703 04616 TC BANKCALL # GET SIGN AGREEMENT IN ALL COMPONENTS
060111,000263: 10,3704 01010 CADR VECAGREE
060112,000264: 10,3705 10154 CCS MPAC
060113,000265: 10,3706 13742 TCF NOSHIFT
060114,000266: 10,3707 13711 TCF +2
060115,000267: 10,3710 13742 TCF NOSHIFT
060116,000268: 10,3711 10157 CCS MPAC +3
060117,000269: 10,3712 13742 TCF NOSHIFT
060118,000270: 10,3713 13715 TCF +2
060119,000271: 10,3714 13742 TCF NOSHIFT
060120,000272: 10,3715 10161 CCS MPAC +5
060121,000273: 10,3716 13742 TCF NOSHIFT
060122,000274: 10,3717 13721 TCF +2
060123,000275: 10,3720 13742 TCF NOSHIFT
|
|
Page 1397
|
060125,000277: 10,3721 30155 CA MPAC +1 # SHIFT ALL COMPONENTS LEFT 13
060126,000278: 10,3722 00006 EXTEND
060127,000279: 10,3723 74736 MP BIT14
060128,000280: 10,3724 20155 DAS MPAC # DAS GAINS A LITTLE ACCURACY
060129,000281: 10,3725 30160 CA MPAC +4
060130,000282: 10,3726 00006 EXTEND
060131,000283: 10,3727 74736 MP BIT14
060132,000284: 10,3730 20160 DAS MPAC +3
060133,000285: 10,3731 30162 CA MPAC +6
060134,000286: 10,3732 00006 EXTEND
060135,000287: 10,3733 74736 MP BIT14
060136,000288: 10,3734 20162 DAS MPAC +5
060137,000289: 10,3735 34761 CAF THIRTEEN
060138,000290: 10,3736 50156 INDEX MPAC +2
060139,000291: 10,3737 54045 TS 37D
060140,000292: 10,3740 04635 OFFTUNIT TC POSTJUMP
060141,000293: 10,3741 01024 CADR UNIT +1 # SKIP THE "TC VECAGREE" DONE AT UNIT
060142,000294:
060143,000295: 10,3742 34755 NOSHIFT CAF ZERO
060144,000296: 10,3743 13736 TCF OFFTUNIT -2
060145,000297:
060146,000298: # RTB VECSGNAG ... FORCES SIGN AGREEMENT OF VECTOR IN MPAC.
060147,000299:
060148,000300: 10,3744 04616 VECSGNAG TC BANKCALL
060149,000301: 10,3745 01010 CADR VECAGREE
060150,000302: 10,3746 06060 TC DANZIG
End of include-file RTB_OP_CODES.agc. Parent file is MAIN.agc