MINICERN/packlib/zebra/mqs/mzchls.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:12:59  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:21  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE MZCHLS (IXST,LP)
  14
  15 C-    Check LS is a valid bank status-word address, can be user called
  16
  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)
  22
  23 #include "zebra/q_jbyt.inc"
  24
  25
  26       IXSTOR = IXST(1)
  27       IQLS   = LP(1)
  28
  29       IF (IXSTOR.EQ.-7)                 GO TO 21
  30 #include "zebra/qstore.inc"
  31
  32    21 IF (IQLS.LT.LQSTA(KQT+1))       GO TO 98
  33       IF (IQLS.GE.LQSTA(KQT+21))      GO TO 98
  34
  35       IQNIO = JBYT (IQ(KQS+IQLS),19,4)
  36       IQID  = IQ(KQS+IQLS-4)
  37       IQNL  = IQ(KQS+IQLS-3)
  38       IQNS  = IQ(KQS+IQLS-2)
  39       IQND  = IQ(KQS+IQLS-1)
  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
  45
  46       IQLN  = IQLS - IQNL - IQNIO - 1
  47       IF (IQLN.LT.LQSTA(KQT+1))       GO TO 91
  48
  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
  52       IQFOUL = 0
  53       RETURN
  54
  55    91 IQFOUL = 7
  56       RETURN
  57    98 IQFOUL = -7
  58       RETURN
  59       END
  60 *      ==================================================
  61 #include "zebra/qcardl.inc"