home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKINT14.ZIP / SETSERXF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-24  |  1.2 KB  |  26 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL SET THE SERIAL CHANNELS XMIT FLOW CONTROL    *)
  3. (* !!ONLY ONE FORM OF FLOW CONTROL CAN BE ACTIVE AT A TIME!!!!!!!   *)
  4. (* INPUT        : Ser_Chan : INTEGER, Xmit_Flow : BYTE              *)
  5. (* INPUT/OUTPUT : NONE                                              *)
  6. (* OUTPUT       : NONE                                              *)
  7. (* USES         : NO SIDE EFFECTS                                   *)
  8. (* CALLS        : INTR                                              *)
  9. (* ERRORS       : NONE                                              *)
  10. (* GLOBAL VARS  : NONE                                              *)
  11. (* SUBJECT      : SER COMM, SET XMIT FLOW CONTROL                   *)
  12. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 001   *)
  13. (********************************************************************)
  14.  
  15. PROCEDURE Set_Xmit_Flow                         ( Ser_Chan : INTEGER ;
  16.                                                   Xmit_Flow : BYTE );
  17.  
  18. VAR
  19.    Regs : Reg;
  20.  
  21. BEGIN (* PROC *)
  22.    Regs.AH := 10;
  23.    Regs.AL := Xmit_Flow;
  24.    Regs.DX := Ser_Chan;
  25.    INTR ( 20, Regs );
  26. END ; (* PROC *)