{-# OPTIONS -Wall #-}

{-
  trace example:

    $ runhaskell examples/trace2.hs  examples/test0.asm
-}

module Main where

import System.Environment(getArgs)
import Language.Pck.Tool


main :: IO ()
main = do (file:_) <- getArgs
          insts <- parseInstFile file
--        runDbgIO [TrcInst]         []  [(0, insts)] []
          runDbgIO [TrcInst, TrcReg] []  [(0, insts)] []