DataMuseum.dk

top - metrics - download

    Length: 2304 (0x900)
    Types: TextFileVerbose
    Names: »ncthenv«

└─⟦a41ae585a⟧ Bits:30001842 SW-save af projekt 1000, Alarm-system
    └─⟦72244f0ef⟧ 
        └─⟦this⟧ »ncthenv« 

TextFileVerbose

ncthenv;
(***************************************************************************)
(*                              ncthenv                                    *)
(***************************************************************************)

(* types and constants used at operator-communication. *)
type
databuft = array(1..80) of char;

operbuf_t = record
first,
last,
next:integer;
name:alfa;
databuf: databuft;
end;



(* types and constants used at formatter-communication. *)
const
sp_data_sz = 300 - sp_head_lgt - 6;

type
time_t = packed array(1..6) of byte;
sp_head_type = packed record
receiver_id:integer;
sender_id:integer;
seq_no,
sp_type,
lcp_oper: byte;
status:integer;
time:time_t;
bytecount:integer 
end;

sp_data_type = packed array(1..sp_data_sz) of byte;

ts_data_type = record
first,
last,
next :integer;
sp_head:sp_head_type;
sp_data:sp_data_type
end;

(*    text type format         *)
const
txt_len = 20;

type
txt_type = array(1..txt_len) of char;

(* internal message format          *)
mask_type = packed array(0..15) of boolean;

comint_data_type = packed record
first,last,next : integer;
c_mask : mask_type;
c_defbase,
messnr:byte;
position : integer;
mess_l : byte;
message : txt_type;
data : packed array( 1 .. (sp_data_sz - 33) ) of byte;
end;

comint_mess_t = packed record
sp_head : sp_head_type;
comint_data : comint_data_type;
end;

const 
prhead = 0;
prdata = 1;
prvert = 2;
keep_last_mess = 3;
intmess = 0*4;
repmess = 2*4;
def_opt_mask = mask_type(false,true,14***false);

.
«eof»