Trim whitespace
This commit is contained in:
James Harris
@ -11,7 +11,7 @@
|
||||
# of the same name, using Comanche055 page
|
||||
# images.
|
||||
# 2009-05-20 RSB Added missing label V2T179. Fixed POODOO -> P00DOO.
|
||||
# 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to
|
||||
# 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to
|
||||
# STODL DELVLVC and a STODL 02D to STORE 02D.
|
||||
#
|
||||
# This source code has been transcribed or otherwise adapted from digitized
|
||||
@ -26,7 +26,7 @@
|
||||
# Notations on the hardcopy document read, in part:
|
||||
#
|
||||
# Assemble revision 055 of AGC program Comanche by NASA
|
||||
# 2021113-051. 10:28 APR. 1, 1969
|
||||
# 2021113-051. 10:28 APR. 1, 1969
|
||||
#
|
||||
# This AGC program shall also be referred to as
|
||||
# Colossus 2A
|
||||
@ -35,10 +35,10 @@
|
||||
BANK 31
|
||||
SETLOC RTE1
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= RTEDVD
|
||||
COUNT 31/P37
|
||||
|
||||
|
||||
# PROGRAM DESCRIPTION: P37, RETURN TO EARTH
|
||||
#
|
||||
# DESCRIPTION
|
||||
@ -219,7 +219,7 @@ RTE369 VLOAD ABVAL
|
||||
2DEC -4.8760771 E-2 B4
|
||||
2DEC 4.5419476 E-4 B11
|
||||
2DEC -1.4317675 E-6 B18
|
||||
|
||||
|
||||
TC INTPRET
|
||||
DAD
|
||||
RTED1
|
||||
@ -312,7 +312,7 @@ RTEALRM CALL
|
||||
P370ALRM
|
||||
EXIT
|
||||
TCF P37 # RECYCLE AFTER ALARM DISPLAY
|
||||
|
||||
|
||||
# RETURN TO EARTH DISPLAY SUBROUTINE
|
||||
|
||||
RTEVN STQ CALL
|
||||
@ -338,7 +338,7 @@ RTEVN STQ CALL
|
||||
TCR INTPRET
|
||||
GOTO
|
||||
VNSTORE
|
||||
|
||||
|
||||
# PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
|
||||
|
||||
P37G CALL
|
||||
@ -453,7 +453,7 @@ P37W CLEAR CLEAR
|
||||
VN1645
|
||||
GOTO
|
||||
P37W
|
||||
|
||||
|
||||
# SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
|
||||
|
||||
P37GFRB1 EXTEND
|
||||
@ -464,7 +464,7 @@ P37GFRB1 EXTEND
|
||||
TCF ENDOFJOB
|
||||
TC SPRTEX # RECYCLE
|
||||
TCF P37PROC # PROCEED
|
||||
|
||||
|
||||
# SUBROUTINE TO GO TO GOFLASHR
|
||||
|
||||
P370GOFR EXTEND
|
||||
@ -479,7 +479,7 @@ P370GOFR EXTEND
|
||||
TCF 0 +4
|
||||
INDEX RTENCKEX # RECYCLE
|
||||
TCF 0 +3
|
||||
|
||||
|
||||
# SUBROUTINE TO GO TO GOFLASH
|
||||
|
||||
# Page 899
|
||||
@ -502,7 +502,7 @@ V6N81RTE VN 0681
|
||||
SETLOC RTE
|
||||
BANK
|
||||
COUNT 32/RTE
|
||||
|
||||
|
||||
# Page 900
|
||||
# ALARM DISPLAY SUBROUTINE
|
||||
|
||||
@ -595,7 +595,7 @@ RTEDISP STQ VLOAD # DISPLAY
|
||||
36D
|
||||
STODL VPRED # V(T2)
|
||||
T2
|
||||
DSU
|
||||
DSU
|
||||
SPRTETIG
|
||||
STOVL T3TOT4 # T21
|
||||
R(T2)/
|
||||
@ -877,10 +877,10 @@ PREC125 CALL
|
||||
X(T2)
|
||||
ABS DSU
|
||||
EPC4RTE
|
||||
BOV BMN
|
||||
BOV BMN
|
||||
PREC130
|
||||
PREC175
|
||||
|
||||
|
||||
# DESIRED REENTRY ANGLE NOT ACHIEVED
|
||||
|
||||
# Page 909
|
||||
@ -890,7 +890,7 @@ PREC130 DLOAD BMN
|
||||
PREC132 SLOAD GOTO # TOO MANY ITERATIONS
|
||||
OCT605 # EXIT WITH ALARM
|
||||
PRECX
|
||||
|
||||
|
||||
# DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
|
||||
|
||||
PREC140 DLOAD BZE
|
||||
@ -987,7 +987,7 @@ PREC170 DLOAD DAD
|
||||
0 -3,1
|
||||
# Page 911
|
||||
PUSH BMN # BETA13=(DT21)/(DT21PR) R3 PL04D
|
||||
PREC172
|
||||
PREC172
|
||||
DLOAD PDDL # BETA14=1 B0 PL04D
|
||||
2RTEB1
|
||||
GOTO
|
||||
@ -999,7 +999,7 @@ PREC173 DDV DSU
|
||||
1RTEB3
|
||||
BMN DLOAD
|
||||
PREC174
|
||||
DMP
|
||||
DMP
|
||||
DT21PR
|
||||
STORE 00D # DT21=(BETA14)DT21PR B28
|
||||
PREC174 DLOAD PUSH
|
||||
@ -1015,7 +1015,7 @@ PREC175 DLOAD DSU
|
||||
DSU BMN
|
||||
EPC7RTE
|
||||
PREC220
|
||||
|
||||
|
||||
# DESIRED RADIUS HAS NOT BEEN ACHIEVED
|
||||
|
||||
DLOAD BZE
|
||||
@ -1077,7 +1077,7 @@ PREC210 DLOAD # PREPARE FOR NEXT ITERATION
|
||||
BHIZ GOTO
|
||||
PREC120
|
||||
PRECX
|
||||
|
||||
|
||||
# DESIRED RADIUS ACHIEVED
|
||||
|
||||
SETLOC RTE2
|
||||
@ -1106,7 +1106,7 @@ PREC225 DLOAD
|
||||
ZERORTE
|
||||
PRECX GOTO
|
||||
SPRTEX
|
||||
|
||||
|
||||
# Page 914
|
||||
# INTEGRATION CALLING SUBROUTINE
|
||||
#
|
||||
@ -1179,7 +1179,7 @@ RTENCK1 STQ CALL
|
||||
INTYPFLG
|
||||
GOTO
|
||||
RTENCK3B
|
||||
|
||||
|
||||
RTENCK2 STQ CALL
|
||||
RTENCKEX
|
||||
INTSTALL
|
||||
@ -1194,7 +1194,7 @@ RTENCK2 STQ CALL
|
||||
DAD
|
||||
GOTO
|
||||
RTENCK3D
|
||||
|
||||
|
||||
RTENCK3 STQ CALL
|
||||
RTENCKEX
|
||||
INTSTALL
|
||||
@ -1367,7 +1367,7 @@ V2T101 SETPD CLEAR
|
||||
V2T102
|
||||
GOTO
|
||||
V2T110
|
||||
|
||||
|
||||
# PROCEED HERE IF NOT PRECISION COMPUTATION
|
||||
|
||||
V2T102 DLOAD
|
||||
@ -1462,7 +1462,7 @@ V2T150 CALL # GOTO X(T1)-DV ITERATOR
|
||||
DLOAD BZE # EXIT IF MINIMUM FUEL MODE
|
||||
RTEDVD
|
||||
V2T1X
|
||||
|
||||
|
||||
# CONTINUE IF TIME CRITICAL MODE
|
||||
|
||||
DSU BMN
|
||||
@ -1475,7 +1475,7 @@ V2T155 DLOAD BMN
|
||||
V2T160
|
||||
GOTO
|
||||
V2T185
|
||||
|
||||
|
||||
# CONIC TRAJECTORY COMPUTATION
|
||||
|
||||
V2T160 DLOAD BZE
|
||||
@ -1519,7 +1519,7 @@ V2T179 STCALL 16D # DX(T1)
|
||||
DLOAD BMN
|
||||
NN1A
|
||||
V2T300
|
||||
|
||||
|
||||
# PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
|
||||
# PRECISION TRAJECTORY
|
||||
|
||||
@ -1557,7 +1557,7 @@ V2T300 DLOAD
|
||||
ZERORTE
|
||||
V2T1X GOTO
|
||||
33D
|
||||
|
||||
|
||||
# Page 924
|
||||
# X(T1)-DV ITERATOR SUBROUTINE
|
||||
#
|
||||
@ -1679,7 +1679,7 @@ GAMDV32 DLOAD DCOMP
|
||||
GAMDV33 SETPD GOTO
|
||||
18D # PL18D
|
||||
GAMDV50
|
||||
|
||||
|
||||
# TIME CRITICAL MODE
|
||||
|
||||
GAMDV35 DLOAD DSU
|
||||
@ -1718,7 +1718,7 @@ GAMDV47 DLOAD SIGN
|
||||
12D
|
||||
16D
|
||||
STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
|
||||
|
||||
|
||||
# CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
|
||||
|
||||
GAMDV50 DLOAD DMP
|
||||
@ -1756,7 +1756,7 @@ GAMDV65 DLOAD ABS
|
||||
GAMDV25
|
||||
GAMDVX GOTO
|
||||
31D
|
||||
|
||||
|
||||
# Page 928
|
||||
# DV CALCULATION SUBROUTINE
|
||||
#
|
||||
@ -1879,18 +1879,18 @@ XT1LIM2 DLOAD # BETA10=POSMAX IF OVERFLOW
|
||||
2RTEB1
|
||||
XT1LIM3 SQRT GOTO # X(T1)=SQRT(BETA10)
|
||||
XT1LIMX
|
||||
XT1LIM5 DLOAD
|
||||
XT1LIM5 DLOAD
|
||||
ZERORTE
|
||||
XT1LIMX GOTO
|
||||
20D
|
||||
|
||||
|
||||
# Page 931
|
||||
# CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
|
||||
|
||||
BANK 36
|
||||
SETLOC RTECON1
|
||||
BANK
|
||||
|
||||
|
||||
1RTEB1 2DEC 1. B-1
|
||||
1RTEB2 2DEC 1. B-2
|
||||
1RTEB3 2DEC 1. B-3
|
||||
@ -1900,7 +1900,7 @@ XT1LIMX GOTO
|
||||
1RTEB13 2DEC 1. B-13
|
||||
1RTEB17 2DEC 1. B-17
|
||||
1RTEB25 2DEC 1. B-25
|
||||
# * * B25 AND B28 MUST BE CONSECUTIVE * *
|
||||
# * * B25 AND B28 MUST BE CONSECUTIVE * *
|
||||
1RTEB28 2DEC 1. B-28
|
||||
ZERORTE 2DEC 0
|
||||
M144RTE 2DEC -144. B-28
|
||||
@ -1938,7 +1938,7 @@ EPC10RTE 2DEC .0001 B-7
|
||||
BANK 35
|
||||
SETLOC RTECON1
|
||||
BANK
|
||||
|
||||
|
||||
C4RTE 2DEC -6.986643 E7 B-30
|
||||
K1RTE 2DEC 7. E6 B-29
|
||||
K2RTE 2DEC 6495000. B-29
|
||||
|
||||
Reference in New Issue
Block a user