*COMDECK ZETOLD 
_ 
*  TIP TYPE TABLE  *
? 
       BJTIPTYPT[N0OLDIAG].BJLISTIX := B0DGWL;
       BJTIPTYPT[N0OLDIAG].BJDFTC   := N0TDIAG; 
_ 
*  WORK LIST CONTROL BLOCK FOR DIAGNOSTICS  * 
? 
      BYWLCB[B0DGWL].BYNAME    := $4F4C;
      BYWLCB[B0DGWL].BYPRADDR  := /ENTRY(OLDIAG); 
      BYWLCB[B0DGWL].BYPAGE    := /PGNUM(OLDIAG); 
      BYWLCB[B0DGWL].BYMAXCNT  := 1;
      BYWLCB[B0DGWL].BYINC     := 4;
      BYWLCB[B0DGWL].BYFEINC   := 3;
      BYWLCB[B0DGWL].BYRELEASE := /TRUE;
_ 
*      DEFINE PAGE/ADDRESS OF ON-LINE DIAGNOSTICS ROUTINE CALL
? 
      BRTNJUMP[C1PDSTTR     ].JPAGEVAL := /PGNUM(PDSTTR); 
      BRTNJUMP[C1PDSTTR     ].JENTADDR := /ENTRY(PDSTTR); 
_ 
*  TERMINAL CHARACTERISTICS  *
? 
      NJTECT[N0TDIAG].NJISPTA  := /ENTRY(ISPOLD); 
      NJTECT[N0TDIAG].NJCNT1  := 8; 
      NJTECT[N0TDIAG].NJIBFCD := 4; 
      NJTECT[N0TDIAG].NJXCNT  := 7; 
      NJTECT[N0TDIAG].NJCHLEN  := 7;
