basic/source/runtime/win.asm

   1 ;*************************************************************************
   2 ;
   3 ; DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 ;
   5 ; Copyright 2008 by Sun Microsystems, Inc.
   6 ;
   7 ; OpenOffice.org - a multi-platform office productivity suite
   8 ;
   9 ; $RCSfile: win.asm,v $
  10 ;
  11 ; $Revision: 1.4 $
  12 ;
  13 ; This file is part of OpenOffice.org.
  14 ;
  15 ; OpenOffice.org is free software: you can redistribute it and/or modify
  16 ; it under the terms of the GNU Lesser General Public License version 3
  17 ; only, as published by the Free Software Foundation.
  18 ;
  19 ; OpenOffice.org is distributed in the hope that it will be useful,
  20 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 ; GNU Lesser General Public License version 3 for more details
  23 ; (a copy is included in the LICENSE file that accompanied this code).
  24 ;
  25 ; You should have received a copy of the GNU Lesser General Public License
  26 ; version 3 along with OpenOffice.org.  If not, see
  27 ; <http://www.openoffice.org/license.html>
  28 ; for a copy of the LGPLv3 License.
  29 ;
  30 ;*************************************************************************
  31
  32 ;    Anmerkungen
  33 ;        Direktaufruf von C- und PASCAL-Routinen, Windows und OS/2
  34 ;
  35 ; Inhalt:
  36 ; type = CallXXX (far *proc, char *stack, short nstack)
  37 ;
  38 ; Kopie des Basic-Stacks (nstack Bytes) auf den C-Stack
  39 ; und Aufruf der Prozedur.
  40
  41                 .MODEL  LARGE,C
  42
  43                 .CODE
  44
  45                 PUBLIC  CallINT
  46                 PUBLIC  CallLNG
  47                 PUBLIC  CallSNG
  48                 PUBLIC  CallDBL
  49                 PUBLIC  CallSTR
  50                 PUBLIC  CallFIX
  51
  52 CallINT         LABEL   byte
  53 CallLNG         LABEL   byte
  54 CallSNG         LABEL   byte
  55 CallDBL         LABEL   byte
  56 CallSTR         LABEL   byte
  57 CallFIX         PROC    p:PTR,stk:PTR,n:WORD
  58
  59                 PUSH    SI
  60                 PUSH    DI
  61                 MOV     DX,DS
  62                 SUB     SP,[n]
  63                 MOV     DI,SP
  64                 MOV     AX,SS
  65                 MOV     ES,AX
  66                 LDS     SI,[stk]
  67                 MOV     CX,[n]
  68                 SHR     CX,1
  69                 CLD
  70                 JCXZ    $1
  71         REP     MOVSW                   ; Stack uebernehmen
  72 $1:             MOV     DS,DX
  73                 CALL    [p]             ; Aufruf der Prozedur
  74                 CLI
  75                 MOV     SP,BP
  76                 SUB     SP,4            ; wegen gepushter Register
  77                 STI
  78                 POP     DI
  79                 POP     SI
  80                 RET
  81
  82 CallFIX         ENDP
  83
  84                 END