_call16.asm

来自「开放源码的编译器open watcom 1.6.0版的源代码」· 汇编 代码 · 共 75 行

;*****************************************************************************
;*
;*                            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:  WIN386 interface for calling 16-bit Windows function
;*
;*****************************************************************************


;****************************************************************************
;***                                                                      ***
;*** _CALL16.ASM - interface to __Call16 to call a 16-bit PASCAL function ***
;***    DWORD _Call16( FARPROC lpFunc, char *fmt, ... );                  ***
;***                                                                      ***
;****************************************************************************
.386p

        extrn   _LocalPtr       : word
        extrn   __Call16Addr    : fword

_DATA   segment use32 word public 'DATA'
_DATA   ends
DGROUP  group   _DATA

_TEXT   segment use32 word public 'CODE'
        assume  cs:_TEXT,ds:DGROUP

        public  _Call16
        public  _Call16_

_Call16_ proc   near
_Call16:
        push    ebp                     ; save registers
        push    edi                     ; ...
        push    esi                     ; ...
        push    ebx                     ; ...
        push    ecx                     ; ...
        push    edx                     ; ...
        lea     edi,((6+1)*4)[esp]      ; point to parms
        mov     ds,_LocalPtr            ; load up extenders DS
        call    fword ptr es:__Call16Addr; invoke _call16 routine in extender
        pop     edx                     ; restore registers
        pop     ecx                     ; ...
        pop     ebx                     ; ...
        pop     esi                     ; ...
        pop     edi                     ; ...
        pop     ebp                     ; ...
        ret                             ; return
_Call16_ endp

_TEXT   ends
        end