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.
|
012772,000002: ## Copyright: Public domain.
012773,000003: ## Filename: UPDATE_PROGRAM_PART_1_OF_2.agc
012774,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
012775,000005: ## It is part of an early development version of the software
012776,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
012777,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
012778,000008: ## upon which Don Eyles's offline development program Shepatin
012779,000009: ## was based; the listing herein transcribed was actually for
012780,000010: ## the equivalent revision 0 of Shepatin.
012781,000011: ## This file is intended to be a faithful transcription, except
012782,000012: ## that the code format has been changed to conform to the
012783,000013: ## requirements of the yaYUL assembler rather than the
012784,000014: ## original YUL assembler.
012785,000015: ## Reference: pp. 303-304
012786,000016: ## Assembler: yaYUL
012787,000017: ## Contact: Ron Burkey <info@sandroid.org>.
012788,000018: ## Website: www.ibiblio.org/apollo/index.html
012789,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
012790,000020: ## 2017-05-29 HG Transcribed
012791,000021: ## 2017-06-22 RSB Proofed comment text with
012792,000022: ## octopus/ProoferComments.
012793,000023:
|
|
Page 303 |
012795,000025: 11,3247 BANK 11
012796,000026: 11,3247 E4,1677 EBANK= STBUFF
012797,000027: # THE UPDATE PROGRAM PROCESSES COMMANDS AND DATA INSERTIONS REQUESTED BY THE GROUND VIA UPLINK
012798,000028: # THE PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 60,61,64-76
012799,000029:
012800,000030: # INPUT
012801,000031: # ENTRY DESCRIPTION OF DATA
012802,000032: # V64EIEXXXXXE DOUBLE PRECISION GROUND ELAPSED TIMEIN CSEC (OCTAL)
012803,000033: # XXXXXE
012804,000034: # V65E SET GUIDANCE REFERENCE RELEASE DISCRETE
012805,000035: # V66E INITIATE THE LGC DFI TLM CALIBRATE ROUTINE
012806,000036: # V67EXXXE ENTER A THREE DIGIT OCTAL NUMBER REPRESENTING THE
012807,000037: # 8-BIT COMMAND TO BE SENT TO THE LMP
012808,000038: # V70EIETTTTTE TIMER I IS SET TO TTTTT (OCTAL,SEC) UNLESS
012809,000039: # TTTTT=+0 OR -0 WHEN THE TIMER IS SET TO -0 OR
012810,000040: # TTTTT .LT. -0 WHICH STARTS MISSION PHASE
012811,000041: # V71EIEPPE MISSION PHASE REGISTER I IS SET TO PP (OCTAL)
012812,000042: # V72EIEPPETTTTTE SAME AS V70,V71
012813,000043: # V73EIE CHANGE THE STATE (ENABLE OR INHIBIT) OF DPS COLD SOAK
012814,000044:
012815,000045: # DISCRETE (I=1), OR RCS COLD SOAK DISCRETE (I=2).
012816,000046: # V74E STOP MISSION TIMERS
012817,000047: # V75E1EXXXXXE... FOR DPS1, ENTER MSB,LSB OF R(P)
012818,000048: # V75E2EXXXXXE... FOR DPS2, ENTER MSB,LSB OF CPT(6),CPT(7),CPT(8). THE
012819,000049: # DESIRED VALUE X 0.5 SHOULD BE ENTERED
012820,000050: # V75E3EXXXXXE... FOR APS2,ENTER MSB,LSB OF RCSM(TA)0, RCSM(TA)1,
012821,000051: # RCSM(TA)2,TA,RD,TIME IN CSEC X 2(28)
012822,000052: # POSITION IN METERS X 2(-24)
012823,000053: # V75E4EXXXXXE... FOR APS3, ENTER ALL BUT RD ABOVE
012824,000054: # V76EXXXXXE... STATE VECTOR MSB,LSB OF X,Y,Z,XVEL,YVEL,ZVEL,TIME.
012825,000055: # TIME IN CSEC X 2(28)
012826,000056: # POSITION IN METERS X 2(-24) X 0.512
012827,000057: # VELOCITY IN METERS/CSEC X 2(-7) X0.64876819
012828,000058: 11,3247 05243 65UPDAT TC POSTJUMP
012829,000059: 11,3250 56000 CADR GRRPLACE
012830,000060: 11,3251 05243 74UPDAT TC POSTJUMP
012831,000061: 11,3252 16000 CADR DOV74
012832,000062: 11,3253 00004 66UPDAT INHINT
012833,000063: 11,3254 05307 TC IBNKCALL
012834,000064: 11,3255 56211 CADR DFITMCAL
012835,000065: 11,3256 15605 TCF ENDOFJOB
012836,000066:
012837,000067: 11,3257 33316 73UPDAT CA OCT73
012838,000068:
012839,000069: 11,3260 03262 TC 67UPDAT +1
012840,000070: 11,3261 33317 67UPDAT CA OCT67
012841,000071: 11,3262 54144 TS MPAC
012842,000072: 11,3263 37755 CA ONE
012843,000073: 11,3264 03304 TC 76UPDAT +3
012844,000074: 11,3265 33320 70UPDAT CA OCT70
012845,000075: 11,3266 03270 TC 71UPDAT +1
012846,000076: 11,3267 33321 71UPDAT CA OCT71
012847,000077:
|
|
Page 304 |
012849,000079: 11,3270 54144 TS MPAC
012850,000080: 11,3271 37754 CA TWO
012851,000081:
012852,000082: 11,3272 03304 TC 76UPDAT +3
012853,000083: 11,3273 33322 64UPDAT CA 11OCT64
012854,000084: 11,3274 03276 TC 72UPDAT +1
012855,000085: 11,3275 33323 72UPDAT CA OCT72
012856,000086: 11,3276 54144 TS MPAC
012857,000087: 11,3277 36301 CA THREE
012858,000088: 11,3300 03304 TC 76UPDAT +3
012859,000089: 11,3301 33324 76UPDAT CA OCT76
012860,000090: 11,3302 54144 TS MPAC
012861,000091: 11,3303 33325 CA 11OCT16
012862,000092: 11,3304 54145 TS MPAC +1
012863,000093: 11,3305 03310 TC 75UPDAT +2
012864,000094: 11,3306 33326 75UPDAT CA 11OCT75
012865,000095: 11,3307 54144 TS MPAC
012866,000096: 11,3310 30076 CA FLAGWRD2 # TEST IF TIMERS ENABLED
012867,000097: 11,3311 77751 MASK BIT5
012868,000098: 11,3312 00006 EXTEND
012869,000099: 11,3313 12053 BZF XACTALM # NO, RETURN
012870,000100: 11,3314 05224 TC BANKCALL
012871,000101: 11,3315 54000 CADR UPPART2
012872,000102: 11,3316 00073 OCT73 OCT 00073
012873,000103: 11,3317 00067 OCT67 OCT 00067
012874,000104: 11,3320 00070 OCT70 OCT 00070
012875,000105:
012876,000106: 11,3321 00071 OCT71 OCT 00071
012877,000107: 11,3322 00064 11OCT64 OCT 00064
012878,000108: 11,3323 00072 OCT72 OCT 00072
012879,000109: 11,3324 00076 OCT76 OCT 00076
012880,000110: 11,3325 00016 11OCT16 OCT 16
012881,000111: 11,3326 00075 11OCT75 OCT 00075
End of include-file UPDATE_PROGRAM_PART_1_OF_2.agc. Parent file is MAIN.agc