home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / IOPL32.ZIP / IO.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-11-28  |  702 b   |  48 lines
  1.           .286
  2.  
  3. IO_TEXT   segment   word public 'CODE'
  4.           assume    cs:IO_TEXT
  5.  
  6.           public    WPORT
  7. WPORT     proc      far
  8.  
  9.           push bp
  10.           mov  bp,sp
  11.           push ax
  12.           push dx
  13.  
  14.           mov  ax,[bp+6]
  15.           mov  dx,[bp+8]
  16.           out  dx,al
  17.  
  18.           pop  dx
  19.           pop  ax
  20.           pop  bp
  21.  
  22.           ret  4
  23.  
  24. WPORT     endp
  25.  
  26.           public    RPORT
  27. RPORT     proc      far
  28.  
  29.           push bp
  30.           mov  bp,sp
  31.           push dx
  32.  
  33.           mov  dx,[bp+6]
  34.           in   al,dx
  35.           xor  ah,ah
  36.  
  37.           pop  dx
  38.           pop  bp
  39.  
  40.           ret  2
  41.  
  42. RPORT     endp
  43.  
  44.  
  45. IO_TEXT   ends
  46.  
  47.           end
  48.