Trim whitespace
This commit is contained in:
James Harris
@ -9,7 +9,7 @@
|
||||
# Pages: 1262-1308
|
||||
# Mod history: 2009-05-08 RSB Adapted from the Colossus249/ file of the
|
||||
# same name, using Comanche055 page images.
|
||||
# 2009-05-20 RSB Corrected: Fixed four interpreter
|
||||
# 2009-05-20 RSB Corrected: Fixed four interpreter
|
||||
# instructions.
|
||||
#
|
||||
# This source code has been transcribed or otherwise adapted from digitized
|
||||
@ -18,13 +18,13 @@
|
||||
# thanks to both. The images (with suitable reduction in storage size and
|
||||
# consequent reduction in image quality as well) are available online at
|
||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||
# illegible, contact me at info@sandroid.org about getting access to the
|
||||
# illegible, contact me at info@sandroid.org about getting access to the
|
||||
# (much) higher-quality images which Paul actually created.
|
||||
#
|
||||
# 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
|
||||
@ -77,7 +77,7 @@
|
||||
# IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
|
||||
# EXTRAPOLATING THE POSITION BACKWARD IN TIME.
|
||||
#
|
||||
# IF THE ABSOLUTE VALUE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
|
||||
# IF THE ABSOLUTE VALUE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
|
||||
# MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL.
|
||||
#
|
||||
# THE RESTRICTIONS ARE --
|
||||
@ -581,7 +581,7 @@
|
||||
BANK
|
||||
|
||||
COUNT 12/CONIC
|
||||
|
||||
|
||||
EBANK= UR1
|
||||
KEPLERN SETPD BOV
|
||||
0
|
||||
@ -602,7 +602,7 @@ KEPLERN SETPD BOV
|
||||
DMP SL1R
|
||||
1/ROOTMU # 1/ROOTMU (-17 OR -14)
|
||||
STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
|
||||
|
||||
|
||||
VRECT
|
||||
VSQ DMPR
|
||||
1/MU # 1/MU (-34 OR -28)
|
||||
@ -632,25 +632,25 @@ KEPLERN SETPD BOV
|
||||
BOV
|
||||
STOREMAX
|
||||
STOREMAX STORE XMAX
|
||||
DMP PDDL
|
||||
DMP PDDL
|
||||
1/ROOTMU
|
||||
ALPHA
|
||||
NORM PDDL
|
||||
NORM PDDL
|
||||
X1
|
||||
SL* DDV
|
||||
SL* DDV
|
||||
0 -6,1
|
||||
BOV BMN
|
||||
MODDONE
|
||||
MODDONE # MPAC=PERIOD
|
||||
PERIODCH PDDL ABS # 0D=PERIOD
|
||||
TAU.
|
||||
TAU.
|
||||
DSU BMN
|
||||
0D
|
||||
MODDONE
|
||||
SIGN
|
||||
TAU.
|
||||
STODL TAU.
|
||||
GOTO
|
||||
GOTO
|
||||
PERIODCH
|
||||
MODDONE SETPD DLOAD
|
||||
0
|
||||
@ -675,7 +675,7 @@ STORBNDS DLOAD BPL
|
||||
DXCOMP
|
||||
STOREMIN DLOAD
|
||||
KEPZERO
|
||||
STORE XMIN
|
||||
STORE XMIN
|
||||
DXCOMP DLOAD DMPR
|
||||
# Page 1279
|
||||
TAU.
|
||||
@ -727,7 +727,7 @@ KEPLOOP DLOAD DSQ
|
||||
NDXCHNGE
|
||||
NDXCHNGE
|
||||
DLOAD GOTO
|
||||
# Page 1280
|
||||
# Page 1280
|
||||
0D
|
||||
NEWDELX
|
||||
|
||||
@ -770,11 +770,11 @@ PDXCHNGE DLOAD DSU
|
||||
|
||||
BADX DLOAD SR1
|
||||
XMAX
|
||||
SIGN
|
||||
SIGN
|
||||
TAU.
|
||||
STCALL X
|
||||
STORBNDS
|
||||
# Page 1281
|
||||
# Page 1281
|
||||
TIMEOVFL DLOAD BMN # X WAS TOO BIG
|
||||
X
|
||||
NEGTOVFL
|
||||
@ -852,25 +852,25 @@ DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
|
||||
TC POLY
|
||||
DEC 8
|
||||
2DEC .083333334
|
||||
|
||||
|
||||
2DEC -.266666684
|
||||
|
||||
|
||||
2DEC .406349155
|
||||
|
||||
|
||||
2DEC -.361198675
|
||||
|
||||
|
||||
2DEC .210153242
|
||||
|
||||
|
||||
2DEC -.086221951
|
||||
|
||||
|
||||
2DEC .026268812
|
||||
|
||||
|
||||
2DEC -.006163316
|
||||
|
||||
|
||||
2DEC .001177342
|
||||
|
||||
|
||||
2DEC -.000199055
|
||||
|
||||
|
||||
TC INTPRET
|
||||
STODL S(XI)
|
||||
XI
|
||||
@ -878,25 +878,25 @@ DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
|
||||
TC POLY
|
||||
DEC 8
|
||||
2DEC .031250001
|
||||
|
||||
|
||||
2DEC -.166666719
|
||||
|
||||
|
||||
2DEC .355555413
|
||||
|
||||
|
||||
2DEC -.406347410
|
||||
|
||||
|
||||
2DEC .288962094
|
||||
|
||||
|
||||
2DEC -.140117894
|
||||
|
||||
|
||||
2DEC .049247387
|
||||
|
||||
|
||||
2DEC -.013081923
|
||||
|
||||
|
||||
2DEC .002806389
|
||||
|
||||
|
||||
2DEC -.000529414
|
||||
|
||||
|
||||
TC INTPRET
|
||||
# Page 1284
|
||||
DMP SRR* # PL AT 0
|
||||
@ -1107,7 +1107,7 @@ COGLOLIM 2DEC -.999511597
|
||||
BANK
|
||||
|
||||
COUNT 12/CONIC
|
||||
|
||||
|
||||
TIMETHET STQ SETPD # PL AT 0
|
||||
RTNTT
|
||||
0
|
||||
@ -1152,10 +1152,10 @@ PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
|
||||
37777 # GAMMA ALWAYS LESS THAN 180DEG
|
||||
GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
|
||||
STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
|
||||
# Page 1290
|
||||
# Page 1290
|
||||
SR DDV
|
||||
5
|
||||
|
||||
|
||||
36D
|
||||
STOVL* COGA
|
||||
MUTABLE,1
|
||||
@ -1220,7 +1220,7 @@ HAVENORM ABVAL SIGN
|
||||
BANK
|
||||
|
||||
COUNT 12/CONIC
|
||||
|
||||
|
||||
GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
|
||||
3
|
||||
S2
|
||||
@ -1268,17 +1268,17 @@ POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
|
||||
TC POLY
|
||||
DEC 5
|
||||
2DEC .5
|
||||
|
||||
|
||||
2DEC -.166666770
|
||||
|
||||
|
||||
2DEC .100000392
|
||||
|
||||
|
||||
2DEC -.071401086
|
||||
|
||||
|
||||
2DEC .055503292
|
||||
|
||||
|
||||
2DEC -.047264098
|
||||
|
||||
|
||||
2DEC .040694204
|
||||
|
||||
TC INTPRET
|
||||
@ -1292,7 +1292,7 @@ XCOMMON DSQ NORM
|
||||
R1A
|
||||
0 -12D,1
|
||||
STODL XI # XI (+6)
|
||||
|
||||
|
||||
R1
|
||||
SR1 SQRT
|
||||
ROUND DMP
|
||||
@ -1486,7 +1486,7 @@ LAMBLOOP DMP
|
||||
0 -8D,1
|
||||
D1/32
|
||||
STODL R1A # R1A=2-P(1+COGA COGA) (+6)
|
||||
|
||||
|
||||
P
|
||||
BOV CALL
|
||||
HIENERGY
|
||||
@ -1558,7 +1558,7 @@ SUFFCHEK DLOAD ABS
|
||||
INITV
|
||||
SOLNSW
|
||||
RTNLAMB
|
||||
|
||||
|
||||
360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
|
||||
0
|
||||
SOLNSW
|
||||
@ -1579,7 +1579,7 @@ NOGUESS SSP DLOAD
|
||||
LOLIM DLOAD GOTO
|
||||
COGLOLIM # COGLOLIM=-.999511597
|
||||
MINCOGA
|
||||
|
||||
|
||||
INITV DLOAD NORM
|
||||
R1
|
||||
X1
|
||||
@ -1619,7 +1619,7 @@ TARGETV DLOAD CALL
|
||||
TIMERAD STQ SETPD # PL AT 0
|
||||
RTNTR
|
||||
0
|
||||
BOV
|
||||
BOV
|
||||
+1
|
||||
VLOAD PDVL # PL AT 6
|
||||
RVEC
|
||||
@ -1663,7 +1663,7 @@ TIMERAD STQ SETPD # PL AT 0
|
||||
BADR2
|
||||
SQRT SIGN
|
||||
SGNRDOT
|
||||
CLEAR
|
||||
CLEAR
|
||||
APSESW
|
||||
|
||||
# Page 1302
|
||||
@ -1755,23 +1755,23 @@ ABTCONIC EXIT
|
||||
# Page 1305
|
||||
SETLOC CONICS1
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 04/CONIC
|
||||
|
||||
|
||||
MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
|
||||
|
||||
2DEC* .25087606 E-10 B+34* # 1/MUE
|
||||
|
||||
|
||||
2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
|
||||
|
||||
|
||||
2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
|
||||
|
||||
|
||||
2DEC 4.902778 E8 B-30 # MUM
|
||||
|
||||
|
||||
2DEC .203966 E-8 B+28 # 1/MUM
|
||||
|
||||
|
||||
2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
|
||||
|
||||
|
||||
2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
|
||||
|
||||
LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
|
||||
|
||||
Reference in New Issue
Block a user