home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / libcvers.zip / article_appendix / wat16fc2.asm < prev    next >
Assembly Source File  |  2001-11-09  |  2KB  |  76 lines
  1. ; $Id: wat16fc2.asm,v 1.1 2001/11/08 21:30:08 root Exp $
  2.  
  3. .386
  4.  
  5.                 extrn DosFlatToSel:near
  6.                 extrn DosSelToFlat:near
  7.  
  8.                 public __Far16Cdecl2
  9.  
  10. cseg01          segment byte use32 public 'CODE'
  11.                 assume cs:cseg01
  12.                 assume es:nothing, ss:nothing, ds:nothing, fs:nothing, gs:nothing
  13.  
  14. __Far16Cdecl2   proc near
  15.  
  16. var_14          = dword ptr -14h
  17.  
  18.                 push    ebp
  19.                 push    edi
  20.                 push    ebx
  21.                 push    edx
  22.                 push    es
  23.                 push    ds
  24.                 mov     ebp, esp
  25.                 push    ss
  26.                 push    ebp
  27.                 push    eax
  28.                 add     ecx, 3
  29.                 and     cl, 0FCh
  30.                 xor     ebp, ebp
  31.                 mov     bp, cx
  32.                 sub     esp, ecx
  33.                 mov     edi, esp
  34.                 shr     ecx, 1
  35.                 repe movsw
  36.                 mov     eax, esp
  37.                 call    DosFlatToSel
  38.                 push    eax
  39.                 add     bp, ax
  40.                 lss     sp, [esp+14h+var_14]
  41.                 jmp      far ptr loc_20011
  42. __Far16Cdecl2   endp
  43.  
  44.  
  45. loc_1015F:
  46.                 lss     esp, [ebp+4]
  47.                 rol     eax, 10h
  48.                 mov     ax, ds
  49.                 rol     eax, 10h
  50.                 pop     ds
  51.                 pop     es
  52.                 pop     edx
  53.                 pop     ebx
  54.                 pop     edi
  55.                 pop     ebp
  56.                 call    DosSelToFlat
  57.                 retn    
  58.  
  59. cseg01          ends
  60.  
  61.  
  62. cseg03          segment byte use16 public 'CODE'
  63.                 assume cs:cseg03
  64.                 assume ds:nothing, es:nothing, ss:nothing, ds:nothing, fs:nothing, gs:nothing
  65.  
  66. loc_20011:
  67.                 mov     cx, ss
  68.                 mov     ds, cx
  69.                 mov     es, cx
  70.                 call    dword ptr [bp+0]
  71.                 jmp     far ptr FLAT:loc_1015F
  72.  
  73. cseg03        ends
  74.  
  75.         end
  76.