initspr
        ld h,sprslices/256+1
        ld l,sprslices&0xff
initslices0
        ld (hl),sprites/256 ;spr gfx addr != 0 (will be in sp) ;fill all slices in init
        inc l
        jr nz,initslices0

        ld l,0
initsprcrc0
        ld h,sprites/256
        xor a
        ld b,SPRMEMSIZE/256
initsprcrc1
        xor (hl)
        inc h
        djnz initsprcrc1
        ld (hl),a
        inc l
        jr nz,initsprcrc0

        ld hl,wasdrawsprkernel
        ld de,drawsprkernel
        ld bc,drawsprkernelsize;8*8*3
        ldir
        ret

wasdrawsprkernel
        jp sprrr0hgt8
        jp sprrr0hgt7
        jp sprrr0hgt6
        jp sprrr0hgt5
        jp sprrr0hgt4
        jp sprrr0hgt3
        jp sprrr0hgt2
        jp sprrr0hgt1
        jp sprrr1hgt8
        jp sprrr1hgt7
        jp sprrr1hgt6
        jp sprrr1hgt5
        jp sprrr1hgt4
        jp sprrr1hgt3
        jp sprrr1hgt2
        jp sprrr1hgt1
        jp sprrr2hgt8
        jp sprrr2hgt7
        jp sprrr2hgt6
        jp sprrr2hgt5
        jp sprrr2hgt4
        jp sprrr2hgt3
        jp sprrr2hgt2
        jp sprrr2hgt1
        jp sprrr3hgt8
        jp sprrr3hgt7
        jp sprrr3hgt6
        jp sprrr3hgt5
        jp sprrr3hgt4
        jp sprrr3hgt3
        jp sprrr3hgt2
        jp sprrr3hgt1
        jp sprrr4hgt8
        jp sprrr4hgt7
        jp sprrr4hgt6
        jp sprrr4hgt5
        jp sprrr4hgt4
        jp sprrr4hgt3
        jp sprrr4hgt2
        jp sprrr4hgt1
        jp sprrr5hgt8
        jp sprrr5hgt7
        jp sprrr5hgt6
        jp sprrr5hgt5
        jp sprrr5hgt4
        jp sprrr5hgt3
        jp sprrr5hgt2
        jp sprrr5hgt1
        jp sprrr6hgt8
        jp sprrr6hgt7
        jp sprrr6hgt6
        jp sprrr6hgt5
        jp sprrr6hgt4
        jp sprrr6hgt3
        jp sprrr6hgt2
        jp sprrr6hgt1
        jp sprrr7hgt8
        jp sprrr7hgt7
        jp sprrr7hgt6
        jp sprrr7hgt5
        jp sprrr7hgt4
        jp sprrr7hgt3
        jp sprrr7hgt2
        jp sprrr7hgt1
       if DOTS
        jp dot0
        jp dot1
        jp dot2
        jp dot3
        jp dot4
        jp dot5
        jp dot6
        jp dot7
       endif
drawsprkernelsize=$-wasdrawsprkernel
