1 files changed, 19 insertions, 0 deletions
diff --git a/SHARC/Types.hs b/SHARC/Types.hs
index a0a0973..ba95413 100644
--- a/SHARC/Types.hs
+++ b/SHARC/Types.hs
@@ -123,6 +123,7 @@ instance Show Ureg where
                    0x40 -> format0100 stripped
                    0x50 -> format0101 stripped
                    0x60 -> names0110 !! fromIntegral stripped
+                   0x70 -> names0111 !! fromIntegral stripped
                    _ -> printf "0x%02X" n
     where
       prefix = n .&. 0xF0
@@ -150,6 +151,24 @@ instance Show Ureg where
                   , "TPERIOD"
                   , "TCOUNT"
                   ]
+      names0111 = [ "USTAT1"
+                  , "USTAT2"
+                  , "MODE1"
+                  , "MMASK"
+                  , "MODE2"
+                  , "FLAGS"
+                  , "ASTATx"
+                  , "ASTATy"
+                  , "STKYx"
+                  , "STKYy"
+                  , "IRPTL"
+                  , "IMASK"
+                  , "IMASKP"
+                  , "LRPTL"
+                  , "USTAT3"
+                  , "USTAT4"
+                  ]
+
 
 -- TODO: Sreg is just a special case Ureg.  Unify types!
 -- 4 bit system register