;ispisuje ascii kod karaktera
;program zbog razumljivosti nije optimizovan
;coded by aLeXa
jmp main
unos db 0d,0a, 'Unesi karakter:$'
main:
mov ah,09h ;funkcija int-a 21 za ispis stringa
mov dx,offset unos ;adresa stringa koji treba da se ispise
int 21h ;poziv prekida
mov ah,00h ;funkcija int-a 16 za prijem znaka sa tastature
int 16h ; AH=scan code, AL=ascii code
cmp ax,011bh ;if ax == <Esc>
je kraj ;kraj programa
int 29h ;ispis znaka iz AL na ekranu
call ispis ;ispisuje ascii kod
kraj: ;procedura za zavrsetak programa
int 20h
ispis: ;ispisi prvu cifru - x100
mov ah,00h ;ah=0
mov bl,64h ;bl=100
div bl ;ax/bl= AL=rezultat, AH=ostatak
push ax ;stavi ax na stek
add al,30h ;saberi sa '0'
int 29h
d_cifra: ;ispisi drugu cifru - x10
pop ax ;uzmi sa steka u ax
mov al,ah ;al=ah
mov ah,00h ;ah=0
mov bl,0ah ;bl=10
div bl ;ax/bl= AL=rezultat, AH=ostatak
push ax ;stavi ax na stek
add al,30h ;al=al+'0'
int 29h ;ispisi iz al na ekran
t_cifra: ;ispisi trecu cifru - x1
pop ax ;uzmi sa steka u ax
mov al,ah ;al=ah
mov ah,00h ;ah=0
add al,30h ;al+'0'
int 29h ;ispisi iz AL na ekran
jmp main ;skoci na main
[Ovu poruku je menjao alexa dana 04-11-2001 u 05:39 AM GMT]