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.

029992,000002:                                                                                                  ## Copyright:   Public domain.
029993,000003:                                                                                                  ## Filename:    MISSION_PHASE_6_COAST_SIVB_ATTACHED.agc
029994,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
029995,000005:                                                                                                  ##              It is part of an early development version of the software
029996,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
029997,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
029998,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
029999,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
030000,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
030001,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
030002,000012:                                                                                                  ##              that the code format has been changed to conform to the
030003,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
030004,000014:                                                                                                  ##              original YUL assembler.
030005,000015:                                                                                                  ## Reference:   pp. 666-668
030006,000016:                                                                                                  ## Assembler:   yaYUL
030007,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030008,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
030009,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
030010,000020:                                                                                                  ##              2017-06-13 HG   Transcribed
030011,000021:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
030012,000022:                                                                                                  ##                              octopus/ProoferComments.
030013,000023: 

Page 666

030015,000025:                                                                                                  #  PROGRAM DESCRIPTION
030016,000026:                                                                                                  #     COAST SIVB ATTACHED
030017,000027: 
030018,000028:                                                                                                  #  MOD NO   1      DATE - 4 NOV 66
030019,000029: 
030020,000030:                                                                                                  #  MOD BY - OVERBAUGH
030021,000031:                                                                                                  #  FUNCTIONAL DESCRIPTION
030022,000032:                                                                                                  #     WHEN THE DV MONITOR DETECTS SIVB SHUTDOWN THE
030023,000033:                                                                                                  #     THRUST MISSION CONTROL PROGRAM INITIATES MP6.
030024,000034:                                                                                                  #     DURING THIS PHASE THE ABORT COMMAND MONITOR AND
030025,000035:                                                                                                  #     THE TUMBLE MONITOR ARE TERMINATED AND THE C-BAND
030026,000036:                                                                                                  #     XPONDER IS SET TO ON*.  WHEN THRUST DUE TO
030027,000037:                                                                                                  #     VENTING BECOMES NEGLIGIBLE READING OF
030028,000038:                                                                                                  #     THE PIPAS IS TERMINATED.
030029,000039: 
030030,000040:                                                                                                  #  NORMAL EXIT MODES -
030031,000041:                                                                                                  #     TC   TASKOVER
030032,000042: 
030033,000043:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030034,000044:                                                                                                  #     MP6TO7
030035,000045: 
030036,000046:                                                                                                  #  OUTPUT
030037,000047:                                                                                                  #     UPDATE MODREG
030038,000048:                                                                                                  #     TERMINATE ABORT COMMAND MONITOR
030039,000049:                                                                                                  #     TERMINATE TUMBLE MONITOR
030040,000050:                                                                                                  #     MISSION SCHEDULING REGISTERS SET TO CALL MP7
030041,000051: 
030042,000052:                                                                                                  #  DEBRIS
030043,000053:                                                                                                  #     CENTRALS,A,Q,Z
030044,000054: 
030045,000055:                                                                                                  #  SUBROUTINES CALLED
030046,000056:                                                                                                  #     EXECUTIVE(ENDOFJOB)
030047,000057:                                                                                                  #     WAITLIST
030048,000058:                                                                                                  #     LONGCALL
030049,000059:                                                                                                  #     NEWMODEX
030050,000060:                                                                                                  #     1LMP
030051,000061:                                                                                                  #     FLAG1DWN
030052,000062:                                                                                                  #     FLAG2DWN
030053,000063:                                                                                                  #     SCHEDULE ENTRY ROUTINE(MPENTRY)
030054,000064: 
030055,000065: 27,2463                                           BANK     27                                    
030056,000066: 27,2463  E3,1774                                  EBANK=   MP6TO7                                
030057,000067: 
030058,000068: 27,2463           04105        MP6JOB             TC       NEWMODEX                              #  UPDATE MODREG
030059,000069: 27,2464           00013                           OCT      13                                    
030060,000070: 
030061,000071: 27,2465           36276                           CAF      SIX                                   
030062,000072: 27,2466           54765                           TS       PHASENUM                              
030063,000073: 
030064,000074: 27,2467           04147                           TC       PHASCHNG                              

Page 667

