home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / MAWK113.ZIP / mawk113 / msdos / xdosexec.asm < prev    next >
Assembly Source File  |  1991-10-28  |  1KB  |  68 lines
  1.  
  2. ;********************************************
  3. ; xdosexec.asm
  4. ; copyright 1991, Michael D. Brennan
  5. ; 
  6. ; This is a source file for mawk, an implementation of
  7. ; the AWK programming language.
  8. ; 
  9. ; Mawk is distributed without warranty under the terms of
  10. ; the GNU General Public License, version 2, 1991.
  11. ;*******************************************/
  12.  
  13. ; This is only used for small model DOS
  14. ; It executes a program via int 0x21 0x4b00
  15. ;
  16.  
  17. public  _xDOSexec
  18.  
  19. .model  small
  20.  
  21. ;  _xDOSexec(char *command, void *blockp)
  22.  
  23. command  equ  [bp+4]
  24. blockp   equ  [bp+6]
  25.  
  26. .data
  27. extrn  _errno : word
  28. .code
  29.  
  30. ss_save   dw   ?
  31. sp_save   dw   ?
  32.  
  33. _xDOSexec  proc  near
  34.  
  35.      push  bp
  36.      mov   bp, sp
  37.      push  si
  38.      push  di
  39.      push  ds
  40.      mov   ax, ds
  41.      mov   es, ax
  42.      mov   cs:ss_save, ss
  43.      mov   cs:sp_save, sp
  44.      mov   ax, 4b00h
  45.      mov   bx, blockp
  46.      mov   dx, command
  47.      int   21h
  48.      jc    @error
  49.      cli            ;   restore  stack
  50.      mov   ss, cs:ss_save
  51.      mov   sp, cs:sp_save
  52.      sti
  53.      mov   ax, 4d00h
  54.      int   21h      ;  get child exit code
  55. @exit:
  56.      pop   ds
  57.      pop   di
  58.      pop   si
  59.      pop   bp
  60.      ret
  61. @error:
  62.      mov   _errno, ax
  63.      mov   ax, -1
  64.      jmp   @exit
  65.  
  66. _xDOSexec  endp
  67. end
  68.