Pascal hex numbers

[Alexey-T]

Name of the lexer
Pascal

Code sample

function UnicodeToISO_8859_9(Unicode: cardinal): integer;
begin
  case Unicode of
  0..255: Result:=Unicode;
  $011E: Result:= $D0;
  $0130: Result:= $DD;
  $015E: Result:= $DE;
  $011F: Result:= $F0;
  $0131: Result:= $FD;
  $015F: Result:= $FE;
  else Result:=-1;
  end;
end;  

Additional context
I use Gitlab to see patches for Lazarus project here
https://gitlab.com/freepascal.org/lazarus/lazarus/-/commit/f737b23e7c36fefb16b14600c8dc79979213d8e0