home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / GRLF-C-1.ZIP / GCOMM / _ASIBREA.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-14  |  1.0 KB  |  40 lines
  1.         page    60,132
  2. ;
  3. ; The Greenleaf Comm Library
  4. ;
  5. ; Copyright (C) 1984-90 Greenleaf Software Inc.  All Rights Reserved.
  6. ;
  7.         .xlist
  8.         include model.h
  9.         include prologue.h
  10.         include asiports.equ
  11.         .list
  12.  
  13.         pseg    _asibreak
  14.  
  15.  
  16. ;**<<  _ A S I B R E A K  >>**
  17. ;
  18. ;  void _asibreak( ioaddress, ctrl )
  19. ;
  20. ;  Turn BREAK explicitly ON or OFF.
  21. ;
  22.         cproc   _asibreak,,_asibrea,,,<NOSI,NODI>
  23.         mov     dx,parm1_
  24.         add     dx,LCREG        ; address line ctrl reg
  25.         cli
  26.         in      al,dx           ; read current value
  27.         KILL_TIME                ;Let the 8250 rest for a while
  28.         and     al,not SBREAK   ; assume turning off
  29.         test    word ptr parm2_,1 ;check assumption
  30.         jz      setbrk          ;if turning off
  31.         or      al,SBREAK       ;assummed wrong
  32. setbrk: out     dx,al           ;set 8250
  33.         KILL_TIME
  34.         sti
  35.         xor     ax,ax           ;return 0
  36.         cproce
  37.         endps
  38.         end
  39.  
  40.