|
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: 1210 (0x4ba)
Types: TextFile
Names: »CONFIG.S«
└─⟦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«
%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»