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