Source Code
![]() |
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966Note that the date is the date of the printout, not the date of the program revision. |
017433,000002: ## Copyright: Public domain.
017434,000003: ## Filename: RTB_OP_CODES.agc
017435,000004: ## Purpose: Part of the source code for Aurora (revision 12).
017436,000005: ## Assembler: yaYUL
017437,000006: ## Contact: Ron Burkey <info@sandroid.org>.
017438,000007: ## Website: https://www.ibiblio.org/apollo.
017439,000008: ## Pages: 425-430
017440,000009: ## Mod history: 2016-09-20 JL Created.
017441,000010: ## 2016-10-03 JL Transcribed pages 425-430.
017442,000011: ## 2016-10-16 HG Fix operand LASTXMCD -> LASTXCMD
017443,000012: ## RUPTREG12 -> RUPTREG2
017444,000013: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
017445,000014: ## and fixed the errors found.
017446,000015:
017447,000016: ## This source code has been transcribed or otherwise adapted from
017448,000017: ## digitized images of a hardcopy from the private collection of
017449,000018: ## Don Eyles. The digitization was performed by archive.org.
017450,000019: ##
017451,000020: ## Notations on the hardcopy document read, in part:
017452,000021: ##
017453,000022: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
017454,000023: ## NOV 10, 1966
017455,000024: ##
017456,000025: ## [Note that this is the date the hardcopy was made, not the
017457,000026: ## date of the program revision or the assembly.]
017458,000027: ##
017459,000028: ## The scan images (with suitable reduction in storage size and consequent
017460,000029: ## reduction in image quality) are available online at
017461,000030: ## https://www.ibiblio.org/apollo.
017462,000031: ## The original high-quality digital images are available at archive.org:
017463,000032: ## https://archive.org/details/aurora00dapg
017464,000033:
![]() |
Page 425 |
017466,000035: 15,3342 SETLOC ENDINFSS
017467,000036:
017468,000037: # LOAD TIME2, TIME1 INTO MPAC:
017469,000038:
017470,000039: 15,3342 00006 LOADTIME EXTEND
017471,000040: 15,3343 30025 DCA TIME2
017472,000041: 15,3344 16470 TCF SLOAD2
017473,000042:
017474,000043: # CONVERT THE SINGLE PRECISION 2'S COMPLEMENT NUMBER ARRIVING IN MPAC (SCALED IN HALF-REVOLUTIONS) TO A
017475,000044: # DP 1'S COMPLEMENT NUMBER SCALED IN REVOLUTIONS.
017476,000045:
017477,000046: 15,3345 10140 CDULOGIC CCS MPAC
017478,000047: 15,3346 37665 CAF ZERO
017479,000048: 15,3347 13352 TCF +3
017480,000049: 15,3350 13351 NOOP
017481,000050: 15,3351 47642 CS HALF
017482,000051:
017483,000052: 15,3352 54141 TS MPAC +1
017484,000053: 15,3353 37665 CAF ZERO
017485,000054: 15,3354 56140 XCH MPAC
017486,000055: 15,3355 00006 EXTEND
017487,000056: 15,3356 77642 MP HALF
017488,000057: 15,3357 20141 DAS MPAC
017489,000058: 15,3360 16472 TCF SLOAD2 +2 # C(A) = +0.
017490,000059:
017491,000060: # READ IMU CDUS INTO MPAC AS A VECTOR. ESPECIALLY USEFUL IN CONNECTION WITH SMNB, ETC.
017492,000061:
017493,000062: 15,3361 00004 READCDUS INHINT
017494,000063: 15,3362 30033 CA CDUY # IN ORDER Y Z X
017495,000064: 15,3363 54140 TS MPAC
017496,000065: 15,3364 30034 CA CDUZ
017497,000066: 15,3365 54143 TS MPAC +3
017498,000067: 15,3366 30032 CA CDUX
017499,000068: 15,3367 13376 TCF READPIPS +6 # COMMON CODING.
017500,000069:
017501,000070: # READ THE PIPS INTO MPAC WITHOUT CHANGING THEM:
017502,000071:
017503,000072: 15,3370 00004 READPIPS INHINT
017504,000073: 15,3371 30037 CA PIPAX
017505,000074: 15,3372 54140 TS MPAC
017506,000075: 15,3373 30040 CA PIPAY
017507,000076: 15,3374 54143 TS MPAC +3
017508,000077: 15,3375 30041 CA PIPAZ
017509,000078: 15,3376 00003 RELINT
017510,000079: 15,3377 54145 TS MPAC +5
017511,000080:
017512,000081: 15,3400 37665 CAF ZERO
017513,000082: 15,3401 54141 TS MPAC +1
017514,000083: 15,3402 54144 TS MPAC +4
017515,000084: 15,3403 54146 TS MPAC +6
017516,000085:
![]() |
Page 426 |
017518,000087: 15,3404 47657 VECMODE CS ONE
017519,000088: 15,3405 16013 TCF NEWMODE
017520,000089:
017521,000090: # FORCE TP SIGN AGREEMENT IN MPAC:
017522,000091:
017523,000092: 15,3406 07235 SGNAGREE TC TPAGREE
017524,000093: 15,3407 16014 TCF DANZIG
017525,000094:
017526,000095: # CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE
017527,000096: # SCALED IN HALF-REVOLUTIONS.
017528,000097:
017529,000098: 15,3410 03440 1STO2S TC 1TO2SUB
017530,000099: 15,3411 37665 CAF ZERO
017531,000100: 15,3412 54141 TS MPAC +1
017532,000101: 15,3413 16013 TCF NEWMODE
017533,000102:
017534,000103: # DO 1STO2S ON A VECTOR OF ANGLES:
017535,000104:
017536,000105: 15,3414 03440 V1STO2S TC 1TO2SUB # ANSWER ARRIVES IN A AND MPAC.
017537,000106:
017538,000107: 15,3415 52146 DXCH MPAC +5
017539,000108: 15,3416 52141 DXCH MPAC
017540,000109: 15,3417 03440 TC 1TO2SUB
017541,000110: 15,3420 54142 TS MPAC +2
017542,000111:
017543,000112: 15,3421 52144 DXCH MPAC +3
017544,000113: 15,3422 52141 DXCH MPAC
017545,000114: 15,3423 03440 TC 1TO2SUB
017546,000115: 15,3424 54141 TS MPAC +1
017547,000116:
017548,000117: 15,3425 30145 CA MPAC +5
017549,000118: 15,3426 54140 TS MPAC
017550,000119:
017551,000120: 15,3427 37657 CAF ONE # MODE IS TP.
017552,000121: 15,3430 16013 TCF NEWMODE
017553,000122:
017554,000123: # V1STO2S FOR 2 COMPONENT VECTOR, USED BY RR.
017555,000124:
017556,000125: 15,3431 03440 2V1STO2S TC 1TO2SUB
017557,000126: 15,3432 52144 DXCH MPAC +3
017558,000127: 15,3433 52141 DXCH MPAC
017559,000128: 15,3434 03440 TC 1TO2SUB
017560,000129: 15,3435 54001 TS L
017561,000130: 15,3436 30143 CA MPAC +3
017562,000131: 15,3437 16470 TCF SLOAD2
017563,000132:
017564,000133: # SUBROUTINE TO DO DOUBLING AND 1'S TO 2'S COMVERSION:
017565,000134:
017566,000135: 15,3440 52141 1TO2SUB DXCH MPAC # FINAL MPAC +1 UNSPECIFIED.
017567,000136: 15,3441 20001 DDOUBL
![]() |
Page 427 |
017569,000138: 15,3442 10000 CCS A
017570,000139: 15,3443 67657 AD ONE
017571,000140: 15,3444 13446 TCF +2
017572,000141: 15,3445 40000 COM # THIS WAS REVERSE OF MSU.
017573,000142:
017574,000143: 15,3446 54140 TS MPAC # AND SKIP ON OVERFLOW.
017575,000144: 15,3447 00002 TC Q
017576,000145:
017577,000146: 15,3450 50000 INDEX A # OVERFLOW UNCORRECT AND IN MSU.
017578,000147: 15,3451 37640 CAF LIMITS
017579,000148: 15,3452 26140 ADS MPAC
017580,000149: 15,3453 00002 TC Q
017581,000150:
![]() |
Page 428 |
017583,000152: # SUBROUTINE TO INCREMENT CDUS
017584,000153: 15,3454 33467 INCRCDUS CAF LOCTHETA
017585,000154: 15,3455 54114 TS BUF # PLACE ADRES(THETA) IN BUF.
017586,000155: 15,3456 30140 CAE MPAC # INCREMENT IN 1S COMPL.
017587,000156: 15,3457 03470 TC CDUINC
017588,000157:
017589,000158: 15,3460 24114 INCR BUF
017590,000159: 15,3461 30143 CAE MPAC +3
017591,000160: 15,3462 03470 TC CDUINC
017592,000161:
017593,000162: 15,3463 24114 INCR BUF
017594,000163: 15,3464 30145 CAE MPAC +5
017595,000164: 15,3465 03470 TC CDUINC
017596,000165:
017597,000166: 15,3466 13404 TCF VECMODE
017598,000167:
017599,000168: 15,3467 00400 LOCTHETA ADRES THETAD
017600,000169:
017601,000170: # THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL.
017602,000171: # QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL.
017603,000172: # (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL.
017604,000173:
017605,000174: 15,3470 54126 CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT
017606,000175: 15,3471 50114 INDEX BUF
017607,000176: 15,3472 10000 CCS 0 # CHANGE 2S COMPL. ANGLE(IN BUF)INTO 1S
017608,000177: 15,3473 67657 AD ONE
017609,000178: 15,3474 13500 TCF +4
017610,000179: 15,3475 67657 AD ONE
017611,000180: 15,3476 67657 AD ONE # OVERFLOW HERE IF 2S COMPL. IS 180 DEG.
017612,000181: 15,3477 40000 COM
017613,000182:
017614,000183: 15,3500 60126 AD TEM2 # ADD IN INCREMENT. WILL OVERFLOW IF RE-
017615,000184: # SULT MOVES FROM 2ND TO 3D QUAD.(OR BACK)
017616,000185: 15,3501 10000 CCS A # BACK TO 2S COMPL.
017617,000186: 15,3502 67657 AD ONE
017618,000187: 15,3503 13505 TCF +2
017619,000188: 15,3504 40000 COM
017620,000189: 15,3505 54126 TS TEM2 # STORE 14BIT QUANTITY WITH PRESENT SIGN
017621,000190: 15,3506 13512 TCF +4
017622,000191: 15,3507 50000 INDEX A # OVERFLOW MEANS CORRECT 14BIT VALUE,WRONG
017623,000192: # SIGN.
017624,000193: 15,3510 37640 CAF LIMITS # FIX IT,BY ADDING IN 37777 OR 40000
017625,000194: 15,3511 60126 AD TEM2
017626,000195:
017627,000196: 15,3512 50114 INDEX BUF
017628,000197: 15,3513 54000 TS 0 # STORE NEW ANGLE IN 2S COMPLEMENT.
017629,000198: 15,3514 00002 TC Q
017630,000199:
![]() |
Page 429 |
017632,000201: # RTB TO TORQUE GYROS, EXCEPT FOR THE CALL TO IMUSTALL. ECADR OF COMMANDS ARRIVES IN X1.
017633,000202:
017634,000203: 15,3515 50104 PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1
017635,000204: 15,3516 30046 CA X1
017636,000205: 15,3517 04063 TC BANKCALL
017637,000206: 15,3520 26317 CADR IMUPULSE
017638,000207: 15,3521 16014 TCF DANZIG
017639,000208:
![]() |
Page 430 |
017641,000210: # THE FOLLOWING ROUTINE IS USED ONLY IN BENCH TESTING THE RR.
017642,000211:
017643,000212: 15,3522 04554 RRSIM TC FIXDELAY
017644,000213: 15,3523 00062 DEC 50 B-14
017645,000214:
017646,000215: 15,3524 37656 RRSIM2 CAF BIT2 # SEE IF RR ECTR ENABLED.
017647,000216: 15,3525 00006 EXTEND
017648,000217: 15,3526 02012 RAND 12
017649,000218: 15,3527 00006 EXTEND
017650,000219: 15,3530 13522 BZF RRSIM
017651,000220:
017652,000221: 15,3531 30126 CA TEM2 # SAVE EXEC TEMPS SINCE IN RUPT.
017653,000222: 15,3532 54074 TS RUPTREG1
017654,000223: 15,3533 33573 CAF LOPTY
017655,000224: 15,3534 56114 XCH BUF
017656,000225: 15,3535 54075 TS RUPTREG2
017657,000226: 15,3536 30362 CA LASTYCMD # ECTR.
017658,000227: 15,3537 60000 DOUBLE
017659,000228: 15,3540 00006 EXTEND
017660,000229: 15,3541 73574 MP RRSIMG
017661,000230: 15,3542 03470 TC CDUINC
017662,000231: 15,3543 24114 INCR BUF
017663,000232: 15,3544 30035 CA OPTY # SHAFT CMD IS DIVIDED BY THE ABS VALUE OF
017664,000233: 15,3545 00006 EXTEND # THE COS OF THE TRUNNION ANGLE.
017665,000234: 15,3546 20007 MSU 7 # TO 1S COMPLEMENT.
017666,000235: 15,3547 04232 TC SPCOS # *
017667,000236: 15,3550 00006 EXTEND # SPCOS NOW GIVES COS SCALED AT 1 *
017668,000237: 15,3551 77642 MP BIT14 # (A DAP GROUP FIX) *
017669,000238: 15,3552 10000 CCS A
017670,000239: 15,3553 13556 TCF +3
017671,000240: 15,3554 13556 TCF +2
017672,000241: 15,3555 13556 TCF +1
017673,000242: 15,3556 67657 AD ONE
017674,000243: 15,3557 54065 TS ITEMP1
017675,000244:
017676,000245: 15,3560 30363 CA LASTXCMD # SHAFT RATE DEPENDS ON TRUNNION.
017677,000246: 15,3561 00006 EXTEND
017678,000247: 15,3562 73574 MP RRSIMG
017679,000248: 15,3563 00006 EXTEND
017680,000249: 15,3564 10065 DV ITEMP1
017681,000250: 15,3565 03470 TC CDUINC
017682,000251: 15,3566 30074 CA RUPTREG1
017683,000252: 15,3567 54126 TS TEM2
017684,000253: 15,3570 30075 CA RUPTREG2
017685,000254: 15,3571 54114 TS BUF
017686,000255: 15,3572 13522 TCF RRSIM
017687,000256:
017688,000257: 15,3573 00035 LOPTY ADRES OPTY
017689,000258: 15,3574 22755 RRSIMG DEC .59259
017690,000259: 15,3575 ENDRTBSS EQUALS
End of include-file RTB_OP_CODES.agc. Parent file is MAIN.agc