function StrRScan(const Str: PChar; Chr: Char): PChar; assembler;
...
 [b] MOV     AL,Chr[/b]
...