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.

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

Page 666

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

Page 667

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

Page 668

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

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