DataMuseum.dk

Presents historical artifacts from the history of:

CR80 Hard and Floppy Disks

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

See our Wiki for more about CR80 Hard and Floppy Disks

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦37ba5fa5e⟧ TextFile

    Length: 1210 (0x4ba)
    Types: TextFile
    Names: »CONFIG.S«

Derivation

└─⟦e0c43619c⟧ Bits:30005797 CR80 Disc pack ( Vol:FNJ1 861029/EC CR80 S/W Package II+III+IV+V+VII )
    └─ ⟦this⟧ »CSP005_V0501.D!CSS380.D!AMOS.D!CONFIG.D!CONFIG.S« 
    └─ ⟦this⟧ »CSP005_V0501.D!CSS380.D!XAMOS.D!CONFIG.D!CONFIG.S« 

TextFile

%SUBMODULE
%NOLIST
%SOURCE @**MX.D*GENS.D*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);
%SOURCE 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. «a5»