Skip to content

Proof P34-35_P74-75 #615 (pg: 0680-0691) #842

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
crhaugen wants to merge 9 commits into
base: master
Choose a base branch
from
Open

Proof P34-35_P74-75 #615 (pg: 0680-0691) #842

Changes from all commits
Commits
Show all changes
9 commits
Select commit Hold shift + click to select a range
b4ed0f9
Poof read and fixed minor typos
crhaugen Oct 5, 2020
aeaf66d
Poof read
crhaugen Oct 9, 2020
13e072e
updating in other branch
crhaugen Oct 9, 2020
7425246
Merge branch 'master' of https://github.com/crhaugen/Apollo-11
crhaugen Oct 9, 2020
d1683c4
updating in other branch
crhaugen Oct 9, 2020
35b8b18
updating in other branch
crhaugen Oct 9, 2020
309ad06
Review changes
wopian Oct 13, 2020
0ffa756
Merge branch 'chrislgarry:master' into master
crhaugen Oct 17, 2021
35f3495
pages 0680-0691
crhaugen Oct 29, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
54 changes: 27 additions & 27 deletions Luminary099/P34-35_P74-75.agc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -961,15 +961,15 @@ GET45 EXIT
CADR GOFLASH
TC KILCLOCK # TERMINATE
TC N45PROC # PROCEED
TC CLUPDATE # RECYCLE -- RETURN FOR INITIAL COMPUTATION
TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
KILCLOCK CA Z
TS DISPDEX
# Page 681
TC GOTOPOOH
N45PROC CS FLAGWRD2
MASK BIT6
EXTEND
BZF KILCLOCK # FINALFLG IS SET -- FLASH V37 -- AWAIT NEW PGM
BZF KILCLOCK # FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
TC PHASCHNG
OCT 04024
TC UPFLAG # SET
Expand Down Expand Up @@ -1055,13 +1055,13 @@ EPSFOUR 2DEC .0416666666
# Page 685
# ***** INITVEL *****

# MOD NO -1 LOG SECTION -- P34-P35, P74-P75
# MOD BY WHITE, P. DATE: 21 NOV 67
# MOD NO -1 LOG SECTION - P34-P35, P74-P75
# MOD BY WHITE.P DATE 21NOV67
#
# FUNCTIONAL
# FUNCTIONAL DESCRIPTION
#
# 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
# PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
# OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
Expand All @@ -1088,7 +1088,7 @@ EPSFOUR 2DEC .0416666666
#
# L CALL
# L+1 INITVEL
# L+2 (RETURN -- ALWAYS)
# L+2 (RETURN - ALWAYS)
#
# INPUT
#
Expand All @@ -1100,7 +1100,7 @@ EPSFOUR 2DEC .0416666666
# (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
# (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
# (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
#
# Page 686
Expand Down Expand Up @@ -1148,8 +1148,8 @@ HAVEGUES VLOAD STQ

INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
ITCTR
0 -1
COSINE SR1 # CALCULATE COSINE (E4) (+2)
0 -1
COSINE SR1 # CALCULATE COSINE (E4) (+2)
STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
LXA,2 SXA,2
MPAC
Expand All @@ -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)
STOVL UN
RTARG1
UNIT DOT # TEMP*RT.URI (+2) (PL 0D)
UNIT DOT # TEMP*URT.URI (+2) (PL 0D)
DAD CLEAR
COZY4
NORMSW
Expand All @@ -1179,7 +1179,7 @@ INITVEL2 BPL SET
INITVEL3 # UN CALCULATED IN LAMBERT
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)
R2VEC # RC TO 6D (+29)
Expand Down Expand Up @@ -1216,14 +1216,14 @@ INITVEL3 DLOAD PDVL # (PL 2D)
INCR,1 SLOAD
10D
X1
BHIZ VLOAD # (PL 14D)
BHIZ VLOAD # (PL14D)
+2
VCOMP PUSH # (PL 20D)
VLOAD # (PL 14D)
VXV DOT # (PL 2D)
BPL DLOAD # (PL 0D)
VCOMP PUSH # (PL20D)
VLOAD # (PL14D)
VXV DOT # (PL 2D)
BPL DLOAD # (PL 0D)
INITVEL4
DCOMP PUSH # (PL 2D)
DCOMP PUSH # (PL 2D)
INITVEL4 LXA,2 SXA,2
0D
GEOMSGN
Expand Down Expand Up @@ -1354,44 +1354,44 @@ INITVELX LXA,1 DLOAD*
# ***** MIDGIM *****

# 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
# DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
# MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
# ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
#
# ** 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
# VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
# 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
#
# ** OUTPUTS **
#
# NAME MEANING UNITS/SCALING/MODE
# NAME MEANING UNITS/SCALING/MODE
#
# +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
# 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 **
#
# L CALL
# L+1 MIDGIM
# L+2 (RETURN -- ALWAYS)
# L+2 (RETURN - ALWAYS)
#
# ** NO SUBROUTINES CALLED **
#
# ** DEBRIS -- ERASABLE TEMPORARY USAGE **
# ** DEBRIS - ERASABLE TEMPORARY USAGE **
#
# A,Q,L, PUSH LIST, MPAC.
#
# ** ALARMS -- NONE **
# ** ALARMS - NONE **

# Page 692
# MIDDLE GIMBAL ANGLE COMPUTATION.
Expand Down