030066,000076: 27,2470           47012                           OCT      47012                                 
030067,000077: 27,2471           13560                           DEC      6000       B-14                       
030068,000078: 27,2472  E3,1774                                  EBANK=   MP6TO7                                
030069,000079: 27,2472           02504 56003                     2CADR    MP6A                                  
030070,000080: 
030071,000081: 27,2474           32503                           CAF      DEC6000                               #  INITIALIZE 1 MIN DELAY
030072,000082: 27,2475           00004                           INHINT                                         
030073,000083: 27,2476           05701                           TC       WAITLIST                              
030074,000084: 27,2477  E3,1774                                  EBANK=   MP6TO7                                
030075,000085: 27,2477           02504 56003                     2CADR    MP6A                                  
030076,000086: 
030077,000087: 27,2501           00003                           RELINT                                         
030078,000088: 27,2502           15605                           TCF      ENDOFJOB                              
030079,000089: 27,2503           13560        DEC6000            DEC      6000       B-14                       
030080,000090: 
030081,000091: 27,2504           04147        MP6A               TC       PHASCHNG                              
030082,000092: 27,2505           47012                           OCT      47012                                 
030083,000093: 27,2506           27340                           DEC      12000      B-14                       
030084,000094: 27,2507  E3,1774                                  EBANK=   MP6TO7                                
030085,000095: 27,2507           02523 56003                     2CADR    MP6B                                  
030086,000096: 
030087,000097: 
030088,000098: 27,2511           32522                           CAF      DEC12000                              #  INITIALIZE 2 MIN WAIT
030089,000099: 27,2512           05701                           TC       WAITLIST                              
030090,000100: 27,2513  E3,1774                                  EBANK=   MP6TO7                                
030091,000101: 27,2513           02523 56003                     2CADR    MP6B                                  
030092,000102:                                                                                                  #  REF   2 LAST 667     27,2514   56003 1  TERMINATE ABORT COMMAND MONITOR
030093,000103: 
030094,000104: 27,2515           06045                           TC       FLAG2DWN                              
030095,000105: 27,2516           00400                           OCT      00400                                 #  BIT 9
030096,000106: 
030097,000107:                                                                                                  #                                          TERMINATE TUMBLE MONITOR
030098,000108: 
030099,000109: 27,2517           06036                           TC       FLAG1DWN                              
030100,000110: 27,2520           20000                           OCT      20000                                 #  BIT14
030101,000111: 27,2521           15745                           TCF      TASKOVER                              
030102,000112: 27,2522           27340        DEC12000           DEC      12000      B-14                       
030103,000113: 
030104,000114: 27,2523           04147        MP6B               TC       PHASCHNG                              
030105,000115: 27,2524           27042                           OCT      27042                                 
030106,000116: 27,2525           75241                           -GENADR  536SEC                                
030107,000117: 27,2526  E3,1774                                  EBANK=   MP6TO7                                
030108,000118: 27,2526           02540 56003                     2CADR    CBXPNDR                               
030109,000119:                                                                                                  #  REF   1              27,2527   56003 1  CALL C-BAND TRANSPONDER-ON*
030110,000120: 
030111,000121: 27,2530           00006                           EXTEND                                         
030112,000122: 27,2531           32537                           DCA      536SEC                                #  SET LONGCALL= T+8M 56S
030113,000123: 27,2532           05757                           TC       LONGCALL                              #  FOR C-BAND TRANSPONDER-ON*
030114,000124: 27,2533  E3,1774                                  EBANK=   MP6TO7                                
030115,000125: 27,2533           02540 56003                     2CADR    CBXPNDR                               
030116,000126: 

Page 668

030118,000128: 27,2535           15745                           TCF      TASKOVER                              
030119,000129: 27,2536           00003 10540  536SEC             2DEC     53600      B-28                       
030120,000130: 
030121,000131:                                                                                                  #                       27,2537   10540 1  C-BAND TRANSPONDER-ON*
030122,000132: 
030123,000133: 27,2540           05073        CBXPNDR            TC       1LMP                                  
030124,000134: 27,2541           00152                           DEC      106        B-14                       
030125,000135: 
030126,000136: 27,2542           04127                           TC       2PHSCHNG                              
030127,000137: 27,2543           00002                           OCT      00002                                 
030128,000138: 27,2544           05013                           OCT      05013                                 
030129,000139: 27,2545           77777                           OCT      77777                                 
030130,000140: 
030131,000141:                                                                                                  #                                    CALL SCHEDULE ENTRY ROUTINE
030132,000142: 
030133,000143: 27,2546           05141                           TC       MPENTRY                               
030134,000144: 27,2547           00001                           DEC      1          B-14                       #  J=1
030135,000145: 27,2550           00007                           DEC      7          B-14                       #  MP=7
030136,000146: 27,2551           01774                           ADRES    MP6TO7                                #  DT = 28 MIN
030137,000147: 
030138,000148:                                                                                                  #                                    TERMINATE READING OF PIPAS.
030139,000149:                                                                                                  #                                    THRUST DUE TO VENTING AFTER SIVB
030140,000150:                                                                                                  #                                    SHUTDOWN HAS BECOME NEGLIGIBLE.
030141,000151: 
030142,000152: 27,2552           06036                           TC       FLAG1DWN                              #  TERMINATE DV MONITOR
030143,000153: 27,2553           00001                           OCT      1                                     
030144,000154: 27,2554           15745                           TCF      TASKOVER                              
030145,000155: 
030146,000156:                                                                                                  #  END OF MISSION PHASE 6

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