;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
;Filename: KeyCode.asm
;Function: Display the code of key that you pessed
;Author : Purple Endurer
;
;Date Log
;-----------------------------------
;02-05-2003 Created!
;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
codeseg segment
;===================================
assume cs: codeseg, ds:codeseg
org 100h
;-----------------------------------
@main proc near
mov dx, offset strHeader
mov ah, 09h
int 21h
mov ah, 0
int 16h
push ax
mov dl, al
mov cx, 4
shr dl, cl
call showhex
pop dx
push dx
and dl, 0fh
call showhex
mov dx, offset strSpace
mov ah, 09h
int 21h
pop dx
mov dl, dh
push dx
mov cl, 4
shr dl, cl
call showhex
pop dx
and dl, 0fh
call showhex
mov ax,4c00h
int 21h
main endp
;--------------------
showhex proc near
cmp dl, 9
jg @ga
add dl, '0'
jmp @show
@ga:
add dl, 'A'- 0ah
@show:
mov ah, 2
int 21h
ret
showhex endp
;----------------------
strHeader db "ASCII ScanCode", 0dh, 0ah, '$'
strSpace db 8 dup (' '), '$'
;======================
codeseg ends
end @main
