diff options
| author | rekado <rekado@elephly.net> | 2014-09-19 23:47:09 +0200 |
|---|---|---|
| committer | rekado <rekado@elephly.net> | 2014-09-19 23:47:09 +0200 |
| commit | d780cef1cf8a5533c10f0bb388f783e0c9727734 (patch) | |
| tree | bf7d707eafb1a4975a09a04a66ab1babef19fa04 | |
| parent | 7ed839040509b5cf9efccc988b662f516442c4f8 (diff) | |
also print sreg names when showing ureg
| -rw-r--r-- | SHARC/Types.hs | 19 |
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 |