;z80
;assembler
;zx-spectrum



        DI 
        XOR     A
        LD      HL,BUFER10
        LD      B,16
MSK1    LD      (HL),#FE
        INC     HL
        LD      (HL),A
        INC     HL
        LD      (HL),A
        INC     HL
        DJNZ    MSK1
        LD      IX,BUFER10
        LD      HL,BUFER10+48
        LD      DE,3
        LD      C,7
MSK3    LD      B,16
MSK2    LD      A,(IX+0)
        SLA     A
        LD      (HL),A
        INC     HL
        LD      (HL),0
        INC     HL
        CPL 
        LD      (HL),A
        INC     HL
        ADD     IX,DE
        DJNZ    MSK2
        DEC     C
        JR      NZ,MSK3
        LD      DE,SPRITE
        LD      HL,BUFER
        CALL    INIT_S
        LD      HL,BUFER4
        CALL    INIT_S
        LD      HL,BUFER6
        LD      B,COORY
INITS1  LD      A,(DE)
        LD      (HL),#FF
        INC     HL
        LD      (HL),A
        INC     HL
        INC     DE
        LD      A,(DE)
        LD      (HL),A
        INC     HL
        INC     DE
        DJNZ    INITS1
        LD      IX,BUFER
        LD      HL,BUFER2
        CALL    INIT_S1
        LD      IX,BUFER4
        LD      HL,BUFER5
        CALL    INIT_S1
        LD      IX,BUFER6
        LD      HL,BUFER7
        LD      B,7
LNITS2  PUSH    BC
        LD      B,COORY
LNITS3  LD      E,(IX+0)
        LD      D,(IX+1)
        LD      C,(IX+2)
        SCF 
        RL      C
        RL      D
        RL      E
        LD      (HL),E
        INC     HL
        LD      (HL),D
        INC     HL
        LD      (HL),C
        INC     HL
        INC     IX
        INC     IX
        INC     IX
        DJNZ    LNITS3
        POP     BC
        DJNZ    LNITS2


        DI 
        LD      HL,HI_TAB
        LD      D,159
        LD      E,0
        LD      BC,#0105
        XOR     A
        LD      (23824),A
        CALL    15635
        CALL    ANTI_X1
        JP      START

IN_STR  XOR     A
        LD      (COORDX),A
        LD      (COORDY),A
        LD      (FIRE+1),A
        LD      (GAME+1),A
        INC     A
        LD      (KEY+1),A
        LD      (CH_SPR1+1),A
        LD      A,40
        LD      (KOL_SP+1),A
        JP      VIEV
INST_I  LD      HL,BUF_I
        LD      DE,BUF_I+1
        LD      BC,60
        LD      (HL),B
        LDIR 
        LD      (HL),19
        LD      BC,39
        LDIR 
        INC     HL
        LD      A,(SEL_LEV)
        ADD     A,A
        ADD     A,A
        LD      E,A
        ADD     A,A
        ADD     A,A
        ADD     A,E
        LD      E,A
        LD      D,0
        ADD     HL,DE
        LD      DE,BUF_I+40
        LD      C,20
        LDIR 
        LD      HL,TAB_K1
        LD      DE,TAB_K
        LD      BC,12
        LDIR 
        LD      HL,TAB_I
        LD      DE,TAB_J
        LD      BC,12
        LDIR 
        RET 
SCOR_IN XOR     A
        LD      (MIN+1),A
        LD      (SEC+1),A
        LD      (HOUR+1),A
        INC     A
        LD      (TIME+1),A
        LD      (VIV+1),A
        LD      HL,0
        LD      (BUF_T1),HL
        LD      (BUF_T1+3),HL
        LD      (BUF_T1+6),HL
        LD      (SC_YA),HL
        LD      (SC_YA+1),HL
        LD      (SC_WR),HL
        LD      (SC_WR+1),HL
        LD      (S_WR2+1),HL
        LD      (S_YA2+1),HL
        LD      A,#0A
        LD      (BUF_T1+2),A
        LD      (BUF_T1+5),A
        RET 
