home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / libcvers.zip / article_appendix / hcaux.asm < prev    next >
Assembly Source File  |  2001-08-15  |  581b  |  36 lines
  1. ; $Id: hcaux.asm,v 1.1.1.1 2001/08/14 23:34:32 root Exp $
  2. ;
  3. ; MetaWare auxiliary routines
  4.  
  5. .386p
  6.  
  7. FILLER        EQU    0BBh        ; Stack filler
  8.  
  9.         PUBLIC    _mwclearstack, _mwargstack, _mwgoc
  10.  
  11. ; Common code segment
  12.  
  13.         _TEXT    SEGMENT BYTE PUBLIC "CODE"
  14.         ASSUME    cs:_TEXT ;, ds:STACK32, es:STACK32
  15.  
  16. ; Stack cleanup. Uses the stack base
  17.         
  18. _mwclearstack    proc
  19. ;        push    edi
  20. ;        cld
  21. ;        lea     edi, STACK32
  22. ;        mov     ecx, esp
  23. ;        sub     ecx, edi
  24. ;        mov     al, FILLER
  25. ;        rep    stosb
  26. ;        pop     edi
  27. _mwargstack:
  28. _mwgoc:
  29.         retn
  30. _mwclearstack    endp
  31.  
  32.  
  33.         _TEXT    ENDS
  34.         
  35.         END
  36.