Delphi-Help

function UpCaseRus(ch: Char): Char;

asm

  CMP   AL,'a'

  JB    @@exit

  CMP   AL,'z'

  JA    @@Rus

  SUB   AL,'a' - 'A'

  RET

@@Rus:

  CMP   AL,'я'

  JA    @@Exit

  CMP   AL,'а'

  JB    @@yo

  SUB   AL,'я' - 'Я'

  RET

@@yo:

  CMP   AL,'?'

  JNE   @@exit

  MOV   AL,'?'

@@exit:

end;