mirrors
/
Apollo-11
mirror of https://github.com/chrislgarry/Apollo-11.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

finished pages 926-935

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