----------------------------------------------------------------------
-- FILE:              Instruction.hs
-- DATE:              2/6/2001
-- PROJECT:           VARM (Virtual ARM), for CSE240 Spring 2001
-- LANGUAGE PLATFORM: HUGS
-- OS PLATFORM:       RedHat Linux 6.2
-- AUTHOR:            Jeffrey A. Meunier
-- EMAIL:             jeffm@cse.uconn.edu
----------------------------------------------------------------------



module Instruction
where



----------------------------------------------------------------------
-- Standard libraries.
----------------------------------------------------------------------
import Word



----------------------------------------------------------------------
-- Local libraries.
----------------------------------------------------------------------
import Operand
import RegisterName



----------------------------------------------------------------------
-- Instruciton data type.
----------------------------------------------------------------------
data Instruction
  = Add Operand Operand Operand
  | And Operand Operand Operand
  | B   Operand
  | Beq Operand
  | Bgt Operand
  | Bic Operand Operand Operand
  | Bl  Operand
  | Blt Operand
  | Bne Operand
  | Cmp Operand Operand
  | Eor Operand Operand Operand
  | Ldr Operand Operand
  | Mov Operand Operand
  | Orr Operand Operand Operand
  | Str Operand Operand
  | Sub Operand Operand Operand
  | Swi Operand

--  | Label String
--  deriving Show


instance Show Instruction where
  show (Add op1 op2 op3) = "add " ++ show op1 ++ ", " ++ show op2 ++ ", " ++ show op3
  show (And op1 op2 op3) = "and " ++ show op1 ++ ", " ++ show op2 ++ ", " ++ show op3
  show (B   op1)         = "b "   ++ show op1
  show (Beq op1)         = "beq " ++ show op1
  show (Bgt op1)         = "bgt " ++ show op1
  show (Bic op1 op2 op3) = "bic " ++ show op1 ++ ", " ++ show op2 ++ ", " ++ show op3
  show (Bl  op1)         = "bl "  ++ show op1
  show (Blt op1)         = "blt " ++ show op1
  show (Bne op1)         = "bne " ++ show op1
  show (Cmp op1 op2)     = "cmp " ++ show op1 ++ ", " ++ show op2
  show (Eor op1 op2 op3) = "eor " ++ show op1 ++ ", " ++ show op2 ++ ", " ++ show op3
  show (Ldr op1 op2)     = "ldr " ++ show op1 ++ ", " ++ show op2
  show (Mov op1 op2)     = "mov " ++ show op1 ++ ", " ++ show op2
  show (Orr op1 op2 op3) = "orr " ++ show op1 ++ ", " ++ show op2 ++ ", " ++ show op3
  show (Str op1 op2)     = "str " ++ show op1 ++ ", " ++ show op2
  show (Sub op1 op2 op3) = "sub " ++ show op1 ++ ", " ++ show op2 ++ ", " ++ show op3
  show (Swi op1)         = "swi " ++ show op1

--  show (Label str)       = str ++ ":"



----------------------------------------------------------------------
-- eof
----------------------------------------------------------------------