home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l440 / 2.ddi / CHAP8 / EXEC.SCR < prev    next >
Encoding:
Text File  |  1990-09-26  |  759 b   |  26 lines
  1. ; EXEC.SCR
  2. structure param_block fields
  3.     env_seg (word,hex)
  4.     args (dword,ptr)
  5.  
  6. intercept 21h
  7.     function 0ah
  8.         on_exit output (ds:dx[1]->byte,string,60)
  9.     function 4bh 
  10.         on_entry 
  11.             output (0:046Ch->dword,dec) "   "                ; time
  12.                    (ds:dx->byte,asciiz,64)                   ; executable
  13.                    (es:bx->param_block.args->byte,string,32) ; cmdline args
  14.         on_exit
  15.             if (cflag == 1) sameline " [FAIL " ax "]"
  16.     function 00h 4ch
  17.         on_entry sameline " [RET " al "]"
  18.     function 31h
  19.         on_entry sameline " [TSR " al "]"
  20.             
  21. intercept 20h
  22.     on_entry sameline " [RET20 " al "]"
  23.  
  24. intercept 27h
  25.     on_entry sameline " [TSR27 " al "]"
  26.