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.

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