; Print-shop Style THINKING

; by Vince `deater` Weaver <vince@deater.net>

.include "zp.inc"
.include "hardware.inc"

COL	= $F0
XSTART	= $F1
XSTOP	= $F2
YSTART	= $F3
YSTOP	= $F4

thinking:

	jsr	SETGR		; set lo-res 40x40 mode
				; A=$D0 afterward


	; COL value doesn't matter?

	lda	#0
	sta	YSTART
	sta	XSTART

	lda	#20
	sta	YSTOP
	asl
	sta	XSTOP

box_loop:


	ldx	YSTART

yloop:
	txa
	jsr	GBASCALC	; take Y-coord/2 in A, put address in GBASL/H ( a trashed, C clear)

	lda	COL
	and	#$7
	tay
	lda	color_lookup,Y

	ldy	XSTART
xloop:
	sta	(GBASL),Y
	iny
	cpy	XSTOP
	bne	xloop

	inx
	cpx	YSTOP
	bne	yloop

	inc	COL

	inc	XSTART
	inc	XSTART
	dec	XSTOP
	dec	XSTOP

	inc	YSTART
	dec	YSTOP
	lda	YSTOP
	cmp	#10
	bne	box_loop



;0         1         2         3        3
;0123456789012345678901234567890123456789
; ***** *  * * *   * *   * * *   *  ***
;   *   *  * * **  * *  *  * **  * *   *
;   *   *  * * **  * * *   * **  * *
;   *   **** * * * * **    * * * * *
;   *   *  * * *  ** * *   * *  ** *  **
;   *   *  * * *  ** *  *  * *  ** *   *
;   *   *  * * *   * *   * * *   *  ****
;
; 7*5 bytes = 35 bytes

thinking_loop:

end:
	jmp	end


color_lookup:
	; magenta, pink, orange, yellow, lgreen, aqua, mblue, lblue
.byte	$33,$BB,$99,$DD,$CC,$EE,$66,$77