diff --git a/Luminary099/P51-P53.agc b/Luminary099/P51-P53.agc index c0a738d..1653b9e 100644 --- a/Luminary099/P51-P53.agc +++ b/Luminary099/P51-P53.agc @@ -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