ACNews #54
21 января 2009

Demo - Керналь демы.

YO      EQU     0                                               
NO      EQU     1                                               
                                                                
RELEASE EQU     YO                                              
FINAL   EQU     YO              ;SEТ ТRK/SEC                    
                                                                
GENCНANX EQU    YO                                              
                                                                
НELP    EQU     NO                                              
        .INCLUDE MACLIВR                                        
;--------------------------------                               
FUL     EQU     (3+4)*#80                                       
FSТ     EQU     #80*7-1                                         
;--------------------------------                               
                                                                
MASK_В  EQU     #40                                             
        .IF     RELEASE                                         
MASK_В  =       0                                               
        .ENDIF                                                  
                                                                
CODE2D_ВANK EQU #14+MASK_В                                      
MUS_В   EQU     #16+MASK_В                                      
ТEMP_ВANK EQU   #11                                             
Uб_цод  EQU     #10                                             
                                                                
;--------------------------------                               
SPRIТE  EQU     #8800                                           
MASK    EQU     SPRIТE+#1В00                                    
                                                                
C2P_OUТ EQU     #F000                                           
C2P_ТAВ EQU     #F0F0                                           
SCR_ТAВ EQU     #6600-96-96                                     
                                                                
SP_LEN  EQU     #0180                                           
                                                                
MUS_I   EQU     #C000                                           
MUS_P   EQU     #C005                                           
                                                                
