mov r2, #0x7f
and r1, r2
strh r1, [r0, #0x0]

push {r0-r2}
ldr r0, .stunden
ldrb r1, [r0, #0x2]
add r1, r1, #0x4
mov r2, #0x3B
cmp r2, r1
blo minute
strb r1, [r0, #0x2]
b back

minute:
mov r1, #0x0
strb r1, [r0, #0x2]
ldrb r1, [r0, #0x1]
add r1, r1, #0x1
cmp r2, r1
blo stunden
strb r1, [r0, #0x1]
b back

stunden:
mov r1, #0x0
strb r1, [r0, #0x1]
ldrb r1, [r0]
add r1, r1, #0x1

push {r1}
mov r2, #0x6
cmp r1, r2
blo nacht
mov r2, #0x12
cmp r2, r1
blo nacht

tag:
mov r1, #0x0
strb r1, [r0, #0x4]
b weiter

nacht:
mov r1, #0x1
strb r1, [r0, #0x4]
b weiter

weiter:
pop {r1}	
mov r2, #0x17
cmp r2, r1
blo event
strb r1, [r0]
b back

event:
mov r1, #0x0
strb r1, [r0]

push {r0-r1}
ldr r0, .ram
mov r1, #0x0
str r1, [r0]
str r1, [r0, #0x4]
str r1, [r0, #0x8]
str r1, [r0, #0xC]
pop {r0-r1}	

back:
pop {r0-r2}
mov r4, r6
mov r6, #0x0
cmp r1, #0x0
bne wusi
add r4, #0x2
mov r15, r4

wusi:
add r4, #0x16
mov r15, r4

.stunden:
.word 0x0203e008
.ram:
.word 0x0203e200