SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-15 17:14:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

pages 0692-0702

Browse source
This commit is contained in:
Chyanne Haugen 2021-10-28 18:57:22 -07:00
parent 35f3495c34
commit e346724c13
1 changed files with 41 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
Luminary099/P34-35_P74-75.agc
View file

@ -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
@ -1648,7 +1648,7 @@ SHIFTR1 LXA,2 SL*
# DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
#
# DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
# REGISTERS RANGE, RRATE, AND RTHETA RESPECTIVELY.
# REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
#
# ERASABLE INITIALIZATION REQUIRED
#
@ -1657,7 +1657,8 @@ SHIFTR1 LXA,2 SL*
# DEBRIS
#
# CENTRALS A,Q,L
# OTHER: THOSE USED BY THE ABOVE LISTED SUBROUTINES
#
# 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 # _ _ _ _