### FILE="Main.annotation" ## Copyright: Public domain. ## Filename: UPDATE_PROGRAM_PART_1_OF_2.agc ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0. ## It is part of an early development version of the software ## for Apollo Guidance Computer (AGC) on the unmanned Lunar ## Module (LM) flight Apollo 5. Sunburst 37 was the program ## upon which Don Eyles's offline development program Shepatin ## was based; the listing herein transcribed was actually for ## the equivalent revision 0 of Shepatin. ## This file is intended to be a faithful transcription, except ## that the code format has been changed to conform to the ## requirements of the yaYUL assembler rather than the ## original YUL assembler. ## Reference: pp. 303-304 ## Assembler: yaYUL ## Contact: Ron Burkey . ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2017-05-24 MAS Created from Sunburst 120. ## 2017-05-29 HG Transcribed ## 2017-06-22 RSB Proofed comment text with ## octopus/ProoferComments. ## Page 303 BANK 11 EBANK= STBUFF # THE UPDATE PROGRAM PROCESSES COMMANDS AND DATA INSERTIONS REQUESTED BY THE GROUND VIA UPLINK # THE PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 60,61,64-76 # INPUT # ENTRY DESCRIPTION OF DATA # V64EIEXXXXXE DOUBLE PRECISION GROUND ELAPSED TIMEIN CSEC (OCTAL) # XXXXXE # V65E SET GUIDANCE REFERENCE RELEASE DISCRETE # V66E INITIATE THE LGC DFI TLM CALIBRATE ROUTINE # V67EXXXE ENTER A THREE DIGIT OCTAL NUMBER REPRESENTING THE # 8-BIT COMMAND TO BE SENT TO THE LMP # V70EIETTTTTE TIMER I IS SET TO TTTTT (OCTAL,SEC) UNLESS # TTTTT=+0 OR -0 WHEN THE TIMER IS SET TO -0 OR # TTTTT .LT. -0 WHICH STARTS MISSION PHASE # V71EIEPPE MISSION PHASE REGISTER I IS SET TO PP (OCTAL) # V72EIEPPETTTTTE SAME AS V70,V71 # V73EIE CHANGE THE STATE (ENABLE OR INHIBIT) OF DPS COLD SOAK # DISCRETE (I=1), OR RCS COLD SOAK DISCRETE (I=2). # V74E STOP MISSION TIMERS # V75E1EXXXXXE... FOR DPS1, ENTER MSB,LSB OF R(P) # V75E2EXXXXXE... FOR DPS2, ENTER MSB,LSB OF CPT(6),CPT(7),CPT(8). THE # DESIRED VALUE X 0.5 SHOULD BE ENTERED # V75E3EXXXXXE... FOR APS2,ENTER MSB,LSB OF RCSM(TA)0, RCSM(TA)1, # RCSM(TA)2,TA,RD,TIME IN CSEC X 2(28) # POSITION IN METERS X 2(-24) # V75E4EXXXXXE... FOR APS3, ENTER ALL BUT RD ABOVE # V76EXXXXXE... STATE VECTOR MSB,LSB OF X,Y,Z,XVEL,YVEL,ZVEL,TIME. # TIME IN CSEC X 2(28) # POSITION IN METERS X 2(-24) X 0.512 # VELOCITY IN METERS/CSEC X 2(-7) X0.64876819 65UPDAT TC POSTJUMP CADR GRRPLACE 74UPDAT TC POSTJUMP CADR DOV74 66UPDAT INHINT TC IBNKCALL CADR DFITMCAL TCF ENDOFJOB 73UPDAT CA OCT73 TC 67UPDAT +1 67UPDAT CA OCT67 TS MPAC CA ONE TC 76UPDAT +3 70UPDAT CA OCT70 TC 71UPDAT +1 71UPDAT CA OCT71 ## Page 304 TS MPAC CA TWO TC 76UPDAT +3 64UPDAT CA 11OCT64 TC 72UPDAT +1 72UPDAT CA OCT72 TS MPAC CA THREE TC 76UPDAT +3 76UPDAT CA OCT76 TS MPAC CA 11OCT16 TS MPAC +1 TC 75UPDAT +2 75UPDAT CA 11OCT75 TS MPAC CA FLAGWRD2 # TEST IF TIMERS ENABLED MASK BIT5 EXTEND BZF XACTALM # NO, RETURN TC BANKCALL CADR UPPART2 OCT73 OCT 00073 OCT67 OCT 00067 OCT70 OCT 00070 OCT71 OCT 00071 11OCT64 OCT 00064 OCT72 OCT 00072 OCT76 OCT 00076 11OCT16 OCT 16 11OCT75 OCT 00075