NEC 78k0. IAR (ASM). Преобразовать целое двоично-десятичное число

NAME    asmmain           ; Label this program
 
 
        ASEG    CODE
        ORG     0x0000
 
        DW      asmmain           ; Reset vector
 
P0 = 0FF00H ; ПОРТ Р0
P1 = 0FF01H ; ПОРТ Р1
PM0 = 0FF20H ; РЕГИСТР НАСТРОЙКИ ПОРТА Р0
PM1 = 0FF21H ; РЕГИСТР НАСТРОЙКИ ПОРТА Р1
 
REZ1 = 0FE42H ; ЯЧЕЙКА ПАМЯТИ РЕЗУЛЬТАТА
REZ2 = 0FE41H
REZ3 = 0FE40H
OH = 0FE50H ; ЯЧЕКА ПАМЯТИ ОШИБКИ
CH = 0FE51H ; ЯЧЕКА ПАМЯТИ СЧЕТЧИКА
UM10 = 0FE60H
UM100 = 0FE61H
REZ10 = 0FE70H
REZ20 = 0FE71H
REZ11 = 0FE80H
REZ21 = 0FE81H
REZS = 0FEA0H
REZM = 0FEA1H
REZK1 = 0FEB0H
REZK2 = 0FEB1H
REZK3 = 0FEB2H
REZK4 = 0FEB3H
REZK5 = 0FEB4H
REZK6 = 0FEB5H
 
        RSEG    CSTACK
        RSEG    CODE
 
