Trim whitespace
This commit is contained in:
James Harris
@ -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
|
||||
@ -31,7 +31,7 @@
|
||||
BANK 22
|
||||
SETLOC COMGEOM1
|
||||
BANK
|
||||
|
||||
|
||||
# THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT
|
||||
# VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WITH THE SEXTANT LINE OF SIGHT.
|
||||
#
|
||||
@ -43,7 +43,7 @@
|
||||
# OUTPUT IS ALSO AVAILABLE AT MPAC.
|
||||
|
||||
COUNT 23/GEOM
|
||||
|
||||
|
||||
SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
|
||||
5,1 # TRUNNION = TA
|
||||
CDULOGIC
|
||||
@ -54,15 +54,15 @@ SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
|
||||
3,1 # SHAFT = SA
|
||||
RTB PUSH # PD4 = SA
|
||||
CDULOGIC
|
||||
|
||||
|
||||
COS DMP
|
||||
2
|
||||
STODL STARM # COS(SA)SIN(TA)
|
||||
|
||||
|
||||
SIN DMP
|
||||
STADR
|
||||
STODL STARM +2 # SIN(SA)SIN(TA)
|
||||
|
||||
|
||||
COS
|
||||
STOVL STARM +4
|
||||
STARM # STARM = 32D
|
||||
@ -70,7 +70,7 @@ SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
|
||||
NB1NB2
|
||||
STORE 32D
|
||||
RVQ
|
||||
|
||||
|
||||
SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET
|
||||
ADS MPAC
|
||||
CAF QUARTER
|
||||
@ -133,11 +133,11 @@ SXTANG ITA RTB # PUSHDOWN 16D,18D,22D-26D,28D
|
||||
MXV VSL1
|
||||
NB2NB1
|
||||
STORE ZNB1
|
||||
|
||||
|
||||
RTB RTB
|
||||
TRANSP1
|
||||
TRANSP2
|
||||
|
||||
|
||||
SXTANG1 VLOAD VXV
|
||||
ZNB1
|
||||
STAR
|
||||
@ -146,12 +146,12 @@ SXTANG1 VLOAD VXV
|
||||
UNIT BOV
|
||||
ZNB=S1
|
||||
STORE PDA # PDA = UNIT(ZNB X S)
|
||||
|
||||
|
||||
DOT DCOMP
|
||||
XNB1
|
||||
STOVL SINTH # SIN(SA) = PDA . -XNB
|
||||
PDA
|
||||
|
||||
|
||||
DOT
|
||||
YNB1
|
||||
STCALL COSTH # COS(SA) = PDA . YNB
|
||||
@ -185,7 +185,7 @@ ZNB=S1 DLOAD
|
||||
STODL SAC
|
||||
20DEGS-
|
||||
STORE PAC
|
||||
CLRGO
|
||||
CLRGO
|
||||
CULTFLAG
|
||||
28D
|
||||
|
||||
@ -226,13 +226,13 @@ SVDWN1 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG
|
||||
VSL* VAD
|
||||
0 -4,2
|
||||
VCV
|
||||
VSL*
|
||||
VSL*
|
||||
0,2
|
||||
STODL VN
|
||||
TET
|
||||
STORE PIPTIME
|
||||
RVQ
|
||||
|
||||
|
||||
SVDWN2 VLOAD VSL*
|
||||
TDELTAV
|
||||
0 -7,2
|
||||
@ -264,7 +264,7 @@ SVDWN2 VLOAD VSL*
|
||||
SETLOC POWFLIT2
|
||||
BANK
|
||||
COUNT 23/GEOM
|
||||
|
||||
|
||||
LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
|
||||
MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1.
|
||||
NEARLY1 # THE LOG OF THIS PART IS FOUND AND THE
|
||||
@ -275,7 +275,7 @@ LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
|
||||
2DEC .031335467
|
||||
2DEC .0130145859
|
||||
2DEC .0215738898
|
||||
|
||||
|
||||
CAF ZERO
|
||||
TS MPAC +2
|
||||
EXTEND
|
||||
@ -284,15 +284,15 @@ LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
|
||||
DXCH MPAC +3
|
||||
COM # LOAD POSITIVE SHIFT COUNT IN A.
|
||||
TC SHORTMP # MULTIPLY BY SHIFT COUNT.
|
||||
|
||||
|
||||
DXCH MPAC +1
|
||||
DXCH MPAC
|
||||
DXCH MPAC +3
|
||||
DAS MPAC
|
||||
TC INTPRET # RESULT IN MPAC, MPAC +1
|
||||
|
||||
|
||||
RVQ
|
||||
|
||||
|
||||
NEARLY1 2DEC .999999999
|
||||
|
||||
# Page 292
|
||||
@ -321,7 +321,7 @@ CLOG2/32 2DEC .0216608494
|
||||
# RTNORM = RTEAST * UNITW
|
||||
#
|
||||
# FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
|
||||
#
|
||||
#
|
||||
# CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL
|
||||
# STCALL DTEAROT STCALL DTEAROT
|
||||
# EARROT1 EARROT2
|
||||
@ -347,17 +347,17 @@ CLOG2/32 2DEC .0216608494
|
||||
# DEBRIS: QPRET, PDL+0 ... PDL+5
|
||||
# Page 294
|
||||
EBANK= RTINIT
|
||||
|
||||
|
||||
EARROT1 VLOAD VXV
|
||||
UNITW # FULL UNIT VECTOR
|
||||
RTINIT # .5 UNIT
|
||||
STORE RTEAST # .5 UNIT
|
||||
|
||||
|
||||
VXV
|
||||
UNITW # FULL UNIT
|
||||
STODL RTNORM # .5 UNIT
|
||||
DTEAROT # (-28) CS
|
||||
|
||||
|
||||
EARROT2 BOVB DDV
|
||||
TCDANZIG # RESET OVFIND, IF ON
|
||||
1/WIE
|
||||
@ -373,19 +373,19 @@ EARROT2 BOVB DDV
|
||||
VAD UNIT # INSURE THAT RT IS "UNIT".
|
||||
RTINIT # .5 UNIT
|
||||
STORE RT # .5 UNIT TARGET VECTOR
|
||||
|
||||
|
||||
RVQ
|
||||
|
||||
|
||||
OVERADAY DLOAD SIGN
|
||||
1/WIE
|
||||
DTEAROT
|
||||
BDSU
|
||||
DTEAROT
|
||||
STORE DTEAROT
|
||||
|
||||
|
||||
GOTO
|
||||
EARROT2
|
||||
|
||||
|
||||
#WIE 2DEC .1901487997
|
||||
1/WIE 2DEC 8616410
|
||||
NB2NB1 2DEC +.8431756920 B-1
|
||||
@ -415,4 +415,4 @@ NB1NB2 2DEC +.8431756920 B-1
|
||||
DEC -00000
|
||||
20DEG- DEC 03600
|
||||
DEC 00000
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user