assembler pomoc s prevodom

org 1000

dcx sp ; inicializacia zasobnika (0FFFFh)

lxi h,text1
call putstr ; vypis text1

mvi b,0
mvi d,0
mvi e,0 ; vynuluj registre b,d,e

zisti:
call getchar
cpi 10
jz koniec_vstupu
cpi 13 ; bol stlaceny enter?
jz koniec_vstupu
cpi 32 ; bola stlacena medzera?
jz slovo
cpi 58 ; bolo stlacene nejake cislo? horna hranica
jnc pismeno
cpi 48 ; dolna hranica
jc zisti
inr d ; ak ano tak inkrementuj d
jmp zisti

pismeno:
cpi 91 ; bolo stlacene nejake velke pismeno? horna hranica
jnc zisti
cpi 65 ;dolna hranica
jc zisti
inr b ; ak ano tak inkrementuj b
jmp zisti

pridaj: ; e=pocet slov vyhovujucich podmienke
inr e
mvi b,0
mvi d,0 ; vynuluj registre b,d
jmp zisti

slovo:
mov a,d ; je viac velkych pismen ako cisel?
cmp b
jc pridaj ;ak ano tak skoc na pridaj
mvi b,0
mvi d,0 ; ak nie tak vynuluj registre b,d
jmp zisti

koniec_vstupu:
mov a,d ; testovanie podsledneho slova ak nebola za nim stlacena medzera
cmp b
jc increment
mvi b,0
mvi d,0 ; ak podmienka neplati, vynuluj registre b,d
jmp vypis

increment: ;inkrement ak plati ze posledne slovo vyhovuje a skoc na vypis
inr e
jmp vypis

vypis:
lxi h,text2
call putstr

mvi b,0
mvi a,0
mvi c,0
mov b,e
mov a,b
mvi c,11000000b
ana c
rlc
rlc
adi 48
out 11h
mov a,b
mvi c,00111000b
ana c
rar
rar
rar
adi 48
out 11h
mov a,b
mvi c,00000111b
ana c
adi 48
out 11h
adi '0'
call newline
hlt

include 'examples\8080\include\getline.inc'
include 'examples\8080\include\putstr.inc'
include 'examples\8080\include\getchar.inc'
include 'examples\8080\include\newline.inc'
include 'examples\8080\include\putchar.inc'

text1: db 10,13,'Vloz text: ',0
text2: db 10,13,'Pocet slov v ktorych je viac velkych pismen ako cisel v OCT: ',0
vlozeny: ds 50