.686
.model flat
public  _main
.data						;macierz A
;							2,3		1,4
;							3,2		1,1
;
;macierzB	 1,5   1,3		?		?
;			 1,7   1,8		?		?
;
;
;
;
;
;
;
m equ 2 ;szerokosc macierzy A, wysokosc macierzy B
k equ 2 ;wysokosc macierzy A
l equ 2 ;szerokosc macierzy B
tablicaA dd 2.3, 1.4, 3.2, 1.1
tablicaB dd 1.5, 1.3, 1.7, 1.8
tablicaC dq l*k dup (?)
licznikM dd 0
licznikK dd 0
pom dd 0
licznikLK dd 0
.code
	_main PROC
	finit
	fldz
	mov ecx, 0
	mov ebx, 0
	mov edi, 0
petlaLK:
		petlaK:
			mov eax, ecx
			mov pom, m
			mul pom
			mov esi, eax
			mov eax, 4
			mul licznikK
			mov edx, eax

			fld tablicaB[esi*4+edx]
			fld tablicaA[4*ebx]
			fmul
			fadd st(1),st(0)
			fstp st(0)
			add ebx, k

			inc licznikK
			cmp licznikK, m
			jne petlaK
	fstp dword ptr tablicaC[edi*8]
	fldz
	inc edi
	mov licznikK, 0
	inc licznikLK

	mov eax, 0
	mov edx, 0

	mov ebx, licznikLK
	mov eax, licznikLK
	mov licznikLK, k
	div licznikLK
	mov licznikLK, ebx
	mov ebx, edx

	mov eax, 0
	mov edx, 0

	mov ecx, licznikLK
	mov eax, licznikLK
	mov licznikLK, k
	div licznikLK
	mov licznikLK, ecx
	mov ecx, eax

	mov edx, 0
	mov eax, 0

	cmp licznikLK, l*k
	jne petlaLK
	ret
	_main   ENDP
END