mov   a,key
   add   a,#'0'
   call  putchar