pouët.net

bulb@ information 112 glöps

• general:
• level: banned
• personal:

• 64k Windows qq by Quite
• 
  travel in a stomach
• sucksadded on the 2012-07-11 13:36:15
• 128b ZX Spectrum Munching Squares by g0blinish
• a coder submitted up to 64 bytes!
  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
• rulezadded on the 2012-07-11 06:10:06