|
Munching Squares by g0blinish
[nfo]
|
||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
|
|||||||||||||
|
popularity : 52% |
|||||||||||||
alltime top: #19593 |
|
|||||||||||||
|
||||||||||||||
added on the 2012-07-09 18:23:56 by diver  |
||||||||||||||
popularity helper
comments
cool for 69b!
rulez added on the 2012-07-09 18:57:23 by diver
nice!
not bad for its size
ok
Nice intro, would be nice to see some more from the author.
Wonder if the author would use all 512b...
Дебильный Егонс наверняка и этот код спёр где-нибудь
Good effect for this size.
Great for size
a coder submitted up to 64 bytes!
good idea!
good idea!
Code:
;Munching Squares
;http://mathworld.wolfram.com/MunchingSquares.html
;http://en.wikipedia.org/wiki/Munching_squares
;
device zxspectrum128
org #8000
begin
out (254),a ; hope that a is 0 at this point
ld de, #4000,a,#aa,b,#18;40
m01:
ld(de),a:inc e
jr nz, m01
cpl
inc d
;dec b
djnz m01;jr nz, m01
m1
ei:halt:halt
;ld de,#5800
push de
ld bc,#181F
m2
ld a,b:xor e:and c;#1f
m4
cp #1f
m7
jr c,m3;c
m8
ld a,b;7*9;b
jr m6
m3
xor a
m6
ld(de),a
inc de
ld a,e:and c;#1f
jr nz,m2
djnz m2
ld a,(m4+1)
dec a:and c;#1f
ld(m4+1),a
jr nz,m5
ld a,(m7):xor #18:ld (m7),a
;ld a,(m8):xor 1:ld (m8),a
m5
pop de
jr m1
end
display /d,end-begin
savesna "ms.sna",begin
;savebin "mc.bin",begin,end-begin
;SAVEHOB "mc.$c","MunSq.C",begin,end-begin
;EMPTYTRD "mc.trd"
;SAVETRD "mc.trd","MunSq.C",begin,end-begin
well, really nice code! for this kind of work it is wonderful!
Multi-squares of Malevich-Krapivina! Mesmerizing, like a flame of fire... Put a big plus.
yes
submit changes
if this prod is a fake, some info is false or the download link is broken,
do not post about it in the comments, it will get lost.
instead, click here !