PROC dum$DISPLAY_SDT_EXTENDED_ENTRY display_sdt_extended_entry, dissdtee, dissdtx (
  sn        : integer -281474976710655..281474976710655 = $required
  output, o : file = $output
  )

  crev (sdtxo, sdtxl, junk)
  crev v$xcb_pva s=xref
  fetch_field_info ost$execution_control_block field=sdtx_p sdtxo junk
  sdtxo = sdtxo / 8
  fetch_field_info mmt$segment_descriptor_extended field=mmt$segment_descriptor_extended junk sdtxl
  sdtxl = sdtxl / 8
  rsdtxl = $mem(v$xcb_pva+sdtxo+14, 4)
  IF sdtxl <> rsdtxl THEN
    putl ' Field lengths disagree: '//$strrep(sdtxl)//' - '//$strrep(rsdtxl)
    EXIT_PROC
  IFEND
  psdtxe = $mem(v$xcb_pva+sdtxo) + ($value(sn) * sdtxl)
  oo = $string($value(output)) // '.$eoi'
  putl ' ----- SDT-X  Entry '//$strrep($value(sn), 16) o=$fname(oo)
  mmt$segment_descriptor_extended psdtxe o=$value(output)

PROCEND dum$display_sdt_extended_entry
