Pre-launch Review
CONTROLLED CONSTANTS
Scanned pages: 038-053
# Copyright: Public domain.# Filename: CONTROLLED_CONSTANTS.agc# Purpose: Part of the source code for Luminary 1A build 099.# It is part of the source code for the Lunar Module's (LM)# Apollo Guidance Computer (AGC), for Apollo 11.## Assembler: yaYUL# Contact: Jim Lawton <jim.lawton@gmail.com># Website: www.ibiblio.org/apollo.# Pages: 038-053# Mod history: 2009-05-16 JVL Transcribed from page images.## This source code has been transcribed or otherwise adapted from digitized# images of a hardcopy from the MIT Museum. The digitization was performed# by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many# thanks to both. The images (with suitable reduction in storage size and# consequent reduction in image quality as well) are available online at# www.ibiblio.org/apollo. If for some reason you find that the images are# illegible, contact me at info@sandroid.org about getting access to the# (much) higher-quality images which Paul actually created.## Notations on the hardcopy document read, in part:## Assemble revision 001 of AGC program LMY99 by NASA 2021112-061# 16:27 JULY 14, 1969
# Page 38# DPS AND APS ENGINE PARAMETERS
SETLOC P40S BANK COUNT* $$/P40
# *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
FDPS 2DEC 4.3670 B-7 # 9817.5 LBS FORCE IN NEWTONSMDOTDPS 2DEC 0.1480 B-3 # 32.62 LBS/SEC IN KGS/CSDTDECAY 2DEC -38FAPS 2DEC 1.5569 B-7 # 3500 LBS FORCE IN NEWTONSMDOTAPS 2DEC 0.05135 B-3 # 11.32 LBS/SEC IN KGS/CSATDECAY 2DEC -10
# ********************************************************************
FRCS4 2DEC 0.17792 B-7 # 400 LBS FORCE IN NEWTONSFRCS2 2DEC 0.08896 B-7 # 200 LBS FORCE IN NEWTONS
SETLOC P40S1 BANK COUNT* $$/P40
# *** APS IMPULSE DATA FOR P42 ***************************************
K1VAL 2DEC 124.55 B-23 # 2800 LB-SECK2VAL 2DEC 31.138 B-24 # 700 LB-SECK3VAL 2DEC 1.5569 B-10 # FAPS (3500 LBS THRUST)
# ********************************************************************
S40.136 2DEC .4671 B-9 # .4671 M NEWTONS (DPS)S40.136_ 2DEC .4671 B+1 # S40.136 SHIFTED LEFT 10.
SETLOC ASENT1 BANK COUNT* $$/P70
(1/DV)A 2DEC 15.20 B-7 # 2 SECONDS WORTH OF INITIAL ASCENT# Page 39 # STAGE ACCELERATION -- INVERTED (M/CS) # 1) PREDICATED ON A LIFTOFF MASS OF # 4869.9 KG (SNA-8-D-027 7/11/68) # 2) PREDICATED ON A CONTRIBUTION TO VEH- # ICLE ACCELERATION FROM RCS THRUSTERS # EQUIV. TO 1 JET ON CONTINUOUSLY.
K(1/DV) 2DEC 436.70 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS.
(AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS. # ASSUMPTIONS SAME AS FOR (1/DV)A.(TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG. # ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE # ADDITIONAL ASSUMPTION THAT NET MASS-FLOW # RATE = 5.299 KG/SEC = 5.135 (APS) + # .164 (1 RCS JET). SETLOC ASENT BANK COUNT* $$/ASENTAT/RCS 2DEC .0000785 B+10 # 4 JETS IN A DRY LEM
SETLOC SERVICES BANK COUNT* $$/SERV
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
APSVEX DEC -3030 E-2 B-5 # 9942 FT/SEC IN M/CS.DPSVEX DEC* -2.95588868 E+1 B-05* # VE (DPS) +2.95588868E+ 3
# ************************************************************************
SETLOC F2DPS*31 BANK COUNT* $$/F2DPS
TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
# Page 40# THROTTLING AND THRUST DETECTION PARAMETERS
SETLOC P40S BANK COUNT* $$/P40
THRESH1 DEC 24THRESH3 DEC 12HIRTHROT = BIT13
SETLOC FFTAG5 BANK COUNT* $$/P40
THRESH2 DEC 308
SETLOC FTHROT BANK COUNT* $$/THROT
FMAXODD DEC +3841 # FSAT +4.81454413 E+4FMAXPOS DEC +3467 # FMAX +4.34546769 E+4THROTLAG DEC +20 # TAU (TH) +1.99999999 E-1SCALEFAC 2DEC* +7.97959872 E+2 B-16* # BITPERF +7.97959872 E-2
SETLOC F2DPS*32 BANK COUNT* $$/F2DPS
DPSTHRSH DEC 36 # (THRESH1 + THRESH3 FOR P63)
# Page 41# LM HARDWARE-RELATED PARAMETERS
SETLOC RADARUPT BANK COUNT* $$/RRUPT
LVELBIAS DEC -12288 # LANDING RADAR BIAS FOR 153.6 KC.RDOTBIAS 2DEC 17000 # BIAS COUNT FOR RR RANGE RATE.
SETLOC LRS22 BANK COUNT* $$/LRS22
RDOTCONV 2DEC -.0019135344 B7 # CONVERTS RR RDOT READING TO M/CS AT 2(7)RANGCONV 2DEC 2.859024 B-3 # CONVERTS RR RANGE READING TO M. AT 2(-29
SETLOC SERVICES BANK COUNT* $$/SERV
HBEAMANT 2DEC -.4687018041 # RANGE BEAM IN LR ANTENNA COORDINATES. 2DEC 0 2DEC -.1741224271
HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
# ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *********
VZSCAL 2DEC +.5410829105 # SCALES .8668 FT/SEC/BIT TO 2(18) M/CS.VYSCAL 2DEC +.7565672446 # SCALES 1.212 FT/SEC/BIT TO 2(18) M/CS.VXSCAL 2DEC -.4020043770 # SCALES -.644 FT/SEC/BIT TO 2(18) M/CS.
# *************************************************************************
KPIP DEC .0512 # SCALES DELV TO UNITS OF 2(5) M/CS.KPIP1 2DEC .0128 # SCALES DELV TO UNITS OF 2(7) M/CS.KPIP2 2DEC .0064 # SCALES DELV TO UNITS OF 2(8) M/CS.
# Page 42ALTCONV 2DEC 1.399078846 B-4 # CONVERTS M*2(-24) TO BIT UNITS *2(-28).ARCONV1 2DEC 656.167979 B-10 # CONV. ALTRATE COMP. TO BIT UNITS<
SETLOC R10 BANK COUNT* $$/R10
ARCONV OCT 24402 # 656.1679798B-10 CONV ALTRATE TO BIT UNITARTOA DEC .1066098 B-1 # .25/2.345 B-1 4X/SEC CYCLE RATE.ARTOA2 DEC .0021322 B8 # (.5)/(2.345)(100)VELCONV OCT 22316 # 588.914 B-10 CONV VEL. TO BIT UNITS.KPIP1(5) DEC .0512 # SCALES DELV TO M/CS*2(-5).MAXVBITS OCT 00547 # MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
SETLOC DAPS3 BANK COUNT* $$/DAPAO
TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
# Page 43# PARAMETERS RELATING TO MASS, INERTIA, AND VEHICLE DIMENSIONS
SETLOC FRANDRES BANK COUNT* $$/START
FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
SETLOC LOADDAP1 BANK COUNT* $$/R03
MINLMD DEC -2850 B-16 # MIN. DESCENT STAGE MASS -- 2(16) KG.MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LB
SETLOC DAPS3 BANK COUNT* $$/DAPAD
LOASCENT DEC 2200 B-16 # MIN ASCENT LEM MASS -- 2(16) KG.HIDESCNT DEC 15300 B-16 # MAX DESCENT LEM MASS -- 2(16) KG.LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
# Page 44# PHYSICAL CONSTANTS ( TIME - INVARIANT )
SETLOC IMU2 BANK COUNT* $$/P07
OMEG/MS 2DEC .24339048
SETLOC R30LOC BANK COUNT* $$/R30
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED ***********
1/RTMUM 2DEC* .45162595 E-4 B14*1/RTMUE 2DEC* .50087529 E-5 B17*
# **************************************************************************
SETLOC P40S1 BANK COUNT* $$/S40.9
EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
SETLOC ASENT1 BANK COUNT* $$/P12
MUM(-37) 2DEC* 4.9027780 E8 B-37*MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
SETLOC SERVICES BANK COUNT* $$/SERV
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED ***********
-MUDT 2DEC* -7.9720645 E+12 B-44*-MUDT1 2DEC* -9.8055560 E+10 B-44*
# **************************************************************************
-MUDTMUN 2DEC* -9.8055560 E+10 B-38*RESQ 2DEC* 40.6809913 E12 B-58*
# Page 4520J 2DEC 3.24692010 E-22J 2DEC 3.24692010 E-3
SETLOC P50S1 BANK COUNT* $$/LOSAM
RSUBEM 2DEC 384402000 B-29RSUBM 2DEC 1738090 B-29RSUBE 2DEC 6378166 B-29ROE 2DEC .00257125
SETLOC CONICS1 BANK COUNT* $$/LT-LG
ERAD 2DEC 6373338 B-29 # PAD RADIUS504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
SETLOC CONICS1 BANK COUNT* $$/CONIC
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED **************
MUTABLE 2DEC* 3.986032 E10 B-36* # MUE 2DEC* .25087606 E-10 B+34* # 1/MUE 2DEC* 1.99650495 E5 B-18* # SQRT(MUE) 2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE) 2DEC* 4.902778 E8 B-30* # MUM 2DEC* .203966 E-8 B+28* # 1/MUM 2DEC* 2.21422176 E4 B-15* # SQRT(MUM) 2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
# *************************************************************************
# Page 46 SETLOC INTINIT BANK COUNT* $$/INTIN
OMEGMOON 2DEC* 2.66169947 E-8 B+23*
SETLOC ORBITAL2 BANK COUNT* $$/ORBIT
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ************
2DEC* 1.32715445 E16 B-54*MUM 2DEC* 4.9027780 E8 B-30*MUEARTH 2DEC* 3.986032 E10 B-36* 2DEC 0J4REQ/J3 2DEC* .4991607391 E7 B-26* 2DEC -176236.02 B-252J3RE/J2 2DEC* -.1355426363 E5 B-27* 2DEC* .3067493316 E18 B-60*J2REQSQ 2DEC* 1.75501139 E21 B-72*3J22R2MU 2DEC* 9.20479048 E16 B-58*
# *************************************************************************
SETLOC TOF-FF1 BANK COUNT* $$/TFF
1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
SETLOC SBAND BANK COUNT* $$/R05
REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
# Page 47# PHYSICAL CONSTANTS (TIME - VARIANT)
SETLOC STARTAB BANK COUNT* $$/STARS
2DEC +.8342971408 B-1 # STAR 37 X 2DEC -.2392481515 B-1 # STAR 37 Y 2DEC -.4966976975 B-1 # STAR 37 Z
2DEC +.8139832631 B-1 # STAR 36 X 2DEC -.5557243189 B-1 # STAR 36 Y 2DEC +.1691204557 B-1 # STAR 36 Z
2DEC +.4541086270 B-1 # STAR 35 X 2DEC -.5392368197 B-1 # STAR 35 Y 2DEC +.7092312789 B-1 # STAR 35 Z
2DEC +.3201817378 B-1 # STAR 34 X 2DEC -.4436021946 B-1 # STAR 34 Y 2DEC -.8370786986 B-1 # STAR 34 Z
2DEC +.5520184464 B-1 # STAR 33 X 2DEC -.7933187400 B-1 # STAR 33 Y 2DEC -.2567508745 B-1 # STAR 33 Z
2DEC +.4537196908 B-1 # STAR 32 X 2DEC -.8779508801 B-1 # STAR 32 Y 2DEC +.1527766153 B-1 # STAR 32 Z
2DEC +.2069525789 B-1 # STAR 31 X 2DEC -.8719885748 B-1 # STAR 31 Y 2DEC -.4436288486 B-1 # STAR 31 Z
2DEC +.1217293692 B-1 # STAR 30 X 2DEC -.7702732847 B-1 # STAR 30 Y# Page 48 2DEC +.6259880410 B-1 # STAR 30 Z
2DEC -.1124304773 B-1 # STAR 29 X 2DEC -.9694934200 B-1 # STAR 29 Y 2DEC +.2178116072 B-1 # STAR 29 Z
2DEC -.1146237858 B-1 # STAR 28 X 2DEC -.3399692557 B-1 # STAR 28 Y 2DEC -.9334250333 B-1 # STAR 28 Z
2DEC -.3516499609 B-1 # STAR 27 X 2DEC -.8240752703 B-1 # STAR 27 Y 2DEC -.4441196390 B-1 # STAR 27 Z
2DEC -.5326876930 B-1 # STAR 26 X 2DEC -.7160644554 B-1 # STAR 26 Y 2DEC +.4511047742 B-1 # STAR 26 Z
2DEC -.7861763936 B-1 # STAR 25 X 2DEC -.5217996305 B-1 # STAR 25 Y 2DEC +.3311371675 B-1 # STAR 25 Z
2DEC -.6898393233 B-1 # STAR 24 X 2DEC -.4182330640 B-1 # STAR 24 Y 2DEC -.5909338474 B-1 # STAR 24 Z
2DEC -.5812035376 B-1 # STAR 23 X 2DEC -.2909171294 B-1 # STAR 23 Y 2DEC +.7599800468 B-1 # STAR 23 Z
2DEC -.9170097662 B-1 # STAR 22 X 2DEC -.3502146628 B-1 # STAR 22 Y 2DEC -.1908999176 B-1 # STAR 22 Z
# Page 49 2DEC -.4523440203 B-1 # STAR 21 X 2DEC -.0493710140 B-1 # STAR 21 Y 2DEC -.8904759346 B-1 # STAR 21 Z
2DEC -.9525211695 B-1 # STAR 20 X 2DEC -.0593434796 B-1 # STAR 20 Y 2DEC -.2986331746 B-1 # STAR 20 Z
2DEC -.9656605484 B-1 # STAR 19 X 2DEC +.0525933156 B-1 # STAR 19 Y 2DEC +.2544280809 B-1 # STAR 19 Z
2DEC -.8608205219 B-1 # STAR 18 X 2DEC +.4636213989 B-1 # STAR 18 Y 2DEC +.2098647835 B-1 # STAR 18 Z
2DEC -.7742591356 B-1 # STAR 17 X 2DEC +.6152504197 B-1 # STAR 17 Y 2DEC -.1482892839 B-1 # STAR 17 Z
2DEC -.4657947941 B-1 # STAR 16 X 2DEC +.4774785033 B-1 # STAR 16 Y 2DEC +.7450164351 B-1 # STAR 16 Z
2DEC -.3612508532 B-1 # STAR 15 X 2DEC +.5747270840 B-1 # STAR 15 Y 2DEC -.7342932655 B-1 # STAR 15 Z
2DEC -.4118589524 B-1 # STAR 14 X 2DEC +.9065485360 B-1 # STAR 14 Y 2DEC +.0924226975 B-1 # STAR 14 Z
2DEC -.1820751783 B-1 # STAR 13 X# Page 50 2DEC +.9404899869 B-1 # STAR 13 Y 2DEC -.2869271926 B-1 # STAR 13 Z
2DEC -.0614937230 B-1 # STAR 12 X 2DEC +.6031563286 B-1 # STAR 12 Y 2DEC -.7952489957 B-1 # STAR 12 Z
2DEC +.1371725575 B-1 # STAR 11 X 2DEC +.6813721061 B-1 # STAR 11 Y 2DEC +.7189685267 B-1 # STAR 11 Z
2DEC +.2011399589 B-1 # STAR 10 X 2DEC +.9690337941 B-1 # STAR 10 Y 2DEC -.1432348512 B-1 # STAR 10 Z
2DEC +.3507315038 B-1 # STAR 9 X 2DEC +.8926333307 B-1 # STAR 9 Y 2DEC +.2831839492 B-1 # STAR 9 Z
2DEC +.4105636020 B-1 # STAR 8 X 2DEC +.4988110001 B-1 # STAR 8 Y 2DEC +.7632988371 B-1 # STAR 8 Z
2DEC +.7032235469 B-1 # STAR 7 X 2DEC +.7075846047 B-1 # STAR 7 Y 2DEC +.0692868685 B-1 # STAR 7 Z
2DEC +.5450107404 B-1 # STAR 6 X 2DEC +.5314955466 B-1 # STAR 6 Y 2DEC -.6484410356 B-1 # STAR 6 Z
2DEC +.0130968840 B-1 # STAR 5 X 2DEC +.0078062795 B-1 # STAR 5 Y# Page 51 2DEC +.9998837600 B-1 # STAR 5 Z
2DEC +.4917678276 B-1 # STAR 4 X 2DEC +.2204887125 B-1 # STAR 4 Y 2DEC -.8423473935 B-1 # STAR 4 Z
2DEC +.4775639450 B-1 # STAR 3 X 2DEC +.1166004340 B-1 # STAR 3 Y 2DEC +.8708254803 B-1 # STAR 3 Z
2DEC +.9342640400 B-1 # STAR 2 X 2DEC +.1735073142 B-1 # STAR 2 Y 2DEC -.3115219339 B-1 # STAR 2 Z
2DEC +.8748658918 B-1 # STAR 1 X 2DEC +.0260879174 B-1 # STAR 1 Y 2DEC +.4836621670 B-1 # STAR 1 Z
CATLOG DEC 6970
# *******************************************************************************
SETLOC EPHEM1 BANK COUNT* $$/EPHEM
KONMAT 2DEC 1.0 B-1 # ******************** 2DEC 0 # * 2DEC 0 # * 2DEC 0 # * 2DEC .91745 B-1 # K1 COS(OBL) * 2DEC -.03571 B-1 # K2 SIN(OBL)SIN(IM) * 2DEC 0 # * 2DEC .39784 B-1 # K3 SIN(OBL) *# Page 52 2DEC .082354 B-1 # K4 COS(OBL)SIN(IM) *CSTODAY 2DEC 8640000 B-33 # * NOTE: *RCB-13 OCT 00002 # * TABLES CONTAIN * OCT 00000 # * CONSTANTS FOR *RATESP 2DEC .03660098 B+4 # LOMR * 1969 - 1970 * 2DEC .00273779 B+4 # LOSR 2DEC -.00014719 B+4 # LONR 2DEC .815282336 # LOMO 2DEC .274674910 # LOSO 2DEC .986209499 # LONOVAL67 2DEC* .01726666666 B+1* # AMOD 2DEC .530784445 # AARG 2DEC .036291712 B+1 # 1/27 2DEC .003505277 B+1 # BMOD 2DEC .585365625 # BARG 2DEC .03125 B+1 # 1/32 2DEC .005325277 B+1 # CMOD 2DEC -.01106341036 # CARG 2DEC .002737925 B+1 # 1/365
# ********************************************************************************
SETLOC PLANTIN2 BANK COUNT* $$/LUROT
COSI 2DEC .99964173 B-1 # COS (5521.5 SEC.) B-1SINI 2DEC .02676579 B-1 # SIN (5521.5 SEC.) B-1NODDOT 2DEC -.457335121 E-2 # REV/CSEC B+28 = -1.07047011 E-8 RAD/SECFDOT 2DEC .570863327 # REV/CSEC B+27 = 2.67240410 E-6 RAD/SEC# Page 53BDOT 2DEC -3.07500686 E-8 # REV/CSEC B+28 = -7.19757301 E-14 RAD/SECNODIO 2DEC .986209434 # REVS B-D = 6.19653663041 RADFSUBO 2DEC .829090536 # REVS B-D = 5.20932947829 RADBSUBO 2DEC .0651201393 # REVS B-D = 0.40916190299 RADWEARTH 2DEC .973561595 # REV/CSEC B+23 = 7.29211494 E-5 RAD/SEC