Ошибка деления на ноль

.Model Large, Pascal
.data
Extrn Numerator:Dword
Extrn aS:Byte, ccS:Byte,dds:Byte
Extrn xI:Word
Extrn Denominator:Word
Extrn aai:WORD, cci:Word , ddi:Word
.code
Public Lab3S
Lab3S proc far
 
;==================8-битный ассмеблер (shortint)==============
 
; знаменатель - Denominator--------------------
    mov aL,aS   ; A => AL
    cbw
    mov bl,4    ; 4 =>BL
    idiv bl     ; <ax>=a/4 
    inc ax      ; <ax>=a/4+1
    mov Denominator,ax
;--------------------—числитель - Numerator--------------------
    mov al,ccS  ; c=>AL
    mov bl,2    ; 2=>BL
    imul bl     ; <bx>=2*c
    push ax     
    mov al,ddS  ; D=>AL
    CBW
    pop bx      
    add ax,bx   ; ax=D+2c
    sub ax,52   ; ax=D+2c-52
    CWD     
    mov word ptr numerator,ax   
    mov word ptr numerator+2,dx 
;----------------------результат------------------------------
idiv denominator    
mov xI,ax       
re
 
 
;==================16-битный ассемблер (integer)==============
 
lab3s endp
 
    public lab3l
lab3l proc far
;=================знаменатель============================
    mov ax,aai  ; A=>AL
    mov bl,4    ; 4=>BL
    idiv bl     ; <ax>=a/4 
    inc al      ; <ax>=a/4+1    
    cbw 
    mov denominator,ax
;=================числитель=============================== 
    mov bx,cci  ; c=>al
    mov ax,2    ; 2=>bl
    imul bx     ; <bx>=2*c
    mov bx,ddi  ; d=>al
    add ax,bx
    adc dx,0
    sub ax,52
    sbb dx,0
    mov word ptr numerator, ax
    mov word ptr numerator+2,dx
mov ax,dx
;=================результат===============================
    idiv denominator
    mov xI,ax
ret 
lab3l endp
end