forked from KolibriOS/kolibrios
119 lines
4.3 KiB
NASM
119 lines
4.3 KiB
NASM
;*****************************************************************************
|
|
;*
|
|
;* Open Watcom Project
|
|
;*
|
|
;* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
|
|
;*
|
|
;* ========================================================================
|
|
;*
|
|
;* This file contains Original Code and/or Modifications of Original
|
|
;* Code as defined in and that are subject to the Sybase Open Watcom
|
|
;* Public License version 1.0 (the 'License'). You may not use this file
|
|
;* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
|
|
;* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
|
|
;* provided with the Original Code and Modifications, and is also
|
|
;* available at www.sybase.com/developer/opensource.
|
|
;*
|
|
;* The Original Code and all software distributed under the License are
|
|
;* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
|
|
;* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
|
|
;* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
|
|
;* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
|
|
;* NON-INFRINGEMENT. Please see the License for the specific language
|
|
;* governing rights and limitations under the License.
|
|
;*
|
|
;* ========================================================================
|
|
;*
|
|
;* Description: WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
|
|
;* DESCRIBE IT HERE!
|
|
;*
|
|
;*****************************************************************************
|
|
|
|
|
|
include mdef.inc
|
|
include struct.inc
|
|
|
|
;========================================================================
|
|
;== Name: I8S ==
|
|
;== Operation: integer eight byte shift ==
|
|
;== Inputs: EDX;EAX integer M1 ==
|
|
;== ECX;EBX integer M2 (ECX contents ignored) ==
|
|
;== Outputs: EDX;EAX product ==
|
|
;== Volatile: ECX, EBX destroyed ==
|
|
;========================================================================
|
|
; Special Note:
|
|
; If ECX ever takes on a meaningful use (i.e., is no longer ignored)
|
|
; then several routines that call these shift routines will require fixing.
|
|
; At present, the following routines ignore what is in ECX.
|
|
|
|
|
|
modstart i8s
|
|
|
|
xdefp __U8RS
|
|
|
|
defpe __U8RS
|
|
|
|
mov ecx,ebx ; get shift-count into cl
|
|
and cl,03fH ; get mod 64 shift count
|
|
test cl,020H ; see if count >= 32
|
|
jnz L1
|
|
shrd eax,edx,cl
|
|
shr edx,cl
|
|
ret ; and return!!!
|
|
|
|
L1:
|
|
mov eax,edx
|
|
sub ecx,020H ; knock off 32-bits of shifting
|
|
xor edx,edx ; zero extend result
|
|
shr eax,cl
|
|
ret
|
|
|
|
endproc __U8RS
|
|
|
|
xdefp __I8RS
|
|
|
|
defpe __I8RS
|
|
|
|
mov ecx,ebx ; get shift-count into cl
|
|
and cl,03fH ; get mod 64 shift count
|
|
test cl,020H ; see if count >= 32
|
|
jnz L2
|
|
shrd eax,edx,cl
|
|
sar edx,cl
|
|
ret ; and return!!!
|
|
|
|
L2:
|
|
mov eax,edx ; shift hi into lo (1st 32 bits now shifted)
|
|
sub cl,020H ; knock off 32-bits of shifting
|
|
sar edx,31 ; sign extend hi-word
|
|
sar eax,cl ; shift remaining part
|
|
ret
|
|
|
|
endproc __I8RS
|
|
|
|
xdefp __I8LS
|
|
xdefp __U8LS
|
|
|
|
defpe __I8LS
|
|
defpe __U8LS
|
|
|
|
mov ecx,ebx ; get shift-count into cl
|
|
and cl,03fH ; get mod 64 shift count
|
|
test cl,020H ; see if count >= 32
|
|
jnz L3
|
|
shld edx,eax,cl
|
|
shl eax,cl
|
|
ret ; and return!!!
|
|
|
|
L3:
|
|
mov edx,eax ; shift lo into hi (1st 32 bits now shifted)
|
|
sub cl,020H ; knock off 32-bits of shifting
|
|
xor eax,eax ; lo 32 bits are now zero
|
|
shl edx,cl ; shift remaining part
|
|
ret ; and return!!!
|
|
|
|
endproc __U8LS
|
|
endproc __I8LS
|
|
endmod
|
|
end
|