putstring:               ; address of string in DPTR, destroys A
     clr  A
     movc A,@A+DPTR
     inc  DPTR
     cjne A,#'$',putstr1
     ret
putstr1:
     acall putchar
     ljmp putstring