enteroAString:  ;traigo datos en AX
       push BX
       push CX
       lea BX, [string_salida]     ;apunto a string_salida
       mov DI, 1                   ;el indice empieza en 0
       mov AX,8970
       mov DX,0
       while4:
       cmp AX,0
       jz  endwhile4
        mov CX,10

        idiv cX           ;en DX quedo el resto!  y en AX el resultado
        mov CX,AX
       imul dx,30        ;multiplico DX por 30, el resultado se almacena en AX
       mov [BX+DI], AX   ;guardo resultado en lugar que correesponde del string
       mov AX,CX
        mov CX, 10
       inc di
       inc DI
       jmp while4

      endwhile4:
      pop CX
      pop BX
      ret