Proof STABLE_ORBIT #640 (#674)

* STABLE_ORBIT Typo corrections

* Apply suggestions from code review

Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Sid 2020-06-10 01:52:13 +05:30 committed by GitHub
parent 497aef4e51
commit d1b3a2037c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

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