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

Приветствую тебя, глубокоуважаемый 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.