написать ассемблер-программу,выводящую на экран скан-код

[sashok2009]

люди добрые кто чем может помогите пожалуйста написать программу на ассемблере ,а то я в этом ничего не понимаю....буду очень признателен. если надо финансово. Написать написать ассемблер-программу,выводящую на экран скан-код нажатой пользователем клавиши(в 16-чной системе счисления).Использовать функцию 0h прерывания 16h

[MalCer]

если надо финансово

Лучше отзыв оставь(весы слева)

sseg segment stack
db 128 dup(?)
sseg ends

dseg segment
msg  db 'Najmite klavishu',10,13,'$'
txt     db 10,13,'$'
hex   db '0123456789ABCDEF'
dseg ends

cseg segment
assume ss:sseg,ds:dseg,cs:cseg
start:
mov ax,dseg
mov ds,ax

mov ah,9
mov dx,offset msg
int 21h

nachalo:
mov ah,0
int 22
cmp al,1bh
je konec
     push ax
mov dl,al
mov ah,6
int 21h

mov ah,6
mov dl,' '
int 21h
     pop ax
     push ax
shr al,4
mov ah,0

mov si,ax
mov dl,[si+hex]
mov ah,6
int 21h
     pop ax
     push ax
and al,00001111b
mov ah,0
mov si,ax
mov dl,[si+hex]
mov ah,6
int 21h
mov ah,6
mov dl,'h'
int 21h

mov ah,6
mov dl,' '
int 21h
     pop ax
     push ax
shr ah,4
mov al,ah
mov ah,0
mov si,ax
mov dl,[si+hex]
mov ah,6
int 21h
     pop ax
mov al,ah
mov ah,0
and al,00001111b
mov si,ax
mov dl,[si+hex]
mov ah,6
int 21h

mov ah,6
mov dl,'h'
int 21h
mov ah,9
mov dx,offset txt
int 21h
jmp nachalo

konec:
mov ah,4ch
int 21h
cseg ends 
end start

[sashok2009]

ОГРОМНОЕ СПАСИБО ВЕСЬМА ПРИЗНАТЕЛЕН!!!!!! ПРОГРАММА В ПОЛНОМ ВАРИАНТЕ???

[MalCer]

ПРОГРАММА В ПОЛНОМ ВАРИАНТЕ???

Да!!! На все 90%

[sashok2009]

программа не выводит скан-код.парни помогите разобраться в чем дело,пожалуйста!!!!!!!!!!!!

[airyashov]

помоему все она выводит

[MalCer]

Проверил все заново и как ни странно- все там выводится!!!
Проверяю на клавише b. Программа вывела мне 62h! Смотрю в таблицу кодов и проверяю. Вуа-ля! Все верно!

[sashok2009]

у мня не кмпилируется в com.почему?

[MalCer]

у мня не кмпилируется в com.почему?

А это уже другое дело! Это же exe'шник!!! Создать его можно так: tasm proga.asm -> tlink proga.obj

[MalCer]

Переделал вам в com:

CSEG segment
assume CS:CSEG, DS:CSEG 
org 100h

Begin:

mov ah,9
mov dx,offset msg
int 21h

nachalo:
mov ah,0
int 22
cmp al,1bh
je konec
     push ax
mov dl,al
mov ah,6
int 21h

mov ah,6
mov dl,' '
int 21h
     pop ax
     push ax
shr al,4
mov ah,0

mov si,ax
mov dl,[si+hex]
mov ah,6
int 21h
     pop ax
     push ax
and al,00001111b
mov ah,0
mov si,ax
mov dl,[si+hex]
mov ah,6
int 21h
mov ah,6
mov dl,'h'
int 21h

mov ah,6
mov dl,' '
int 21h
     pop ax
     push ax
shr ah,4
mov al,ah
mov ah,0
mov si,ax
mov dl,[si+hex]
mov ah,6
int 21h
     pop ax
mov al,ah
mov ah,0
and al,00001111b
mov si,ax
mov dl,[si+hex]
mov ah,6
int 21h

mov ah,6
mov dl,'h'
int 21h
mov ah,9
mov dx,offset txt
int 21h
jmp nachalo

konec:
int 20h


msg  db 'Najmite klavishu',10,13,'$'
txt     db 10,13,'$'
hex   db '0123456789ABCDEF'


CSEG ends
end Begin