Subversion Repositories Kolibri OS

;

;   KEYBOARD SCANCODE EXAMPLE

;

;   Compile with FASM for Menuet

;

include "lang.inc"

include "..\..\..\macros.inc"

    use32

    org    0x0

    db     'MENUET01'  ; 8 byte id

    dd     0x01        ; header version

    dd     START       ; start of code

    dd     I_END       ; size of image

    dd     0x1000     ; memory for app

    dd     0x1000     ; esp

    dd     0x0 , 0x0   ; I_Param , I_Icon

START:                 ; start of execution

    mov  eax,66    ; keyboard mode definitions

    mov  ebx,1     ; set

    mov  ecx,1     ; return scancodes

    mcall

    mov  eax,26    ; get setup for keyboard

    mov  ebx,2

    mov  ecx,1     ; base keymap

    mov  edx,keymap

    mcall

    mov  eax, 48                   ; GET SYSTEM COLORS

    mov  ebx, 3

    mov  ecx, sc

    mov  edx, sizeof.system_colors

    mcall

  red:

    call draw_window

still:

    mov  eax,10                 ; wait here for event

    mcall

    cmp  eax,1                  ; redraw request ?

    je   red

    cmp  eax,2                  ; key in buffer ?

    je   key

    cmp  eax,3                  ; button in buffer ?

    je   button

    jmp  still

  key:                          ; key

    mov  eax,2                  ; just read it and ignore

    mcall

    mov  esi,scan_codes+1

    mov  edi,scan_codes+0

    mov  ecx,15

    cld

    rep  movsb

    mov  esi,key_codes+12

    mov  edi,key_codes+0

    mov  ecx,15*12

    cld

    rep  movsb

    shr  eax,8                   ; scancode

    and  eax,0xff

    mov  [scan_codes+15],al

    mov  [key_codes+15*12+8],dword 'Down'

    cmp  eax,128

    jb   no_up

    mov  [key_codes+15*12+8],dword 'Up  '

  no_up:

    mov    ebx,eax

    and    ebx,0x7f

    movzx  edx,byte [keymap+ebx]  ; key from keymap

    mov    [key_codes+15*12+0],edx

    mov    [key_codes+15*12+4],dword '    '

    movzx  edx,byte [ext]

    shl    edx,8

    add    ebx,edx

    mov    esi,ext0-10

  new_ext0:

    add    esi,10

    cmp    esi,ext0end

    jg     exit_ext0

    movzx  edx,word [esi]

    cmp    edx,ebx

    jne    new_ext0

    mov    edx,[esi+2]

    mov    [key_codes+15*12+0],edx

    mov    edx,[esi+6]

    mov    [key_codes+15*12+4],edx

  exit_ext0:

  no_ext_off:

    cmp  [ext2],0

    je   noext2dec

    dec  [ext2]

    jne  noext2dec

    mov    [key_codes+15*12+0],dword '----'

    mov    [key_codes+15*12+4],dword '----'

  noext2dec:

    mov  [ext],0

    cmp  eax,224

    jne  no_ext

    mov  [key_codes+15*12+0],dword '    '

    mov  [key_codes+15*12+4],dword '    '

    mov  [key_codes+15*12+8],dword 'Ext '

    mov  [ext],1

  no_ext:

    cmp  eax,225

    jne  no_ext2

    mov  [key_codes+15*12+0],dword '    '

    mov  [key_codes+15*12+4],dword '    '

    mov  [key_codes+15*12+8],dword 'Ext2'

    mov  [ext],2

    mov  [ext2],2

  no_ext2:

    call draw_codes

    jmp  still

  button:                       ; button

    or   eax, -1                ; close this program

    mcall

;   *********************************************

;   *******  WINDOW DEFINITIONS AND DRAW ********

;   *********************************************

