bintris_boardrender.asm

//----------------------------------------------------------
.macro drawboard(screen,colorbuf) {
	.const tsetbits = $62
	.const tbits = $63
	.const col = $64

	lda #BLACK
	sta col
	lda #WHITE
	sta col+1

	.for (var y = 0; y < 16; y++) {

	lda setbit+y
	sta tsetbits

	lda bits+y
	sta tbits

	ldx bitwidth
	stx tmpx
xloop:
	lda tbits
	and #1
	tax
	lda (col), x

	lsr tsetbits
	bcc notset
	lda #DARK_GRAY // background
notset:

	lsr tbits
	ldx tmpx
	sta colorbuf+[(y+1)*40], x

	dec tmpx
	bne xloop
	}
}