kolibrios/programs/media/piano/piano.asm

;   <20><><EFBFBD><EFBFBD>⮩ <20>ਬ<EFBFBD><E0A8AC> <20>ணࠬ<E0AEA3><E0A0AC> <20><><EFBFBD> KolibriOS
;   <20><><EFBFBD><EFBFBD>稢<EFBFBD><E7A8A2><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⮩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;
;---------------------------------------------------------------------

  use32
  org    0

  db     'MENUET01'
  dd     1
  dd     START
  dd     I_END
  dd     MEM
  dd     STACKTOP
  dd     0
  dd     0

include "lang.inc"
include "../../macros.inc"


START:

red:                    ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD>

    call draw_window    ; <20><><EFBFBD>뢠<EFBFBD><EBA2A0> <20><><EFBFBD>楤<EFBFBD><E6A5A4><EFBFBD> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2> <20><><EFBFBD><EFBFBD>


still:
    ;mcall 10            ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 10 - <20><><EFBFBD><EFBFBD><EFBFBD> ᮡ<><E1AEA1><EFBFBD><EFBFBD>
    mov eax, 10
    int 0x40

    cmp  eax,2          ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ?
    je   key            ; <20>᫨ <20><> - <20><> key
    cmp  eax,3          ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ?
    je   button         ; <20>᫨ <20><> - <20><> button
    cmp  eax,1          ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2><EFBFBD> <20><><EFBFBD><EFBFBD> ?
    je   red            ; <20>᫨ <20><> - <20><> <20><><EFBFBD><EFBFBD><EFBFBD> red

    jmp  still          ; <20>᫨ <20><>㣮<EFBFBD> ᮡ<>⨥ - <20> <20><>砫<EFBFBD> 横<><E6A8AA>



