SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-18 18:00:29 +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 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
@ -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)
@ -1366,7 +1366,7 @@ INITVELX LXA,1 DLOAD*
# #
# 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
@ -1377,21 +1377,21 @@ INITVELX LXA,1 DLOAD*
# #
# +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.