home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BP7BUGS2.ZIP / NEWSHR.FIX / text0000.txt < prev   
Encoding:
Text File  |  1992-11-29  |  451 b   |  26 lines
  1.  
  2. Two substitute routines follow:
  3.  
  4. @@shr:    shl    edx,10h        ; (dx:ax) shr (cl and 31)
  5.     mov    dx,ax        ; edx now holds operand
  6.     shr    edx,cl
  7.     mov    ax,dx
  8.     shr    edx,10h
  9.     ret
  10.  
  11.  
  12. @@shl:    shl    edx,10h        ; (dx:ax) shl (cl and 31)
  13.     mov    dx,ax        ; edx now holds operand
  14.     shl    edx,cl
  15.     mov    ax,dx
  16.     shr    edx,10h
  17.     ret
  18. ; -----------------------------------------------------
  19. (Shifts have never been significant to more 32 bits.)
  20.  
  21.  
  22. Morten Welinder
  23. terra@diku.dk
  24.  
  25.  
  26.