Неправильный подсчёт суммы (TASM)

; (b+c*b-a/4)/(a*b-1)
.model   small
.stack 200h
.data
 
a      db   ?
b      db   ?
c      db   ?
 
q      dw   ?
p      dw   ?
y      dw   ?
t      dw   4   
 
D16 db '0123456789ABCDEF'
BUF db 4 DUP (20h),13,10,'$'
str1  db 'Resultat',13,10,'$'
 
.code
 
funk1 proc near               ;расчет q
           mov AL, a          ;AL=a
           cbw
           mov BL, b          ;BL=b
           imul BL             ;AL=AL*B
           dec AL              ;AL=AL-1
           mov q, AX          ;q=AX
           mov AX, 0          ;AX=0
           mov BX, 0          ;BX=0
           ret
funk1 endp
 
funk2 proc near               ;расчет p
           mov AL, c          ;AL=c
           cbw
           mov BL, b          ;BL=b
           imul BL             ;AX=AX*BL
           mov CX,AX         ;CX=AX
           mov AX,0           ;AX=0
           mov AL,b
           cbw
           add AX, CX         ;AX=AX+b
           mov CX, AX        ;CX=AX
           mov AX, 0          ;AX=0
           mov AL, a          ;AX=a
           cbw
           mov BL, 4          ;BX=4
           idiv BL              ;AX=AX/BX
           sub CX, AX
           mov p, CX
           ret
funk2 endp
 
InputInt proc 
        mov ah, 0ah
        xor di, di
        mov dx, offset buff   ;адрес буфера
        int 21h               ;принимаем строку
        mov dl, 0ah
        mov ah, 02
        int 21h 
                                ; выводим перевод строки и обрабатываем  
                                ; содержимое буфера
       mov si, offset buff+2    ; берем адрес начала строки
       cmp byte ptr [si], "-"   ; если первый символ минус                                             
       jnz ii1
       mov di, 1             ; устанавливаем флаг
       inc si                ; и пропускаем его
ii1:   xor ax, ax 
       mov bx, 10            ; основание сc      
 
ii2:   mov cl, [si]          ; берем символ из буфера
       cmp cl, 0dh           ; проверяем не последний ли он      
       jz endin      
                             ; если символ не последний, то проверяем его                          
                             ; на правильность
       cmp cl, '0'           ; если введен неверный символ <0
       jl er                                           
       cmp cl, '9'           ; если введен неверный символ >9      
       ja er      
       sub cl, '0'           ; делаем из символа число       
       mul bx                ; умножаем на 10      
       add ax, cx            ; прибавляем к остальным
       inc si                ; указатель на следующий символ      
       jmp ii2               ; повторяем      
er:    mov dx, offset error  ; если была ошибка, то выводим сообщение об  
                             ; этом и выходим                                                                           
 
       mov ah,09      
       int 21h
       int 20h               ; все символы из буфера обработаны число 
                             ; находится в ax
endin: cmp di,1              ; если установлен флаг, то      
       jnz ii3      
       neg ax                ; делаем число отрицательным      
ii3:   ret 
       error db "incorrect number$"
       buff    db 6,7 Dup(?)                                           
InputInt endp  
 
OutInt proc near             ;=====Процедура вывода
       test ax, ax          ; проверяем число на знак.
       jns oi1                                             
       mov cx, ax            ; eсли оно отрицательное, выведем минус и  
                             ; оставим его модуль
       mov ah, 02h
       mov dl, '-'
       int 21h
       mov ax, cx
       neg ax                                  
oi1:   xor cx, cx            ; количество цифр будем держать в CX
       mov bx, 10            ; основание сс. 10 для десятеричной и т.п.
oi2:   xor dx, dx
       div bx                ;делим число на основание сс, в остатке 
                             ;получается последняя цифра
       push dx               ;сразу выводить её нельзя, поэтому сохраним 
                             ;её в стэке
       inc cx
                          ; а с частным повторяем то же самое, отделяя
                             ; от него очередную
       test    ax, ax       ; цифру справа, пока не останется ноль, что 
                             ;значит, что дальше
       jnz     oi2           ; слева только нули
 
;========Вывод=========     
      mov ah, 02h
oi3:    pop dx
        add dl, '0'          ; извлекаем очередную цифру, переводим её в 
                             ; символ и выводим
        int 21h
        loop oi3             ; повторим ровно столько раз, сколько цифр 
                             ; насчитали
        ret     
OutInt endp  
 
Begin:
       mov ax, @Data
       mov ds, ax
 
       call InputInt       ; ввод числа а
       mov a, AL
       call InputInt       ; ввод числа b
       mov b, AL
       call InputInt       ; ввод числа с
       mov c, AL
 
       call funk1          ;вызов funk1 
       mov CX, 0
       LEA BX, D16 
       mov AX, q
       mov DX, AX          ;DX:=AX
       call OutInt 
 
       call funk2          ;вызов funk2
       mov CX, 0
       LEA BX, D16 
       mov AX, p
       mov DX, AX          ;DX:=AX
       call OutInt
 
       mov   SI, 0
       mov   CX, 4
       mov   y, 0
       mov   AX, 0
 
per:   mov BX, p           ;AL=p (до этого было BX)
       cbw
       idiv q              ;AL=AL/q
       cbw
 
       adc y, AX           ;y=y+AX
       add SI, 1           ;SI=SI+1
       loop per            ;безусловный переход к per
 
       mov CX, 0
       LEA  BX, D16      
       mov  AX, y
       mov  DX, AX          ;DX:=AX
 
       call OutInt
 
       mov   AX,4c00h         ; 4c00h
       int     21h
end   Begin

imul bl

dec ax