home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TP003.ZIP / STAYI13.410 < prev    next >
Encoding:
Text File  |  1986-06-13  |  1.2 KB  |  19 lines
  1. Inline(
  2.                               {; STAYI13.400}
  3.                               {;-----------}
  4.                               {; Routine to Set a Flag when INT 13 Disk I/O is active}
  5.   $5D                         {         Pop   Bp                           ; Remove Turbo stack frame}
  6.   /$5D                        {         Pop   Bp}
  7.   /$2E                        {         CS:}
  8.   /$80/$0E/>INTR_FLAGS/<INT13_ON{         Or by [<Intr_flags],<INT13_on      ; Say INT 13 is Active}
  9.   /$9C                        {         Pushf                              ; Invoke Original Disk INT 13}
  10.   /$2E                        {         CS:}
  11.   /$FF/$1E/>BIOS_INT13        {         Call dw [<BIOS_INT13]}
  12.   /$9C                        {         Pushf                              ; Save Return Flags}
  13.   /$2E                        {         CS:}
  14.   /$80/$26/>INTR_FLAGS/<FOXS-INT13_ON{         And by [<Intr_flags],<Foxs-INT13_on; Clear INT 13 Active flag}
  15.   /$9D                        {         Popf                               ; Retrieve results flags}
  16.   /$CA/$02/$00                {         RETf  2                            ; Throw away old flags}
  17.                               {;......................................................................}
  18. );
  19.