Sub drawTile
    For x As UByte = 0 To 7
        For y As UByte = 0 To 7
    cpu.memory((&h200+(&h20*y))+x) = (((rom(&h8018+y)Shr(7-x)) And 1)Shl 1)
    cpu.memory((&h200+(&h20*y))+x) or= ((rom(&h8010+y)Shr (7-x)) And 1)
        Next
        next
End Sub