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.
;********************************************************************<br />
mov ax,0<br />
int 16h<br />
;********************************************************************<br />
cmp ah,31h ;ne, izlaziti iz programa<br />
jz ent4<br />
;********************************************************************<br />
cmp ah,17h ;neki drugi taster, dalje<br />
testirati<br />
jnz ent3<br />
;********************************************************************<br />
jmp start ;da, na pocetak<br />
;********************************************************************<br />
ent4: mov ax,4c00h ;nazad u DOS<br />
int 21h<br />
;********************************************************************<br />
pr1: mov si,offset TXT1 ;ispisivanje teksta<br />
call write2<br />
jmp ent2<br />
;********************************************************************<br />
pr2: mov si,offset TXT2 ;ispisivanje teksta<br />
call write2<br />
jmp ent2<br />
;********************************************************************<br />
pr3: mov si,offset TXT3 ;ispisivanje teksta<br />
call write2<br />
jmp ent2<br />
;********************************************************************<br />
pr4: mov si,offset TXT4 ;ispisivanje teksta<br />
call write2<br />
jmp ent2<br />
;********************************************************************<br />
pr5: mov si,offset TXT5 ;ispisivanje teksta<br />
call write2<br />
jmp ent2<br />
;********************************************************************<br />
;####################################################################<br />
line Proc ;potprogram trake<br />
mov al,byte ptr [POINT2] ;prethodna vrednost pokazivaca u al<br />
mov bl,160 ;duzina u bl<br />
mov ah,0<br />
;********************************************************************<br />
mul bl ;pocetna adresa pokazivaca<br />
add ax,1499<br />
mov di,ax<br />
mov cx,21<br />
mov al,7 ;crna pozadina, beli karakter<br />
;********************************************************************<br />
line1:mov es:[di],al ;boja<br />
add di,2<br />
loop line1<br />
mov al,byte ptr [POINTER] ;kao prethodno, ali nova pozicija<br />
mov byte ptr [POINT2],al ;pojacana pozadina<br />
mov bl,160<br />
mov ah,0<br />
mul bl<br />
add ax,1499<br />
mov di,ax<br />
mov cx,21<br />
mov al,47<br />
;********************************************************************<br />
94