asm2.hs

module Asm2 where

type Reg = Char

data Registers = Registers
    { a  :: Int
    , b  :: Int
    , c  :: Int
    , d  :: Int
    , ip :: Int
    , sp :: Int
    } deriving (Show, Eq, Ord)

data Addr 
    = Absolute Int
    | Relative Int
    | Immediate Int
    | Register Reg
    deriving (Show, Eq, Ord)

data Instruction 
    = Load Reg Addr     -- put value in Addr in Reg
    | Store Reg Addr    -- store reg in addr
    | Add Reg Reg
    | Sub Reg Reg
    | Mul Reg Reg
    | Div Reg Reg
    | Jiz Addr
    deriving (Show, Eq, Ord)