Proof P20-P25 (pages 492 through 501)
Adhiraj
GitHub
parent
343e5bcde5
commit
c16e082233
|
|
@ -37,7 +37,7 @@
|
|||
#
|
||||
# PROGRAM DESCRIPTION
|
||||
#
|
||||
# MOD NO -- 2
|
||||
# MOD NO - 2
|
||||
# BY P. VOLANTE
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
|
|
@ -47,7 +47,7 @@
|
|||
# THE LM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY DSKY ENTRY)
|
||||
# ON THE BASIS OF THE RR TRACKING DATA.
|
||||
#
|
||||
# CALLING SEQUENCE --
|
||||
# CALLING SEQUENCE -
|
||||
#
|
||||
# ASTRONAUT REQUEST THROUGH DSKY V37E20E
|
||||
#
|
||||
|
|
@ -64,12 +64,12 @@
|
|||
# R31LEM (RENDEZVOUS PARAMETER DISPLAY)
|
||||
# PRIOLARM (PRIORITY DISPLAY)
|
||||
#
|
||||
# NORMAL EXIT MODES --
|
||||
# NORMAL EXIT MODES -
|
||||
#
|
||||
# P20 MAY BE TERMINATED IN TWO WAYS -- ASTRONAUT SELECTION OF IDLING
|
||||
# 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 --
|
||||
# ALARM OR ABORT EXIT MODES -
|
||||
#
|
||||
# RANGE GREATER THAN 400 NM DISPLAY
|
||||
#
|
||||
|
|
@ -81,11 +81,11 @@
|
|||
#
|
||||
# FLAGS SET + RESET
|
||||
#
|
||||
# SRCHOPT, RNDVZFLG, ACMODFLG, VEHUPFLG, UPDATFLG, TRACKFLG
|
||||
# SRCHOPT, RNDVZFLG, ACMODFLG, VEHUPFLG, UPDATFLG, TRACKFLG,
|
||||
#
|
||||
# DEBRIS
|
||||
#
|
||||
# CENTRALS -- A,Q,L
|
||||
# CENTRALS - A,Q,L
|
||||
|
||||
SBANK= LOWSUPER # FOR LOW 2CADR'S.
|
||||
|
||||
|
|
@ -103,8 +103,8 @@ PROG20 TC 2PHSCHNG
|
|||
TC LUNSFCHK # CHECK IF ON LUNAR SURFACE
|
||||
# Page 493
|
||||
TC ORBCHGO # YES
|
||||
TC PROG20A -2 # NO -- CONTINUE WITH P20
|
||||
ORBCHGO TC UPFLAG # SET VEHUPFLG -- CSM STATE
|
||||
TC PROG20A -2 # NO - CONTINUE WITH P20
|
||||
ORBCHG0 TC UPFLAG # SET VEHUPFLG - CSM STATE
|
||||
ADRES VEHUPFLG # VECTOR TO BE UPDATED
|
||||
CAF ONE # SET R2 FOR OPTION CSM WILL NOT
|
||||
TS OPTION2 # CHANGE PRESENT ORBIT
|
||||
|
|
@ -220,7 +220,7 @@ NOWMATX CALL
|
|||
CALL
|
||||
INTSTALL
|
||||
DLOAD BDSU
|
||||
TRANSTM # LAUNCH TIME -- TRANSFER TIME
|
||||
TRANSTM # LAUNCH TIME - TRANSFER TIME
|
||||
LNCHTM
|
||||
STOVL TET
|
||||
NEWPOS
|
||||
|
|
@ -237,7 +237,6 @@ NOWMATX CALL
|
|||
EXIT
|
||||
TC BANKCALL
|
||||
CADR PROG20A
|
||||
|
||||
BANK 24
|
||||
SETLOC P20S
|
||||
BANK
|
||||
|
|
@ -280,11 +279,11 @@ P20LEM1 TC PHASCHNG
|
|||
INDEX MPAC
|
||||
TC +1
|
||||
TC P20LEMA # NORMAL RETURN WITHIN 400 N M
|
||||
526ALARM CAF ALRM526 # ERROR EXIT -- RANGE > 400 N. MI.
|
||||
526ALARM CAF ALRM526 # ERROR EXIT - RANGE > 400 N. MI.
|
||||
TC BANKCALL
|
||||
CADR PRIOLARM
|
||||
TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
|
||||
TC -4 # PROC (ILLEGAL)
|
||||
TC -4 # PROC (ILLEGAL
|
||||
TC P20LEM1 # ENTER RECYCLE
|
||||
TC ENDOFJOB
|
||||
|
||||
|
|
@ -302,23 +301,23 @@ P20LEMB TC PHASCHNG
|
|||
CA FLAGWRD1 # IS THE TRACK FLAG SET
|
||||
MASK TRACKBIT
|
||||
EXTEND
|
||||
BZF P20LEMWT # BRANCH -- NO -- WAIT FOR IT TO BE SET
|
||||
BZF P20LEMWT # BRANCH - NO - WAIT FOR IT TO BE SET
|
||||
P20LEMB7 CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
|
||||
EXTEND
|
||||
# Page 497
|
||||
RAND CHAN33
|
||||
EXTEND
|
||||
BZF P20LEMB3 # YES -- DO AUTOMATIC ACQUISITION (R21)
|
||||
BZF P20LEMB3 # YES - DO AUTOMATIC ACQUISITION (R21)
|
||||
|
||||
P20LEMB5 CS OCT24 # RADAR NOT IN AUTO CHECK IF
|
||||
AD MODREG # MAJOR MODE IS 20
|
||||
EXTEND
|
||||
BZF P20LEMB6 # BRANCH -- YES -- OKAY TO DO PLEASE PERFORM
|
||||
BZF P20LEMB6 # BRANCH - YES - OK TO DO PLEASE PERFORM
|
||||
|
||||
AD NEG2 # ALSO CHECK FOR P22
|
||||
EXTEND
|
||||
BZF P20LEMB6 # BRANCH -- YES OK TO DO PLEASE PERFORM
|
||||
CAF ALRM514 # TRACK FLAG SET -- FLASH PRIORITY ALARM 514 --
|
||||
BZF P20LEMB6 # BRANCH - YES OK TO DO PLEASE PERFORM
|
||||
CAF ALRM514 # TRACK FLAG SET - FLASH PRIORITY ALARM 514 -
|
||||
TC BANKCALL # RADAR GOES OUT OF AUTO MODE WHILE IN USE
|
||||
CADR PRIOLARM
|
||||
TC GOTOV56 # TERMINATE EXITS VIA V56
|
||||
|
|
@ -331,10 +330,10 @@ P20LEMB6 CAF OCT201 # REQUEST RR AUTO MODE SELECTION
|
|||
TC GOTOV56 # TERMINATE EXITS P20 VIA V56 CODING
|
||||
TC P20LEMB # PROCEED CHECKS AUTO MODE DISCRETE AGAIN
|
||||
TC LUNSFCHK # ENTER INDICATES MANUAL ACQUISITION (R23)
|
||||
TC P20LEMB2 # YES -- R23 NOT ALLOWED -- TURN ON OPR ERROR
|
||||
TC R23LEM # NO -- DO MANUAL ACQUISITION
|
||||
TC P20LEMB2 # YES - R23 NOT ALLOWED - TURN ON OPR ERROR
|
||||
TC R23LEM # NO - DO MANUAL ACQUISITION
|
||||
|
||||
P20LEMB1 TC UPFLAG # RETURN FROM R23 -- LOCKON ACHIEVED
|
||||
P20LEMB1 TC UPFLAG # RETURN FROM R23 - LOCKON ACHIEVED
|
||||
ADRES ACMODFLG # SET MANUAL FLAG AND GO BACK TO CHECK
|
||||
TC P20LEMB # RR AUTO MODE
|
||||
|
||||
|
|
@ -344,7 +343,7 @@ P20LEMB2 TC FALTON # TURNS ON OPERATOR ERROR LIGHT ON DSKY
|
|||
P20LEMB3 CS RADMODES # ARE RR CDUS BEING ZEROED
|
||||
MASK RCDU0BIT
|
||||
EXTEND
|
||||
BZF P20LEMB4 # BRANCH -- YES -- WAIT
|
||||
BZF P20LEMB4 # BRANCH - YES - WAIT
|
||||
CAF BIT13-14 # IS SEARCH OR MANUAL ACQUISITION FLAG SET
|
||||
MASK FLAGWRD2
|
||||
EXTEND
|
||||
|
|
@ -358,7 +357,7 @@ P20LEMB3 CS RADMODES # ARE RR CDUS BEING ZEROED
|
|||
|
||||
P20LEMB4 CAF 250DEC
|
||||
TC BANKCALL # WAIT 2.5 SECONDS WHILE RR CDUS ARE BEING
|
||||
CADR DELAYJOB # ZEROED -- THEN GO BACK AND CHECK AGAIN
|
||||
CADR DELAYJOB # ZEROED - THEN GO BACK AND CHECK AGAIN
|
||||
TC P20LEMB3
|
||||
|
||||
P20LEMC3 TC INTPRET
|
||||
|
|
@ -372,11 +371,11 @@ P20LEMC TC PHASCHNG
|
|||
CAE FLAGWRD0 # IS THE RENDEZVOUS FLAG SET
|
||||
MASK RNDVZBIT
|
||||
EXTEND
|
||||
BZF ENDOFJOB # NO -- EXIT P20
|
||||
BZF ENDOFJOB # NO - EXIT P20
|
||||
CAE FLAGWRD1 # IS TRACK FLAG SET (BIT 5 FLAGWORD 1)
|
||||
MASK TRACKBIT
|
||||
EXTEND
|
||||
BZF P20LEMD # BRANCH -- TRACK FLAG NOT ON -- WAIT 15 SECONDS
|
||||
BZF P20LEMD # BRANCH - TRACK FLAG NOT ON - WAIT 15 SECONDS
|
||||
P20LEMF TC R21LEM
|
||||
|
||||
P20LEMWT CAF 250DEC
|
||||
|
|
@ -385,7 +384,7 @@ P20LEMWT CAF 250DEC
|
|||
CAE FLAGWRD1 # IS TRACK FLAG SET
|
||||
MASK TRACKBIT
|
||||
EXTEND
|
||||
BZF ENDOFJOB # NO -- EXIT WITHOUT DOING 2.7 PHASE CHANGE
|
||||
BZF ENDOFJOB # NO - EXIT WITHOUT DOING 2.7 PHASE CHANGE
|
||||
P20LMWT1 TC PHASCHNG
|
||||
OCT 40072
|
||||
TC ENDOFJOB
|
||||
|
|
@ -393,13 +392,13 @@ P20LMWT1 TC PHASCHNG
|
|||
P20LEMC1 CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
|
||||
MASK RNDVZBIT
|
||||
EXTEND
|
||||
BZF TASKOVER # NO -- EXIT P20/R22
|
||||
BZF TASKOVER # NO - EXIT P20/R22
|
||||
CAE FLAGWRD1 # IS TRACK FLAG SET
|
||||
MASK TRACKBIT
|
||||
EXTEND
|
||||
BZF P20LEMC2 # NO -- DON'T SCHEDULE R22 JOB
|
||||
BZF P20LEMC2 # NO - DON'T SCHEDULE R22 JOB
|
||||
# Page 499
|
||||
CAF PRIO26 # YES -- SCHEDULE R22 JOB (RR DATA READ)
|
||||
CAF PRIO26 # YES - SCHEDULE R22 JOB (RR DATA READ)
|
||||
TC FINDVAC
|
||||
EBANK= LOSCOUNT
|
||||
2CADR R22LEM42
|
||||
|
|
@ -419,8 +418,8 @@ P20LEMD CAF 1500DEC
|
|||
P20LEMD1 CAE FLAGWRD1 # IS TRACK FLAG SET
|
||||
MASK TRACKBIT
|
||||
CCS A
|
||||
TCF P20LEMD2 # YES -- SCHEDULE DESIGNATE JOB
|
||||
TC FIXDELAY # NO -- WAIT 15 SECONDS
|
||||
TCF P20LEMD2 # YES - SCHEDULE DESIGNATE JOB
|
||||
TC FIXDELAY # NO - WAIT 15 SECONDS
|
||||
DEC 1500
|
||||
TC P20LEMD1
|
||||
|
||||
|
|
@ -470,7 +469,7 @@ UPPSV1 SET
|
|||
TETCSM
|
||||
VINTFLAG
|
||||
UPPSV4 CALL # INTEGRATE OTHER VEHICLE
|
||||
SETIFLGS # WITHOUT W-MATRIX
|
||||
SETIFLGS # WITHOUT W-MATRIX
|
||||
STCALL TDEC1
|
||||
INTEGRV
|
||||
BOFF VLOAD
|
||||
|
|
|
|||
Loading…
Reference in New Issue