Trim whitespace
This commit is contained in:
James Harris
@ -7,13 +7,13 @@
|
||||
# Reference: pp. 414-419
|
||||
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Mod history: 05/07/09 OH Transcription Batch 1 Assignment
|
||||
# Mod history: 05/07/09 OH Transcription Batch 1 Assignment
|
||||
#
|
||||
# The contents of the "Comanche055" files, in general, are transcribed
|
||||
# from scanned documents.
|
||||
# The contents of the "Comanche055" files, in general, are transcribed
|
||||
# from scanned documents.
|
||||
#
|
||||
# Assemble revision 055 of AGC program Comanche by NASA
|
||||
# 2021113-051. April 1, 1969.
|
||||
# 2021113-051. April 1, 1969.
|
||||
#
|
||||
# This AGC program shall also be referred to as Colossus 2A
|
||||
#
|
||||
@ -33,14 +33,14 @@
|
||||
# NEW COMMANDS WILL BE GENERATED EVERY ONE SECOND DURING THE MANEUVER
|
||||
|
||||
BANK 15
|
||||
|
||||
|
||||
SETLOC KALCMON1
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= BCDU
|
||||
|
||||
|
||||
COUNT 22/KALC
|
||||
|
||||
|
||||
NEWDELHI CS HOLDFLAG # SEE IF MANEUVER HAS BEEN INTERRUPTED
|
||||
EXTEND # BY ASTRONAUT.
|
||||
BZMF NOGO -2 # IF SO, TERMINATE KALCMANU
|
||||
@ -59,7 +59,7 @@ NEWANGL TC INTPRET
|
||||
AXC,1 CALL
|
||||
MIS
|
||||
DCMTOCDU # PICK UP THE NEW CDU ANGLES FROM MATRIX
|
||||
RTB
|
||||
RTB
|
||||
V1STO2S
|
||||
STORE NCDU # NEW CDU ANGLES
|
||||
BONCLR EXIT
|
||||
@ -87,23 +87,23 @@ INCRDCDU TS KSPNDX
|
||||
TS CDUXD
|
||||
CCS KSPNDX
|
||||
TCF INCRDCDU # LOOP FOR THREE AXES
|
||||
|
||||
RELINT
|
||||
|
||||
RELINT
|
||||
# COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER
|
||||
|
||||
TMANUCHK TC TIMECHK
|
||||
TC POSTJUMP
|
||||
CADR CONTMANU
|
||||
|
||||
CAF ONE
|
||||
|
||||
CAF ONE
|
||||
MANUSTAL TC WAITLIST
|
||||
EBANK= BCDU
|
||||
2CADR MANUSTOP
|
||||
|
||||
|
||||
RELINT
|
||||
TCF ENDOFJOB
|
||||
|
||||
|
||||
|
||||
|
||||
TIMECHK EXTEND
|
||||
DCS TIME2
|
||||
DXCH TTEMP
|
||||
@ -165,9 +165,9 @@ HIGHGAIN CS RCSFLAGS # IF SO, SET HIGH RATE FLAG (BIT 15 OF
|
||||
XCH NEXTIME
|
||||
TC POSTJUMP
|
||||
CADR INCRDCDU -1
|
||||
|
||||
|
||||
CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS
|
||||
CS TIME1
|
||||
CS TIME1
|
||||
AD NEXTIME
|
||||
CCS A
|
||||
AD ONE
|
||||
@ -177,7 +177,7 @@ CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS
|
||||
MANUCALL TC WAITLIST
|
||||
EBANK= BCDU
|
||||
2CADR UPDTCALL
|
||||
|
||||
|
||||
RELINT
|
||||
# Page 417
|
||||
CAF 1SEC # INCREMENT TIME FOR NEXT UPDATE
|
||||
@ -191,13 +191,13 @@ UPDTCALL CAF PRIO26 # CALL FOR UPDATE
|
||||
2CADR NEWDELHI
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
|
||||
# Page 418
|
||||
# ROUTINE FOR TERMINATING AUTOMATIC MANEUVERS
|
||||
|
||||
SETLOC KALCMON3
|
||||
BANK
|
||||
|
||||
|
||||
MANUSTOP TC STOPYZ
|
||||
TC IBNKCALL
|
||||
CADR LOADYZ
|
||||
@ -207,14 +207,14 @@ ENDROLL CA CPHI
|
||||
TC STOPRATE
|
||||
ENDMANU CA ATTPRIO # RESTORE USERS PRIO
|
||||
TS NEWPRIO
|
||||
|
||||
|
||||
CA ZERO # ZERO ATTCADR
|
||||
DXCH ATTCADR
|
||||
|
||||
|
||||
TC SPVAC # RETURN TO USER OF GOMANUR
|
||||
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
|
||||
SETLOC STOPRAT
|
||||
BANK
|
||||
STOPRATE CAF ZERO
|
||||
@ -223,11 +223,11 @@ STOPRATE CAF ZERO
|
||||
TS WBODY # RATE
|
||||
TS WBODY +1
|
||||
TS BIAS # BIAS
|
||||
|
||||
|
||||
CS BIT15 # MAKE SURE HIGH RATE FLAG (BIT 15 OF
|
||||
MASK RCSFLAGS # RCSFLAGS) IS RESET.
|
||||
TS RCSFLAGS
|
||||
|
||||
|
||||
STOPYZ CAF ZERO
|
||||
TS DELCDUY # ZERO PITCH, YAW
|
||||
TS DELCDUY +1 # INCREMENTAL ANGLES
|
||||
@ -240,7 +240,7 @@ STOPYZ CAF ZERO
|
||||
TS BIAS1 # BIASES
|
||||
TS BIAS2
|
||||
TC Q
|
||||
|
||||
|
||||
SETLOC MANUSTUF
|
||||
BANK
|
||||
|
||||
@ -255,7 +255,7 @@ ZEROERROR CA CDUX # PICK UP CDU ANGLES AND STORE IN
|
||||
|
||||
SETLOC KALCMON1
|
||||
BANK
|
||||
|
||||
|
||||
LOADCDUD CA CPHI # STORE TERMINAL ANGLES INTO
|
||||
TS CDUXD # COMMAND ANGLES
|
||||
LOADYZ CA CTHETA
|
||||
|
||||
Reference in New Issue
Block a user