; test šachovnice

sirka: .equ 0100h
vyska: .equ 0101h
   
   .org 0
    lxi h,sirka
    mvi   m,06h      ;šířka
    inx   h
    mvi   m,20h      ;výška
   lxi   h,49152      ;adresa obrazu
    mvi   b,255      ;počet řádek
    mvi   c,127      ;barva pole
loop256:
   mvi   d,08h      ;počet šířek na řádce (výsledek musí být 48)

sirka_w:
   mov   m,c         ;vyplnění adresy obrazu
   inx   h         ;zvýšení adresy obrazu
    push h
   lxi   h,sirka
    dcr   m
   pop h
   jnz sirka_w      ;skok šířka čtverce
   push h
    lxi h,sirka
    mvi   m,06h
   pop h
   mov a,c
    cma            ;potřebuji negovat hodnotu
    mov c,a
    dcr d         ;snížení o jednu
    jnz sirka_w

   mov   a,l         ;vypočítání adresy řádku obrazu
    adi 16
    mov l,a
    jnc   loop
    inr h
loop:
   push h 
   lxi   h,vyska      ;kontola výšky čtverce
    dcr m
    pop h
   jz   zmena
   dcr b
   jnz   loop256
   ret
zmena:
    mov a,c
    cma            ;potřebuji negovat hodnotu
    mov c,a
   push h
    lxi h,vyska
    mvi   m,20h
   pop h
    dcr b
   jnz   loop256
   
    .end

farba   =       #7F

start   ld      hl,#C000        ;; HL = ukazovatel do videoramky
        ld      a,farba         ;; A = farba pre vyplnene stvorceky
        ld      e,#10           ;; Konstana pre posun adresy videoramky
loop11  ld      b,#20           ;; Vyska stvorcekov v pixelovych riadkoch
loop22  ld      c,#08           ;; Pocet stvorcekov vo vodorovnom smere
loop33  ld      d,#06           ;; Sirka stvorcekov v sesticiach pixelov
loop44  ld      (hl),a          ;; Vyfarbime 6 pixelov naraz
        inc     l               ;; Posun na dalsi bajt videoramky
        dec     d               ;; Vyfarbili sme uz celu sirku stvorceka ?
        jp      nz,loop44       ;; Ak nie tak pokracujeme v slucke
        xor     farba           ;; Invertujeme farbu v A
        dec     c               ;; Urobili sme uz vsetky stvorceky na sirku ?
        jp      nz,loop33       ;; Ak nie tak pokracujeme v slucke
        add     hl,de           ;; Posun adresy na dalsi pixelovy riadok
        ret     c               ;; Ak sme uz vyfarbili celu videoram, tak koniec
        dec     b               ;; Uz su vsetky riadky v ramci jedneho stvorceka ?
        jp      nz,loop22       ;; Ak nie tak pokracujeme v slucke
        xor     farba           ;; Zase invertujeme farbu v A
        jp      loop11          ;; A opakujeme pre dalsi riadok so stvorcekmi.

farb    =       #7F

start   ld      hl,#0000        ;; Ako prve si musime odpametat adresu zasobnika
        add     hl,sp           ;; pretoze pocas prace budeme pouzivat register SP
        ld      (koniec+1),hl
        ld      hl,#C030        ;; Koniec prveho pixeloveho riadku vo videoramke
        ld      bc,#0000        ;; BC nastavime na farbu tmavych stvorcekov
        ld      de,farb<<8|farb ;; DE nastavime na farbu svetlych stvorcekov
loop    ld      a,#20           ;; Vyska stvorcekov v pixelovych riadkoch
fill    ld      sp,hl           ;; Zasobnik nastavime na koniec pixeloveho riadku
        DUP     #04             ;; Seriou PUSH:PUSH... vykreslime pixelovy riadok
        DUP     #03
        push    bc
        EDUP
        DUP     #03
        push    de
        EDUP
        EDUP
        ld      sp,#40          ;; Adresu videoramky posunieme
        add     hl,sp           ;; na koniec dalsieho pixeloveho riadku
        jp      c,koniec        ;; Ak je uz koniec videoramky, tak bude koniec rutinky
        dec     a               ;; Uz sme nakreslili vsetky pixelove riadky stvorceka ?
        jp      nz,fill         ;; Ak nie tak pokracujeme v slucke
        ld      a,b             ;; Vymena obsahu registrov BC a DE
        ld      b,e             ;; tym padom sa nam farby stvorcekov vymenia
        ld      c,e
        ld      d,a
        ld      e,a
        jp      loop            ;; A pokracujeme vo vykonavani rutinky.

koniec  ld      sp,#5555        ;; Na zaver rutinky este obnovime zasobnik
        ret                     ;; aby sme sa vedeli korektne vratit nazad.