Ассемблер! Нужна помощь!

А так?

code segment
org 100h
assume cs:code, ds:code, ss:code

Start:
lea dx, Prompt
mov ah, 9
int 21h
call Input
mov a, ax
inc byte ptr Prompt
lea dx, Prompt
mov ah, 9
int 21h
call Input
mov b, ax
mov max, ax
cmp a, ax
jle B_Max
mov ax, a
mov max, ax
B_Max:
lea dx, Result
mov ah, 9
int 21h
mov ax, max
call Print
xor ah, ah
int 16h
int 20h

InpError:
mov ah,9
lea dx, txtErr
int 21h
Input:
lea dx, Buff
mov ah, 10
int 21h
mov al, 13
int 29h
mov al, 10
int 29h
xor bx, bx
mov di, 10
lea si, Buff+2
xor ch, ch
mov cl, [si-1]
jcxz InpError
lodsb
cmp al, '-'
je InpNext
cmp al, '+'
jne InpLoop
InpNext:
cmp cx, 1
je InpError
jmp InpSymb
InpLoop:
sub al, '0'
jb InpError
cmp al, 9
ja InpError
cbw
xchg ax, bx
mul di
jc InpError
test ax, ax
js InpError
add bx, ax
js InpError
InpSymb:
lodsb
loop InpLoop
cmp byte ptr Buff+2, '-'
jne InpQuit
neg bx
InpQuit:
mov ax, bx
ret

Print:
cwd
xor ax, dx
sub ax, dx
test dx, dx
jz PrnPositive
mov dx, ax
mov al, '-'
int 29h
mov ax, dx
PrnPositive:
mov bx, 10
WriteInt:
push dx
cwd
div bx
test ax, ax
jz WriteEnd
call WriteInt
WriteEnd:
mov al, dl
or al, '0'
int 29h
pop dx
ret

Prompt db '1: $'
Result db 'max = $'
txtErr db 'Ошибка! '
db 'Введите целое число от -32767 до 32767: $'
Buff db 15, ?,16 dup (?)
a dw ?
b dw ?
max dw ?

code ends
end Start