Trim whitespace
This commit is contained in:
James Harris
@ -7,12 +7,12 @@
|
||||
# Contact: Ron Burkey <info@sandroid.org>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 562-534
|
||||
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
|
||||
# of the same name, using Comanche055 page
|
||||
# images.
|
||||
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
|
||||
# of the same name, using Comanche055 page
|
||||
# images.
|
||||
# 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ,
|
||||
# GOTOPOOH -> GOTOP00H, a duplicated EXTEND
|
||||
# was fixed, P23.10 -> R23.10,
|
||||
# was fixed, P23.10 -> R23.10,
|
||||
# S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL,
|
||||
# S22DPP -> S22DSPP, changed some instructions in
|
||||
# P23.152.
|
||||
@ -23,13 +23,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
|
||||
@ -86,7 +86,7 @@
|
||||
BANK 33
|
||||
SETLOC P20S
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= ESTROKER
|
||||
COUNT* $$/P20
|
||||
|
||||
@ -110,7 +110,7 @@ PROG20 TC BANKCALL
|
||||
TC 2PHSCHNG
|
||||
OCT 4
|
||||
OCT 05022
|
||||
OCT 26000
|
||||
OCT 26000
|
||||
TC INTPRET
|
||||
RTB
|
||||
LOADTIME
|
||||
@ -141,7 +141,7 @@ P20.3 CALL
|
||||
TC FINDVAC
|
||||
EBANK= MRKBUF2
|
||||
2CADR R22
|
||||
|
||||
|
||||
TC 2PHSCHNG
|
||||
OCT 00072
|
||||
OCT 00111
|
||||
@ -183,10 +183,10 @@ FIRST3 EQUALS FURST3
|
||||
BANK 31
|
||||
SETLOC P20S1
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= LANDMARK
|
||||
COUNT* $$/P22
|
||||
|
||||
|
||||
PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
|
||||
ADRES RNDVZFLG
|
||||
TC BANKCALL
|
||||
@ -269,7 +269,7 @@ V05N7022 VN 00570
|
||||
V05N7122 VN 00571
|
||||
SETLOC P20S
|
||||
BANK
|
||||
|
||||
|
||||
SETLOC P20S1
|
||||
BANK
|
||||
|
||||
@ -284,7 +284,7 @@ S22LSITE RTB # CONVERT RLS FROM MOON-FIXED TO BASIC REF
|
||||
RP-TO-R # RLS IN BASIC REF B-27 IN MPAC
|
||||
VSR2 # LUNAFLAG AND ERADFLAG SET ABOVE
|
||||
STORE ALPHAV # SCALE RLS B-29 FOR LAT-LONG
|
||||
RTB
|
||||
RTB
|
||||
LOADTIME # SET PRESENT TIME IN MPAC FOR LAT-LONG
|
||||
CALL
|
||||
LAT-LONG
|
||||
@ -383,7 +383,7 @@ S22ABDE TC INTPRET
|
||||
22SUBSCL # =0 GET LLA FROM ASTRO, NOT=0 USE RLS
|
||||
BHIZ GOTO
|
||||
OBTAINLL # GET LAT/LONG/ALT FROM ASTRO N89
|
||||
# Page 569
|
||||
# Page 569
|
||||
S22LSITE # GET LAT/LONG/ALT FROM RLS
|
||||
DE-GR-50 TC 2PHSCHNG
|
||||
OCT 00004
|
||||
@ -482,7 +482,7 @@ ENDR57 TC DOWNFLAG # RESET V59FLAG
|
||||
TC NOVAC # THIS JOB CLEARS BIT IN
|
||||
EBANK= MARKSTAT
|
||||
2CADR ENDMARK # MARKING IN R57 SO R53 CAN TAKE OVER
|
||||
|
||||
|
||||
TC INTPRET
|
||||
GOTO
|
||||
EGRESS
|
||||
@ -542,9 +542,9 @@ V51NB VN 5100
|
||||
EBANK= MRKBUF1
|
||||
SETLOC RENDEZ
|
||||
BANK
|
||||
|
||||
|
||||
COUNT* $$/R21
|
||||
|
||||
|
||||
R21CSM TC UPFLAG # SET R21MARK
|
||||
ADRES R21MARK # BIT 14 FLAG 2
|
||||
R23CSM CA NEGONE
|
||||
@ -587,7 +587,7 @@ R21C1 CAF V51NB
|
||||
TC R21END # V34: TERMINATE R21
|
||||
TCF R21CSMA # PROCEED: END R21
|
||||
TCF R21C1 # RECYCLE
|
||||
|
||||
|
||||
R21CSMA CA MRKBUF1 # IF -1 NO MARK
|
||||
AD ONE
|
||||
EXTEND
|
||||
@ -653,7 +653,7 @@ V0694 VN 0694
|
||||
|
||||
EBANK= GENRET
|
||||
COUNT* $$/R61 # ROUTINES -- NAVIGATION -- PREF. TR. 9TT=
|
||||
|
||||
|
||||
R61CSM CAF EBANK6 # SWITCH TO EBANK 6
|
||||
XCH EBANK
|
||||
TS SAVBNK # SAVE EBANK
|
||||
@ -677,7 +677,7 @@ R61C1 TC DOWNFLAG # RESET 3-AXIS FLAG
|
||||
# Page 575
|
||||
CS ONE # SET R61CNTR NEG. TO INDICATE KALCMANU
|
||||
TS R61CNTR
|
||||
|
||||
|
||||
TC UPFLAG # SET FLAG FOR PRIORITY DISPLAYS FOR R60
|
||||
ADRES PDSPFLAG # BIT 12 FLAG 4
|
||||
TC BANKCALL
|
||||
@ -701,7 +701,7 @@ DECRM61 TS R61CNTR
|
||||
BANK 13
|
||||
SETLOC P20S2
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= MRKBUF1
|
||||
# Page 576
|
||||
# BVECTOR PERFORMS COMPUTATIONS FOR
|
||||
@ -737,7 +737,7 @@ DECRM61 TS R61CNTR
|
||||
# L+1 OF CALLING SEQUENCE
|
||||
|
||||
COUNT 23/20SUB
|
||||
|
||||
|
||||
BVECTORS STQ
|
||||
EGRESS
|
||||
VLOAD UNIT
|
||||
@ -798,7 +798,7 @@ PI/4.0 2DEC .785398164
|
||||
# NORMAL EXIT
|
||||
#
|
||||
# L+1 OF CALLING SEQUENCE
|
||||
|
||||
|
||||
GETUM STQ SETPD
|
||||
EGRESS
|
||||
0
|
||||
@ -815,13 +815,13 @@ GETUM STQ SETPD
|
||||
S1 # S1 = MARKDATA(ADR) +2
|
||||
CALL
|
||||
SXTNB # SEXT. ANGULAR READINGS TO NAV. BASE COOR.
|
||||
CALL
|
||||
CALL
|
||||
NBSM # TRANSFORM FROM NAV. BASE TO STABLE MEM.
|
||||
VXM VSL1
|
||||
VXM VSL1
|
||||
REFSMMAT
|
||||
GOTO # MPAC = (UM) LINE OF SIGHT VECTOR
|
||||
EGRESS # EXIT
|
||||
|
||||
|
||||
# Page 579
|
||||
# RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
|
||||
#
|
||||
@ -835,9 +835,9 @@ GETUM STQ SETPD
|
||||
BANK 34
|
||||
SETLOC P20S3
|
||||
BANK
|
||||
|
||||
|
||||
COUNT 34/R22
|
||||
|
||||
|
||||
R22 CAF PRIO26
|
||||
TS PHSPRDT2
|
||||
TC PRIOCHNG
|
||||
@ -849,7 +849,7 @@ R22 CAF PRIO26
|
||||
STORE VHFTIME # PRESENT TIME
|
||||
REND1 CALL
|
||||
GRP2PC
|
||||
CALL
|
||||
CALL
|
||||
WAITONE
|
||||
REND1A EXIT
|
||||
CA MRKBUF2
|
||||
@ -876,7 +876,7 @@ REND3A TC INTPRET
|
||||
REND3 CALL
|
||||
# Page 580
|
||||
GRP2PC
|
||||
CALL
|
||||
CALL
|
||||
WAITONE
|
||||
BOFF
|
||||
VHFRFLAG
|
||||
@ -1140,7 +1140,7 @@ RENDISP EXIT
|
||||
TC NOVAC
|
||||
EBANK= MRKBUF1 # THAN PRESENT JOB
|
||||
2CADR RENDISP2
|
||||
|
||||
|
||||
RENDISP7 TC INTPRET
|
||||
STORE MPAC
|
||||
SLOAD BZE
|
||||
@ -1282,11 +1282,11 @@ CONVRNGE 2DEC 18.52 B-13 # VHF INPUT RANGE CONV. FROM .01 NM TO M
|
||||
|
||||
VHFREAD EXTEND
|
||||
ROR SUPERBNK # MUST SAVE SBANK BECAUSE OF RUPT
|
||||
# Page 588
|
||||
# Page 588
|
||||
TS BANKRUPT # EXITS VIA TASKOVER BADEND OR GOODEND
|
||||
CS ZERO
|
||||
TS RUPTAGN
|
||||
EXTEND
|
||||
EXTEND
|
||||
QXCH QRUPT
|
||||
CS STATE +2
|
||||
MASK SKIPVBIT # SKIPVHF FLAG
|
||||
@ -1312,7 +1312,7 @@ BYPASS TS VHFRANGE # STORE NON ZERO VALUE
|
||||
TC POSTJUMP
|
||||
CADR BADEND
|
||||
BYPASS1 CAF ZERO
|
||||
TC BYPASS
|
||||
TC BYPASS
|
||||
VHFGOOD CAF TWO
|
||||
TC POSTJUMP
|
||||
CADR GOODEND
|
||||
@ -1333,7 +1333,7 @@ SHIFTA BON RVQ
|
||||
INITIALW AXT,1 SSP
|
||||
36D
|
||||
S1
|
||||
# Page 589
|
||||
# Page 589
|
||||
6
|
||||
VLOAD
|
||||
ZEROVECS
|
||||
@ -1362,7 +1362,7 @@ INITB STORE W +90D,1 # CLEAR 54 - 89
|
||||
# AND TO COMPUTE THE X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
|
||||
# COAS TRACKING OF THE LM.
|
||||
#
|
||||
# TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE
|
||||
# TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE
|
||||
# MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
|
||||
# GREATER THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
|
||||
# GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
|
||||
@ -1510,23 +1510,23 @@ INITB STORE W +90D,1 # CLEAR 54 - 89
|
||||
BANK 24
|
||||
SETLOC P20S4
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= CDUXD
|
||||
COUNT* $/CRS61
|
||||
|
||||
|
||||
CRS61.1 STQ SETPD
|
||||
Q611
|
||||
0
|
||||
RTB
|
||||
# Page 593
|
||||
LOADTIME # LOAD CLOCK TIME2,1 INTO MPAC.
|
||||
|
||||
|
||||
STORT STCALL P21TIME # STORE CLOCK TIME FOR SUBR R63
|
||||
R63 # SUBR TO CALC DCDU (T=PRESENT,PASS1)
|
||||
TLOAD
|
||||
THETAD # SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
|
||||
STORE SAVEDCDU
|
||||
|
||||
|
||||
EXIT
|
||||
TC STEP2CK
|
||||
AUTOCK CAF PRIO30
|
||||
@ -1536,7 +1536,7 @@ AUTOCK CAF PRIO30
|
||||
EXTEND # AUTO MODE SELECTED (BITS 15-13=011)
|
||||
BZF DAPCK # YES -- CONTINUE.
|
||||
TC ASET
|
||||
|
||||
|
||||
DAPCK CS FLAGWRD1 # IS STIKFLAG SET (I.E., IS SOMEONE ON RHC)
|
||||
MASK STIKBIT
|
||||
CCS A
|
||||
@ -1546,10 +1546,10 @@ ASET CAF ZERO
|
||||
TC INTPRET # EXIT CRS61.1
|
||||
GOTO
|
||||
Q611
|
||||
|
||||
|
||||
STEP2CK TC BANKCALL
|
||||
CADR UPACTOFF
|
||||
|
||||
|
||||
CAF TWO # SET TEMPORARY INDEX DTHETASM = 2
|
||||
CDULOOP TS DTHETASM
|
||||
INDEX DTHETASM
|
||||
@ -1575,7 +1575,7 @@ STKTEST EXIT
|
||||
CAF BIT3
|
||||
EXTEND # STIKFLG IS SET
|
||||
WOR DSALMOUT # TURN ON UPACTY LIGHT
|
||||
|
||||
|
||||
TC ASET # EXIT AND SET R61CNTR
|
||||
STEP3CK TC INTPRET
|
||||
SETPD
|
||||
@ -1594,11 +1594,11 @@ CRS61.2 VLOAD VSU
|
||||
P21TIME # P21TIME IS TEMP STORE FOR ABSLOS.
|
||||
X1
|
||||
PUSH # NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
|
||||
|
||||
|
||||
DLOAD NORM
|
||||
36D # NORM ABS VALUE OF DV(NUM).
|
||||
S1
|
||||
|
||||
|
||||
XSU,1 SR1 # X1 = X1(N DENOM)-S1(N NUM).
|
||||
S1 # SR1 TO AVOID OFLOW ON DOV.
|
||||
DDV VXSC # ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
|
||||
@ -1627,7 +1627,7 @@ CRS61.2 VLOAD VSU
|
||||
DCDU # (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
|
||||
0 -17D,1 # EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
|
||||
STORE 14D # HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
|
||||
|
||||
|
||||
CALL # COMPUTES SINES AND COSINES FOR *SMNB*
|
||||
CDUTRIG
|
||||
VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
|
||||
@ -1640,7 +1640,7 @@ CRS61.2 VLOAD VSU
|
||||
LXA,1 VSL* # RELOAD X1 TO RECOVER NORMALIZ.
|
||||
Q6111 # (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
|
||||
0 -14D,1 # OBTAIN REVS SCALED AT 450 DEGREES.
|
||||
|
||||
|
||||
CRS61.2A EXIT
|
||||
INHINT
|
||||
CAF ZERO # TRANSFER DESIRED GIMBAL ANGLES
|
||||
@ -1653,7 +1653,7 @@ CRS61.2A EXIT
|
||||
TS CDUYD
|
||||
CA SAVEDCDU +2
|
||||
TS CDUZD
|
||||
|
||||
|
||||
EXTEND # TRANSFER OMEGA CONTROL (ANG. LOS RATE)
|
||||
DCA MPAC # FROM V(MPAC) TO V(WBODY)
|
||||
DXCH WBODY
|
||||
@ -1663,7 +1663,7 @@ CRS61.2A EXIT
|
||||
EXTEND
|
||||
DCA MPAC +5
|
||||
DXCH WBODY2
|
||||
|
||||
|
||||
EXTEND # TRANSFER CDU INCREMENTS
|
||||
INDEX FIXLOC # FROM V(VAC14D) TO V(DELCDUX)
|
||||
DCA 14D
|
||||
@ -1671,7 +1671,7 @@ CRS61.2A EXIT
|
||||
EXTEND
|
||||
INDEX FIXLOC
|
||||
DCA 16D
|
||||
# Page 596
|
||||
# Page 596
|
||||
DXCH DELCDUY
|
||||
EXTEND
|
||||
INDEX FIXLOC
|
||||
@ -1688,7 +1688,7 @@ MANUEXIT TLOAD # ENTER FROM STEP2. ACDU-DCDU EXCEEDS
|
||||
SLOAD GOTO # SPECIAL RETURN (MPAC+0 = 1)
|
||||
LOONE # OCTAL 00001
|
||||
Q611
|
||||
|
||||
|
||||
R63 STQ DLOAD # SUBR TO CALC DCDUS(T)
|
||||
Q6111
|
||||
P21TIME
|
||||
@ -1741,9 +1741,9 @@ CRSTOR1 VLOAD
|
||||
PRFUNIT 2DEC .40957602 # 55 DEG TRACK AXIS UNIT VECTOR
|
||||
|
||||
2DEC 0.0 # FOR USE WITH VECPOINT
|
||||
|
||||
|
||||
2DEC .28678822
|
||||
|
||||
|
||||
DEGREE10 DEC .05556 # 10 DEG IN REVS STEP2
|
||||
RVCS/RDS 2DEC 15.915494 B-4 # 100/2PI REV-CSEC/RAD-SEC.
|
||||
|
||||
@ -1754,21 +1754,21 @@ MAT1B1 2DEC 1.0 B-1
|
||||
MBDYTCTL 2DEC .5 # 7.25 DEG NEGATIVE
|
||||
|
||||
2DEC 0 # X-AXIS ROTATION MATRIX
|
||||
|
||||
|
||||
2DEC 0 # CONVERTS BODY TO CTL
|
||||
|
||||
|
||||
2DEC 0 # AXES. CAME AS QUADROT
|
||||
|
||||
|
||||
2DEC .99200495 B-1 # COS7.25 B1 BUT SCALED B
|
||||
|
||||
|
||||
2DEC -.12619897 B-1 # -SIN7.25 B1
|
||||
|
||||
|
||||
2DEC 0
|
||||
|
||||
|
||||
2DEC .12619897 B-1 # SIN7.25 B1
|
||||
|
||||
|
||||
2DEC .99200495 B-1 # COS7.25 B1
|
||||
|
||||
|
||||
LOONE OCT 00001 # TO SET MPAC = 00001 FOR SPECIAL EXIT.
|
||||
FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
|
||||
|
||||
@ -1807,13 +1807,13 @@ FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
|
||||
# TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
|
||||
|
||||
BANK 13
|
||||
|
||||
|
||||
SETLOC P20S6
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= LANDMARK
|
||||
COUNT 35/LUORB
|
||||
|
||||
|
||||
S22.1 STQ SSP
|
||||
S22RTNEX
|
||||
S1
|
||||
@ -1853,7 +1853,7 @@ S22SHIFT SXA,1 SETPD
|
||||
0D
|
||||
FIG2EXIT CALL
|
||||
INTSTALL
|
||||
CALL
|
||||
CALL
|
||||
S22FLGS
|
||||
# FLOWCHART D=0 THEN DIM0FLAG=0, D6O9FLG NOT TESTED
|
||||
# FLOWCHART D=6 THEN DIM0FLAG=1, D60R9FLG=0
|
||||
@ -1912,7 +1912,7 @@ DMPINTEG SLOAD PUSH # TEST OFF=I
|
||||
S22D=9
|
||||
CALL
|
||||
GRP2PC
|
||||
SET
|
||||
SET
|
||||
ORBWFLAG
|
||||
SET SET
|
||||
DMENFLG # =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
|
||||
@ -2062,7 +2062,7 @@ S22W78X DLOAD DSQ
|
||||
PDDL DSQ
|
||||
W +144D # W72
|
||||
DAD
|
||||
BDSU BMN
|
||||
BDSU BMN
|
||||
S22UUT # E0
|
||||
S22SCLW
|
||||
SQRT
|
||||
@ -2231,7 +2231,7 @@ CLRW678 STORE W +162D,1
|
||||
S22WSUBL
|
||||
STORE W +144D
|
||||
STORE W +152D
|
||||
# Page 607
|
||||
# Page 607
|
||||
STORE W +160D
|
||||
CLEAR BOFF # SET LUNAFLAG, TIME FOR LALOTORV
|
||||
LUNAFLAG # ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
|
||||
@ -2324,7 +2324,7 @@ S22.981X TC INTPRET
|
||||
S22EXEX TC INTPRET # WITHOUT CONVERTING W
|
||||
GOTO
|
||||
S22RTNEX
|
||||
|
||||
|
||||
S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H
|
||||
CALL
|
||||
9DWTO6DW
|
||||
@ -2333,7 +2333,7 @@ S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H
|
||||
S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
|
||||
0D
|
||||
CSMPOS # RC B-29 EARTH, B-27 MOON
|
||||
# Page 609
|
||||
# Page 609
|
||||
UNIT DOT # UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
|
||||
UM
|
||||
SL1 DCOMP # GSOP CHANGE 8/18/67
|
||||
@ -2352,7 +2352,7 @@ S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
|
||||
DMP # DMP RESULT B-28 MOON, B-30 EARTH
|
||||
36D # VXSC RESULT B-29 MOON, B-31 EARTH
|
||||
STORE S22RHO # RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
|
||||
VXSC
|
||||
VXSC
|
||||
UM
|
||||
VSL2 VAD # SCALE B-27 MOON, B-29 EARTH AND ADD RC
|
||||
CSMPOS
|
||||
@ -2368,7 +2368,7 @@ S22CALRC LXA,1 VLOAD # COMPUTE RC B-29 OR B-27
|
||||
RVQ
|
||||
SETLOC P22S
|
||||
BANK
|
||||
|
||||
|
||||
S2231X13 STORE S221X3 # MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
|
||||
SSP AXT,2 # S22UMRL - S22UMRL+17D
|
||||
S2
|
||||
@ -2384,7 +2384,7 @@ S2231NXT VLOAD VXSC*
|
||||
DEC -6
|
||||
S2231NXT
|
||||
RVQ
|
||||
# Page 610
|
||||
# Page 610
|
||||
GETTF LXC,1 DLOAD* # SET MPAC= TF
|
||||
S22LOC
|
||||
0,1
|
||||
@ -2397,7 +2397,7 @@ S22FLGS SET SET # INTEGRATION FLAGS
|
||||
STATEFLG
|
||||
CLEAR RVQ
|
||||
INTYPFLG
|
||||
|
||||
|
||||
# SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
|
||||
# PRIOR TO DISPLAY.
|
||||
|
||||
@ -2421,7 +2421,7 @@ LLASRDA DLOAD # ALT, LANDALT METERS B-29
|
||||
RVQ
|
||||
SETLOC P20S6
|
||||
BANK
|
||||
|
||||
|
||||
9DWTO6DW STQ SETPD
|
||||
9DWXX
|
||||
0D
|
||||
@ -2486,7 +2486,7 @@ LLASRDA DLOAD # ALT, LANDALT METERS B-29
|
||||
6
|
||||
CLEARW54 STORE W +108D,1
|
||||
TIX,1
|
||||
# Page 612
|
||||
# Page 612
|
||||
CLEARW54
|
||||
9DWI=JA LXA,1 SXA,1 # I=J
|
||||
9DWJ
|
||||
@ -2537,7 +2537,7 @@ TST2I=0 SLOAD BHIZ # TEST I=0
|
||||
2
|
||||
SXA,1 LXC,1
|
||||
9DWP
|
||||
# Page 613
|
||||
# Page 613
|
||||
9DWI
|
||||
XSU,1 BOV # -(I+N)
|
||||
9DWN
|
||||
@ -2588,7 +2588,7 @@ ROWDOT SSP BOV
|
||||
9DWJ
|
||||
DLOAD PUSH
|
||||
HI6ZEROS
|
||||
# Page 614
|
||||
# Page 614
|
||||
ROWDOT1 DLOAD* DMPR*
|
||||
W,1
|
||||
W,2
|
||||
@ -2669,7 +2669,7 @@ S22UOFF = LEMPOS # 6 U SUB OFF
|
||||
# 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
|
||||
#
|
||||
# R63COMP JOB:
|
||||
#
|
||||
#
|
||||
# UPDATE CSM AND LM STATE VECTORS USING CONIC EQUATIONS
|
||||
#
|
||||
# CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
|
||||
@ -2703,7 +2703,7 @@ DP1MIN 2DEC 6000
|
||||
SETLOC P20S4
|
||||
BANK
|
||||
COUNT* $$/R63
|
||||
|
||||
|
||||
V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
|
||||
CADR R02BOTH # KNOWN. ALARMS IF NOT.
|
||||
CAF THREE # ALLOW ASTRONAUT TO SELECT DESIRED
|
||||
@ -2742,11 +2742,11 @@ V89RECL TC INTPRET
|
||||
TC BANKCALL # PERFORMS CSM MANEUVER TO ALIGN SELECTED
|
||||
CADR R60CSM # SPACECRAFT AXIS TO LOS.
|
||||
TCF ENDEXT
|
||||
|
||||
|
||||
SETPAF TC UPFLAG # SET PREFERRED ATT FLAG FOR R63COMP
|
||||
ADRES RNGSCFLG # TO DO PREF AXIS. SET BIT 10 FLAG 5.
|
||||
TC V89RECL
|
||||
|
||||
|
||||
VB04N06 VN 0406
|
||||
VB06N18 VN 0618
|
||||
|
||||
@ -2757,7 +2757,7 @@ R63COMP EQUALS R63
|
||||
# MOD NO:
|
||||
# MOD BY: TOM KNATT
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION: DO MIDCOURSE NAVIGATION BY INCORPORATION OF
|
||||
# FUNCTIONAL DESCRIPTION: DO MIDCOURSE NAVIGATION BY INCORPORATION OF
|
||||
# STAR/EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
|
||||
#
|
||||
# CALLING SEQUENCE: ASTRONAUT OPERATED
|
||||
@ -2775,7 +2775,7 @@ R63COMP EQUALS R63
|
||||
# REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ONE
|
||||
#
|
||||
# INPUTS BY USER REQUIRED: STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB.
|
||||
# IF LANDMARK IS USED, NEAR OR FAR HORIzON IF HORIZON IS USED, AND
|
||||
# IF LANDMARK IS USED, NEAR OR FAR HORIzON IF HORIZON IS USED, AND
|
||||
# BODY TO BE MARKED ON (EARTH OR MOON). SEE GSOP CHAPT 4.
|
||||
#
|
||||
# OUTPUT: UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
|
||||
@ -2792,7 +2792,7 @@ R63COMP EQUALS R63
|
||||
EBANK= W
|
||||
P23 TC DOWNFLAG
|
||||
ADRES RNDVZFLG
|
||||
|
||||
|
||||
TC 2PHSCHNG
|
||||
OCT 00004 # LEAVE GROUP 4
|
||||
OCT 00012 # ENTER GROUP 2
|
||||
@ -2853,7 +2853,7 @@ P23.152 MASK BITS7-9 # IS C EQUAL TO 1 OR 2
|
||||
TC R23.10
|
||||
TC UPFLAG
|
||||
ADRES LUNAFLAG
|
||||
TCF +3
|
||||
TCF +3
|
||||
P23.16 TC DOWNFLAG
|
||||
ADRES LUNAFLAG
|
||||
CA STARCODE # IS STARCODE GREATER THAN OR
|
||||
@ -2865,8 +2865,8 @@ P23.16 TC DOWNFLAG
|
||||
EXTEND
|
||||
BZMF +2
|
||||
TC R23.10
|
||||
# Page 621
|
||||
|
||||
# Page 621
|
||||
|
||||
TC INTPRET
|
||||
P23.17 SLOAD BZE
|
||||
STARCODE
|
||||
@ -2917,7 +2917,7 @@ P23.31 BON EXIT
|
||||
P23.55 TC INTPRET
|
||||
GOTO
|
||||
P23.56
|
||||
# Page 622
|
||||
# Page 622
|
||||
|
||||
# VERB 94 BEGINS HERE
|
||||
V94ENTER TC INTPRET
|
||||
@ -2996,7 +2996,7 @@ P23.85 CLEAR CALL
|
||||
# WE BEGIN CALCULATIONS HERE
|
||||
# POINTAXIS SUBROUTINE
|
||||
|
||||
POINTAXS STQ
|
||||
POINTAXS STQ
|
||||
POINTEX
|
||||
R23.05 BON DLOAD
|
||||
ORBWFLAG
|
||||
@ -3019,10 +3019,10 @@ R23.2 SET CALL
|
||||
TC INTPRET
|
||||
CALL
|
||||
RECT.1 # PICKUP CSM STATE VECTOR FROM PERM
|
||||
BOFF
|
||||
BOFF
|
||||
ZMEASURE # IN SPHERE OF INFLUENCE OF PRIMARY BODY
|
||||
R23.3
|
||||
# Page 624
|
||||
# Page 624
|
||||
DLOAD CALL
|
||||
MARKTIME
|
||||
LUNPOS
|
||||
@ -3030,7 +3030,7 @@ R23.2 SET CALL
|
||||
CMOONFLG
|
||||
+1
|
||||
VAD
|
||||
RZC
|
||||
RZC
|
||||
STORE RZC
|
||||
R23.3 SLOAD BHIZ
|
||||
LANDMARK # IF LANDMARK = 0, USE HORIZ SUBR
|
||||
@ -3202,7 +3202,7 @@ HORIZ.1 VLOAD MXV
|
||||
MPAC
|
||||
STODL 30D
|
||||
0
|
||||
# Page 628
|
||||
# Page 628
|
||||
STODL 34D
|
||||
6 # YH
|
||||
CALL
|
||||
@ -3245,7 +3245,7 @@ HORIZ.1 VLOAD MXV
|
||||
28D # SQRT(A-1)/A
|
||||
DMP SL1
|
||||
6 # YH
|
||||
PDDL
|
||||
PDDL
|
||||
2 # AH
|
||||
STODL 34D
|
||||
0
|
||||
@ -3268,7 +3268,7 @@ HORIZ.1 VLOAD MXV
|
||||
DLOAD DSU
|
||||
20D # XH/A
|
||||
24D # ALPHA
|
||||
PDDL DAD
|
||||
PDDL DAD
|
||||
22D # YH/A
|
||||
26D # BETA
|
||||
PDDL PUSH
|
||||
@ -3375,9 +3375,9 @@ SPSIX OCT 00006
|
||||
JCAXIS 2DEC .2688190620 # 1/2(SIN 32.523 DEG) TRACK AXIS
|
||||
|
||||
2DEC 0
|
||||
|
||||
|
||||
2DEC .4215878460 # 1/2(COS 32.523 DEG)
|
||||
|
||||
|
||||
R60ADRS CADR R60CALL +3
|
||||
NEG37 DEC -37
|
||||
BITS7-9 OCT 700
|
||||
|
||||
Reference in New Issue
Block a user