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

67
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
@ -1416,13 +1417,14 @@ GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
# Page 890 # Page 890
DCA GNUR +2 DCA GNUR +2
INDEX BUF INDEX BUF
DXCH R1S +2 DXCH R1S +2
EXTEND EXTEND
DCA GNUR +4 DCA GNUR +4
INDEX BUF INDEX BUF
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,14 +1452,15 @@ 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
AD LRMCTR # M-S AD LRMCTR # M-S
MASK NEG3 # TEST FOR M-S > 3 MASK NEG3 # TEST FOR M-S > 3
EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE
BZF +2 # LAST FOUR V READINGS WERE BAD, BZF +2 # LAST FOUR V READINGS WERE BAD,
TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
ADRES VFLSHFLG ADRES VFLSHFLG
@ -1469,19 +1473,20 @@ NOLITE CA LRMCTR # SET S = M
TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT
TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X TC UPFLAG # Z COMPONENT - SET FLAG TO SKIP X
ADRES VXINH # COMPONENT, AS ERROR MAY BE DUE TO CROSS ADRES VXINH # COMPONENT,AS ERROR MAY BE DUE TO CROSS
TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS. TCF ENDVDAT # LOBE LOCK UP NOT DETECTED ON X AXIS.
# Page 892 # Page 892
# ******************************************************************************** # ********************************************************************************
# 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
@ -1576,11 +1582,12 @@ ENDLRH TC ENDOFJOB # TERMATE LRHJOB
HBAD CA FLAGWRD5 HBAD CA FLAGWRD5
MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE? MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE?
EXTEND EXTEND
BZF HSTILBAD -1 # NO RESET HSTILBAD BZF HSTILBAD -1 # NO RESET HSTILBAD
TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE
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
@ -1591,18 +1598,18 @@ HSTILBAD TS STILBADH
COUNT* $$/SERV COUNT* $$/SERV
# RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME # RDGIMS IS A TASK SET UP BY LRVJOB TO PICK UP THE IMU CDUS AND TIME
# AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES # AT ABOUT THE MIDPOINT OF THE LR VEL READ ROUTINE WHEN 5 VEL SAMPLES
# ARE SPECIFIED. # ARE SPECIFIED.
EBANK= LRVTIME EBANK= LRVTIME
RDGIMS EXTEND RDGIMS EXTEND
DCA TIME2 # PICK UP TIME2, TIME1 DCA TIME2 # PICK UP TIME2,TIME1
DXCH LRVTIME # AND SAVE IN LRVTIME DXCH LRVTIME # AND SAVE IN LRVTIME
EXTEND EXTEND
DCA CDUX # PICK UP CDUX AND CDUY DCA CDUX # PICK UP CDUX AND CDUY
DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU DXCH LRXCDU # AND SAVE IN LRXCDU AND LRYCDU
CA CDUZ CA CDUZ
TS LRZCDU # SAVE CDUZ IN LRZCDU TS LRZCDU # SAVE CDUZ IN LRZCDU
@ -1612,7 +1619,7 @@ RDGIMS EXTEND
EXTEND EXTEND
DCA PIPAY # PICK UP PIPAY AND PIPAZ DCA PIPAY # PICK UP PIPAY AND PIPAZ
DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2 DXCH PIPTEM +1 # AND SAVE IN PIPTEM +1 AND PIPTEM +2
TC TASKOVER TC TASKOVER
BANK 33 BANK 33