var
  secondbug : word;
procedure p;assembler;
begin
  if secondbug=0 then;
end;

begin
end.