.section .data
msg: .asciz "Perimetro: "
buffer_x: .space 8
result_buf: .space 8
newline: .asciz "\n"
.section .text
.global _start
_start:
// -------------------------------
// Leer la longitud del lado X
// -------------------------------
mov x0, #0
ldr x1, =buffer_x
mov x2, #8
mov x8, #63 // syscall read
svc 0
// Convertir ASCII → número entero
ldr x1, =buffer_x
bl ascii_to_int
mov w19, w0 // w19 = X
// -------------------------------
// Calcular perímetro = 3 * X
// -------------------------------
mov w0, #3
mul w0, w0, w19 // w0 = 3 * X
// -------------------------------
// Convertir número a ASCII
// -------------------------------
ldr x1, =result_buf
bl int_to_ascii // resultado → result_buf
// -------------------------------
// Imprimir mensaje "Perimetro: "
// -------------------------------
mov x0, #1
ldr x1, =msg
mov x2, #11
mov x8, #64
svc 0
// -------------------------------
// Imprimir resultado numérico
// -------------------------------
ldr x1, =result_buf
mov x2, #8
mov x0, #1
mov x8, #64
svc 0
// Salto de línea
mov x0, #1
ldr x1, =newline
mov x2, #1
mov x8, #64
svc 0
// -------------------------------
// Salida limpia del programa
// -------------------------------
mov x0, #0
mov x8, #93
svc 0
// ------------------------------------------------------------
// ascii_to_int: convierte texto ASCII a número
// Entrada: x1 = puntero al buffer
// Salida: w0 = número entero
// ------------------------------------------------------------
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 número a texto ASCII
// Entrada: w0 = número entero, x1 = buffer 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
