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

⟦5deb37bc1⟧ TextFile

    Length: 2480 (0x9b0)
    Types: TextFile
    Names: »TESTPARAMS.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!CSS875.D!TESTPARAMS.S« 

TextFile

"-----------------------------------------------------------------------
"
"
"  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 «a5»