home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 1.ddi / CLIBSRC.ZIP / H_LLSH.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  1.6 KB  |  51 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      H_LLSH.ASM -- long shift left                                |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1987, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12.         INCLUDE RULES.ASI
  13.  
  14. _TEXT   segment public byte 'CODE'
  15.         assume  cs:_TEXT
  16.         public  LXLSH@
  17.         public  F_LXLSH@
  18.         public  N_LXLSH@
  19.  
  20. N_LXLSH@:
  21.         pop     bx                      ;fix up for far return
  22.         push    cs
  23.         push    bx
  24. LXLSH@:
  25. F_LXLSH@:
  26.         cmp     cl,16
  27.         jae     lsh@small
  28.         mov     bx,ax                   ; save the low bits
  29.         shl     ax,cl                   ; now shift each half
  30.         shl     dx,cl
  31. ;
  32. ;                       We now have a hole in DX where the upper bits of
  33. ;                       AX should have been shifted.  So we must take our
  34. ;                       copy of AX and do a reverse shift to get the proper
  35. ;                       bits to be or'ed into DX.
  36. ;
  37.         neg     cl
  38.         add     cl,16
  39.         shr     bx,cl
  40.         or      dx,bx
  41.         retf
  42. lsh@small:
  43.         sub     cl,16                   ; for shifts more than 15, do this
  44.                                         ; short sequence.
  45.         xchg    ax,dx
  46.         xor     ax,ax                   ; We have now done a shift by 16.
  47.         shl     dx,cl                   ; Now shift the remainder.
  48.         retf
  49. _TEXT   ends
  50.         end
  51.