ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Proofed up to page 895

Browse Source
This commit is contained in:
Kourosh Simpkins 2020-12-27 00:48:58 +00:00
parent 5af8deb01d
commit ad85914089
1 changed files with 37 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Luminary099/SERVICER.agc
View File

@ -1391,13 +1391,13 @@ VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE
CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING
MASK FLGWRD11 # IS DESIRED. MASK FLGWRD11 # IS DESIRED.
CCS A CCS A
TCF READV # YES -- READ VELOCITY TCF READV # YES - READ VELOCITY
CS ABVEL # NO -- SEE IF VELOCITY < 2000 FT/SEC CS ABVEL # NO - SEE IF VELOCITY < 2000 FT/SEC
AD 2KFT/SEC AD 2KFT/SEC
EXTEND EXTEND
BZMF CONTSERV # V > 2000 FT/SEC DO NOT READ VEL BZMF CONTSERV # V > 2000 FT/SEC DO NOT READ VEL
TC UPFLAG # V < 2000 FT/SEC SET READVEL AND READ. TC UPFLAG # V < 2000 FT/SEC SET READVEL AND READ
ADRES READVEL ADRES READVEL
READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS. READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS.
@ -1407,6 +1407,7 @@ READV CAF PRIO32 # SET UP JOB TO READ VELOCITY BEAMS.
TCF CONTSERV # CONTINUE WITH SERVICER TCF CONTSERV # CONTINUE WITH SERVICER
GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
EXTEND # A = 0 FOR R, A = 6 FOR V EXTEND # A = 0 FOR R, A = 6 FOR V
DCA GNUR DCA GNUR
@ -1423,6 +1424,7 @@ GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
DXCH R1S +4 DXCH R1S +4
TC Q TC Q
QUIKFAZ5 CA EBANK3 QUIKFAZ5 CA EBANK3
XCH EBANK # SET EBANK 3 XCH EBANK # SET EBANK 3
DXCH L # Q TO A, A TO L DXCH L # Q TO A, A TO L
@ -1432,6 +1434,7 @@ QUIKFAZ5 CA EBANK3
EBANK= DVCNTR EBANK= DVCNTR
TC A TC A
HFAIL CS LRRCTR HFAIL CS LRRCTR
EXTEND EXTEND
BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
@ -1449,6 +1452,7 @@ NORLITE CA LRLCTR
TCF VMEASCHK TCF VMEASCHK
VFAIL CS LRSCTR # DELTA Q LARGE VFAIL CS LRSCTR # DELTA Q LARGE
EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
BZF NOLITE BZF NOLITE
@ -1476,12 +1480,13 @@ NOLITE CA LRMCTR # SET S = M
# ******************************************************************************** # ********************************************************************************
# LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE # LRVJOB IS SET WHEN THE LEM IS BELOW 15000 FT DURING THE LANDING PHASE
# THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY # THIS JOB INITIALIZES THE LANDING RADAR READ ROUTINE FOR 5 VELOCITY
# SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 500 MS. # SAMPLES AND GOES TO SLEEP WHILE THE SAMPLING IS DONE-ABOUT 500 MS.
# WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT # WITH A GOODEND RETURN THE DATA IS STORED IN VMEAS AND BIT7 OF LRSTAT
# IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLINGS. # IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
170MS EQUALS ND1 170MS EQUALS ND1
LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
TC WAITLIST TC WAITLIST
EBANK= LRVTIME EBANK= LRVTIME
@ -1489,7 +1494,7 @@ LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR
TCF +2 TCF +2
CAF TWO # IF ZERO, RESET TO TWO CAF TWO # IF ZERO-RESET TO TWO
DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL
TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE
CADR LRVEL CADR LRVEL
@ -1497,10 +1502,10 @@ LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
CADR RADSTALL CADR RADSTALL
TCF VBAD TCF VBAD
CCS STILBADV # IS DATA GOOD JUST PRESENT? CCS STILBADV # IS DATA GOOD JUST PRESENT?
TCF VSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS. TCF VSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS.
INHINT INHINT
EXTEND # GOOD RETURN -- STOW AWAY VMEAS EXTEND # GOOD RETURN-STOW AWAY VMEAS
DCA SAMPLSUM DCA SAMPLSUM
DXCH VMEAS DXCH VMEAS
CA EBANK4 # FOR DOWNLINK CA EBANK4 # FOR DOWNLINK
@ -1519,8 +1524,9 @@ LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
TS EBANK TS EBANK
EBANK= VSELECT EBANK= VSELECT
CS FLGWRD11 # SET BIT TO INDICATE VELOCITY CS FLGWRD11 # SET BIT TO INDICATE VELOCITY
MASK VELDABIT # MEASUREMENT MADE MASK VELDABIT # MEASUREMENT MADE.
# Page 893 # Page 893
ADS FLGWRD11 ADS FLGWRD11
ENDLRV CCS VSELECT # UPDATE VSELECT ENDLRV CCS VSELECT # UPDATE VSELECT
@ -1535,7 +1541,7 @@ VSTILBAD TS STILBADV
# LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB # LRHJOB IS SET BY LRHTASK WHEN LEM IS BELOW 25000 FT. THIS JOB
# INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO # INITIALIZES THE LR READ ROUTINE FOR AN ALT MEASUREMENT AND GOES TO
# SLEEP WHILE THE SAMPLING IS DONE -- ABOUT 95 MS. WITH A GOODEND RETURN # SLEEP WHILE THE SAMPLING IS DONE-ABOUT 95 MS. WITH A GOODEND RETURN
# THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET. # THE ALT DATA IS STORED IN HMEAS AND BIT7 OF LRSTAT IS SET.
BANK 34 BANK 34
@ -1550,11 +1556,11 @@ LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT
CADR RADSTALL CADR RADSTALL
TCF HBAD TCF HBAD
CCS STILBADH # IS DATA GOOD JUST PRESENT? CCS STILBADH # IS DATA GOOD JUST PRESENT?
TCF HSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS. TCF HSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS.
INHINT INHINT
EXTEND EXTEND
DCA SAMPLSUM # GOOD RETURN -- STORE AWAY LRH DATA DCA SAMPLSUM # GOOD RETURN-STORE AWAY LRH DATA
DXCH HMEAS # LRH DATA 1.079 FT/BIT DXCH HMEAS # LRH DATA 1.079 FT/BIT
EXTEND # FOR DOWNLINK EXTEND # FOR DOWNLINK
DCA PIPTIME1 DCA PIPTIME1
@ -1581,6 +1587,7 @@ HBAD CA FLAGWRD5
ADRES RNGSCFLG ADRES RNGSCFLG
TC ENDOFJOB TC ENDOFJOB
CAF TWO # SET STILBAD TO WAIT 4 SECONDS CAF TWO # SET STILBAD TO WAIT 4 SECONDS
HSTILBAD TS STILBADH HSTILBAD TS STILBADH
TC ENDOFJOB TC ENDOFJOB