diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc index 45da77f..771173a 100644 --- a/Luminary099/SERVICER.agc +++ b/Luminary099/SERVICER.agc @@ -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