SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-13 16:24:37 +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

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

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