请教大家帮我看下这个程序，要实现输入一个十进制数，并把它放在bx中，一直不能正常运行，是怎么回事

DATAS SEGMENT
buf db 60
len db ?
str db 60 dup (?);此处输入数据段代码  
DATAS ENDS

STACKS SEGMENT
  ;此处输入堆栈段代码
STACKS ENDS

CODES SEGMENT
  ASSUME CS:CODES,DS:DATAS,SS:STACKS
START:
  MOV AX,DATAS
  MOV DS,AX
  mov dx,offset buf
  mov ah,0ah
  int 21h
  mov si,offset str
  mov ah,0
  mov cl,len
s: mov al,[si]
  push ax
  mov ax,bx
  mov dl,10
  mul dl
  pop bx
  add bx,ax
  inc si
  loop s;此处输入代码段代码
  MOV AH,4CH
  INT 21H
CODES ENDS
  END START

楼主意欲何为？