draw_window:

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,1                     ; 1, start of draw

    mcall

                                   ; DRAW WINDOW

    mov  eax, 0                    ; function 0 : define and draw window

    mov  ebx, 100*65536+200        ; [x start] *65536 + [x size]

    mov  ecx, 100*65536+275        ; [y start] *65536 + [y size]

    mov  edx, [sc.work]            ; color of work area RRGGBB,8->color gl

    or   edx, 0x34000000

    mov  edi, title                ; WINDOW LABEL

    mcall

    mov  eax, 4

    mov  ebx, 15*65536+10

    xor  ecx, ecx

    mov  edx, text

    mov  esi, text.len

    mcall

    call draw_codes

    mov  eax,12                    ; function 12:tell os about windowdraw

    mov  ebx,2                     ; 2, end of draw

    mcall

    ret

draw_codes:

    mov  eax,47

    mov  ebx,6*65536

    mov  edx,15*65536+35

    mov  edi,0

    mov  esi,0

  newscan:

    pusha

    mov  cx,dx

    shl  ecx,16

    add  ecx,10

    mov  eax,13   ; filled rectangle

    mov  ebx,15*65536+160

    mov  edx,[sc.work]

    mcall

    popa

    pusha

    mov  ebx,edx

    add  ebx,70*65536

    mov  eax,4    ; text

    mov  ecx,[sc.work_text]

    mov  edx,key_codes

    imul edi,12

    add  edx,edi

    mov  esi,12

    mcall

    popa

    movzx  ecx,byte [scan_codes+edi]

    mcall     ; number

    inc  ecx

    add  edx,12

    inc  edi

    cmp  edi,16

    jne  newscan

    ret

; DATA AREA

ext0:

    db    1,0,'Esc     '

    db   28,0,'Enter   '

    db   29,0,'L-Ctrl  '

    db   41,0,'1/2     '

    db   42,0,'L-Shift '

    db   54,0,'R-Shift '

    db   55,0,'Num *   '

    db   56,0,'Alt     '

    db   58,0,'CapsLck '

    db   59,0,'F1      '

    db   60,0,'F2      '

    db   61,0,'F3      '

    db   62,0,'F4      '

    db   63,0,'F5      '

    db   64,0,'F6      '

    db   65,0,'F7      '

    db   66,0,'F8      '

    db   67,0,'F9      '

    db   68,0,'F10     '

    db   69,0,'NumLock '

    db   70,0,'SclLock '

    db   71,0,'Num 7   '

    db   72,0,'Num 8   '

    db   73,0,'Num 9   '

    db   74,0,'Num -   '

    db   75,0,'Num 4   '

    db   76,0,'Num 5   '

    db   77,0,'Num 6   '

    db   78,0,'Num +   '

    db   79,0,'Num 1   '

    db   80,0,'Num 2   '

    db   81,0,'Num 3   '

    db   82,0,'Num 0   '

    db   83,0,'Num ,   '

    db   87,0,'F11     '

    db   88,0,'F12     '

    db   28,1,'Num Ent '

    db   29,1,'R-Ctrl  '

    db   53,1,'Num /   '

    db   55,1,'PrScr   '

    db   56,1,'Alt Gr  '

    db   71,1,'Home    '

    db   72,1,'Up-A    '

    db   73,1,'PgUp    '

    db   75,1,'Left-A  '

    db   77,1,'Right-A '

    db   79,1,'End     '

    db   80,1,'Down-A  '

    db   81,1,'PgDown  '

    db   82,1,'Insert  '

    db   83,1,'Delete  '

    db   91,1,'Menu-1  '

    db   92,1,'Menu-2  '

    db   93,1,'Menu-3  '

    db   29,2,'Break   '

ext0end:

if lang eq ru

  text:

      db '�������� ������ � ����������'

  .len = $ - text

  title      db   '�������� ����������',0

else

  text:

      db 'READING RAW SCANCODE DATA'

  .len = $ - text

  title      db   'KEYBOARD SCANCODES',0

end if

ext  db 0x0

ext2 db 0x0

pos dd 0x0

I_END:

sc system_colors

scan_codes: times 16 db ?

key_codes:  times 16 dd ?,?,?

keymap: