{zsmtlfd}

  TYPE
    {structure for representing ipl 64 bit word on cyber cybil}
    ipl_word = record
      left: 0 .. 0ffffffff(16),
      right: 0 .. 0ffffffff(16),
    recend,
    {structure fo load file directory for the cybil}
    {simulator/emulator load files}
    lf_directory_type = (empty, assembler, checkpoint),
    lf_directory = record
      case lf_directory_id: lf_directory_type of
      = empty =
        null: integer,
      = assembler =
        load_address: 0 .. 0ffffffff(16),
      = checkpoint =
        procregs: record
          jps: 0 .. 0ffffffff(16),
          mps: 0 .. 0ffffffff(16),
          pta: 0 .. 0ffffffff(16),
          ptl: 0 .. 0ff(16),
          psm: 0 .. 7f(16),
          eid: 0 .. 0ffffffff(16),
          sit: 0 .. 0ffffffff(16),
          mid: 0 .. 0ff(16),
          ss: ipl_word, {model dependent}
          ptm: ipl_word, {model dependent}
          pfs: ipl_word, {model dependent}
          vmcl: 0 .. 0ffff(16),
        recend,
      casend
    recend;
