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 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

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

@ -961,7 +961,7 @@ 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
@ -969,7 +969,7 @@ KILCLOCK CA Z
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
@ -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
@ -1088,7 +1088,7 @@ EPSFOUR 2DEC .0416666666
#
# L CALL
# L+1 INITVEL
# L+2 (RETURN -- ALWAYS)
# L+2 (RETURN - ALWAYS)
#
# INPUT
#
@ -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
@ -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
@ -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)
@ -1366,7 +1366,7 @@ INITVELX LXA,1 DLOAD*
#
# 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
@ -1377,21 +1377,21 @@ INITVELX LXA,1 DLOAD*
#
# +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.