
 { common deck DSI$SUPPORT_EICB_VERSION_4
 { The EICB version was advanced to 4 to signal users of the NOS PP program
 { called VER that there is support in VER for the I4 concurrent peripherals,
 { If the eicb version is 4, the new function codes will be used,
 { if the eicb version is less than 4, the old functions codes will be used.

  CONST
    dsc$eicb_version_4 = 4(8);

  VAR
    got_eicb_d7ty: [STATIC] boolean := FALSE,
    d7ty: [STATIC] PACKED RECORD
       rfu: 0 .. 77(8),
       date: 0 .. 777777(8),
       time: 0 .. 777777(8),
       os_type: 0 .. 77(8),
       eicb_version: 0 .. 77(8),
       rfu_1: 0 .. 77(8),
    RECEND;
