Proofread first 7 pages of P20-P25.agc
Corresponds to section "RENDEZVOUS NAVIGATION PROGRAM 20"pull/817/head
Dimitri Belopopsky
parent
a49d8e792c
commit
6aa0855ac2
|
|
@ -36,52 +36,38 @@
|
|||
|
||||
# Page 562
|
||||
# RENDEZVOUS NAVIGATION PROGRAM 20
|
||||
#
|
||||
# PROGRAM DESCRIPTION
|
||||
#
|
||||
# MOD NO -- 1
|
||||
# MOD BY -- N. BRODEUR
|
||||
#
|
||||
# MOD NO -1
|
||||
# MOD BY - N.BRODEUR
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
#
|
||||
# TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T
|
||||
# FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM. TO UPDATE EITHER THE
|
||||
# LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY
|
||||
# ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY)
|
||||
#
|
||||
# CALLING SEQUENCE --
|
||||
#
|
||||
# ASTRONAUT REQUEST THROUGH DSKY V37E20E
|
||||
#
|
||||
# SUBROUTINES CALLED
|
||||
#
|
||||
# R02BOTH (IMU STATUS CHECK) BANKCALL
|
||||
# FLAGUP 2PHCHNG LOADTIME
|
||||
# R61CSM (PREFERRED TRACKING ATTITUDE) FLAGDOWN
|
||||
# R52 (AUTO OPTICS POSITIONING ROUT) SETINTG
|
||||
# R22 (REND TRACK DATA PROC ROUT) PRIOCHNG
|
||||
# ENDOFJOB INTEGRV GRP2PC
|
||||
# INTPRET MKRLEES FINDVAC
|
||||
#
|
||||
# NORMAL EXIT MODES --
|
||||
#
|
||||
# P20 MAY BE TERMINATED IN TWO WAYS -- ASTRONAUT SELECTION OF IDLING
|
||||
# PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
|
||||
#
|
||||
# ALARM OR ABORT EXIT MODES --
|
||||
#
|
||||
# NONE DIRECTLY FROM P20
|
||||
# TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T
|
||||
# FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM. TO UPDATE EITHER THE
|
||||
# LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY
|
||||
# ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY)
|
||||
# CALLING SEQUENCE -
|
||||
#
|
||||
# ASTRONAUT REQUEST THROUGH DSKY V37E20E
|
||||
# SUBROUTINES CALLED-
|
||||
# R02BOTH (IMU STATUS CHECK) BANKCALL
|
||||
# FLAGUP 2PHCHNG LOADTIME
|
||||
# R61CSM (PREFERRED TRACKING ATTITUDE) FLAGDOWN
|
||||
# R52 (AUTO OPTICS POSITIONING ROUT) SETINTG
|
||||
# R22 (REND TRACK DATA PROC ROUT) PRIOCHNG
|
||||
# ENDOFJOB INTEGRV GRP2PC
|
||||
# INTPRET MKRLEES FINDVAC
|
||||
# NORMAL EXIT MODES-
|
||||
# P20 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
|
||||
# PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
|
||||
# ALARM OR ABORT EXIT MODES-
|
||||
# NONE DIRECTLY FROM P20
|
||||
# OUTPUT
|
||||
#
|
||||
# TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
|
||||
# VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
|
||||
#
|
||||
# TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
|
||||
# VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
|
||||
# FLAGS SET + RESET
|
||||
#
|
||||
# RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG
|
||||
# HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ
|
||||
# STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR
|
||||
# RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG
|
||||
# HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ
|
||||
# STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR
|
||||
|
||||
BANK 33
|
||||
SETLOC P20S
|
||||
|
|
@ -99,16 +85,16 @@ PROG20 TC BANKCALL
|
|||
TC UPFLAG # SET PREF TRACK ATT FLAG
|
||||
ADRES PRFTRKAT # BIT 10 FLAG 5
|
||||
TC DOWNFLAG # LEM TO BE UPDATED. VEHUPFLG RESET.
|
||||
ADRES VEHUPFLG # BIT 8 FLAG 1
|
||||
ADRES VEHUPFLG # BIT 8 FLAG 1
|
||||
# Page 563
|
||||
TC UPFLAG # SET TRACKFLAG
|
||||
ADRES TRACKFLG # BIT 5 FLAG 1
|
||||
ADRES TRACKFLG # BIT 5 FLAG 1
|
||||
TC UPFLAG # SET UPDATFLG
|
||||
ADRES UPDATFLG # BIT 7 FLAG 1
|
||||
ADRES UPDATFLG # BIT 7 FLAG 1
|
||||
TC UPFLAG # SET RNDVZFLG
|
||||
ADRES RNDVZFLG # BIT 7 FLAG 0
|
||||
ADRES RNDVZFLG # BIT 7 FLAG 0
|
||||
TC 2PHSCHNG
|
||||
OCT 4
|
||||
OCT 00004
|
||||
OCT 05022
|
||||
OCT 26000
|
||||
TC INTPRET
|
||||
|
|
@ -148,12 +134,12 @@ P20.3 CALL
|
|||
PIKUP20 CAF PRIO14 # ALLOW HIGHER PRIO THAN LAMBERT
|
||||
TC PRIOCHNG
|
||||
CAF BIT5 # IS TRACK FLAG SET
|
||||
MASK STATE +1
|
||||
MASK STATE +1
|
||||
EXTEND
|
||||
BZF ENDOFJOB # NO
|
||||
# Page 564
|
||||
CAF BIT13
|
||||
MASK STATE +3 # IS REFSMFLG SET
|
||||
MASK STATE +3 # IS REFSMFLG SET
|
||||
EXTEND
|
||||
BZF ENDOFJOB
|
||||
CAF ZERO
|
||||
|
|
@ -164,7 +150,7 @@ PIKUP20 CAF PRIO14 # ALLOW HIGHER PRIO THAN LAMBERT
|
|||
CAF EBANK5
|
||||
TS EBANK
|
||||
TC UPFLAG # SET TARGET FLAG TO LEM
|
||||
ADRES TARG1FLG # BIT 10 FLAG 1
|
||||
ADRES TARG1FLG # BIT 10 FLAG 1
|
||||
P20R52JB TC INTPRET
|
||||
CALL
|
||||
R52 # SET UP AUTO OPTICS JOB
|
||||
|
|
@ -187,7 +173,7 @@ FIRST3 EQUALS FURST3
|
|||
EBANK= LANDMARK
|
||||
COUNT* $$/P22
|
||||
|
||||
PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
|
||||
PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
|
||||
ADRES RNDVZFLG
|
||||
TC BANKCALL
|
||||
CADR R02BOTH # IMU STATUS CHECK
|
||||
|
|
@ -227,7 +213,7 @@ PROG22A CS PRIO7 # RESULT=70777 SET OFFSET NO.=0
|
|||
PROG22B # EARTH
|
||||
SET # MOON
|
||||
LUNAFLAG
|
||||
DLOAD CALL # MPAC=V05N70,MPAC+1=NONZERO FOR N70
|
||||
DLOAD CALL # MPAC=V05N70.MPAC+1=NONZERO FOR N70
|
||||
V05N7022
|
||||
# Page 566
|
||||
S22N7071
|
||||
|
|
@ -252,14 +238,14 @@ CALLR52 EXIT
|
|||
TC INTPRET
|
||||
CALL
|
||||
R52
|
||||
DOV5N71 SLOAD CALL # MPAC=V05N71,MPAC+1=0 FOR N71
|
||||
DOV5N71 SLOAD CALL # MPAC=V05N71.MPAC+1=0 FOR N71
|
||||
V05N7122
|
||||
S22N7071
|
||||
PROG22C LXC,2 SLOAD*
|
||||
PROG22C LXC.2 SLOAD*
|
||||
MARKSTAT
|
||||
QPRET,2
|
||||
QPRET.2
|
||||
STCALL 8NN
|
||||
S22.1 # ESTABLISH LANDMARK -- COMPUTE ORBITAL
|
||||
S22.1 # ESTABLISH LANDMARK - COMPUTE ORBITAL
|
||||
P22OVER EXIT
|
||||
TC PHASCHNG
|
||||
OCT 04022
|
||||
|
|
@ -321,7 +307,7 @@ N89ERRX EXIT
|
|||
LLASRDA
|
||||
GOTO
|
||||
S22TOFF +1 # EXIT
|
||||
S22N7071 STORE 8KK # 8KK=V05N71,V05N70 8KK+1=0 N71, NOT 0 N70
|
||||
S22N7071 STORE 8KK # 8KK=V05N71.V05N70 8KK+1=0 N71.NOT 0 N70
|
||||
STQ EXIT
|
||||
S22TOFF
|
||||
S22DSPPA CA 8KK # V05N70 OR V05N71
|
||||
|
|
@ -330,14 +316,14 @@ S22DSPPA CA 8KK # V05N70 OR V05N71
|
|||
TC GOTOPOOH # V34E TERMINATE
|
||||
TC +5 # V33E PROCEED
|
||||
TC -5 # V32E RECYCLE
|
||||
CAF FIVE # IMMEDIATE RETURN BLANK OUT R1,R3
|
||||
CAF FIVE # IMMEDIATE RETURN BLANK OUT R1.R3
|
||||
TC BLANKET
|
||||
# Page 568
|
||||
TC ENDOFJOB
|
||||
CA LANDMARK
|
||||
MASK PRIO7 # 07000
|
||||
TS CXOFF # 08000 = OFFSET INDICATOR
|
||||
CS PRIO5 # 5 8-5
|
||||
CS PRIO5 # 5 B-5
|
||||
AD CXOFF
|
||||
EXTEND
|
||||
BZMF +2 # OFF=0 THRU 5 OK
|
||||
|
|
@ -352,10 +338,10 @@ S22DSPPA CA 8KK # V05N70 OR V05N71
|
|||
CS BIT14
|
||||
AD 22SUBSCL
|
||||
CCS A
|
||||
S22DSPP TC FALTON # + A=3 ILLEGAL REDISPLAY
|
||||
S22DSPP TC FALTON # + A=3 ILLEGAL REDISPLAY
|
||||
TC S22DSPPA # COMMON ERROR EXIT BACK TO DISPLAY
|
||||
TC +2 # - A=1 KNOWN LMK CHECK DE
|
||||
TC S22ABDE # -0 A=2 UNKNOWN LMK, DE MEANINGLESS
|
||||
TC +2 # - A=1 KNOWN LMK CHECK DE
|
||||
TC S22ABDE # -0 A=2 UNKNOWN LMK,DE MEANINGLESS
|
||||
TC UPFLAG
|
||||
ADRES KNOWNFLG # SET KNOWNFLG
|
||||
CS HIGH9 # RESULT= 00077
|
||||
|
|
@ -365,7 +351,7 @@ S22DSPP TC FALTON # + A=3 ILLEGAL REDISPLAY
|
|||
AD 22SUBSCL
|
||||
EXTEND
|
||||
BZMF S22ABDE # DE=0,1 OK FOR BOTH N70,N71
|
||||
CA 8KK +1 # =0 FOR N71, NOT =0 FOR N70
|
||||
CA 8KK +1 # =0 FOR N71. NOT =0 FOR N70
|
||||
EXTEND
|
||||
BZF S22DSPP # N71 REDISPLAY DE MUST= 0 OR 1
|
||||
CA BIT5 # N70 TEST DE= 50-57 OCTAL FOR ADV. ORBIT
|
||||
|
|
@ -374,13 +360,13 @@ S22DSPP TC FALTON # + A=3 ILLEGAL REDISPLAY
|
|||
CS A
|
||||
AD OCT50
|
||||
EXTEND
|
||||
BZF DE-GR-50 # D=5 OR DE=50-57, OK FOR N70
|
||||
BZF DE-GR-50 # D=5 OR DE=50-57.OK FOR N70
|
||||
TC S22DSPP # DE NOT 50-57 ILLEGAL, REDISPLAY
|
||||
S22ABDE TC INTPRET
|
||||
BOFF SLOAD
|
||||
KNOWNFLG # UNKNOWN LMK, DE MEANINGLESS
|
||||
S22TOFF
|
||||
22SUBSCL # =0 GET LLA FROM ASTRO, NOT=0 USE RLS
|
||||
22SUBSCL # =0 GET LLA FROM ASTRO,NOT=0 USE RLS
|
||||
BHIZ GOTO
|
||||
OBTAINLL # GET LAT/LONG/ALT FROM ASTRO N89
|
||||
# Page 569
|
||||
|
|
|
|||
Loading…
Reference in New Issue