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. |
027539,000002: ## Copyright: Public domain.
027540,000003: ## Filename: ASCENT_INERTIA_UPDATER.agc
027541,000004: ## Purpose: Part of the source code for Aurora (revision 12).
027542,000005: ## Assembler: yaYUL
027543,000006: ## Contact: Ron Burkey <info@sandroid.org>.
027544,000007: ## Website: https://www.ibiblio.org/apollo.
027545,000008: ## Pages: 639-641
027546,000009: ## Mod history: 2016-09-20 JL Created.
027547,000010: ## 2016-09-21 MC Filled out.
027548,000011: ## 2016-10-05 HG Insert missed TC ASCENGON
027549,000012: ## 2016-10-16 HG Fix operand 1/3JTS -> 1/2JTS
027550,000013: ## 2016-12-08 RSB Proofed comments with octopus/ProoferComments
027551,000014: ## but no errors found.
027552,000015:
027553,000016: ## This source code has been transcribed or otherwise adapted from
027554,000017: ## digitized images of a hardcopy from the private collection of
027555,000018: ## Don Eyles. The digitization was performed by archive.org.
027556,000019:
027557,000020: ## Notations on the hardcopy document read, in part:
027558,000021:
027559,000022: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
027560,000023: ## NOV 10, 1966
027561,000024:
027562,000025: ## [Note that this is the date the hardcopy was made, not the
027563,000026: ## date of the program revision or the assembly.]
027564,000027:
027565,000028: ## The scan images (with suitable reduction in storage size and consequent
027566,000029: ## reduction in image quality) are available online at
027567,000030: ## https://www.ibiblio.org/apollo.
027568,000031: ## The original high-quality digital images are available at archive.org:
027569,000032: ## https://archive.org/details/aurora00dapg
027570,000033:
![]() |
Page 639 |
027572,000035:
027573,000036: 25,3525 03570 IXXTASK TC JACCESTP
027574,000037: 25,3526 03563 TC ASCENGON
027575,000038:
027576,000039: 25,3527 00006 EXTEND
027577,000040: 25,3530 27461 DIM IXX
027578,000041: 25,3531 33560 CAF IXXTIME
027579,000042: 25,3532 04536 TC WAITLIST
027580,000043: 25,3533 03525 52006 2CADR IXXTASK
027581,000044:
027582,000045: 25,3535 14602 TCF TASKOVER
027583,000046:
027584,000047: 25,3536 03604 IYYTASK TC JACCESTQ
027585,000048:
027586,000049: 25,3537 03563 TC ASCENGON
027587,000050:
027588,000051: 25,3540 00006 EXTEND
027589,000052: 25,3541 27462 DIM IYY
027590,000053: 25,3542 33561 CAF IYYTIME
027591,000054: 25,3543 04536 TC WAITLIST
027592,000055: 25,3544 03536 52006 2CADR IYYTASK
027593,000056:
027594,000057: 25,3546 14602 TCF TASKOVER
027595,000058:
027596,000059: 25,3547 03621 IZZTASK TC JACCESTR
027597,000060:
027598,000061: 25,3550 03563 TC ASCENGON
027599,000062:
027600,000063: 25,3551 00006 EXTEND
027601,000064: 25,3552 27463 DIM IZZ
027602,000065: 25,3553 33562 CAF IZZTIME
027603,000066: 25,3554 04536 TC WAITLIST
027604,000067: 25,3555 03547 52006 2CADR IZZTASK
027605,000068:
027606,000069: 25,3557 14602 TCF TASKOVER
027607,000070:
027608,000071: 25,3560 00310 IXXTIME DEC 200 B-14
027609,000072: 25,3561 02424 IYYTIME DEC 1300 B-14
027610,000073: 25,3562 00264 IZZTIME DEC 180 B-14
027611,000074:
027612,000075: 25,3563 37650 ASCENGON CAF BIT8
027613,000076: 25,3564 70765 MASK DAPBOOLS
027614,000077: 25,3565 10000 CCS A
027615,000078: 25,3566 00002 TC Q
027616,000079: 25,3567 14602 TCF TASKOVER
027617,000080:
027618,000081: 25,3570 31461 JACCESTP CAE IXX
027619,000082: 25,3571 22007 ZL
027620,000083: 25,3572 00006 EXTEND
027621,000084: 25,3573 11464 DV 4JETTORK
027622,000085:
![]() |
Page 640 |
027624,000087: 25,3574 60000 DOUBLE
027625,000088: 25,3575 55444 TS 1/2JTSP
027626,000089:
027627,000090: 25,3576 33660 CAF JETTORK
027628,000091: 25,3577 22007 ZL
027629,000092: 25,3600 00006 EXTEND
027630,000093: 25,3601 11461 DV IXX
027631,000094: 25,3602 55627 TS 1JACC
027632,000095:
027633,000096: 25,3603 00002 TC Q
027634,000097:
027635,000098: 25,3604 31462 JACCESTQ CAE IYY
027636,000099: 25,3605 22007 ZL
027637,000100: 25,3606 00006 EXTEND
027638,000101: 25,3607 11465 DV JETTORK4
027639,000102: 25,3610 55661 TS 1/NJTSQ
027640,000103:
027641,000104: 25,3611 60000 DOUBLE
027642,000105: 25,3612 55445 TS 1/2JTSQ
027643,000106:
027644,000107: 25,3613 33661 CAF JETTORK1
027645,000108: 25,3614 22007 ZL
027646,000109: 25,3615 00006 EXTEND
027647,000110: 25,3616 11462 DV IYY
027648,000111: 25,3617 55630 TS 1JACCQ
027649,000112:
027650,000113: 25,3620 00002 TC Q
027651,000114: 25,3621 31463 JACCESTR CAE IZZ
027652,000115: 25,3622 22007 ZL
027653,000116: 25,3623 00006 EXTEND
027654,000117: 25,3624 11465 DV JETTORK4
027655,000118: 25,3625 55662 TS 1/NJTSR
027656,000119:
027657,000120: 25,3626 60000 DOUBLE
027658,000121: 25,3627 55446 TS 1/2JTSR
027659,000122:
027660,000123: 25,3630 33661 CAF JETTORK1
027661,000124: 25,3631 22007 ZL
027662,000125: 25,3632 00006 EXTEND
027663,000126: 25,3633 11463 DV IZZ
027664,000127: 25,3634 55631 TS 1JACCR
027665,000128:
027666,000129: 25,3635 31445 COMMONQR CAE 1/2JTSQ
027667,000130: 25,3636 61446 AD 1/2JTSR
027668,000131: 25,3637 00006 EXTEND
027669,000132: 25,3640 73377 MP .707WL
027670,000133: 25,3641 55447 TS 1/2JETSU # TEMP
027671,000134:
027672,000135: 25,3642 31445 CAE 1/2JTSQ
027673,000136: 25,3643 00006 EXTEND
027674,000137:
![]() |
Page 641 |
027676,000139:
027677,000140: 25,3644 71446 MP 1/2JTSR
027678,000141: 25,3645 00006 EXTEND
027679,000142: 25,3646 11447 DV 1/2JETSU # TEMP
027680,000143: 25,3647 55447 TS 1/2JETSU
027681,000144: 25,3650 55450 TS 1/2JETSV
027682,000145:
027683,000146: 25,3651 31630 CAE 1JACCQ
027684,000147: 25,3652 61631 AD 1JACCR
027685,000148: 25,3653 00006 EXTEND
027686,000149: 25,3654 73662 MP 0.35356
027687,000150: 25,3655 55632 TS 1JACCU
027688,000151: 25,3656 55633 TS 1JACCV
027689,000152:
027690,000153: 25,3657 00002 TC Q
027691,000154:
027692,000155: 25,3660 00050 JETTORK DEC 0.00243 # 500 FT LBS. SCALED AT PI*2(+16)
027693,000156: 25,3661 00054 JETTORK1 DEC 0.00267 # 550 FT LBS. SCALED AT PI*2(+16)
027694,000157: 25,3662 13241 0.35356 DEC 0.35356
027695,000158: 25,3663 ENDDAP25 EQUALS
End of include-file ASCENT_INERTIA_UPDATER.agc. Parent file is MAIN.agc