DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦6edc50b7a⟧ TextFile

    Length: 2304 (0x900)
    Types: TextFile
    Names: »fsm3502env«

Derivation

└─⟦da1afb338⟧ Bits:30008156 SW2020 - RC3502 - File system - Rel. 1.0
    └─⟦bcdac339f⟧ 
        └─⟦this⟧ »fsm3502env«

TextFile

fsm3502env;

(*************************************************************)
(*                                                           *)
(*  fsm3502env is used for configuration of the RC-FS Nucleus*)
(*  Set the parameters according to your installation        *)
(*  and compile the FS process by the call                   *)
(*                                                           *)
(*     bfs = rtp35022 stack.500 fs3502env fsm3502env tfs     *)
(*                                                           *)
(*************************************************************)
const

max_fosm         = 16; (* Number of File Organisation *)
;                      (*    Strategy Modules         *)
max_fosm_ticket  = 8;  (* Max number of simultanous   *)
;                      (*    connections to a file    *)
max_dsm          = 2;  (* Number of Device Strategy   *)
;                      (*    Modules = No of discs    *)
max_sai201       = 1;  (* Number of SAI201 interfaces *)

type

disc_address =
packed record
sai201_level  : 0..127; (* interruption level of      *)
;                       (*    sai201 data channel     *)
wdd_cu        : 0..7;   (* SCSI control unit address  *)
;                       (*    of the disc controller  *)
wdd_lun       : 0..1;   (* logical unit number at the *)
;                       (*    disc controller         *)
end;

disc_table_type =
array (1..max_dsm) of disc_address;

const
(* Note: one saidriver takes level as data level and *)
(* level-1 as control level.                         *)
(* ..... So just specify the data level and make     *)
(* room for the control level                        *)
disc_table =
(* each entry defines one disc *)
disc_table_type (
disc_address (87, 0, 0), (* device 1 *)
disc_address (87, 1, 0)  (* device 2 *)
);

.
▶EOF◀