Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

023768,000002:                                                                                                  ## Copyright:   Public domain.
023769,000003:                                                                                                  ## Filename:    ASCENT_INERTIA_UPDATER.agc
023770,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
023771,000005:                                                                                                  ##              It is part of an early development version of the software
023772,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
023773,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
023774,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
023775,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
023776,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
023777,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
023778,000012:                                                                                                  ##              that the code format has been changed to conform to the
023779,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
023780,000014:                                                                                                  ##              original YUL assembler.
023781,000015:                                                                                                  ## Reference:   pp. 538-540
023782,000016:                                                                                                  ## Assembler:   yaYUL
023783,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
023784,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
023785,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
023786,000020:                                                                                                  ##              2017-06-05 HG   Transcribed
023787,000021:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
023788,000022:                                                                                                  ##                              octopus/ProoferComments.
023789,000023: 

Page 538

023791,000025: 26,2441                                           BANK     26                                    
023792,000026: 26,2441  E6,1541                                  EBANK=   DT                                    
023793,000027: 26,2441           02504        IXXTASK            TC       JACCESTP                              
023794,000028: 
023795,000029: 26,2442           02477                           TC       ASCENGON                              
023796,000030: 
023797,000031: 26,2443           00006                           EXTEND                                         
023798,000032: 26,2444           27452                           DIM      IXX                                   
023799,000033: 26,2445           32474                           CAF      IXXTIME                               
023800,000034: 26,2446           05701                           TC       WAITLIST                              
023801,000035: 26,2447  E6,1541                                  EBANK=   DT                                    
023802,000036: 26,2447           02441 54006                     2CADR    IXXTASK                               
023803,000037: 
023804,000038: 26,2451           15745                           TCF      TASKOVER                              
023805,000039: 
023806,000040: 26,2452           02520        IYYTASK            TC       JACCESTQ                              
023807,000041: 
023808,000042: 26,2453           02477                           TC       ASCENGON                              
023809,000043: 
023810,000044: 26,2454           00006                           EXTEND                                         
023811,000045: 26,2455           27453                           DIM      IYY                                   
023812,000046: 26,2456           32475                           CAF      IYYTIME                               
023813,000047: 26,2457           05701                           TC       WAITLIST                              
023814,000048: 26,2460  E6,1541                                  EBANK=   DT                                    
023815,000049: 26,2460           02452 54006                     2CADR    IYYTASK                               
023816,000050: 
023817,000051: 26,2462           15745                           TCF      TASKOVER                              
023818,000052: 
023819,000053: 26,2463           02541        IZZTASK            TC       JACCESTR                              
023820,000054: 
023821,000055: 26,2464           02477                           TC       ASCENGON                              
023822,000056: 
023823,000057: 26,2465           00006                           EXTEND                                         
023824,000058: 26,2466           27454                           DIM      IZZ                                   
023825,000059: 26,2467           32476                           CAF      IZZTIME                               
023826,000060: 26,2470           05701                           TC       WAITLIST                              
023827,000061: 26,2471  E6,1541                                  EBANK=   DT                                    
023828,000062: 26,2471           02463 54006                     2CADR    IZZTASK                               
023829,000063: 
023830,000064: 
023831,000065: 26,2473           15745                           TCF      TASKOVER                              
023832,000066: 
023833,000067: 26,2474           00310        IXXTIME            DEC      200        B-14                       
023834,000068: 26,2475           02424        IYYTIME            DEC      1300       B-14                       
023835,000069: 26,2476           00264        IZZTIME            DEC      180        B-14                       
023836,000070: 
023837,000071: 26,2477           37746        ASCENGON           CAF      BIT8                                  
023838,000072: 26,2500           70077                           MASK     DAPBOOLS                              
023839,000073: 26,2501           10000                           CCS      A                                     
023840,000074: 26,2502           00002                           TC       Q                                     
023841,000075: 26,2503           15745                           TCF      TASKOVER                              
023842,000076: 

Page 539

