io.s

.section .text
.arm
.globl strlen
strlen:
mov r1, r0
mov r0, #0
loopstart:
ldr r2, [r1], #1!
cmp r2, #0
addne r0, r0, #1
bne loopstart
bx lr

.globl write
write:
swi #0x00800004
bx lr
		
.globl puts
puts:
mov r1, r0
mov r3, lr
bl strlen @@r0 holds the length
mov r2, r0
mov r0, #1 @@1 == stdout
bl write
bx r3