Spectron #01 31 декабря 1994

Система - Процедуры, приемы программирования и различные системные программы.

        
        
 В ЭТОМ РАЗДЕЛЕ МЫ БУДЕМ ВЕСТИ  
РЕЧЬ О ВСЕВОЗМОЖНЫХ ПРОЦЕДУРАХ, 
ПРИЕМАХ ПРОГРАММИРОВАНИЯ И О    
РАЗЛИЧНЫХ СИСТЕМНЫХ ПРОГРАММАХ. 
 ИТАК, СЕЙЧАС Я ХОЧУ ПРЕДЛОЖИТЬ 
ВАМ СВЕРХКОРОТКУЮ ПРОГРАММУ НА  
АССЕМБЛЕРЕ ДЛЯ ГАШЕНИЯ ЭКРАНА.  
1        ORG 40000;АДРЕС АССЕМБ-
                   ЛИРОВАНИЯ    
2 PAUSE  EQU 5;МЕТКА, УКАЗЫВАЮ- 
               ЩАЯ ВЕЛИЧИНУ ПАУ-
               ЗЫ               
3        LD C,255               
4 LABEL3 LD В,PAUSE;Т.Е. LD В,5 
5 LABEL2 LD Н,90                
6 LABEL1 LD A,(HL)              
7        AND C                  
8        LD (HL),A              
9        DEC HL                 
10       BIT 3,Н                
11       JR NZ,LABEL1           
12       DJNZ LABEL2            
13       SRL C                  
14       JR C,LABEL3            
15       RET                    
################################
 НУ ВОТ, КАК ВИДИТЕ ПРОЦЕДУРА   
СОВСЕМ КОРОТКАЯ, ВСЕГО 21 БАЙТ  
ПОЛУЧАЕТСЯ!                     
 И ЕЩЕ ПАРУ ПРОЦЕДУР ПО ЗАЩИТЕ  
ПРОГРАММ ОТ КНОПКИ 'MAGIC'.     
      1          #     2        
     LD HL,PRG   #    LD HL,ADR 
     PUSH HL     #    PUSH HL   
     XOR A       # 62 XOR A     
     LD C,255    # 60 NOP       
     LD HL,10835 #    LD HL,8179
     PUSH HL     #    PUSH HL   
     JP 15663    #    JP 15664  
 PRG...........  #ADR...........
################################
 НУ НА СЕГОДНЯ ВСЕ... НА ДИСКЕ  
ИМЕЕТСЯ ПРОГРАММА ДЛЯ ПОИСКА    
ШРИФТОВ В ПРОГРАММАХ. ВСЕ ИНСТ- 
РУКЦИИ ПО РАБОТЕ - В ПРОГРАММЕ. 
  FIND CHRS V.4.0 ВУ KIDSON!!!