ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Trim whitespace

Browse Source
This commit is contained in:
James Harris
2016-12-28 16:11:25 +00:00
parent 7c33b5996c
commit 4f3a1d4374
166 changed files with 5357 additions and 5357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Comanche055/TVCMASSPROP.agc
View File

@ -16,13 +16,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
@ -71,7 +71,7 @@
# (1) IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
# (2) IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
# (3) IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
#
#
# THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
# CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ)
# Page 952
@ -127,19 +127,19 @@
BANK
EBANK= BZERO
COUNT* $$/MASP
MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERRUPT TEMPS
TS PHI333 # SET UP TEN PASSES
LEMTEST CAE DAPDATR1 # DETERMINE LEM STATUS
MASK BIT13
EXTEND
BZF LEMYES
LEMNO INDEX PHI333 # LEM NOT ATTACHED
CAF NOLEMVAL
TCF STOINST
LEMYES CAE LEMMASS # LEM IS ATTACHED
DOUBLE
EXTEND
@ -148,12 +148,12 @@ LEMYES CAE LEMMASS # LEM IS ATTACHED
DDOUBL
INDEX PHI333
AD INTVALUE
STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
TS VARST0
CCS PHI333 # ARE ALL TEN PASSES COMPLETED
TCF MASSPROP +1 # NO: GO DECREMENT PHI333
DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
TCF FIXCW
TCF FIXCW
@ -161,11 +161,11 @@ DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
DAS VARST0 +1
CA DXITFIX
ADS VARST0 +7
FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
TS PHI333 # THREE PASSES
TS PSI333
CAE CSMMASS # GET DELTA CSM WEIGHT: SIGN DETERMINES
AD NEGBPW # SLOPE LOCATIONS.
DOUBLE
@ -175,7 +175,7 @@ FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
BZMF PEGGY # DETERMINE CORRECT SLOPE
CAF NEG2
TS PHI333
PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
CAE VARST5 # GET SLOPE
EXTEND
@ -185,10 +185,10 @@ PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
AD VARST0 # ADD BREAKPOINT VALUE
INDEX PSI333
TS IXX # ***** OUTPUTS (IXX0, IXX1, IXX2) *****
CCS PSI333 # BOOKKEEPING: MASSPROP FINISHED OR NOT
TCF BOKKEP2 # NO: GO TAKE CARE OF INDEXING REGISTERS
CAE DAPDATR1 # UPDATE WEIGHT/G
MASK BIT14
CCS A
@ -201,7 +201,7 @@ BOKKEP2 TS PSI333 # REDUCE PSI BY ONE
EXTEND
DIM PHI333
TCF PEGGY
# Page 955
NOLEMVAL DEC 25445 B-20
DEC 87450 B-20
@ -211,7 +211,7 @@ NOLEMVAL DEC 25445 B-20
DEC 1.54 B-6
DEC 7.77177 B-6
DEC 3.46458 E-5 B+12
INTVALUE DEC 26850 B-20
DEC 127518 B-20
DEC .54059 B-2
@ -222,7 +222,7 @@ INTVALUE DEC 26850 B-20
DEC .647625 E-4 B+12
DEC -27228 B-20
DEC -.206476 B-2
SLOPEVAL DEC 1.96307 B-6
DEC 27.5774 B-6
DEC 2.3548 E-5 B+12
@ -233,7 +233,7 @@ SLOPEVAL DEC 1.96307 B-6
DEC 1.5166 E-9 B+26
DEC -1.284 B-6
DEC 2 E-5 B+12
NEGBPW DEC -15402.17 B-16
DXITFIX DEC* -1.88275 E-5 B+12*