-- DragonMemoryBus.sak
-- Created by Suzuki: 4 Jan. 1982 4:24 pm PST (Monday)
-- Last edited by Suzuki: 5 Jan. 1982 12:56 pm PST (Tuesday)

DragonMemoryBus: DEFINITIONS = {

  Mbus: TYPE = RECORD [
    Shared, CMD: BOOLEAN,
    DATA: SELECT COMPUTED * FROM
      command => [inst: MbusCMD, data: LONG CARDINAL],
      data => LONG CARDINAL
      ENDCASE];

  MbusCMD: TYPE = {RQW, WQW, WSW, RM, RMASD, WM, SMD, Null, MapOp};

  PbusCMD: TYPE = {Fetch, FetchAndHold, GetMap, GetMapAndHold, Store};

}.