Unit unit_5; // ( 2014o UTJZ5D kristofbirizdo      Birizdó Kristóf )

procedure Fgv5 (VAL V1:uns64; VAL V2:uns8; RESULT R:uns64); @external;
procedure Fgv5 (VAL V1:uns64; VAL V2:uns8; RESULT R:uns64);
Begin Fgv5;//R=V1; SHR(V2%32,R)

PUSH(EAX);
PUSH(EBX);
PUSH(ECX);
PUSH(EDX);
// V2%32
	MOVZX(V2,EAX);
	MOV(32,EBX);
	cdq;
	IDIV(EBX);
// R=V1

MOV( V1, EBX);
MOV( [ EBX + 4 ], EAX);
MOV(EAX, (type dword R[4]) );
MOV([EBX+0],EAX);
MOV(EAX, (type dword R[0]) );

// SHR(V2%32,R)

End Fgv5;

end unit_5;