home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / GETIRQM.ASM (.txt) < prev    next >
Assembly Source File  |  1994-06-18  |  280b  |  20 lines
  1. .386p
  2. locals
  3.  
  4. public  GETIRQMASK
  5.  
  6. _TEXT           segment dword public use32 'CODE'
  7.  
  8. GETIRQMASK:
  9.         in al,0a1h
  10.         mov ah,al
  11.         in al,21h
  12.         mov cl,[esp+4+0+00h]
  13.         shr eax,cl
  14.         and eax,1
  15.         ret 04h
  16.  
  17. _TEXT           ends
  18. end
  19.  
  20.