        ORG #6000
;...................................
;. Вход:                           .
;.  A  - номер спрайта (0-255)     .
;. Выход:                          .
;.  HL - adress in TABLICA         .
;.  BC - width, high               .
;.  DE - adress in RAM             .
;.  A  - формат                    .
;...................................

Search: LD HL,TABLICA
        AND A
        JR Z,FirSpSch

        LD B,A
        LD DE,5
sloop   PUSH DE
        PUSH HL
        LD E,(HL)
        INC HL
        LD D,(HL)

        PUSH HL
        EX DE,HL
        LD DE,Sprites
        ADD HL,DE
        EX DE,HL
        POP HL

        LD (adrrsp+1),DE
        POP HL
        POP DE
        ADD HL,DE
        DJNZ sloop
adrrsp  LD DE,0
consrch PUSH HL
        INC HL
        INC HL
        LD B,(HL)
        INC HL
        LD C,(HL)
        INC HL
        LD A,(HL)
        POP HL
        RET 

FirSpSch:
        LD DE,Sprites
        JR consrch

         ORG #C000
Head     DS 4
All      DB 0
FloatTab DW TABLICA
Float    DW Sprites
teksp    DB 0
TABLICA  DS 1275; next(2),x(1),y(1),flag(1)
Sprites  NOP 