asmmain:
#if __CORE__ != __78K0S__
 
        MOV A, #1 ; НАСТРОЙКА ПОРТОВ Р0 И Р1 НА ВВОД
        MOV PM0, A
        MOV PM1, A
        MOV REZ1, #0 ; ОБНУЛЕНИЕ ЯЧЕКИ ПАМЯТИ РЕЗУЛЬТАТА И СЧЕТЧИКА
        MOV REZ2, #0
        MOV REZ3, #0
        MOV CH, #0
        MOV UM10, #10
        MOV UM100, #100
        MOV REZK1, #0
        MOV REZK2, #0
        MOV REZK3, #0
        MOV REZK4, #0
        MOV REZK5, #0
        MOV REZK6, #0
 
        NACHALO: ; МЕТКА НАЧАЛА ПРОГРАММЫ
        INC CH ; УВЕЛИЧЕНИЕ СЧЕТЧИКА НА 1 (ПОРЯДКОВЫЙ НОМЕР ПО ПОСТУПЛЕНИЮ РАСШИФРОВАННОГО БИТА)
 
        MOV A, P1 ; СЧИТЫВАНИЕ НОМЕРА БИТА
        CMP A, #48 ; СРАВНЕНИЕ НОМЕРА БИТА С 1
        BC OSHIBKA2 ; ЕСЛИ ПРОИЗОШЕЛ ЗАЙМ, ТО ПЕРЕХОД НА МЕТКУ ОШИБКИ (ВВЕДЕНЫ НЕ ВЕРНЫЕ ДАННЫЕ), ИНАЧЕ ДАЛЬНЕЙШЕЕ СРАВНЕНИЕ
        BZ S1 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 1, ТО РАБОТА ПО СЦЕНАРИЮ 1 (РАБОТА С 0 БИТОМ)
        CMP A, #49 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 2
        BZ S2 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 2, ТО РАБОТА ПО СЦЕНАРИЮ 2 (РАБОТА С 1 БИТОМ)
        CMP A, #50 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 3
        BZ S3 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 3, ТО РАБОТА ПО СЦЕНАРИЮ 3 (РАБОТА С 2 БИТОМ)
        CMP A, #51 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 4
        BZ S41 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 4, ТО РАБОТА ПО СЦЕНАРИЮ 4 (РАБОТА С 3 БИТОМ)
        CMP A, #52 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 5
        BZ S51 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 5, ТО РАБОТА ПО СЦЕНАРИЮ 5 (РАБОТА С 4 БИТОМ)
        CMP A, #53 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 6
        BZ S61 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 6, ТО РАБОТА ПО СЦЕНАРИЮ 6 (РАБОТА С 5 БИТОМ)
        CMP A, #54 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 7
        BZ S71 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 7, ТО РАБОТА ПО СЦЕНАРИЮ 7 (РАБОТА С 6 БИТОМ)
        CMP A, #55 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 8
        BZ S81 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 7, ТО РАБОТА ПО СЦЕНАРИЮ 8 (РАБОТА С 7 БИТОМ)
        CMP A, #56 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 9
        BZ S91 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 7, ТО РАБОТА ПО СЦЕНАРИЮ 9 (РАБОТА С 8 БИТОМ)
        CMP A, #57 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 10
        BZ S101 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 7, ТО РАБОТА ПО СЦЕНАРИЮ 10 (РАБОТА С 9 БИТОМ)
        CMP A, #58 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 11
        BZ S111 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 7, ТО РАБОТА ПО СЦЕНАРИЮ 11 (РАБОТА С 10 БИТОМ)
        CMP A, #59 ; ... ИНАЧЕ СРАВНЕНИЕ НОМЕРА БИТА С 12
        BZ S121 ; ЕСЛИ ЗНАЧЕНИЕ СОВПАЛО С 8, ТО РАБОТА ПО СЦЕНАРИЮ 12 (РАБОТА С 11 БИТОМ)
        BR OSHIBKA2 ; ЕСЛИ НИОДНО ЗНАЧЕНИЕ НЕ СОВПАЛО, ТО ПЕРЕХОД НА МЕТКУ ОШИБКИ (ВВЕДЕНЫ НЕ ВЕРНЫЕ ДАННЫЕ)
 
        S1: ; МЕТКА СЦЕНАРИЯ 1 (РАБОТА С 0 БИТОМ)
        MOV A, P0 ; СРАВНЕНИЕ ИНФОРМАЦИОННОГО БИТА С "0"
        CMP A, #48
        BZ PROGA10 ; ЕСЛИ ИНФОРМАЦИОННЫЙ БИТ БЫЛ РАВЕН "0", ТО РАБОТА ПО СЦЕНАРИЮ "0" (ЗАПИСЬ НУЛЯ)
        CMP A, #49 ; ... ИНАЧЕ СРАВНЕНИЕ ИНФОРМАЦИОННОГО БИТА С "1"
        BZ PROGA11 ; ЕСЛИ ИНФОРМАЦИОННЫЙ БИТ РАВЕН "1", ТО РАБОТА ПО СЦЕНАРИЮ "1" (ЗАПИСЬ ЕДИНИЦЫ)
        BNZ OSHIBKA2 ; ... ИНАЧЕ РАБОТА ПО СЦЕНАРИЮ ОШИБКА (ВВЕДЕНЫ НЕ ВЕРНЫЕ ДАННЫЕ)
 
        PROGA10: ; МЕТКА СЦЕНАРИЯ "0" (ЗАПИСЬ НУЛЯ В ЯЧЕЙКУ ПАМЯТИ РЕЗУЛЬТАТА)
        CLR1 CY ; ЗАПИСЬ НУЛЯ В ЯЧЙКУ ПАМЯТИ РЕЗУЛЬТАТА
        MOV1 REZ1.0, CY
        BR VIHOD ; БУЗУСЛОВНЫЙ ПЕРЕХОД НА МЕТКУ ВЫХОДА
        PROGA11: ; МЕТКА СЦЕНАРИЯ "1" (ЗАПИСЬ ЕДИНИЦЫ В ЯЧЙКУ ПАМЯТИ РЕЗУЛЬТАТА)
        SET1 CY ; ЗАПИСЬ ЕДИНИЦЫ В ЯЧЕЙКУ ПАМЯТИ РЕЗУЛЬТАТА
        MOV1 REZ1.0, CY
        BR VIHOD ; БЕЗУСЛОВНЫЙ ПЕРЕХОД НА МЕТКУ ВЫХОДА
 
        S2: ; МЕТКА СЦЕНАРИЯ 2 (РАБОТА С 1 БИТОМ)
        MOV A, P0
        CMP A, #48
        BZ PROGA20
        CMP A, #49
        BZ PROGA21
        BNZ OSHIBKA2
 
        PROGA20:
        CLR1 CY
        MOV1 REZ1.1, CY
        BR VIHOD
        PROGA21:
        SET1 CY
        MOV1 REZ1.1, CY
        BR VIHOD
 
        S3:
        MOV A, P0
        CMP A, #48
        BZ PROGA30
        CMP A, #49
        BZ PROGA31
        BNZ OSHIBKA2
 
        PROGA30:
        CLR1 CY
        MOV1 REZ1.2, CY
        BR VIHOD
        PROGA31:
        SET1 CY
        MOV1 REZ1.2, CY
        BR VIHOD
 
 OSHIBKA2: BR OSHIBKA1 ; "ПЕРЕВАЛОЧНЫЙ ПУНКТ" (ИЗ-ЗА ДЛИННЫ ПРОГРАММЫ ПРЕДЕЛЬНОЕ КОЛ-ВО СТРОК ДЛЯ ДАННЫХ МЕТОК, ПРИ КОТОРЫХ ОНИ ЕЩЕ РАБОТАЮТ, ПРЕВЫШЕНО)
 S41: BR S4
 S51: BR S5
 S61: BR S6
 S71: BR S7
 S81: BR S8
 S91: BR S9
 S101: BR S10
 S111: BR S11
 S121: BR S12
 NACHALO2: BR NACHALO
 
 
        S4:
        MOV A, P0
        CMP A, #48
        BZ PROGA40
        CMP A, #49
        BZ PROGA41
        BNZ OSHIBKA1
 
        PROGA40:
        CLR1 CY
        MOV1 REZ1.3, CY
        BR VIHOD
        PROGA41:
        SET1 CY
        MOV1 REZ1.3, CY
        BR VIHOD
 
        S5:
        MOV A, P0
        CMP A, #48
        BZ PROGA50
        CMP A, #49
        BZ PROGA51
        BNZ OSHIBKA1
 
        PROGA50:
        CLR1 CY
        MOV1 REZ2.0, CY
        BR VIHOD
        PROGA51:
        SET1 CY
        MOV1 REZ2.0, CY
        BR VIHOD
 
        S6:
        MOV A, P0
        CMP A, #48
        BZ PROGA60
        CMP A, #49
        BZ PROGA61
        BNZ OSHIBKA1
 
        PROGA60:
        CLR1 CY
        MOV1 REZ2.1, CY
        BR VIHOD
        PROGA61:
        SET1 CY
        MOV1 REZ2.1, CY
        BR VIHOD
 
        S7:
        MOV A, P0
        CMP A, #48
        BZ PROGA70
        CMP A, #49
        BZ PROGA71
        BNZ OSHIBKA1
 
        PROGA70:
        CLR1 CY
        MOV1 REZ2.2, CY
        BR VIHOD
        PROGA71:
        SET1 CY
        MOV1 REZ2.2, CY
        BR VIHOD
 
