|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1234 (0x4d2)
Types: TextFile
Names: »CONFIG.S«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!TOS.D!CONFIG.S«
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
└─ ⟦this⟧ »SYSTEMS.D!XAMOS.D!GEN850501.D!FILE.D!TOS.D!CONFIG.S«
%SUBMODULE
%INITVAR
%NOLIST
%SOURCE @**PREFIXES.D*XAMOS.D*PASCAL.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.