;export _draw_tile
;export _draw_image
export _select_image
export _draw_tile_key
export _color_key
macro MDrawTile
ld bc,-16384+40
dup 8
ld a,(de) ;#4xxx
ld (hl),a
inc e
set 5,h
ld a,(de) ;#6xxx
ld (hl),a
inc e
set 7,h
res 6,h
ld a,(de) ;#axxx
ld (hl),a
inc e
res 5,h
ld a,(de) ;#8xxx
ld (hl),a
inc e
add hl,bc
edup
org $-2
endm
macro MDrawTileGetAddrs
ld hl,(tileOffset)
add hl,de
ex de,hl
ld h,high scrTable
ld l,b
ld a,c
add a,(hl)
set 5,l
ld h,(hl)
ld l,a
ifdef EVO
ld a,d
srl a
add a,low ~GFX_PAGE
ld bc,MEM_SLOT0
cpl
out (c),a
else
ld a,d
srl a
add a,low (GFX_PAGE^127)
ld bc,MEM_SLOT0
xor 127
out (c),a
endif
ld a,e
rrca
rrca
rrca
ld e,a
and 31
bit 0,d
jr z,$+4
or #20
ld d,a
ld a,e
and #e0
ld e,a
endm
macro MCopyTileColumnFromBuf
ld bc,40
dup 8
ld a,(de)
ld (hl),a
inc e
add hl,bc
edup
endm
macro MCopyTileColumnToBuf
ld bc,40
dup 8
ld a,(hl)
ld (de),a
inc e
add hl,bc
edup
endm
;ъюяшЁютрэшх Єрщыр шч Єхэхтюую ¤ъЁрэр т сєЇхЁ ёяЁрщЄют
;d=x,e=y
updateOneTileToBuffer
exa
push de
ld a,d ;яюыєўшЄ№ шч de рфЁхё т ¤ъЁрэх
ld h,high scrTable
ld l,e
add a,(hl)
set 5,l
ld h,(hl)
ld l,a
sla e
sla e
sla e
ld bc,MEM_SLOT0
ld a,SPBUF_PAGE0
out (c),a
MCopyTileColumnToBuf ;ёЄюысхЎ 0
org $-2
ld a,e
sub 7
ld e,a
ld bc,-7*40+16384
add hl,bc
ld bc,MEM_SLOT0
ld a,SPBUF_PAGE1
out (c),a
MCopyTileColumnToBuf ;ёЄюысхЎ 1
org $-2
ld a,e
sub 7
ld e,a
ld bc,-(7*40+8192)
add hl,bc
ld bc,MEM_SLOT0
ld a,SPBUF_PAGE2
out (c),a
MCopyTileColumnToBuf ;ёЄюысхЎ 2
org $-2
ld a,e
sub 7
ld e,a
ld bc,-7*40+16384
add hl,bc
ld bc,MEM_SLOT0
ld a,SPBUF_PAGE3
out (c),a
MCopyTileColumnToBuf ;ёЄюысхЎ 3
org $-2
pop de
exa
ret
;ъюяшЁютрэшх Єрщыр шч сєЇхЁр ёяЁрщЄр эр Єхэхтющ ¤ъЁрэ
;d=x,e=y
updateOneTileFromBuffer
exa
push de
ld a,d ;яюыєўшЄ№ шч de рфЁхё т ¤ъЁрэх
ld h,high scrTable
ld l,e
add a,(hl)
set 5,l
ld h,(hl)
ld l,a
sla e
sla e
sla e
ld bc,MEM_SLOT0
ld a,SPBUF_PAGE0
out (c),a
MCopyTileColumnFromBuf ;ёЄюысхЎ 0
org $-2
ld a,e
sub 7
ld e,a
ld bc,-7*40+16384
add hl,bc
ld bc,MEM_SLOT0
ld a,SPBUF_PAGE1
out (c),a
MCopyTileColumnFromBuf ;ёЄюысхЎ 1
org $-2
ld a,e
sub 7
ld e,a
ld bc,-(7*40+8192)
add hl,bc
ld bc,MEM_SLOT0
ld a,SPBUF_PAGE2
out (c),a
MCopyTileColumnFromBuf ;ёЄюысхЎ 2
org $-2
ld a,e
sub 7
ld e,a
ld bc,-7*40+16384
add hl,bc
ld bc,MEM_SLOT0
ld a,SPBUF_PAGE3
out (c),a
MCopyTileColumnFromBuf ;ёЄюысхЎ 3
org $-2
pop de
exa
ret
updateTilesToBuffer
ld a,(tileUpdate)
or a
ret z
ld hl,tileUpdateMap
ld e,0 ;y
.clearUpdMap0
ld d,0 ;x
.clearUpdMap1
ld a,(hl)
or a
jp nz,.rowChange
ld a,d
add a,8
ld d,a
jp .noRowChange
.rowChange
push hl
dup 8
rra
call c,updateOneTileToBuffer
inc d
edup
pop hl
ld a,d
.noRowChange
inc l
cp 40
jp nz,.clearUpdMap1
inc l
inc l
inc l
inc e
ld a,e
cp 25
jp nz,.clearUpdMap0
ret
updateTilesFromBuffer
ld a,(tileUpdate)
or a
ret z
xor a
ld (tileUpdate),a
ld hl,tileUpdateMap
ld e,0 ;y
.clearUpdMap0
ld d,0 ;x
.clearUpdMap1
ld a,(hl)
or a
jp nz,.rowChange
ld a,d
add a,8
ld d,a
jp .noRowChange
.rowChange
push hl
dup 8
rra
call c,updateOneTileFromBuffer
inc d
edup
pop hl
ld (hl),0
ld a,d
.noRowChange
inc l
cp 40
jp nz,.clearUpdMap1
inc l
inc l
inc l
inc e
ld a,e
cp 25
jp nz,.clearUpdMap0
ret
;т√сюЁ шчюсЁрцхэш фы юЄЁшёютъш Єрщыют
_select_image
ld h,0
add hl,hl
add hl,hl
ld bc,IMG_LIST
add hl,bc
ld bc,MEM_SLOT0
ld a,PAL_PAGE
out (c),a
ld e,(hl) ;tile
inc l
ld d,(hl)
ld (tileOffset),de
ld a,CC_PAGE0
out (c),a
ret
;єёЄрэютър Їырур юсэютыхэш Єрщыр
;c=X, b=y, эх ьхэ хЄ bc ш de
setTileUpdateMapF
ld (tileUpdate),a ;A тёхуфр эх 0 эр тїюфх
setTileUpdateMap
ld h,high tileUpdateXTable
ld l,c
ld a,(hl)
set 6,l
exa
ld a,b
add a,a
add a,a
add a,a
add a,(hl)
ld l,a
ld h,high tileUpdateMap
exa
or (hl)
ld (hl),a
ret
;c=X, b=Y, de=tile
;ъююЁфшэрЄ√ т Єрщырї
_draw_tile
;---------------
ld a,(_memSlot2)
push af
;---------------
ld a,(spritesActive)
or a
call nz,setTileUpdateMapF
MDrawTileGetAddrs
MSetShadowScreen
MDrawTile
MRestoreMemMap012
;-----------------
pop af
ld (_memSlot2),a
ld bc,MEM_SLOT2
out (c),a
;-----------------
ret
;єёЄрэютър яЁючЁрўэюую ЎтхЄр фы draw_tile_key
_color_key
ld b,high colorMaskTable
ld a,(bc)
ld (_draw_tile_key.keyAB0),a
ld (_draw_tile_key.keyAB1),a
ld (_draw_tile_key.keyAB2),a
ld (_draw_tile_key.keyAB3),a
set 4,c
ld a,(bc)
ld (_draw_tile_key.keyA0),a
ld (_draw_tile_key.keyA1),a
ld (_draw_tile_key.keyA2),a
ld (_draw_tile_key.keyA3),a
set 5,c
ld a,(bc)
ld (_draw_tile_key.keyB0),a
ld (_draw_tile_key.keyB1),a
ld (_draw_tile_key.keyB2),a
ld (_draw_tile_key.keyB3),a
ret
;юЄЁшёютър Єрщыр ё яЁючЁрўэ√ьш яшъёхы ьш
;c=X, b=Y, de=tile
;ъююЁфшэрЄ√ т Єрщырї
_draw_tile_key
;---------------
ld a,(_memSlot2)
push af
;---------------
ld a,(spritesActive)
or a
call nz,setTileUpdateMapF
MDrawTileGetAddrs
MSetShadowScreen
ld a,8
.loop
exa
.column0
ld a,(de)
.keyAB0=$+1
cp 0
jr z,.column0done
and %01000111
.keyA0=$+1
cp 0
jr z,.skipA0
ld c,a
ld a,(hl)
and %10111000
or c
ld (hl),a
.skipA0
ld a,(de)
and %10111000
.keyB0=$+1
cp 0
jr z,.column0done
ld c,a
ld a,(hl)
and %01000111
or c
ld (hl),a
.column0done
inc e
set 5,h
.column1
ld a,(de)
.keyAB1=$+1
cp 0
jr z,.column1done
and %01000111
.keyA1=$+1
cp 0
jr z,.skipA1
ld c,a
ld a,(hl)
and %10111000
or c
ld (hl),a
.skipA1
ld a,(de)
and %10111000
.keyB1=$+1
cp 0
jr z,.column1done
ld c,a
ld a,(hl)
and %01000111
or c
ld (hl),a
.column1done
inc e
res 6,h
set 7,h
.column2
ld a,(de)
.keyAB2=$+1
cp 0
jr z,.column2done
and %01000111
.keyA2=$+1
cp 0
jr z,.skipA2
ld c,a
ld a,(hl)
and %10111000
or c
ld (hl),a
.skipA2
ld a,(de)
and %10111000
.keyB2=$+1
cp 0
jr z,.column2done
ld c,a
ld a,(hl)
and %01000111
or c
ld (hl),a
.column2done
inc e
res 5,h
.column3
ld a,(de)
.keyAB3=$+1
cp 0
jr z,.column3done
and %01000111
.keyA3=$+1
cp 0
jr z,.skipA3
ld c,a
ld a,(hl)
and %10111000
or c
ld (hl),a
.skipA3
ld a,(de)
and %10111000
.keyB3=$+1
cp 0
jr z,.column3done
ld c,a
ld a,(hl)
and %01000111
or c
ld (hl),a
.column3done
inc e
ld bc,-16384+40
add hl,bc
exa
dec a
jp nz,.loop
MRestoreMemMap012
;-----------------
pop af
ld (_memSlot2),a
ld bc,MEM_SLOT2
out (c),a
;-----------------
ret
;юЄЁшёютър шчюсЁрцхэш Ўхышъюь
;¤Єр яЁюЎхфєЁр с√ёЄЁхх ўхь т√тюф юЄфхы№э√ї Єрщыют
;a=id, c=X, b=Y
;яЁш cy=1:
;d=begx, e=width
_draw_image
;---------------
;ld a,(_memSlot2)
;push af
;-------------------------
push bc
push af
ld h,0
ld l,a
add hl,hl
add hl,hl
ld bc,IMG_LIST
add hl,bc
ld bc,MEM_SLOT0
ld a,PAL_PAGE
out (c),a
pop af
jr nc,_draw_image_noextra
ld c,e ;width
ld a,d ;begx
add a,(hl) ;tileLSB
ld e,a
inc l
adc a,(hl) ;tileHSB
sub e
ld d,a
inc l
ld a,(hl) ;width
inc l
ld b,(hl) ;height
ld l,a
jp _draw_image_noextraq
_draw_image_noextra
ld e,(hl) ;tile
inc l
ld d,(hl)
inc l
ld c,(hl) ;width
inc l
ld b,(hl) ;height
ld l,c
_draw_image_noextraq
ld h,0
ld (.wdt),hl
pop hl
ld a,l
cp 40
jp nc,.done
ld a,h
cp 25
jp nc,.done
ld a,c
add a,l
cp 40
jr c,.noHClip
ld a,40
sub l
ld c,a
.noHClip
ld a,c
or a
jp z,.done
ld a,b
add a,h
cp 25
jr c,.noVClip
ld a,25
sub h
ld b,a
.noVClip
ld a,b
or a
jp z,.done
push bc
call setShadowScreen
pop bc
push bc ;ЁрчьхЁ
push hl ;ъююЁфшэрЄ√
ld a,l
ld l,h
ld h,high scrTable
add a,(hl)
set 5,l
ld h,(hl)
ld l,a
.loopv
push bc
push hl
push de
ld a,c
exa
ifdef EVO
ld a,d
srl a
add a,low ~GFX_PAGE
cpl
ld (.page),a
ld bc,MEM_SLOT0
out (c),a
else
ld a,d
srl a
add a,low (GFX_PAGE^127)
xor 127
ld (.page),a
ld bc,MEM_SLOT0
out (c),a
endif
ld a,e
rrca
rrca
rrca
ld e,a
and 31
bit 0,d
jr z,$+4
or #20
ld d,a
ld a,e
and #e0
ld e,a
exa
.looph
exa
MDrawTile
inc e
jp nz,.noPageChange
inc d
bit 6,d
jp z,.noPageChange
res 6,d
.page=$+1
ld a,0
dec a
ld bc,MEM_SLOT0
out (c),a
ld (.page),a
.noPageChange
ld bc,-(16384+7*40-1)
add hl,bc
exa
dec a
jp nz,.looph
pop de
.wdt=$+1
ld hl,0
add hl,de
ex de,hl
pop hl
ld bc,8*40
add hl,bc
pop bc
dec b
jp nz,.loopv
ld bc,MEM_SLOT1
ld a,CC_PAGE1
ld (_memSlot1),a
out (c),a
ld b,high MEM_SLOT2
ld a,CC_PAGE2
ld (_memSlot2),a
out (c),a
pop bc ;ъююЁфшэрЄ√ эрўрыр шчюсЁрцхэш B=y C=x
pop hl ;ЁрчьхЁ√ т√тюфшьющ ўрёЄш
;хёыш ёяЁрщЄ√ ЁрчЁх°хэ√, яюьхўрхь т√тхфхээ√х Єрщы√ т ърЁЄх шчьхэшт°шїё Єрщыют
ld a,(spritesActive)
or a
jr z,.done
ld (tileUpdate),a
.setUpd1
push bc
push hl
.setUpd2
push hl
call setTileUpdateMap
pop hl
inc c
dec l
jp nz,.setUpd2
pop hl
pop bc
inc b
dec h
jp nz,.setUpd1
.done
ld bc,MEM_SLOT0
ld a,CC_PAGE0
out (c),a
;----------------
;pop af
;ld (_memSlot2),a
;ld bc,MEM_SLOT2
;out (c),a
;----------------
ret