.section .data
msg: .asciz "Perimetro: "
buffer_l: .space 8
result_buf: .space 8
newline: .asciz "\n"
.section .text
.global _start
_start:
// --------------------------------------------------
// Leer la longitud del lado desde el teclado (stdin)
// --------------------------------------------------
mov x0, #0 // stdin
ldr x1, =buffer_l // puntero al buffer
mov x2, #8 // bytes a leer
mov x8, #63 // syscall: read
svc 0
// --------------------------------------------------
// Convertir cadena ASCII a número entero (L)
// --------------------------------------------------
ldr x1, =buffer_l
bl ascii_to_int
mov w19, w0 // w19 = L
// --------------------------------------------------
// Calcular perímetro: P = 4 * L
// --------------------------------------------------
mov w0, #4
mul w0, w0, w19 // w0 = perímetro
// --------------------------------------------------
// Convertir resultado a texto ASCII
// --------------------------------------------------
ldr x1, =result_buf
bl int_to_ascii
// --------------------------------------------------
// Mostrar mensaje base: "Perimetro: "
// --------------------------------------------------
mov x0, #1
ldr x1, =msg
mov x2, #11
mov x8, #64 // syscall: write
svc 0
// --------------------------------------------------
// Mostrar el resultado convertido (buffer)
// --------------------------------------------------
mov x0, #1
ldr x1, =result_buf
mov x2, #8
mov x8, #64
svc 0
// Salto de línea
mov x0, #1
ldr x1, =newline
mov x2, #1
mov x8, #64
svc 0
// --------------------------------------------------
// Salir limpiamente
// --------------------------------------------------
mov x0, #0
mov x8, #93 // syscall: exit
svc 0
// --------------------------------------------------
// ascii_to_int: convierte texto ASCII a entero
// Entrada: x1 = puntero al buffer
// Salida: w0 = número convertido
// --------------------------------------------------
ascii_to_int:
mov w0, #0
mov w2, #0
mov w3, #10
parse_loop:
add x4, x1, x2
ldrb w5, [x4]
cmp w5, #'0'
blt end_parse
cmp w5, #'9'
bgt end_parse
sub w5, w5, #'0'
mul w0, w0, w3
add w0, w0, w5
add w2, w2, #1
b parse_loop
end_parse:
ret
// --------------------------------------------------
// int_to_ascii: convierte entero a string ASCII
// Entrada: w0 = número, x1 = destino
// --------------------------------------------------
int_to_ascii:
mov x2, #10
mov x3, x1
mov x4, #0
convert_loop:
udiv x5, x0, x2
msub x6, x5, x2, x0
add x6, x6, #'0'
strb w6, [x1], #1
add x4, x4, #1
mov x0, x5
cbz x0, reverse_ascii
b convert_loop
reverse_ascii:
sub x1, x1, x4
mov x5, #0
rev_loop:
cmp x5, x4
bge done_ascii
sub x4, x4, #1
ldrb w6, [x1, x5]
ldrb w7, [x1, x4]
strb w7, [x1, x5]
strb w6, [x1, x4]
add x5, x5, #1
b rev_loop
done_ascii:
ret
