Trim whitespace
This commit is contained in:
James Harris
@ -10,9 +10,9 @@
|
||||
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
|
||||
# same name, using Comanche055 page images.
|
||||
# 2009-05-20 RSB Corrections: TCF -> BZF in one place.
|
||||
# 2009-05-21 RSB In PHSCHK2, CS TVCPHASE corrected to
|
||||
# 2009-05-21 RSB In PHSCHK2, CS TVCPHASE corrected to
|
||||
# CCS TVCPHASE and CCS 4 corrected to CCS A.
|
||||
# Page 924 corrected to 961. CORCOPY +2
|
||||
# Page 924 corrected to 961. CORCOPY +2
|
||||
# corrected to CORCOPY +1.
|
||||
#
|
||||
# This source code has been transcribed or otherwise adapted from digitized
|
||||
@ -21,13 +21,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
|
||||
@ -98,7 +98,7 @@
|
||||
# Page 957
|
||||
# STROKE TEST TO BE TERMINATED. A NEW V68 ENTRY WILL BE REQUIRED
|
||||
# TO GET IT GOING AGAIN (NO AUTOMATIC RESTART).
|
||||
#
|
||||
#
|
||||
# *REDOTVC IS REACHED FOLLOWING ANY RESTART WHICH FINDS THE T5 BITS
|
||||
# (BITS 15,14 OF FLAGWRD6) SET FOR TVC. DOTVCON TVCPHASE = -1
|
||||
# AND TVC EXPHS = 0 JUST BEFORE SETTING THESE BITS, JUST BEFORE
|
||||
@ -148,15 +148,15 @@
|
||||
BANK
|
||||
EBANK= TVCPHASE
|
||||
COUNT* $$/RSRT
|
||||
|
||||
|
||||
REDOTVC LXCH BANKRUPT # TVC RESTART PACKAGE
|
||||
EXTEND
|
||||
QXCH QRUPT # ("TCR" IN "FINCOPY")
|
||||
|
||||
|
||||
EXECPHS CCS TVCEXPHS # CHECK TVCEXECUTIVE PHASE
|
||||
TCF +2 # MUST RESTART TVCEXECUTIVE
|
||||
TCF TVCDAPHS # NO NEED TO RESTART TVCEXECUTIVE
|
||||
|
||||
|
||||
CAF NINE # 9CS DELAY TO FORCE EXRSTRT TO OCCUR
|
||||
TC WAITLIST # BEFORE PITCHDAP, AFTER CMDSOUT
|
||||
EBANK= TVCEXPHS
|
||||
@ -167,12 +167,12 @@ TVCDAPHS CS OCT37776 # CHECK BITS 15 AND 1 OF TVCPHASE TO SEE
|
||||
CCS A
|
||||
TCF FINCOPY # FINISH THE COPYCYCLE FIRST
|
||||
TCF ENABL1 # JUST PREPARE THE OUTCOUNTERS AND GO
|
||||
|
||||
|
||||
CS TVCPHASE # TEST FOR TVCPHASE = -2
|
||||
MASK BIT2 # (THIS INDICATES RESTART OCCURRED
|
||||
EXTEND # DURING CSM/LM V46 SWITCH-OVER)
|
||||
BZF TRIM/CMD # NO. TVCPHASE = -1. RSTRT WAS IN TVCINIT
|
||||
|
||||
|
||||
ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT
|
||||
AD BIT11 # SET BIT FOR OPTICS-DAC-ENABLE ALSO
|
||||
EXTEND # (ENABL1 ENTERED FROM TVCDAPHS / FINCOPY)
|
||||
@ -181,46 +181,46 @@ ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT
|
||||
TS T5LOC
|
||||
CAF TVCADDR +4 # 60 MS (TVCEXADR)
|
||||
TS TIME5
|
||||
|
||||
|
||||
TCF RESUME
|
||||
|
||||
|
||||
ENABL2 LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
|
||||
|
||||
CAF BIT2 # OPTICS ERROR CNTR ENABLE, 4MS MIN WAIT
|
||||
EXTEND
|
||||
WOR CHAN12
|
||||
# Page 959
|
||||
# Page 959
|
||||
CAF TVCADDR +2 # WAIT, CALLING CMDSOUT (BBCON THERE)
|
||||
TS T5LOC
|
||||
CAF OCT37776 # 20MS
|
||||
TS TIME5
|
||||
|
||||
|
||||
TCF NOQRSM
|
||||
|
||||
|
||||
CMDSOUT LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
|
||||
EXTEND
|
||||
QXCH QRUPT
|
||||
|
||||
|
||||
CS ZERO # MOST RECENT ACTUATOR COMMANDS
|
||||
AD PCMD # (AVOID +0)
|
||||
TS TVCPITCH
|
||||
CS ZERO
|
||||
AD YCMD
|
||||
TS TVCYAW
|
||||
|
||||
|
||||
CAF PRIO6 # RELEASE THE COUNTERS (BITS 11,12)
|
||||
EXTEND
|
||||
WOR CHAN14
|
||||
|
||||
|
||||
PHSCHK2 CCS TVCPHASE # CHECK TVCPHASE AGAIN
|
||||
TCF CHKSTRK
|
||||
TCF CHKSTRK
|
||||
CCS A # A CONTAINS THE DIMINISHED ABSOLUTE OF
|
||||
TC +3 # TVCPHASE (-2 BECOMES +1. -1 BECOMES +0)
|
||||
|
||||
|
||||
TC POSTJUMP # REPEAT TVC INITIALIZATION
|
||||
CADR MRCLEAN # (DO NOT RETURN)
|
||||
|
||||
|
||||
+3 TC IBNKCALL # REPEAT CSM/LM V46 SWITCH-OVER
|
||||
CADR SWICHOVR +5 # (RETURN TO CHECK FOR STROKE TEST)
|
||||
|
||||
@ -228,7 +228,7 @@ CHKSTRK CCS STROKER # CHECK FOR STROKE TEST IN PROGRESS
|
||||
TCF TSTINITJ # YES, KILL IT
|
||||
TCF +2 # NO, PROCEED
|
||||
TCF TSTINITJ # YES, KILL IT
|
||||
|
||||
|
||||
+4 TC POSTJUMP # IF POSITIVE OR ZERO, RESTART AT
|
||||
CADR TVCINIT4 # TVCINIT4 (ZEROS TVCPHASE, AND
|
||||
# CALLS TVC DAPS VIA DAPINIT)
|
||||
@ -236,18 +236,18 @@ FINCOPY INDEX TVCPHASE # PICK UP THE APPROPRIATE COPYCYCLE
|
||||
CAF TVCCADR
|
||||
TCR ISWCALL # RE-ENTER THE COPYCYCLE, RETURN AT END
|
||||
TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS
|
||||
|
||||
|
||||
TRIM/CMD EXTEND # TVCDAPON INITIALIZATION NOT COMPLETED,
|
||||
# Page 960
|
||||
DCA PACTOFF # EG. P,YCMD MAY NOT BE SET. SET...
|
||||
DXCH PCMD
|
||||
TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS
|
||||
|
||||
|
||||
TSTINITJ CAF ZERO # DISABLE STROKE TEST (-0 SHOWS PRIOR V68)
|
||||
TS STROKER # (+0 MEANS NEW V68 REQUIRED FOR STARTUP)
|
||||
|
||||
|
||||
TCF CHKSTRK +4
|
||||
|
||||
|
||||
EXRSTRT INDEX TVCEXPHS # TVCEXECUTIVE RESTARTS....GO TO
|
||||
CAF TVCEXADR # APPROPRIATE RESTART POINT
|
||||
INDEX A
|
||||
@ -267,5 +267,5 @@ TVCEXADR OCT 37772 # (UNUSED TABLE LOC, FILL WITH 60MS, T5)
|
||||
+4 GENADR CORSETUP
|
||||
+5 GENADR CORCOPY +1
|
||||
+6 GENADR CNTRCOPY
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user