*COMDECK ZEXMD4 
_ 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
*                                                                     * 
*     MODE 4   ARRAY AND VARIABLE INITIALIZATIONS                     * 
*                                                                     * 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
? 
_ 
* * * *   RELATIVE CHAIN WORD INDICIES
? 
      V6BVCCB     := BVCCBPTR + 1;
      V6BSCHAIN   := BSCHAIN  + 1;
      V6BS4TCB    := BS4TCBPTR + 1; 
_ 
* * *    WORK LIST CONTROL BLOCK ADDRESS
? 
      V4TIP1 := BYWLCB + (/BYWSIZE * (B0M4WL - 1)); 
      V4TIP2 := BYWLCB + (/BYWSIZE * (B0M4WL - 1)); 
      V4TIP3 := BYWLCB + (/BYWSIZE * (B0M4WL - 1)); 
  
_ 
*             INPUT TRANSLATION TABLE 
? 
*IF -DEF,CSET63 
      V6IBCXLTA [/V4BCD  ]          := BCDDC4;
      V6IBCXLTA [/V4ASCII]          := ASKDC4;
*ENDIF
*IF DEF,CSET63
      V6IBCXLTA [/V4BCD  ]          := BCDDC3;
      V6IBCXLTA [/V4ASCII]          := ASKDC3;
*ENDIF
      V6IICXLTA [/V4BCD  ]          := BCDASK;
      V6IICXLTA [/V4ASCII]          := ASKASK;
  
_ 
* * *    BATCH OUTPUT TEXT PROCESSOR STATES 
? 
      V6ABTPSPT [/V4SASC]           := M4AASC;
      V6ABTPSPT [/V4SPRU]           := M4APRU;
      V6CBTPSPT [/V4SASC]           := M4CASC;
      V6CBTPSPT [/V4SPRU]           := M4CPRU;
  
  
_ 
*         OUTPUT TRANSLATION TABLE
? 
  
      V6OICXLTA [/V4BCD  ]          := ASKBCD;
      V6OICXLTA [/V4ASCII]          := ASKASK;
      V6OBCXLTA [/V4SASC, /V4BCD  ] := ASKBCD;
      V6OBCXLTA [/V4SASC, /V4ASCII] := ASKPRT;
*IF -DEF,CSET63 
      V6OBCXLTA [/V4SPRU, /V4BCD  ] := DC4BCD;
      V6OBCXLTA [/V4SPRU, /V4ASCII] := DC4ASK;
*ENDIF
*IF DEF,CSET63
      V6OBCXLTA [/V4SPRU, /V4BCD  ] := DC3BCD;
      V6OBCXLTA [/V4SPRU, /V4ASCII] := DC3ASK;
*ENDIF
  
_ 
* * *    WORK LIST CONTROL BLOCK FOR MODE 4 TIP 
? 
      BYWLCB[B0M4WL   ].BYNAME    := $4D34; 
      BYWLCB[B0M4WL   ].BYPRADDR  := /ENTRY(PTMODE4TIP);
      BYWLCB[B0M4WL   ].BYPAGE    := /PGNUM(PTMODE4TIP);
      BYWLCB[B0M4WL   ].BYMAXCNT  := 1; 
      BYWLCB[B0M4WL   ].BYINC     := 3; 
      BYWLCB[B0M4WL   ].BYFEINC   := 0; 
      BYWLCB[B0M4WL   ].BYBACKUP  := /TRUE; 
