{$ASMMODE intel}
{$MODE DELPHI}

program ideone;
     
function sign(const a: integer):shortint; assembler;
asm
	or		eax, eax
	sets	ah
	setg	al
	sub		al, ah
end;
     
begin
	writeln(sign(-123));
	writeln(sign(0));
	writeln(sign(555));
end.