**
Nombre: binoct.s
Autor: Karla Itzel Vázquez Cruz
Fecha: 09-04-2025
Descripción: Binario a Octal
Plataforma: Raspberry Pi OS 64-bit
Asciinema: binoct.s
Versión en C:
Versión en ARM64 RaspbianOS Linux:
.section .data
msg_input: .asciz "Ingresa un número binario: "
msg_result: .asciz "\nNúmero en octal: "
buffer: .skip 10
newline: .asciz "\n"
.section .text
.global _start
_start:
// Mostrar mensaje
mov x0, 1
ldr x1, =msg_input
mov x2, 27
mov x8, 64
svc 0
// Leer cadena binaria
mov x0, 0
ldr x1, =buffer
mov x2, 10
mov x8, 63
svc 0
// Convertir binario (base 2) a decimal (x2)
ldr x1, =buffer
mov x2, 0 // acumulador decimal
bin_to_dec:
ldrb w3, [x1], 1
cmp w3, #'0'
blt done_bin
cmp w3, #'1'
bgt done_bin
sub x3, x3, '0'
lsl x2, x2, #1 // x2 *= 2
add x2, x2, x3
b bin_to_dec
done_bin:
// Ahora x2 tiene el número decimal
// Lo convertimos a OCTAL (base 8)
// Limpiar buffer
mov x10, 0
ldr x11, =buffer
mov x12, #10
clean:
strb w10, [x11], 1
subs x12, x12, 1
b.ne clean
// Entero a ASCII en base 8 (OCTAL)
mov x5, x2 // número decimal
ldr x6, =buffer+9
mov x7, 8 // base octal
dec_to_octal:
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_octal
// Mostrar mensaje resultado
mov x0, 1
ldr x1, =msg_result
mov x2, 20
mov x8, 64
svc 0
// Mostrar número octal
mov x0, 1
mov x1, x6
ldr x2, =buffer+9
sub x2, x2, x6
mov x8, 64
svc 0
// Nueva línea y salir
mov x0, 1
ldr x1, =newline
mov x2, 1
mov x8, 64
svc 0
mov x0, 0
mov x8, 93
svc 0
