Subversion Repositories Kolibri OS

Rev

Rev 9439 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9439 Rev 9647
Line 15... Line 15...
15 
  dd     0
 15 
  dd     0
16 
  dd     0
 16 
  dd     0
Line 17... Line 17...
17 
 
 17 
 
18 
include "lang.inc"
 18 
include "lang.inc"
- 
 
 19 
include "../../macros.inc"
Line 19... Line 20...
19 
include "../../macros.inc"
 20 
include "../../KOSfuncs.inc"
Line 20... Line 21...
20 
 
 21 
 
Line 21... Line 22...
21 
 
 22 
 
Line 22... Line 23...
22 
START:
 23 
START:
23 
 
 - 
 
24 
red:                    ; ¯¥à¥à¨á®¢ âì ®ª­®
 24 
 
25 
 
 - 
 
Line 26... Line 25...
26 
    call draw_window    ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
 25 
red:                    ; ¯¥à¥à¨á®¢ âì ®ª­®
27 
 
 26 
 
28 
 
 27 
    call draw_window    ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª­ 
29 
still:
 28 
 
Line 44... Line 43...
44 
 
 43 
 
Line 45... Line 44...
45 
;---------------------------------------------------------------------
 44 
;---------------------------------------------------------------------
46 
 
 45 
 
Line 47... Line 46...
47 
 
 46 
 
48 
  key:                  ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
 47 
  key:                  ; ­ ¦ â  ª« ¢¨è  ­  ª« ¢¨ âãà¥
49 
    mcall 2             ; äã­ªæ¨ï 2 - áç¨â âì ª®¤ ᨬ¢®«  (¢ ah)
 48 
    mcall SF_GET_KEY             ; áç¨â âì ª®¤ ᨬ¢®«  (¢ ah)
Line 560... Line 559...
560 
    mov  [M+1], ah  ; § ¯¨á âì ª®¤ ᨬ¢®«  ª ª ª®¤ ­®âë
 559 
    mov  [M+1], ah  ; § ¯¨á âì ª®¤ ᨬ¢®«  ª ª ª®¤ ­®âë
Line 561... Line 560...
561 
 
 560 
 
562 
    ; äã­ªæ¨ï 55-55: á¨á⥬­ë© ¤¨­ ¬¨ª ("PlayNote")
 561 
    ; äã­ªæ¨ï 55-55: á¨á⥬­ë© ¤¨­ ¬¨ª ("PlayNote")
Line 563... Line 562...
563 
    ;   esi -  ¤à¥á ¬¥«®¤¨¨
 562 
    ;   esi -  ¤à¥á ¬¥«®¤¨¨
564 
 
 563 
 
565 
       mov  eax,55
 564 
       mov  eax,SF_SPEAKER_PLAY
566 
       mov  ebx,eax
 565 
       mov  ebx,eax
Line 567... Line 566...
567 
       mov  esi,M
 566 
       mov  esi,M
568 
       int  0x40
 567 
       int  0x40
Line 569... Line 568...
569 
 
 568 
 
Line 570... Line 569...
570 
    ; ¨«¨ ª®à®âª®:
 569 
    ; ¨«¨ ª®à®âª®:
Line 571... Line 570...
571 
    ;mcall 55, , , , Music
 570 
    ;mcall SF_SPEAKER_PLAY, , , , Music
572 
 
 571 
 
Line 573... Line 572...
573 
    jmp  still          ; ¢¥à­ãâìáï ª ­ ç «ã 横« 
 572 
    jmp  still          ; ¢¥à­ãâìáï ª ­ ç «ã 横« 
574 
 
 573 
 
575 
 
 574 
 
576 
;---------------------------------------------------------------------
 575 
;---------------------------------------------------------------------
Line 780... Line 779...
780 
 
 779 
 
781 
    cmp   ah, 1         ; ¥á«¨ … ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1,
 780 
    cmp   ah, 1         ; ¥á«¨ … ­ ¦ â  ª­®¯ª  á ­®¬¥à®¬ 1,
Line 782... Line 781...
782 
    jne   still         ;  ¢¥à­ãâìáï
 781 
    jne   still         ;  ¢¥à­ãâìáï
783 
 
 782 
 
Line 784... Line 783...
784 
  .exit:
 783 
  .exit:
785 
    mcall -1            ; ¨­ ç¥ ª®­¥æ ¯à®£à ¬¬ë
 784 
    mcall SF_TERMINATE_PROCESS   ; ¨­ ç¥ ª®­¥æ ¯à®£à ¬¬ë
