nameTableAddress :: NameTable -> Word16
nameTableAddress nametable = case nametable of
                               NT0 -> 0x0000
                               NT1 -> 0x0400
                               NT2 -> 0x0800
                               NT3 -> 0x0C00
nameTableAddress :: NameTable -> Word16
nameTableAddress nametable = case nametable of
                               NT0 -> 0x0000
                               NT1 -> 0x0400
                               NT2 -> 0x0800
                               NT3 -> 0x0C00
nameTableAddress nametable = case nametable of
                               NT0 -> 0x0000
                               NT1 -> 0x0400
                               NT2 -> 0x0800
                               NT3 -> 0x0C00