5 * Revision 1.2 1996/04/18 16:13:14 mclareni
6 * Incorporate changes from J.Zoll for version 3.77
8 * Revision 1.1.1.1 1996/03/06 10:47:22 mclareni
12 #include "zebra/pilot.h"
15 C- Derive IQRCU from IQRTO and IQRNO for current store
17 #include "zebra/mqsys.inc"
18 C-------------- END CDE --------------
20 #include "zebra/q_jbit.inc"
21 #include "zebra/q_jbyt.inc"
22 #include "zebra/q_sbit1.inc"
23 #include "zebra/q_jbytet.inc"
25 C---- Loop all divisions
28 21 IF (JDVFR.EQ.JQDVLL+1) JDVFR = JQDVSY
29 MASKTO = IQRTO(KQT+JDVFR)
30 MASKNO = IQRNO(KQT+JDVFR)
31 MASKCU = JBYT (MASKTO,1,20)
33 IF (JBIT(MASKTO,24).EQ.1) MASKCU = MSBIT1(MASKCU,JQDVSY)
35 IF (JBYT(MASKTO,21,3).EQ.0) GO TO 47
37 C-- Find divisions for generic
40 31 IF (JDVTO.EQ.JQDVLL+1) JDVTO = JQDVSY
42 IF (JBIT(MASKNO,JDVTO).EQ.0) GO TO 37
43 IF (JBYTET(IQKIND(KQT+JDVTO),MASKTO,1,23).EQ.0) GO TO 37
44 MASKCU = MSBIT1 (MASKCU,JDVTO)
46 IF (JDVTO.LE.20) GO TO 31
48 47 IQRCU(KQT+JDVFR) = MASKCU
50 IF (JDVFR.LE.20) GO TO 21
51 C! IX = MSBYT (0,JQSTOR,27,4)
55 * ==================================================
56 #include "zebra/qcardl.inc"