06.04.2015 Views

Osnovi programiranja i programski jezici

Osnovi programiranja i programski jezici

Osnovi programiranja i programski jezici

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

line2:mov es:[di],al<br />

add di,2<br />

loop line2<br />

ret<br />

;nazad<br />

line Endp ;kraj potprograma<br />

;####################################################################<br />

;********************************************************************<br />

;####################################################################<br />

write1Proc<br />

;potprogram za ispisivanje teksta<br />

mov si,offset CHOICE ;0 ==> di+160 (novi red)<br />

mov ah,7 ;255 ==> kraj teksta I zlaz<br />

mov di,1660<br />

;********************************************************************<br />

wr1: push di<br />

wr2: mov al,[si]<br />

inc si<br />

cmp al,0<br />

jz wr3<br />

cmp al,0ffh<br />

jz wr4<br />

mov es:[di],ax<br />

add di,2<br />

jmp wr2<br />

;********************************************************************<br />

wr3: pop di<br />

add di,160<br />

jmp wr1<br />

wr4: pop di<br />

;********************************************************************<br />

ret<br />

;alprogram vege<br />

write1Endp<br />

;alprogram vege<br />

;####################################################################<br />

;********************************************************************<br />

;####################################################################<br />

write2Proc<br />

;ispisivanje teksta<br />

mov al,[si] ;izracunavanje koordinate<br />

mov ah,0<br />

shl ax,1<br />

mov di,ax<br />

mov al,[si+1]<br />

mov bl,160<br />

mul bl<br />

add di,ax<br />

add si,2<br />

mov ah,12<br />

;********************************************************************<br />

wr21: mov al,[si]<br />

inc si<br />

cmp al,0<br />

jz wr22<br />

mov es:[di],ax<br />

add di,2<br />

jmp wr21<br />

;********************************************************************<br />

wr22: ret<br />

write2Endp<br />

;####################################################################<br />

;********************************************************************<br />

POINTER:db 1<br />

POINT2:db 1<br />

;********************************************************************<br />

95

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!