;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