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.

012768,000002:                                                                                                  ## Copyright:   Public domain.
012769,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM_PART_1_OF_2.agc
012770,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
012771,000005:                                                                                                  ##              It is part of an early development version of the software
012772,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
012773,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
012774,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
012775,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
012776,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
012777,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
012778,000012:                                                                                                  ##              that the code format has been changed to conform to the
012779,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
012780,000014:                                                                                                  ##              original YUL assembler.
012781,000015:                                                                                                  ## Reference:   pp. 303-304
012782,000016:                                                                                                  ## Assembler:   yaYUL
012783,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
012784,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
012785,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
012786,000020:                                                                                                  ##              2017-05-29 HG   Transcribed
012787,000021:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
012788,000022:                                                                                                  ##                              octopus/ProoferComments.
012789,000023: 

Page 303

012791,000025: 11,3247                                           BANK     11                                    
012792,000026: 11,3247  E4,1677                                  EBANK=   STBUFF                                
012793,000027:                                                                                                  #  THE UPDATE PROGRAM PROCESSES COMMANDS AND DATA INSERTIONS REQUESTED BY THE GROUND VIA UPLINK
012794,000028:                                                                                                  #  THE PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 60,61,64-76
012795,000029: 
012796,000030:                                                                                                  #      INPUT
012797,000031:                                                                                                  #  ENTRY           DESCRIPTION OF DATA
012798,000032:                                                                                                  #   V64EIEXXXXXE   DOUBLE PRECISION GROUND ELAPSED TIMEIN CSEC (OCTAL)
012799,000033:                                                                                                  #    XXXXXE
012800,000034:                                                                                                  #   V65E           SET GUIDANCE REFERENCE RELEASE DISCRETE
012801,000035:                                                                                                  #   V66E           INITIATE THE LGC DFI TLM CALIBRATE ROUTINE
012802,000036:                                                                                                  #   V67EXXXE       ENTER A THREE DIGIT OCTAL NUMBER REPRESENTING THE
012803,000037:                                                                                                  #                   8-BIT COMMAND TO BE SENT TO THE LMP
012804,000038:                                                                                                  #   V70EIETTTTTE   TIMER I IS SET TO TTTTT (OCTAL,SEC) UNLESS
012805,000039:                                                                                                  #                   TTTTT=+0 OR -0 WHEN THE TIMER IS SET TO -0 OR
012806,000040:                                                                                                  #                   TTTTT .LT. -0 WHICH STARTS MISSION PHASE
012807,000041:                                                                                                  #   V71EIEPPE      MISSION PHASE REGISTER I IS SET TO PP (OCTAL)
012808,000042:                                                                                                  #   V72EIEPPETTTTTE    SAME AS V70,V71
012809,000043:                                                                                                  #   V73EIE         CHANGE THE STATE (ENABLE OR INHIBIT) OF DPS COLD SOAK
012810,000044: 
012811,000045:                                                                                                  #                   DISCRETE (I=1), OR RCS COLD SOAK DISCRETE (I=2).
012812,000046:                                                                                                  #   V74E           STOP MISSION TIMERS
012813,000047:                                                                                                  #   V75E1EXXXXXE... FOR DPS1, ENTER MSB,LSB OF R(P)
012814,000048:                                                                                                  #   V75E2EXXXXXE... FOR DPS2, ENTER MSB,LSB OF CPT(6),CPT(7),CPT(8). THE
012815,000049:                                                                                                  #                   DESIRED VALUE X 0.5 SHOULD BE ENTERED
012816,000050:                                                                                                  #   V75E3EXXXXXE... FOR APS2,ENTER MSB,LSB OF RCSM(TA)0, RCSM(TA)1,
012817,000051:                                                                                                  #                   RCSM(TA)2,TA,RD,TIME IN CSEC X 2(28)
012818,000052:                                                                                                  #                   POSITION IN METERS X 2(-24)
012819,000053:                                                                                                  #   V75E4EXXXXXE... FOR APS3, ENTER ALL BUT RD ABOVE
012820,000054:                                                                                                  #   V76EXXXXXE...  STATE VECTOR MSB,LSB OF X,Y,Z,XVEL,YVEL,ZVEL,TIME.
012821,000055:                                                                                                  #                   TIME IN CSEC X 2(28)
012822,000056:                                                                                                  #                   POSITION IN METERS X 2(-24) X 0.512
012823,000057:                                                                                                  #                   VELOCITY IN METERS/CSEC X 2(-7) X0.64876819
012824,000058: 11,3247           05243        65UPDAT            TC       POSTJUMP                              
012825,000059: 11,3250           56000                           CADR     GRRPLACE                              
012826,000060: 11,3251           05243        74UPDAT            TC       POSTJUMP                              
012827,000061: 11,3252           16000                           CADR     DOV74                                 
012828,000062: 11,3253           00004        66UPDAT            INHINT                                         
012829,000063: 11,3254           05307                           TC       IBNKCALL                              
012830,000064: 11,3255           56211                           CADR     DFITMCAL                              
012831,000065: 11,3256           15605                           TCF      ENDOFJOB                              
012832,000066: 
012833,000067: 11,3257           33316        73UPDAT            CA       OCT73                                 
012834,000068: 
012835,000069: 11,3260           03262                           TC       67UPDAT    +1                         
012836,000070: 11,3261           33317        67UPDAT            CA       OCT67                                 
012837,000071: 11,3262           54144                           TS       MPAC                                  
012838,000072: 11,3263           37755                           CA       ONE                                   
012839,000073: 11,3264           03304                           TC       76UPDAT    +3                         
012840,000074: 11,3265           33320        70UPDAT            CA       OCT70                                 
012841,000075: 11,3266           03270                           TC       71UPDAT    +1                         
012842,000076: 11,3267           33321        71UPDAT            CA       OCT71                                 
012843,000077: 