023844,000078: 26,2504           31452        JACCESTP           CAE      IXX                                   
023845,000079: 26,2505           22007                           ZL                                             
023846,000080: 26,2506           00006                           EXTEND                                         
023847,000081: 26,2507           11455                           DV       4JETTORK                              
023848,000082: 26,2510           60000                           DOUBLE                                         
023849,000083: 26,2511           55441                           TS       1/2JTSP                               
023850,000084: 
023851,000085: 26,2512           32606                           CAF      JETTORK                               
023852,000086: 26,2513           22007                           ZL                                             
023853,000087: 26,2514           00006                           EXTEND                                         
023854,000088: 26,2515           11452                           DV       IXX                                   
023855,000089: 26,2516           55612                           TS       1JACC                                 
023856,000090: 
023857,000091: 26,2517           00002                           TC       Q                                     
023858,000092: 
023859,000093: 26,2520           31453        JACCESTQ           CAE      IYY                                   
023860,000094: 26,2521           22007                           ZL                                             
023861,000095: 26,2522           00006                           EXTEND                                         
023862,000096: 26,2523           11456                           DV       JETTORK4                              
023863,000097: 26,2524           00006                           EXTEND                                         #  INCLUDE INVISIBLE FACTOR OF (1/2).
023864,000098: 
023865,000099: 26,2525           77740                           MP       BIT14                                 
023866,000100: 26,2526           55671                           TS       1/NET+4Q                              
023867,000101: 26,2527           55673                           TS       1/NET-4Q                              
023868,000102: 
023869,000103: 
023870,000104: 26,2530           60000                           DOUBLE                                         
023871,000105: 26,2531           55670                           TS       1/NET+2Q                              
023872,000106: 26,2532           55672                           TS       1/NET-2Q                              
023873,000107: 
023874,000108: 26,2533           32607                           CAF      JETTORK1                              
023875,000109: 26,2534           22007                           ZL                                             
023876,000110: 26,2535           00006                           EXTEND                                         
023877,000111: 26,2536           11453                           DV       IYY                                   
023878,000112: 26,2537           55613                           TS       1JACCQ                                
023879,000113: 
023880,000114: 26,2540           00002                           TC       Q                                     
023881,000115: 26,2541           31454        JACCESTR           CAE      IZZ                                   
023882,000116: 26,2542           22007                           ZL                                             
023883,000117: 26,2543           00006                           EXTEND                                         
023884,000118: 26,2544           11456                           DV       JETTORK4                              
023885,000119: 26,2545           00006                           EXTEND                                         #  INCLUDE INVISIBLE FACTOR OF (1/2).
023886,000120: 26,2546           77740                           MP       BIT14                                 
023887,000121: 26,2547           55675                           TS       1/NET+4R                              
023888,000122: 26,2550           55677                           TS       1/NET-4R                              
023889,000123: 
023890,000124: 26,2551           60000                           DOUBLE                                         
023891,000125: 26,2552           55674                           TS       1/NET+2R                              
023892,000126: 26,2553           55676                           TS       1/NET-2R                              
023893,000127: 
023894,000128: 26,2554           32607                           CAF      JETTORK1                              
023895,000129: 26,2555           22007                           ZL                                             
023896,000130: 

Page 540

023898,000132: 26,2556           00006                           EXTEND                                         
023899,000133: 26,2557           11454                           DV       IZZ                                   
023900,000134: 
023901,000135: 26,2560           55614                           TS       1JACCR                                
023902,000136: 
023903,000137: 26,2561           31670        COMMONQR           CAE      1/2JTSQ                               
023904,000138: 26,2562           61674                           AD       1/2JTSR                               
023905,000139: 26,2563           00006                           EXTEND                                         
023906,000140: 26,2564           72605                           MP       .707BK26                              
023907,000141: 26,2565           55701                           TS       1/2JETSU                              #  TEMP
023908,000142: 
023909,000143: 26,2566           31670                           CAE      1/2JTSQ                               
023910,000144: 26,2567           00006                           EXTEND                                         
023911,000145: 26,2570           71674                           MP       1/2JTSR                               
023912,000146: 26,2571           00006                           EXTEND                                         
023913,000147: 26,2572           11701                           DV       1/2JETSU                              #  TEMP
023914,000148: 26,2573           55701                           TS       1/NET+2U                              
023915,000149: 26,2574           55703                           TS       1/NET-2U                              
023916,000150: 26,2575           55705                           TS       1/NET+2V                              
023917,000151: 26,2576           55707                           TS       1/NET-2V                              
023918,000152: 
023919,000153: 26,2577           60000                           DOUBLE                                         
023920,000154: 26,2600           55700                           TS       1/NET+1U                              
023921,000155: 26,2601           55702                           TS       1/NET-1U                              
023922,000156: 26,2602           55704                           TS       1/NET+1V                              
023923,000157: 26,2603           55706                           TS       1/NET-1V                              
023924,000158: 
023925,000159: 26,2604           00002                           TC       Q                                     
023926,000160: 
023927,000161: 26,2605           26501        .707BK26           DEC      0.70711                               
023928,000162: 26,2606           00050        JETTORK            DEC      0.00243                               #  500 FT LBS. SCALED AT PI*2(+16)
023929,000163: 26,2607           00054        JETTORK1           DEC      0.00267                               #  550 FT LBS. SCALED AT PI*2(+16)
023930,000164: 26,2610           13241        0.35356            DEC      0.35356                               

End of include-file ASCENT_INERTIA_UPDATER.agc.  Parent file is MAIN.agc