void putfont8(unsigned char *vram, int xsize, int x, int y, char c,
              char *font) {
  int dummy = 0;
  int i;
  unsigned char *p;
  char d;
  for (i = 0; i < 16; i++) {
    p = vram + (y + i) * xsize + (x + dummy);
    d = font[i];
    if ((d & 0x80) != 0) {
      p[0] = c;
    }
    if ((d & 0x40) != 0) {
      p[1] = c;
    }
    if ((d & 0x20) != 0) {
      p[2] = c;
    }
    if ((d & 0x10) != 0) {
      p[3] = c;
    }
    if ((d & 0x08) != 0) {
      p[4] = c;
    }
    if ((d & 0x04) != 0) {
      p[5] = c;
    }
    if ((d & 0x02) != 0) {
      p[6] = c;
    }
    if ((d & 0x01) != 0) {
      p[7] = c;
    }
  }
  return;
}


x86 assembly (clang, -O0):
<putfont8>:
push   %rbp
mov    %rsp,%rbp
mov    %r8b,%al
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %al,-0x15(%rbp)
mov    %r9,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x28(%rbp)
cmpl   $0x10,-0x28(%rbp)
jge    1249 <putfont8+0x149>
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    -0x28(%rbp),%ecx
imul   -0xc(%rbp),%ecx
movslq %ecx,%rcx
add    %rcx,%rax
mov    -0x10(%rbp),%ecx
add    -0x24(%rbp),%ecx
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x31(%rbp)
movsbl -0x31(%rbp),%eax
and    $0x80,%eax
cmp    $0x0,%eax
je     1180 <putfont8+0x80>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,(%rax)
movsbl -0x31(%rbp),%eax
and    $0x40,%eax
cmp    $0x0,%eax
je     119a <putfont8+0x9a>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x1(%rax)
movsbl -0x31(%rbp),%eax
and    $0x20,%eax
cmp    $0x0,%eax
je     11b4 <putfont8+0xb4>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x2(%rax)
movsbl -0x31(%rbp),%eax
and    $0x10,%eax
cmp    $0x0,%eax
je     11ce <putfont8+0xce>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x3(%rax)
movsbl -0x31(%rbp),%eax
and    $0x8,%eax
cmp    $0x0,%eax
je     11e8 <putfont8+0xe8>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x4(%rax)
movsbl -0x31(%rbp),%eax
and    $0x4,%eax
cmp    $0x0,%eax
je     1202 <putfont8+0x102>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x5(%rax)
movsbl -0x31(%rbp),%eax
and    $0x2,%eax
cmp    $0x0,%eax
je     121c <putfont8+0x11c>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x6(%rax)
movsbl -0x31(%rbp),%eax
and    $0x1,%eax
cmp    $0x0,%eax
je     1236 <putfont8+0x136>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x7(%rax)
jmp    123b <putfont8+0x13b>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1129 <putfont8+0x29>
pop    %rbp
ret

x86 assembly (clang, -O2):
<putfont8>:
movslq %edx,%rdx
movslq %ecx,%rcx
movslq %esi,%rax
imul   %rax,%rcx
add    %rdx,%rcx
add    %rdi,%rcx
add    $0x7,%rcx
xor    %edx,%edx
jmp    1131 <putfont8+0x31>
nopl   0x0(%rax,%rax,1)
add    $0x1,%rdx
add    %rax,%rcx
cmp    $0x10,%rdx
je     11c2 <putfont8+0xc2>
movzbl (%r9,%rdx,1),%esi
test   $0x80,%sil
jne    1170 <putfont8+0x70>
test   $0x40,%sil
jne    117a <putfont8+0x7a>
test   $0x20,%sil
jne    1184 <putfont8+0x84>
test   $0x10,%sil
jne    118e <putfont8+0x8e>
test   $0x8,%sil
jne    1198 <putfont8+0x98>
test   $0x4,%sil
jne    11a2 <putfont8+0xa2>
test   $0x2,%sil
jne    11ac <putfont8+0xac>
test   $0x1,%sil
je     1120 <putfont8+0x20>
jmp    11ba <putfont8+0xba>
nopl   0x0(%rax,%rax,1)
mov    %r8b,-0x7(%rcx)
test   $0x40,%sil
je     1142 <putfont8+0x42>
mov    %r8b,-0x6(%rcx)
test   $0x20,%sil
je     1148 <putfont8+0x48>
mov    %r8b,-0x5(%rcx)
test   $0x10,%sil
je     114e <putfont8+0x4e>
mov    %r8b,-0x4(%rcx)
test   $0x8,%sil
je     1154 <putfont8+0x54>
mov    %r8b,-0x3(%rcx)
test   $0x4,%sil
je     115a <putfont8+0x5a>
mov    %r8b,-0x2(%rcx)
test   $0x2,%sil
je     1160 <putfont8+0x60>
mov    %r8b,-0x1(%rcx)
test   $0x1,%sil
je     1120 <putfont8+0x20>
mov    %r8b,(%rcx)
jmp    1120 <putfont8+0x20>
ret

