pouët.net

ded^RMDA information 1176 glöps

• general:
• level: user
• personal:
• first name: Maxim
• last name: Muchkaev
• portals:
• zxdemo: profile
• demozoo: profile
• cdcs:
• cdc #1: ganzfeld by 3SC [web]
• cdc #2: In Color by Darklite [web] & Offence [web]
• cdc #3: Add Astra by Joker [web] & Arise
• cdc #4: Add Mortem by Arise & Joker [web]
• cdc #5: TAEDIUM VITAE by Dune & Alcatraz [web]

• demotool MS-Dos Commodore 64 Amstrad CPC ZX Spectrum MSX apultra
• https://github.com/emmanuel-marty/apultra
  
  GitHub
  
  apultra -- a new, opensource optimal compressor for the apLib format
  apultra is a command-line tool and a library that compresses bitstreams in the apLib format.
  
  The tool produces files that are 5 to 7% smaller on average than appack, the apLib compressor. Unlike the similar cap compressor, apultra can compress files larger than 64K (for files smaller than 64K, cap compresses 0.01% better on average).
  
  apultra is written in portable C. It is fully open-source under a liberal license. You can continue to use the regular apLib decompression libraries for your target environment. You can do whatever you like with it.
• rulezadded on the 2020-06-11 21:37:25
• 32b MS-Dos sizecore 32b by Desire [web]
• how much is the fish?
• rulezadded on the 2020-06-10 03:20:24
• 256b ZX Spectrum Snowflake by RMDA [web]
• Quote:

  nice intro :) ...some quick hack for 183 bytes, hope it helps somebody to dive into z80 sizecoding, havn't time dig it more, sorry ;)

  
  
  yep.
  and i know this.
  
  but also remember that @dpro code for the first time on Z80 for last 20 years :-)
• isokadded on the 2020-06-08 00:58:35
• 256b ZX Spectrum Snowflake by RMDA [web]
• source code:
  
  
  Code: device zxspectrum48 table equ #63 attr equ #5800 cycle equ 16 org #6214 ; decrease if add code (use cls ? #6214 : #6222) begin_file: ; self-documenting code start: push iy ; for returning to basic ld c, 3 loop5: ld b, cycle loop4: ld ix, fractal push bc call main ld a, c rra call nc, main ld a, (split+1) add 128 ; left or right fractal ld (split+1), a ld a, (grain+1) dec a small dec a ld (grain+1), a ld ixl, 4 call main ld a, c rra call c, main pop bc djnz loop4 xor a ld (small), a ld (flash), a ; disable blinking after first iteration dec c jr nz, loop5 pop iy ret ; end main: ld a,cycle loop_i: dec a ld iyl, a ld b,cycle loop_j: and %00010000 ; disable beeper - %00000000 out (#fe),a ld a, b dec a ld iyh, a flash rra jr nc, grain ld hl,attr ; ld hl,attr+#c3 ld de,attr + 1 ; ld de,attr+#c3 + 1 ld bc,768 - 1 ; ld bc,442 - 1 and %00000110 add %01000001 ; bright -> true ld (hl),a ldir grain: ld a, 15 and %00001111 out (#fe),a inc a ld b, a loop_k: push bc dec b ld a, b add ixl ld l, a ld h, table call coords ; (hl) -> de ld bc, de ; b = ky, c = kx ld a,iyh ; ld l, a ; call coords ; (hl) -> de ld a, d ; rla ; rla ; ld h, a ; ld a, e ; rla ; rla ; ld l, a ; add hl, bc ; ld bc, hl ; 4 * j + k ld a, iyl ; add ixl ; ld l, a ; ld h, table ; call coords ; (hl) -> de ld a, d ; rla ; rla ; rla ; rla ; add b ; ld d, a ; y -> b = 16 * i + 4 * j + k ld a, e ; rla ; rla ; rla ; rla ; add c ; split: add 246 ; ld e, a ; x -> c = 16 * i + 4 * j + k call point ; D - y, E - x pop bc djnz loop_k ld a, iyh inc a ld b, a djnz loop_j ld a, iyl cp 0 jr nz, loop_i ret point: LD A,#AF ; fast point: D - y, E - x SUB D LD D,A AND A RRA SCF RRA AND A RRA XOR D AND #F8 XOR D LD H,A LD A,E RLCA RLCA RLCA XOR D AND #C7 XOR D RLCA RLCA LD L,A LD A,E AND #07 LD B,A INC B LD A,#FE LOOP RRCA DJNZ LOOP LD B,#FF XOR B LD B,A LD A,(HL) XOR B LD (HL),A RET coords: ld a, (hl) and %00001111 ld d, a ld a, (hl) and %11110000 rra rra rra rra ld e, a ret org table * #100 ; table must start at #00 fractal db #22, #52, #55, #25 fracta2 db #31, #63, #46, #14 db #32, #53, #45, #24 db #33, #43, #44, #34 db #12, #26, #51, #65 end_file: len_file equ end_file-begin_file
• isokadded on the 2020-06-07 12:01:49
• demo Commodore 64 Untold Stories I by Pretzel Logic
• https://www.youtube.com/watch?v=tvyZv4YKXME
  
  YouTube
  
  ...
• rulezadded on the 2020-06-07 11:07:15
• 256b ZX Spectrum Snowflake by RMDA [web]
• https://www.youtube.com/watch?v=ht23qdQlp64
  
  YouTube 4K@50fps
  
  ...
• rulezadded on the 2020-06-07 10:51:43
• demo ZX Spectrum Dogma by Eternity Industry
• https://www.youtube.com/watch?v=EK--Zk7lONM
  
  YouTube 8K UHD @ 50 fps
  
  ...
• rulezadded on the 2020-06-04 00:19:43
• 256b MS-Dos Next Template Please by g0blinish
• thumb for HellMood!
• rulezadded on the 2020-05-29 23:14:18
• demo ZX Spectrum Fate trackmo by Omega Hackers Group
• https://www.youtube.com/watch?v=gx3hpqerrg0
  
  YouTube 8K @ 50fps
• rulezadded on the 2020-05-29 06:51:07
• 128b ZX Spectrum Halftone by g0blinish
• is it 48K ?
• rulezadded on the 2020-05-26 20:16:53