786 
 
 785 
 
Line 793... Line 792...
793 
BLACK_W=30   ; Black key width
 792 
BLACK_W=30   ; Black key width
794 
BLACK_X=34   ; Black key X offset
 793 
BLACK_X=34   ; Black key X offset
Line 795... Line 794...
795 
 
 794 
 
Line 796... Line 795...
796 
draw_window:
 795 
draw_window:
Line 797... Line 796...
797 
 
 796 
 
Line 798... Line 797...
798 
    mcall 12, 1       ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ® ­ ç «¥ ®âà¨á®¢ª¨
 797 
    mcall SF_REDRAW, SSF_BEGIN_DRAW       ; á®®¡é¨âì Ž‘ ® ­ ç «¥ ®âà¨á®¢ª¨
799 
 
 798 
 
800 
    mcall 48, 3, sc,sizeof.system_colors
 799 
    mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, sc,sizeof.system_colors
Line 801... Line 800...
801 
 
 800 
 
802 
 
 801 
 
803 
    mov   edx, [sc.work]         ; 梥â ä®­ 
 802 
    mov   edx, [sc.work]         ; 梥â ä®­ 
804 
    or    edx, 0x33000000        ; ¨ ⨯ ®ª­  3
 803 
    or    edx, 0x33000000        ; ¨ ⨯ ®ª­  3
805 
    mcall 0, <20,WHITE_W*15+9>, <200,250>, , ,caption
 804 
    mcall SF_CREATE_WINDOW, <20,WHITE_W*15+9>, <200,250>, , ,caption
806
805
807 
    mcall 8,  , <0,100>, 0x21, 0xff7a74
 806 
    mcall SF_DEFINE_BUTTON, , <0,100>, 0x21, 0xff7a74
808 
    mcall 8,  , <0,100>, 0x23, 0x907040
 807 
    mcall , , <0,100>, 0x23, 0x907040
809 
    mcall 8,  , <0,100>, 0x25, 0xa08050
 808 
    mcall , , , 0x25, 0xa08050
810 
    mcall 8,  , <0,100>, 0x26, 0xb09060
 809 
    mcall , , , 0x26, 0xb09060
811 
    mcall 8,  , <00,100>, 0x28, 0xc0a070
 810 
    mcall , , , 0x28, 0xc0a070
812 
    mcall 8,  , <00,100>, 0x2a, 0xd0b080
 811 
    mcall , , , 0x2a, 0xd0b080
813 
    mcall 8,  , <0,100>, 0x2c, 0xe0c090
 812 
    mcall , , , 0x2c, 0xe0c090
814 
    mcall 8,  , <0,100>, 0x31, 0xffa97c
 813 
    mcall , , , 0x31, 0xffa97c
815 
    mcall 8,  , <0,100>, 0x33, 0xaf8d8d
 814 
    mcall , , , 0x33, 0xaf8d8d
816 
    mcall 8,  , <0,100>, 0x35, 0xbf9d9d
 815 
    mcall , , , 0x35, 0xbf9d9d
817 
    mcall 8,  , <0,100>, 0x36, 0xcfadad
 816 
    mcall , , , 0x36, 0xcfadad
818 
    mcall 8,  , <00,100>, 0x38, 0xdfbdbd
 817 
    mcall , , , 0x38, 0xdfbdbd
819 
    mcall 8,  , <00,100>, 0x3a, 0xefcdcd
 818 
    mcall , , , 0x3a, 0xefcdcd
820 
    mcall 8,  , <0,100>, 0x3c, 0xffdddd
 819 
    mcall , , , 0x3c, 0xffdddd
821 
    mcall 8,  , <0,100>, 0x41, 0xffe558
 820 
    mcall , , , 0x41, 0xffe558
822 
 
 821 
 
823 
    mcall 8,  , <0,50>, 0x22, 0x221100
 822 
    mcall , , <0,50>, 0x22, 0x221100
824 
    mcall 8,  , <0,50>, 0x24, 0x221100
 823 
    mcall , , , 0x24,
825 
    mcall 8,  , <0,50>, 0x27, 0x221100
 824 
    mcall , , , 0x27,
826 
    mcall 8,  , <0,50>, 0x29, 0x221100
 825 
    mcall , , , 0x29,
827 
    mcall 8,  , <0,50>, 0x2b, 0x221100
 826 
    mcall , , , 0x2b,
828 
    mcall 8,  , <0,50>, 0x32, 0x221100
 827 
    mcall , , , 0x32,
