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

[Сметуська]

Паскаль подключает модуль ассемблера где асм должен посчитать пример
(2*с+d-52)/(a/4+1), для ShortInt считает правильно а вот для Integer выводит ошибку деления на ноль, помогите если не сложно
З.Ы. заранее благодарна

.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

[Mikl___]

Сметуська
Смысл писать одно и то же на всех ассемблерных форумах?

[yuran666666]

Сообщение от Mikl___

Сметуська
Смысл писать одно и то же на всех ассемблерных форумах?

очевидно же, что для того чтобы проверить теорию вероятности.