У меня есть код его нужно переделать так чтобы мы вводили одну цифру и он выводил ее в bcd формате

SECTION .data
prig DB 'vvedite stroku', 10
priglen EQU $-prig

SECTION .bss
bufsize EQU 40
bufsize2 EQU 16
buf1 RESB bufsize
buf2 RESB bufsize2
SECTION .text
GLOBAL _start

_start:

mov eax, 4
mov ebx, 1
mov ecx, prig
mov edx, priglen
int 80h

mov eax, 3
mov ebx, 0
mov ecx, buf1
mov edx, 1
int 80h

call RAS
call BIN

mov eax, 4
mov ebx, 1
mov ecx, buf2
mov edx, bufsize2
int 80h

mov eax, 1
mov ebx, 0
int 80h

RAS: mov ebx, eax
xor eax, eax
LOOP: dec ebx
js END
mov cl, [buf1+ebx]
sub cl, 30h
cmp cl, 9