A2/B2 pascal with asm

Tính A2/B2 hiện số thực.
Nhập xuất trong Pascal, tính toàn trong ASM

file Chia.pas

program bai2;
var a, b, c, d: integer;
{$F+}
     function MYDIV:integer; external;
     {$L C:\TASM\FLOAT.OBJ}
{$F-}

BEGIN
     write('a = '); readln(a);
     write('b = '); readln(b);
     MYDIV;
     writeln('a^2 / b^2 = ', c , '.', d);
     readln;
END.

file float.asm nằm trong C:\TASM\

.model large
.data
    EXTRN a: word, b: word, c: word, d: word
.code
    public mydiv
    mydiv proc

        mov ax, a
        mul ax          ; ax = ax*ax
        push ax

        mov ax, b
        mul ax
        mov bx, ax

        pop ax
        div bx  ; ax = ax/bx, dx = ax%bx
        mov c, ax   ; c la phan nguyen
        mov ax, dx
        mov dx, 100
        mul dx  ; hien thi 2 so thap phan
        div bx
        mov d, ax   ; d la phan thap phan
        ret
    mydiv endp
END