
PROC dum$display_swap_file_desc, display_swap_file_desc, dissfd (sfd: integer = $required
  pages, p: integer
  output, o: file = $output)

  crev (junk ijll)
  jmt$initiated_job_list_entry  field=jmt$initiated_job_list_entry junk ijll
  ijle = ijll / 8
  sje = 10
  pfte = $mem($sa(mmv$pft_p)+14, 4)
  aste = $mem($sa(mmv$ast_p)+14, 4)
  misc = 9
  crev stat status
  oo = $string($value(output)) // '.$eoi'
  p = $value(sfd)
  IF $specified(pages) THEN
    pcount = $value(pages)
  ELSE
    pcount = 0
    FOR i = 2 TO 4 DO
      pcount = pcount + $mem(p+ijle+2*i 2)
    FOREND
    pcount = pcount + $mem(p+ijle+10 2)
  IFEND
  putl ' IJL entry' o=$fname(oo)
  dism p ijle o=$fname(oo)
  p = p + ijle
  putl ' SWAPPED JOB ENTRY' o=$fname(oo)
  dism p sje o=$fname(oo)
  p = p + sje
  FOR i = 1 TO pcount DO
    putl ' ' o=$fname(oo)
    putl ' Page '//$strrep(i) o=$fname(oo)
    putl '    PFT' o=$fname(oo)
    dism p pfte o=$fname(oo)
    p = p + pfte
    putl '    PTE' o=$fname(oo)
    dism p 8 o=$fname(oo)
    p = p + 8
    putl '    AST ' o=$fname(oo)
    dism p aste o=$fname(oo)
    p = p + aste
    putl '    entry_updated, old_asid, CAL (oldasid, newasid, newasti)' o=$fname(oo)
    dism p misc o=$fname(oo)
    p = p + misc
  FOREND
  EDIF $fname(oo) o=$null p=$null
    d 'segment = ' a
  END

PROCEND dum$display_swap_file_desc