OSHIBKA1: BR OSHIBKA
 
 
        S8:
        MOV A, P0
        CMP A, #48
        BZ PROGA80
        CMP A, #49
        BZ PROGA81
        BNZ OSHIBKA
 
        PROGA80:
        CLR1 CY
        MOV1 REZ2.3, CY
        BR VIHOD
        PROGA81:
        SET1 CY
        MOV1 REZ2.3, CY
        BR VIHOD
 
NACHALO1: BR NACHALO2
 
        S9:
        MOV A, P0
        CMP A, #48
        BZ PROGA90
        CMP A, #49
        BZ PROGA91
        BNZ OSHIBKA
 
        PROGA90:
        CLR1 CY
        MOV1 REZ3.0, CY
        BR VIHOD
        PROGA91:
        SET1 CY
        MOV1 REZ3.0, CY
        BR VIHOD
 
        S10:
        MOV A, P0
        CMP A, #48
        BZ PROGA100
        CMP A, #49
        BZ PROGA101
        BNZ OSHIBKA
 
        PROGA100:
        CLR1 CY
        MOV1 REZ3.1, CY
        BR VIHOD
        PROGA101:
        SET1 CY
        MOV1 REZ3.1, CY
        BR VIHOD
 
        S11:
        MOV A, P0
        CMP A, #48
        BZ PROGA110
        CMP A, #49
        BZ PROGA111
        BNZ OSHIBKA
 
        PROGA110:
        CLR1 CY
        MOV1 REZ3.2, CY
        BR VIHOD
        PROGA111:
        SET1 CY
        MOV1 REZ3.2, CY
        BR VIHOD
 
        S12:
        MOV A, P0
        CMP A, #48
        BZ PROGA120
        CMP A, #49
        BZ PROGA121
        BNZ OSHIBKA
 
        PROGA120:
        CLR1 CY
        MOV1 REZ3.3, CY
        BR VIHOD
        PROGA121:
        SET1 CY
        MOV1 REZ3.3, CY
        BR VIHOD
 
        OSHIBKA: ; МЕТКА СЦЕНАРИЯ ОШИБКИ (ВВЕДЕНЫ НЕ ВЕРНЫЕ ДАННЫЕ)
        MOV OH, #0 ; ОБНУЛЕНИЕ ЯЧЕКИ ПАМЯТИ ОШИБКИ
        BR VIVOD ; БЕЗУСЛОВНЫЙ ПЕРЕХОД НА МЕТКУ ВЫВОДА
 
        VIHOD: ; МЕТКА ВЫХОДА
        CMP CH, #12 ; ВЫЯСНЕНИЕ КОЛИЧВА РАСШИФРОВАННЫХ БИТОВ (ЕСЛИ МЕНЬШЕ 8, ТО ПЕРЕХОД К НАЧАЛУ ПРОГРАММЫ, ИНАЧЕ СЧЕТ ОКОНЧЕН)
        BNZ NACHALO1 ; УСЛОВНЫЙ ПЕРЕХОД НА НАЧАЛО ПРОГРАММЫ
 
        MOV A, REZ1
        CMP A, #10
        BNC OSHIBKA
        MOV A, REZ2
        CMP A, #10
        BNC OSHIBKA
        MOV A, REZ3
        CMP A, #10
        BNC OSHIBKA
 
        MOV A, REZ3
        MOV X, A
        MOV A, UM100
        MULU X
        MOV REZ10, A
        MOV A, X
        MOV REZ20, A
 
        MOV A, REZ2
        MOV X, A
        MOV A, UM10
        MULU X
        MOV REZ11, A
        MOV A, X
        MOV REZ21, A
 
        MOV A, REZ10
        MOV B, A
        MOV A, REZ20
        ADD A, REZ21
        BNC IN1
        INC B
        IN1: ADD A, REZ1
        BNC IN2
        INC B
        IN2: MOV REZM, A
        MOV A, REZ11
        ADD A, B
        MOV REZS, A
 
        MOV1 CY, REZM.0
        MOV1 REZK6.0, CY
        MOV1 CY, REZM.1
        MOV1 REZK6.4, CY
        MOV1 CY, REZM.2
        MOV1 REZK5.0, CY
        MOV1 CY, REZM.3
        MOV1 REZK5.4, CY
        MOV1 CY, REZM.4
        MOV1 REZK4.0, CY
        MOV1 CY, REZM.5
        MOV1 REZK4.4, CY
        MOV1 CY, REZM.6
        MOV1 REZK3.0, CY
        MOV1 CY, REZM.7
        MOV1 REZK3.4, CY
        MOV1 CY, REZS.0
        MOV1 REZK2.0, CY
        MOV1 CY, REZS.1
        MOV1 REZK2.4, CY
        MOV1 CY, REZS.2
        MOV1 REZK1.0, CY
        MOV1 CY, REZS.3
        MOV1 REZK1.4, CY
 
        VIVOD:
#endif
 
        STOP                      ; End of program
        NOP
 
        END     asmmain