Osnovi programiranja i programski jezici
Osnovi programiranja i programski jezici
Osnovi programiranja i programski jezici
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
mov si,offset TEKST3 ;pocetna adresa TEKST3<br />
call tekstisp ;ispisivanje teksta<br />
;********************************************************************<br />
mov bl,byte ptr [BR1] ;prvi broj<br />
and bl,byte ptr [BR2] ;BR1 AND BR2<br />
call brojisp ;ispisivanje broja<br />
;********************************************************************<br />
mov ax,0 ;cekanje na taster<br />
int 16h<br />
;********************************************************************<br />
kraj: mov ax,4c00h ;nazad u DOS<br />
int 21h<br />
;********************************************************************<br />
;####################################################################<br />
tekstisp Proc ;rutina za ispisivanje teksta<br />
mov cx,16 ;tekst ima ukupno 16 karaktera<br />
mov ah,15 ;crna pozadina, beli karakter<br />
;********************************************************************<br />
cikl1:mov al,[si] ;karakter u al<br />
mov es:[di],ax ;karakter u video memoriju<br />
add di,2 ;sledeca pozicija<br />
inc si ;sledeci karakter<br />
loop cikl1 ;cx=cx-1 i skok ako je cx0<br />
ret<br />
;povratak u glavni program<br />
szovir Endp ;kraj potprograma<br />
;####################################################################<br />
;********************************************************************<br />
;####################################################################<br />
brojisp Proc ;potprogram za ispisivanje<br />
;broja<br />
add di,6 ;+ 3 pozicije<br />
mov cx,8 ;broj je osmobitni<br />
mov ah,15 ;crna pozadina, beli karakter<br />
;********************************************************************<br />
cikl2:mov al,48 ;ASCII kod nule (0)<br />
shl bl,1 ;CY