diff --git a/Luminary099/P34-35_P74-75.agc b/Luminary099/P34-35_P74-75.agc index cb8a0dcf9..dc5a4f0e1 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. @@ -1403,7 +1403,7 @@ INITVELX LXA,1 DLOAD* HALFREV 2DEC 1 B-1 -GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1) +GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1) UNIT DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE @@ -1415,7 +1415,7 @@ GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1) SETMGA STORE +MGA CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC MGLVFLAG # AND EXIT -GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITIZE UR +GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR RINIT VCOMP # U(-R) STORE 18D # U(-R) TO 18D @@ -1468,14 +1468,14 @@ RTRNMU STORE RTMU # Page 694 # ***** PERIAPO ***** # -# MOD NO -1 LOG SECTION -- P34-P35, P74-P75 -# MOD BY WHITE, P. DATE 18 JAN 68 +# MOD NO -1 LOG SECTION - P34-P35, P74-P75 +# MOD BY WHITE.P DATE 18JAN68 # # FUNCTIONAL DESCRIPTION # # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON -# TRAJECTORY AND THE PRIMARY BODY. +# THE TRAJECTORY AND THE PRIMARY BODY. # # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY. # @@ -1486,31 +1486,31 @@ RTRNMU STORE RTMU # # L CALL # L+1 PERIAPO -# L+2 (RETURN -- ALWAYS) +# L+2 (RETURN - ALWAYS) # # INPUT # # (1) RVEC POSITION VECTOR IN METERS -# SCALE FACTOR -- EARTH +29, MOON +27 +# SCALE FACTOR - EARTH +29, MOON +27 # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND -# SCALE FACTOR -- EARTH +7, MOON +5 +# SCALE FACTOR - EARTH +7, MOON +5 # (3) X1 PRIMARY BODY INDICATOR # EARTH -1, MOON -10 # # OUTPUT # # (1) 2D APOCENTER RADIUS IN METERS -# SCALE FACTOR -- EARTH +29, MOON +27 +# SCALE FACTOR - EARTH +29, MOON +27 # (2) 4D APOCENTER ALTITUDE IN METERS -# SCALE FACTOR -- EARTH +29, MOON +27 +# SCALE FACTOR - EARTH +29, MOON +27 # (3) 6D PERICENTER RADIUS IN METERS -# SCALE FACTOR -- EARTH +29, MOON +27 +# SCALE FACTOR - EARTH +29, MOON +27 # (4) 8D PERICENTER ALTITUDE IN METERS -# SCALE FACTOR -- EARTH +29, MOON +27 +# SCALE FACTOR - EARTH +29, MOON +27 # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY -# SCALE FACTOR -- +3 +# SCALE FACTOR - +3 # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS -# SCALE FACTOR -- EARTH +29, MOON +27 +# SCALE FACTOR - EARTH +29, MOON +27 # (7) PUSHLOC EQUALS 10D # # SUBROUTINES USED @@ -1524,7 +1524,7 @@ RTRNMU STORE RTMU COUNT* $$/PERAP -RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B. +RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B. # = 20 909 901.57 FT PERIAPO1 LXA,2 VSR* @@ -1620,44 +1620,45 @@ SHIFTR1 LXA,2 SL* # FUNCTIONAL DESCRIPTION # # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS -# OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY). +# OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY). # # CALLING SEQUENCE # -# ASTRONAUT REQUEST THROUGH DSKY V 90 E +# ASTRONAUT REQUEST THROUGH DSKY V 90 E # # SUBROUTINES CALLED # -# EXDSPRET -# GOMARKF -# CSMPREC -# LEMPREC -# SGNAGREE -# LOADTIME +# EXDSPRET +# GOMARKF +# CSMPREC +# LEMPREC +# SGNAGREE +# LOADTIME # # NORMAL EXIT MODES # -# ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E +# ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E # # ALARM OR ABORT EXIT MODES # -# NONE +# NONE # # OUTPUT # -# DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI +# DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI # -# DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE -# REGISTERS RANGE, RRATE, AND RTHETA RESPECTIVELY. +# DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE +# REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY. # # ERASABLE INITIALIZATION REQUIRED # -# CSM AND LEM STATE VECTORS +# CSM AND LEM STATE VECTORS # # DEBRIS # -# CENTRALS A,Q,L -# OTHER: THOSE USED BY THE ABOVE LISTED SUBROUTINES +# CENTRALS A,Q,L +# +# OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES BANK 20 SETLOC R36LM @@ -1690,8 +1691,9 @@ R36INT STCALL TDEC1 RATT # _ STORE RPASS36 # R UNIT PDVL # P + # _ VXV UNIT - STADR # _ + STADR STODL UNP36 # U TAT STCALL TDEC1 @@ -1712,9 +1714,9 @@ R36INT STCALL TDEC1 DOT SL1 UNP36 # . _ _ STOVL RRATE # Y = U . V - 06D # A + 06D # _ A _ # Page 702 - # _ _ + UNIT PUSH # U = UNIT ( R ) 18D VXV VXV # RA A 00D # _ _ _ _ @@ -1731,7 +1733,7 @@ R36INT STCALL TDEC1 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D 00D # PLANE SL1 ARCCOS # _ _ - STOVL RTHETA # PSI = ARCCOS(U . U ) + STOVL RTHETA # PSI = ARCCOS(U .U ) VXV DOT # A L 00D BPL DLOAD @@ -1745,15 +1747,15 @@ R36TAG2 DLOAD RTB SGNAGREE STORE DSPTEMX EXIT - CAF V06N90N # DISPLAY Y, YDOT, AND PSI. + CAF V06N90N # DISPLAY Y , YDOT , AND PSI. TC BANKCALL CADR GOMARKF TCF ENDEXT # TERMINATE - TCF ENDEXT # PROCEED, END OF PROGRAM - TCF R36 +3 # REDISPLAY OUTPUT + TCF ENDEXT # PROCEED , END OF PROGRAM + TCF R36 +3 # REDISPLAY OUTPUT LREGCHK XCH L EXTEND - BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME + BZF ENTTIM2 # L-REG ZERO ,SET TIME = PRESENT TIME XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME TCF ASTROTIM ENTTIM2 TC INTPRET