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.

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