**
Nombre: octbin.s
Autor: Karla Itzel Vázquez Cruz
Fecha: 09-04-2025
Descripción: Conversion a Octal a Binario
Plataforma: Raspberry Pi OS 64-bit
Asciinema: octbin.s
Versión en C:
Versión en ARM64 RaspbianOS Linux:
.section .data
msg_input: .asciz "Ingresa un número octal: "
msg_result: .asciz "\nNúmero en binario: "
buffer: .skip 10
newline: .asciz "\n"
.section .text
.global _start
_start:
mov x0, 1
ldr x1, =msg_input
mov x2, 27
mov x8, 64
svc 0
mov x0, 0
ldr x1, =buffer
mov x2, 10
mov x8, 63
svc 0
// Convertir octal (base 8) a decimal (x2)
ldr x1, =buffer
mov x2, 0
mov x4, #8
oct_to_dec:
ldrb w3, [x1], 1
cmp w3, #'0'
blt done_oct
cmp w3, #'7'
bgt done_oct
sub x3, x3, '0'
mul x2, x2, x4
add x2, x2, x3
b oct_to_dec
done_oct:
// x2 = decimal, ahora convertir a binario
// Limpiar buffer
mov x10, 0
ldr x11, =buffer
mov x12, #10
clean:
strb w10, [x11], 1
subs x12, x12, 1
b.ne clean
// decimal (x2) a binario en buffer
mov x5, x2
ldr x6, =buffer+9
mov x7, 2
dec_to_bin:
mov x8, x5
udiv x5, x5, x7
msub x9, x5, x7, x8
add x9, x9, '0'
strb w9, [x6, -1]!
cmp x5, 0
bne dec_to_bin
// Mostrar resultado
mov x0, 1
ldr x1, =msg_result
mov x2, 22
mov x8, 64
svc 0
mov x0, 1
mov x1, x6
ldr x2, =buffer+9
sub x2, x2, x6
mov x8, 64
svc 0
mov x0, 1
ldr x1, =newline
mov x2, 1
mov x8, 64
svc 0
mov x0, 0
mov x8, 93
svc 0