;---------------------------------------------------------------------


  key:                  ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    mcall 2             ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 2 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD> (<28> ah)


        cmp   ah, 0x41        ; A - if Caps Lock ON
        jnz   @f
        jmp   _07
    @@:
        cmp   ah, 0x5a        ; Z
        jnz   @f
        jmp   _08
    @@:
        cmp   ah, 0x53        ; S
        jnz   @f
        jmp   _09
    @@:
        cmp   ah, 0x58        ; X
        jnz   @f
        jmp   _0a
    @@:
        cmp   ah, 0x44        ; D
        jnz   @f
        jmp   _0b
    @@:
        cmp   ah, 0x43        ; C
        jnz   @f
        jmp   _0c
    @@:
        cmp   ah, 0x56        ; V
        jnz   @f
   _01:
        mov   ah, 0x01
        jmp   p
    @@:
        cmp   ah, 0x47        ; G
        jnz   @f
   _02:
        mov   ah, 0x02
        jmp   p
    @@:
        cmp   ah, 0x42        ; B
        jnz   @f
   _03:
        mov   ah, 0x03
        jmp   p
    @@:
        cmp   ah, 0x48        ; H
        jnz   @f
   _04:
        mov   ah, 0x04
        jmp   p
    @@:
        cmp   ah, 0x4e        ; N
        jnz   @f
   _05:
        mov   ah, 0x05
        jmp   p
    @@:
        cmp   ah, 0x4d        ; M
        jnz   @f
   _06:
        mov   ah, 0x06
        jmp   p
    @@:
        cmp   ah, 0x4b        ; K
        jnz   @f
   _07:
        mov   ah, 0x07
        jmp   p
    @@:
        cmp   ah, 0x3c        ; <
        jnz   @f
   _08:
        mov   ah, 0x08
        jmp   p
    @@:
        cmp   ah, 0x4c        ; L
        jnz   @f
   _09:
        mov   ah, 0x09
        jmp   p
    @@:
        cmp   ah, 0x3e        ; >
        jnz   @f
   _0a:
        mov   ah, 0x0a
        jmp   p
    @@:
        cmp   ah, 0x3a        ; :
        jnz   @f
   _0b:
        mov   ah, 0x0b
        jmp   p
    @@:
        cmp   ah, 0x3f        ; ?
        jnz   @f
   _0c:
        mov   ah, 0x0c
        jmp   p
    @@:
        cmp   ah, 0x22        ; "
        jnz   @f
        jmp   _11
    @@:
        cmp   ah, 0x21        ; key !-------
        jnz   @f
        jmp   _0c
    @@:
        cmp   ah, 0x51        ; key Q
        jnz   @f
   _11:
        mov   ah, 0x11
        jmp   p
    @@:
        cmp   ah, 0x40        ; key @
        jnz   @f
   _12:
        mov   ah, 0x12
        jmp   p
    @@:
        cmp   ah, 0x57        ; key W
        jnz   @f
   _13:
        mov   ah, 0x13
        jmp   p
    @@:
        cmp   ah, 0x23        ; key #
        jnz   @f
   _14:
        mov   ah, 0x14
        jmp   p
    @@:
        cmp   ah, 0x45        ; key E
        jnz   @f
   _15:
        mov   ah, 0x15
        jmp   p
    @@:
        cmp   ah, 0x52        ; key R
        jnz   @f
   _16:
        mov   ah, 0x16
        jmp   p
    @@:
        cmp   ah, 0x25        ; key %
        jnz   @f
        jmp   _17
    @@:
        cmp   ah, 0x54        ; key T
        jnz   @f
        jmp   _18
    @@:
        cmp   ah, 0x5e        ; key ^
        jnz   @f
        jmp   _19
    @@:
        cmp   ah, 0x59        ; key Y
        jnz   @f
        jmp   _1a
    @@:
        cmp   ah, 0x26        ; key &
        jnz   @f
        jmp   _1b
    @@:
        cmp   ah, 0x55        ; key U
        jnz   @f
        jmp   _1c
    @@:
        cmp   ah, 0x49        ; key I
        jnz   @f
        jmp   _21
    @@:
        cmp   ah, 0x28        ; key (
        jnz   @f
        jmp   _22
    @@:
        cmp   ah, 0x4f        ; key O
        jnz   @f
        jmp   _23
    @@:
        cmp   ah, 0x29        ; key )
        jnz   @f
        jmp   _24
    @@:
        cmp   ah, 0x50        ; key P
        jnz   @f
        jmp   _25
    @@:
        cmp   ah, 0x7b        ; key {
        jnz   @f
        jmp   _26
    @@:
        cmp   ah, 0x2b        ; key +
        jnz   @f
        jmp   _27
    @@:
        cmp   ah, 0x7d        ; key }
        jnz   @f
        jmp   _28
    @@:
        cmp   ah, 0x7c        ; key |
        jnz   @f
        jmp   _29
    @@:
        cmp   ah, 0x61        ; a - if Caps Lock OFF
        jnz   @f
   _17:
        mov   ah, 0x17
        jmp   p
    @@:
        cmp   ah, 0x7a        ; z
        jnz   @f
   _18:
        mov   ah, 0x18
        jmp   p
    @@:
        cmp   ah, 0x73        ; s
        jnz   @f
   _19:
        mov   ah, 0x19
        jmp   p
    @@:
        cmp   ah, 0x78        ; x
        jnz   @f
   _1a:
        mov   ah, 0x1a
        jmp   p
    @@:
        cmp   ah, 0x64        ; d
        jnz   @f
   _1b:
        mov   ah, 0x1b
        jmp   p
    @@:
        cmp   ah, 0x63        ; c
        jnz   @f
   _1c:
        mov   ah, 0x1c
        jmp   p
    @@:
        cmp   ah, 0x76        ; v
        jnz   @f
   _21:
        mov   ah, 0x21
        jmp   p
    @@:
        cmp   ah, 0x67        ; g
        jnz   @f
   _22:
        mov   ah, 0x22
        jmp   p
    @@:
        cmp   ah, 0x62        ; b
        jnz   @f
   _23:
        mov   ah, 0x23
        jmp   p
    @@:
        cmp   ah, 0x68        ; h
        jnz   @f
   _24:
        mov   ah, 0x24
        jmp   p
    @@:
        cmp   ah, 0x6e        ; n
        jnz   @f
   _25:
        mov   ah, 0x25
        jmp   p
    @@:
        cmp   ah, 0x6d        ; m
        jnz   @f
   _26:
        mov   ah, 0x26
        jmp   p
    @@:
        cmp   ah, 0x6b        ; k
        jnz   @f
   _27:
        mov   ah, 0x27
        jmp   p
    @@:
        cmp   ah, 0x2c        ; ,
        jnz   @f
   _28:
        mov   ah, 0x28
        jmp   p
    @@:
        cmp   ah, 0x6c        ; l
        jnz   @f
   _29:
        mov   ah, 0x29
        jmp   p
    @@:
        cmp   ah, 0x2e        ; .
        jnz   @f
   _2a:
        mov   ah, 0x2a
        jmp   p
    @@:
        cmp   ah, 0x3b        ; ;
        jnz   @f
   _2b:
        mov   ah, 0x2b
        jmp   p
    @@:
        cmp   ah, 0x2f        ; /
        jnz   @f
   _2c:
        mov   ah, 0x2c
        jmp   p
    @@:
        cmp   ah, 0x27        ; '
        jnz   @f
  _31:
        mov   ah, 0x31
        jmp   p
    @@:
        cmp   ah, 0x60        ; key `
        jnz   @f
        jmp   _2c
    @@:
        cmp   ah, 0x09        ; key tab
        jnz   @f
        jmp   _31
    @@:
        cmp   ah, 0x31        ; key 1
        jnz   @f
  _32:
        mov   ah, 0x32
        jmp   p
    @@:
        cmp   ah, 0x71        ; key q
        jnz   @f
  _33:
        mov   ah, 0x33
        jmp   p
    @@:
        cmp   ah, 0x32        ; key 2
        jnz   @f
  _34:
        mov   ah, 0x34
        jmp   p
    @@:
        cmp   ah, 0x77        ; key w
        jnz   @f
  _35:
        mov   ah, 0x35
        jmp   p
    @@:
        cmp   ah, 0x65        ; key e
        jnz   @f
  _36:
        mov   ah, 0x36
        jmp   p
    @@:
        cmp   ah, 0x34        ; key 4
        jnz   @f
  _37:
        mov   ah, 0x37
        jmp   p
    @@:
        cmp   ah, 0x72        ; key r
        jnz   @f
  _38:
        mov   ah, 0x38
        jmp   p
    @@:
        cmp   ah, 0x35        ; key 5
        jnz   @f
  _39:
        mov   ah, 0x39
        jmp   p
    @@:
        cmp   ah, 0x74        ; key t
        jnz   @f
  _3a:
        mov   ah, 0x3a
        jmp   p
    @@:
        cmp   ah, 0x36        ; key 6
        jnz   @f
  _3b:
        mov   ah, 0x3b
        jmp   p
    @@:
        cmp   ah, 0x79        ; key y
        jnz   @f
  _3c:
        mov   ah, 0x3c
        jmp   p
    @@:
        cmp   ah, 0x75        ; key u
        jnz   @f
  _41:
        mov   ah, 0x41
        jmp   p
    @@:
        cmp   ah, 0x38        ; key 8
        jnz   @f
        mov   ah, 0x42
        jmp   p
    @@:
        cmp   ah, 0x69        ; key i
        jnz   @f
        mov   ah, 0x43
        jmp   p
    @@:
        cmp   ah, 0x39        ; key 9
        jnz   @f
        mov   ah, 0x44
        jmp   p
    @@:
        cmp   ah, 0x6f        ; key o
        jnz   @f
        mov   ah, 0x45
        jmp   p
    @@:
        cmp   ah, 0x70        ; key p
        jnz   @f
        mov   ah, 0x46
        jmp   p
    @@:
        cmp   ah, 0x2d        ; key -
        jnz   @f
        mov   ah, 0x47
        jmp   p
    @@:
        cmp   ah, 0x5b        ; key [
        jnz   @f
        mov   ah, 0x48
        jmp   p
    @@:
        cmp   ah, 0x3d        ; key =
        jnz   @f
        mov   ah, 0x49
        jmp   p
    @@:
        cmp   ah, 0x5d        ; key ]
        jnz   @f
        mov   ah, 0x4a
        jmp   p
    @@:
        cmp   ah, 0x5c        ; key \
        jnz   @f
        mov   ah, 0x4b
        jmp   p
    @@:
        cmp   ah, 0x08        ; key backspace
        jnz   @f
        mov   ah, 0x4c
        jmp   p
    @@:
        cmp   ah, 0x0d        ; key enter
        jnz   @f
        mov   ah, 0x51
        jmp   p
    @@:
        cmp   ah, 0x66        ; key f
        jnz   @f
        mov   ah, 0x01
        jmp   p
    @@:
        cmp   ah, 0x6a        ; key j
        jnz   @f
        mov   ah, 0x05
        jmp   p
    @@:
        cmp   ah, 0x33        ; key 3
        jnz   @f
        mov   ah, 0x08
        jmp   p
    @@:
        cmp   ah, 0x37        ; key 7
        jnz   @f
        jmp   _11
    @@:
        cmp   ah, 0x30        ; key 0
        jnz   @f
        jmp   _15
    @@:
        cmp   ah, 0xb4        ; key home
        jnz   @f
        mov   ah, 0x10
        jmp   p
    @@:
        cmp   ah, 0xb5        ; key end
        jnz   @f
   _70:
        mov   ah, 0xfc
        jmp   p
    @@:
        cmp   ah, 0xb8        ; key Page Up
        jnz   @f
        mov   ah, 0x20
        jmp   p
    @@:
        cmp   ah, 0xb7        ; key Page Down
        jnz   @f
        jmp   _70
    @@:
        cmp   ah, 0xff        ; key F12
        jnz   @f
        mov   ah, 0x00
        jmp   p
    @@:
        cmp   ah, 0xb6        ; key Del
        jnz   @f
        jmp   _70
    @@:

  p:
    mov  [M+1], ah  ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> ᨬ<><E1A8AC><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>

    ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 55-55: <20><><EFBFBD>⥬<EFBFBD><E2A5AC><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ("PlayNote")
    ;   esi - <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

       mov  eax,55
       mov  ebx,eax
       mov  esi,M
       int  0x40

    ; <20><><EFBFBD> <20><><EFBFBD><EFBFBD>⪮:
    ;mcall 55, , , , Music

    jmp  still          ; <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><>砫<EFBFBD> 横<><E6A8AA>


;---------------------------------------------------------------------

  button:
    mcall 17            ; 17 - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>䨪<EFBFBD><E4A8AA><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⮩ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

        cmp  ah, 0xa1       ; button 1
        jnz  @f
        jmp  _01
    @@:
        cmp  ah, 0x02       ; button 2
        jnz  @f
        jmp  _02
    @@:
        cmp  ah, 0x03       ; button 3
        jnz  @f
        jmp  _03
    @@:
        cmp  ah, 0x04
        jnz  @f
        jmp  _04
    @@:
        cmp  ah, 0x05
        jnz  @f
        jmp  _05
    @@:
        cmp  ah, 0x06
        jnz  @f
        jmp  _06
    @@:
        cmp  ah, 0x07
        jnz  @f
        jmp  _07
    @@:
        cmp  ah, 0x08       ; button 8
        jnz  @f
        jmp  _08
    @@:
        cmp  ah, 0x09
        jnz  @f
        jmp  _09
    @@:
        cmp  ah, 0x0a       ; button 10
        jnz  @f
        jmp  _0a
    @@:
        cmp  ah, 0x0b
        jnz  @f
        jmp  _0b
    @@:
        cmp  ah, 0x0c       ; button 12
        jnz  @f
        jmp  _0c
    @@:

        cmp  ah, 0x11
        jnz  @f
        jmp  _11
    @@:
        cmp  ah, 0x12
        jnz  @f
        jmp  _12
    @@:
        cmp  ah, 0x13
        jnz  @f
        jmp  _13
    @@:
        cmp  ah, 0x14
        jnz  @f
        jmp  _14
    @@:
        cmp  ah, 0x15
        jnz  @f
        jmp  _15
    @@:
        cmp  ah, 0x16
        jnz  @f
        jmp  _16
    @@:
        cmp  ah, 0x17
        jnz  @f
        jmp  _17
    @@:
        cmp  ah, 0x18
        jnz  @f
        jmp  _18
    @@:
        cmp  ah, 0x19
        jnz  @f
        jmp  _19
    @@:
        cmp  ah, 0x1a
        jnz  @f
        jmp  _1a
    @@:
        cmp  ah, 0x1b
        jnz  @f
        jmp  _1b
    @@:
        cmp  ah, 0x1c
        jnz  @f
        jmp  _1c
    @@:

        cmp  ah, 0x21       ; button 1
        jnz  @f
        jmp  _21
    @@:
        cmp  ah, 0x22
        jnz  @f
        jmp  _22
    @@:
        cmp  ah, 0x23       ; button 3
        jnz  @f
        jmp  _23
    @@:
        cmp  ah, 0x24
        jnz  @f
        jmp  _24
    @@:
        cmp  ah, 0x25       ; button 5
        jnz  @f
        jmp  _25
    @@:
        cmp  ah, 0x26
        jnz  @f
        jmp  _26
    @@:
        cmp  ah, 0x27       ; button 7
        jnz  @f
        jmp  _27
    @@:
        cmp  ah, 0x28
        jnz  @f
        jmp  _28
    @@:
        cmp  ah, 0x29       ; button 9
        jnz  @f
        jmp  _29
    @@:
        cmp  ah, 0x2a
        jnz  @f
        jmp  _2a
    @@:
        cmp  ah, 0x2b       ; button 11
        jnz  @f
        jmp  _2b
    @@:
        cmp  ah, 0x2c
        jnz  @f
        jmp  _2c
    @@:
        cmp  ah, 0x31
        jnz  @f
        jmp  _31

    @@:
        cmp  ah, 0x32
        jnz  @f
        jmp  _32
    @@:
        cmp  ah, 0x33
        jnz  @f
        jmp  _33
    @@:
        cmp  ah, 0x34
        jnz  @f
        jmp  _34
    @@:
        cmp  ah, 0x35
        jnz  @f
        jmp  _35
    @@:
        cmp  ah, 0x36
        jnz  @f
        jmp  _36
    @@:
        cmp  ah, 0x37
        jnz  @f
        jmp  _37
    @@:
        cmp  ah, 0x38
        jnz  @f
        jmp  _38
    @@:
        cmp  ah, 0x39
        jnz  @f
        jmp  _39
    @@:
        cmp  ah, 0x3a
        jnz  @f
        jmp  _3a
    @@:
        cmp  ah, 0x3b
        jnz  @f
        jmp  _3b
    @@:
        cmp  ah, 0x3c
        jnz  @f
        jmp  _3c
    @@:
        cmp  ah, 0x41
        jnz  @f
        jmp  _41
    @@:

    cmp   ah, 1         ; <20>᫨ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>஬ 1,
    jne   still         ;  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

  .exit:
    mcall -1            ; <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20>ணࠬ<E0AEA3><E0A0AC>


;---------------------------------------------------------------------
;---  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>  ----------------------------------
;---------------------------------------------------------------------

WHITE_W=48   ; While key width
BLACK_W=30   ; Black key width
BLACK_X=34   ; Black key X offset

draw_window:

    mcall 12, 1       ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 12: ᮮ<><E1AEAE><EFBFBD><EFBFBD><EFBFBD> <20><> <20> <20><>砫<EFBFBD> <20><><EFBFBD><EFBFBD>ᮢ<EFBFBD><E1AEA2>

    mcall 48, 3, sc,sizeof.system_colors


    mov   edx, [sc.work]         ; 梥<> 䮭<>
    or    edx, 0x33000000        ; <20> ⨯ <20><><EFBFBD><EFBFBD> 3
    mcall 0, <20,WHITE_W*15+9>, <200,250>, , ,caption
        
    mcall 8,  <WHITE_W*0,WHITE_W>, <0,100>, 0x21, 0xff7a74
    mcall 8,  <WHITE_W*1,WHITE_W>, <0,100>, 0x23, 0x907040
    mcall 8,  <WHITE_W*2,WHITE_W>, <0,100>, 0x25, 0xa08050
    mcall 8,  <WHITE_W*3,WHITE_W>, <0,100>, 0x26, 0xb09060
    mcall 8,  <WHITE_W*4,WHITE_W>, <00,100>, 0x28, 0xc0a070
    mcall 8,  <WHITE_W*5,WHITE_W>, <00,100>, 0x2a, 0xd0b080
    mcall 8,  <WHITE_W*6,WHITE_W>, <0,100>, 0x2c, 0xe0c090
    mcall 8,  <WHITE_W*7,WHITE_W>, <0,100>, 0x31, 0xffa97c
    mcall 8,  <WHITE_W*8,WHITE_W>, <0,100>, 0x33, 0xaf8d8d
    mcall 8,  <WHITE_W*9,WHITE_W>, <0,100>, 0x35, 0xbf9d9d
    mcall 8,  <WHITE_W*10,WHITE_W>, <0,100>, 0x36, 0xcfadad
    mcall 8,  <WHITE_W*11,WHITE_W>, <00,100>, 0x38, 0xdfbdbd
    mcall 8,  <WHITE_W*12,WHITE_W>, <00,100>, 0x3a, 0xefcdcd
    mcall 8,  <WHITE_W*13,WHITE_W>, <0,100>, 0x3c, 0xffdddd
    mcall 8,  <WHITE_W*14,WHITE_W>, <0,100>, 0x41, 0xffe558

    mcall 8,  <WHITE_W*0+BLACK_X,BLACK_W>, <0,50>, 0x22, 0x221100
    mcall 8,  <WHITE_W*1+BLACK_X,BLACK_W>, <0,50>, 0x24, 0x221100
    mcall 8,  <WHITE_W*3+BLACK_X,BLACK_W>, <0,50>, 0x27, 0x221100
    mcall 8,  <WHITE_W*4+BLACK_X,BLACK_W>, <0,50>, 0x29, 0x221100
    mcall 8,  <WHITE_W*5+BLACK_X,BLACK_W>, <0,50>, 0x2b, 0x221100
    mcall 8,  <WHITE_W*7+BLACK_X,BLACK_W>, <0,50>, 0x32, 0x221100
    mcall 8,  <WHITE_W*8+BLACK_X,BLACK_W>, <0,50>, 0x34, 0x221100
    mcall 8,  <WHITE_W*10+BLACK_X,BLACK_W>, <0,50>, 0x37, 0x221100
    mcall 8,  <WHITE_W*11+BLACK_X,BLACK_W>, <0,50>, 0x39, 0x221100
    mcall 8,  <WHITE_W*12+BLACK_X,BLACK_W>, <0,50>, 0x3b, 0x221100

    mcall 8,  <WHITE_W*0,WHITE_W>, <100,100>, 0xa1, 0x702050
    mcall 8,  <WHITE_W*1,WHITE_W>, <100,100>, 0x03, 0x683638
    mcall 8,  <WHITE_W*2,WHITE_W>, <100,100>, 0x05, 0x784648
    mcall 8,  <WHITE_W*3,WHITE_W>, <100,100>, 0x06, 0x885658
    mcall 8,  <WHITE_W*4,WHITE_W>, <100,100>, 0x08, 0x986668
    mcall 8,  <WHITE_W*5,WHITE_W>, <100,100>, 0x0a, 0xa87678
    mcall 8,  <WHITE_W*6,WHITE_W>, <100,100>, 0x0c, 0xb88688
    mcall 8,  <WHITE_W*7,WHITE_W>, <100,100>, 0x11, 0x880040
    mcall 8,  <WHITE_W*8,WHITE_W>, <100,100>, 0x13, 0x90622b
    mcall 8,  <WHITE_W*9,WHITE_W>, <100,100>, 0x15, 0xa0723b
    mcall 8,  <WHITE_W*10,WHITE_W>, <100,100>, 0x16, 0xb0824b
    mcall 8,  <WHITE_W*11,WHITE_W>, <100,100>, 0x18, 0xc0925b
    mcall 8,  <WHITE_W*12,WHITE_W>, <100,100>, 0x1a, 0xd0a26b
    mcall 8,  <WHITE_W*13,WHITE_W>, <100,100>, 0x1c, 0xe0b27b
    mcall 8,  <WHITE_W*14,WHITE_W>, <100,100>, 0x21, 0xff7a74

    mcall 8,  <WHITE_W*0+BLACK_X,BLACK_W>, <100,50>, 0x02, 0x221100
    mcall 8,  <WHITE_W*1+BLACK_X,BLACK_W>, <100,50>, 0x04, 0x221100
    mcall 8,  <WHITE_W*3+BLACK_X,BLACK_W>, <100,50>, 0x07, 0x221100
    mcall 8,  <WHITE_W*4+BLACK_X,BLACK_W>, <100,50>, 0x09, 0x221100
    mcall 8,  <WHITE_W*5+BLACK_X,BLACK_W>, <100,50>, 0x0b, 0x221100
    mcall 8,  <WHITE_W*7+BLACK_X,BLACK_W>, <100,50>, 0x12, 0x221100
    mcall 8,  <WHITE_W*8+BLACK_X,BLACK_W>, <100,50>, 0x14, 0x221100
    mcall 8,  <WHITE_W*10+BLACK_X,BLACK_W>, <100,50>, 0x17, 0x221100
    mcall 8,  <WHITE_W*11+BLACK_X,BLACK_W>, <100,50>, 0x19, 0x221100
    mcall 8,  <WHITE_W*12+BLACK_X,BLACK_W>, <100,50>, 0x1b, 0x221100


    ; <20>뢮<EFBFBD> ⥪<>⮢<EFBFBD><E2AEA2> <20><>ப<EFBFBD>
    mov   ecx, [sc.work_text]    ; 梥<> 䮭<>
    or    ecx, 0x90000000        ; <20> ⨯ <20><>ப<EFBFBD>
    mcall 4, <50, 205>, , message
    mcall 4, <10, 235>, , message1
    mcall 4, <10, 260>, , message2
    mcall 4, <10, 285>, , message3
    mcall 4, <10, 310>, , message4
    mcall 4, <16, 185>, , t_notes

    mcall 12, 2                  ; <20>㭪<EFBFBD><E3ADAA><EFBFBD> 12.2, <20><><EFBFBD><EFBFBD><EFBFBD>稫<EFBFBD> <20><>ᮢ<EFBFBD><E1AEA2><EFBFBD>

    ret


;---------------------------------------------------------------------
;---  <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>  ----------------------------------------------
;---------------------------------------------------------------------


; <20><><EFBFBD>ன <20><><EFBFBD><EFBFBD> <20> M (Music) <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>⨥<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

M:
  db  0x90, 0x30, 0


sc system_colors

if lang eq ru
  message  db '<27><>ࠢ<EFBFBD><E0A0A2>: <20>񫪭<EFBFBD><F1ABAAAD><EFBFBD> 2 ࠧ<> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.',0
  message1 db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>᪮<EFBFBD> <20><>᪫<EFBFBD><E1AAAB><EFBFBD><EFBFBD> - ',0
  message2 db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD>஥<EFBFBD><E0AEA5><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!)',0
  message3 db '<27><><EFBFBD><EFBFBD> "<22><>" - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> V,Tab,U,Enter',0
  message4 db '<27><><EFBFBD> <20><><EFBFBD><EFBFBD>祭<EFBFBD><E7A5AD> Caps Lock - <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> V,Q,I.',0
  t_notes  db '<27><>    <20><>    <20><>    <20><>   <20><><EFBFBD><EFBFBD>   <20><>    <20><>    <20><>',0
  caption  db '<27><><EFBFBD>᪮<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
else
  message  db 'Click twice on the window header to see help.',0
  message1 db 'Press any key in English keyboard layout - ',0
  message2 db 'so you will hear the sound from the PC-speaker (Beeper)',0
  message3 db 'Note "C" is the key V,Tab,U,Enter',0
  message4 db 'and when Caps Lock is on then the keys V,Q,I.',0
  t_notes  db 'C     D     E     F     G     A     B     C ',0
  caption  db 'Toy piano',0
end if

;---------------------------------------------------------------------

I_END:
  rb 4096
align 16
STACKTOP:
MEM: