Ulohy na precvicovanie

5.
V pamäti programu od adresy 400H je uložená tabuľka celých kladných 8-bitových čísel ukončených
nulou. Zistite počet párnych čísel deliteľných 5 a uložte tento počet do pamäte dát na adresu 40H.

    CSEG at 400h
tab:    DB 4,6,7,55,9,47,100,88,44,13,27,0
        CSEG at 0h
start:  MOV dptr,#tab
dalsi:  MOVC A,@A+dptr
        JZ konec
        MOV B,#10
        div AB
        MOV A,B
        JNZ nie
        inc 40h
nie:    inc dptr
        clr A
        jmp dalsi
konec:  nop
end


6.
V pamäti programu od adresy TAB je uložená tabuľka celých kladných 8-bitových čísel ukončených nulou.
Zistite počet párnych čísel s 3. a 5. bitom rovným 0 a uložte tento počet do pamäte dát na adresu 40H.
Súčet takýchto čísel uložte od adresy 90H v nepriamo adresovateľnej časti pamäte.

janko segment code
        RSEG janko
tab:    DB 4, 8, 5, 9, 10, 100, 25, 20, 30, 38,77, 37, 45, 0
        cseg at 0h
start:  mov dptr,#tab
        mov R0,#90h
        mov R1,#91h
dalsi:  MOVC A, @A+DPTR
        JZ konec
        mov R3,A        //ulozenie cisla
        anl A,#00101001b
        jnz nie
        inc 40h         //zistujem pocet
        mov A,R3
        add A,@R0
        mov @R0,A
        mov A,@R1
        addc A,#0
        mov @R1,A
nie:    inc dptr
        clr A
        jmp dalsi
konec:  nop
END