SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-13 16:24:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

finished pages 926-935

Browse source
This commit is contained in:
serialhex 2021-10-14 15:07:30 -04:00
parent 107832e82f
commit b355ecff9c
1 changed files with 28 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
Luminary099/P51-P53.agc
View file

@ -197,7 +197,7 @@ P52D CALL # READ VEHICLE ATTITUDE AND
TC BANKCALL # DISPLAY GIMBAL ANGLES
CADR GOFLASH
TC GOTOPOOH
TCF COARSTYP # V33 -- PROCEED, SEE IF GYRO TORQUE COARSE
TCF COARSTYP # V33-PROCEED, SEE IF GYRO TORQUE COARSE
P52H TC INTPRET
GOTO
P52D
@ -215,14 +215,14 @@ VB05N09 = V05N09
V06N34* VN 634
# Page 931
# CHECK FOR GYRO TORQUE COARSE ALIGNMENT
# CHECK FOR GRRO TORQUE COARSE ALIGNMENT
COARSTYP CAF OCT13
TC BANKCALL # DISPLAY V 50N25 WITH COARSE ALIGN OPTION
CADR GOPERF1
TCF GOTOPOOH # V34 -- TERMIN&OE
TCF REGCOARS # V33 -- NORMAL COARSE
TC INTPRET # V32 -- GYRO TORQUE COARSE
TCF GOTOPOOH # V34-TERMIN&OE
TCF REGCOARS # V33-NORMAL COARSE
TC INTPRET # V32-GYRO TORQUE COARSE
VLOAD MXV
XSMD # GET SM(DESIRED) WRT SM(PRESENT)
REFSMMAT
@ -264,7 +264,7 @@ P52LS SET CLEAR # GET LANDING SITE ORIENTATION
STCALL XSMD
LSORIENT
GOTO
P52D # NOW GO COMPUTE GIMBAL ANGLES.
P52D # NOW GO COMPUTE GIMBAL ANGLES
# Page 933
# SUBROUTINE TO CALCULATE AND DISPLAY THE LUNAR LANDING SITE
@ -289,9 +289,9 @@ N89DISP STQ
LSDISP CAF V06N89* # DISPLAY LAT,LONG/2,ALT
TC BANKCALL
CADR GOFLASH
TCF GOTOPOOH # V34 -- TERMINATE -- EXIT P57
TCF +2 # V33 -- PROCEED -- ACCEPT LS DATA
TCF LSDISP # V32 OR E -- LOOK AGAIN AND/OR LOAD NEW LS
TCF GOTOPOOH # V34-TERMINATE-EXIT P57
TCF +2 # V33-PROCEED- ACCEPT LS DATA
TCF LSDISP # V32 OR E- LOOK AGAIN AND/OR LOAD NEW LS
TC INTPRET
DLOAD SL1
@ -309,57 +309,53 @@ LSDISP CAF V06N89* # DISPLAY LAT,LONG/2,ALT
V06N89* VN 689
# Page 934
# NAME -- S50 ALIAS LOCSAM
# NAME -S50 ALIAS LOCSAM
# BY
# VINCENT
#
# FUNCTION -- COMPUTE INPUTS FOR PICAPAR AND PLANET
# FUNCTION - COMPUTE INPUTS FOR PICAPAR AND PLANET
#
# DEFINE
#
# U = UNIT( SUN WRT EARTH )
# U = UNIT( SUN WRT EARTH)
# ES
#
# U = UNIT( MOON WRT EARTH )
# U =UNIT( MOON WRT EARTH)
# EM
#
# R = POSITION VECTOR OF LEM
# R =POSITION VECTOR OF LEM
# L
#
# R = MEAN DISTANCE (384402KM) BETWEEN EARTH AND MOON
# R =MEAN DISTANCE (384402KM) BETWEEN EARTH AND MOON
# EM
#
# P = RATIO R /(DISTANCE SUN TO EARTH) > .00257125
# EM
# P =RATIO R /(DISTANCE SUN TO EARTH) >.00257125
# EM
#
# R = EQUATORIAL RADIUS (6378.166KM) OF EARTH
# R =EQUATORIAL RADIUSS (6378.166KM) OF EARTH
# E
#
# LOCSAM COMPUTES IN EARTH INFLUENCE
#
# VSUN = U
# ES
# VSUN = U
# ES
#
# VEARTH = -UNIT( R )
# L
#
# VMOON = UNIT(R .U - R )
# EM EM L
# VMOON = UNIT(R .U - R )
# EM EM L
#
# CSUN = COS 90
# CSUN = COS 90
#
# CEARTH = COS(5 + ARCSIN(R /MAG(R )))
# E L
#
# CMOON = COS 5
# CMOON = COS 5
#
# INPUT -- TIME IN MPAC
#
# OUTPUT -- LISTED ABOVE
#
# SUBROUTINES -- LSPOS, LEMPREC
#
# DEBRIS -- VAC AREA, TSIGHT
# INPUT - TIME IN MPAC
# OUTPUT - LISTED ABOVE
# SUBROUTINES -LSPOS,LEMPREC
# DEBRIS - VAC AREA ,TSIGHT
# Page 935
COUNT* $$/LOSAM