home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / libcvers.zip / article_appendix / wat16thk.asm < prev    next >
Assembly Source File  |  2001-11-09  |  700b  |  30 lines
  1. ; $Id: wat16thk.asm,v 1.1 2001/11/08 21:30:09 root Exp $
  2.  
  3. .386
  4.  
  5.                 extrn DosFlatToSel:near
  6.                 extrn DosSelToFlat:near
  7.  
  8.         public    __FlatToFar16, __Far16ToFlat
  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. __FlatToFar16   proc near
  15.                 or      eax, eax
  16.                 jnz     DosFlatToSel
  17.                 retn    
  18. __FlatToFar16   endp
  19.  
  20.  
  21. __Far16ToFlat   proc near
  22.                 or      eax, eax
  23.                 jnz     DosSelToFlat
  24.                 retn    
  25. __Far16ToFlat   endp
  26.  
  27. cseg01          ends
  28.  
  29.             end
  30.