Перевод двоичного числа в десятичное и шестнадцатеричное

Небольшая утилита для преобразования чисел из двоичного в шестнадцатеричное (и десятичное) представление.

Написал для помощи в кодировании образов, выводимых в графическом режиме. Оптимизацию самоцелью не ставил :)

На входе: RХ - "двоичное" число (любая отличная от 0 цифра считается единицей);

На выходе:

• Строка комментариев - шестнадцатеричное число;
• RX - десятичное;
• RY - исходное двоичное.

Автор программы - Pavabor.

Опубликовано - http://mk_152.livejournal.com/32502.html

Программа "Перевод двоичного числа в десятичное и шестнадцатеричное"

Файл bin2hex.mkp от 17.11.2010 (КС 18466/180)

Исходный текст для кросс-компилятора

Файл bin2hex.mkl от 17.11.2010

.CHARSET 1251 
         
        ; Файл bin2hex 
        .ORG 0 
         
        A00:     ; с адреса 34 
            M 1 
            M 2 
            CX 
            M 3 
            M 4 
            8 
            M 0 
         
         
        A07:     ; с адреса 24 
            RM 1 
            1 
            0 
            / 
            ENT 
            K INT 
            M 1 
            - 
            F X!=0 A23 
            RM 4 
            2 
            F X^Y 
            RM 3 
            + 
            M 3 
         
         
        A23:     ; с адреса 15 
            K RM 4 
            F L0 A07 
            CX 
            ENT 
            RM 2 
            RM 3 
            PP M 9102    ; Вывод в строку комментариев (Работа с двоичными числами) 
            R/S 
            GOTO A00 
             
        .END