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