PROC dum$DISPLAY_SDT_ENTRY display_sdt_entry, dissdte, dissdt (
  sn        : integer -281474976710655..281474976710655 = $required
  output, o : file = $output
  )

  crev (sdto, sdtl, junk)
  crev v$xcb_pva s=xref
  fetch_field_info ost$execution_control_block field=sdtp sdto junk
  sdto = sdto / 8
  fetch_field_info mmt$segment_descriptor field=mmt$segment_descriptor junk sdtl
  sdtl = sdtl / 8
  rsdtl = $mem(v$xcb_pva+sdto+14, 4)
  IF sdtl <> rsdtl THEN
    putl ' Field lengths disagree: '//$strrep(sdtl)//' - '//$strrep(rsdtl)
    EXIT_PROC
  IFEND
  psdte = $mem(v$xcb_pva+sdto) + ($value(sn) * sdtl)
  oo = $string($value(output)) // '.$eoi'
  putl ' ----- SDT  Entry '//$strrep($value(sn), 16) o=$fname(oo)
  mmt$segment_descriptor psdte o=$value(output)

PROCEND dum$display_sdt_entry
