home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / heath / jmodz100.lbr / RAWIO.ASM < prev   
Encoding:
Assembly Source File  |  1985-05-20  |  640 b   |  51 lines
  1. ; raw i/o returns using ibm bios ints.
  2. ; k. mitchum 12/84.
  3.  
  4.     include model.h
  5.     include prologue.h
  6.  
  7. @z100    equ    TRUE
  8.  
  9.     public rawgetc, rawchkc
  10.  
  11. if @bigmodel
  12. rawchkc    proc far
  13. else
  14. rawchkc    proc near
  15. endif
  16. if @z100
  17.         mov dl,0ffh
  18.         mov    ah,6
  19.         int 21h
  20. else
  21.         mov    ah,1
  22.         int    16h
  23. endif
  24.         jz    rawchk1    ;if no character
  25.         mov    ax,1
  26.         ret
  27. rawchk1:
  28.         mov    ax,0
  29.         ret
  30. rawchkc    endp
  31.  
  32. if @bigmodel
  33. rawgetc    proc far
  34. else
  35. rawgetc    proc near
  36. endif
  37. if @z100
  38.         mov    ah,7
  39.         int    21h
  40. else
  41.         mov    ah,0
  42.         int    16h
  43. endif
  44.         ret
  45. rawgetc    endp
  46.  
  47.     include epilogue.h
  48.  
  49.     end
  50.  
  51.