DataMuseum.dk

top - download

    Length: 1384 (0x568)
    Types: TextFile
    Names: »TCIPREFIX_0403«

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »TCIPREFIX_0403« 
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
    └─ ⟦this⟧ »TCIPREFIX_0403« 

TextFile

PREFIX V0403

  TYPE Q_ATTRIBUTE = RECORD
                       QUEUE_KIND: 1..2;
                       RANGE     : 1..2;
                       WINDOW    : INTEGER;
                       SERVICE   : 1..3;
                       SUB_NO    : INTEGER;
                       PRIO_SUB0 : INTEGER;
                       SERVER    : 1..2
                     END;

  TYPE MESSAGE_INFO = RECORD
                        SUB_Q,
                        MESSAGE,
                        LENGTH,
                        NUMBER: INTEGER
                      END;

  TYPE EVENT = 1..3;

  TYPE QUEUE_NAME = ARRAY[0..1] OF INTEGER;

  TYPE FILE_NAME  = ARRAY[0..80] OF CHAR;

  TYPE BCS_CC = 1..23;

  TYPE SD_IDENTIFIER = ARRAY[1..4] OF CHAR;
  TYPE SD_COMMAND = ARRAY[1..80] OF CHAR;

  VAR SD_LOG: FILE_NAME;
  VAR SD_SELECT: SD_IDENTIFIER;

  VAR ECHO_LOG: FILE_NAME;
  VAR ERROR_LOG: FILE_NAME;
  VAR ERROR_REACTION: 1..3;

  VAR DEF_ATT: Q_ATTRIBUTE;

  VAR CIN: FILE_NAME;
  VAR COUT: FILE_NAME;

  VAR DONT_CARE: INTEGER;
  VAR VERIFY_CC: 1..2;
  VAR DONT_CARE_SWITCH: 1..2;

  ECHO_LOG:= 'NO_ECHO';
  ERROR_LOG:= 'COUT';
  ERROR_REACTION:= 3;

  VERIFY_CC:= 1;

  DONT_CARE_SWITCH:= 2;

  DEF_ATT.QUEUE_KIND:= 1;
  DEF_ATT.RANGE:= 2;
  DEF_ATT.WINDOW:= 4;
  DEF_ATT.SERVICE:= 3;
  DEF_ATT.SUB_NO:= 1;
  DEF_ATT.PRIO_SUB0:= 1;
  DEF_ATT.SERVER:= 1;

  CIN:= 'CIN';
  COUT:= 'COUT';
 «a5»