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