; +----------------------------------------------------------+ ;
; | Primer ASKASCII programa za a86 assembler, smuvao aLeXa | ;
; +----------------------------------------------------------+ ;
mov ah,09h
mov dx,offset headtxt
int 21h
mov dx,offset crlf
int 21h
L5: mov ah,09h
mov dx,offset quest
int 21h
mov ah,00h
int 16h
push ax
mov ah,0eh
mov bh,00h
int 10h
mov ah,09h
mov dx,offset a1
int 21h
pop ax
push ax
mov al,ah
call wrtnum
mov ah,09h
mov dx,offset a2
int 21h
pop ax
push ax
call wrtnum
mov ah,09h
mov dx,offset crlf
int 21h
mov ah,0ah
mov al,'Ä'
mov bh,00h
mov cx,50h
int 10h
mov ah,09h
mov cx,offset crlf
int 21h
pop ax
cmp ax,011bh
jne L5
int 20h
wrtnum: mov ah,00h
mov bl,64h
div bl
cmp al,00h
je L1
push ax
mov ah,0eh
add al,30h
mov bh,00h
int 10h
pop ax
mov cl,01h
jmp L2
L1: mov cl,00h
L2: mov al,ah
mov ah,00h
mov bl,0ah
div bl
cmp cl,00h
jne L3
cmp al,00h
je L4
L3: push ax
mov ah,0eh
add al,30h
mov bh,00h
int 10h
pop ax
L4: mov al,ah
add al,30h
mov ah,0eh
mov bh,00h
int 10h
ret
a1 db 0ah,0dh,'Scan code: $'
a2 db '; ASCII code: ','$'
crlf db 0ah,0dh,'$'
headtxt db 'Ask ASCII', 0ah, 0dh
db 'Verzija za A86 assembler:', 0ah, 0dh, '$'
quest db 'Upisi karakter (ESC za kraj): $'
[Ovu poruku je menjao alexa dana 04-09-2001 u 07:32 AM GMT]
[Ovu poruku je menjao alexa dana 04-09-2001 u 12:15 PM GMT]