Как вывести остаток от деления - Assembler

;z=(4*c-d/2+23)/(a*a-1)
.MODEL small
.Stack 100h
Datas segment 
    a dw 2
    c dw 2
    d dw 2
    z dw ? 
    h dw ?
    znam dw ?
    mess db 'Error! Division by zero.$'
Datas ends
 
Codes segment 
    Assume cs:Codes, ds:Datas
First:  mov ax, Datas
    mov ds, ax
 
    ;a*a
    mov ax, a
    cwd
    imul a
 
    ;if a == 1 => divide by zero => error
    cmp ax, 1
    je @err
    
    ;(a*a)-1
    mov h, 1
    sbb ax, h
    mov znam, ax
 
    ;4*c
    mov h, 4
    mov ax, c
    imul h
    mov z, ax
 
    ;d/2
    mov h, 2
    mov ax, d
    cwd
    idiv h
 
    ;(4*c)-(d/2)
    sbb z, ax
 
    ;(4*c-d/2)+23
    mov ax, z
    mov h, 23
    adc ax, h
 
    ;(4*c-d/2+23) / (znam)
    cwd
    idiv znam
    mov z, ax
 
    xor ax, ax
    mov ax, z
    push ax
    cmp ax, 0
    jns @plus ;если знак плюс (знаковый (старший) бит результата равен 0)
 
    mov dl, '-'
    mov ah, 02h ;вивод
    int 21h
    pop ax
    neg ax
 
@plus:  xor cx, cx
    mov bx, 10
 
@dvsn:  xor dx, dx
    div bx
    push dx
    inc cx
    test ax, ax
    jnz short @dvsn ;если нет нуля
    mov ah, 02h
 
@vivod: pop dx
    add dl, 30h ; +30
    int 21h
    loop @vivod
    jmp @end
 
@err:   mov dx, offset mess
    mov ah, 09h
    int 21h
 
@end:   mov ax, 4c00h
    int 21h
Codes ends
end First

;Z = (-53/a + d - 4*a)/(1+a*b)
;a=1  d=2 b=3
;X=-53/a=-53
;Y=4*a=4*1=4
;Z=x+d=-53+2=-51
;S=z-y=-51-4=-55/////
;X=a*b=1*3=3
;Y=x+1=3+1=4///
;Z=s/y=-55/4=-18 

.MODEL small
.Stack 100h
Datas segment 
    a dw 1
    b dw 3
    d dw 2 
    x dw ?
    y dw ? 
    z dw ?
    s dw ? 
    mess db 'Error! Division by zero.$'  
    mes db '.$'
Datas ends
 
Codes segment 
    Assume cs:Codes, ds:Datas
    First:  mov ax, Datas
     mov ds, ax
 
    xor ax, ax
    cmp a, 0
    je @err  
      
      ;X=a*b=1*3=3
     mov ax,a 
     imul b
 
     add ax,1
    mov y,ax
       
    ;X=-53/a=-53/1=-53
    mov ax, -53
    cwd
    idiv a 
    mov x, ax  
    
    mov ax,-4
    imul a
 
    add ax,d 
    add ax,x
     
     cwd 
     idiv  y
     mov z,ax

@otv:   xor ax, ax
    mov ax, z
    push ax
    cmp ax, 0
    jns @plus ;åñëè Г§Г*Г*ГЄ ïëþñ (Г§Г*Г*êîâûé (Г±ГІГ*ðøèé) ГЎГЁГІ ðåçóëüòГ*ГІГ* Г°Г*ГўГҐГ* 0)
 
    mov dl, '-'
    mov ah, 02h
    int 21h
    pop ax
    neg ax
 
@plus:  xor cx, cx
    mov bx, 10
 
@dvsn:  xor dx, dx
    div bx
    push dx
    inc cx
    test ax, ax
    jnz short @dvsn ;åñëè Г*ГҐГІ Г*óëÿ
    mov ah, 02h
 
@vivod: pop dx
    add dl, 30h ; +30
    int 21h
    loop @vivod
    jmp  @tochka
 
@err:   mov dx, offset mess
    mov ah, 09h
    int 21h   
    
@tochka:  mov dx, offset mes
    mov ah, 09h
    int 21h
 
@end:   mov ax, 4c00h
    int 21h
Codes ends
end First