D7 D6 D5 D4 D3 D2 D1 D0
I  i  G  R  B  g  r  b

    org #8000
    ld sp,#5fff     ;set top of stack
    ld a,4 
    out (254),a     ;set green (4) border color
    ld bc,#7ffd
    ld a,#14
    out (c),a     ;set 4 bank of ram for 16colors mode
         ;IiGRBgrb
    ld a,%00100100     ;set green color (without bright) for filling
    ld hl,#c000
    ld de,#c001
    ld bc,#17ff
    ld (hl),a
    ldir     ;clear first part of 16c screen
    ld hl,#4000
    ld de,#4001
    ld bc,#17ff
    ld (hl),a
    ldir     ;clear second part of 16c screen
    ld hl,#e000
    ld de,#e001
    ld bc,#17ff
    ld (hl),a
    ldir    ;clear third part of 16c screen
    ld hl,#6000
    ld de,#6001
    ld bc,#17ff
    ld (hl),a
    ldir    ;clear fourth part of 16c screen
    ld bc,#eff7
    ld a,%00000001
    out (c),a    ;enable 16c mode
    ld hl,sprite    ;hl - address of sprite in 16c format
    ld bc,#3808    ;bc - coords in pixels for place #yyxx ( eight-fold )
    call showSpr    ;call show sprite function
    jr $    ;halt loop
;show sprite function
showSpr    push hl    ;calculate start of screens for place sprite 
ld    a,b    ;coords into screen address
    and a
    rra
    scf
    rra
    and a
    rra
    xor b
    and #F8
    xor b
    and %10111111    ;- #40
    ld h,a
    ld a,c
    rlca
    rlca
    rlca
    xor b
    and %11000111    ;%11000111     ;#C7
    xor b
    rlca
    rlca
    ld l,a
    ld a,h
    push af
    or #c0
    ld h,a
    ld (addr1+1),hl
    pop af
    push af
    or #40
    ld h,a
    ld (addr2+1),hl
    pop af
    push af
    or #e0
    ld h,a
    ld (addr3+1),hl
    pop af
    or #60
    ld h,a
    ld (addr4+1),hl
    
    pop hl
    ld a,(hl)
    ld c,a
    inc hl
    ld a,(hl)
    ld b,a
    inc hl
loop_1    push bc     ;loop a place sprite line by line
    
addr1    ld de,#c000     ;first line
    ld b,0
    push de,bc
    ldir 
    pop bc,de
    call down_de
    ld (addr1+1),de
addr2    ld de,#4000     ;second line
    push de,bc
    ldir
    pop bc,de
    call down_de
    ld (addr2+1),de
addr3    ld de,#e000     ;third line
    push de,bc
    ldir
    pop bc,de
    call down_de
    ld (addr3+1),de
addr4    ld de,#6000     ;fourth line
    push de,bc
    ldir
    pop bc,de
    call down_de
    ld (addr4+1),de
    pop bc
    djnz loop_1
    ret
down_de    inc d     ;get next address for screen line
    ld a,d
    and 7
    ret nz
    ld a,e
    sub #e0
    ld e,a
    ret nc
    ld a,d
    sub 8
    ld d,a
    ret
sprite    incbin «ready.spr»     ;sprite bin in 16c format