home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TEX / WEBTP55.ARC / SHIFTOPT.CHI < prev    next >
Encoding:
Text File  |  1989-11-30  |  278 b   |  13 lines
  1. @ @p
  2. procedure ShiftOptDemo;
  3. var
  4.   a,b: word;
  5. Begin
  6.   a:= b mod 256; { using "/m" you get: a:= b and 255!}
  7.   a:= b mod 3; {unchanged}
  8.   a:= b div 4; { using "/d" you get: a:= b shr 2}
  9.   a:= b div 3; {unchanged}
  10.   a:= b shr 4 +1; {don't 'optimize' to a shr 5}
  11. End;
  12.  
  13.