gistfile1.vhdl

type MuCommand is (StartCommand, NextCommand, WriteAcc, ReadAcc, WriteRamAddress, 
	                   ReadRam, WriteRam, IncrementPC, ReadPC, WritePC, ReadROM, WriteTemp, ReadTemp, 
	                   ReadR0Address, AluCompare, CheckNC, JMP, NOPE, WriteBus, ReadPSW, WritePSW);
type MuState is array(0 to 15) of MuCommand;
type MuGraph is array(0 to 63) of MuState;

constant MovADataGraph : MuGraph := (
    (ReadPC, others => nope),
    (IncrementPC, others => nope),
    (WritePC, WriteBus, others => nope),
    (ReadROM, others => nope),    
    
    (ReadPC, WriteACC, others => nope),
    (IncrementPC, others => nope),
    (WritePC, WriteBus, others => nope),
    (ReadROM, others => nope),
    (StartCommand, others => nope),
    others => ( others => nope )
  );
  
  constant MovR0AGraph : MuGraph := (
    (WriteRamAddress, ReadR0Address, others => nope),   
    (ReadACC, others => nope),
    (WriteRam, ReadPC, others => nope),
    (IncrementPC, others => nope),
    (WritePC, WriteBus, others => nope),
    (ReadROM, others => nope),
    (StartCommand, others => nope),
    others => ( others => nope )
  );