%include "tmatrix.inc"

Darab   EQU     10

ORG 100H

        FNINIT

        MOV     ESI,Forras + Darab * V3_size
        MOV     EDI,Cel + Darab * V3_size
        MOV     ECX,-1 * Darab * V3_size
        JMP     SHORT First
Next:
        FSTP    QWORD [EDI+ECX+x]
        FSTP    QWORD [EDI+ECX+y]
        FSTP    QWORD [EDI+ECX+z]
First:
        M33x13  Matrix,ESI+ECX
        ADD     ECX,V3_size
        JNZ     Next
        FSTP    QWORD [EDI+ECX+x]
        FSTP    QWORD [EDI+ECX+y]
        FSTP    QWORD [EDI+ECX+z]

        MOV     AX,4C00H
        INT     21H

SEGMENT .bss
        ALIGNB  8
Matrix  RESB    M33_size
Forras  RESB    Darab * V3_size
Cel     RESB    Darab * V3_size