.align 4

_entry:
b _setup

.org 0xC0
_setup:
ldr r13, =0x03007F00
ldr r0, =0x08000101
bx r0

.org 0x100
.align 2
.thumb
main:

mov lr, pc
mov r0, #5
add lr, r0
b setup_pal

ldr r0, =0x11111111
mov r1, #1
mov lr, pc
mov r7, #5
add lr, r7
b setup_tile

@setup video
ldrh r0, =0x100
ldr r1, =0x04000000
strh r0, [r1]
add r0, #4
add r1, #8
strh r0, [r1]

@ draw!!!111oneone (fuck yeah!)
ldr r6, =0xFFFFFFFF
.draw:
ldr r0, =0x6000800
ldrh r5, =0x4FD @ 20 * 30 * 2
cmp r5, r6
beq .cc
add r0, r6
mov r4, #0x0
strh r4, [r0]
add r6, #2
add r0, #2
mov r4, #1
strh r4, [r0]

mov lr, pc
mov r0, #5
add lr, r0
b wait

b .draw

@clear counter
.cc:
ldr r6, =0xFFFFFFFF
b .draw

setup_pal:
push {r0-r2, lr}

ldr r0, =0x7FFF
mov r1, #0
ldr r2, =0x05000000
stmia r2!, {r0-r1}

pop {r0-r2, pc}

setup_tile: @ r0 = value, r1 = tile
push {r2-r4, lr}

mov r2, #8
ldr r3, =0x06004000
mov r4, #0x20
mul r4, r1
add r3, r4
.loop:
str r0, [r3]
add r3, #4
sub r2, #1
cmp r2, #
bgt .loop

pop {r2-r4, pc}

wait:
push {r0, lr}
ldr r0, =100000
.loop2:
sub r0, #1
bne .loop2
pop {r0, pc}