* STABLE_ORBIT Typo corrections * Apply suggestions from code review Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
parent
497aef4e51
commit
d1b3a2037c
@ -32,8 +32,8 @@
|
|||||||
# Page 723
|
# Page 723
|
||||||
# STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
|
# STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
|
||||||
#
|
#
|
||||||
# MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
|
# MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
|
||||||
# MOD BY RUDNICKI.S DATE 26JAN68
|
# MOD BY RUDNICKI.S DATE 25JAN68
|
||||||
#
|
#
|
||||||
# FUNCTIONAL DESCRIPTION
|
# FUNCTIONAL DESCRIPTION
|
||||||
#
|
#
|
||||||
@ -71,9 +71,9 @@
|
|||||||
# (C) OPTION EQUALS 2 FOR SOR
|
# (C) OPTION EQUALS 2 FOR SOR
|
||||||
# (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
|
# (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
|
||||||
# TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
|
# TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
|
||||||
# VELOCITY OF THE PASSIVE VEHICLE -- SAVED FROM
|
# VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
|
||||||
# SOI PHASE
|
# SOI PHASE
|
||||||
# (E) TINT TIME OF INTERCEPT (SOI) -- SAVED FROM SOI PHASE
|
# (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
|
||||||
#
|
#
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
#
|
#
|
||||||
@ -87,8 +87,8 @@
|
|||||||
# THE SOI (SOR) MANEUVER
|
# THE SOI (SOR) MANEUVER
|
||||||
# (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
|
# (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
|
||||||
# (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
|
# (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
|
||||||
# (8) DELTA VELOCITY AT SOI (AND SOR) -- LOCAL VERTICAL
|
# (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
|
||||||
# CORDINATES
|
# COORDINATES
|
||||||
#
|
#
|
||||||
# SUBROUTINE USED
|
# SUBROUTINE USED
|
||||||
#
|
#
|
||||||
@ -129,7 +129,7 @@ P78 TC BANKCALL
|
|||||||
TCF GOTOPOOH # TERMINATE
|
TCF GOTOPOOH # TERMINATE
|
||||||
TCF +5 # PROCEED
|
TCF +5 # PROCEED
|
||||||
TCF -5 # RECYCLE
|
TCF -5 # RECYCLE
|
||||||
CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
|
CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
|
||||||
TCR BLANKET
|
TCR BLANKET
|
||||||
# Page 725
|
# Page 725
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
@ -137,13 +137,13 @@ P78 TC BANKCALL
|
|||||||
TS OPTION1
|
TS OPTION1
|
||||||
CAF ONE
|
CAF ONE
|
||||||
TS OPTION2 # OPTION CODE IS SET TO 1
|
TS OPTION2 # OPTION CODE IS SET TO 1
|
||||||
CAF V04N06SR # DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
|
CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
|
||||||
TCR BANKCALL
|
TCR BANKCALL
|
||||||
CADR GOFLASHR
|
CADR GOFLASHR
|
||||||
TCF GOTOPOOH # TERMINATE
|
TCF GOTOPOOH # TERMINATE
|
||||||
TCF +5 # PROCEED
|
TCF +5 # PROCEED
|
||||||
TCF -5 # RECYCLE
|
TCF -5 # RECYCLE
|
||||||
CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
|
CAF BIT3 # IMMEDIATE RETURN - BLANK R3
|
||||||
TCR BLANKET
|
TCR BLANKET
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
@ -172,7 +172,7 @@ OPTN1 SET CLEAR # SOI
|
|||||||
TCF GOTOPOOH # TERMINATE
|
TCF GOTOPOOH # TERMINATE
|
||||||
TCF +5 # PROCEED
|
TCF +5 # PROCEED
|
||||||
TCF -5 # RECYCLE
|
TCF -5 # RECYCLE
|
||||||
CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3
|
CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
|
||||||
TCR BLANKET
|
TCR BLANKET
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
+5 EXTEND
|
+5 EXTEND
|
||||||
@ -215,7 +215,6 @@ JUNCTN2 DLOAD DSU
|
|||||||
STORE TARGTIME # TT = TI - DELTA T
|
STORE TARGTIME # TT = TI - DELTA T
|
||||||
|
|
||||||
# .... MAINRTNE ....
|
# .... MAINRTNE ....
|
||||||
#
|
|
||||||
# SUBROUTINES USED:
|
# SUBROUTINES USED:
|
||||||
#
|
#
|
||||||
# S3435.25
|
# S3435.25
|
||||||
@ -254,7 +253,7 @@ MAINRTN1 VLOAD ABVAL
|
|||||||
VPASS4
|
VPASS4
|
||||||
VSU ABVAL
|
VSU ABVAL
|
||||||
VTPRIME
|
VTPRIME
|
||||||
STOVL DELVTPF # DELTA V (FINAL) = V*T - VT
|
STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
|
||||||
RACT3
|
RACT3
|
||||||
PDVL CALL
|
PDVL CALL
|
||||||
VIPRIME
|
VIPRIME
|
||||||
@ -284,8 +283,8 @@ DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
|
|||||||
|
|
||||||
# STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
|
# STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
|
||||||
#
|
#
|
||||||
# MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
|
# MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
|
||||||
# MOD BY RUDNICKI, S DATE 25JAN68
|
# MOD BY RUDNICKI.S DATE 25JAN68
|
||||||
#
|
#
|
||||||
# Page 728
|
# Page 728
|
||||||
# FUNCTIONAL DESCRIPTION
|
# FUNCTIONAL DESCRIPTION
|
||||||
@ -304,8 +303,8 @@ DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
|
|||||||
#
|
#
|
||||||
# INPUT
|
# INPUT
|
||||||
#
|
#
|
||||||
# (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P38/P78
|
# (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
|
||||||
# (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT --
|
# (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
|
||||||
# SAVED FROM P38/P78
|
# SAVED FROM P38/P78
|
||||||
#
|
#
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
@ -355,7 +354,6 @@ P39/P79B RTB DAD
|
|||||||
MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
|
MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
|
||||||
|
|
||||||
# .... PREC/TT ....
|
# .... PREC/TT ....
|
||||||
#
|
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
#
|
#
|
||||||
# PRECSET
|
# PRECSET
|
||||||
@ -389,7 +387,6 @@ PREC/TT STQ DLOAD
|
|||||||
RTRN
|
RTRN
|
||||||
|
|
||||||
# .... INTRPVP ....
|
# .... INTRPVP ....
|
||||||
#
|
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
#
|
#
|
||||||
# CSMPREC
|
# CSMPREC
|
||||||
@ -410,7 +407,6 @@ OTHERV CALL
|
|||||||
RTRN
|
RTRN
|
||||||
|
|
||||||
# .... VNDSPLY ....
|
# .... VNDSPLY ....
|
||||||
#
|
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
#
|
#
|
||||||
# BANKCALL
|
# BANKCALL
|
||||||
@ -438,4 +434,3 @@ DECTWO OCT 2
|
|||||||
# *** END OF KISSING .050 ***
|
# *** END OF KISSING .050 ***
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user