829 
    mcall 8,  , <0,50>, 0x34, 0x221100
 828 
    mcall , , , 0x34,
830 
    mcall 8,  , <0,50>, 0x37, 0x221100
 829 
    mcall , , , 0x37,
831 
    mcall 8,  , <0,50>, 0x39, 0x221100
 830 
    mcall , , , 0x39,
832 
    mcall 8,  , <0,50>, 0x3b, 0x221100
 831 
    mcall , , , 0x3b,
833 
 
 832 
 
834 
    mcall 8,  , <100,100>, 0xa1, 0x702050
 833 
    mcall , , <100,100>, 0xa1, 0x702050
835 
    mcall 8,  , <100,100>, 0x03, 0x683638
 834 
    mcall , , , 0x03, 0x683638
836 
    mcall 8,  , <100,100>, 0x05, 0x784648
 835 
    mcall , , , 0x05, 0x784648
837 
    mcall 8,  , <100,100>, 0x06, 0x885658
 836 
    mcall , , , 0x06, 0x885658
838 
    mcall 8,  , <100,100>, 0x08, 0x986668
 837 
    mcall , , , 0x08, 0x986668
839 
    mcall 8,  , <100,100>, 0x0a, 0xa87678
 838 
    mcall , , , 0x0a, 0xa87678
840 
    mcall 8,  , <100,100>, 0x0c, 0xb88688
 839 
    mcall , , , 0x0c, 0xb88688
841 
    mcall 8,  , <100,100>, 0x11, 0x880040
 840 
    mcall , , , 0x11, 0x880040
842 
    mcall 8,  , <100,100>, 0x13, 0x90622b
 841 
    mcall , , , 0x13, 0x90622b
843 
    mcall 8,  , <100,100>, 0x15, 0xa0723b
 842 
    mcall , , , 0x15, 0xa0723b
844 
    mcall 8,  , <100,100>, 0x16, 0xb0824b
 843 
    mcall , , , 0x16, 0xb0824b
845 
    mcall 8,  , <100,100>, 0x18, 0xc0925b
 844 
    mcall , , , 0x18, 0xc0925b
846 
    mcall 8,  , <100,100>, 0x1a, 0xd0a26b
 845 
    mcall , , , 0x1a, 0xd0a26b
847 
    mcall 8,  , <100,100>, 0x1c, 0xe0b27b
 846 
    mcall , , , 0x1c, 0xe0b27b
848 
    mcall 8,  , <100,100>, 0x21, 0xff7a74
 847 
    mcall , , , 0x21, 0xff7a74
849 
 
 848 
 
850 
    mcall 8,  , <100,50>, 0x02, 0x221100
 849 
    mcall , , <100,50>, 0x02, 0x221100
851 
    mcall 8,  , <100,50>, 0x04, 0x221100
 850 
    mcall , , , 0x04,
852 
    mcall 8,  , <100,50>, 0x07, 0x221100
 851 
    mcall , , , 0x07,
853 
    mcall 8,  , <100,50>, 0x09, 0x221100
 852 
    mcall , , , 0x09,
Line 854... Line 853...
854 
    mcall 8,  , <100,50>, 0x0b, 0x221100
 853 
    mcall , , , 0x0b,
855 
    mcall 8,  , <100,50>, 0x12, 0x221100
 854 
    mcall , , , 0x12,
856 
    mcall 8,  , <100,50>, 0x14, 0x221100
 855 
    mcall , , , 0x14,
857 
    mcall 8,  , <100,50>, 0x17, 0x221100
 856 
    mcall , , , 0x17,
858 
    mcall 8,  , <100,50>, 0x19, 0x221100
 857 
    mcall , , , 0x19,
859 
    mcall 8,  , <100,50>, 0x1b, 0x221100
 858 
    mcall , , , 0x1b,
860 
 
 859 
 
861 
 
 860 
 
862 
    ; ¢ë¢®¤ ⥪á⮢®© áâப¨
 861 
    ; ¢ë¢®¤ ⥪á⮢®© áâப¨
Line 863... Line 862...
863 
    mov   ecx, [sc.work_text]    ; 梥â ä®­ 
 862 
    mov   ecx, [sc.work_text]    ; 梥â ä®­ 
Line 864... Line 863...
864 
    or    ecx, 0x90000000        ; ¨ ⨯ áâப¨
 863 
    or    ecx, 0x90000000        ; ¨ ⨯ áâப¨
Line 865... Line 864...
865 
    mcall 4, <50, 205>, , message
 864 
    mcall SF_DRAW_TEXT, <50, 205>, , message