diff --git a/Luminary099/P34-35_P74-75.agc b/Luminary099/P34-35_P74-75.agc index cb8a0dc..06e4530 100644 --- a/Luminary099/P34-35_P74-75.agc +++ b/Luminary099/P34-35_P74-75.agc @@ -961,7 +961,7 @@ GET45 EXIT CADR GOFLASH TC KILCLOCK # TERMINATE TC N45PROC # PROCEED - TC CLUPDATE # RECYCLE -- RETURN FOR INITIAL COMPUTATION + TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION KILCLOCK CA Z TS DISPDEX # Page 681 @@ -969,7 +969,7 @@ KILCLOCK CA Z N45PROC CS FLAGWRD2 MASK BIT6 EXTEND - BZF KILCLOCK # FINALFLG IS SET -- FLASH V37 -- AWAIT NEW PGM + BZF KILCLOCK # FINALFLG IS SET-FLASH V37-AWAIT NEW PGM TC PHASCHNG OCT 04024 TC UPFLAG # SET @@ -1055,13 +1055,13 @@ EPSFOUR 2DEC .0416666666 # Page 685 # ***** INITVEL ***** -# MOD NO -1 LOG SECTION -- P34-P35, P74-P75 -# MOD BY WHITE, P. DATE: 21 NOV 67 +# MOD NO -1 LOG SECTION - P34-P35, P74-P75 +# MOD BY WHITE.P DATE 21NOV67 # -# FUNCTIONAL +# FUNCTIONAL DESCRIPTION # # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR -# A TRAJECTORY OF SPECIFIC TRANSFER TIME BETWEEN SPECIFIED INITIAL +# A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE @@ -1088,7 +1088,7 @@ EPSFOUR 2DEC .0416666666 # # L CALL # L+1 INITVEL -# L+2 (RETURN -- ALWAYS) +# L+2 (RETURN - ALWAYS) # # INPUT # @@ -1100,7 +1100,7 @@ EPSFOUR 2DEC .0416666666 # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR -# (9) RTX2 COORDINATE SYSTEM ORIGIN -- 0 FOR EARTH, 2 FOR LUNAR +# (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR # PUSHLOC SET AT 4D # # Page 686 @@ -1148,8 +1148,8 @@ HAVEGUES VLOAD STQ INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D) ITCTR - 0 -1 - COSINE SR1 # CALCULATE COSINE (E4) (+2) + 0 -1 + COSINE SR1 # CALCULATE COSINE (E4) (+2) STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D) LXA,2 SXA,2 MPAC @@ -1170,7 +1170,7 @@ INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D) VINIT # MPAC EQ UNIT(RI) X VI (+8) STOVL UN RTARG1 - UNIT DOT # TEMP*RT.URI (+2) (PL 0D) + UNIT DOT # TEMP*URT.URI (+2) (PL 0D) DAD CLEAR COZY4 NORMSW @@ -1179,7 +1179,7 @@ INITVEL2 BPL SET INITVEL3 # UN CALCULATED IN LAMBERT NORMSW -# ROTATE RC INTO YC PLANE -- SET UNIT NORMAL TO YC +# ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC VLOAD PUSH # (PL 6D) R2VEC # RC TO 6D (+29) @@ -1216,14 +1216,14 @@ INITVEL3 DLOAD PDVL # (PL 2D) INCR,1 SLOAD 10D X1 - BHIZ VLOAD # (PL 14D) + BHIZ VLOAD # (PL14D) +2 - VCOMP PUSH # (PL 20D) - VLOAD # (PL 14D) - VXV DOT # (PL 2D) - BPL DLOAD # (PL 0D) + VCOMP PUSH # (PL20D) + VLOAD # (PL14D) + VXV DOT # (PL 2D) + BPL DLOAD # (PL 0D) INITVEL4 - DCOMP PUSH # (PL 2D) + DCOMP PUSH # (PL 2D) INITVEL4 LXA,2 SXA,2 0D GEOMSGN @@ -1354,9 +1354,9 @@ INITVELX LXA,1 DLOAD* # ***** MIDGIM ***** # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75 -# REVISION 03, 17 FEB 67 +# REVISION 03, 17 FEB 67 # -# IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES +# IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN- @@ -1364,34 +1364,34 @@ INITVELX LXA,1 DLOAD* # # ** INPUTS ** # -# NAME MEANING UNITS/SCALING/MODE +# NAME MEANING UNITS/SCALING/MODE # -# AVFLAG INT FLAG -- 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT +# AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT # # ** OUTPUTS ** # -# NAME MEANING UNITS/SCALING/MODE +# NAME MEANING UNITS/SCALING/MODE # # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT -# MGLVFLAG INT FLAG: 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. BIT +# MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT # # ** CALLING SEQUENCE ** # # L CALL # L+1 MIDGIM -# L+2 (RETURN -- ALWAYS) +# L+2 (RETURN - ALWAYS) # # ** NO SUBROUTINES CALLED ** # -# ** DEBRIS -- ERASABLE TEMPORARY USAGE ** +# ** DEBRIS - ERASABLE TEMPORARY USAGE ** # # A,Q,L, PUSH LIST, MPAC. # -# ** ALARMS -- NONE ** +# ** ALARMS - NONE ** # Page 692 # MIDDLE GIMBAL ANGLE COMPUTATION.