[ alexa @ 07.04.2001. 12:21 ] @
; +----------------------------------------------------------+ ; ; | 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] |