|
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 - metrics - download
Length: 2480 (0x9b0)
Types: TextFile
Names: »TESTPARAMS.S«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─⟦this⟧ »PREFIXES.D!XAMOS.D!SWELL.D!TESTPARAMS.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⟧ »PREFIXES.D!XAMOS.D!SWELL.D!TESTPARAMS.S«
"-----------------------------------------------------------------------
"
"
" MODULE NAME: TEST PARAMETERS (TESTPARAMS)
" MODULE ID NMB: CSS/875
" MODULE VERSION: 0102
" MODULE TYPE: PREFIX
"
" SPECIFICATIONS: -
" AUTHOR/DATE: JSL/800603
"
" DELIVERABLE: -
" SOURCE LANGUAGE: SWELL
" COMPILE COMPUTER: CR80
" TARGET COMPUTER: CR80
" OPER. SYSTEM: AMOS
"
"-----------------------------------------------------------------------
"
" CHANGE RECORD
"
" VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
" ------- ----------- ---------------------
"
" 0102 AEK/800630 ADDRESS CHANGED TO ADDR IN LINE 56
" CPECR #24, CPECO N.A.
"-----------------------------------------------------------------------
"PAGE«ff»
"OLTO DEFINITIONS:
TYPE TEST_FILE_DECLARATION =
RECORD
REC_SPEC: INTEGER; "COMPOUND
ADDR: POINTER; "TO DATA TO BE LOGGED
NAME: ARRAY[0..3] OF CHAR; "NAME OF LOGGED DATA
END;
TYPE TFD = TEST_FILE_DECLARATION;
"COMPOSITION OF TFD.REC_SPEC FIELD:
CONST
RECNMBP = 0 ; RECNMBL = 5; "NUMBER OF RECORDS
RECSIZP = 6 ; RECSIZL = 7; "LENGTH OF RECORD
DMPTYPP = 12; DMPTYPL = 2; "DUMP TYPE
FILTYPP = 14; FILTYPL = 2; "FILE TYPE
TYPE DUMP_TYPE = (T_BINARY, T_ASCII);
TYPE FILE_TYPE = (T_ABSOLUTE, T_RELATIVE, T_BUFFER_QUEUE, T_INDEX);
" ONLINE TEST OUTPUT FACILITY DEFINITIONS
TYPE LOG_RECORD_DESCRIPTOR =
RECORD
DUMP_TYPE: INTEGER;
OFFSET: INTEGER;
ADDR: POINTER;
BYTE_COUNT: INTEGER;
END;
TYPE LRD = LOG_RECORD_DESCRIPTOR;
" COMPOSITION OF LRD.DUMP_TYPE
CONST
TYPELABELP = 0 ; TYPELABELL = 12;
FORMATSPECP = 12; FORMATSPECL = 4;
" PREDEFINED TYPELABELS:
CONST
LOG_REGISTERS = 0;
LOG_MESSAGE = 1;
LOG_ANSWER = 2;
" FORMATSPECIFICATIONS:
CONST
LOG_TEXT = 0; LOG_BIN = 1;
LOG_OCT = 2; LOG_DEC = 3;
LOG_HEX = 4; LOG_LONG= 5;
" COMPOSITION OF LRD.OFFSET:
CONST
LOG_OFFSETP = 0 ; LOG_OFFSETL = 13;
LOG_SECTIONP = 13; LOG_SECTIONL = 2 ;
LOG_REL_ABSP = 15; LOG_REL_ABSL = 1 ;
" RELATIVE/ABSOLUTE DUMP
CONST
LOG_REL = 0; LOG_ABS = 1;
"END OF TESTPARAMS b