Skip to content

Commit

Permalink
Add U8RS, U8LS and PIA .asm routines from OWC library
Browse files Browse the repository at this point in the history
  • Loading branch information
ghaerr committed Nov 17, 2024
1 parent 2885524 commit 98dd88e
Show file tree
Hide file tree
Showing 3 changed files with 204 additions and 0 deletions.
65 changes: 65 additions & 0 deletions libc/watcom/asm/i8ls086.asm
Original file line number Diff line number Diff line change
@@ -0,0 +1,65 @@
;*****************************************************************************
;*
;* 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!
;*
;*****************************************************************************


;========================================================================
;== Name: I8LS,U8LS ==
;== Operation: integer eight byte left shift ==
;== Inputs: AX:BX:CX:DX integer M1 ==
;== SI shift count ==
;== Outputs: AX:BX:CX:DX result ==
;========================================================================
include mdef.inc
include struct.inc

modstart i8ls086

xdefp __I8LS
xdefp __U8LS

defp __I8LS
defp __U8LS
test si,si ; shifting anything?
_if ne ; if so then
_loop ; - top of loop
shl dx,1 ; - - shift one bit
rcl cx,1 ; - - ...
rcl bx,1 ; - - ...
rcl ax,1 ; - - ...
dec si ; - - decrement shift count
_until e ; - kick out if done
_endif ; endif
ret
endproc __U8LS
endproc __I8LS

endmod
end
77 changes: 77 additions & 0 deletions libc/watcom/asm/pia.asm
Original file line number Diff line number Diff line change
@@ -0,0 +1,77 @@
;*****************************************************************************
;*
;* 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!
;*
;*****************************************************************************


;========================================================================
;== Name: PIA,PIS ==
;== Operation: Pointer integer add and subtract ==
;== Inputs: DX:AX pointer ==
;== CX:BX long int ==
;== Outputs: DX:AX has DX:AX op CX:BX as pointer ==
;== Volatile: DX:AX and CX:BX ==
;== ==
;========================================================================
include mdef.inc


extrn "C",_HShift : byte

modstart pia

xdefp __PIA
xdefp __PIS

defp __PIS
neg cx ; negate the 32 bit integer
neg bx ; ...
sbb cx,0 ; ...

defp __PIA
add ax,bx ; add offsets
adc cx,0 ; calculate overflow
mov bx,cx ; shuffle overflow info bx
if (_MODEL and (_BIG_DATA or _HUGE_DATA)) and ((_MODEL and _DS_PEGGED) eq 0)
push ds ; need a segment register
mov cx,seg _HShift ; get the huge shift value
mov ds,cx ; ...
mov cl,ds:_HShift ; ...
pop ds ; restore register
else
mov cl,_HShift ; get huge shift value
endif
shl bx,cl ; adjust the overflow by huge shift value
add dx,bx ; and add into selector value
ret ; ...
endproc __PIA
endproc __PIS

endmod
end
62 changes: 62 additions & 0 deletions libc/watcom/asm/u8rs086.asm
Original file line number Diff line number Diff line change
@@ -0,0 +1,62 @@
;*****************************************************************************
;*
;* 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!
;*
;*****************************************************************************


;========================================================================
;== Name: U8RS ==
;== Operation: integer eight byte right shift (unsigned) ==
;== Inputs: AX:BX:CX:DX integer M1 ==
;== SI shift count ==
;== Outputs: AX:BX:CX:DX result ==
;========================================================================
include mdef.inc
include struct.inc

modstart u8rs086

xdefp __U8RS

defp __U8RS
test si,si ; shifting anything?
_if ne ; if so then
_loop ; - top of loop
shr ax,1 ; - - shift one bit
rcr bx,1 ; - - ...
rcr cx,1 ; - - ...
rcr dx,1 ; - - ...
dec si ; - - decrement shift count
_until e ; - kick out if done
_endif ; endif
ret
endproc __U8RS

endmod
end

0 comments on commit 98dd88e

Please sign in to comment.