输入一个A，如果A=0，则B=0，A不等于1时，如果A>0时，B=1，A<0时，B=1

下面是我自己写的，但是运行不了

data segment 
inf0 db 0dh,0ah,'Please input A:$'
A db 30,?,30 dup ('0')
B db 0 
data ends 
code segment 
assume ds:data,cs:code 
start: 
mov ax,0
mov ds,ax 
lea dx,inf0   
mov ax,0900H
int 21H
lea dx,A
mov ax,0a00H
int 21H
mov ax,dx
lea bx,[B] 
test ax,0ffffh
jz next
mov bx,1
mov dl,bx
mov ah,2
int 21h 
next:
   mov bx,0
   mov dl,bx
   mov ah,2
   int 21h 
code ends 
end start