SerzhSoft information 289 glöps
- 256b ZX Spectrum Snowflake by RMDA [web]
- nice intro :) ...some quick hack for 183 bytes, hope it helps somebody to dive into z80 sizecoding, havn't time dig it more, sorry ;)
Code:device zxspectrum48 attr equ #5800 cycle equ 16 org #805d ; 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 ld ixl,#ff call main ; ld a, c ; rra call nc, main ; ld a, (split+1) ld hl,split+1 ld a,(hl) add 128 ; left or right fractal ld (hl),a ; ld (split+1), a ; ld a, (grain+1) ; ld hl,grain+1 ld l,0+(grain+1)%256 dec (hl) ;a small dec (hl) ;a ;-------changing command ; ld (grain+1), a ; ld ixl, 4 ld ixl,#03 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 coords: ex de,hl ld l,a ld h,table ld a, (hl) and %00001111 ; ld d, a ; xor (hl) ; ld a, (hl) ; and %11110000 ld l,(hl) ld h,a xor l rra rra rra rra ; ld e, a ; ex de,hl ld l,a ret main: ; ld a,cycle exx ld c,cycle loop_i: ; dec a ld b,cycle ; ld iyl, a ; ld b,cycle loop_j: and %00010000 ; disable beeper - %00000000 out (#fe),a ; ld a, b ; dec a dec b ld a,b exx ; ld iyh, a flash rra ;-------changing command 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 ld b,#03 ;but be care with printer buffer 23296/#5b00 and %00000110 add %01000001 ; bright -> true ld (hl),a ldir ;can do -2b, but maybe some slow: ; ld h,#5b ; ld (hl),a ; ld c,l ;c=0 after exit ; dec hl ; bit 3,h ; jr nz,$-5 ;c=0 grain: ld a, 15 ;-------changing value 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 ; exx ld a,b exx ; 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 ; add hl,hl add hl,hl add hl,de ; ld bc, hl ; 4 * j + k ; ld a, iyl ; ; add ixl ; exx ld a,c exx add a,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 ; add hl,hl add hl,hl add hl,hl add hl,hl add hl,de ; ld d,h ld a,l split: add 246 ;-------changing value ; ld e, a ; x -> c = 16 * i + 4 * j + k ld c,a ; call point ; D - y, E - x ;point: LD A,#AF ; fast point: D - y, E - x ; SUB D sub h ; ld a,h ;if want Y-mirror and save 2 bytes, del [ld a,#af:sub h] call #22b0 ; 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 a,#01 rrca djnz $-1 xor (hl) LD (HL),A ; RET pop bc djnz loop_k ; ld a, iyh ; inc a ; ld b, a exx inc b djnz loop_j ; ld a, iyl ; cp 0 dec c jr nz, loop_i exx ld a,c rra ret if $/256*256<$ __LOST equ $/256*256+256-$ ds __LOST display "__LOST: ",/d,__LOST display "NEED ORG: ",/h,begin_file+__LOST endif table equ $/256 ; 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 display "filesize: ",/d,len_file SAVESNA "snowfl.sna",start SAVEBIN "snowfl.bin",begin_file,len_file - rulezadded on the 2020-06-07 23:06:23
- 1k ZX Spectrum Xeniusaurus Rex by Joker [web]
- very like it :)
- rulezadded on the 2019-09-01 18:07:54
- 64b MS-Dos rp by g0blinish
- sshot like
- rulezadded on the 2019-06-04 10:26:41
- 128b MS-Dos Rotterdam'92 speaker membrane penetration by Kuemmel [web]
- why not :)
- rulezadded on the 2019-06-04 10:26:04
- 128b ZX Spectrum Hello,Outline! by g0blinish
- lol :) +got funny pic after speed-up buton in unreal emul
- rulezadded on the 2019-06-04 10:25:06
- 128b MS-Dos Dracarys by Desire [web]
- yea, nice hires ))
- rulezadded on the 2019-06-04 10:22:55
- 128b ZX Spectrum carcharodon minor by HOOY-PROGRAM [web]
- funny [fckn squares] ;) ...patent it as ringtone :)))
- rulezadded on the 2019-06-04 10:21:35
- demo invitation ZX Spectrum Universal Invitation by sibCrew
- :))) ... + music by Andy Fer!
- rulezadded on the 2019-05-04 11:11:26
- demo Windows Aurora 05 by Cocoon [web]
- b/w attack! :)
- rulezadded on the 2019-05-04 10:56:17
- demo Amiga AGA Knarkzilla by Ephidrena & Loonies [web] & kvasigen [web]
- atmo!
- rulezadded on the 2019-05-04 10:53:21
account created on the 2001-08-17 19:58:43