**
Nombre: bin.s
Autor: Karla Itzel Vázquez Cruz
Fecha: 08-04-2025
Descripción: Programa que convierte de decimal a binario
Plataforma: Raspberry Pi OS 64-bit
Asciinema: bin.s
Versión en C:
Versión en ARM64 RaspbianOS Linux:
.global _start
.section .bss
bin_buffer: .skip 64 // espacio para el número binario como texto (hasta 64 bits)
dec_buffer: .skip 16 // espacio para número decimal como texto
.section .text
_start:
// ========================
// Número decimal a convertir
// ========================
MOV X6, #10 // Cambia este número si deseas
MOV X20, X6 // Guardamos copia del número
// ========================
// Mostrar mensaje base
// ========================
LDR X1, =msg1
MOV X2, #8 // Longitud de "Decimal "
MOV X0, #1
MOV X8, #64
SVC #0
// ========================
// Mostrar número decimal
// ========================
MOV X6, X20
BL print_decimal
// ========================
// Mostrar texto " en binario es: "
// ========================
LDR X1, =msg2
MOV X2, #19 // Longitud de " en binario es: "
MOV X0, #1
MOV X8, #64
SVC #0
// ========================
// Mostrar número binario
// ========================
MOV X6, X20
BL print_binary
// ========================
// Salto de línea
// ========================
LDR X1, =newline
MOV X2, #1
MOV X0, #1
MOV X8, #64
SVC #0
// ========================
// Terminar programa
// ========================
MOV X0, #0
MOV X8, #93
SVC #0
// ========================
// print_decimal (X6)
// ========================
print_decimal:
ADR X7, dec_buffer
ADD X7, X7, #15
MOV X8, X6
MOV X9, #0
dec_loop:
MOV X10, #10
UDIV X11, X8, X10
MUL X12, X11, X10
SUB X13, X8, X12
ADD X13, X13, #'0'
STRB W13, [X7], #-1
MOV X8, X11
ADD X9, X9, #1
CBNZ X8, dec_loop
ADD X1, X7, #1
MOV X2, X9
MOV X0, #1
MOV X8, #64
SVC #0
RET
// ========================
// print_binary (X6)
// ========================
print_binary:
ADR X7, bin_buffer
ADD X7, X7, #63 // buffer de 64 bits
MOV X8, X6
MOV X9, #0
bin_loop:
MOV X10, #2
UDIV X11, X8, X10
MUL X12, X11, X10
SUB X13, X8, X12
ADD X13, X13, #'0'
STRB W13, [X7], #-1
MOV X8, X11
ADD X9, X9, #1
CBNZ X8, bin_loop
ADD X1, X7, #1
MOV X2, X9
MOV X0, #1
MOV X8, #64
SVC #0
RET
.section .rodata
msg1: .asciz "Decimal "
msg2: .asciz " en binario es: "
newline: .asciz "\n"