MODULA - M2PROT.ZIP - QCBPLUS.DEF

 
Output of file : QCBPLUS.DEF contained in archive : M2PROT.ZIP

(*# call(o_a_copy => off) *)
(*%F _fcall *)
(*# call(seg_name => null) *)
(*%E *)
(*# module(implementation=>on) *)
(*# data(seg_name => null) *)
DEFINITION MODULE QCbplus;

(* This JPI Modula-2 module is part of *)

(* QC -- a communications program *)
(* by Carl Neiburger *)
(* 169 N. 25th St.*)
(* San Jose, Calif. 95116 *)

(* CompuServe No. 72336,2257 *)

(* These procedures were derived from B Plus Protocol Support routines
written by Russ Ranshaw, of CompuServe, user number 70000,1010.
I owe him extensive thanks for for helping me with them. *)

VAR
(*
These Global Variables must be initialized by the calling
program before any routines in this unit are invoked.
*)

AbortMax : CARDINAL; (* Number OF Abort requests allowed before*)
(* performing a "fatal abort." *)
AutoResume : BOOLEAN; (* TRUE to automatically attempt transfer *)
(* resumption IF the Initiator can do it *)

(* QuoteThis is invoked to set bits IN SpecialQuoteSet. *)
(* It sets SpecialQuoting TRUE to use the special quote set. *)
(* IF Value = 0FFH, the Special Quote Set is restored to its default. *)
PROCEDURE QuoteThis (Value: SHORTCARD);

(* TermENQ is invoked when Terminal Mode receives from host *)
PROCEDURE TermENQ;

(* TermEscI is invoked when Terminal Mode receives from host *)
PROCEDURE TermEscI (EscIResponse : ARRAY OF CHAR);

(* DleBseen is invoked when Terminal Mode receives from host *)
PROCEDURE DleBSeen;

END QCbplus.