From 6aa0855ac28fab74de5d0f2b8dfe3d61a67387c8 Mon Sep 17 00:00:00 2001 From: Dimitri Belopopsky Date: Wed, 21 Jul 2021 21:47:41 +0200 Subject: [PATCH] Proofread first 7 pages of P20-P25.agc Corresponds to section "RENDEZVOUS NAVIGATION PROGRAM 20" --- Comanche055/P20-P25.agc | 112 ++++++++++++++++++---------------------- 1 file changed, 49 insertions(+), 63 deletions(-) diff --git a/Comanche055/P20-P25.agc b/Comanche055/P20-P25.agc index ed93153..f4ed29b 100644 --- a/Comanche055/P20-P25.agc +++ b/Comanche055/P20-P25.agc @@ -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