Поиск минимума из трех чисел и вывод суммы оставшихся - Assembler

Формулировка задачи:

Добрый день. Требуется помощь в коде, суть - поиск минимума из трех чисел и вывод суммы оставшихся. Некорректно ищет минимум, а именно игнорирует отрицательные числа. -1 -2 3, мин=3,сумм=-3 <= Пример. Где кроется ошибка?

Program BZN;
Var A,B,C,m,s:shortint;
Begin
WriteLn('Vvedite A,B,C');
ReadLn (A,B,C);
asm
mov AL,A
cmp AL,B
jb @m
mov BL,B
mov m,BL
add AL,C
mov s,Ah
cmp BL,C
jb @k
@m:
mov BL,A
mov m,BL
mov AL,C
add AL,B
mov s,AL
cmp BL,C
jb @k
mov BL,C
mov m,BL
mov AL,A
add AL,B
mov s,AL
@k:
end;
WriteLn('Min=',m);
WriteLn('Summa ost=',s);
WriteLn('Press Enter');
ReadLn;
END.

Решение задачи: «Поиск минимума из трех чисел и вывод суммы оставшихся»

textual
                            Листинг программы 
                        
                            jb