Trim whitespace
This commit is contained in:
James Harris
@ -10,7 +10,7 @@
|
||||
# Mod history: 2009-05-12 RSB Adapted from the Colossus249/ file of the
|
||||
# same name, using Comanche055 page images.
|
||||
# 2009-05-20 RSB Corrections: CAE -> CAF in one place.
|
||||
# 2009-05-21 RSB In 1SHOTCHK, a CAF SEVEN was corrected to
|
||||
# 2009-05-21 RSB In 1SHOTCHK, a CAF SEVEN was corrected to
|
||||
# CAF SIX.
|
||||
#
|
||||
# This source code has been transcribed or otherwise adapted from digitized
|
||||
@ -19,13 +19,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
|
||||
@ -85,36 +85,36 @@
|
||||
BANK
|
||||
EBANK= BZERO
|
||||
COUNT* $$/TVCX
|
||||
|
||||
|
||||
TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ
|
||||
MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON)
|
||||
EXTEND
|
||||
BZMF TVCEXFIN # TERMINATE
|
||||
|
||||
|
||||
CAF .5SEC # W.L. CALL TO PERPETUATE TVCEXEC
|
||||
TC WAITLIST
|
||||
EBANK= BZERO
|
||||
2CADR TVCEXEC
|
||||
|
||||
|
||||
ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART-
|
||||
XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START)
|
||||
XCH OGAPAST
|
||||
|
||||
|
||||
CAE OGAD # PREPARE ROLL FDAI NEEDLE WITH FLY-TO
|
||||
EXTEND # ERROR (COMMAND - MEASURED)
|
||||
MSU OGANOW
|
||||
TS AK # FLY-TO OGA ERROR, SC.AT B-1 REVS
|
||||
|
||||
|
||||
EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR
|
||||
MP -BIT14
|
||||
MP -BIT14
|
||||
TS OGAERR # PHASE-PLANE (FLY-FROM) OGAERROR,
|
||||
# SC.AT B+0 REVS
|
||||
|
||||
|
||||
CAF THREE # SET UP ROLL DAP TASK (ALLOW SOME TIME)
|
||||
TC WAITLIST
|
||||
EBANK= BZERO
|
||||
2CADR ROLLDAP
|
||||
|
||||
|
||||
NEEDLEUP TC IBNKCALL # DO A NEEDLES UPDATE (RETURNS AFTER CADR)
|
||||
CADR NEEDLER # (NEEDLES RESTARTS ITSELF)
|
||||
|
||||
@ -128,16 +128,16 @@ VARGAINS CAF BIT13 # CHECK ENGINE-ON BIT TO INHIBIT VARIABLE
|
||||
TCF 1SHOTCHK # VCNTR = -0 (V97 R40 ENGFAIL)
|
||||
CCS VCNTR # TEST FOR GAIN OF UPDATE TIME
|
||||
TCF +4 # NOT YET
|
||||
# Page 947
|
||||
# Page 947
|
||||
TCF GAINCHNG # NOW
|
||||
TCF +0 # NOT USED
|
||||
TCF VARGAINS +5 # NO, LOTHRUST (S40.6 R40)
|
||||
|
||||
|
||||
+4 TS VCNTRTMP # PROTECT VCNTR AND
|
||||
CAE CSMMASS # CSMMASS DURING AN IMPULSIVE BURN
|
||||
TS MASSTMP
|
||||
TCF EXECCOPY
|
||||
|
||||
|
||||
GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX
|
||||
CADR FIXCW # MASSPROP ENTRY (ALREADY INITIALIZED)
|
||||
TC IBNKCALL # UPDATE 1/CONACC, VARK
|
||||
@ -145,7 +145,7 @@ GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX
|
||||
CS TENMDOT # UPDATE MASS FOR NEXT 10 SEC. OF BURN
|
||||
AD CSMMASS
|
||||
TS MASSTMP # KG B+16
|
||||
|
||||
|
||||
CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER
|
||||
TS VCNTRTMP
|
||||
|
||||
@ -153,24 +153,24 @@ EXECCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (1)
|
||||
|
||||
CAE MASSTMP # CSMMASS KG B+16
|
||||
TS CSMMASS
|
||||
|
||||
|
||||
CAE VCNTRTMP # VCNTR
|
||||
TS VCNTR
|
||||
TS V97VCNTR # FOR ENGFAIL (R41) MASS UPATES AT SPSOFF
|
||||
|
||||
|
||||
INCR TVCEXPHS # COPYCYCLE OVER (2)
|
||||
|
||||
|
||||
1SHOTCHK CCS CNTR # CHECK FOR ONE-SHOT OR REPCORR
|
||||
TCF +4 # NOT YET
|
||||
TCF 1SHOTOK # NOW
|
||||
TCF REPCHEK # ONE-SHOT OVER, ON TO REPCORR
|
||||
TCF 1SHOTOK # NOW (ONE-SHOT ONLY, NO REPCORR)
|
||||
|
||||
|
||||
+4 TS CNTRTMP # COUNT DOWN
|
||||
CAF SIX # SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY
|
||||
TS TVCEXPHS
|
||||
TCF CNTRCOPY
|
||||
|
||||
|
||||
REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
|
||||
EXTEND
|
||||
BZMF TVCEXFIN # NO (NEG OR +-ZERO)
|
||||
@ -178,24 +178,24 @@ REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
|
||||
CAF FOUR # SET UP TVCEXPHS FOR ENTRY AT CORSETUP
|
||||
TS TVCEXPHS
|
||||
TCF CORSETUP
|
||||
# Page 948
|
||||
# Page 948
|
||||
1SHOTOK CAF BIT13 # CHECK ENGINE-ON BIT, NOT PERMITTING
|
||||
EXTEND # SWITCHOVER DURING ENGINE-SHUTDOWN
|
||||
RAND DSALMOUT
|
||||
CCS A
|
||||
TCF +2 # ONE-SHOT OK
|
||||
TCF TVCEXFIN # NO, TERMINATE
|
||||
|
||||
|
||||
INCR TVCEXPHS # (3)
|
||||
|
||||
|
||||
# RSB 2009. The following instruction was previously "CAE FCORFRAC", but FCORFRAC
|
||||
# is not in erasable memory as implied by the use of CAE. I've accordingly changed
|
||||
# it to CAF instead to indicate fixed memory.
|
||||
TEMPSET CAF FCORFRAC # SET UP CORRECTION FRACTION
|
||||
TS TEMPDAP +1
|
||||
|
||||
|
||||
INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (4)
|
||||
|
||||
|
||||
CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
|
||||
MASK BIT13 # (NOTE, SHOWS LEM-OFF)
|
||||
EXTEND
|
||||
@ -203,10 +203,10 @@ CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
|
||||
CAE TEMPDAP +1 # LEM IS OFF, PICK UP 2(TEMPDAP+1)
|
||||
AD TEMPDAP +1
|
||||
TS TEMPDAP # CG.CORR USES TEMPDAP
|
||||
|
||||
|
||||
CAF NEGONE # SET UP FOR CNTR = -1 (SWTCHOVR DONE)
|
||||
TS CNTRTMP # (COPYCYCLE AT "CNTRCOPY")
|
||||
|
||||
|
||||
CG.CORR EXTEND # PITCH TMC LOOP
|
||||
DCA PDELOFF
|
||||
DXCH PACTTMP
|
||||
@ -225,14 +225,14 @@ CG.CORR EXTEND # PITCH TMC LOOP
|
||||
EXTEND
|
||||
MP TEMPDAP
|
||||
DAS PACTTMP
|
||||
|
||||
|
||||
EXTEND # YAW TMC LOOP
|
||||
DCA YDELOFF
|
||||
DXCH YACTTMP
|
||||
EXTEND
|
||||
DCS YDELOFF
|
||||
DDOUBL
|
||||
# Page 949
|
||||
# Page 949
|
||||
DDOUBL
|
||||
DXCH TTMP1
|
||||
EXTEND
|
||||
@ -245,29 +245,29 @@ CG.CORR EXTEND # PITCH TMC LOOP
|
||||
EXTEND
|
||||
MP TEMPDAP
|
||||
DAS YACTTMP
|
||||
|
||||
|
||||
CORCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (5)
|
||||
|
||||
EXTEND # TRIM-ESTIMATES, AND
|
||||
DCA PACTTMP
|
||||
TS PACTOFF # TRIMS
|
||||
DXCH PDELOFF
|
||||
|
||||
|
||||
EXTEND
|
||||
DCA YACTTMP
|
||||
TS YACTOFF
|
||||
DXCH YDELOFF
|
||||
|
||||
|
||||
INCR TVCEXPHS # ENTRY FROM 1SHOTCHK AT NEXT LOCATION (6)
|
||||
|
||||
|
||||
CNTRCOPY CAE CNTRTMP # UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY)
|
||||
TS CNTR
|
||||
|
||||
|
||||
TVCEXFIN CAF ZERO # RESET TVCEXPHS
|
||||
TS TVCEXPHS
|
||||
TS TVCEXPHS
|
||||
TCF TASKOVER # TVCEXECUTIVE FINISHED
|
||||
|
||||
FCORFRAC OCT 10000 # ONE-SHOT CORRECTION FRACTION
|
||||
FCORFRAC OCT 10000 # ONE-SHOT CORRECTION FRACTION
|
||||
|
||||
# Page 950 (page is empty)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user