home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xlibo2.zip / XPORT.ASM < prev    next >
Assembly Source File  |  1993-05-22  |  981b  |  62 lines
  1.  
  2. R2SEG SEGMENT BYTE PUBLIC USE16 'CODE'
  3.       ASSUME  CS:R2SEG, DS:NOTHING
  4.  
  5.  
  6.  
  7.  
  8.         PUBLIC outp
  9. outp            PROC  FAR
  10.         push  bp
  11.         mov   bp, sp
  12.         mov   dx, [bp+8]
  13.         mov   al, [bp+6]
  14.         out   dx, al
  15.         pop   bp
  16.         ret   4
  17. outp            ENDP
  18.  
  19.  
  20.  
  21.  
  22.         PUBLIC outpw
  23. outpw           PROC  FAR
  24.         push  bp
  25.         mov   bp, sp
  26.         mov   dx, [bp+8]
  27.         mov   ax, [bp+6]
  28.         out   dx, ax
  29.         pop   bp
  30.         ret   4
  31. outpw           ENDP
  32.  
  33.  
  34.  
  35.  
  36.         PUBLIC inp
  37. inp             PROC  FAR
  38.         push  bp
  39.         mov   bp, sp
  40.         mov   dx, [bp+6]
  41.         in    al, dx
  42.         sub   ah, ah
  43.         pop   bp
  44.         ret   2
  45. inp             ENDP
  46.  
  47.  
  48.  
  49.  
  50.         PUBLIC inpw
  51. inpw            PROC  FAR
  52.         push  bp
  53.         mov   bp, sp
  54.         mov   dx, [bp+6]
  55.         in    ax, dx
  56.         pop   bp
  57.         ret   2
  58. inpw            ENDP
  59.  
  60. R2SEG   ENDS
  61.    END
  62.