Black Crow #06
01 июня 2001

Программистам - Подсчёт тактов.

<b>Программистам</b> - Подсчёт тактов.
     ОПРЕДЕЛЕНИЕ  ТАКТОВОЙ     
      СКОРОСТИ КОМПЬЮТЕРА      
                                         
(С) 2001 Макс                            
-----------------------------------------
   Привет, кодеры! Как я смеялся, когда в
некоторых тестах мой тормозной "Sintez-2"
показывал скорость максимально приближён-
ную к скорости Пентагона! Это ж надо - не
менее 69ххх тактов за инт! Да, блин, ну и
чудики писали тесты...                   
   Короче, не буду здесь особо распрягать
эту гнилую тему, а сразу перейду к делу. 
   Итак, нижеприведённый алгоритм был из-
влечён из Jemmeni Commander`а, но так мне
и не пригодился. Может вам кому-нибудь он
станет полезен?  На моём компе он показы-
вает 62112 тактов  за инт и я склонен ему
верить.  Пентагоны тестируются в пределах
71ххх, так что делайте выводы...         
   Извиняюсь, что не расписал комментари-
ями что и как делается - сами разберётесь
с этим;  нет также проверки на раздельные
поля памяти - перепишите сами, если будет
необходимо. Собственно, цель статьи - по-
дарить  алгоритм, а всё остальное - своим
умом, пожалуйста. ;-)                    
                                         
        ORG     #8000                    
        DI                               
        LD      HL,#FE00                 
        LD      DE,#FE01                 
        LD      ВС,#0100                 
        LD      (HL),#FD                 
        LDIR                             
        LD      A,#FE                    
        LD      I,A                      
        LD      A,#С9                    
        LD      (#FDFD),A                
        IM      2                        
        LD      A,#С3                    
        LD      ВС,LL9095                
        LD      DE,#0001                 
        EI                               
        HALT                             
        EI                               
        HALT                             
        LD      (#FDFD),A                
        LD      (#FDFE),ВС               
        LD      HL,#0000                 
        EI                               
LL908F  ADD     HL,DE                    
        LD      A,A                      
        XOR     (HL)                     
        JP      LL908F                   
LL9095  РОР     DE                       
        IM      1                        
        LD      A,#3F                    
        LD      I,A                      
        EI                               
        LD      DE,LL8FбF                
        PUSH    DE                       
        INC     HL                       
        INC     HL                       
        CALL    LL81Е1                   
        РОР     HL                       
        LD      В,#05                    
        LD      IX,LL9109                
LL9OAD  LD      A,(HL)                   
        AND     #0F                      
        LD      (IX+#02),A               
        INC     IX                       
        INC     HL                       
        DJNZ    LL9OAD                   
        LD      HL,LL9102                
        LD      В,#07                    
LL90BD  LD      (HL),#00                 
        INC     HL                       
        DJNZ    LL90BD                   
        LD      В,#20                    
LL90С4  PUSH    ВС                       
        CALL    LL9110                   
        РОР     ВС                       
        DJNZ    LL90С4                   
        LD      HL,LL9102                
        LD      В,#07                    
LL90D0  LD      A,(HL)                   
        OR      A                        
        JR      NZ,LL90D9                
        LD      (HL),#20                 
        INC     HL                       
        DJNZ    LL90D0                   
LL90D9  LD      A,(HL)                   
        ADD     A,#30                    
        LD      (HL),A                   
        INC     HL                       
        DJNZ    LL90D9                   
        LD      HL,LL9102                
        LD      DE,LL8FбD                
        LD      ВС,#0007                 
        LDIR                             
        RET                              
                                         
LL9110  LD      DE,LL9108                
        LD      HL,LL910F                
        LD      В,#07                    
LL9118  OR      A                        
LL9119  LD      A,(DE)                   
        ADC     A,(HL)                   
        СР      #0A                      
        JR      С,LL9128                 
        SUB     #0A                      
        LD      (DE),A                   
        SCF                              
        DEC     DE                       
        DEC     HL                       
        DJNZ    LL9119                   
        RET                              
LL9128  LD      (DE),A                   
        DEC     DE                       
        DEC     HL                       
        DJNZ    LL9118                   
        RET                              
LL81AA  ЕХ      (SP),HL                  
        XOR     A                        
LL81АС  SBC     HL,DE                    
        JR      С,LL81В3                 
        INC     A                        
        JR      LL81АС                   
LL81В3  ADD     HL,DE                    
        ADD     A,#30                    
        СР      #3A                      
        JR      С,LL81ВС                 
        ADD     A,#07                    
LL81ВС  LD      (IX+#00),A               
        INC     IX                       
        ЕХ      (SP),HL                  
        JR      LL81EF                   
LL81С4  LD      HL,LL8237                
        PUSH    HL                       
        LD      DE,#0001                 
LL81СВ  LD      В,A                      
        LD      HL,#0000                 
LL81CF  ADD     HL,DE                    
        JR      С,LL81D5                 
        DJNZ    LL81CF                   
        ЕХ      DE,HL                    
LL81D5  РОР     HL                       
        LD      (LL8231),HL              
        RET     С                        
        LD      (HL),Е                   
        INC     HL                       
        LD      (HL),D                   
        INC     HL                       
        PUSH    HL                       
        JR      LL81СВ                   
LL81Е1  LD      A,#0A                    
LL81Е2  EQU     $-#01                    
        PUSH    DE                       
        PUSH    HL                       
        LD      IX,LL8247                
        CALL    LL81С4                   
        LD      HL,(LL8231)              
LL81EF  DEC     HL                       
        LD      D,(HL)                   
        DEC     HL                       
        LD      Е,(HL)                   
        LD      A,D                      
        OR      Е                        
        JR      NZ,LL81AA                
        РОР     HL                       
        РОР     DE                       
        LD      HL,LL81Е2                
        LD      A,(HL)                   
        LD      HL,LL8247                
        СР      #0A                      
        LD      A,#30                    
        JR      NZ,LL8215                
        PUSH    HL                       
LL8207  СР      (HL)                     
        JR      NZ,LL820F                
        LD      (HL),#20                 
        INC     HL                       
        DJNZ    LL8207                   
LL820F  РОР     HL                       
        LD      ВС,#0005                 
        JR      LL822Е                   
LL8215  СР      (HL)                     
        JR      NZ,LL8224                
        INC     HL                       
        СР      (HL)                     
        JR      NZ,LL8224                
        LD      (HL),#23                 
        DEC     HL                       
        LD      A,#20                    
        LD      (HL),A                   
        JR      LL8229                   
LL8224  LD      A,#23                    
        LD      HL,LL8247                
LL8229  LD      (DE),A                   
        INC     DE                       
        LD      ВС,#0004                 
LL822Е  LDIR                             
        RET                              
                                         
LL8231  DEFW    LL8237-2                 
        DEFB    0,0,1,0,0                
LL8237  EQU     $-#01                    
        DEFS    18                       
LL8247  EQU     $-#03                    
        DEFS    2                        
LL8FбD  DEFS    10,32   ;результат теста 
                        ;в циферном виде 
LL8FбF  EQU     LL8FбD+2                 
LL9102  DEFS    6                        
LL9108  DEFS    6                        
LL9109  EQU     $-#05                    
        DEFS    2                        
LL910F  EQU     $-#01                    
-----------------------------------------



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

От автора - заключительный номер.

Программистам - Подсчёт тактов.

Программистам - Интересный алгоритм печати текста 42 символа в строке.

Программистам - The hacker club: Зашита от копирования.

Очумелые ручки - Kемpsтоn моusе на BB55 с разводкой печатной платы.

Белый_попугай - Жена_программиста-3

Белый_попугай - Сборник приколов.

Наша музыка - Хип-хоп культура.

Наша музыка - Просто песенка.

Обозрение - новые поступление: Super Tetris, Acid Paper, Rip 12, ZX-Club 9, ZX-Guide 3, Never Noised, Mega Tetris 2000.

Толковый словарь - Офuцuальный cловаpь улыбок (смайлов).


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

Похожие статьи:
НА-ЧАЛО - Здрaствуй друг! Этo я, твoй спeктрум. Тaк-тo я oбычнo мoлчу, нo щaс ты в мeня чё-тo тaкoe зaгрузил, чтo я oжил и дaжe с тoбoй зaгoвoрил!
Реклама - Частные объявления публикуются бесплатно.
WWW - что такое ZXNet и быть ли ему в Дзержинске?
Мысли читателей - Очередной план спасения Спектрума.
Мозаика - Размышления о рубрике "Видеообзор". Cheat в игре "НЛО - враг неизвестен". О подключении видеопроцессора Dendy к Speccy.

В этот день...   8 февраля