function LoCaseRus( ch : Char ) : Char;

asm

  CMP          AL,'A'

  JB              @@exit

  CMP          AL,'Z'

  JA              @@Rus

  ADD          AL,'a' - 'A'

  RET

@@Rus:

  CMP          AL,'Я'

  JA              @@Exit

  CMP          AL,'А'

  JB              @@yo

  ADD          AL,'я' - 'Я'

  RET

@@yo:

  CMP          AL,'?'

  JNE            @@exit

  MOV          AL,'?'

@@exit:

end;