37-fill-block.asm

; Example that is used in following article:
;    Vývoj her a dem pro ZX Spectrum: vlastní vykreslovací subrutiny
;    https://www.root.cz/clanky/vyvoj-her-a-dem-pro-zx-spectrum-vlastni-vykreslovaci-subrutiny/
;
; This article is part of series:
;    "Vývoj pro slavné ZX Spectrum"
;    https://www.root.cz/serialy/vyvoj-pro-slavne-zx-spectrum/
;
; Repository:
;    https://github.com/tisnik/8bit-fame
;
; Example #37:
;    Fill-in the 8x8 block of pixels by constant pattern.
;
; This source code is available at:
;    https://github.com/tisnik/8bit-fame/blob/master/Speccy-asm/37-fill-block.asm



SCREEN_ADR      equ $4000
ENTRY_POINT     equ $8000

PIXELS          equ 256*192
SCANLINE_LENGTH equ 256/8
NEXT_SCANLINE   equ SCANLINE_LENGTH*8

PATTERN         equ $ff


	org ENTRY_POINT

start:
	ld hl, SCREEN_ADR     ; adresa pro zápis
	ld b, 8               ; počitadlo zapsaných bajtů
	ld de, NEXT_SCANLINE  ; offset pro přechod na další obrazový řádek

loop:
	ld (hl), PATTERN      ; zápis hodnoty na adresu (HL)
	add hl, de            ; posun na definici dalšího obrazového řádku
	djnz loop             ; vnitřní smyčka: blok s osmi zápisy
finish:
	ret                   ; ukončit program

end ENTRY_POINT