5 * Revision 1.2 1996/04/18 16:12:59 mclareni
6 * Incorporate changes from J.Zoll for version 3.77
8 * Revision 1.1.1.1 1996/03/06 10:47:21 mclareni
12 #include "zebra/pilot.h"
13 SUBROUTINE MZCHLS (IXST,LP)
15 C- Check LS is a valid bank status-word address, can be user called
17 #include "zebra/zmach.inc"
18 #include "zebra/mqsys.inc"
19 #include "zebra/mzcn.inc"
20 C-------------- END CDE --------------
21 DIMENSION IXST(9), LP(9)
23 #include "zebra/q_jbyt.inc"
29 IF (IXSTOR.EQ.-7) GO TO 21
30 #include "zebra/qstore.inc"
32 21 IF (IQLS.LT.LQSTA(KQT+1)) GO TO 98
33 IF (IQLS.GE.LQSTA(KQT+21)) GO TO 98
35 IQNIO = JBYT (IQ(KQS+IQLS),19,4)
40 IF ( JBYT(IQNL,IQBITW-3,4)
41 + + JBYT(IQNS,IQBITW-3,4)
42 + + JBYT(IQND,IQBITW-3,4) .NE.0) GO TO 91
43 IQNX = IQLS + IQND + 9
44 IF (IQNX.GT.LQSTA(KQT+21)) GO TO 91
46 IQLN = IQLS - IQNL - IQNIO - 1
47 IF (IQLN.LT.LQSTA(KQT+1)) GO TO 91
49 NST = JBYT (LQ(KQS+IQLN),1,16) - 12
50 IF (NST.NE.IQNIO+IQNL) GO TO 91
51 IF (IQNS.GT.IQNL) GO TO 91
60 * ==================================================
61 #include "zebra/qcardl.inc"