home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l440 / 2.ddi / CHAP4 / 2FOPEN.SCR next >
Encoding:
Text File  |  1990-09-25  |  1.3 KB  |  40 lines
  1. ;; 2FOPEN.SCR
  2. ;; Intended for use with versions of DOS >=3.1 and <4.00
  3.  
  4. include "dosstruc"
  5.  
  6. intercept 21h
  7.     function 3dh
  8.         on_entry
  9.             output "== DOS OPEN (3Dh) ====================="
  10.             output "File name: " (ds:dx->byte,asciiz,40)
  11.             output "Open mode: " al
  12.         on_exit
  13.             output ""
  14.             output "== 3D OPEN Completed "
  15.             if (cflag == 1) sameline "(FAILED " ax ") =========="
  16.             if (cflag == 0) sameline "(Handle " ax ") =========="
  17.  
  18. intercept 2fh
  19.     function 11h
  20.         subfunction 16h
  21.             on_entry
  22.                 output ""
  23.                 output "-- 2F Open (16h) -----------------"
  24.                 output "File name: " (sda_seg:sda_ofs->SDA3.FN1)
  25.                 output "Open mode: " (sda_seg:sda_ofs->SDA3.OPEN_MODE)
  26.                 output "Uninitialized SFT:"
  27.                 output (es:di->SFT)
  28.             on_exit
  29.                 output ""
  30.                 output "-- 2F Open completed "
  31.                 if (cflag == 0)
  32.                     sameline "-----------------"
  33.                     output "Completed SFT:"
  34.                     output (es:di->SFT)
  35.                 if (cflag == 1) sameline "(FAILED " ax ") ---------"
  36.  
  37. run "command /c type %1"
  38.  
  39. report "2fopen.out"
  40.