_ 
* * *    TIP TYPE TABLE FOR MODE 4 TIP
? 
      BJTIPTYPT[N1M4     ].BJOBT     := /FALSE; 
      BJTIPTYPT[N1M4     ].BJBZL     := /TRUE;
      BJTIPTYPT[N1M4     ].BJTCBSIZE := /B0TS5; 
      BJTIPTYPT[N1M4     ].BJQTYPE   := /B0QNEXTSEG;
      BJTIPTYPT[N1M4     ].BJLISTIX  := B0M4WL; 
      BJTIPTYPT[N1M4     ].BJDFTC    := N0200UT;
      BJTIPTYPT[N1M4     ].BJJAT[N1CON]  := /ENTRY(MD4CSAT);
      BJTIPTYPT[N1M4     ].BJJAT[N1CR]   := /ENTRY(MD4CRAT);
      BJTIPTYPT[N1M4     ].BJJAT[N1LP]   := /ENTRY(MD4LPAT);
      BJTIPTYPT[N1M4     ].BJJAT[N1CP]   := /NIL; 
      BJTIPTYPT[N1M4     ].BJJAT[N1PLOT] := /NIL; 
      BJTIPTYPT[N1M4     ].BJAT          := /ENTRY(MD4LCBAT); 
      BJTIPTYPT[N1M4     ].BJICRCS       := 1;
      BJTIPTYPT[N1M4     ].BJTXTPAGE     := /PGNUM(PTMODE4TIP); 
      BJTIPTYPT[N1M4     ].BJTXTENT      := /ENTRY(PT4SCAN);
      BJTIPTYPT[N1M4     ].BJIVTSIZE     := BSCHLEN - BSPGWIDTH + 1;
      BJTIPTYPT[N1M4     ].BJLIVTBVT     := BSCHLEN;
      BJTIPTYPT[N1M4     ].BJTEMUX2      := /ENTRY(PT4MUXLEVEL);
      BJTIPTYPT[N1M4     ].BJTPMUX2      := /PGNUM(PT4MUXLEVEL);
_ 
* * *    TERMINAL CHARACTERISTICS (BASE FIELDS) FOR 200UT 
? 
      NJTECT[N0200UT  ].NJISPTA    := MD4ISP; 
      NJTECT[N0200UT  ].NJSYNC     := $16;
      NJTECT[N0200UT  ].NJTIPTY    := N1M4; 
      NJTECT[N0200UT  ].NJCHLEN    := 1;
      NJTECT[N0200UT  ].NJCRCP     := 4;
      NJTECT[N0200UT  ].NJIBFCD    := DATA - 2; 
_ 
* * *    IVT TERMINAL CHARACTERISTICS 
? 
      NJTECT[N0200UT  ].NJPGWAIT     := /TRUE;
      NJTECT[N0200UT  ].NJPGWIDTH    := 80; 
      NJTECT[N0200UT  ].NJPGLENGTH   := 13; 
      NJTECT[N0200UT  ].NJCANCHAR    := /I4CANCHAR; 
      NJTECT[N0200UT  ].NJCNTRLCHAR  := /I4CNTRLCHAR; 
      NJTECT[N0200UT  ].NJUSR1       := /I4USR1;
      NJTECT[N0200UT  ].NJUSR2       := /I4USR2;
      NJTECT[N0200UT  ].NJELCHAR     := /I4ELCHAR;
      NJTECT[N0200UT  ].NJEBCHAR     := /I4EBCHAR;
      NJTECT[N0200UT  ].NJXPT        := /FALSE; 
      NJTECT[N0200UT  ].NJLPPW       := 136;
      NJTECT[N0200UT  ].NJLPPL       := 64; 
_ 
* * *    TERMINAL CHARACTERISTICS (BASE FIELDS) FOR 71430 
? 
      NJTECT[N071430  ].NJISPTA       := MD4ISP;
      NJTECT[N071430  ].NJSYNC      := $16; 
      NJTECT[N071430  ].NJTIPTY     := N1M4;
      NJTECT[N071430  ].NJCHLEN     := 1; 
      NJTECT[N071430  ].NJCRCP      := 4; 
      NJTECT[N071430  ].NJIBFCD     := DATA - 2;
_ 
* * *    IVT TERMINAL CHARACTERISTICS 
? 
      NJTECT[N071430  ].NJPGWAIT      := /TRUE; 
      NJTECT[N071430  ].NJPGWIDTH     := 80;
      NJTECT[N071430  ].NJPGLENGTH    := 16;
      NJTECT[N071430  ].NJCANCHAR     := /I4CANCHAR;
      NJTECT[N071430  ].NJCNTRLCHAR   := /I4CNTRLCHAR;
      NJTECT[N071430  ].NJUSR1        := /I4USR1; 
      NJTECT[N071430  ].NJUSR2        := /I4USR2; 
      NJTECT[N071430  ].NJELCHAR      := /I4ELCHAR; 
      NJTECT[N071430  ].NJEBCHAR      := /I4EBCHAR; 
      NJTECT[N071430  ].NJXPT         := /FALSE;
      NJTECT[N071430  ].NJLPPW        := 80;
      NJTECT[N071430  ].NJLPPL       := 64; 
