PROCEDURE dum$display_ms_classes, display_ms_classes, display_ms_class, dismsc (
  address, a, pva: integer = 100264d09(16)
  output, o: file = $output
  status)

  create_variable letters k=(string, 1) d=1..32
  letters(1) = ' '
  letters(2) = ' '
  letters(3) = ' '
  letters(4) = ' '
  letters(5) = ' '
  letters(6) = ' '
  letters(7) = 'A'
  letters(8) = 'B'
  letters(9) = 'C'
  letters(10) = 'D'
  letters(11) = 'E'
  letters(12) = 'F'
  letters(13) = 'G'
  letters(14) = 'H'
  letters(15) = 'I'
  letters(16) = 'J'
  letters(17) = 'K'
  letters(18) = 'L'
  letters(19) = 'M'
  letters(20) = 'N'
  letters(21) = 'O'
  letters(22) = 'P'
  letters(23) = 'Q'
  letters(24) = 'R'
  letters(25) = 'S'
  letters(26) = 'T'
  letters(27) = 'U'
  letters(28) = 'V'
  letters(29) = 'W'
  letters(30) = 'X'
  letters(31) = 'Y'
  letters(32) = 'Z'

  output_line = ' valid classes: '

  class = $mem($value(address), 4)

  FOR index = 1 TO 32 DO
    IF $bit(class, index+31) THEN
      output_line = output_line//letters(index)
    IFEND
  FOREND

  output_line = output_line//' - ('//$strrep(class, 16)//')'
  putl output_line o=$value(output)

PROCEND dum$display_ms_classes
