int main() {
  unsigned char *vga_mem = (unsigned char *)(0xb0000);
  int x = 0, y = 0, xinc = 1, yinc = 1;
  int last1 = 0, last2 = 0;
  int pause = 0;
  vga_mem[last1] = 'H';
  vga_mem[last2] = 0;
  vga_mem[2 * x + 2 * y * 80] = 'H';
  vga_mem[2 * x + 2 * y * 80 + 1] = 15;
  while (1) {
    last1 = 2 * x + 2 * y * 80;
    last2 = 2 * x + 2 * y * 80 + 1;
    vga_mem[last1] = 'H';
    vga_mem[last2] = 0;
    x += xinc;
    y += yinc;
    if (x == 80 - 1)
      xinc = -1;
    if (x == 0)
      xinc = 1;
    if (y == 25 - 1)
      yinc = -1;
    if (y == 0)
      yinc = 1;
    vga_mem[2 * x + 2 * y * 80] = 'H';
    vga_mem[2 * x + 2 * y * 80 + 1] = 15;
    for (pause = 0; pause < 600; pause++)
      ;
  }
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
movl   $0x0,-0x4(%rbp)
mov    $0xb0000,%eax
mov    %rax,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0x1,-0x1c(%rbp)
movl   $0x1,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movb   $0x48,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
shl    $0x1,%ecx
mov    -0x18(%rbp),%edx
shl    $0x1,%edx
imul   $0x50,%edx,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movb   $0x48,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
shl    $0x1,%ecx
mov    -0x18(%rbp),%edx
shl    $0x1,%edx
imul   $0x50,%edx,%edx
add    %edx,%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movb   $0xf,(%rax,%rcx,1)
mov    -0x14(%rbp),%eax
shl    $0x1,%eax
mov    -0x18(%rbp),%ecx
shl    $0x1,%ecx
imul   $0x50,%ecx,%ecx
add    %ecx,%eax
mov    %eax,-0x24(%rbp)
mov    -0x14(%rbp),%eax
shl    $0x1,%eax
mov    -0x18(%rbp),%ecx
shl    $0x1,%ecx
imul   $0x50,%ecx,%ecx
add    %ecx,%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movb   $0x48,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x1c(%rbp),%eax
add    -0x14(%rbp),%eax
mov    %eax,-0x14(%rbp)
mov    -0x20(%rbp),%eax
add    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x4f,-0x14(%rbp)
jne    11fe <main+0xfe>
movl   $0xffffffff,-0x1c(%rbp)
cmpl   $0x0,-0x14(%rbp)
jne    120f <main+0x10f>
movl   $0x1,-0x1c(%rbp)
cmpl   $0x18,-0x18(%rbp)
jne    1220 <main+0x120>
movl   $0xffffffff,-0x20(%rbp)
cmpl   $0x0,-0x18(%rbp)
jne    1231 <main+0x131>
movl   $0x1,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
shl    $0x1,%ecx
mov    -0x18(%rbp),%edx
shl    $0x1,%edx
imul   $0x50,%edx,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movb   $0x48,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
mov    -0x14(%rbp),%ecx
shl    $0x1,%ecx
mov    -0x18(%rbp),%edx
shl    $0x1,%edx
imul   $0x50,%edx,%edx
add    %edx,%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movb   $0xf,(%rax,%rcx,1)
movl   $0x0,-0x2c(%rbp)
cmpl   $0x258,-0x2c(%rbp)
jge    1293 <main+0x193>
jmp    1285 <main+0x185>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1273 <main+0x173>
jmp    1198 <main+0x98>

x86 assembly (clang, -O2):
<main>:
mov    $0xb0000,%r8d
movb   $0x48,0xb0000
48
movb   $0xf,0xb0001
0f
mov    $0x1,%r9d
xor    %edx,%edx
mov    $0xffffffff,%r10d
xor    %edi,%edi
mov    $0x1,%eax
mov    $0x1,%ecx
lea    (%rdi,%rdi,4),%esi
shl    $0x5,%esi
lea    (%rsi,%rdx,2),%esi
movslq %esi,%rsi
movw   $0x48,(%r8,%rsi,1)
add    %eax,%edx
add    %ecx,%edi
lea    (%rdi,%rdi,4),%esi
shl    $0x5,%esi
cmp    $0x4f,%edx
cmove  %r10d,%eax
test   %edx,%edx
cmove  %r9d,%eax
cmp    $0x18,%edi
cmove  %r10d,%ecx
test   %edi,%edi
lea    (%rsi,%rdx,2),%esi
movslq %esi,%rsi
movw   $0xf48,(%r8,%rsi,1)
cmove  %r9d,%ecx
jmp    1130 <main+0x30>

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

LLVM IR (-O2):
define i32 @main() {
store i8 72, i8* inttoptr (i64 720896 to i8*)
store i8 15, i8* inttoptr (i64 720897 to i8*)
br label %1
1: ; preds = %1, %0
%2 = phi i32 [ 0, %0 ], [ %14, %1 ]
%3 = phi i32 [ 0, %0 ], [ %15, %1 ]
%4 = phi i32 [ 1, %0 ], [ %29, %1 ]
%5 = phi i32 [ 1, %0 ], [ %31, %1 ]
%6 = shl nsw i32 %2, 1
%7 = mul nsw i32 %3, 160
%8 = add nsw i32 %7, %6
%9 = or i32 %8, 1
%10 = sext i32 %8 to i64
%11 = getelementptr inbounds i8, i8* inttoptr (i64 720896 to i8*), i64 %10
store i8 72, i8* %11
%12 = sext i32 %9 to i64
%13 = getelementptr inbounds i8, i8* inttoptr (i64 720896 to i8*), i64 %12
store i8 0, i8* %13
%14 = add nsw i32 %4, %2
%15 = add nsw i32 %5, %3
%16 = icmp eq i32 %14, 79
%17 = icmp eq i32 %14, 0
%18 = icmp eq i32 %15, 24
%19 = icmp eq i32 %15, 0
%20 = shl nsw i32 %14, 1
%21 = mul nsw i32 %15, 160
%22 = add nsw i32 %21, %20
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i8, i8* inttoptr (i64 720896 to i8*), i64 %23
store i8 72, i8* %24
%25 = or i32 %22, 1
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds i8, i8* inttoptr (i64 720896 to i8*), i64 %26
store i8 15, i8* %27
%28 = select i1 %16, i32 -1, i32 %4
%29 = select i1 %17, i32 1, i32 %28
%30 = select i1 %18, i32 -1, i32 %5
%31 = select i1 %19, i32 1, i32 %30
br label %1
}