Page 304

012845,000079: 11,3270           54144                           TS       MPAC                                  
012846,000080: 11,3271           37754                           CA       TWO                                   
012847,000081: 
012848,000082: 11,3272           03304                           TC       76UPDAT    +3                         
012849,000083: 11,3273           33322        64UPDAT            CA       11OCT64                               
012850,000084: 11,3274           03276                           TC       72UPDAT    +1                         
012851,000085: 11,3275           33323        72UPDAT            CA       OCT72                                 
012852,000086: 11,3276           54144                           TS       MPAC                                  
012853,000087: 11,3277           36301                           CA       THREE                                 
012854,000088: 11,3300           03304                           TC       76UPDAT    +3                         
012855,000089: 11,3301           33324        76UPDAT            CA       OCT76                                 
012856,000090: 11,3302           54144                           TS       MPAC                                  
012857,000091: 11,3303           33325                           CA       11OCT16                               
012858,000092: 11,3304           54145                           TS       MPAC       +1                         
012859,000093: 11,3305           03310                           TC       75UPDAT    +2                         
012860,000094: 11,3306           33326        75UPDAT            CA       11OCT75                               
012861,000095: 11,3307           54144                           TS       MPAC                                  
012862,000096: 11,3310           30076                           CA       FLAGWRD2                              #  TEST IF TIMERS ENABLED
012863,000097: 11,3311           77751                           MASK     BIT5                                  
012864,000098: 11,3312           00006                           EXTEND                                         
012865,000099: 11,3313           12053                           BZF      XACTALM                               #   NO, RETURN
012866,000100: 11,3314           05224                           TC       BANKCALL                              
012867,000101: 11,3315           54000                           CADR     UPPART2                               
012868,000102: 11,3316           00073        OCT73              OCT      00073                                 
012869,000103: 11,3317           00067        OCT67              OCT      00067                                 
012870,000104: 11,3320           00070        OCT70              OCT      00070                                 
012871,000105: 
012872,000106: 11,3321           00071        OCT71              OCT      00071                                 
012873,000107: 11,3322           00064        11OCT64            OCT      00064                                 
012874,000108: 11,3323           00072        OCT72              OCT      00072                                 
012875,000109: 11,3324           00076        OCT76              OCT      00076                                 
012876,000110: 11,3325           00016        11OCT16            OCT      16                                    
012877,000111: 11,3326           00075        11OCT75            OCT      00075                                 

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