Trim whitespace
This commit is contained in:
James Harris
@ -9,7 +9,7 @@
|
||||
# Website: http://www.ibiblio.org/apollo.
|
||||
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
||||
# name, and Comanche 055 page images.
|
||||
# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT,
|
||||
# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT,
|
||||
# GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT,
|
||||
# V853 -> VB53, R56A -> R56A1 (some places
|
||||
# only), added missing R56A1 label, added a
|
||||
@ -19,11 +19,11 @@
|
||||
# TC PHASCHNG. In R53C, a CADR GOFLASHR was
|
||||
# corrected to CADR GOFLASH.
|
||||
#
|
||||
# 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
|
||||
#
|
||||
@ -137,7 +137,7 @@ P54 = PROG52
|
||||
SBANK= LOWSUPER
|
||||
EBANK= SAC
|
||||
COUNT 15/P52
|
||||
|
||||
|
||||
PROG52 TC PHASCHNG
|
||||
OCT 00254
|
||||
TC DOWNFLAG
|
||||
@ -159,7 +159,7 @@ P52B CAF BIT1
|
||||
TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
|
||||
CADR GOPERF4R
|
||||
TC GOTOP00H
|
||||
TC +5
|
||||
TC +5
|
||||
TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
|
||||
TC PHASCHNG
|
||||
OCT 00014
|
||||
@ -186,7 +186,7 @@ P52T EXTEND
|
||||
EXTEND
|
||||
BZF +2
|
||||
TCF +4
|
||||
|
||||
|
||||
EXTEND
|
||||
DCA TIME2
|
||||
DXCH DSPTEM1
|
||||
@ -252,7 +252,7 @@ P52I TC ALARM
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC P52F # PROCEED: DO FINE ALIGN-R51
|
||||
TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
|
||||
TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
|
||||
V06N34 VN 0634
|
||||
VB06N22 VN 00622
|
||||
COARSTYP CAF OCT13
|
||||
@ -311,7 +311,7 @@ V16N20 VN 1620
|
||||
ALRM15 EQUALS OCT15
|
||||
SETLOC P50S2
|
||||
BANK
|
||||
V06N89* VN 0689
|
||||
V06N89* VN 0689
|
||||
|
||||
# NAME -- P52LS
|
||||
#
|
||||
@ -353,21 +353,21 @@ P52LS STQ SET
|
||||
STODL 0D
|
||||
TSIGHT
|
||||
STCALL 6D
|
||||
# Page 743
|
||||
# Page 743
|
||||
RP-TO-R
|
||||
VSR2
|
||||
STODL ALPHAV
|
||||
STODL ALPHAV
|
||||
TSIGHT
|
||||
CALL
|
||||
LAT-LONG
|
||||
CALL
|
||||
LLASRD
|
||||
EXIT
|
||||
LSDISP CAF V06N89*
|
||||
LSDISP CAF V06N89*
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC +2
|
||||
TC +2
|
||||
TC LSDISP
|
||||
TC INTPRET
|
||||
CALL
|
||||
@ -393,7 +393,7 @@ LSDISP CAF V06N89*
|
||||
QMAJ
|
||||
SETLOC P50S1
|
||||
BANK
|
||||
|
||||
|
||||
# NAME: AUTOMATIC OPTICS POSITIONING ROUTINE
|
||||
#
|
||||
# FUNCTION: (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
|
||||
@ -418,7 +418,7 @@ LSDISP CAF V06N89*
|
||||
# 6. SR52.1
|
||||
|
||||
COUNT 15/R52
|
||||
|
||||
|
||||
R52 STQ CLEAR
|
||||
SAVQR52
|
||||
ADVTRK
|
||||
@ -456,7 +456,7 @@ R52JA CAF BIT10 # IS THIS A LEM
|
||||
MASK STATE
|
||||
CCS A
|
||||
TCF R52E # YES
|
||||
# Page 745
|
||||
# Page 745
|
||||
CAF V06N92 # NO
|
||||
TC BANKCALL
|
||||
CADR GODSPR
|
||||
@ -492,19 +492,19 @@ R52HA TC BANKCALL
|
||||
MASK BIT5
|
||||
EXTEND # TRACKFLG
|
||||
BZF R52Q
|
||||
|
||||
|
||||
CS STATE +1
|
||||
MASK BIT7 # UPDATFLG
|
||||
CCS A
|
||||
TCF R52SYNC
|
||||
|
||||
|
||||
R52I CA STATE +5
|
||||
MASK BIT10
|
||||
CCS A
|
||||
TC R52D # PRFTRKAT = 1
|
||||
R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME
|
||||
TCF R52F +1
|
||||
|
||||
|
||||
R52J TC DOWNFLAG # CLEAR TRUNFLAG
|
||||
ADRES TRUNFLAG # BIT 4 FLAG 0
|
||||
# Page 746
|
||||
@ -520,22 +520,22 @@ R52M CAF BIT6 # IS R53FLAG SET
|
||||
TC FINDVAC
|
||||
EBANK= SAC
|
||||
2CADR R53JOB
|
||||
|
||||
|
||||
RELINT
|
||||
TCF R52F
|
||||
R53JOB TC INTPRET
|
||||
CALL
|
||||
R53
|
||||
ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
|
||||
TC ENDOFJOB
|
||||
TC ENDOFJOB
|
||||
V06N92 VN 00692
|
||||
V06N89A VN 0689
|
||||
SHAXIS 2DEC .5376381241 B-1
|
||||
|
||||
2DEC 0
|
||||
|
||||
|
||||
2DEC .8431766920 B-1
|
||||
|
||||
|
||||
R52L CAF BIT10 # IS THIS A LEM
|
||||
MASK STATE +1
|
||||
CCS A
|
||||
@ -547,7 +547,7 @@ R52L CAF BIT10 # IS THIS A LEM
|
||||
TCF R52F # PROCEED
|
||||
TCF R52F # NO PROVISION FOR NEW DATA
|
||||
TCF ENDOFJOB
|
||||
|
||||
|
||||
OCT404 OCT 404
|
||||
1.8SEC DEC 180
|
||||
|
||||
@ -560,12 +560,12 @@ TERM52 TC CLEARMRK
|
||||
|
||||
CAF ZERO
|
||||
TS OPTCADR
|
||||
|
||||
|
||||
TC BANKCALL # CLEAR OUT EXTENDED VERBS
|
||||
CADR KLEENEX
|
||||
|
||||
|
||||
TC GOTOP00H # NO GO TO P00
|
||||
|
||||
|
||||
ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
|
||||
SAVQR52
|
||||
ADVTRK
|
||||
@ -632,7 +632,7 @@ ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
|
||||
# Page 749
|
||||
SETLOC P50S1
|
||||
BANK
|
||||
|
||||
|
||||
COUNT* $$/S50
|
||||
|
||||
LOCSAM = S50
|
||||
@ -721,9 +721,9 @@ RSUBE 2DEC 6378166 B-29
|
||||
ECLIPOL 2DEC 0 # *
|
||||
|
||||
2DEC -.00007896 B-1 # *
|
||||
|
||||
|
||||
2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY
|
||||
|
||||
|
||||
TSIGHT1 2DEC 24000
|
||||
|
||||
CEARTH = 14D
|
||||
@ -775,7 +775,7 @@ CSSUN 2DEC .24148 # (COS 15)/4
|
||||
# STARAD -- STAR +5
|
||||
|
||||
COUNT 14/PICAP
|
||||
|
||||
|
||||
SETLOC P50S1
|
||||
BANK
|
||||
PICAPAR TC MAKECADR
|
||||
@ -834,7 +834,7 @@ PIC4 VLOAD* CALL
|
||||
BMN DAD
|
||||
PIC3
|
||||
CSS6640 # SEPARATION MORE THAN 40 DEG.
|
||||
BPL
|
||||
BPL
|
||||
PIC3
|
||||
# Page 754
|
||||
VLOAD* DOT
|
||||
@ -920,7 +920,7 @@ PICBXT CA QMIN
|
||||
# SUBROUTINES -- R52, R54, R55 (SXTNB, NBSM, AXISGEN)
|
||||
|
||||
COUNT 14/R51
|
||||
|
||||
|
||||
R51 EXIT
|
||||
CAF BIT1
|
||||
TS STARIND
|
||||
@ -1014,10 +1014,10 @@ R51K EXIT
|
||||
TC +3
|
||||
TC BANKCALL
|
||||
CADR P52C
|
||||
# Page 758
|
||||
# Page 758
|
||||
TC INTPRET
|
||||
GOTO
|
||||
ENDP50S
|
||||
ENDP50S
|
||||
R51.4 TC INTPRET
|
||||
MXV UNIT
|
||||
REFSMMAT
|
||||
@ -1048,7 +1048,7 @@ V01N70 VN 0170
|
||||
|
||||
SETLOC P50S
|
||||
BANK
|
||||
COUNT* $$/R55
|
||||
COUNT* $$/R55
|
||||
R55 STQ
|
||||
QMIN
|
||||
CALL
|
||||
@ -1135,7 +1135,7 @@ CHKSB VLOAD* DOT* # CAL. ANGLE THETA
|
||||
CHKSD DLOAD DSU
|
||||
THETA # COMPUTE POS DIFF
|
||||
18D
|
||||
ABS RTB
|
||||
ABS RTB
|
||||
SGNAGREE
|
||||
STORE NORMTEM1
|
||||
SET EXIT
|
||||
@ -1143,10 +1143,10 @@ CHKSD DLOAD DSU
|
||||
CAF ZERO
|
||||
TC BANKCALL
|
||||
CADR CLEANDSP
|
||||
|
||||
|
||||
CAF VB6N5
|
||||
# Page 761
|
||||
TC BANKCALL
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H
|
||||
TC CHKSDA # PROCEED
|
||||
@ -1160,7 +1160,7 @@ CHKSDA TC INTPRET
|
||||
VB6N5 VN 605
|
||||
|
||||
# NAME -- CAL53A
|
||||
# FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY
|
||||
# FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY
|
||||
# CALLING SEQUENCE -- CALL CAL53A
|
||||
# INPUT -- PRESENT GIMBAL ANGLES -- CDUX, CDUY, CDUZ
|
||||
# DESIRED GIMBAL ANGLES -- THETAD,+1,+2
|
||||
@ -1168,7 +1168,7 @@ VB6N5 VN 605
|
||||
# SUBROUTINES -- 1.IMUCOARS, 2.IMUSTALL, 3CURTAINS
|
||||
|
||||
COUNT 14/R50
|
||||
|
||||
|
||||
CAL53A CALL
|
||||
S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES
|
||||
RTB SSP
|
||||
@ -1197,7 +1197,7 @@ COARFINE EXIT
|
||||
CADR IMUCOARS # PERFORM COARSE ALIGNMENT
|
||||
TC BANKCALL
|
||||
CADR IMUSTALL # REQUEST MODE SWITCH
|
||||
# Page 762
|
||||
# Page 762
|
||||
TC CURTAINS
|
||||
TC BANKCALL
|
||||
CADR IMUFIN20
|
||||
@ -1232,7 +1232,7 @@ MATMOVE VLOAD* # TRANSFER MATRIX
|
||||
STORE 12D,2
|
||||
RVQ
|
||||
DEGREE1 DEC 46
|
||||
DEG359 DEC 16338
|
||||
DEG359 DEC 16338
|
||||
SETLOC P50S
|
||||
BANK
|
||||
RDCDUS INHINT # READ CDUS
|
||||
@ -1264,7 +1264,7 @@ RDCDUS INHINT # READ CDUS
|
||||
SETLOC P50S2
|
||||
BANK
|
||||
COUNT 14/INFLT
|
||||
|
||||
|
||||
CALCSMSC DLOAD DMP
|
||||
SINCDUY
|
||||
COSCDUZ
|
||||
@ -1304,7 +1304,7 @@ CALCSMSC DLOAD DMP
|
||||
XNB
|
||||
STORE YNB
|
||||
RVQ
|
||||
|
||||
|
||||
# NAME -- P51 -- IMU ORIENTATION DETERMINATION
|
||||
# MOD. NO. 2 21 DEC 66 LOG SECTION -- P51-P53
|
||||
# Page 764
|
||||
@ -1444,18 +1444,18 @@ CALCSMSC DLOAD DMP
|
||||
BANK
|
||||
COUNT 14/P5153
|
||||
|
||||
P53 EQUALS P51
|
||||
P53 EQUALS P51
|
||||
P51 CS IMODES30
|
||||
MASK BIT9
|
||||
CCS A
|
||||
# Page 767
|
||||
# Page 767
|
||||
TC P51A
|
||||
TC ALARM
|
||||
OCT 210
|
||||
TC GOTOP00H
|
||||
P51A TC BANKCALL
|
||||
CADR R02ZERO
|
||||
|
||||
|
||||
P51AA CAF PRFMSTAQ
|
||||
TC BANKCALL
|
||||
CADR GOPERF1
|
||||
@ -1508,7 +1508,7 @@ P51B TC PHASCHNG
|
||||
EXIT
|
||||
CAF BIT1
|
||||
TS MARKINDX # INITIALIZE FOR ONE MARK
|
||||
|
||||
|
||||
P51C TC PHASCHNG
|
||||
OCT 05024
|
||||
OCT 13000
|
||||
@ -1539,7 +1539,7 @@ P51D VLOAD STADR
|
||||
CALL
|
||||
PLANET
|
||||
STORE PLANVEC
|
||||
# Page 769
|
||||
# Page 769
|
||||
P51E EXIT
|
||||
TC PHASCHNG
|
||||
OCT 05024
|
||||
@ -1593,7 +1593,7 @@ SET1/PDT CA TIME1
|
||||
# Page 770
|
||||
TS 1/PIPADT
|
||||
TCF DANZIG
|
||||
|
||||
|
||||
# Page 771
|
||||
# SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
|
||||
|
||||
@ -1645,7 +1645,7 @@ MKDNCDR ECADR MARKDOWN
|
||||
# THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
|
||||
#
|
||||
# SUBROUTINES CALLED
|
||||
#
|
||||
#
|
||||
# SXTMARK
|
||||
# OPTSTALL
|
||||
# GOFLASH
|
||||
@ -1667,9 +1667,9 @@ MKDNCDR ECADR MARKDOWN
|
||||
|
||||
SETLOC RT53
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 14/R53
|
||||
|
||||
|
||||
R53 STQ SET # SET SIGHTING MARK FLAG
|
||||
R53EXIT
|
||||
R53FLAG
|
||||
@ -1703,7 +1703,7 @@ R53B TC CHECKMM
|
||||
TCF R53D
|
||||
R53C1 CAF ZERO
|
||||
TC BANKCALL
|
||||
CADR CLEANDSP
|
||||
CADR CLEANDSP
|
||||
R53C CAF V01N71
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
@ -1748,9 +1748,9 @@ NEG47 OCT 77730
|
||||
|
||||
SETLOC S52/2
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 13/S52.2
|
||||
S52.2 STQ
|
||||
S52.2 STQ
|
||||
QMAJ
|
||||
CALL
|
||||
CDUTRIG
|
||||
@ -1786,7 +1786,7 @@ S52.2.1 AXC,1 AXC,2
|
||||
#
|
||||
# TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
|
||||
# LEM, STAR, OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
|
||||
# 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
|
||||
# 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
|
||||
# THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
|
||||
# THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
|
||||
# POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
|
||||
@ -1842,7 +1842,7 @@ S52.2.1 AXC,1 AXC,2
|
||||
# Page 776
|
||||
SETLOC SR52/1
|
||||
BANK
|
||||
|
||||
|
||||
SR52.1 TC MAKECADR
|
||||
TS QMIN
|
||||
TC INTPRET
|
||||
@ -1951,7 +1951,7 @@ ADVTRACK SETPD
|
||||
VLOAD VXV
|
||||
VATT
|
||||
RATT
|
||||
UNIT
|
||||
UNIT
|
||||
STOVL 24D # SAVE -UNIT(VxR) FOR 2ND ROTATION
|
||||
RATT
|
||||
UNIT VCOMP
|
||||
@ -1984,7 +1984,7 @@ ADVTRACK SETPD
|
||||
0
|
||||
STCALL STAR # STORE FINAL LOS IN STAR
|
||||
COM52 # RETURN TO SR52.1
|
||||
|
||||
|
||||
ROTA DLOAD SIN
|
||||
AOPTIME
|
||||
PDVL VXV # PUSH 1/2SIN(A) PD 6-7
|
||||
@ -2006,7 +2006,7 @@ ROTA DLOAD SIN
|
||||
UNIT SETPD
|
||||
0
|
||||
PUSH RVQ
|
||||
|
||||
|
||||
DP1/6 2DEC .16666666
|
||||
|
||||
MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16
|
||||
@ -2025,8 +2025,8 @@ MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16
|
||||
|
||||
SETLOC P50S2
|
||||
BANK
|
||||
|
||||
COUNT 15/S52.3
|
||||
|
||||
COUNT 15/S52.3
|
||||
S52.3 STQ
|
||||
QMAJ
|
||||
STCALL TDEC1
|
||||
@ -2095,11 +2095,11 @@ R56 STQ EXIT
|
||||
TC -5 # ENTER: NEW ANGLES
|
||||
R56A TC BANKCALL
|
||||
CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA
|
||||
|
||||
|
||||
CAF ZERO
|
||||
TC BANKCALL
|
||||
CADR CLEANDSP
|
||||
|
||||
|
||||
R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
|
||||
TC BANKCALL
|
||||
# Page 782
|
||||
@ -2147,13 +2147,13 @@ VB53 VN 05300 # ALTERNATE MARK VERB
|
||||
V06N94B VN 00694
|
||||
SETLOC P50S
|
||||
BANK
|
||||
|
||||
|
||||
PLANET STORE TSIGHT
|
||||
STQ CALL
|
||||
QMIN
|
||||
LOCSAM
|
||||
VLOAD
|
||||
# Page 783
|
||||
# Page 783
|
||||
VEARTH
|
||||
STOVL 0D
|
||||
VSUN
|
||||
@ -2181,7 +2181,7 @@ NOSAM EXIT
|
||||
STARSAV3
|
||||
1/SQR3
|
||||
UNIT GOTO
|
||||
CORPLAN
|
||||
CORPLAN
|
||||
NOTPLAN CS A
|
||||
AD DEC227
|
||||
EXTEND
|
||||
@ -2204,7 +2204,7 @@ CALSAM1 TC INTPRET
|
||||
CORPLAN VAD UNIT
|
||||
VEL/C
|
||||
GOTO
|
||||
# Page 784
|
||||
# Page 784
|
||||
QMIN
|
||||
DEC227 DEC 227
|
||||
VNPLANV VN 0688
|
||||
|
||||
Reference in New Issue
Block a user