.section .data
msg: .asciz "Area: "
buffer_l: .space 8
result_buf: .space 8
newline: .asciz "\n"
.section .text
.global _start
_start:
// --------------------------------------
// Leer la longitud del lado desde teclado
// --------------------------------------
mov x0, #0
ldr x1, =buffer_l
mov x2, #8
mov x8, #63 // syscall read
svc 0
// Convertir texto ASCII a entero (w0 = L)
ldr x1, =buffer_l
bl ascii_to_int
mov w19, w0 // w19 = L
// --------------------------------------
// Calcular área = L * L
// --------------------------------------
mul w0, w19, w19 // w0 = área
// Convertir resultado a ASCII
ldr x1, =result_buf
bl int_to_ascii // resultado → result_buf
// Mostrar "Area: "
mov x0, #1
ldr x1, =msg
mov x2, #6
mov x8, #64
svc 0
// Mostrar valor del área
ldr x1, =result_buf
mov x2, #8
mov x0, #1
mov x8, #64
svc 0
// Mostrar salto de línea
mov x0, #1
ldr x1, =newline
mov x2, #1
mov x8, #64
svc 0
// Salida limpia
mov x0, #0
mov x8, #93
svc 0
// ------------------------------------------------------------
// ascii_to_int: convierte texto a número entero positivo
// 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 positivo a string ASCII
// Entrada: w0 = número, x1 = buffer destino
// ------------------------------------------------------------
int_to_ascii:
mov x2, #10
mov x3, x1 // inicio del buffer
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
