org 1000
dcx sp
mvi d,0
lxi h, text1
call putstr
op1:
lxi d,vlozeny
mvi d,0
lxi d,vlozeny
mvi d,0
opakuj:
ldax b
inx b
cpi 10
jz koniec
cpi 13
jz koniec
cpi 0
jc opakuj
cpi '9'+1
jnc opakuj
inr d
jmp opakuj
koniec:
lxi h,text2
call putstr
mov a,d
adi '0'
call putchar
call newline
hlt
include 'examples\8080\include\getchar.jnc'
include 'examples\8080\include\getline.jnc'
include 'examples\8080\include\putstr.jnc'
include 'examples\8080\include\putchar.jnc'
include 'examples\8080\include\newline.jnc'
text1: db 'pocst slov: ...',10,13, 'pis vetu: ',0
text2: db 10,13, 'slov: ',0
vlozeny: ds 30
mam cast programu, len ju treba kus dorobit.. vie mi niekto pomoct a pridat pocitadlo na znaky??? ulohou je zistit pocet slov LEN z cisel.. Prosim:)
|