ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pages 0680-0691

Browse Source
This commit is contained in:
Chyanne Haugen 2021-10-28 18:16:06 -07:00
parent 0ffa756930
commit 35f3495c34
1 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
Luminary099/P34-35_P74-75.agc
View File

@ -961,7 +961,7 @@ GET45 EXIT
CADR GOFLASH CADR GOFLASH
TC KILCLOCK # TERMINATE TC KILCLOCK # TERMINATE
TC N45PROC # PROCEED TC N45PROC # PROCEED
TC CLUPDATE # RECYCLE -- RETURN FOR INITIAL COMPUTATION TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
KILCLOCK CA Z KILCLOCK CA Z
TS DISPDEX TS DISPDEX
# Page 681 # Page 681
@ -969,7 +969,7 @@ KILCLOCK CA Z
N45PROC CS FLAGWRD2 N45PROC CS FLAGWRD2
MASK BIT6 MASK BIT6
EXTEND EXTEND
BZF KILCLOCK # FINALFLG IS SET -- FLASH V37 -- AWAIT NEW PGM BZF KILCLOCK # FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
TC PHASCHNG TC PHASCHNG
OCT 04024 OCT 04024
TC UPFLAG # SET TC UPFLAG # SET
@ -1055,13 +1055,13 @@ EPSFOUR 2DEC .0416666666
# Page 685 # Page 685
# ***** INITVEL ***** # ***** INITVEL *****
# MOD NO -1 LOG SECTION -- P34-P35, P74-P75 # MOD NO -1 LOG SECTION - P34-P35, P74-P75
# MOD BY WHITE, P. DATE: 21 NOV 67 # MOD BY WHITE.P DATE 21NOV67
# #
# FUNCTIONAL # FUNCTIONAL DESCRIPTION
# #
# THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR # 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 # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
# PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
# OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
@ -1088,7 +1088,7 @@ EPSFOUR 2DEC .0416666666
# #
# L CALL # L CALL
# L+1 INITVEL # L+1 INITVEL
# L+2 (RETURN -- ALWAYS) # L+2 (RETURN - ALWAYS)
# #
# INPUT # INPUT
# #
@ -1100,7 +1100,7 @@ EPSFOUR 2DEC .0416666666
# (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
# (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
# (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR # (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 # PUSHLOC SET AT 4D
# #
# Page 686 # Page 686
@ -1148,8 +1148,8 @@ HAVEGUES VLOAD STQ
INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D) INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
ITCTR ITCTR
0 -1 0 -1
COSINE SR1 # CALCULATE COSINE (E4) (+2) COSINE SR1 # CALCULATE COSINE (E4) (+2)
STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D) STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
LXA,2 SXA,2 LXA,2 SXA,2
MPAC 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) VINIT # MPAC EQ UNIT(RI) X VI (+8)
STOVL UN STOVL UN
RTARG1 RTARG1
UNIT DOT # TEMP*RT.URI (+2) (PL 0D) UNIT DOT # TEMP*URT.URI (+2) (PL 0D)
DAD CLEAR DAD CLEAR
COZY4 COZY4
NORMSW NORMSW
@ -1179,7 +1179,7 @@ INITVEL2 BPL SET
INITVEL3 # UN CALCULATED IN LAMBERT INITVEL3 # UN CALCULATED IN LAMBERT
NORMSW 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) VLOAD PUSH # (PL 6D)
R2VEC # RC TO 6D (+29) R2VEC # RC TO 6D (+29)
@ -1216,14 +1216,14 @@ INITVEL3 DLOAD PDVL # (PL 2D)
INCR,1 SLOAD INCR,1 SLOAD
10D 10D
X1 X1
BHIZ VLOAD # (PL 14D) BHIZ VLOAD # (PL14D)
+2 +2
VCOMP PUSH # (PL 20D) VCOMP PUSH # (PL20D)
VLOAD # (PL 14D) VLOAD # (PL14D)
VXV DOT # (PL 2D) VXV DOT # (PL 2D)
BPL DLOAD # (PL 0D) BPL DLOAD # (PL 0D)
INITVEL4 INITVEL4
DCOMP PUSH # (PL 2D) DCOMP PUSH # (PL 2D)
INITVEL4 LXA,2 SXA,2 INITVEL4 LXA,2 SXA,2
0D 0D
GEOMSGN GEOMSGN
@ -1354,9 +1354,9 @@ INITVELX LXA,1 DLOAD*
# ***** MIDGIM ***** # ***** MIDGIM *****
# MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75 # 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 # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
# DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
# MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN- # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
@ -1364,34 +1364,34 @@ INITVELX LXA,1 DLOAD*
# #
# ** INPUTS ** # ** 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 # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
# VINIT ACTIVE VEHICLE VELOCITY 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 # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
# #
# ** OUTPUTS ** # ** OUTPUTS **
# #
# NAME MEANING UNITS/SCALING/MODE # NAME MEANING UNITS/SCALING/MODE
# #
# +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
# DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT # 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 ** # ** CALLING SEQUENCE **
# #
# L CALL # L CALL
# L+1 MIDGIM # L+1 MIDGIM
# L+2 (RETURN -- ALWAYS) # L+2 (RETURN - ALWAYS)
# #
# ** NO SUBROUTINES CALLED ** # ** NO SUBROUTINES CALLED **
# #
# ** DEBRIS -- ERASABLE TEMPORARY USAGE ** # ** DEBRIS - ERASABLE TEMPORARY USAGE **
# #
# A,Q,L, PUSH LIST, MPAC. # A,Q,L, PUSH LIST, MPAC.
# #
# ** ALARMS -- NONE ** # ** ALARMS - NONE **
# Page 692 # Page 692
# MIDDLE GIMBAL ANGLE COMPUTATION. # MIDDLE GIMBAL ANGLE COMPUTATION.