ifdef seglst
  em seglst
fi

define seglst "a" 0t500

pf "\nADDRESS    DATA     BASE   NPGS MAP PROT  VNODE    OFFSET  ANON_MAP  SWPRESV\n"
do a_loop ($1) 0
.

ifdef a_loop
  em a_loop
fi

define a_loop aa 0t800

if ((($1) == ($2)) | (%v($1) == 0))
  exit
else
 pf "%8x %8x %8x %4d " , ($1), (*(($1)+1c)), (*(($1)+4)), (*(($1)+8))/1000
  pf " %2x" ((*((*(($1)+1c))+4)) & 0xff)
  pf "  %2x" ((*((*(($1)+1c))+2)) & 0xff)
  pf "  %8x %8x"  (*((*(($1)+1c))+8)) (*((*(($1)+1c))+c))
  pf " %8x "  (*((*(($1)+1c))+14)) 
  pf " %8x\n" (*((*(($1)+1c))+20)) 
  if (($2) == 0)
    setarg 2 ($1)
  fi
  setarg 1 (*(($1)+10))
fi
.