home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pascal / vdl020d.zip / VULONG.DOC < prev    next >
Text File  |  1993-04-14  |  3KB  |  78 lines

  1. {
  2. ════════════════════════════════════════════════════════════════════════════
  3.  
  4.  Visionix Unsigned LongInt Unit (VULONG)
  5.  Copyright 1991,92,93 Visionix
  6.  ALL RIGHTS RESERVED
  7.  
  8. ────────────────────────────────────────────────────────────────────────────
  9.  
  10.  Revision history in reverse chronological order:
  11.  
  12.  Initials  Date      Comment
  13.  --------  --------  -------------------------------------------------------
  14.  
  15.  mep       03/30/93  ULAdd, ULSub, ULInc, and ULDec now work
  16.  
  17.  mep       02/11/93  Cleaned up code for beta release
  18.  
  19.  jrt       12/07/92  Sync with beta 0.11 release
  20.  
  21.  lpg       11/25/92  First logged revision.
  22.  
  23. ════════════════════════════════════════════════════════════════════════════
  24. }
  25.  
  26. Unit VULong;
  27.  
  28.  
  29. Uses
  30.   DOS;
  31.  
  32. {────────────────────────────────────────────────────────────────────────────}
  33.  
  34. Function ULAdd(                      L1        : LONGINT;
  35.                                      L2        : LONGINT   ) : LONGINT;
  36.  
  37. Function ULSub(                      L1        : LONGINT;
  38.                                      L2        : LONGINT   ) : LONGINT;
  39.  
  40. Function ULMul(                      L1        : LONGINT;
  41.                                      L2        : LONGINT   ) : LONGINT;
  42.  
  43. Function ULDiv(                      L1        : LONGINT;
  44.                                      L2        : LONGINT   ) : LONGINT;
  45.  
  46. Function ULMod(                      L1        : LONGINT;
  47.                                      L2        : LONGINT   ) : LONGINT;
  48.  
  49. {----------------}
  50.  
  51. Function ULAnd(                      L1        : LONGINT;
  52.                                      L2        : LONGINT   ) : LONGINT;
  53.  
  54. Function ULOr (                      L1        : LONGINT;
  55.                                      L2        : LONGINT   ) : LONGINT;
  56.  
  57. Function ULXor(                      L1        : LONGINT;
  58.                                      L2        : LONGINT   ) : LONGINT;
  59.  
  60. Function ULNot(                      L1        : LONGINT;
  61.                                      L2        : LONGINT   ) : LONGINT;
  62.  
  63. {----------------}
  64.  
  65. Function ULShr(                      L1        : LONGINT;
  66.                                      L2        : LONGINT   ) : LONGINT;
  67.  
  68. Function ULShl(                      L1        : LONGINT;
  69.                                      L2        : LONGINT   ) : LONGINT;
  70.  
  71. Function ULInc(                      L         : LONGINT   ) : LONGINT;
  72.  
  73. Function ULDec(                      L         : LONGINT   ) : LONGINT;
  74.  
  75.  
  76. {────────────────────────────────────────────────────────────────────────────}
  77.  
  78.