+ function sc2ascii (x : hbyte) return hbyte is
+ variable y : hbyte;
+ begin
+ case x is
+ when SC_KP_0 => y := x"30";
+ when SC_KP_1 => y := x"31";
+ when SC_KP_2 => y := x"32";
+ when SC_KP_3 => y := x"33";
+ when SC_KP_4 => y := x"34";
+ when SC_KP_5 => y := x"35";
+ when SC_KP_6 => y := x"36";
+ when SC_KP_7 => y := x"37";
+ when SC_KP_8 => y := x"38";
+ when SC_KP_9 => y := x"39";
+ when SC_KP_PLUS => y := x"2b";
+ when SC_KP_MINUS => y := x"2d";
+ when SC_KP_MUL => y := x"2a";
+ when SC_KP_DIV => y := x"2f";
+ when SC_SPACE => y := x"20";
+ when others => y := x"41";
+ end case;
+ return y;
+ end function;