pages 0692-0702
Chyanne Haugen
parent
35f3495c34
commit
e346724c13
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue