From e346724c13d4d3a2d30c445648fc109a6b0e2270 Mon Sep 17 00:00:00 2001 From: Chyanne Haugen Date: Thu, 28 Oct 2021 18:57:22 -0700 Subject: [PATCH] pages 0692-0702 --- Luminary099/P34-35_P74-75.agc | 80 ++++++++++++++++++----------------- 1 file changed, 41 insertions(+), 39 deletions(-) diff --git a/Luminary099/P34-35_P74-75.agc b/Luminary099/P34-35_P74-75.agc index 06e4530..dc5a4f0 100644 --- a/Luminary099/P34-35_P74-75.agc +++ b/Luminary099/P34-35_P74-75.agc @@ -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