Black Crow #07
01 сентября 2001

Программистам - Конверсия чисел в десятичный формат.

<b>Программистам</b> - Конверсия чисел в десятичный формат.
                                         
                                         
      КОНВЕРСИЯ ЧИСЕЛ          
                                         
(С) Pantera                              
                                         
_________________________________________
                                         
Ну вот я решил еще  кое-что вам подарить.
Конечно это не ново, но все таки.        
Это не  что  иное как процедура конверсии
чисел из  символьного  вида  в десятичный
формат. Эту  процедуру  я  использовал  в
CMOS 1.0. А вдруг кому то пригодится ;-).
                                         
                                         
                                         
;процедура активно uспoлюзyет регистр IЧ                      
                                         
        ORG     #8000                    
        JR      STR                      
                                         
ADR     DEFS    2         ;Буфер адреса  
                          ;для STRING    
                                         
STRING  DEFB    "21",#0D  ;Символ     для
                          ;преобразования
                          ;в  dec  формат
                                         
R_STR   DEFS    2         ;Конечный   ре-
                          ;зультат       
                                         
                                         
STR     LD      HL,STRING                
        LD      (ADR),HL  ;адрес в  буфер
        PUSH    IX                       
        CALL    STR_0                    
        LD      (R_STR),IX;В IX результат
        РОР     IX                       
        RET                              
STR_0                                    
        LD      A,(HL)                   
        СР      #0D       ;Проверка    на
        JR      Z,STR_1   ;конец   строки
        INC     HL                       
        JR      STR_0                    
STR_1                                    
        LD      IX,0                     
        DEC     HL                       
        LD      DE,1      ;Проверка на   
        CALL    REG       ;единицы       
        LD      DE,10     ;на десятки    
        CALL    REG                      
        LD      DE,100    ;на сотни      
        CALL    REG                      
        LD      DE,1000   ;на тысячи     
        CALL    REG                      
        LD      DE,10000  ;на десятки    
        CALL    REG       ;тысяч         
        RET                              
REG                                      
        OR      A                        
        LD      ВС,(ADR)                 
        SBC     HL,ВС                    
        PUSH    AF                       
        ADD     HL,ВС                    
        РОР     AF                       
        RET     С                        
        LD      A,(HL)                   
        DEC     HL                       
        SUB     #30                      
        LD      В,A                      
        ADD     IX,DE                    
        DJNZ    $-2                      
        RET                              
                                         
Продолжение следует...         



Другие статьи номера:

От автора - давайте познакомимся!

Программистам - Работа с CMOS часами.

Программистам - Конверсия чисел в десятичный формат.

Программистам - Индикатор работы диска.

Очумелые ручки - ROM-диск.

Очумелые ручки - Контроллер ОЗУ.

Очумелые ручки - Порт RS232.

Очумелые ручки - General sound.

Очумелые ручки - Команды CD-ROM.

Очумелые ручки - SIMM 4MB на ZX

Презентация - CMOS service v1.0

Презентация - PKUNZIP для ZX

Презентация - Perfect comander v1.7

Обозрение - ВGЕ 3.01, Glоbаl Соmаndеr 1.31, Реrfеct Соmаndеr 1.7.

Разное - Крик о помощи.

Разное - Дилерская_сеть.

Разное - Реклама.

Разное - Без непоняток.

Разное - Заключение.


Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Видео - Фильм "Нико-9: Молниеносный".
Happy New Year - первый номер в наступившем году.
Реклама - Реклама и объявления.

В этот день...   25 октября