home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL2.DMS / in.adf / INCLUDE / Utility / pack.h < prev    next >
Encoding:
Text File  |  1994-07-25  |  1013 b   |  38 lines
  1. {$if not def UTILITY_PACK_H} CONST UTILITY_PACK_H=true;
  2.  
  3. { ****************************************************************
  4.   ** KickPascal-Include-Datei "utility/pack.h" zu Kickstart 3.0 **
  5.   **************************************************************** }
  6.  
  7. {$if not def UTILITY_TAGITEM_H;incl "utility/tagitem.h";endif}
  8.  
  9. CONST
  10.  PSTB_SIGNED    = 31;
  11.  PSTB_UNPACK    = 30;
  12.  PSTB_PACK      = 29;
  13.  PSTB_EXISTS    = 26;
  14.  
  15.  PSTF_SIGNED    = $1000000; { = (1 SHL PSTB_SIGNED) }
  16.  PSTF_UNPACK    = (1 SHL PSTB_UNPACK);
  17.  PSTF_PACK      = (1 SHL PSTB_PACK);
  18.  
  19.  PSTF_EXISTS    = (1 SHL PSTB_EXISTS);
  20.  
  21.  
  22.  PKCTRL_PACKUNPACK      = $00000000;
  23.  PKCTRL_PACKONLY        = $40000000;
  24.  PKCTRL_UNPACKONLY      = $20000000;
  25.  
  26.  PKCTRL_BYTE            = $80000000;
  27.  PKCTRL_WORD            = $88000000;
  28.  PKCTRL_LONG            = $90000000;
  29.  
  30.  PKCTRL_UBYTE           = $00000000;
  31.  PKCTRL_UWORD           = $08000000;
  32.  PKCTRL_ULONG           = $10000000;
  33.  
  34.  PKCTRL_BIT             = $18000000;
  35.  PKCTRL_FLIPBIT         = $98000000;
  36.  
  37. {$endif}
  38.