LLVM IR (-O0):
define void @putfont8(i8* %0, i32 %1, i32 %2, i32 %3, i8 signext %4, i8* %5) {
%7 = alloca i8*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i8
%12 = alloca i8*
%13 = alloca i32
%14 = alloca i32
%15 = alloca i8*
%16 = alloca i8
store i8* %0, i8** %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store i32 %3, i32* %10
store i8 %4, i8* %11
store i8* %5, i8** %12
store i32 0, i32* %13
store i32 0, i32* %14
br label %17
17: ; preds = %111, %6
%18 = load i32, i32* %14
%19 = icmp slt i32 %18, 16
br i1 %19, label %20, label %114
20: ; preds = %17
%21 = load i8*, i8** %7
%22 = load i32, i32* %10
%23 = load i32, i32* %14
%24 = add nsw i32 %22, %23
%25 = load i32, i32* %8
%26 = mul nsw i32 %24, %25
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %21, i64 %27
%29 = load i32, i32* %9
%30 = load i32, i32* %13
%31 = add nsw i32 %29, %30
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %28, i64 %32
store i8* %33, i8** %15
%34 = load i8*, i8** %12
%35 = load i32, i32* %14
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds i8, i8* %34, i64 %36
%38 = load i8, i8* %37
store i8 %38, i8* %16
%39 = load i8, i8* %16
%40 = sext i8 %39 to i32
%41 = and i32 %40, 128
%42 = icmp ne i32 %41, 0
br i1 %42, label %43, label %47
43: ; preds = %20
%44 = load i8, i8* %11
%45 = load i8*, i8** %15
%46 = getelementptr inbounds i8, i8* %45, i64 0
store i8 %44, i8* %46
br label %47
47: ; preds = %43, %20
%48 = load i8, i8* %16
%49 = sext i8 %48 to i32
%50 = and i32 %49, 64
%51 = icmp ne i32 %50, 0
br i1 %51, label %52, label %56
52: ; preds = %47
%53 = load i8, i8* %11
%54 = load i8*, i8** %15
%55 = getelementptr inbounds i8, i8* %54, i64 1
store i8 %53, i8* %55
br label %56
56: ; preds = %52, %47
%57 = load i8, i8* %16
%58 = sext i8 %57 to i32
%59 = and i32 %58, 32
%60 = icmp ne i32 %59, 0
br i1 %60, label %61, label %65
61: ; preds = %56
%62 = load i8, i8* %11
%63 = load i8*, i8** %15
%64 = getelementptr inbounds i8, i8* %63, i64 2
store i8 %62, i8* %64
br label %65
65: ; preds = %61, %56
%66 = load i8, i8* %16
%67 = sext i8 %66 to i32
%68 = and i32 %67, 16
%69 = icmp ne i32 %68, 0
br i1 %69, label %70, label %74
70: ; preds = %65
%71 = load i8, i8* %11
%72 = load i8*, i8** %15
%73 = getelementptr inbounds i8, i8* %72, i64 3
store i8 %71, i8* %73
br label %74
74: ; preds = %70, %65
%75 = load i8, i8* %16
%76 = sext i8 %75 to i32
%77 = and i32 %76, 8
%78 = icmp ne i32 %77, 0
br i1 %78, label %79, label %83
79: ; preds = %74
%80 = load i8, i8* %11
%81 = load i8*, i8** %15
%82 = getelementptr inbounds i8, i8* %81, i64 4
store i8 %80, i8* %82
br label %83
83: ; preds = %79, %74
%84 = load i8, i8* %16
%85 = sext i8 %84 to i32
%86 = and i32 %85, 4
%87 = icmp ne i32 %86, 0
br i1 %87, label %88, label %92
88: ; preds = %83
%89 = load i8, i8* %11
%90 = load i8*, i8** %15
%91 = getelementptr inbounds i8, i8* %90, i64 5
store i8 %89, i8* %91
br label %92
92: ; preds = %88, %83
%93 = load i8, i8* %16
%94 = sext i8 %93 to i32
%95 = and i32 %94, 2
%96 = icmp ne i32 %95, 0
br i1 %96, label %97, label %101
97: ; preds = %92
%98 = load i8, i8* %11
%99 = load i8*, i8** %15
%100 = getelementptr inbounds i8, i8* %99, i64 6
store i8 %98, i8* %100
br label %101
101: ; preds = %97, %92
%102 = load i8, i8* %16
%103 = sext i8 %102 to i32
%104 = and i32 %103, 1
%105 = icmp ne i32 %104, 0
br i1 %105, label %106, label %110
106: ; preds = %101
%107 = load i8, i8* %11
%108 = load i8*, i8** %15
%109 = getelementptr inbounds i8, i8* %108, i64 7
store i8 %107, i8* %109
br label %110
110: ; preds = %106, %101
br label %111
111: ; preds = %110
%112 = load i32, i32* %14
%113 = add nsw i32 %112, 1
store i32 %113, i32* %14
br label %17
114: ; preds = %17
ret void
}

