Proofed up to page 895
This commit is contained in:
Kourosh Simpkins
parent
5af8deb01d
commit
ad85914089
@ -1391,13 +1391,13 @@ VALTCHK TC QUIKFAZ5 # DO NOT REPEAT ABOVE
|
||||
CAF READVBIT # TEST READVEL TO SEE IF VELOCITY READING
|
||||
MASK FLGWRD11 # IS DESIRED.
|
||||
CCS A
|
||||
TCF READV # YES -- READ VELOCITY
|
||||
CS ABVEL # NO -- SEE IF VELOCITY < 2000 FT/SEC
|
||||
TCF READV # YES - READ VELOCITY
|
||||
CS ABVEL # NO - SEE IF VELOCITY < 2000 FT/SEC
|
||||
AD 2KFT/SEC
|
||||
EXTEND
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
|
||||
GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
|
||||
EXTEND # A = 0 FOR R, A = 6 FOR V
|
||||
DCA GNUR
|
||||
@ -1416,13 +1417,14 @@ GNURVST TS BUF # STORE GNUR (=GNUV) IN R1S OR V1S
|
||||
# Page 890
|
||||
DCA GNUR +2
|
||||
INDEX BUF
|
||||
DXCH R1S +2
|
||||
DXCH R1S +2
|
||||
EXTEND
|
||||
DCA GNUR +4
|
||||
INDEX BUF
|
||||
DXCH R1S +4
|
||||
DXCH R1S +4
|
||||
TC Q
|
||||
|
||||
|
||||
QUIKFAZ5 CA EBANK3
|
||||
XCH EBANK # SET EBANK 3
|
||||
DXCH L # Q TO A, A TO L
|
||||
@ -1432,6 +1434,7 @@ QUIKFAZ5 CA EBANK3
|
||||
EBANK= DVCNTR
|
||||
TC A
|
||||
|
||||
|
||||
HFAIL CS LRRCTR
|
||||
EXTEND
|
||||
BZF NORLITE # IF R = 0, DO NOT TURN ON TRK FAIL
|
||||
@ -1449,14 +1452,15 @@ NORLITE CA LRLCTR
|
||||
|
||||
TCF VMEASCHK
|
||||
|
||||
VFAIL CS LRSCTR # DELTA Q LARGE
|
||||
|
||||
VFAIL CS LRSCTR # DELTA Q LARGE
|
||||
EXTEND # IF S = 0, DO NOT TURN ON TRACKER FAIL
|
||||
BZF NOLITE
|
||||
AD LRMCTR # M-S
|
||||
MASK NEG3 # TEST FOR M-S > 3
|
||||
EXTEND # IF M-S > 3, THEN TWO OR MORE OF THE
|
||||
BZF +2 # LAST FOUR V READINGS WERE BAD,
|
||||
TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
|
||||
BZF +2 # LAST FOUR V READINGS WERE BAD,
|
||||
TCF NOLITE # SO TURN ON VELOCITY FAIL LIGHT
|
||||
|
||||
TC UPFLAG # AND SET BIT TO TURN ON TRACKER FAIL LITE
|
||||
ADRES VFLSHFLG
|
||||
@ -1469,19 +1473,20 @@ NOLITE CA LRMCTR # SET S = M
|
||||
TCF ENDVDAT # NOT Z, DO NOT SET VX INHIBIT
|
||||
|
||||
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.
|
||||
|
||||
# Page 892
|
||||
# ********************************************************************************
|
||||
# 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
|
||||
# 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
|
||||
# IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLINGS.
|
||||
# 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
|
||||
# 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
|
||||
# IS SET. THE GIMBAL ANGLES ARE READ ABOUT MIDWAY IN THE SAMPLING .
|
||||
|
||||
170MS EQUALS ND1
|
||||
|
||||
|
||||
LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
|
||||
TC WAITLIST
|
||||
EBANK= LRVTIME
|
||||
@ -1489,7 +1494,7 @@ LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
|
||||
|
||||
CCS VSELECT # SEQUENCE LR VEL BEAM SELECTOR
|
||||
TCF +2
|
||||
CAF TWO # IF ZERO, RESET TO TWO
|
||||
CAF TWO # IF ZERO-RESET TO TWO
|
||||
DOUBLE # 2XVSELECT USED FOR VBEAM INDEX IN LRVEL
|
||||
TC BANKCALL # GO INITIALIZE LR VEL READ ROUTINE
|
||||
CADR LRVEL
|
||||
@ -1497,10 +1502,10 @@ LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
|
||||
CADR RADSTALL
|
||||
TCF VBAD
|
||||
CCS STILBADV # IS DATA GOOD JUST PRESENT?
|
||||
TCF VSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS.
|
||||
TCF VSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS.
|
||||
|
||||
INHINT
|
||||
EXTEND # GOOD RETURN -- STOW AWAY VMEAS
|
||||
EXTEND # GOOD RETURN-STOW AWAY VMEAS
|
||||
DCA SAMPLSUM
|
||||
DXCH VMEAS
|
||||
CA EBANK4 # FOR DOWNLINK
|
||||
@ -1519,8 +1524,9 @@ LRVJOB CA 170MS # SET TASK TO READ CDUS + PIPAS
|
||||
TS EBANK
|
||||
EBANK= VSELECT
|
||||
|
||||
|
||||
CS FLGWRD11 # SET BIT TO INDICATE VELOCITY
|
||||
MASK VELDABIT # MEASUREMENT MADE
|
||||
MASK VELDABIT # MEASUREMENT MADE.
|
||||
# Page 893
|
||||
ADS FLGWRD11
|
||||
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
|
||||
# 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.
|
||||
|
||||
BANK 34
|
||||
@ -1550,11 +1556,11 @@ LRHJOB TC BANKCALL # INITIATE LR ALT MEASUREMENT
|
||||
CADR RADSTALL
|
||||
TCF HBAD
|
||||
CCS STILBADH # IS DATA GOOD JUST PRESENT?
|
||||
TCF HSTILBAD # JUST GOOD -- MUST WAIT 4 SECONDS.
|
||||
TCF HSTILBAD # JUST GOOD - MUST WAIT 4 SECONDS.
|
||||
|
||||
INHINT
|
||||
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
|
||||
EXTEND # FOR DOWNLINK
|
||||
DCA PIPTIME1
|
||||
@ -1576,11 +1582,12 @@ ENDLRH TC ENDOFJOB # TERMATE LRHJOB
|
||||
HBAD CA FLAGWRD5
|
||||
MASK RNGSCBIT # IS BAD RETURN DUE TO SCALE CHANGE?
|
||||
EXTEND
|
||||
BZF HSTILBAD -1 # NO RESET HSTILBAD
|
||||
TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE
|
||||
BZF HSTILBAD -1 # NO RESET HSTILBAD
|
||||
TC DOWNFLAG # YES RESET SCALE CHANGE BIT AND IGNORE
|
||||
ADRES RNGSCFLG
|
||||
TC ENDOFJOB
|
||||
|
||||
|
||||
CAF TWO # SET STILBAD TO WAIT 4 SECONDS
|
||||
HSTILBAD TS STILBADH
|
||||
TC ENDOFJOB
|
||||
@ -1591,18 +1598,18 @@ HSTILBAD TS STILBADH
|
||||
|
||||
COUNT* $$/SERV
|
||||
|
||||
# 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
|
||||
# ARE SPECIFIED.
|
||||
# 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
|
||||
# ARE SPECIFIED.
|
||||
|
||||
EBANK= LRVTIME
|
||||
RDGIMS EXTEND
|
||||
DCA TIME2 # PICK UP TIME2, TIME1
|
||||
DXCH LRVTIME # AND SAVE IN LRVTIME
|
||||
DCA TIME2 # PICK UP TIME2,TIME1
|
||||
DXCH LRVTIME # AND SAVE IN LRVTIME
|
||||
|
||||
EXTEND
|
||||
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
|
||||
TS LRZCDU # SAVE CDUZ IN LRZCDU
|
||||
@ -1612,7 +1619,7 @@ RDGIMS EXTEND
|
||||
|
||||
EXTEND
|
||||
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
|
||||
|
||||
BANK 33
|
||||
|
||||
Loading…
Reference in New Issue
Block a user