var uart*: ptr uint8 = cast[ptr uint8](0x09000000)
proc printTxt*(str: seq[char]) =
for i in 0..<len(str):
uart[] = cast[uint8](str[i])