LLVM IR (-O2):
define void @putfont8(i8* nocapture writeonly %0, i32 %1, i32 %2, i32 %3, i8 signext %4, i8* nocapture %5) {
%7 = sext i32 %2 to i64
%8 = sext i32 %3 to i64
%9 = sext i32 %1 to i64
%10 = getelementptr inbounds i8, i8* %0, i64 %7
br label %11
11: ; preds = %6, %57
%12 = phi i64 [ 0, %6 ], [ %58, %57 ]
%13 = add nsw i64 %12, %8
%14 = mul nsw i64 %13, %9
%15 = getelementptr inbounds i8, i8* %10, i64 %14
%16 = getelementptr inbounds i8, i8* %5, i64 %12
%17 = load i8, i8* %16
%18 = zext i8 %17 to i32
%19 = and i32 %18, 128
%20 = icmp eq i32 %19, 0
br i1 %20, label %22, label %21
21: ; preds = %11
store i8 %4, i8* %15
br label %22
22: ; preds = %21, %11
%23 = and i32 %18, 64
%24 = icmp eq i32 %23, 0
br i1 %24, label %27, label %25
25: ; preds = %22
%26 = getelementptr inbounds i8, i8* %15, i64 1
store i8 %4, i8* %26
br label %27
27: ; preds = %25, %22
%28 = and i32 %18, 32
%29 = icmp eq i32 %28, 0
br i1 %29, label %32, label %30
30: ; preds = %27
%31 = getelementptr inbounds i8, i8* %15, i64 2
store i8 %4, i8* %31
br label %32
32: ; preds = %30, %27
%33 = and i32 %18, 16
%34 = icmp eq i32 %33, 0
br i1 %34, label %37, label %35
35: ; preds = %32
%36 = getelementptr inbounds i8, i8* %15, i64 3
store i8 %4, i8* %36
br label %37
37: ; preds = %35, %32
%38 = and i32 %18, 8
%39 = icmp eq i32 %38, 0
br i1 %39, label %42, label %40
40: ; preds = %37
%41 = getelementptr inbounds i8, i8* %15, i64 4
store i8 %4, i8* %41
br label %42
42: ; preds = %40, %37
%43 = and i32 %18, 4
%44 = icmp eq i32 %43, 0
br i1 %44, label %47, label %45
45: ; preds = %42
%46 = getelementptr inbounds i8, i8* %15, i64 5
store i8 %4, i8* %46
br label %47
47: ; preds = %45, %42
%48 = and i32 %18, 2
%49 = icmp eq i32 %48, 0
br i1 %49, label %52, label %50
50: ; preds = %47
%51 = getelementptr inbounds i8, i8* %15, i64 6
store i8 %4, i8* %51
br label %52
52: ; preds = %50, %47
%53 = and i32 %18, 1
%54 = icmp eq i32 %53, 0
br i1 %54, label %57, label %55
55: ; preds = %52
%56 = getelementptr inbounds i8, i8* %15, i64 7
store i8 %4, i8* %56
br label %57
57: ; preds = %52, %55
%58 = add nuw nsw i64 %12, 1
%59 = icmp eq i64 %58, 16
br i1 %59, label %60, label %11
60: ; preds = %57
ret void
}