DataMuseum.dk

top - download

    Length: 2955 (0xb8b)
    Types: TextFile
    Names: »XSCC.ENV«

└─⟦5bf9983c6⟧ Bits:30010496 DANOSI SW50070 Disk 2/2 MegaSwitch Development Toolset Rel. 1.1 PN: 798-66-79 DVBS1.SW50070.rel.1.1.2/2
    └─⟦this⟧ »PAXENV\XSCC.ENV« 
└─⟦623820077⟧ Bits:30010493 DVBS1.SW50070.rel.1.0-2 SW500700 MegaSwitch Development Toolset Rel 1.0 DISK 2/2
    └─⟦this⟧ »PAXENV\XSCC.ENV« 

TextFile

xsccenv;

(***********************************************)
(*                                             *)
(* external SCC environment                    *)
(* This environment defines the external con-  *)
(* stants and types of the SCC module.         *)
(*                                             *)
(***********************************************)


(***********************************************)
(*                                             *)
(* date     init     changes                   *)
(*---------------------------------------------*)
(* 821111   jli      first released version    *)
(* 840101   uh       A new SCC                 *)
(* 870223   MIA      New U1 values inserted    *)
(*                                             *)
(***********************************************)


const
(*-------------------------------------*)
(*   u1 values                         *)
(*-------------------------------------*)
scc_updrq         = 1;
scc_updrsp        = 2;
scc_delrq         = 3;
scc_delrsp        = 4;
scc_querq         = 5;
scc_quersp        = 6;
scc_subsrq        = 7;
scc_subsrsp       = 8;
scc_del_u_rq      = 9;   (* MIA - delete user request - 23/2 87 *)
scc_del_u_rsp     = 10;  (* MIA - delete user response - 23/2 87 *)
scc_exc_rq        = 11;  (* MIA - exclude user request - 23/2 87 *)
scc_exc_rsp       = 12;  (* MIA - exclude user response - 23/2 87 *)



(******************************)
(* configuration constants    *)
(******************************)

min_dt_f_xfp       = min_dt_f_sl   + 16;
xfp_data_sz        = 300;
scc_parm_space       = 3   (* for internal header *)
+ logic_id_sz + 8    (* for logic id with up to 8 levels *)
+ access_ctr_sz + 2   (* for access control parameters *)
+ sap_adr_sz + 2      (* for owner id *)
+ 8                   (* for time stamp *)
+ 3;                  (* for data header *)
min_dt_f_scc      = min_dt_f_xfp + scc_parm_space;
scc_ombuf_sz      = min_dt_f_xfp + xfp_data_sz;
(*-------------------------------------*)
(*  Info type constants                *)
(*  These constants are used as identi-*)
(*  fication of info. unit types.      *)
(*-------------------------------------*)
type
info_typ_rng       = 128..255; (* Denotes the valid range of info type constants*)

const
sap_info_typ       = 128;

(* configuration constants ended *)

(*-------------------------------------*)
(*  Parameterformats                   *)
(*-------------------------------------*)

type
scc_incl_t       = record
cs_prms         : cs_incl_t;
user_id         : sap_adr_t;
end;
 
scc_om_t     = record
req_prms  : cs_om_t;
acc_prms  : access_ctr_t;
own_id    : sap_adr_t;
logic_id  : logic_id_t;
object_type: byte;
?         : array((11+access_ctr_sz+logic_id_sz+sap_adr_sz+1)..
(min_dt_f_scc -1)) of byte;
end;
 
scc_rsp_ia_t   = record
i_prms    : cs_ia_t;
sev       : severity_t;
reason    : integer;
buf       : array( 16 .. xfp_data_sz + min_dt_f_sl) of byte;
end;

.