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 GROUPNote 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