.code 32
		.global	main, __cpsr_mask
@Variables del programa
n:		.word 8
resultado:	.word 0

main:		push {lr}
		ldr r1, n
		cmp r1, #0
		blt else
		@funcion positivo
		sub sp, sp, #4
		push {r1}
		bl POS
		add sp, sp, #4
		pop {r1}
		str r1, resultado
		b finif
else:		@funcion negativo
		adr r2, n
		push {r2}
		bl NEG
		add sp, sp, #4
finif:		pop {pc}


POS:		push {lr}
		push {r11}
		mov r11, sp
		push {r1}
		ldr r1, [r11, #8]
		add r1, r1, #1
		str r1, [r11, #12]
		pop {r1}
		pop {r11}
		pop {pc}

NEG:		push {lr}
		push {r11}
		mov r11, sp
		push {r1, r2}
		ldr r1, [r11, #8]
		ldr r2, [r1]
		sub r2, r2, #1
		str r2, [r1]
		pop {r1, r2}
		pop {r11}
		pop {pc}