DataMuseum.dk

top - download

    Length: 1180 (0x49c)
    Types: TextFile
    Names: »CONFIG.S«

└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
    └─ ⟦this⟧ »GENS.D!SYSGEN.D!MINI_CAMPS.D!CONFIG.S« 

TextFile

%SUBMODULE
%NOLIST
$PREFIX
%LIST
$HEAD

$LIMITS

$TYPES

%IMPORT: PACKNAME
PROCEDURE PACKNAME( T: TEXT;  VAR NM: PACKED_NAME;  BYTES: INTEGER);
   EXTERN;
"
VAR I: INTEGER;
BEGIN
   FOR I:=0 TO 7 DO  NM[I] := 0;
   PACK( T[1], NM[0], BYTES);
END;
"

%IMPORT:PACKIT
PROCEDURE PACKIT( T: TEXT;  VAR STRING: UNIV ELEMENT;  BYTES: INTEGER);
    EXTERN;
"
BEGIN
   PACK( T[1], STRING, BYTES);
END;
"

%IMPORT: GET_VERSION
PROCEDURE GET_VERSION( VAR PROGRAM_VERSION: INTEGER);
    EXTERN;


"PAGE"
%EXPORT: CONFIG
PROCEDURE CONFIG( VAR COMMON: COMMON_DATA);
BEGIN
   WITH COMMON DO
      BEGIN
         MAXTERMINAL:= TERMINAL_LIMIT;  NEW(TERMINAL);
         MAXPROCESS := PROCESS_LIMIT;   NEW(PROCESS);
         MAXPROGRAM := PROGRAM_LIMIT;   NEW(PRQGRAM);
         MAXFILSYS  := FILSYS_LIMIT;    NEW(FILSYS);
         MAXDEVICE  := DEVICE_LIMIT;    NEW(DEVICE);
         MAX_Q_SIZE := TERMINAL_LIMIT;  NEW(LOAD_Q);
         GET_VERSION(TOS_VERSION);
$DEFAULTS
         WITH NEWS DO
            BEGIN
               BYTE_COUNT := 16;
               PACKIT( '(:10:)Welcome to TOS(:10:)', MSG[1], BYTE_COUNT);
            END;

         LOCAL_PRINTER := TRUE;
      END;
END;

BEGIN END.