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

Proof P20-P25 (pages 492 through 501)

Browse source
This commit is contained in:
Adhiraj 2021-10-04 21:45:25 +05:30 • committed by GitHub
parent 343e5bcde5
commit c16e082233
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 31 additions and 32 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

63
Luminary099/P20-P25.agc
View file

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