bug fixes

This commit is contained in:
ceriel 1987-06-10 13:46:21 +00:00
parent e43a1b00f6
commit 130abb7e3b
2 changed files with 5 additions and 1 deletions

View file

@ -10,7 +10,7 @@
1:
add bx,4
dec cx
jl 2f
jl 4f
cmp ax,(bx)
jne 1b
mov bx,2(bx)
@ -24,3 +24,6 @@
jmp .fat
3:
jmp bx
4:
mov bx,dx
jmp 2b

View file

@ -20,6 +20,7 @@ yh=4
pop dx
add dx,ax ! xh*yl+xl*yh
mov ax,cx
mov cx,dx
mul yl(bx) ! xl*yl
add dx,cx
ret 4