|
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: 2014 (0x7de)
Types: TextFile
Names: »TYPE.S«
└─⟦f81e11cf7⟧ Bits:30005196 8" CR80 Floppy CR80FD_0194 ( CR/D/2497 TEST-TDX VS0102 Source moduler Att. Holger Bay 820208/AEK )
└─⟦d066df9e9⟧
└─ ⟦this⟧ »TYPE.S«
«ff»
"TYPE.S "
"----------------"
%NOLIST
$@**GENS.D*PARSE.D*TYPES.S
%LIST
TYPE SYMBOL_TYPE = ARRAY [0..MAXSYMBOLLENGTH] OF CHAR;
TYPE NAME_TYPE = ARRAY [1..16] OF CHAR;
TYPE SYMBOLBUF_TYPE =
RECORD
LENGTH : INTEGER;
STRING : SYMBOL_TYPE
END;
TYPE IO_BUFFER_TYPE =
RECORD
OCCUPIED : BOOLEAN;
BUFFER : ARRAY [0..MAX_BUFFER_SIZE] OF INTEGER
END;
TYPE PATTERN_TYPE =
RECORD
BYTE_LENGTH : INTEGER;
PATTERN : ARRAY [1..MAX_PATTERN_SIZE] OF INTEGER
END;
TYPE PROCEDURE_ENTRY =
RECORD
NAME : NAME_TYPE;
CODE_ADR : INTEGER;
NO_OF_PARAMS: INTEGER
END;
TYPE PARAMETER_ENTRY =
RECORD
NAME : NAME_TYPE
END;
«ff»
TYPE INIT_OPERATION_KINDS = (INIT_READ_KD, INIT_APPEND_KD);
TYPE INIT_OPERATION_TYPE =
RECORD
OCCUPIED : BOOLEAN;
OPREF : OPERATION_REFERENCE;
KIND : INIT_OPERATION_KINDS;
CRID : INTEGER;
ORIGINATOR_LINE : INTEGER;
BUFFER_NO : INTEGER;
EXPECTED_PATTERN : INTEGER; "FOR READ ONLY"
BYTELENGTH : INTEGER;
DUMP_AT_COMPLETION : BOOLEAN; "FOR READ ONLY"
MEMORY : MEMORY_PARM; "FOR INIT BUFFERS"
FILE_ADR : FILE_ADDRESS
END;
«ff»
TYPE PARAMETER_TYPE =
RECORD
VARIABLE_MASK : INTEGER;
NO_OF_PARAMS : INTEGER;
ACT_PARAMS : ARRAY [1..MAX_PARAMETER] OF INTEGER
END;
TYPE SINGLE_PARAMETER =
RECORD
VARIABLE : BOOLEAN;
PARAMETER : INTEGER
END;
TYPE CHANNEL_TYPE =
RECORD
OPEN : BOOLEAN;
CRID : INTEGER;
F : FILE
END;