*COMDECK ZXHIP
_ 
************************************************************************
*                                                                      *
*              * *   H O S T   I N T E R F A C E   P R O G R A M   * * *
*                                                                      *
************************************************************************
* 
*              ---- HIP WORKLIST CONTROL BLOCK ---- 
? 
      BYWLCB[ B0COWL ].BYNAME    := $4850;
      BYWLCB[ B0COWL ].BYPRADDR  := /ENTRY(PTHIPOPS); 
      BYWLCB[ B0COWL ].BYPAGE    := /PGNUM(PTHIPQUE); 
      BYWLCB[ B0COWL ].BYMAXCNT  := 1;
      BYWLCB[ B0COWL ].BYINC     := 3;
      BYWLCB[ B0COWL ].BYFEINC   := 0;
      BYWLCB[ B0COWL ].BYBACKUP  := /TRUE;
_ 
*              ---- TIP TYPE TABLE ---- 
? 
      BJTIPTYPT [ N0COUPLER ].BJLISTIX := B0COWL; 
      BJTIPTYPT [ N0COUPLER ].BJQTYPE  := /B0QDATLIST;
_ 
_ 
*              ---- HIP PAGE NUMBER ----
? 
      HIPAGE := (/PGNUM (PTHIPQUE) DIV 4) * 4;
_ 
************************************************************************
*                                                             08/17/78 *
*              DEFINES A PAGE VALUE AND AN ENTRY ADDRESS               *
*              FOR HIP SUBROUTINE CALLS.                               *
************************************************************************
? 
      BRTNJUMP[C1PTHIPQ     ].JPAGEVAL := /PGNUM(PTHIPQ); 
      BRTNJUMP[C1PTHIPQ     ].JENTADDR := /ENTRY(PTHIPQ); 
_?
