MINICERN/packlib/zebra/dzebra/dztext.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:07  mclareni
   6 * Zebra
   7 *
   8 *
   9 * ----------------------------------------------------------
  10 #include "zebra/pilot.h"
  11 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  12 #include "zebra/debugvf1.inc"
  13 #endif
  14       SUBROUTINE DZTEXT(IERCOD,CHTEXT,NLINES)
  15       SAVE CERCOD
  16       CHARACTER*(*) CHTEXT,CSEVER
  17       PARAMETER (CSEVER = ' ?? ')
  18 #include "zebra/zunit.inc"
  19 #include "zebra/dzc1.inc"
  20 #include "zebra/questparq.inc"
  21       CHARACTER CERCOD(MVE10Q:-1)*63
  22
  23       DATA CERCOD(MARE1Q)/'Link area system bank invalid'/
  24       DATA CERCOD(MARE2Q)/'Link area system bank empty'/
  25       DATA CERCOD(MARE3Q)/
  26      X'Link area has bank with LU not Valid -- LA/position= ID LS LUP'/
  27       DATA CERCOD(MARE4Q)/
  28      X'Link area bank with invalid LORIG -- LA/position= ID LS LORIG'/
  29       DATA CERCOD(MARE5Q)/
  30      X'Link area has invalid bank address -- LA/position=LBANK'/
  31       DATA CERCOD(MARE6Q)/'Link area not found -- Name:'/
  32       DATA CERCOD(MARE7Q)/'Link area not found -- Address:'/
  33       DATA CERCOD(MBKD1Q)/'Bank address outside store bounds'/
  34       DATA CERCOD(MBKD2Q)/'Bank address outside division bounds'/
  35       DATA CERCOD(MBKU1Q)/'Too many link areas to check'/
  36       DATA CERCOD(MBKU2Q)/'UP bank incorrect DIV/LS,LUP,IQFOUL'/
  37       DATA CERCOD(MBKU3Q)/
  38      X'OR does not point into a valid link area -- DIV/LS,LORIG'/
  39       DATA CERCOD(MBKU4Q)/
  40      X'Contents @OR not equal to LS -- LORIG/(LORIG),@LORIG/LS '/
  41       DATA CERCOD(MBKX1Q)/
  42      X'Link references forbidden division DIV/LS,DIV/LQ(L)'/
  43       DATA CERCOD(MBKX2Q)/
  44      X'UP link references forbidden division DIV/LS,DIV/UP'/
  45       DATA CERCOD(MBKX3Q)/
  46      X'OR link references forbidden division DIV/LS,DIV/OR'/
  47       DATA CERCOD(MCHV1Q)/'Too many words to monitor -- Actual/maximum'/
  48       DATA CERCOD(MFOR1Q)/'IO characteristic invalid for identifier: '/
  49       DATA CERCOD(MFOR2Q)/'Bank invalid -- DIV/LBANK,IQFOUL'/
  50       DATA CERCOD(MFOR3Q)/
  51      X'Bank IO characteristic invalid -- DIV/LBANK,ID'/
  52       DATA CERCOD(MIOP1Q)/'Invalid IO descriptor -- DIV/LS,LN/@LN'/
  53       DATA CERCOD(MSHO1Q)/
  54      X'QUIT on structural loop -- Maximal/Total Nb. of banks '/
  55       DATA CERCOD(MSHO2Q)/'STACK overflow -- Number of levels '/
  56       DATA CERCOD(MSHP1Q)/'Faulty bank -- DIV/LBANK'/
  57       DATA CERCOD(MSNA1Q)/
  58      X'Store fence area corrupt -- Address and contents'/
  59       DATA CERCOD(MSNA2Q)/
  60      X'Store end overwritten -- Contents of 2 last words'/
  61       DATA CERCOD(MSNA3Q)/'Store parameters wrong -- NQSTRU>NQREF'/
  62       DATA CERCOD(MSNA4Q)/'Store parameters wrong -- NQREF>NQLINK'/
  63       DATA CERCOD(MSNA5Q)/
  64      X'Store parameters wrong -- LQSTA(2)-LQEND(1)<NQMINR'/
  65       DATA CERCOD(MSNA6Q)/'Store parameters wrong -- NQMINR>LQ2END'/
  66       DATA CERCOD(MSNA7Q)/'Store parameters wrong -- LQ2END>LAST'/
  67       DATA CERCOD(MSNA8Q)/'Bank chaining clobbered -- Address'/
  68       DATA CERCOD(MSUR1Q)/
  69      X'Probable loop in d/s -- Total length in store < length d/s '/
  70       DATA CERCOD(MVER1Q)/'Division parameters wrong -- LQSTA>LQEND'/
  71       DATA CERCOD(MVER2Q)/
  72      X'Division parameters wrong -- LQSTA<L(PREVIOUS)'/
  73       DATA CERCOD(MVER3Q)/
  74      X'Division parameters wrong -- div. length > max. allowed'/
  75       DATA CERCOD(MVER4Q)/
  76      X'Division parameters wrong -- invalid division mode'/
  77       DATA CERCOD(MVER5Q)/
  78      X'Division parameters wrong -- Duplicate bit DIV1/I,DIV2/I'/
  79       DATA CERCOD(MVER6Q)/
  80      X'Division parameters wrong -- Kind user : JDV,JLL,JSY,KIND'/
  81       DATA CERCOD(MVER7Q)/
  82      X'Division parameters wrong -- Kind system : JDV,JLL,JSY,KIND'/
  83       DATA CERCOD(MVER8Q)/
  84      X'Division parameters wrong -- Kind high : JDV,JLL,JSY,KIND'/
  85       DATA CERCOD(MVER9Q)/
  86      X'Bank in linear scan incorrect -- DIV/LN/IQFOUL'/
  87       DATA CERCOD(MVE10Q)/'Down bank incorrect DIV/L/LQ(L)/IQFOUL'/
  88
  89 #if (defined(CERNLIB_DEBUGON))&&(defined(CERNLIB_VFORT))
  90 #include "zebra/debugvf2.inc"
  91 #endif
  92
  93       IF (CHTEXT.NE.CDUMMQ) THEN
  94           CALL ZPAGE(IQPRNT,2+NLINES)
  95           IMTEXT = MIN(100,LEN(CHTEXT))
  96           WRITE(IQPRNT,'(''0'',A,'' -- '',A)')
  97      X     CQSTAK(1:6),CHTEXT(1:IMTEXT)
  98           NQUSED = NQUSED + 2
  99       ENDIF
 100
 101       IF (IERCOD.LT.0) THEN
 102           CALL ZPAGE(IQPRNT,2)
 103           CQLINE='0'//CQSTAK
 104           CQLINE(MCQLGQ:) = CSEVER
 105           CQLINE(MCQLTQ:) = CERCOD(IERCOD)
 106           CQLINE(MCQLIQ:) = CQINFO//CSEVER
 107           WRITE(IQPRNT,'(A)') CQLINE
 108           NQUSED = NQUSED + 2
 109       ELSEIF (IERCOD.EQ.0) THEN
 110           CALL ZPAGE(IQPRNT,NLINES)
 111           WRITE (IQPRNT,'(A)') (CQMAP(I),I=1,NLINES)
 112           NQUSED = NQUSED + NLINES
 113       ELSEIF (IERCOD.GT.0) THEN
 114           CALL ZPAGE(IQPRNT,NLINES)
 115           DO 100 I=1,NLINES
 116               WRITE (IQPRNT,'(1X)')
 117   100     CONTINUE
 118           NQUSED = NQUSED + NLINES
 119       ENDIF
 120
 121   999 RETURN
 122       END