66 lines
1.5 KiB
NASM
66 lines
1.5 KiB
NASM
|
; File:
|
||
|
|
; rtlsupt.asm
|
||
|
|
; Description:
|
||
|
|
; Assembly support routines for long mul/div
|
||
|
|
; was forced to do that for WATCOM C, which has _near
|
||
|
|
; LMUL/LDIV routines. shouldn't harm for others
|
||
|
|
;
|
||
|
|
; Copyright (c) 2001
|
||
|
|
; tom ehlert
|
||
|
|
; All Rights Reserved
|
||
|
|
;
|
||
|
|
; This file is part of DOS-C.
|
||
|
|
;
|
||
|
|
; DOS-C is free software; you can redistribute it and/or
|
||
|
|
; modify it under the terms of the GNU General Public License
|
||
|
|
; as published by the Free Software Foundation; either version
|
||
|
|
; 2, or (at your option) any later version.
|
||
|
|
;
|
||
|
|
; DOS-C is distributed in the hope that it will be useful, but
|
||
|
|
; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See
|
||
|
|
; the GNU General Public License for more details.
|
||
|
|
;
|
||
|
|
; You should have received a copy of the GNU General Public
|
||
|
|
; License along with DOS-C; see the file COPYING. If not,
|
||
|
|
; write to the Free Software Foundation, 675 Mass Ave,
|
||
|
|
; Cambridge, MA 02139, USA.
|
||
|
|
;
|
||
|
|
; $Id$
|
||
|
|
;
|
||
|
|
;
|
||
|
|
|
||
|
|
%include "segs.inc"
|
||
|
|
|
||
|
|
|
||
|
|
segment _TEXT
|
||
|
|
|
||
|
|
;
|
||
|
|
; cdecl calling conventions
|
||
|
|
;
|
||
|
|
; ULONG FAR MULULUS(ULONG mul1, USHORT mul2) - MULtiply ULong by UShort
|
||
|
|
;
|
||
|
|
%IFNDEF I386
|
||
|
|
P8086
|
||
|
|
%ELSE
|
||
|
|
P386 ; Turn on 386 instructions.
|
||
|
|
%ENDIF ; I386
|
||
|
|
|
||
|
|
|
||
|
|
global _MULULUS
|
||
|
|
_MULULUS:
|
||
|
|
|
||
|
|
push bp
|
||
|
|
mov bp,sp
|
||
|
|
mov bx,[bp+6+4] ; short mul2
|
||
|
|
mov ax,[bp+6+2] ; high part of mul1
|
||
|
|
mul bx
|
||
|
|
mov cx,ax
|
||
|
|
mov ax,[bp+6+0] ; low part of mul1
|
||
|
|
mul bx
|
||
|
|
add dx,cx ; add in high part of result
|
||
|
|
|
||
|
|
pop bp
|
||
|
|
retf
|
||
|
|
|