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
|
||||
@ -145,7 +145,7 @@
|
||||
# THE APPROXIMATE AND QUADRATIC SOLUTIONS CONVERGE IN THE LIMIT AS
|
||||
# THE SWITCH LINE IS APPROACHED). IF THE OPERATING POINT IS NOT CLOSE
|
||||
# TO THE SWITCH LINE, THE APPROXIMATE SOLUTION GIVES VALID TREND
|
||||
# INFORMATION (DIRECTION OF DESIRED OGARATE) AT LEAST. THE
|
||||
# INFORMATION (DIRECTION OF DESIRED OGARATE) AT LEAST. THE
|
||||
# RE-EVALUATION OF DESIRED OGARATE IN SUBSEQUENT ROLL DAP PASSES (1/2
|
||||
# SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE
|
||||
# APPROXIMATION.
|
||||
@ -219,7 +219,7 @@ ROLLDAP CAE OGANOW # OGA RATE ESTIMATOR...SIMPLE FIRST-ORDER
|
||||
MP BIT5
|
||||
LXCH A
|
||||
TS OGARATE # SC.AT B-4 REV/SEC
|
||||
|
||||
|
||||
# COMPUTATIONS WHICH FOLLOW USE OGA FOR OGAERR (SAME REGISTER)
|
||||
# EXAMINE DURATION OF LAST ROLL FIRING IF JETS ARE NOW ON.
|
||||
|
||||
@ -227,11 +227,11 @@ DURATION CA ROLLFIRE # SAME SGN AS PRESENT TORQ,MAGN=POSMAX
|
||||
EXTEND
|
||||
BZF +2 # ROLL JETS ARE NOW OFF.
|
||||
TCF ROLLOGIC # ENTER LOGIC, JETS NOW ON.
|
||||
|
||||
|
||||
CAE TEMREG # EXAMINE LAST FIRING INTERVAL
|
||||
EXTEND # IF POSITIVE, DON'T FIRE
|
||||
BZF ROLLOGIC # ENTER LOGIC, JETS NOW OFF.
|
||||
|
||||
|
||||
CAF ZERO # JETS HAVE NOT BEEN OFF FOR 1/2 SEC. WAIT
|
||||
TS TEMREG # RESET TEMREG
|
||||
WAIT1/2 TCF TASKOVER # EXIT ROLL DAP
|
||||
@ -245,7 +245,7 @@ ROLLOGIC CS OGARATE # SCALED AT 2(-4) REV/SEC
|
||||
MP OGARATE
|
||||
AD DB # SCALED AT 2(+0) REV
|
||||
TS TEMREG # QUANTITY SCALED AT 2(+0) REV.
|
||||
|
||||
|
||||
# GET SIGN OF OGARATE
|
||||
|
||||
CA OGARATE
|
||||
@ -255,14 +255,14 @@ ROLLOGIC CS OGARATE # SCALED AT 2(-4) REV/SEC
|
||||
TCF +2
|
||||
CS BIT1
|
||||
TS SGNRT # + OR - 2(-14)
|
||||
|
||||
# Page 990
|
||||
|
||||
# Page 990
|
||||
# CALCULATE DISTANCE FROM SWITCH PARABOLA,DELOGA
|
||||
EXTEND
|
||||
MP TEMREG # SGN(OGARATE) TEMREG NOW IN L
|
||||
CS L
|
||||
MP TEMREG # SGN(OGARATE) TEMREG NOW IN L
|
||||
CS L
|
||||
AD OGA # SCALED AT 2(+0) REV
|
||||
DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB
|
||||
DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB
|
||||
|
||||
# EXAMINE SGN(DELOGA) AND CREATE CA OR CS INSTR. DEPENDING UPON SIGN.
|
||||
|
||||
@ -272,7 +272,7 @@ DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB
|
||||
TCF +2
|
||||
CAF BIT15 # = CS (40000)
|
||||
TS I
|
||||
|
||||
|
||||
INDEX I # TSET ON I SGN(OGARATE)
|
||||
0 SGNRT # CA OR CS
|
||||
COM
|
||||
@ -302,11 +302,11 @@ REG3TST BZMF RATELIM # IF REGION 3 (RATES TOO HIGH, FIRE JETS)
|
||||
DDOUBL
|
||||
DDOUBL # (OGA ERROR MUST BE LESS THAN +-225 DEG)
|
||||
AD TEMREG
|
||||
|
||||
|
||||
INDEX I
|
||||
0 A # I((-SLOPE)OGA+OGARATE) AT 2(-3)REV/SEC
|
||||
COM
|
||||
# Page 991
|
||||
# Page 991
|
||||
AD INTERCEP # SCALED AT 2(-3) REV.
|
||||
COM
|
||||
EXTEND
|
||||
@ -341,7 +341,7 @@ REGION6 CAE OGA # USE ACTUAL OPERATING POINT FOR TANGENT
|
||||
CA OGARATE
|
||||
TS DELOGART # ACTUAL STATE, I.E., DEL OGARATE
|
||||
TCF ONROLL
|
||||
|
||||
|
||||
# JETS ALSO FIRE FROM HERE EXCEPT OGARATE IS POS (VICE VERSA), USE INDIRECT
|
||||
# STRAIGHT LINE ESTABLISHED BY TANGENT TO A CONTROL PARABOLA AT ((DELOGA
|
||||
# + DB SGN(DELOGA) ), -LMCRATE SGN(DELOGA) ) (THIS IS THE DUMMY
|
||||
@ -350,7 +350,7 @@ REGION6 CAE OGA # USE ACTUAL OPERATING POINT FOR TANGENT
|
||||
ROLLON INDEX I
|
||||
0 DB
|
||||
ADS DELOGA # DELOGA WAS DIST. FROM SWITCH PARABOLA
|
||||
|
||||
|
||||
CS LMCRATE # LIMIT CYCLE RATE AT 2(-4) REV/SEC
|
||||
INDEX I
|
||||
0 A
|
||||
@ -392,23 +392,23 @@ RATENUM AD DELOGART # NUMERATOR COMPLETED
|
||||
DV TEMREG # OVERFLOW, IF ANYTHING, NOW APPEARS IN A
|
||||
EXTEND
|
||||
BZF DVOK # NO OVERFLOW....(0,L)/TEMREG = 0,L
|
||||
|
||||
|
||||
MINLIMAP CCS A
|
||||
CAF POSMAX # POSITIVE OVERFLOW
|
||||
TCF ROLLSET
|
||||
CS POSMAX # NEGATIVE OVERFLOW
|
||||
TCF ROLLSET
|
||||
|
||||
|
||||
DVOK LXCH A # PUT NUMERATOR BACK INTO A, 0 INTO L
|
||||
EXTEND
|
||||
DV TEMREG # RESULT OF DIVISION IS DESIRED OGARATE
|
||||
TCF ROLLSET # (SCALED AT B-4 REV/SEC)
|
||||
|
||||
|
||||
RATELIM CS MAXLIM
|
||||
INDEX I
|
||||
# Page 993
|
||||
0 A # IF I = CA, DESIRED RATE IS -MAXLIM
|
||||
|
||||
|
||||
# COMPUTE JET FIRE TIME, BASED ON DESIRED RATE MINUS PRESENT RATE
|
||||
|
||||
ROLLSET TS TEMREG # STORE DESIRED OGARATE (SCALED B-4)
|
||||
@ -431,24 +431,24 @@ ROLLSET TS TEMREG # STORE DESIRED OGARATE (SCALED B-4)
|
||||
TS TEMREG # JET FIRE TIME AT 625 MICROSEC/BIT
|
||||
EXTEND # POS MEANS POSITIVE ROLL TORQUE.
|
||||
BZF NOROLL
|
||||
|
||||
|
||||
# JET FIRE TIME IS NZ, TEST FOR JETS NOW ON.
|
||||
|
||||
CAE TEMREG # DESIRED CHANGE IN OGARATE
|
||||
EXTEND
|
||||
EXTEND
|
||||
MP ROLLFIRE # (SGN OF TORQUE: ZERO IF JETS NOW OFF)
|
||||
CCS A
|
||||
TCF MOREROLL # CONTINUE FIRING WITH PRESENT POLARITY
|
||||
TCF NEWROLL # START NEW FIRING NOW, PLUS
|
||||
TCF NOROLL # TERMINATE OLD FIRING, NEW SIGN REQUESTED
|
||||
TCF NEWROLL # START NEW FIRING NOW, MINUS
|
||||
|
||||
|
||||
# CONTINUE PRESENT FIRING
|
||||
|
||||
MOREROLL CAF ZERO
|
||||
TS I # USE TEMP. AS MOREROLL SWITCH
|
||||
TCF MAXTFIRE
|
||||
|
||||
|
||||
# START NEW FIRING BUT CHECK IF GREATER THAN MIN FIRE TIME.
|
||||
|
||||
NEWROLL CCS TEMREG # CALL THIS T6FIRE
|
||||
@ -457,7 +457,7 @@ NEWROLL CCS TEMREG # CALL THIS T6FIRE
|
||||
AD ONE
|
||||
COM # -MAG(T6FIRE)
|
||||
AD TMINFIRE # TMINFIRE-MAG(T6FIRE)
|
||||
# Page 994
|
||||
# Page 994
|
||||
COM
|
||||
EXTEND
|
||||
MINTST BZMF NOROLL # IF NOT GREATER THAN TMINFIRE (NEW FIRE)
|
||||
@ -483,36 +483,36 @@ NOMXFIRE CCS TEMREG # FOR TORQUE SIGN
|
||||
TCF +2
|
||||
CA NEGMAX # NEGATIVE TORQUE REQUIRED
|
||||
TS ROLLFIRE # SET ROLLFIRE FOR + OR - TORQUE
|
||||
|
||||
|
||||
COM # COMPLEMENT... POS. FOR NEG. TORQUE
|
||||
EXTEND
|
||||
BZMF +3 # POSITIVE TORQUE REQUIRED
|
||||
CS TEMREG
|
||||
TS TEMREG
|
||||
|
||||
|
||||
FIRELOOK CA I # IS IT MOREROLL
|
||||
EXTEND
|
||||
BZF FIREPLUG # YES
|
||||
TCF JETROLL # MAG(T6FIRE) NOW IN TEMREG
|
||||
|
||||
|
||||
FIREPLUG CAE TIME6 # CHECK FOR EXTENDED FIRING
|
||||
EXTEND
|
||||
SU TEMREG
|
||||
EXTEND
|
||||
EXTENTST BZMF TASKOVER # IF EXTENSION WANTED, DON'T, EXIT ROLL DAP
|
||||
TCF JETROLL
|
||||
|
||||
|
||||
NOROLL CS ZERO # COAST....(NEG ZERO FOR TIME6)
|
||||
TS ROLLFIRE # NOTE, JETS CAN FIRE NEXT PASS
|
||||
TS TEMREG
|
||||
|
||||
|
||||
JETROLL EXTEND
|
||||
DCA NOROL1T6
|
||||
# Page 995
|
||||
# Page 995
|
||||
DXCH T6LOC
|
||||
CA TEMREG # ENTER JET FIRING TIME
|
||||
TS TIME6
|
||||
|
||||
|
||||
CA I # I=0 IF MOREROLL, KEEP SAME JETS ON
|
||||
EXTEND
|
||||
SAMEJETS BZF TASKOVER # IF JETS ON KEEP SAME JETS. EXIT ROLL DAP
|
||||
@ -522,7 +522,7 @@ SAMEJETS BZF TASKOVER # IF JETS ON KEEP SAME JETS. EXIT ROLL DAP
|
||||
TCF T6ENABL
|
||||
TCF -TORQUE
|
||||
TCF T6ENABL
|
||||
|
||||
|
||||
# PROCEED WITH + TORQUE
|
||||
|
||||
+TORQUE CA ROLLWORD # WHAT WAS THE LAST +TORQUE COMBINATION
|
||||
@ -537,19 +537,19 @@ NO.13-15 CS BIT1
|
||||
EXTEND
|
||||
WRITE CHAN6
|
||||
TCF T6ENABL
|
||||
|
||||
|
||||
NO.9-11 CAF BIT1 # 1ST + JETS TO FIRE (MRCLEAN OS ROLLWORD)
|
||||
ADS ROLLWORD # CHANGE BIT 1 TO ONE
|
||||
CAF +ROLL1
|
||||
EXTEND
|
||||
WRITE CHAN6
|
||||
TCF T6ENABL
|
||||
|
||||
|
||||
-TORQUE CA ROLLWORD # WHAT WAS LAST -TORQUE COMBINATION
|
||||
MASK BIT2 # WAS IT NO.12-10
|
||||
EXTEND
|
||||
BZF NO.12-10 # NOT 12-10, SO USE IT THIS TIME
|
||||
|
||||
|
||||
NO.16-14 CS BIT2
|
||||
MASK ROLLWORD
|
||||
TS ROLLWORD # CHANGE BIT 2 TO ZERO
|
||||
@ -557,14 +557,14 @@ NO.16-14 CS BIT2
|
||||
EXTEND
|
||||
WRITE CHAN6
|
||||
TCF T6ENABL
|
||||
|
||||
|
||||
NO.12-10 CAF BIT2 # 1ST -JETS TO FIRE (MRCLEAN OS ROLLWORD)
|
||||
# Page 996
|
||||
ADS ROLLWORD # CHANGE BIT 2 TO ONE
|
||||
CAF -ROLL1
|
||||
EXTEND
|
||||
WRITE CHAN6
|
||||
|
||||
|
||||
T6ENABL CAF BIT15
|
||||
EXTEND
|
||||
WOR CHAN13
|
||||
|
||||
Reference in New Issue
Block a user