zx_colour.asm
bitfixer_bitfixer/dg/z88dk/libsrc/zx81/chroma81/zx_colour.asm
; 12.2014 stefano

; void __FASTCALL__ zx_colour(uchar colour)

PUBLIC zx_colour
EXTERN HRG_LineStart

.zx_colour
		ld 	a,l
IF FORlambda
   ld hl,8319
ELSE
   ld hl,HRG_LineStart+2+32768
ENDIF

		ld	c,24
.rowloop
		ld	b,32
.rowattr
		ld	(hl),a
		inc hl
		djnz rowattr
IF FORlambda
		inc	hl
ELSE
		inc	hl
		inc	hl
		inc	hl
ENDIF
		dec c
		jr  nz,rowloop
		ret
