diff --git a/Luminary099/P20-P25.agc b/Luminary099/P20-P25.agc index 627b060..71e323c 100644 --- a/Luminary099/P20-P25.agc +++ b/Luminary099/P20-P25.agc @@ -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