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