**
Nombre: face.s
Autor: Karla Itzel Vázquez Cruz
Fecha: 09-04-2025
Descripción: Fahrenheit a Celsious
Plataforma: Raspberry Pi OS 64-bit
Asciinema: face.s

Versión en C:

Versión en ARM64 RaspbianOS Linux:

.section .data
msg_input:     .asciz "Ingresa la temperatura en Fahrenheit: "
msg_result:    .asciz "\nTemperatura en Celsius: "
buffer:        .skip 10
newline:       .asciz "\n"

.section .text
.global _start

_start:
    // Mostrar mensaje de entrada
    mov     x0, 1
    ldr     x1, =msg_input
    mov     x2, 39                   // longitud del mensaje
    mov     x8, 64
    svc     0

    // Leer desde teclado
    mov     x0, 0
    ldr     x1, =buffer
    mov     x2, 10
    mov     x8, 63
    svc     0

    // Convertir cadena ASCII a número (x2)
    ldr     x1, =buffer
    mov     x2, 0
convert_loop:
    ldrb    w3, [x1], 1
    cmp     w3, #'0'
    blt     conversion_done
    cmp     w3, #'9'
    bgt     conversion_done
    sub     x3, x3, '0'
    mov     x4, #10
    mul     x2, x2, x4
    add     x2, x2, x3
    b       convert_loop

conversion_done:
    // Fórmula: Celsius = (Fahrenheit - 32) * 5 / 9
    mov     x3, x2
    sub     x3, x3, 32
    mov     x4, #5
    mul     x3, x3, x4
    mov     x4, #9
    udiv    x3, x3, x4

    // Limpiar el buffer de salida
    mov     x10, 0
    ldr     x11, =buffer
    mov     x12, #10
clear_loop:
    strb    w10, [x11], 1
    subs    x12, x12, 1
    b.ne    clear_loop

    // Convertir resultado x3 a ASCII en buffer
    mov     x5, x3
    ldr     x6, =buffer+9
    mov     x7, 10
int_to_ascii:
    mov     x8, x5
    udiv    x5, x5, x7
    msub    x9, x5, x7, x8
    add     x9, x9, '0'
    strb    w9, [x6, -1]!
    cmp     x5, 0
    bne     int_to_ascii

    // Mostrar mensaje del resultado
    mov     x0, 1
    ldr     x1, =msg_result
    mov     x2, 28
    mov     x8, 64
    svc     0

    // Mostrar el número convertido
    mov     x0, 1
    mov     x1, x6
    ldr     x2, =buffer+9
    sub     x2, x2, x6
    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
    mov     x0, 0
    mov     x8, 93
    svc     0