home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l440 / 2.ddi / CHAP8 / FOPEN.SCR < prev    next >
Encoding:
Text File  |  1990-09-26  |  1.1 KB  |  34 lines
  1. ; fopen.scr
  2.  
  3. structure param_blk fields
  4.     env_seg (word,hex)
  5.     args (dword,ptr)
  6.  
  7. intercept 21h
  8.     function 3ch    ; Create File
  9.         on_entry
  10.             output "CREAT " (ds:dx->byte,asciiz,64)
  11.         on_exit if (cflag == 1)
  12.             sameline " [FAIL " ax "]"
  13.     ; ----------------------------------------      
  14.     function 3dh    ; Open File
  15.         on_entry
  16.             output "OPEN  " (ds:dx->byte,asciiz,64)
  17.         on_exit if (cflag == 1)
  18.             sameline " [FAIL " ax "]"
  19.     ; ----------------------------------------      
  20.     function 4bh    ; Execute Program
  21.         subfunction 00h
  22.             on_entry
  23.                 output "EXEC  " 
  24.                        (ds:dx->byte,asciiz,64)                 ; program
  25.                        (es:bx->param_blk.args->byte,string,64) ; cmdline
  26.             on_exit if (cflag == 1)
  27.                 sameline " [FAIL " ax "]"
  28.     ; ----------------------------------------      
  29.     function 4eh    ; Find First File
  30.         on_entry
  31.             output "FIND  " (ds:dx->byte,asciiz,64)
  32.         on_exit if (cflag == 1)
  33.             sameline " [FAIL " ax "]"
  34.