Trim whitespace
This commit is contained in:
James Harris
@ -7,10 +7,10 @@
|
||||
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 533-550
|
||||
# Mod history: 2009-05-13 HG Started adapting from the Colossus249/ file
|
||||
# of the same name, using Comanche055 page
|
||||
# images 0533.jpg - 0550.jpg.
|
||||
# 2009-05-20 RSB Corrections: ERTHALT -> EARTHALT,
|
||||
# Mod history: 2009-05-13 HG Started adapting from the Colossus249/ file
|
||||
# of the same name, using Comanche055 page
|
||||
# images 0533.jpg - 0550.jpg.
|
||||
# 2009-05-20 RSB Corrections: ERTHALT -> EARTHALT,
|
||||
# STATSW -> SATSW.
|
||||
# 2009-05-23 RSB At end of RESCALES, corrected TC 0 to TC Q.
|
||||
# Added an SBANK= prior to a 2CADR.
|
||||
@ -22,13 +22,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
|
||||
@ -72,7 +72,7 @@
|
||||
# R1 V1 -- INERTIAL VELOCITY MAGNITUDE IN FPS
|
||||
# R2 HDOT -- RATE OF CHANGE OF VEHICLE VEL IN FPS
|
||||
# R3 H -- VEHICLE ALTITUDE ABOVE PAD IN NM
|
||||
#
|
||||
#
|
||||
# 12. DISPLAY BODY AXES ATT. ERRORS ON FDAI NEEDLES
|
||||
#
|
||||
# A) FROM L.O. TO RPSTART (APPROX. 0 TO +10SECS AFTER L.O.)
|
||||
@ -146,16 +146,16 @@
|
||||
# CENTRALS, CORE SET, AND VAC AREAS
|
||||
|
||||
COUNT 34/P11
|
||||
|
||||
|
||||
BITS5-6 = SUPER011
|
||||
BANK 42
|
||||
SETLOC P11ONE
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= TEPHEM
|
||||
P11 CA EBANK3
|
||||
TS EBANK
|
||||
|
||||
|
||||
EXTEND
|
||||
DCA REP11S # DIRECT RESTARTS TO REP11
|
||||
DXCH -PHASE3
|
||||
@ -166,11 +166,11 @@ P11 CA EBANK3
|
||||
P11+7 EXTEND
|
||||
DCA REP11SA
|
||||
DXCH TLIFTOFF
|
||||
|
||||
|
||||
EXTEND
|
||||
DCA TIME2
|
||||
DXCH LIFTTEMP # FORE RESTARTS
|
||||
|
||||
|
||||
CA ZERO
|
||||
ZL
|
||||
DXCH TIME2
|
||||
@ -184,57 +184,57 @@ REP11A INHINT
|
||||
CA TEPHEM
|
||||
# Page 536
|
||||
XCH TEPHEM1
|
||||
|
||||
|
||||
EXTEND
|
||||
DCA TLIFTOFF
|
||||
DAS TEPHEM1 +1
|
||||
ADS TEPHEM1 # CORRECT FOR OVERFLOW
|
||||
|
||||
|
||||
TC PHASCHNG
|
||||
OCT 05023
|
||||
OCT 22000
|
||||
|
||||
|
||||
INHINT
|
||||
EXTEND
|
||||
DCA TEPHEM1
|
||||
DXCH TEPHEM
|
||||
CA TEPHEM1 +2
|
||||
XCH TEPHEM +2
|
||||
|
||||
|
||||
CAF EBDVCNT
|
||||
TS EBANK
|
||||
EBANK= DVCNTR
|
||||
TC IBNKCALL
|
||||
CADR PREREAD1 # ZERO PIPS AND INITIALIZE AVERAGEG
|
||||
|
||||
|
||||
TC PHASCHNG
|
||||
OCT 05023 # CONTINUE HERE ON RESTART
|
||||
OCT 22000
|
||||
|
||||
|
||||
CAF .5SEC # START ATT ERROR DISPLAY
|
||||
TC WAITLIST # IN .5 SEC
|
||||
EBANK= BODY3
|
||||
2CADR ATERTASK
|
||||
|
||||
|
||||
TC NEWMODEX # DISPLAY MM 11
|
||||
MM 11
|
||||
|
||||
|
||||
TC UPFLAG
|
||||
ADRES NODOP01
|
||||
|
||||
|
||||
CA POWDNCOD # SWITCH TO POWERED FLIGHT DOWNLIST
|
||||
TS DNLSTCOD
|
||||
|
||||
TC BANKCALL
|
||||
|
||||
TC BANKCALL
|
||||
CADR CLEANDSP # CLEAR DSKY IN CASE OF V75
|
||||
|
||||
|
||||
TC 2PHSCHNG
|
||||
OCT 40514 # PROTECT ATERTASK
|
||||
OCT 00073
|
||||
CAF EBQPLACE
|
||||
# Page 537
|
||||
TS EBANK
|
||||
|
||||
|
||||
EBANK= QPLACES
|
||||
CA P11XIT # SET EXIT FROM PROUT IN EARTHR
|
||||
TS QPLACES
|
||||
@ -253,9 +253,9 @@ REP11A INHINT
|
||||
MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
||||
CA CDUX # ERROR DISPLAY AFTER LIFTOFF
|
||||
DXCH OGC
|
||||
ZL
|
||||
ZL
|
||||
CA CDUY
|
||||
DXCH IGC
|
||||
DXCH IGC
|
||||
ZL
|
||||
CA CDUZ
|
||||
DXCH MGC
|
||||
@ -276,8 +276,8 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
||||
CLEAR CALL
|
||||
ERADFLAG
|
||||
LALOTORV # CONVERT TO POSITION VECTOR IN REF. COORDS.
|
||||
|
||||
STCALL RN1 # _
|
||||
|
||||
STCALL RN1 # _
|
||||
GETDOWN # RETURN WITH VECTOR FOR DOWN DIRECTION
|
||||
VCOMP UNIT
|
||||
STOVL REFSMMAT +12D # UNITZ = UNIT(GRAV)
|
||||
@ -303,7 +303,7 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
||||
VAD UNIT # SIN(AZ)*EAST - COS(AZ)*SOUTH = REF1
|
||||
REFSMMAT
|
||||
STORE REFSMMAT
|
||||
|
||||
|
||||
VXV UNIT # (REF1 X REF3) = -REF3
|
||||
REFSMMAT +12D
|
||||
VCOMP
|
||||
@ -318,21 +318,21 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
||||
STORE SATRLRT # FOR ROLL CALC IN FDAI ATT. ERROR DISPLAY
|
||||
SET EXIT
|
||||
REFSMFLG # SET REFSMMAT KNOWN FLAG
|
||||
|
||||
|
||||
TC PHASCHNG
|
||||
OCT 04023
|
||||
|
||||
|
||||
EXTEND
|
||||
DCA P11SCADR
|
||||
DXCH AVGEXIT # SET AVGEXIT
|
||||
|
||||
|
||||
CA PRIO31 # 2 SECONDS AT 2(+8)
|
||||
TS 1/PIPADT
|
||||
|
||||
|
||||
EBANK= RCSFLAGS
|
||||
CA EBANK6
|
||||
TS EBANK
|
||||
|
||||
|
||||
INHINT
|
||||
# Page 539
|
||||
CS ZERO
|
||||
@ -340,47 +340,47 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
||||
|
||||
CS TIME1
|
||||
AD 2SECS # DO READACCS 2 SECONDS AFTER LIFTOFF
|
||||
|
||||
|
||||
CCS A # CHECK TO INSURE DT IS POSITIVE
|
||||
TCF +3 # TIME POSITIVE
|
||||
TCF +2 # CANNOT GET HERE
|
||||
CA ZERO # TIME NEGATIVE -- SET TO 1
|
||||
AD ONE # RESTORE TIME -- OR MAKE POSITIVE
|
||||
|
||||
|
||||
TC WAITLIST
|
||||
EBANK= AOG
|
||||
2CADR READACCS
|
||||
|
||||
|
||||
TC 2PHSCHNG
|
||||
OCT 00003 # TURN OFF GROUP 3
|
||||
OCT 00025 # PROTECT NORMLIZE AND READACCS
|
||||
|
||||
|
||||
TC POSTJUMP
|
||||
CADR NORMLIZE # DO NORMLIZE AND ENDOFJOB
|
||||
|
||||
|
||||
|
||||
|
||||
EBANK= TEPHEM
|
||||
REP11 INHINT
|
||||
CCS PHASE5
|
||||
TC ENDOFJOB
|
||||
|
||||
|
||||
CCS LIFTTEMP
|
||||
TCF +4
|
||||
TCF +3
|
||||
TCF +2
|
||||
TCF P11+7
|
||||
|
||||
|
||||
CS TLIFTOFF
|
||||
EXTEND
|
||||
BZMF ENDREP11
|
||||
|
||||
|
||||
CCS TIME2 # ** TIME2 MUST BE NON-ZERO AT LIFTOFF **
|
||||
TCF REP11A -5 # T2,T1 NOT YET ZEROED, GO AND DO IT
|
||||
|
||||
|
||||
EXTEND # T2,T1 ZEROED, SET TLIFTOFF
|
||||
DCA LIFTTEMP
|
||||
TCF REP11A-2
|
||||
|
||||
|
||||
ENDREP11 EXTEND
|
||||
DCA REP11SA
|
||||
TCF REP11A-1
|
||||
@ -409,16 +409,16 @@ VHHDOT TC INTPRET
|
||||
EXIT
|
||||
TC PHASCHNG
|
||||
OCT 00035
|
||||
|
||||
|
||||
CAF V06N62 # DISPLAY IN R1 R2 R3
|
||||
TC BANKCALL # VI HDOT H
|
||||
CADR REGODSP
|
||||
|
||||
|
||||
ATERTASK CAF PRIO1 # ESTABLISH JOB TO DISPLAY ATT ERRORS
|
||||
TC FINDVAC # COMES HERE AT L.O. + .33 SEC
|
||||
EBANK= BODY3
|
||||
2CADR ATERJOB
|
||||
|
||||
|
||||
CS RCSFLAGS # SET BIT3 FOR
|
||||
MASK BIT3 # NEEDLER
|
||||
ADS RCSFLAGS # INITIALIZATION PASS
|
||||
@ -463,7 +463,7 @@ GETDOWN STQ SETPD
|
||||
# TSMV = (-SIN(R)*COS(P) -COS(R) -SIN(R)*SIN(P)) = (YDC)
|
||||
# (-COS(R)*COS(P) SIN(R) -COS(R)*SIN(P)) (ZDC)
|
||||
#
|
||||
# XDC,YDC,ZDC ARE USED AS INPUT TO CALCGTA FOR THE EXTRACTION OF THE
|
||||
# XDC,YDC,ZDC ARE USED AS INPUT TO CALCGTA FOR THE EXTRACTION OF THE
|
||||
# EULER SET OF ANGLES WHICH WILL BRING THE SM INTO THE DESIRED
|
||||
# ORIENTATION. THIS EULER SET, OGC, IGC, AND MGC, MAY BE IDENTIFIED
|
||||
# AS THE DESIRED CDU ANGLES.
|
||||
@ -516,7 +516,7 @@ ATTDISP CS RPSTART # PITCH/ROLL START TIME
|
||||
CA TIME2
|
||||
EXTEND
|
||||
BZMF +2
|
||||
TC NOPOLY # GO TO ATTITUDE HOLD
|
||||
TC NOPOLY # GO TO ATTITUDE HOLD
|
||||
CAE POLYNUM
|
||||
TS L
|
||||
CAF COEFPOLY # EVALUATE PITCH POLYNOMIAL
|
||||
@ -536,16 +536,16 @@ ATTDISP CS RPSTART # PITCH/ROLL START TIME
|
||||
|
||||
SETLOC P11TWO
|
||||
BANK # 36 IN COL., 34 IN DISK
|
||||
|
||||
|
||||
COUNT 36/P11
|
||||
|
||||
|
||||
ATTDISP1 COS DCOMP
|
||||
STODL 14D # -.5*COS(P)
|
||||
SIN
|
||||
STODL 10D # .5*SIN(P)
|
||||
ZEROVECS
|
||||
STORE 12D # 0
|
||||
|
||||
|
||||
# EVALUATE ROLL = LAUNCHAZ-AZIMUTH-.5+SATRLRT*T
|
||||
SLOAD DMP
|
||||
SPOLYARG # TIME1 - RSPSTART, CSECS B-14.
|
||||
@ -578,7 +578,7 @@ ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV
|
||||
10D
|
||||
STOVL 20D # -.5*SIN(R)*SIN(P)
|
||||
10D
|
||||
|
||||
|
||||
# FROM TSMV FIND THE HALF UNIT VECTORS XDC,YDC,ZDC = INPUT TO CALCGTA
|
||||
# Page 544
|
||||
UNIT
|
||||
@ -590,11 +590,11 @@ ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV
|
||||
UNIT
|
||||
STCALL ZDC # ZDC = .5*UNIT(-COS(R)*COS(P),SIN(R),
|
||||
CALCGTA # -COS(R)*SIN(P))
|
||||
|
||||
|
||||
# CALL CALCGTA TO COMPUTE DESIRED SM ORIENTATION OGC,IGC, AND MGC
|
||||
# _ _ _
|
||||
# FIND DIFFERENCE VECTOR DELTACDU = OGC-CDUX
|
||||
#
|
||||
#
|
||||
# ENTER HERE IF ATTITUDE HOLD
|
||||
|
||||
NOPOLYM VLOAD PUSH # OGC IGC
|
||||
@ -619,7 +619,7 @@ NOPOLYM VLOAD PUSH # OGC IGC
|
||||
4
|
||||
GOTO
|
||||
ATTDISP2
|
||||
|
||||
|
||||
SETLOC P11ONE
|
||||
BANK
|
||||
COUNT 34/P11
|
||||
@ -649,7 +649,7 @@ ATTDISP2 STODL 16D # 16D, .5(DPHI + DTHETA*SIN(CDUZ))
|
||||
16D
|
||||
STORE AK # STORE ATTITUDE ERRORS IN AK,AK1,AK2
|
||||
EXIT
|
||||
|
||||
|
||||
CA SATSW
|
||||
CCS A # CHK TAKEOVER STATUS
|
||||
TC SATOUT # POS -- DISPLAY ONLY
|
||||
@ -713,7 +713,7 @@ TAKEON CAF BIT9 # ENABLE
|
||||
WOR CHAN12 # TAKEOVER
|
||||
CA ZERO # INDICATE NEEDLER
|
||||
TS SATSW # WAS INITIALIZED
|
||||
TC SATOUT
|
||||
TC SATOUT
|
||||
S11.1 VLOAD ABVAL
|
||||
VN
|
||||
STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC
|
||||
@ -751,7 +751,7 @@ DELSTOR CA BOOSTEMP
|
||||
TCF DANZIG
|
||||
RLTST CA MPAC # DETERMINE IF ROLLOUT
|
||||
EXTEND # IS COMPLETED
|
||||
MP SATRLRT +1
|
||||
MP SATRLRT +1
|
||||
EXTEND
|
||||
BZMF DANZIG # UNLIKE SIGNS STILL ROLLING
|
||||
EXTEND # ROLLOUT COMPLETED
|
||||
@ -772,7 +772,7 @@ RESCALES EXTEND # RESCALE AK S FOR
|
||||
|
||||
# SATURN TAKEOVER FUNCTION
|
||||
# ************************
|
||||
#
|
||||
#
|
||||
# PROGRAM DESCRIPTION
|
||||
#
|
||||
# MOD NUMBER 1
|
||||
@ -842,7 +842,7 @@ RESCALES EXTEND # RESCALE AK S FOR
|
||||
BANK 43
|
||||
SETLOC EXTVERBS
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 23/STTKE
|
||||
SATSTKON EXTEND
|
||||
DCA 2REDOSAT
|
||||
@ -857,7 +857,7 @@ SATSTKON EXTEND
|
||||
CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED
|
||||
RELINT
|
||||
TC GOPIN # EXIT THUS BECAUSE WE CAME VIA V46
|
||||
|
||||
|
||||
SBANK= PINSUPER # Added RSB 2009
|
||||
EBANK= BODY3
|
||||
2REDOSAT 2CADR REDOSAT
|
||||
@ -867,7 +867,7 @@ SATSTKON EXTEND
|
||||
BANK 32
|
||||
SETLOC P11FOUR
|
||||
BANK
|
||||
|
||||
|
||||
REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
|
||||
EXTEND
|
||||
QXCH QRUPT
|
||||
@ -885,13 +885,13 @@ REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
|
||||
CAF 100MST5 # IN 100 MSECS
|
||||
TS TIME5
|
||||
TCF RESUME # END OF SATURN STICK INITIALIZATION
|
||||
|
||||
|
||||
# THIS SECTION IS EXECUTED EVERY 100 MSECS.
|
||||
# Page 550
|
||||
SATSTICK LXCH BANKRUPT
|
||||
EXTEND
|
||||
QXCH QRUPT
|
||||
|
||||
|
||||
CAF 2SATSTCK # SET UP RUPT
|
||||
TS T5LOC # LO ORDER LOC SET
|
||||
CAF 100MST5 # 100 MSECS
|
||||
@ -902,7 +902,7 @@ SATSTICK LXCH BANKRUPT
|
||||
MASK STIKBITS
|
||||
TC IBNKCALL # SET RATE INDICES
|
||||
CADR STICKCHK # FOR PITCH YAW AND ROLL
|
||||
|
||||
|
||||
INDEX RMANNDX # SET SATURN RATES
|
||||
CA SATRATE
|
||||
TS AK # ROLL
|
||||
@ -912,11 +912,11 @@ SATSTICK LXCH BANKRUPT
|
||||
INDEX YMANNDX
|
||||
CA SATRATE
|
||||
TS AK2 # YAW
|
||||
|
||||
|
||||
TC IBNKCALL # FOR SATURN INTERFACE AND FDAI DISPLAY
|
||||
CADR NEEDLER
|
||||
CADR NEEDLER
|
||||
TCF RESUME # END OF SATURN STICK CONTROL
|
||||
|
||||
|
||||
STIKBITS OCT 00077
|
||||
100MST5 DEC 16374
|
||||
EBANK= BODY3
|
||||
|
||||
Reference in New Issue
Block a user