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 / _ASIDIAG.ASM < prev    next >
Encoding:
Assembly Source File  |  1990-08-14  |  1.0 KB  |  41 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.  
  8.         .xlist
  9.         include model.h
  10.         include prologue.h
  11.         include asiports.equ
  12.         .list
  13.  
  14.         pseg    _asidiag
  15.  
  16.  
  17. ;**<<  _ A S I D I A G  >>**
  18. ;
  19. ;  void _asidiag( ioaddress, ctrl )
  20. ;
  21. ;  Turn diagnostic mode explicitly ON or OFF.
  22. ;
  23.         cproc   _asidiag,,,,,<NOSI,NODI>
  24.         mov     dx,parm1_
  25.         add     dx,MCREG        ; address modem ctrl reg
  26.         cli
  27.         in      al,dx           ; read current value
  28.         KILL_TIME                ;Rest the 8250 for a while
  29.         and     al,not LOOPIT   ; assume turning off
  30.         test    word ptr parm2_,1 ;check assumption
  31.         jz      setdtr          ;if turning off
  32.         or      al,LOOPIT       ;assummed wrong
  33. setdtr: out     dx,al           ;set 8250
  34.         KILL_TIME
  35.         sti
  36.         xor     ax,ax           ;for consistency
  37.         cproce
  38.         endps
  39.         end
  40.  
  41.