Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Proof P20-P25 (pages 492 through 501) #612 #827

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Proof P20-P25 (pages 492 through 501) #612 #827

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
63 changes: 31 additions & 32 deletions Luminary099/P20-P25.agc
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -37,7 +37,7 @@
#
# PROGRAM DESCRIPTION
#
# MOD NO -- 2
# MOD NO - 2
# BY P. VOLANTE
#
# FUNCTIONAL DESCRIPTION
Expand All @@ -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
#
Expand All @@ -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
#
Expand All @@ -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.

Expand All @@ -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
Expand Down Expand Up @@ -220,7 +220,7 @@ NOWMATX CALL
CALL
INTSTALL
DLOAD BDSU
TRANSTM # LAUNCH TIME -- TRANSFER TIME
TRANSTM # LAUNCH TIME - TRANSFER TIME
LNCHTM
STOVL TET
NEWPOS
Expand All @@ -237,7 +237,6 @@ NOWMATX CALL
EXIT
TC BANKCALL
CADR PROG20A

BANK 24
SETLOC P20S
BANK
Expand Down Expand Up @@ -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

Expand All @@ -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
Expand All @@ -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

Expand All @@ -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
Expand All @@ -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
Expand All @@ -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
Expand All @@ -385,21 +384,21 @@ 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

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
Expand All @@ -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

Expand Down Expand Up @@ -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
Expand Down