Trim whitespace
This commit is contained in:
@@ -7,8 +7,8 @@
|
||||
# Contact: Ron Burkey <info@sandroid.org>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 382-389
|
||||
# Mod history: 2009-05-17 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# Mod history: 2009-05-17 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
#
|
||||
# This source code has been transcribed or otherwise adapted from
|
||||
@@ -24,7 +24,7 @@
|
||||
# Notations on the hardcopy document read, in part:
|
||||
#
|
||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||
# 16:27 JULY 14, 1969
|
||||
# 16:27 JULY 14, 1969
|
||||
|
||||
# Page 382
|
||||
# PROGRAM -- IMU PERFORMANCE TESTS 4
|
||||
@@ -61,9 +61,9 @@
|
||||
SETLOC IMU4
|
||||
BANK
|
||||
COUNT* $$/P07
|
||||
|
||||
|
||||
EBANK= XSM
|
||||
|
||||
|
||||
ESTIMS INHINT
|
||||
CAE 1SECXT
|
||||
TC TWIDDLE
|
||||
@@ -91,11 +91,11 @@ ESTIMS INHINT
|
||||
TORQNDX
|
||||
DCOMP BMN
|
||||
VERTSKIP
|
||||
CALL
|
||||
CALL
|
||||
ERTHRVSE
|
||||
VERTSKIP EXIT
|
||||
TC SLEEPIE +1
|
||||
|
||||
|
||||
# Page 384
|
||||
ALLOOP CA OVFLOWCK
|
||||
EXTEND
|
||||
@@ -130,9 +130,9 @@ SPECSTS CAF PRIO20
|
||||
TC FINDVAC
|
||||
EBANK= XSM
|
||||
2CADR ALFLT # START THE JOB
|
||||
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
|
||||
# Page 385
|
||||
ALFLT CCS GEOCOMPS
|
||||
TC +2
|
||||
@@ -151,13 +151,13 @@ NORMLOP TC INTPRET
|
||||
STODL DPIPAY
|
||||
MPAC +5
|
||||
STORE DPIPAZ
|
||||
|
||||
|
||||
SETPD AXT,1
|
||||
0
|
||||
8D
|
||||
SLOAD DCOMP
|
||||
GEOCOMPS
|
||||
BMN
|
||||
BMN
|
||||
PERFERAS
|
||||
ALCGKK SLOAD BMN
|
||||
ALTIMS
|
||||
@@ -172,7 +172,7 @@ ALKCG2 DLOAD* INCR,1
|
||||
TIX,2 SXA,1
|
||||
ALKCG2
|
||||
ALX1S
|
||||
|
||||
|
||||
ALFLT3 AXT,1
|
||||
8D
|
||||
DELMLP DLOAD* DMP
|
||||
@@ -226,7 +226,7 @@ ALKLP LXC,1 SXA,1
|
||||
TIX,2 AXT,1
|
||||
ALKLP
|
||||
8D
|
||||
|
||||
|
||||
LOOSE DLOAD* PDDL*
|
||||
ACCWD +8D,1
|
||||
VLAUN +8D,1
|
||||
@@ -246,7 +246,7 @@ LOOSE DLOAD* PDDL*
|
||||
STORE ACCWD +8D,1
|
||||
TIX,1
|
||||
LOOSE
|
||||
|
||||
|
||||
AXT,2 AXT,1 # EVALUATE SINES AND COSINES
|
||||
6
|
||||
2
|
||||
@@ -263,13 +263,13 @@ BOOP DLOAD* DMPR
|
||||
STORE 22D,2 # COSINES
|
||||
TIX,2
|
||||
BOOP
|
||||
|
||||
|
||||
PERFERAS EXIT
|
||||
CA EBANK7
|
||||
TS EBANK
|
||||
EBANK= ATIGINC
|
||||
TC ATIGINC # GOTO ERASABLE TO CALCULATE ONLY TO RETN
|
||||
|
||||
|
||||
# CAUTION
|
||||
#
|
||||
# THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED
|
||||
@@ -283,7 +283,7 @@ PERFERAS EXIT
|
||||
TC SETUPER1
|
||||
CA CDUX
|
||||
TS LOSVEC +1 # FOR TROUBLESHOOTING VD POSNS 2$4
|
||||
|
||||
|
||||
# Page 388
|
||||
SETUPER1 TC INTPRET
|
||||
DLOAD PDDL # ANGLES FROM DRIFT TEST ONLY
|
||||
@@ -297,7 +297,7 @@ SETUPER1 TC INTPRET
|
||||
XSM
|
||||
STORE OGC
|
||||
EXIT
|
||||
|
||||
|
||||
CA OGCPL
|
||||
TC BANKCALL
|
||||
CADR IMUPULSE
|
||||
@@ -309,12 +309,12 @@ GEOSTRT4 CCS TORQNDX # ONLY POSITIVE IF IN VERTICAL DRIFT TEST
|
||||
ERTHRVSE
|
||||
EXIT
|
||||
TC TORQUE
|
||||
|
||||
|
||||
SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGTHOT
|
||||
CCS TORQNDX # ARE WE DOING VERTDRIFT
|
||||
TC EARTHR*
|
||||
TC ENDOFJOB
|
||||
|
||||
|
||||
SOMEERRR CA EBANK5
|
||||
TS EBANK
|
||||
CA ONE
|
||||
@@ -327,17 +327,17 @@ SOMERR2 CAF OCT1601
|
||||
TC DOWNFLAG
|
||||
ADRES IMUSE
|
||||
TC ENDOFJOB
|
||||
|
||||
|
||||
OCT1601 OCT 01601
|
||||
DEC585 OCT 06200 # 3200 B+14 ORDER IS IMPORTANT
|
||||
SCHZEROS 2DEC .00000000
|
||||
# Page 389
|
||||
2DEC .00000000
|
||||
|
||||
|
||||
OCT 00000
|
||||
ONEDPP OCT 00000 # ORDER IS IMPORTANT
|
||||
OCT 00001
|
||||
|
||||
|
||||
INTVAL OCT 4
|
||||
OCT 2
|
||||
DEC 144
|
||||
@@ -345,7 +345,7 @@ INTVAL OCT 4
|
||||
SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
|
||||
|
||||
2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
|
||||
|
||||
|
||||
77DECML DEC 77
|
||||
ALXXXZ GENADR ALX1S -1
|
||||
PIPASC 2DEC .13055869
|
||||
@@ -355,7 +355,7 @@ VELSC 2DEC -.52223476 # 512/980.402
|
||||
ALSK 2DEC .17329931 # SSWAY VEL GAIN X 980.402/4096
|
||||
|
||||
2DEC -.00835370 # SSWAY ACCEL GAIN X 980.402/4096
|
||||
|
||||
|
||||
GEORGEJ 2DEC .63661977
|
||||
|
||||
GEORGEK 2DEC .59737013
|
||||
|
Reference in New Issue
Block a user