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


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)
cmpl   $0x10,-0x24(%rbp)
jge    123d <putfont8+0x13d>
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x25(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x14(%rbp),%ecx
add    -0x24(%rbp),%ecx
imul   -0xc(%rbp),%ecx
movslq %ecx,%rcx
add    %rcx,%rax
movslq -0x10(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
movsbl -0x25(%rbp),%eax
and    $0x80,%eax
cmp    $0x0,%eax
je     1174 <putfont8+0x74>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,(%rax)
movsbl -0x25(%rbp),%eax
and    $0x40,%eax
cmp    $0x0,%eax
je     118e <putfont8+0x8e>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x1(%rax)
movsbl -0x25(%rbp),%eax
and    $0x20,%eax
cmp    $0x0,%eax
je     11a8 <putfont8+0xa8>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x2(%rax)
movsbl -0x25(%rbp),%eax
and    $0x10,%eax
cmp    $0x0,%eax
je     11c2 <putfont8+0xc2>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x3(%rax)
movsbl -0x25(%rbp),%eax
and    $0x8,%eax
cmp    $0x0,%eax
je     11dc <putfont8+0xdc>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x4(%rax)
movsbl -0x25(%rbp),%eax
and    $0x4,%eax
cmp    $0x0,%eax
je     11f6 <putfont8+0xf6>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x5(%rax)
movsbl -0x25(%rbp),%eax
and    $0x2,%eax
cmp    $0x0,%eax
je     1210 <putfont8+0x110>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x6(%rax)
movsbl -0x25(%rbp),%eax
and    $0x1,%eax
cmp    $0x0,%eax
je     122a <putfont8+0x12a>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x7(%rax)
jmp    122f <putfont8+0x12f>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1122 <putfont8+0x22>
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 i8
%15 = 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
br label %16
16: ; preds = %108, %6
%17 = load i32, i32* %13
%18 = icmp slt i32 %17, 16
br i1 %18, label %19, label %111
19: ; preds = %16
%20 = load i8*, i8** %12
%21 = load i32, i32* %13
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds i8, i8* %20, i64 %22
%24 = load i8, i8* %23
store i8 %24, i8* %14
%25 = load i8*, i8** %7
%26 = load i32, i32* %10
%27 = load i32, i32* %13
%28 = add nsw i32 %26, %27
%29 = load i32, i32* %8
%30 = mul nsw i32 %28, %29
%31 = sext i32 %30 to i64
%32 = getelementptr inbounds i8, i8* %25, i64 %31
%33 = load i32, i32* %9
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i8, i8* %32, i64 %34
store i8* %35, i8** %15
%36 = load i8, i8* %14
%37 = sext i8 %36 to i32
%38 = and i32 %37, 128
%39 = icmp ne i32 %38, 0
br i1 %39, label %40, label %44
40: ; preds = %19
%41 = load i8, i8* %11
%42 = load i8*, i8** %15
%43 = getelementptr inbounds i8, i8* %42, i64 0
store i8 %41, i8* %43
br label %44
44: ; preds = %40, %19
%45 = load i8, i8* %14
%46 = sext i8 %45 to i32
%47 = and i32 %46, 64
%48 = icmp ne i32 %47, 0
br i1 %48, label %49, label %53
49: ; preds = %44
%50 = load i8, i8* %11
%51 = load i8*, i8** %15
%52 = getelementptr inbounds i8, i8* %51, i64 1
store i8 %50, i8* %52
br label %53
53: ; preds = %49, %44
%54 = load i8, i8* %14
%55 = sext i8 %54 to i32
%56 = and i32 %55, 32
%57 = icmp ne i32 %56, 0
br i1 %57, label %58, label %62
58: ; preds = %53
%59 = load i8, i8* %11
%60 = load i8*, i8** %15
%61 = getelementptr inbounds i8, i8* %60, i64 2
store i8 %59, i8* %61
br label %62
62: ; preds = %58, %53
%63 = load i8, i8* %14
%64 = sext i8 %63 to i32
%65 = and i32 %64, 16
%66 = icmp ne i32 %65, 0
br i1 %66, label %67, label %71
67: ; preds = %62
%68 = load i8, i8* %11
%69 = load i8*, i8** %15
%70 = getelementptr inbounds i8, i8* %69, i64 3
store i8 %68, i8* %70
br label %71
71: ; preds = %67, %62
%72 = load i8, i8* %14
%73 = sext i8 %72 to i32
%74 = and i32 %73, 8
%75 = icmp ne i32 %74, 0
br i1 %75, label %76, label %80
76: ; preds = %71
%77 = load i8, i8* %11
%78 = load i8*, i8** %15
%79 = getelementptr inbounds i8, i8* %78, i64 4
store i8 %77, i8* %79
br label %80
80: ; preds = %76, %71
%81 = load i8, i8* %14
%82 = sext i8 %81 to i32
%83 = and i32 %82, 4
%84 = icmp ne i32 %83, 0
br i1 %84, label %85, label %89
85: ; preds = %80
%86 = load i8, i8* %11
%87 = load i8*, i8** %15
%88 = getelementptr inbounds i8, i8* %87, i64 5
store i8 %86, i8* %88
br label %89
89: ; preds = %85, %80
%90 = load i8, i8* %14
%91 = sext i8 %90 to i32
%92 = and i32 %91, 2
%93 = icmp ne i32 %92, 0
br i1 %93, label %94, label %98
94: ; preds = %89
%95 = load i8, i8* %11
%96 = load i8*, i8** %15
%97 = getelementptr inbounds i8, i8* %96, i64 6
store i8 %95, i8* %97
br label %98
98: ; preds = %94, %89
%99 = load i8, i8* %14
%100 = sext i8 %99 to i32
%101 = and i32 %100, 1
%102 = icmp ne i32 %101, 0
br i1 %102, label %103, label %107
103: ; preds = %98
%104 = load i8, i8* %11
%105 = load i8*, i8** %15
%106 = getelementptr inbounds i8, i8* %105, i64 7
store i8 %104, i8* %106
br label %107
107: ; preds = %103, %98
br label %108
108: ; preds = %107
%109 = load i32, i32* %13
%110 = add nsw i32 %109, 1
store i32 %110, i32* %13
br label %16
111: ; preds = %16
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 = getelementptr inbounds i8, i8* %5, i64 %12
%14 = load i8, i8* %13
%15 = add nsw i64 %12, %8
%16 = mul nsw i64 %15, %9
%17 = getelementptr inbounds i8, i8* %10, i64 %16
%18 = zext i8 %14 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* %17
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* %17, 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* %17, 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* %17, 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* %17, 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* %17, 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* %17, 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* %17, 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
}