;   Простой пример программы для KolibriOS
;   озвучивает код нажатой клавиши
;
;---------------------------------------------------------------------

  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"
include "../../KOSfuncs.inc"


START:

red:                    ; перерисовать окно

    call draw_window    ; вызываем процедуру отрисовки окна


still:
    mcall SF_WAIT_EVENT

    cmp  eax,2          ; нажата клавиша ?
    je   key            ; если да - на key
    cmp  eax,3          ; нажата кнопка ?
    je   button         ; если да - на button
    cmp  eax,1          ; перерисовать окно ?
    je   red            ; если да - на метку red

    jmp  still          ; если другое событие - в начало цикла



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


  key:                  ; нажата клавиша на клавиатуре
    mcall SF_GET_KEY             ; считать код символа (в 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  ; записать код символа как код ноты

    ; функция 55-55: системный динамик ("PlayNote")
    ;   esi - адрес мелодии

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

    ; или коротко:
    ;mcall SF_SPEAKER_PLAY, , , , Music

    jmp  still          ; вернуться к началу цикла


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

  button:
    mcall SF_GET_BUTTON

        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         ; если НЕ нажата кнопка с номером 1,
    jne   still         ;  вернуться

  .exit:
    mcall SF_TERMINATE_PROCESS   ; иначе конец программы


;---------------------------------------------------------------------
;---  ОПРЕДЕЛЕНИЕ И ОТРИСОВКА ОКНА  ----------------------------------
;---------------------------------------------------------------------

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

draw_window:

    mcall SF_REDRAW, SSF_BEGIN_DRAW       ; сообщить ОС о начале отрисовки

    mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc,sizeof.system_colors


    mov   edx, [sc.work]         ; цвет фона
    or    edx, 0x33000000        ; и тип окна 3
    mcall SF_CREATE_WINDOW, <20,WHITE_W*15+9>, <200,250>, , ,caption
        
    mcall SF_DEFINE_BUTTON, <WHITE_W*0,WHITE_W>, <0,100>, 0x21, 0xff7a74
    mcall , <WHITE_W*1,WHITE_W>, <0,100>, 0x23, 0x907040
    mcall , <WHITE_W*2,WHITE_W>, , 0x25, 0xa08050
    mcall , <WHITE_W*3,WHITE_W>, , 0x26, 0xb09060
    mcall , <WHITE_W*4,WHITE_W>, , 0x28, 0xc0a070
    mcall , <WHITE_W*5,WHITE_W>, , 0x2a, 0xd0b080
    mcall , <WHITE_W*6,WHITE_W>, , 0x2c, 0xe0c090
    mcall , <WHITE_W*7,WHITE_W>, , 0x31, 0xffa97c
    mcall , <WHITE_W*8,WHITE_W>, , 0x33, 0xaf8d8d
    mcall , <WHITE_W*9,WHITE_W>, , 0x35, 0xbf9d9d
    mcall , <WHITE_W*10,WHITE_W>, , 0x36, 0xcfadad
    mcall , <WHITE_W*11,WHITE_W>, , 0x38, 0xdfbdbd
    mcall , <WHITE_W*12,WHITE_W>, , 0x3a, 0xefcdcd
    mcall , <WHITE_W*13,WHITE_W>, , 0x3c, 0xffdddd
    mcall , <WHITE_W*14,WHITE_W>, , 0x41, 0xffe558

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

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

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


    ; вывод текстовой строки
    mov   ecx, [sc.work_text]    ; цвет фона
    or    ecx, 0x90000000        ; и тип строки
    mcall SF_DRAW_TEXT, <50, 205>, , message
    mcall , <10, 235>, , message1
    mcall , <10, 260>, , message2
    mcall , <10, 285>, , message3
    mcall , <10, 310>, , message4
    mcall , <16, 185>, , t_notes

    mcall SF_REDRAW, SSF_END_DRAW                  ; закончили рисовать

    ret


;---------------------------------------------------------------------
;---  ДАННЫЕ ПРОГРАММЫ  ----------------------------------------------
;---------------------------------------------------------------------


; Второй байт в M (Music) изменяется нажатием клавиши

M:
  db  0x90, 0x30, 0


sc system_colors

if lang eq ru
  message  db 'Справка: щёлкните 2 раза на заголовке.',0
  message1 db 'Нажмите любую клавишу в английской раскладке - ',0
  message2 db 'должен звучать встроенный динамик компьютера (не колонки!)',0
  message3 db 'Нота "До" - клавиши V,Tab,U,Enter',0
  message4 db 'при включении Caps Lock - клавиши V,Q,I.',0
  t_notes  db 'ДО    РЕ    МИ    ФА   СОЛЬ   ЛЯ    СИ    ДО',0
  caption  db 'Детское пианино',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: