PROC dum$DISPLAY_AST_ENTRY display_ast_entry, disaste (
  asti      : integer -281474976710655..281474976710655 = $required
  output, o : file = $output
  )

  crev astep
  compute_entry_address $sa(mmv$ast_p) $value(asti) astep
  oo = $string($value(output)) // '.$eoi'
  putl ' ----- Active Segment Table Entry '//$strrep($value(asti), 16) o=$fname(oo)
  mmt$active_segment_table_entry astep o=$value(output)

PROCEND dum$display_ast_entry
