PROC dum$COMPUTE_ENTRY_ADDRESS compute_entry_address (
  base        : integer = $required
  entry_index : integer -281474976710655..281474976710655 = $required
  address     : var of integer = $required
  )

  crev (el ei)
  el = $mem($value(base)+14, 4)
  ei = $value(entry_index) - $mem($value(base)+10, 4)
  $value(address) = $mem($value(base), 6) + (el * ei)

PROCEND dum$compute_entry_address
