Board.KolibriOS.org

proc playnote _key, _note
   mov al, [_key]
   cmp   ah, al
   jnz   @f
   mov esi, [_note]
   mcall 55,55
   jmp still ;<<<<<<<<<<<<<<<<<
  @@:
   ret
endp

  key:         ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
    mcall 2      ; äã­ªæ¨ï 2 - áç¨â âì ª®¤ ᨬ¢®«  (¢ ah)

   stdcall playnote, 0x041, T07 ; A - if Caps Lock ON
   stdcall playnote, 0x05a, T08 ; Z
   stdcall playnote, 0x053, T09 ; S
   stdcall playnote, 0x058, T0a ; X
   stdcall playnote, 0x044, T0b ; D
   stdcall playnote, 0x043, T0c ; C
   stdcall playnote, 0x056, T01 ; V
   stdcall playnote, 0x047, T02 ; G
   stdcall playnote, 0x042, T03 ; B
   stdcall playnote, 0x048, T04 ; H
   stdcall playnote, 0x04e, T05 ; N
   stdcall playnote, 0x04d, T06 ; M
   stdcall playnote, 0x04b, T07 ; K
   stdcall playnote, 0x03c, T08 ; <
   stdcall playnote, 0x04c, T09 ; L
   stdcall playnote, 0x03e, T0a ; >
   stdcall playnote, 0x03a, T0b ; :
   stdcall playnote, 0x03f, T0c ; ?
   stdcall playnote, 0x022, T11 ; "
   stdcall playnote, 0x021, T0c ; key !-------
   stdcall playnote, 0x051, T11 ; key Q
   stdcall playnote, 0x040, T12 ; @
   stdcall playnote, 0x057, T13 ; W
   stdcall playnote, 0x023, T14 ; #
   stdcall playnote, 0x045, T15 ; E
   stdcall playnote, 0x052, T16 ; R
   stdcall playnote, 0x025, T17 ; %
   stdcall playnote, 0x054, T18 ; T
   stdcall playnote, 0x05e, T19 ; ^
   stdcall playnote, 0x059, T1a ; Y
   stdcall playnote, 0x026, T1b ; &
   stdcall playnote, 0x055, T1c ; U
   stdcall playnote, 0x049, T21 ; I
   stdcall playnote, 0x028, T22 ; (
   stdcall playnote, 0x04f, T23 ; O
   stdcall playnote, 0x029, T24 ; )
   stdcall playnote, 0x050, T25 ; P
   stdcall playnote, 0x07b, T26 ; {
   stdcall playnote, 0x02b, T27 ; +
   stdcall playnote, 0x07d, T28 ; }
   stdcall playnote, 0x07c, T29 ; |
   stdcall playnote, 0x061, T17 ; a - if Caps Lock OFF
   stdcall playnote, 0x07a, T18 ; z
   stdcall playnote, 0x073, T19 ; s
   stdcall playnote, 0x078, T1a ; x
   stdcall playnote, 0x064, T1b ; d
   stdcall playnote, 0x063, T1c ; c
   stdcall playnote, 0x076, T21 ; v
   stdcall playnote, 0x067, T22 ; g
   stdcall playnote, 0x062, T23 ; b
   stdcall playnote, 0x068, T24 ; h
   stdcall playnote, 0x06e, T25 ; n
   stdcall playnote, 0x06d, T26 ; m
   stdcall playnote, 0x06b, T27 ; k
   stdcall playnote, 0x02c, T28 ; ,
   stdcall playnote, 0x06c, T29 ; l
   stdcall playnote, 0x02e, T2a ; .
   stdcall playnote, 0x03b, T2b ; ;
   stdcall playnote, 0x02f, T2c ; /
   stdcall playnote, 0x027, T31 ; '
   stdcall playnote, 0x060, T2c ; `
   stdcall playnote, 0x009, T31 ; tab
   stdcall playnote, 0x031, T32 ; 1
   stdcall playnote, 0x071, T33 ; q
   stdcall playnote, 0x032, T34 ; 2
   stdcall playnote, 0x077, T35 ; w
   stdcall playnote, 0x065, T36 ; e
   stdcall playnote, 0x034, T37 ; 4
   stdcall playnote, 0x072, T38 ; r
   stdcall playnote, 0x035, T39 ; 5
   stdcall playnote, 0x074, T3a ; t
   stdcall playnote, 0x036, T3b ; 6
   stdcall playnote, 0x079, T3c ; y
   stdcall playnote, 0x075, T41 ; u
   stdcall playnote, 0x038, T42 ; 8
   stdcall playnote, 0x069, T43 ; i
   stdcall playnote, 0x039, T44 ; 9
   stdcall playnote, 0x06f, T45 ; o
   stdcall playnote, 0x070, T46 ; p
   stdcall playnote, 0x02d, T47 ; -
   stdcall playnote, 0x05b, T48 ; [
   stdcall playnote, 0x03d, T49 ; =
   stdcall playnote, 0x05d, T4a ; ]
   stdcall playnote, 0x05c, T4b ; \
   stdcall playnote, 0x008, T4c ; backspace
   stdcall playnote, 0x00d, T51 ; enter
   stdcall playnote, 0x066, T01 ; f
   stdcall playnote, 0x06a, T05 ; j
   stdcall playnote, 0x033, T08 ; 3
   stdcall playnote, 0x037, T11 ; 7
   stdcall playnote, 0x030, T15 ; 0
   stdcall playnote, 0x0b4, T10 ; home
   stdcall playnote, 0x0b5, T70 ; end
   stdcall playnote, 0x0b8, T20 ; PageUp
   stdcall playnote, 0x0b7, T70 ; PageDown
   stdcall playnote, 0x0ff, T00 ; F12
   stdcall playnote, 0x0b6, T70 ; Del

proc playnote _key, _note
   mov al, [_key]
   cmp   ah, al
   jnz   @f
   mov esi, [_note]
   mcall 55,55
   add esp, 12 ;+
   jmp still
  @@:
   ret
endp

  key:         ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
        mcall   2      ; äã­ªæ¨ï 2 - áç¨â âì ª®¤ ᨬ¢®«  (¢ ah)
        push    eax ebx ecx esi
        mov     ecx, playtable.sizeof
        mov     esi, playtable
  .check_next: 
        cmp     ah, byte [esi]
        jnz     @f
        mov     esi, [esi + 4]
        mcall   55, 55
        jmp     .stop_check
  @@:
        add     esi, 8
        dec     ecx
        jnz     .check_next
  .stop_check:
        pop     esi ecx ebx eax
        jmp     still

playtable:
   dd 0x041, T07 ; A - if Caps Lock ON
   dd 0x05a, T08 ; Z
   dd 0x053, T09 ; S
   dd 0x058, T0a ; X
   dd 0x044, T0b ; D
   dd 0x043, T0c ; C
   dd 0x056, T01 ; V
   dd 0x047, T02 ; G
   dd 0x042, T03 ; B
   dd 0x048, T04 ; H
   dd 0x04e, T05 ; N
   dd 0x04d, T06 ; M
   dd 0x04b, T07 ; K
   dd 0x03c, T08 ; <
   dd 0x04c, T09 ; L
   dd 0x03e, T0a ; >
   dd 0x03a, T0b ; :
   dd 0x03f, T0c ; ?
   dd 0x022, T11 ; "
   dd 0x021, T0c ; key !-------
   dd 0x051, T11 ; key Q
   dd 0x040, T12 ; @
   dd 0x057, T13 ; W
   dd 0x023, T14 ; #
   dd 0x045, T15 ; E
   dd 0x052, T16 ; R
   dd 0x025, T17 ; %
   dd 0x054, T18 ; T
   dd 0x05e, T19 ; ^
   dd 0x059, T1a ; Y
   dd 0x026, T1b ; &
   dd 0x055, T1c ; U
   dd 0x049, T21 ; I
   dd 0x028, T22 ; (
   dd 0x04f, T23 ; O
   dd 0x029, T24 ; )
   dd 0x050, T25 ; P
   dd 0x07b, T26 ; {
   dd 0x02b, T27 ; +
   dd 0x07d, T28 ; }
   dd 0x07c, T29 ; |
   dd 0x061, T17 ; a - if Caps Lock OFF
   dd 0x07a, T18 ; z
   dd 0x073, T19 ; s
   dd 0x078, T1a ; x
   dd 0x064, T1b ; d
   dd 0x063, T1c ; c
   dd 0x076, T21 ; v
   dd 0x067, T22 ; g
   dd 0x062, T23 ; b
   dd 0x068, T24 ; h
   dd 0x06e, T25 ; n
   dd 0x06d, T26 ; m
   dd 0x06b, T27 ; k
   dd 0x02c, T28 ; ,
   dd 0x06c, T29 ; l
   dd 0x02e, T2a ; .
   dd 0x03b, T2b ; ;
   dd 0x02f, T2c ; /
   dd 0x027, T31 ; '
   dd 0x060, T2c ; `
   dd 0x009, T31 ; tab
   dd 0x031, T32 ; 1
   dd 0x071, T33 ; q
   dd 0x032, T34 ; 2
   dd 0x077, T35 ; w
   dd 0x065, T36 ; e
   dd 0x034, T37 ; 4
   dd 0x072, T38 ; r
   dd 0x035, T39 ; 5
   dd 0x074, T3a ; t
   dd 0x036, T3b ; 6
   dd 0x079, T3c ; y
   dd 0x075, T41 ; u
   dd 0x038, T42 ; 8
   dd 0x069, T43 ; i
   dd 0x039, T44 ; 9
   dd 0x06f, T45 ; o
   dd 0x070, T46 ; p
   dd 0x02d, T47 ; -
   dd 0x05b, T48 ; [
   dd 0x03d, T49 ; =
   dd 0x05d, T4a ; ]
   dd 0x05c, T4b ; \
   dd 0x008, T4c ; backspace
   dd 0x00d, T51 ; enter
   dd 0x066, T01 ; f
   dd 0x06a, T05 ; j
   dd 0x033, T08 ; 3
   dd 0x037, T11 ; 7
   dd 0x030, T15 ; 0
   dd 0x0b4, T10 ; home
   dd 0x0b5, T70 ; end
   dd 0x0b8, T20 ; PageUp
   dd 0x0b7, T70 ; PageDown
   dd 0x0ff, T00 ; F12
   dd 0x0b6, T70 ; Del
.sizeof: dd ($ - playtable)/8