home *** CD-ROM | disk | FTP | other *** search
/ PC Media 2 / PC MEDIA CD02.iso / share / prog / aakint14 / resetcom.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-23  |  1.0 KB  |  24 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL RESET THE SELECTED COMM PORT EMPTING BUFFERS *)
  3. (* INPUT        : SERIAL CHANNEL                                    *)
  4. (* INPUT/OUTPUT : NONE                                              *)
  5. (* OUTPUT       : NONE                                              *)
  6. (* USES         : NO SIDE EFFECTS                                   *)
  7. (* CALLS        : INTR                                              *)
  8. (* ERRORS       : NONE                                              *)
  9. (* GLOBAL VARS  : NONE                                              *)
  10. (* SUBJECT      : SERIAL COMM, RESET COMM                           *)
  11. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 001   *)
  12. (********************************************************************)
  13.  
  14. PROCEDURE Reset_Com                           ( Ser_Chan : INTEGER ) ;
  15.  
  16. VAR
  17.    Regs  : Reg ;
  18.  
  19. BEGIN (* PROC *)
  20.    Regs.AH := 5 ;
  21.    Regs.DX := Ser_Chan ;
  22.    INTR ( 20, Regs ) ;
  23. END ; (* PROC *)
  24.