pages 0680-0691
Chyanne Haugen
parent
0ffa756930
commit
35f3495c34
|
|
@ -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
|
||||
|
|
@ -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
|
||||
|
|
@ -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)
|
||||
|
|
@ -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
|
||||
|
|
@ -1354,9 +1354,9 @@ 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-
|
||||
|
|
@ -1364,34 +1364,34 @@ INITVELX LXA,1 DLOAD*
|
|||
#
|
||||
# ** 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.
|
||||
|
|
|
|||
Loading…
Reference in New Issue