asm_cmp.pas

{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
program asm1;

{
 (c) Petr "Zweistein" Prokop

 Program asm compare :
  Porovn v nˇ dvou źˇsel assemblerem
}

var a: integer;
    b: integer;
    c: integer;
begin
 write('cislo1 ');
 readln(a);
 write('cislo2 ');
 readln(b);
 asm
  mov ax,a
  mov bx,b
  cmp ax,bx
  jnz @compa
  mov c,0
  jmp @endi
  @compa: cmp ax,bx
  jc @bxvets
  mov c,1
  jmp @endi
  @bxvets: mov c,2
  @endi:
 end;
 writeln('output:',c);
 readln;
end.