freepascal.compiler/bugs/bug0304.pp

{$asmmode intel}

var
  cb : word;

procedure A(B: word); assembler; inline;
asm
   MOV  AX,B
   CMP  AX,[CB]
   JZ   @@10
   CLI
   MOV  [CB],AX
   STI
@@10:
end;

begin
  a(1);
  a(2);
end.