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


x86 assembly (clang, -O0):
<PutFont>:
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 <PutFont+0x13d>
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)
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x31(%rbp)
movsbl -0x31(%rbp),%eax
and    $0x80,%eax
cmp    $0x0,%eax
je     1174 <PutFont+0x74>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,(%rax)
movsbl -0x31(%rbp),%eax
and    $0x40,%eax
cmp    $0x0,%eax
je     118e <PutFont+0x8e>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x1(%rax)
movsbl -0x31(%rbp),%eax
and    $0x20,%eax
cmp    $0x0,%eax
je     11a8 <PutFont+0xa8>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x2(%rax)
movsbl -0x31(%rbp),%eax
and    $0x10,%eax
cmp    $0x0,%eax
je     11c2 <PutFont+0xc2>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x3(%rax)
movsbl -0x31(%rbp),%eax
and    $0x8,%eax
cmp    $0x0,%eax
je     11dc <PutFont+0xdc>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x4(%rax)
movsbl -0x31(%rbp),%eax
and    $0x4,%eax
cmp    $0x0,%eax
je     11f6 <PutFont+0xf6>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x5(%rax)
movsbl -0x31(%rbp),%eax
and    $0x2,%eax
cmp    $0x0,%eax
je     1210 <PutFont+0x110>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x6(%rax)
movsbl -0x31(%rbp),%eax
and    $0x1,%eax
cmp    $0x0,%eax
je     122a <PutFont+0x12a>
mov    -0x15(%rbp),%cl
mov    -0x30(%rbp),%rax
mov    %cl,0x7(%rax)
jmp    122f <PutFont+0x12f>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1122 <PutFont+0x22>
pop    %rbp
ret

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

LLVM IR (-O0):
define void @PutFont(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** %7
%21 = load i32, i32* %10
%22 = load i32, i32* %13
%23 = add nsw i32 %21, %22
%24 = load i32, i32* %8
%25 = mul nsw i32 %23, %24
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds i8, i8* %20, i64 %26
%28 = load i32, i32* %9
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds i8, i8* %27, i64 %29
store i8* %30, i8** %14
%31 = load i8*, i8** %12
%32 = load i32, i32* %13
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds i8, i8* %31, i64 %33
%35 = load i8, i8* %34
store i8 %35, i8* %15
%36 = load i8, i8* %15
%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** %14
%43 = getelementptr inbounds i8, i8* %42, i64 0
store i8 %41, i8* %43
br label %44
44: ; preds = %40, %19
%45 = load i8, i8* %15
%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** %14
%52 = getelementptr inbounds i8, i8* %51, i64 1
store i8 %50, i8* %52
br label %53
53: ; preds = %49, %44
%54 = load i8, i8* %15
%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** %14
%61 = getelementptr inbounds i8, i8* %60, i64 2
store i8 %59, i8* %61
br label %62
62: ; preds = %58, %53
%63 = load i8, i8* %15
%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** %14
%70 = getelementptr inbounds i8, i8* %69, i64 3
store i8 %68, i8* %70
br label %71
71: ; preds = %67, %62
%72 = load i8, i8* %15
%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** %14
%79 = getelementptr inbounds i8, i8* %78, i64 4
store i8 %77, i8* %79
br label %80
80: ; preds = %76, %71
%81 = load i8, i8* %15
%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** %14
%88 = getelementptr inbounds i8, i8* %87, i64 5
store i8 %86, i8* %88
br label %89
89: ; preds = %85, %80
%90 = load i8, i8* %15
%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** %14
%97 = getelementptr inbounds i8, i8* %96, i64 6
store i8 %95, i8* %97
br label %98
98: ; preds = %94, %89
%99 = load i8, i8* %15
%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** %14
%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 @PutFont(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
}