_ 
* * *    TERMINAL CHARACTERISTICS (BASE FIELDS) FOR 711 
? 
      NJTECT[N0711    ].NJISPTA    := MD4ISP; 
      NJTECT[N0711    ].NJSYNC     := $16;
      NJTECT[N0711    ].NJTIPTY    := N1M4; 
      NJTECT[N0711    ].NJCHLEN    := 1;
      NJTECT[N0711    ].NJCRCP     := 4;
      NJTECT[N0711    ].NJIBFCD    := DATA - 2; 
_ 
* * *    IVT TERMINAL CHARACTERISTICS 
? 
      NJTECT[N0711    ].NJPGWAIT     := /TRUE;
      NJTECT[N0711    ].NJPGWIDTH    := 80; 
      NJTECT[N0711    ].NJPGLENGTH   := 16; 
      NJTECT[N0711    ].NJCANCHAR    := /I4CANCHAR; 
      NJTECT[N0711    ].NJCNTRLCHAR  := /I4CNTRLCHAR; 
      NJTECT[N0711    ].NJUSR1       := /I4USR1;
      NJTECT[N0711    ].NJUSR2       := /I4USR2;
      NJTECT[N0711    ].NJELCHAR     := /I4ELCHAR;
      NJTECT[N0711    ].NJEBCHAR     := /I4EBCHAR;
      NJTECT[N0711    ].NJXPT        := /FALSE; 
_ 
* * *    TERMINAL CHARACTERISTICS (BASE FIELDS) FOR 714 
? 
      NJTECT[N0714    ].NJISPTA    := MD4ISP; 
      NJTECT[N0714    ].NJSYNC     := $16;
      NJTECT[N0714    ].NJTIPTY    := N1M4; 
      NJTECT[N0714    ].NJCHLEN    := 1;
      NJTECT[N0714    ].NJCRCP     := 4;
      NJTECT[N0714    ].NJIBFCD    := DATA - 2; 
_ 
* * *    IVT TERMINAL CHARACTERISTICS 
? 
      NJTECT[N0714    ].NJPGWAIT     := /TRUE;
      NJTECT[N0714    ].NJPGWIDTH    := 80; 
      NJTECT[N0714    ].NJPGLENGTH   := 16; 
      NJTECT[N0714    ].NJCANCHAR    := /I4CANCHAR; 
      NJTECT[N0714    ].NJCNTRLCHAR  := /I4CNTRLCHAR; 
      NJTECT[N0714    ].NJUSR1       := /I4USR1;
      NJTECT[N0714    ].NJUSR2       := /I4USR2;
      NJTECT[N0714    ].NJELCHAR     := /I4ELCHAR;
      NJTECT[N0714    ].NJEBCHAR     := /I4EBCHAR;
      NJTECT[N0714    ].NJXPT        := /FALSE; 
      NJTECT[N0714    ].NJLPPW       := 80; 
      NJTECT[N0714    ].NJLPPL       := 0;
_ 
* * *    TERMINAL CHARACTERISTICS (BASE FIELDS) FOR 734 
? 
      NJTECT[N0734    ].NJISPTA    := MD4ISP; 
      NJTECT[N0734    ].NJSYNC     := $16;
      NJTECT[N0734    ].NJTIPTY    := N1M4; 
      NJTECT[N0734    ].NJCHLEN    := 1;
      NJTECT[N0734    ].NJCRCP     := 4;
      NJTECT[N0734    ].NJIBFCD    := DATA - 2; 
_ 
* * *    IVT TERMINAL CHARACTERISTICS 
? 
      NJTECT[N0734    ].NJPGWAIT     := /TRUE;
      NJTECT[N0734    ].NJPGWIDTH    := 80; 
      NJTECT[N0734    ].NJPGLENGTH   := 13; 
      NJTECT[N0734    ].NJCANCHAR    := /I4CANCHAR; 
      NJTECT[N0734    ].NJCNTRLCHAR  := /I4CNTRLCHAR; 
      NJTECT[N0734    ].NJUSR1       := /I4USR1;
      NJTECT[N0734    ].NJUSR2       := /I4USR2;
      NJTECT[N0734    ].NJELCHAR     := /I4ELCHAR;
      NJTECT[N0734    ].NJEBCHAR     := /I4EBCHAR;
      NJTECT[N0734    ].NJXPT        := /FALSE; 
      NJTECT[N0734    ].NJLPPW       := 136;
      NJTECT[N0734    ].NJLPPL       := 0;
_ 
  
