home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKINT14.ZIP / SETSERRF.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-08-24  |  1.5 KB  |  31 lines
  1. (********************************************************************)
  2. (* THIS PROCEDURE WILL SET THE SERIAL CHANNELS RECV FLOW CONTROL    *)
  3. (* AND CONTROL COUNTS FOR ON AND OFF CONTROL                        *)
  4. (* INPUT        : Ser_Chan : INTEGER, Xmit_Flow : BYTE              *)
  5. (*              : On_Count, Off_Count : INTEGER                     *)
  6. (* INPUT/OUTPUT : NONE                                              *)
  7. (* OUTPUT       : NONE                                              *)
  8. (* USES         : NO SIDE EFFECTS                                   *)
  9. (* CALLS        : INTR                                              *)
  10. (* ERRORS       : NONE                                              *)
  11. (* GLOBAL VARS  : NONE                                              *)
  12. (* SUBJECT      : SER COMM, SET RECV FLOW CONTROL                   *)
  13. (* DOMAIN       : ARNO A. KARNER                      LEVEL : 001   *)
  14. (********************************************************************)
  15.  
  16. PROCEDURE Set_Recv_Flow                       ( Ser_Chan  : INTEGER ;
  17.                                                 Xmit_Flow : BYTE ;
  18.                                                 On_Count  : INTEGER;
  19.                                                 Off_Count : INTEGER );
  20.  
  21. VAR
  22.    Regs : Reg;
  23.  
  24. BEGIN (* PROC *)
  25.    Regs.AH := 12;
  26.    Regs.DX := Ser_Chan;
  27.    Regs.AL := Xmit_Flow;
  28.    Regs.BX := Off_Count;
  29.    Regs.CX := On_Count;
  30.    INTR ( 20, Regs );
  31. END ; (* PROC *)