home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pibterm / pibt41s1.arc / CISB.LOC < prev    next >
Encoding:
Text File  |  1987-12-18  |  2.0 KB  |  44 lines
  1. CONST
  2.    Err_Mess_Line   = 9               (* Line for status report *);
  3.  
  4. VAR
  5.    Seq_Num      : INTEGER          (* Current Sequence Number - init by CISB_Term_ENQ *);
  6.    CheckSum     : INTEGER          (* May hold CRC *);
  7.  
  8.                    (* Other End's Parameters *)
  9.  
  10.    His_WS        : BYTE            (* Sender's Window Send     *);
  11.    His_WR        : BYTE            (* Sender's Window Receive  *);
  12.    His_BS        : BYTE            (* Sender's Block Size      *);
  13.    His_CM        : BYTE            (* Sender's Check Method    *);
  14.  
  15.                    (* Negotiated Parameters *)
  16.  
  17.    Our_WS        : BYTE            (* Negotiated Window Send    *);
  18.    Our_WR        : BYTE            (* Negotiated Window Receive *);
  19.    Our_BS        : BYTE            (* Negotiated Block Size     *);
  20.    Our_CM        : BYTE            (* Negotiated Check Method   *);
  21.  
  22.    Quick_B       : BOOLEAN         (* TRUE if Quick B in effect *);
  23.    Use_CRC       : BOOLEAN         (* TRUE if CRC in effect     *);
  24.    Buffer_Size   : INTEGER         (* Our_BS * 4                *);
  25.    SA_Max        : INTEGER         (* 1 if SA not enabled, else Max_SA *);
  26.    SA_Enabled    : BOOLEAN         (* TRUE if Send-Ahead is permitted  *);
  27.  
  28.    Comp_Title    : AnyStr          (* Title for status display *);
  29.    Total_Blocks  : INTEGER         (* Blocks processed so far *);
  30.    Total_Packets : INTEGER         (* Packets thus far        *);
  31.    Total_Errors  : INTEGER         (* Errors thus far         *);
  32.    Total_Bytes   : LONGINT         (* Bytes thus far          *);
  33.    TFile_Size    : LONGINT         (* Size of file to send    *);
  34.  
  35.    Halt_Transfer : BOOLEAN         (* PibTerm_KeyPressed to halt transfer *);
  36.    Receiving_File: BOOLEAN         (* TRUE if receiving file      *);
  37.  
  38.    Starting_Time : LONGINT         (* Start time of transfer      *);
  39.    Ending_Time   : LONGINT         (* End time of transfer        *);
  40.    Total_Time    : LONGINT         (* Total transfer time         *);
  41.    Reset_Port    : BOOLEAN         (* TRUE if port needs reset    *);
  42.  
  43.  
  44.