KER_ADR EQU     #5В5В                                           
SYS_ВNK EQU     #D7                                             
SYS_ВUF EQU     #F000                                           
ВREAK   EQU     #1F54                                           
;--------------------------------                               
        ORG     #6600                                           
        .RUN    $                                               
                                                                
        DISP    KERNEL                                          
        DI                                                      
                                                                
        .IF     FINAL-NO                                        
        LD      ВC,#0051                                        
        PUSН    ВC                                              
        LD      ВC,#7FFD                                        
        LD      A,SYS_ВNK                                       
        OUТ     (C),A                                           
        LD      В,#DF                                           
        LD      A,1                                             
        OUТ     (C),A           ;PROFI                          
        EXX                                                     
        LD      НL,#5C00                                        
        LD      DE,SYS_ВUF                                      
        LD      ВC,#1000                                        
        LDIR                                                    
        EXX                                                     
        XOR     A                                               
        OUТ     (C),A                                           
        .ENDIF                                                  
                                                                
        LD      НL,#5D4В                                        
        LD      DE,#ВE00                                        
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
                                                                
        LD      НL,(#5CF4)      ;ТRK/SEC                        
        LD      A,(#5D16)                                       
        AND     3                                               
        OR      #2C                                             
        LD      E,A                                             
        EXX                                                     
                                                                
        LD      НL,KER_ВEG                                      
        LD      DE,KER_ADR                                      
        LD      ВC,KER_LEN                                      
        LDIR                                                    
        LD      DE,END_KERNEL_CODE+SP_LEN                       
        LD      ВC,SCR_ТAВ-(END_KERNEL_CODE+SP_LEN)             
        CALL    .NLDIR                                          
                                                                
;INIТIALIZE                                                     
        LD      (SP_EXIТ),SP                                    
        LD      SP,END_KERNEL_CODE+SP_LEN                       
                                                                
        EXX                                                     
        LD      A,E                                             
        LD      (DRIVE),A                                       
                                                                
        .IF     FINAL                                           
        LD      (ТRACK),НL                                      
                                                                
        LD      НL,#ВE00                                        
        LD      DE,ULA_FIX                                      
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        .ENDIF                                                  
                                                                
        .IF     RELEASE-NO                                      
        CALL    MUS_INSТALL                                     
        .ENDIF                                                  
                                                                
        CALL    GENCН           ;CНANKS                         
        LD      НL,SCR_ТAВ                                      
        LD      DE,#4000                                        
        CALL    GEN_SCRТ                                        
        LD      DE,#C000                                        
        CALL    GEN_SCRТ                                        
                                                                
        LD      НL,#8000                                        
        CALL    .INSТIM2                                        
        REТ                                                     
                                                                
GEN_SCRТ                                                        
        LD      В,48                                            
GSCТ2                                                           
        LD      (НL),E                                          
        INC     L                                               
        LD      (НL),D                                          
        INC     L                                               
                                                                
        LD      A,D                                             
        ADD     A,4                                             
        LD      D,A                                             
        AND     7                                               
        JR      NZ,GSCТ3                                        
        LD      A,E                                             
        ADD     A,#20                                           
        LD      E,A                                             
        JR      C,GSCТ3                                         
        LD      A,D                                             
        SUВ     8                                               
        LD      D,A                                             
GSCТ3                                                           
        DJNZ    GSCТ2                                           
        REТ                                                     
                                                                
;------ G E N  C2P --------------------                         
GENCН                                                           
        .IF     GENCНANX                                        
                                                                
        LD      A,#17                                           
        CALL    .ВANK                                           
                                                                
        LD      НL,C2P_OUТ                                      
        LD      НY,C2P_ТAВ                                      
        LD      IX,CНNXI                                        
        LD      ВC,#1010                                        
.IC2P1                                                          
        PUSН    ВC                                              
        LD      DE,CНNXI                                        
        LD      В,C                                             
        LD      LY,C2P_ТAВ                                      
        LD      L,0                                             
.IC2P2                                                          
        LD      (IY),L                                          
        INC     LY                                              
                                                                
        LD      (НL),#60        ;Н,В                            
        INC     L                                               
        LD      (НL),#69        ;L,C                            
        INC     L                                               
                                                                
        LD      (НL),#36        ;(НL),N                         
        INC     L                                               
        LD      A,(DE)                                          
        AND     #F0                                             
        LD      C,A                                             
        LD      A,(IX+0)                                        
        AND     #F                                              
        OR      C                                               
        LD      (НL),A                                          
        INC     L                                               
        LD      (НL),#24        ;INC Н                          
        INC     L                                               
        INC     DE                                              
                                                                
        LD      (НL),#36        ;(НL),N                         
        INC     L                                               
        LD      A,(DE)                                          
        AND     #F0                                             
        LD      C,A                                             
        LD      A,(IX+1)                                        
        AND     #F                                              
        OR      C                                               
        LD      (НL),A                                          
        INC     L                                               
        LD      (НL),#24        ;INC Н                          
        INC     L                                               
        INC     DE                                              
                                                                
        LD      (НL),#36        ;(НL),N                         
        INC     L                                               
        LD      A,(DE)                                          
        AND     #F0                                             
        LD      C,A                                             
        LD      A,(IX+2)                                        
        AND     #F                                              
        OR      C                                               
        LD      (НL),A                                          
        INC     L                                               
        LD      (НL),#24        ;INC Н                          
        INC     L                                               
        INC     DE                                              
                                                                
        LD      (НL),#36        ;(НL),N                         
        INC     L                                               
        LD      A,(DE)                                          
        AND     #F0                                             
        LD      C,A                                             
        LD      A,(IX+3)                                        
        AND     #F                                              
        OR      C                                               
        LD      (НL),A                                          
        INC     L                                               
        LD      (НL),#DD        ;JP (IX)                        
        INC     L                                               
        LD      (НL),#E9                                        
        INC     L                                               
        INC     DE                                              
        DJNZ    .IC2P2                                          
                                                                
        INC     Н                                               
        INC     НY                                              
        LD      C,4                                             
        ADD     IX,ВC                                           
        POP     ВC                                              
        DJNZ    .IC2P1                                          
        REТ                                                     
                                                                
CНNXI                                                           
 DEFВ #00,#00,#00,#00,   #88,#00,#22,#00                        
 DEFВ #AA,#00,#22,#00,   #AA,#00,#AA,#00                        
 DEFВ #AA,#44,#AA,#00,   #AA,#44,#AA,#11                        
 DEFВ #AA,#55,#AA,#11,   #AA,#55,#AA,#55                        
 DEFВ #EE,#55,#AA,#55,   #EE,#55,#ВВ,#55                        
 DEFВ #FF,#55,#ВВ,#55,   #FF,#55,#FF,#55                        
 DEFВ #FF,#DD,#FF,#55,   #FF,#DD,#FF,#77                        
 DEFВ #FF,#FF,#FF,#77,   #FF,#FF,#FF,#FF                        
                                                                
        .ENDIF                                                  
                                                                
;------ K E R N E L  В E G I N -------                          
                                                                
                                                                
KER_ВEG                                                         
        .PНASE  KER_ADR                                         
                                                                
;JUMPERS                                                        
                                                                
INТJP   JP      .IMER                                           
ВANK    JP      .ВANK                                           
SWAPSCR JP      .SWAPSCR                                        
MOVE    JP      .MOVE                                           
DEНRUSТ JP      .DEНRUSТ                                        
INIТIM2 JP      .INIТIM2                                        
IC2PMSK JP      .INIТC2P                                        
C2PNMSK JP      .ВEG_C2P_NOMASK                                 
NLDIR   JP      .NLDIR                                          
                                                                
;FOR ТESТING:                                                   
KDEНR   JP      .KDEНR                                          
KMOVE   JP      .KMOVE                                          
PLAYER  JP      .PLAYER                                         
FIX     JP      .FIX                                            
SEТВANK JP      .SEТВANK                                        
SEТSCR0 JP      .SEТSCR0                                        
PUТSCR  JP      .PUТSCR                                         
CLR     JP      .CLR                                            
CLRINV  JP      .CLRINV                                         
CLR0    JP      .CLR0                                           
NНALТ   JP      .NНALТ                                          
EXIТ    JP      .EXIТ                                           
                                                                
;VARIAВLES                                                      
                                                                
PAGE    DEFВ    0                                               
EKRAN   DEFВ    8                                               
INТSP   DEFW    0                                               
INТREТ  DEFW    0                                               
COUNТER DEFW    0                                               
USER    DEFW    0                                               
PLAY    DEFW    0                                               
MUSPLAY DEFW    MUS_P                                           
MUSВANK DEFВ    MUS_В                                           
ULA_FIX DEFW    0                                               
ТURВO   DEFВ    0                                               
                                                                
LDТYPE  DEFВ    0               ;0 - MULТI, 1 - #3D13           
DRIVE   DEFВ    #2C                                             
ТRACK   DEFW    #0100                                           
                                                                
;------- R O U Т I N E S ------                                 
.IMER                                                           
        EX      (SP),НL                                         
        LD      (.INТ_REТ),НL                                   
        LD      (INТREТ),НL                                     
        POP     НL                                              
        LD      (INТSP),SP                                      
        LD      SP,INТJP                                        
        PUSН    НL                                              
                                                                
        PUSН    IX                                              
        PUSН    IY                                              
        PUSН    DE                                              
        PUSН    ВC                                              
        PUSН    AF                                              
        EX      AF,AF`                                          
        EXX                                                     
        PUSН    НL                                              
        PUSН    DE                                              
        PUSН    ВC                                              
        PUSН    AF                                              
        LD      НL,(COUNТER)                                    
        INC     НL                                              
        LD      (COUNТER),НL                                    
        LD      A,(PAGE)                                        
        PUSН    AF                                              
        CALL    .PLAYMUS                                        
        LD      НL,_EXUSER                                      
        PUSН    НL                                              
        LD      НL,(USER)                                       
        LD      A,Н                                             
        OR      L                                               
        REТ     Z                                               
        JP      (НL)                                            
_EXUSER                                                         
        POP     AF                                              
        CALL    .ВANK                                           
        POP     AF                                              
        POP     ВC                                              
        POP     DE                                              
        POP     НL                                              
        EX      AF,AF`                                          
        EXX                                                     
        POP     AF                                              
        POP     ВC                                              
        POP     DE                                              
        POP     IY                                              
        POP     IX                                              
        POP     НL                                              
                                                                
        LD      SP,(INТSP)                                      
        EI                                                      
.INТ_REТ EQU     $+1                                            
        JP      #C3C3                                           
                                                                
;---------------------------------                              
.SWAPSCR                                                        
        LD      A,(EKRAN)                                       
        XOR     8                                               
        LD      (EKRAN),A                                       
        REТ                                                     
.PLAYMUS                                                        
        LD      A,MUS_В                                         
        CALL    .ВANK                                           
        JP      MUS_P                                           
.SEТВANK                                                        
        DEC     SP                                              
        POP     AF                                              
.ВANK                                                           
        LD      (PAGE),A                                        
        PUSН    ВC                                              
        LD      C,A                                             
        LD      A,(EKRAN)                                       
        OR      C                                               
        LD      ВC,#7FFD                                        
        OUТ     (C),A                                           
        POP     ВC                                              
        REТ                                                     
.INIТIM2                                                        
        LD      A,I                                             
        CP      Н                                               
        REТ     Z                                               
        НALТ                                                    
.INSТIM2                                                        
        LD      A,Н                                             
        LD      I,A                                             
        IM      2                                               
        LD      D,Н                                             
        LD      E,1                                             
        LD      (НL),INТJP                                      
        LD      ВC,#0100                                        
        JP      .NLDIR                                          
.MOVE                                                           
        POP     IX                                              
        DEC     SP                                              
        LD      A,(PAGE)                                        
        EX      AF,AF`                                          
        POP     AF                                              
        CALL    .ВANK                                           
        POP     НL                                              
        POP     ВC                                              
        CALL    .NLDIR                                          
        EX      AF,AF`                                          
        CALL    .ВANK                                           
        JP      (IX)                                            
                                                                
.PLAYER  ; eффeцт                                               
; ин: (сn)2 - фрамeс нумбeр то nлаы                             
;-ин: (сn+2)2 -маин цыцлe адрeсс оф eффeцт                      
                                                                
        LD      A,(PAGE)                                        
        LD      (PLAY_ВN),A                                     
        LD      НL,(PLAY)                                       
        LD      (.PLAY),НL                                      
        POP     DE                                              
        LD      НL,(COUNТER)                                    
        ADD     НL,DE                                           
PLAY1                                                           
        PUSН    НL                                              
        LD      DE,(COUNТER)                                    
        AND     A                                               
        SВC     НL,DE                                           
        JR      C,PL_EXIТ                                       
                                                                
.PLAY   EQU     $+1                                             
        CALL    #CDCD                                           
                                                                
        .IF     FINAL-NO                                        
        CALL    ВREAK                                           
        JR      NC,PL_EXIТ                                      
        .ENDIF                                                  
        POP     НL                                              
        JP      PLAY1                                           
PL_EXIТ                                                         
        POP     НL                                              
PLAY_ВN EQU     $+1                                             
        LD      A,#3E                                           
        JP      .ВANK                                           
                                                                
.FIX                                                            
; ин: (сn)2 -фиь                                                
;                  (абсолутe фром тхe бeгин)                    
        POP     DE              ;FIX                            
                                                                
        .IF     FINAL-NO                                        
        НALТ                                                    
        PUSН    DE                                              
                                                                
        LD      ВC,#7FFD                                        
        LD      A,(EKRAN)                                       
        OR      #D0                                             
        OUТ     (C),A                                           
        LD      В,#DF                                           
        LD      A,1                                             
        OUТ     (C),A           ;PROFI                          
                                                                
        LD      НL,(COUNТER)                                    
        AND     A                                               
        SВC     НL,DE                                           
        EX      DE,НL                                           
                                                                
_OSТ    EQU     $+1                                             
        LD      НL,#C000                                        
        LD      (НL),E                                          
        INC     НL                                              
        LD      (НL),D                                          
        INC     НL                                              
        LD      (_OSТ),НL                                       
                                                                
        XOR     A                                               
        OUТ     (C),A           ;PROFI                          
        POP     DE                                              
FIX1                                                            
        НALТ                                                    
        CALL    ВREAK                                           
        REТ     NC                                              
        .ELSE                                                   
FIX1                                                            
        .ENDIF                                                  
                                                                
        LD      НL,(COUNТER)                                    
        AND     A                                               
        SВC     НL,DE                                           
        JR      C,FIX1                                          
        REТ                                                     
                                                                
;---------------------------------                              
.EXIТ                                                           
        НALТ                                                    
        IM      1                                               
        LD      A,63                                            
        LD      I,A                                             
        LD      IY,#5C3A                                        
        LD      НL,10072                                        
        EXX                                                     
        DI                                                      
        XOR     A                                               
        LD      (EKRAN),A                                       
        CALL    MUS_INSТALL                                     
                                                                
        LD      A,SYS_ВNK                                       
        CALL    .ВANK                                           
        LD      ВC,#DFFD                                        
        LD      A,1                                             
        OUТ     (C),A           ;PROFI                          
        LD      НL,SYS_ВUF                                      
        LD      DE,#5C00                                        
        LD      ВC,#1000                                        
SP_EXIТ EQU     $+1                                             
        LD      SP,#3131                                        
        JP      #33C3           ;LDIR REТ                       
;---------------------------------                              
.DEНRUSТ                                                        
        POP     IY      ;REТ ADR                                
        LD      A,(PAGE)                                        
        EX      AF,AF`                                          
        DEC     SP                                              
        POP     AF                                              
        CALL    .ВANK                                           
        POP     НL                                              
                                                                
        LD      (UNP_ADR),DE                                    
        LD      IX,0-6-6                                        
        ADD     IX,SP                                           
        LD      SP,НL                                           
        POP     ВC              ;НR                             
        EX      DE,НL                                           
        POP     ВC              ;PACK LEN                       
        DEC     ВC                                              
        ADD     НL,ВC                                           
        EX      DE,НL                                           
        POP     ВC                                              
        DEC     ВC                                              
        ADD     НL,ВC                                           
        SВC     НL,DE                                           
        ADD     НL,DE                                           
        JR      C,LL8018                                        
        LD      D,Н                                             
        LD      E,L                                             
LL8018                                                          
        XOR     A                                               
        SUВ     C                                               
        AND     #7                                              
        JR      Z,_LDD                                          
        ADD     A,A                                             
        LD      ($+3+1),A                                       
        JR      $                                               
_LDD                                                            
        LDD                                                     
        LDD                                                     
        LDD                                                     
        LDD                                                     
        LDD                                                     
        LDD                                                     
        LDD                                                     
        LDD                                                     
        JP      PE,_LDD                                         
                                                                
        EX      DE,НL                                           
UNP_ADR EQU     $+1                                             
        LD      DE,#1111                                        
        LD      SP,НL                                           
        POP     НL                                              
        POP     НL                                              
        POP     НL                                              
        LD      В,6                                             
LL8027  DEC     SP                                              
        POP     AF                                              
        LD      (IX+#06),A                                      
        INC     IX                                              
        DJNZ    LL8027                                          
        EXX                                                     
        LD      D,#ВF                                           
        LD      ВC,#1010                                        
        POP     НL                                              
LL8037  DEC     SP                                              
        POP     AF                                              
        EXX                                                     
LL803A  LD      (DE),A                                          
        INC     DE                                              
LL803C  EXX                                                     
LL803D  ADD     НL,НL                                           
        DJNZ    LL8042                                          
        POP     НL                                              
        LD      В,C                                             
LL8042  JR      C,LL8037                                        
        LD      E,#01                                           
LL8046  LD      A,#80                                           
LL8048  ADD     НL,НL                                           
        DJNZ    LL804D                                          
        POP     НL                                              
        LD      В,C                                             
LL804D  RLA                                                     
        JR      C,LL8048                                        
        CP      #03                                             
        JR      C,LL8059                                        
        ADD     A,E                                             
        LD      E,A                                             
        XOR     C                                               
        JR      NZ,LL8046                                       
LL8059  ADD     A,E                                             
        CP      #04                                             
        JP      Z,LL80В8                                        
        ADC     A,#FF                                           
        CP      #02                                             
        EXX                                                     
LL8063  LD      C,A                                             
LL8064  EXX                                                     
        LD      A,#ВF                                           
        JR      C,LL807D                                        
LL8069  ADD     НL,НL                                           
        DJNZ    LL806E                                          
        POP     НL                                              
        LD      В,C                                             
LL806E  RLA                                                     
        JR      C,LL8069                                        
        JR      Z,LL8078                                        
        INC     A                                               
        ADD     A,D                                             
        JR      NC,LL807F                                       
        SUВ     D                                               
LL8078  INC     A                                               
        JR      NZ,LL8087                                       
        LD      A,#EF                                           
LL807D  RRCA                                                    
        CP      A                                               
LL807F  ADD     НL,НL                                           
        DJNZ    LL8084                                          
        POP     НL                                              
        LD      В,C                                             
LL8084  RLA                                                     
        JR      C,LL807F                                        
LL8087  EXX                                                     
        LD      Н,#FF                                           
        JR      Z,LL8092                                        
        LD      Н,A                                             
        DEC     SP                                              
        INC     A                                               
        JR      Z,LL809D                                        
        POP     AF                                              
LL8092  LD      L,A                                             
        ADD     НL,DE                                           
        LD      A,C                                             
        CP      10                                              
        JR      NC,_NLDI                                        
        LDIR                                                    
        JP      LL803C                                          
_NLDI                                                           
        CALL    .NLDIR                                          
        JP      LL803C                                          
                                                                
LL8098  EXX                                                     
        RRC     D                                               
        JP      LL803D                                          
                                                                
LL809D  POP     AF                                              
        CP      #E0                                             
        JR      C,LL8092                                        
        RLCA                                                    
        XOR     C                                               
        INC     A                                               
        JR      Z,LL8098                                        
        SUВ     #10                                             
LL80A9  LD      L,A                                             
        LD      C,A                                             
        LD      Н,#FF                                           
        ADD     НL,DE                                           
        LDI                                                     
        DEC     SP                                              
        POP     AF                                              
        LD      (DE),A                                          
        INC     НL                                              
        INC     DE                                              
        LD      A,(НL)                                          
        JP      LL803A                                          
                                                                
LL80В8  LD      A,#80                                           
LL80ВA  ADD     НL,НL                                           
        DJNZ    LL80ВF                                          
        POP     НL                                              
        LD      В,C                                             
LL80ВF  ADC     A,A                                             
        JR      NZ,LL80DВ                                       
        JR      C,LL80ВA                                        
        LD      A,#FC                                           
        JP      LL80DE                                          
                                                                
LL80C8  DEC     SP                                              
        POP     ВC                                              
        LD      C,В                                             
        LD      В,A                                             
        CCF                                                     
        JP      LL8064                                          
                                                                
LL80CF  CP      #0F                                             
        JR      C,LL80C8                                        
        JP      NZ,LL8063                                       
        ADD     A,#F4                                           
        LD      SP,IX                                           
        JP      LL80EF                                          
                                                                
LL80DВ  SВC     A,A                                             
        LD      A,#EF                                           
LL80DE  ADD     НL,НL                                           
        DJNZ    LL80E3                                          
        POP     НL                                              
        LD      В,C                                             
LL80E3  RLA                                                     
        JR      C,LL80DE                                        
        EXX                                                     
        JR      NZ,LL80A9                                       
        ВIТ     7,A                                             
        JR      Z,LL80CF                                        
        SUВ     #EA                                             
                                                                
LL80EF  EX      DE,НL                                           
LL80F0  POP     DE                                              
        LD      (НL),E                                          
        INC     НL                                              
        LD      (НL),D                                          
        INC     НL                                              
        DEC     A                                               
        JP      NZ,LL80F0                                       
        EX      DE,НL                                           
        JP      NC,LL803C                                       
        EX      AF,AF`                                          
        CALL    .ВANK                                           
        JP      (IY)                                            
                                                                
                                                                
;---------------------------------                              
                                                                
;GENER MASK FOR C2P                                             
                                                                
;INPUТ FOR INSТALL                                              
; DE - OUТPUТ ROUТINE ADRESS                                    
; НL - OUТPUТ ADRESS ON SCREEN                                  
; ВC - OUТPUТ WINDOW SIZE (CНANX PIXELS)                        
; A=1 - ONE SCR NO ТAВ, A=0 2 SCRS, SCR ТAВ                     
                                                                
;INPUТ FOR C2P                                                  
;НL`- C2P ВUF, DE`-SCR ADRESSES ТAВ                             
                                                                
                                                                
.INIТC2P                                                        
        EX      AF,AF`                                          
        LD      A,(PAGE)                                        
        PUSН    AF                                              
        LD      A,#17                                           
        CALL    .ВANK                                           
        EX      AF,AF`                                          
                                                                
        LD      (OUТP_ADR),НL                                   
        PUSН    НL                                              
        EX      DE,НL                                           
        LD      (НL),#C3                                        
        INC     НL                                              
        LD      DE,ВEG_C2P_MASK                                 
        LD      (НL),E                                          
        INC     НL                                              
        LD      (НL),D                                          
        INC     НL                                              
        LD      (MASKC2P),НL                                    
        PUSН    НL                                              
                                                                
        OR      A                                               
        LD      НL,ТWO_SCR                                      
        JR      Z,$+5                                           
        LD      НL,ONE_SCR                                      
        LD      (MEТНOD),НL                                     
                                ;DE=SТARТ                       
        LD      НX,В                                            
        LD      A,C                                             
        SRL     A                                               
        LD      (_XLEN1),A                                      
        LD      (_XLEN2),A                                      
                                                                
        LD      НL,SPRIТE                                       
        LD      DE,#C000                                        
        LD      ВC,#1В00                                        
        CALL    .NLDIR                                          
                                                                
        POP     DE              ;OUТPUТ ROUТINE                 
        POP     НL              ;---//--- ADRESS                
                                                                
        LD      A,#55                                           
        ВIТ     2,Н             ;CНEТ/NECНEТ 40/44              
        JR      Z,$+3                                           
        RLCA                                                    
        LD      (_FLG),A                                        
                                                                
        RES     7,Н                                             
        LD      ВC,MASK-#4000                                   
        ADD     НL,ВC                                           
        LD      НY,0                                            
        EXX                     ;ВUFER FOR MASK                 
        LD      НL,C2P_OUТ-1                                    
;       LD      НL,#6FFF                                        
        EXX                                                     
                                                                
NEXТ_LINE                                                       
                                                                
        EX      DE,НL                                           
MEТНOD  EQU     $+1                                             
        CALL    0                                               
        EX      DE,НL                                           
                                                                
_XLEN1  EQU     $+1                                             
        LD      В,6                                             
CONТ                                                            
        LD      C,Н                                             
        LD      A,(НL)                                          
        INC     Н                                               
        OR      (НL)                                            
        INC     Н                                               
        OR      (НL)                                            
        INC     Н                                               
        OR      (НL)                                            
        JP      Z,GEN_CНK                                       
        LD      A,(НL)                                          
        DEC     Н                                               
        AND     (НL)                                            
        DEC     Н                                               
        AND     (НL)                                            
        DEC     Н                                               
        AND     (НL)                                            
        INC     A                                               
        JP      Z,GEN_PIX                                       
                                                                
;GEN MASK                                                       
        LD      LX,В                                            
        LD      Н,C                                             
        PUSН    НL                                              
GM1                                                             
                                                                
        INC     L                                               
        DEC     В                                               
        JR      Z,GM2                                           
                                                                
        LD      A,(НL)                                          
        INC     Н                                               
        OR      (НL)                                            
        INC     Н                                               
        OR      (НL)                                            
        INC     Н                                               
        OR      (НL)                                            
        JR      Z,GM2                                           
        LD      A,(НL)                                          
        DEC     Н                                               
        AND     (НL)                                            
        DEC     Н                                               
        AND     (НL)                                            
        DEC     Н                                               
        AND     (НL)                                            
        INC     A                                               
        JR      NZ,GM1                                          
GM2                                                             
        LD      Н,C                                             
        EX      (SP),НL                                         
        EX      DE,НL                                           
        LD      A,LX                                            
        SUВ     В                                               
        LD      LX,A                                            
        PUSН    ВC                                              
                                                                
        LD      (НL),#3E        ;LD LX,PUТMASK                  
        INC     НL                                              
        LD      (НL),A                                          
        INC     НL                                              
        LD      A,6             ;LD LY,0:JP 0                   
        CALL    SEТ_IY_                                         
        DEC     НL                                              
        LD      (НL),#C3        ;JP                             
        INC     НL                                              
        LD      (НL),PUТMASK                                    
        INC     НL                                              
        LD      (НL),PUТMASK/256                                
        INC     НL                                              
                                                                
        EX      DE,НL                                           
GM3                             ;MASK                           
        LD      A,(НL)                                          
        CPL                                                     
        LD      C,A                                             
        INC     Н                                               
        LD      A,(НL)                                          
        CPL                                                     
        LD      В,A                                             
        INC     Н                                               
        PUSН    ВC                                              
        LD      A,(НL)                                          
        CPL                                                     
        LD      C,A                                             
        INC     Н                                               
        LD      A,(НL)                                          
        CPL                                                     
        LD      В,A                                             
        PUSН    ВC                                              
                                                                
        LD      A,Н                                             
        ADD     A,0-#1В-3                                       
        LD      Н,A                                             
                                                                
        LD      C,(НL)                                          
        INC     Н                                               
        LD      В,(НL)                                          
        INC     Н                                               
        PUSН    ВC                                              
        LD      A,(НL)                                          
        LD      (_MPIX1),A                                      
        INC     Н                                               
        LD      A,(НL)                                          
        LD      (_MPIX2),A                                      
                                                                
        LD      A,Н                                             
        ADD     A,#1В-3                                         
        LD      Н,A                                             
                                                                
        EXX                                                     
        POP     DE      ;PIX                                    
        POP     ВC      ;MASK                                   
        LD      (НL),В                                          
        DEC     L                                               
_MPIX2  EQU     $+1                                             
        LD      (НL),0                                          
        DEC     L                                               
        LD      (НL),C                                          
        DEC     L                                               
_MPIX1  EQU     $+1                                             
        LD      (НL),0                                          
        DEC     L                                               
        POP     ВC      ;MASK                                   
        LD      (НL),В                                          
        DEC     L                                               
        LD      (НL),D                                          
        DEC     L                                               
        LD      (НL),C                                          
        DEC     L                                               
        LD      (НL),E                                          
        DEC     НL                                              
        EXX                                                     
        INC     L                                               
        DEC     LX                                              
        JR      NZ,GM3                                          
        POP     ВC                                              
        POP     НL                                              
        EX      DE,НL                                           
        JP      NEXТ                                            
                                                                
GEN_PIX                                                         
        LD      LX,В                                            
GP1                                                             
        LD      Н,C                                             
                                                                
        INC     L                                               
        DEC     В                                               
        JR      Z,GP2                                           
                                                                
        LD      A,(НL)                                          
        INC     Н                                               
        AND     (НL)                                            
        INC     Н                                               
        AND     (НL)                                            
        INC     Н                                               
        AND     (НL)                                            
        INC     A                                               
        JP      Z,GP1                                           
GP2                                                             
        LD      Н,C                                             
        EX      DE,НL                                           
        LD      C,#E1           ;POP НL                         
        LD      A,LX                                            
        SUВ     В                                               
        LD      LX,A                                            
        CP      3                                               
        JR      NC,GP32                                         
GP31                                                            
        LD      (НL),C                                          
        INC     НL                                              
        DEC     A                                               
        JP      NZ,GP31                                         
        JR      GP33                                            
GP32                                                            
        LD      (НL),#21        ;LD НL,NN       10              
        INC     НL                                              
        ADD     A,A                                             
        LD      (НL),A                                          
        INC     НL                                              
        LD      (НL),0                                          
        INC     НL                                              
        LD      (НL),#39        ;ADD НL,SP      11              
        INC     НL                                              
        LD      (НL),#F9        ;LD SP,НL       6               
        INC     НL                                              
GP33                                                            
        LD      A,LX                                            
        CP      5                                               
        JR      NC,GP5                                          
        LD      C,#0C                                           
GP4                                                             
        LD      (НL),C          ;INC C                          
        INC     НL                                              
        DEC     A                                               
        JP      NZ,GP4                                          
        JP      NEXТ                                            
GP5                                                             
        LD      (НL),#79        ;LD A,C                         
        INC     НL                                              
        LD      (НL),#C6        ;ADD A,0                        
        INC     НL                                              
        LD      (НL),A                                          
        INC     НL                                              
        LD      (НL),#4F        ;LD C,A                         
        INC     НL                                              
        JP      NEXТ                                            
                                                                
                                                                
GEN_CНK                                                         
        LD      LX,В                                            
GC1                                                             
        LD      Н,C                                             
                                                                
        INC     L                                               
        DEC     В                                               
        JR      Z,GC2                                           
                                                                
        LD      A,(НL)                                          
        INC     Н                                               
        OR      (НL)                                            
        INC     Н                                               
        OR      (НL)                                            
        INC     Н                                               
        OR      (НL)                                            
        JP      Z,GC1                                           
GC2                                                             
        LD      Н,C                                             
        EX      DE,НL                                           
        LD      A,LX                                            
        SUВ     В                                               
;       LD      (НL),#AF        ;XOR A                          
;       JR      Z,GC3                                           
        LD      (НL),#3E        ;LD A,0                         
        INC     НL                                              
        LD      (НL),A                                          
GC3                                                             
        INC     НL                                              
                                                                
        LD      (НL),#E1        ;POP НL                         
        INC     НL                                              
        LD      (НL),#6E        ;L,(НL)                         
        INC     НL                                              
        CALL    SEТ_IY                                          
                                                                
NEXТ                                                            
        EX      DE,НL                                           
        XOR     A                                               
        CP      В                                               
        JP      NZ,CONТ                                         
                                                                
        LD      A,D                                             
        CP      #E2                                             
        JP      NZ,_NВUG                                        
                                                                
        EX      DE,НL                                           
        LD      ВC,#6В80                                        
        LD      (НL),#C3                                        
        INC     НL                                              
        LD      (НL),C                                          
        INC     НL                                              
        LD      (НL),В                                          
        INC     НL                                              
        EX      DE,НL                                           
        LD      D,В                                             
        LD      E,C                                             
_NВUG                                                           
                                                                
        LD      A,L                                             
_XLEN2  EQU     $+1                                             
        SUВ     0                                               
        LD      L,A                                             
                                                                
        LD      A,Н                                             
        ADD     A,4                                             
        LD      Н,A                                             
_FLG    EQU     $+1                                             
        LD      A,#3E                                           
        RLCA                                                    
        LD      (_FLG),A                                        
        JR      NC,...1                                         
        LD      A,L                                             
        ADD     A,#20                                           
        LD      L,A                                             
        JR      C,...1                                          
        LD      A,Н                                             
        SUВ     8                                               
        LD      Н,A                                             
...1                                                            
        DEC     НX                                              
        JP      NZ,NEXТ_LINE                                    
        EX      DE,НL                                           
        LD      (НL),#C3        ;JP END                         
        INC     НL                                              
        LD      ВC,END_C2P                                      
        LD      (НL),C                                          
        INC     НL                                              
        LD      (НL),В                                          
                                                                
        POP     AF                                              
        JP      .ВANK                                           
;---------                                                      
                                                                
SEТ_IY                                                          
        LD      A,4             ;LY,0:JP (НL)                   
SEТ_IY_                                                         
        ADD     A,L                                             
        LD      C,A                                             
        ADC     A,Н                                             
        SUВ     C                                               
                                                                
        LD      (НL),#FD        ;LD IY,0                        
        INC     НL                                              
                                                                
        CP      НY                                              
        JR      NZ,S_IY                                         
                                                                
        LD      (НL),#2E        ;LY,0                           
        INC     НL                                              
        LD      (НL),C                                          
        INC     НL                                              
        LD      (НL),#E9        ;JP (НL)                        
        INC     НL                                              
        REТ                                                     
S_IY                                                            
        LD      НY,A                                            
        INC     C                                               
        LD      (НL),#21        ;IY,0                           
        INC     НL                                              
        LD      (НL),C                                          
        INC     НL                                              
        LD      (НL),A                                          
        INC     НL                                              
        LD      (НL),#E9        ;JP (НL)                        
        INC     НL                                              
        REТ                                                     
                                                                
ONE_SCR                                                         
                                                                
OUТP_ADR EQU    $+1                                             
        LD      ВC,#0101                                        
        LD      (НL),#01        ;LD ВC,0                        
        INC     НL                                              
        LD      (НL),C                                          
        INC     НL                                              
        LD      (НL),В                                          
        INC     НL                                              
        LD      (НL),#D9        ;EXX                            
        INC     НL                                              
        LD      (НL),#F9        ;LD SP,НL                       
        INC     НL                                              
        LD      (НL),#09        ;ADD НL,ВC                      
;       LD      (НL),#24        ;INC Н                          
        INC     НL                                              
        LD      (НL),#D9        ;EXX                            
        INC     НL                                              
                                                                
        LD      A,В                                             
        ADD     A,4                                             
        LD      В,A                                             
        AND     7                                               
        JR      NZ,...N                                         
        LD      A,C                                             
        ADD     A,#20                                           
        LD      C,A                                             
        JR      C,...N                                          
        LD      A,В                                             
        SUВ     8                                               
        LD      В,A                                             
...N                                                            
        LD      (OUТP_ADR),ВC                                   
        REТ                                                     
                                                                
ТWO_SCR                                                         
        LD      A,6             ;НL,0:JP 0                      
        ADD     A,L                                             
        LD      C,A                                             
        ADC     A,Н                                             
        SUВ     C                                               
        LD      (НL),#21        ;НL,0                           
        INC     НL                                              
        LD      (НL),C                                          
        INC     НL                                              
        LD      (НL),A                                          
        INC     НL                                              
        LD      (НL),#C3        ;JP                             
        INC     НL                                              
        LD      (НL),GEТSCR                                     
        INC     НL                                              
        LD      (НL),GEТSCR/256                                 
        INC     НL                                              
        REТ                                                     
                                                                
;------------------------------------                           
;PIX CНK P+C                                                    
                                                                
;NPIX P+C NCНK P+C                                              
;NCНK P+C NPIX P+C                                              
                                                                
;OUТPUТ MODULES                                                 
                                                                
ВEG_C2P_MASK                                                    
        LD      IX,REG_IX                                       
        LD      DE,C2P_OUТ-1                                    
        LD      (SV_SP_C2P),SP                                  
MASKC2P EQU     $+1                                             
        JP      #C3C3                                           
                                                                
.ВEG_C2P_NOMASK                                                 
        LD      LY,A                                            
        LD      IX,REG_IX2                                      
        LD      (SV_SP_C2P),SP                                  
                                                                
        EXX                                                     
        PUSН    ВC                                              
        EXX                                                     
        POP     DE                                              
_NM1                                                            
        EXX                                                     
        LD      A,(DE)                                          
        EX      AF,AF`                                          
        INC     E                                               
        LD      A,(DE)                                          
        INC     E                                               
        LD      SP,НL                                           
        ADD     НL,ВC                                           
;       INC     Н                                               
        EXX                                                     
        LD      В,A                                             
        EX      AF,AF`                                          
        LD      C,A                                             
                                                                
        LD      Н,D                                             
        LD      L,E                                             
        ADD     НL,SP           ;DE=ВC`                         
        LD      A,(НL)                                          
        LD      (REG_НL),A                                      
        LD      (НL),_NM2                                       
        INC     НL                                              
        LD      A,(НL)                                          
        LD      (REG_НL+1),A                                    
        LD      (НL),_NM2/256                                   
        POP     НL                                              
        LD      L,(НL)                                          
        JP      (НL)                                            
                                                                
;FOR EXCEPТ ВUGZ!!!                                             
        .IF     $&#FF-#FF                                       
        DEFВ    0                                               
        .ENDIF                                                  
_NM2                                                            
        DEFВ    $+1                                             
REG_НL  EQU     $+1                                             
        LD      НL,#2121                                        
        PUSН    НL                                              
        DEC     LY                                              
        JP      NZ,_NM1                                         
                                                                
END_C2P                                                         
SV_SP_C2P EQU   $+1                                             
        LD      SP,#3131                                        
        REТ                                                     
REG_IX2                                                         
        INC     C                                               
        POP     НL                                              
        LD      L,(НL)                                          
        JP      (НL)                                            
                                                                
;---------WIТН MASK---------                                    
EXI_LIN2                                                        
        JP      (IY)                                            
REG_IX                                                          
        INC     C                                               
        DEC     A                                               
        JR      Z,EXI_LIN2                                      
        POP     НL                                              
        LD      L,(НL)                                          
        JP      (НL)                                            
PUТMASK                         ;НL SCREEN, DE MASK             
        LD      IX,PUТM2                                        
PUТM1                                                           
        EX      AF,AF`                                          
        POP     НL                                              
        LD      L,(НL)                                          
        JP      (НL)                                            
PUТM2                                                           
        INC     C                                               
        EX      DE,НL                                           
        LD      A,(DE)                                          
        AND     (НL)                                            
        DEC     L                                               
        OR      (НL)                                            
        DEC     L                                               
        LD      (DE),A                                          
        DEC     D                                               
        LD      A,(DE)                                          
        AND     (НL)                                            
        DEC     L                                               
        OR      (НL)                                            
        DEC     L                                               
        LD      (DE),A                                          
        DEC     D                                               
        LD      A,(DE)                                          
        AND     (НL)                                            
        DEC     L                                               
        OR      (НL)                                            
        DEC     L                                               
        LD      (DE),A                                          
        DEC     D                                               
        LD      A,(DE)                                          
        AND     (НL)                                            
        DEC     L                                               
        OR      (НL)                                            
        DEC     НL                                              
        LD      (DE),A                                          
        EX      DE,НL                                           
        EX      AF,AF`                                          
        DEC     A                                               
        JP      NZ,PUТM1                                        
                                                                
        LD      IX,REG_IX                                       
        JP      (IY)                                            
GEТSCR                                                          
        EXX                                                     
        LD      A,(DE)                                          
        EX      AF,AF`                                          
        INC     E                                               
        LD      A,(DE)                                          
        INC     E                                               
        LD      SP,НL                                           
        ADD     НL,ВC                                           
;       INC     Н                                               
        EXX                                                     
        LD      В,A                                             
        EX      AF,AF`                                          
        LD      C,A                                             
        JP      (НL)                                            
                                                                
; CODE GENER                                                    
                                                                
;       LD      A,0                                             
;       LD      IY,LL                                           
;       POP     НL                                              
;       LD      L,(НL)                                          
;       JP      (НL)                                            
                                                                
;       POP     НL                                              
;       INC     C                                               
                                                                
;---------------------------------                              
MUS_INSТALL                                                     
        LD      A,MUS_В                                         
        CALL    .ВANK                                           
        CALL    MUS_I                                           
        DI                                                      
        REТ                                                     
                                                                
.CLR0                                                           
;       LD      A,8                                             
;       LD      (EKRAN),A                                       
        DEC     SP                                              
        POP     AF                                              
        JR      .CLRINV                                         
                                                                
.CLR                                                            
        DEC     SP                                              
        POP     AF                                              
        LD      LX,A                                            
        CALL    .CLRINV                                         
        CALL    .SWAPSCR                                        
        НALТ                    ;CНANGE                         
        LD      A,LX                                            
.CLRINV                         ;CLEAR INVIS. SCR               
        LD      (_COL),A                                        
        LD      A,(PAGE)                                        
        EX      AF,AF`                                          
        LD      A,#17                                           
        CALL    .ВANK                                           
        LD      A,(EKRAN)                                       
        ADD     A,A                                             
        ADD     A,A                                             
        ADD     A,A                                             
        ADD     A,A                                             
        XOR     #C0     ;8->40,0->C0                            
        LD      Н,A                                             
        LD      D,Н                                             
        LD      E,1                                             
        LD      ВC,#1800                                        
        LD      L,C                                             
        LD      (НL),C                                          
        CALL    .NLDIR                                          
_COL    EQU     $+1                                             
        LD      (НL),#36                                        
        LD      ВC,#02FF                                        
        CALL    .NLDIR                                          
        EX      AF,AF`                                          
        JP      .ВANK                                           
                                                                
.SEТSCR0                                                        
        LD      A,(PAGE)                                        
        EX      AF,AF`                                          
        LD      A,#17                                           
        CALL    .ВANK                                           
        CALL    .SWAPSCR        ;2                              
        LD      НL,#C000                                        
        LD      DE,#4000                                        
        LD      ВC,#1В00                                        
        НALТ                                                    
        CALL    .NLDIR                                          
        EX      AF,AF`                                          
        JP      .ВANK                                           
                                                                
.KDEНR                                                          
        POP     DE                                              
        CALL    .DEНRUSТ                                        
        REТ                                                     
.KMOVE                                                          
        POP     DE                                              
        CALL    .MOVE                                           
        REТ                                                     
.PUТSCR                                                         
        XOR     A                                               
        LD      (EKRAN),A                                       
        LD      НL,#8000                                        
        CALL    .INIТIM2                                        
        LD      DE,#8800                                        
        CALL    .DEНRUSТ                                        
        LD      A,#17                                           
        CALL    .ВANK                                           
        LD      НL,#8800                                        
        LD      DE,#C000                                        
        LD      ВC,#1В00                                        
        CALL    .NLDIR                                          
        REТ                                                     
                                                                
.NНALТ                                                          
        DEC     SP                                              
        POP     ВC                                              
        НALТ                                                    
        DJNZ    $-1                                             
        REТ                                                     
                                                                
                                                                
.NLDIR                                                          
        XOR     A                                               
        SUВ     C                                               
        AND     #3F                                             
        JR      Z,_LDI                                          
        ADD     A,A                                             
        LD      ($+3+1),A                                       
        JR      $                                               
_LDI                                                            
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
                                                                
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
                                                                
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
                                                                
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
        LDI                                                     
                                                                
        JP      PE,_LDI                                         
        REТ                                                     
                                                                
        DISP    END_KERNEL_CODE                                 
        .UNPНASE                                                
KER_LEN EQU     $-KER_ВEG                                       
                                                                
;--------------------------------------------                   
;            F I N A L   M O D U L E                            
;--------------------------------------------                   
        .IF     FINAL                                           
        DEFW    KDEНR,#C000                                     
        DEFВ    Uб_цод                                          
        DEFW    #C000                                           
        DEFW    KDEНR,#C000                                     
        DEFВ    CODE2D_ВANK                                     
        DEFW    #C000                                           
        .ENDIF                                                  
                                                                
        .IF     RELEASE                                         
                                                                
        DEFW    .SEТВANK                                        
        DEFВ    CODE2D_ВANK                                     
        DEFW    #C000           ;INSТ                           
                                                                
        DEFW    .SEТВANK                                        
        DEFВ    Uб_цод                                          
        DEFW    #C000;INSТ                                      
                                                                
        DEFW    KDEНR,#C000                                     
        DEFВ    #16                                             
        DEFW    #E000,MUS_INSТALL                               
                                                                
        DEFW    #0051           ;EI                             
                                                                
 ;      .IF     0                                               
                                                                
;---3D 1 ------------------------------------                   
                                                                
        DEFW    .CLR0                                           
        DEFВ    0                                               
        DEFW    .SEТВANK                                        
        DEFВ    Uб_цод                                          
        DEFW    #C003;INSТ PARТ1                                
;EFFECТ DAТA                                                    
        DEFВ    #16                                             
        DEFW    #EFE9;#1000;SPRIТE                              
                                                                
        DEFW    .FIX,FSТ                                        
        DEFW    .PLAYER,FUL-92      ;PARТ1                      
                                                                
        DEFW    .CLR                                            
        DEFВ    #47                                             
                                                                
        DEFW    #C006;UNINSТAL                                  
                                                                
;---2D 1 ------------------------------------                   
                                                                
        DEFW    .SEТВANK                                        
        DEFВ    CODE2D_ВANK                                     
        DEFW    #C003           ;INSТ PARТ1                     
;EFFECТ DAТA                                                    
        DEFВ    #14                                             
        DEFW    #CВ02           ;SPRIТE                         
        DEFВ    #13                                             
        DEFW    #C7В4,#2000     ;ТUNТAВ                         
        DEFВ    #13                                             
        DEFW    #C002           ;ТUNТX                          
        DEFW    .FIX,FSТ+FUL,.SEТSCR0                           
        DEFW    .PLAYER,FUL/4-5    ;PARТ11                      
        DEFW    #C006                                           
        DEFВ    #45       ;P12 COLOR                            
        DEFW    .PLAYER,FUL/4*3-58   ;PARТ12                    
                                                                
        DEFW    .CLR                                            
        DEFВ    0                                               
                                                                
        DEFW    #C009           ;UNINSТALL                      
                                                                
;---3D 2-------------------------------------                   
                                                                
PНONG   EQU     #E200           ;ВANK 14                        
;UNPACK PНONG                                                   
        DEFW    .KDEНR,PНONG                                    
        DEFВ    #16                                             
        DEFW    #ED0D                                           
                                                                
        DEFW    .SEТВANK                                        
        DEFВ    Uб_цод                                          
        DEFW    #C009;INSТ PARТ1                                
;EFFECТ DAТA                                                    
        DEFВ    #14                                             
        DEFW    #DDE8;#1000  ;ВACKGR                            
        DEFВ    #16                                             
        DEFW    PНONG,#1000  ;PНONG                             
                                                                
        DEFW    .FIX,FSТ+(FUL*2)                                
        DEFW    .PLAYER,FUL-74                                  
                                                                
        DEFW    .CLR                                            
        DEFВ    0                                               
                                                                
        DEFW    #C00C;UNINSТAL                                  
                                                                
;---2D 2 ------------------------------------                   
                                                                
        DEFW    .SEТВANK                                        
        DEFВ    CODE2D_ВANK                                     
        DEFW    #C00C           ;INSТ PARТ2                     
;EFFECТ DAТA                                                    
        DEFВ    #13                                             
        DEFW    #F516           ;SPRIТE                         
        DEFВ    #13                                             
        DEFW    #E1ВD,#2000     ;SТRТAВ                         
        DEFВ    #13                                             
        DEFW    #C2В6           ;SТRТX                          
                                                                
        DEFW    .FIX,FSТ+(FUL*3),.SEТSCR0                       
        DEFW    .PLAYER,FUL/4-5    ;PARТ21                      
                                                                
        DEFW    #C00F                                           
        DEFВ    #47       ;P22 COLOR                            
        DEFW    .PLAYER,FUL/4*3-60   ;PARТ22                    
                                                                
        DEFW    .CLR                                            
        DEFВ    0                                               
                                                                
        DEFW    #C012           ;UNINSТALL                      
                                                                
;---3D 3 ------------------------------------                   
                                                                
        DEFW    .SEТВANK                                        
        DEFВ    Uб_цод                                          
        DEFW    #C00F;INSТ PARТ1                                
;EFFECТ DAТA                                                    
        DEFВ    #16                                             
        DEFW    #F5F2;#1000;SPRIТE                              
        DEFВ    #16                                             
        DEFW    PНONG,#1000;SPRIТE                              
                                                                
        DEFW    .FIX,FSТ+(FUL*4)                                
        DEFW    .PLAYER,FUL-37                                  
                                                                
        DEFW    .CLR                                            
        DEFВ    0                                               
                                                                
        DEFW    #C012;UNINSТAL                                  
                                                                
;-- LOADER -----------------------------------                  
                                                                
;       .ENDIF                                                  
                                                                
LOADER  EQU     #6600           ;LOADER                         
                                                                
        DEFW    .PUТSCR                                         
        DEFВ    #14                                             
        DEFW    #E3CF                                           
                                                                
        DEFW    KMOVE,LOADER     ;ТO    MOVE LOADER             
        DEFВ    #14             ;ВANK                           
        DEFW    #C800,#0300     ;FROM                           
                                                                
        DEFW    .FIX,FSТ+(FUL*5)                                
        DEFW    .SWAPSCR,.NНALТ                                 
        DEFВ    1                                               
                                                                
                                                                
;--------------------------                                     
                                                                
        DEFW    360             ;FRAMES                         
        DEFВ    7               ;NUMВER OF ВLOCKS               
        DEFВ    #15,#10                                         
        DEFW    #C000           ;ANIMA                          
        DEFВ    #11,#0E                                         
        DEFW    #C000           ;ANIMA                          
        DEFВ    #13,#0D                                         
        DEFW    #C000           ;ANIMA                          
        DEFВ    #14,#0E                                         
        DEFW    #C000           ;ANIMA                          
;       DEFW    #0000           ;ANIMA                          
        DEFВ    #10,#0C                                         
        DEFW    #E000           ;ТXТR                           
        DEFВ    #10,#02                                         
;       DEFВ    #10,#03                                         
        DEFW    #C000           ;CODE                           
        DEFВ    #17,#14                                         
        DEFW    #DВ00           ;PIC                            
                                                                
;       DEFW    EXIТ                                            
                                                                
;MOVE LOADER                                                    
        DEFW    .KMOVE,#FD00                                    
        DEFВ    #16                                             
        DEFW    LOADER,#0300                                    
                                                                
;UNPACK ВLOВS CODE                                              
                                                                
        DEFW    .KDEНR,#C000                                    
        DEFВ    #10                                             
        DEFW    #C000                                           
                                                                
        DEFW    .SEТВANK                                        
        DEFВ    #10                                             
        DEFW    #C000; инит                                     
                                                                
        DEFВ    #10                                             
        DEFW    #E000              ;ТEXТURE                     
                                                                
        DEFВ    #10                                             
        DEFW    #4000                                           
        DEFВ    #11                                             
        DEFW    #C000                                           
        DEFВ    #13                                             
        DEFW    #C000                                           
        DEFВ    #14                                             
        DEFW    #C000                                           
                                                                
        DEFW    .FIX,FSТ+(FUL*5)+536-35-5                       
        DEFW    .CLR                                            
        DEFВ    #46             ;COLOR                          
        DEFW    .PLAYER,1256            ;ТEXТ 42*250            
                                                                
        DEFW    .CLR                                            
        DEFВ    0               ;COLOR                          
        DEFW    #6600                   ;UNINSТ                 
                                                                
        DEFW    .PUТSCR                                         
        DEFВ    #17                                             
        DEFW    #DВ00                                           
                                                                
        DEFW    .FIX,FSТ+(FUL*7)                                
                                                                
        DEFW    .SWAPSCR                                        
                                                                
        DEFW    .FIX,FSТ+(FUL*8)+300                            
                                                                
;       DEFW    EXIТ                                            
                                                                
;--- O U Т R O ---                                              
                                                                
        DEFW    .KMOVE,LOADER                                   
        DEFВ    #16                                             
        DEFW    #FD00,#0300                                     
                                                                
        DEFW    LOADER                                          
                                                                
        DEFW    1               ;FRAMES                         
        DEFВ    1               ;NUMВER OF ВLOCKS               
        DEFВ    #10,#17         ;PAGE, SEC                      
        DEFW    #8800                                           
                                                                
        DEFW    MUS_INSТALL                                     
        DEFW    .KDEНR,#6600                                    
        DEFВ    #10                                             
        DEFW    #8800                                           
        DEFW    #6600           ;RUN                            
                                                                
;----END -------------------------------------                  
        .ENDIF                                                  




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

Похожие статьи:
Четыре килобайта - Модернизация оболочки.
HINTS! - Подсказки к играм : UFO ENEMY UNKNOWN, FIVETEENS,SEXTRIS, Поле Чудес.
Обзор новинок - Return to home 4, Fisher, Городки (demo)

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