home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / asm_programming / ASMFILES.ZIP / COMINK.ASM < prev    next >
Assembly Source File  |  1985-06-21  |  640b  |  29 lines
  1. ;ROUTINE TO CHECK FOR INPUT FROM A COMMUNICATIONS LINE
  2. ;
  3. cominck       proc far
  4. ;
  5.               push ds
  6.               push dx
  7.               push si
  8. ;
  9.               mov  si,dx
  10.               add  si,si
  11.               mov  dx,40h
  12.               mov  ds,dx
  13.               mov  dx,[si]
  14.               add  dx,5
  15.               in   al,dx
  16.               test al,1
  17.               jz   cominckexit
  18. ;
  19.               mov  dx,[si]
  20.               in   al,dx
  21. cominckexit:
  22. ;
  23.               pop  si
  24.               pop  dx
  25.               pop  ds
  26.               ret
  27. ;
  28. cominck       endp
  29.