unsigned char charset_petcii_to_screencode(unsigned char code,
                                           unsigned int reverse_mode) {
  unsigned char rev = (reverse_mode ? 0x80 : 0x00);
  if (code >= 0x40 && code <= 0x5f) {
    return (unsigned char)(code - 0x40) | rev;
  } else if (code >= 0x60 && code <= 0x7f) {
    return (unsigned char)(code - 0x20) | rev;
  } else if (code >= 0xa0 && code <= 0xbf) {
    return (unsigned char)(code - 0x40) | rev;
  } else if (code >= 0xc0 && code <= 0xfe) {
    return (unsigned char)(code - 0x80) | rev;
  } else if (code == 0xff) {
    return 0x5e | rev;
  }
  return code | rev;
}


x86 assembly (clang, -O0):
<charset_petcii_to_screencode>:
push   %rbp
mov    %rsp,%rbp
mov    %dil,%al
mov    %al,-0x2(%rbp)
mov    %esi,-0x8(%rbp)
mov    -0x8(%rbp),%edx
xor    %eax,%eax
mov    $0x80,%ecx
cmp    $0x0,%edx
cmovne %ecx,%eax
mov    %al,-0x9(%rbp)
movzbl -0x2(%rbp),%eax
cmp    $0x40,%eax
jl     1152 <charset_petcii_to_screencode+0x52>
movzbl -0x2(%rbp),%eax
cmp    $0x5f,%eax
jg     1152 <charset_petcii_to_screencode+0x52>
movzbl -0x2(%rbp),%eax
sub    $0x40,%eax
movzbl %al,%eax
movzbl -0x9(%rbp),%ecx
or     %ecx,%eax
mov    %al,-0x1(%rbp)
jmp    1231 <charset_petcii_to_screencode+0x131>
movzbl -0x2(%rbp),%eax
cmp    $0x60,%eax
jl     1184 <charset_petcii_to_screencode+0x84>
movzbl -0x2(%rbp),%eax
cmp    $0x7f,%eax
jg     1184 <charset_petcii_to_screencode+0x84>
movzbl -0x2(%rbp),%eax
sub    $0x20,%eax
movzbl %al,%eax
movzbl -0x9(%rbp),%ecx
or     %ecx,%eax
mov    %al,-0x1(%rbp)
jmp    1231 <charset_petcii_to_screencode+0x131>
movzbl -0x2(%rbp),%eax
cmp    $0xa0,%eax
jl     11ba <charset_petcii_to_screencode+0xba>
movzbl -0x2(%rbp),%eax
cmp    $0xbf,%eax
jg     11ba <charset_petcii_to_screencode+0xba>
movzbl -0x2(%rbp),%eax
sub    $0x40,%eax
movzbl %al,%eax
movzbl -0x9(%rbp),%ecx
or     %ecx,%eax
mov    %al,-0x1(%rbp)
jmp    1231 <charset_petcii_to_screencode+0x131>
movzbl -0x2(%rbp),%eax
cmp    $0xc0,%eax
jl     11f2 <charset_petcii_to_screencode+0xf2>
movzbl -0x2(%rbp),%eax
cmp    $0xfe,%eax
jg     11f2 <charset_petcii_to_screencode+0xf2>
movzbl -0x2(%rbp),%eax
sub    $0x80,%eax
movzbl %al,%eax
movzbl -0x9(%rbp),%ecx
or     %ecx,%eax
mov    %al,-0x1(%rbp)
jmp    1231 <charset_petcii_to_screencode+0x131>
movzbl -0x2(%rbp),%eax
cmp    $0xff,%eax
jne    1210 <charset_petcii_to_screencode+0x110>
movzbl -0x9(%rbp),%eax
or     $0x5e,%eax
mov    %al,-0x1(%rbp)
jmp    1231 <charset_petcii_to_screencode+0x131>
jmp    1215 <charset_petcii_to_screencode+0x115>
jmp    121a <charset_petcii_to_screencode+0x11a>
jmp    121f <charset_petcii_to_screencode+0x11f>
jmp    1224 <charset_petcii_to_screencode+0x124>
movzbl -0x2(%rbp),%eax
movzbl -0x9(%rbp),%ecx
or     %ecx,%eax
mov    %al,-0x1(%rbp)
movzbl -0x1(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<charset_petcii_to_screencode>:
mov    %edi,%eax
and    $0xe0,%al
cmp    $0x40,%al
je     1118 <charset_petcii_to_screencode+0x18>
cmp    $0x60,%dil
jl     1114 <charset_petcii_to_screencode+0x14>
add    $0xe0,%dil
jmp    111c <charset_petcii_to_screencode+0x1c>
cmp    $0xa0,%al
jne    1128 <charset_petcii_to_screencode+0x28>
add    $0xc0,%dil
test   %esi,%esi
setne  %al
shl    $0x7,%al
or     %dil,%al
ret
lea    0x40(%rdi),%eax
cmp    $0x3e,%al
ja     1135 <charset_petcii_to_screencode+0x35>
xor    $0x80,%dil
jmp    111c <charset_petcii_to_screencode+0x1c>
cmp    $0xff,%dil
movzbl %dil,%eax
mov    $0x5e,%edi
cmovne %eax,%edi
jmp    111c <charset_petcii_to_screencode+0x1c>

LLVM IR (-O0):
define zeroext i8 @charset_petcii_to_screencode(i8 zeroext %0, i32 %1) {
%3 = alloca i8
%4 = alloca i8
%5 = alloca i32
%6 = alloca i8
store i8 %0, i8* %4
store i32 %1, i32* %5
%7 = load i32, i32* %5
%8 = icmp ne i32 %7, 0
%9 = zext i1 %8 to i64
%10 = select i1 %8, i32 128, i32 0
%11 = trunc i32 %10 to i8
store i8 %11, i8* %6
%12 = load i8, i8* %4
%13 = zext i8 %12 to i32
%14 = icmp sge i32 %13, 64
br i1 %14, label %15, label %29
15: ; preds = %2
%16 = load i8, i8* %4
%17 = zext i8 %16 to i32
%18 = icmp sle i32 %17, 95
br i1 %18, label %19, label %29
19: ; preds = %15
%20 = load i8, i8* %4
%21 = zext i8 %20 to i32
%22 = sub nsw i32 %21, 64
%23 = trunc i32 %22 to i8
%24 = zext i8 %23 to i32
%25 = load i8, i8* %6
%26 = zext i8 %25 to i32
%27 = or i32 %24, %26
%28 = trunc i32 %27 to i8
store i8 %28, i8* %3
br label %103
29: ; preds = %15, %2
%30 = load i8, i8* %4
%31 = zext i8 %30 to i32
%32 = icmp sge i32 %31, 96
br i1 %32, label %33, label %47
33: ; preds = %29
%34 = load i8, i8* %4
%35 = zext i8 %34 to i32
%36 = icmp sle i32 %35, 127
br i1 %36, label %37, label %47
37: ; preds = %33
%38 = load i8, i8* %4
%39 = zext i8 %38 to i32
%40 = sub nsw i32 %39, 32
%41 = trunc i32 %40 to i8
%42 = zext i8 %41 to i32
%43 = load i8, i8* %6
%44 = zext i8 %43 to i32
%45 = or i32 %42, %44
%46 = trunc i32 %45 to i8
store i8 %46, i8* %3
br label %103
47: ; preds = %33, %29
%48 = load i8, i8* %4
%49 = zext i8 %48 to i32
%50 = icmp sge i32 %49, 160
br i1 %50, label %51, label %65
51: ; preds = %47
%52 = load i8, i8* %4
%53 = zext i8 %52 to i32
%54 = icmp sle i32 %53, 191
br i1 %54, label %55, label %65
55: ; preds = %51
%56 = load i8, i8* %4
%57 = zext i8 %56 to i32
%58 = sub nsw i32 %57, 64
%59 = trunc i32 %58 to i8
%60 = zext i8 %59 to i32
%61 = load i8, i8* %6
%62 = zext i8 %61 to i32
%63 = or i32 %60, %62
%64 = trunc i32 %63 to i8
store i8 %64, i8* %3
br label %103
65: ; preds = %51, %47
%66 = load i8, i8* %4
%67 = zext i8 %66 to i32
%68 = icmp sge i32 %67, 192
br i1 %68, label %69, label %83
69: ; preds = %65
%70 = load i8, i8* %4
%71 = zext i8 %70 to i32
%72 = icmp sle i32 %71, 254
br i1 %72, label %73, label %83
73: ; preds = %69
%74 = load i8, i8* %4
%75 = zext i8 %74 to i32
%76 = sub nsw i32 %75, 128
%77 = trunc i32 %76 to i8
%78 = zext i8 %77 to i32
%79 = load i8, i8* %6
%80 = zext i8 %79 to i32
%81 = or i32 %78, %80
%82 = trunc i32 %81 to i8
store i8 %82, i8* %3
br label %103
83: ; preds = %69, %65
%84 = load i8, i8* %4
%85 = zext i8 %84 to i32
%86 = icmp eq i32 %85, 255
br i1 %86, label %87, label %92
87: ; preds = %83
%88 = load i8, i8* %6
%89 = zext i8 %88 to i32
%90 = or i32 94, %89
%91 = trunc i32 %90 to i8
store i8 %91, i8* %3
br label %103
92: ; preds = %83
br label %93
93: ; preds = %92
br label %94
94: ; preds = %93
br label %95
95: ; preds = %94
br label %96
96: ; preds = %95
%97 = load i8, i8* %4
%98 = zext i8 %97 to i32
%99 = load i8, i8* %6
%100 = zext i8 %99 to i32
%101 = or i32 %98, %100
%102 = trunc i32 %101 to i8
store i8 %102, i8* %3
br label %103
103: ; preds = %96, %87, %73, %55, %37, %19
%104 = load i8, i8* %3
ret i8 %104
}

LLVM IR (-O2):
define zeroext i8 @charset_petcii_to_screencode(i8 zeroext %0, i32 %1) {
%3 = and i8 %0, -32
%4 = icmp eq i8 %3, 64
br i1 %4, label %5, label %7
5: ; preds = %2
%6 = add nsw i8 %0, -64
br label %23
7: ; preds = %2
%8 = icmp sgt i8 %0, 95
br i1 %8, label %9, label %11
9: ; preds = %7
%10 = add nsw i8 %0, -32
br label %23
11: ; preds = %7
%12 = icmp eq i8 %3, -96
br i1 %12, label %13, label %15
13: ; preds = %11
%14 = add i8 %0, -64
br label %23
15: ; preds = %11
%16 = add i8 %0, 64
%17 = icmp ult i8 %16, 63
br i1 %17, label %18, label %20
18: ; preds = %15
%19 = xor i8 %0, -128
br label %23
20: ; preds = %15
%21 = icmp eq i8 %0, -1
%22 = select i1 %21, i8 94, i8 %0
br label %23
23: ; preds = %20, %18, %13, %9, %5
%24 = phi i8 [ %6, %5 ], [ %10, %9 ], [ %14, %13 ], [ %19, %18 ], [ %22, %20 ]
%25 = icmp eq i32 %1, 0
%26 = select i1 %25, i8 0, i8 -128
%27 = or i8 %26, %24
ret i8 %27
}