
PROC dum$dump_page_frame_table, dump_page_frame_table, dumpft (output, o: file = pft)
 crev s status
 pft = $mem($sa(mmv$pft_p) 6)
 pftel = $mem($sa(mmv$pft_p)+14 4)
 pftl  = $mem($sa(mmv$pft_p)+6 4)/pftel
 detf pft status=s
 setfa $value(output) pf=c op=$eoi
 dism pft pftel o=$value(output) do=(numeric) rc=pftl+1
 setfa $value(output) op=$boi
 edif $value(output) o=$null
   d 'segment' a
   end
 PROCEND dum$dump_page_frame_table
