ZXNet эхоконференция «code.zx»


тема: chunky



от: Aleksey Malov
кому: All
дата: 07 Aug 1999
Приветствую тебя, глубокоуважаемый All.
Вот процедурку распаковки чанков на 1 килобайт для такого
pop hl:ld c,(hl)
dup 3
ld a,(bc)
ld (de),a
inc d
inc b
edup
ld a,(bc)
ld (de),a
inc e
pop hl:ld c,(hl)
dup 3
ld a,(bc)
ld (de),a
dec d
dec b
edup
ld a,(bc)
ld (de),a
inc e

вывода написал. Может, кому сгодится...


╔═ chunkys .C ══ ═══ ══ ═ ═

;расчет образов chunk'ов
;на входе в d-ст. байт адреса расположения chunks
_ch_clt ld e,0
i_chun0 ld a,e
and 15
add a,a
ld c,a
ld b,0
ld hl,c_obraz
add hl,bc
ld a,(hl)
inc hl
ld h,(hl)
ld l,a
ld b,4
i_chun2 xor a
ld c,4
i_chun3 add hl,hl
rra
dec c
jr nz,i_chun3
ld (de),a
inc d
djnz i_chun2
ld a,e
and #f0
rrca
rrca
rrca
rrca
ld l,a
ld b,4
i_chun4 dec d
ld h,d
ld a,(hl)
rrca
rrca
rrca
rrca
and 15
ld c,a
ld a,(de)
or c
ld (de),a
djnz i_chun4
inc e
jr nz,i_chun0
ret
c_obraz dw #0000,#8020,#a020,#a0a0
dw #a4a0,#a4a1,#a5a1,#a5a5
dw #b5a5,#e5b5,#f5b5,#f5f5
dw #fdf5,#fdf7,#fff7,#ffff

;длина вместе с таблицей - 92 байта

═ ═ ══ ═══ ═══════════╝


C U l8r. Virtual/Brainwave of X-Project.




Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
Хаккеры - Компьютерные пираты.
О разном - "На какое party поедем товарищи?".
Список BBS - График работы BBS'oк. Открылись новые станции.
Напоследок - Авторы.
Игры - ARKANOID 2

В этот день...   29 марта