SevenOfAces/Apollo-Guidance-Computer
1
1
Fork 0
mirror of https://github.com/chrislgarry/Apollo-11.git synced 2025-02-13 16:24:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Proofread first 7 pages of P20-P25.agc

Browse source 
Corresponds to section "RENDEZVOUS NAVIGATION PROGRAM 20"
This commit is contained in:
Dimitri Belopopsky 2021-07-21 21:47:41 +02:00
parent a49d8e792c
commit 6aa0855ac2
1 changed files with 49 additions and 63 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

112
Comanche055/P20-P25.agc
View file

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