Subversion Repositories Kolibri OS

Rev

Rev 3529 | Rev 6890 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3529 Rev 6258
Line 35... Line 35...
35
  dd     0x1000      ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
35
  dd     0x1000      ; ª®«¨ç¥á⢮ ¯ ¬ïâ¨
36
  dd     0x1000      ;  ¤à¥á ¢¥à設ë áâíª 
36
  dd     0x1000      ;  ¤à¥á ¢¥à設ë áâíª 
37
  dd     0x0         ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢
37
  dd     0x0         ;  ¤à¥á ¡ãä¥à  ¤«ï ¯ à ¬¥â஢
38
  dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
38
  dd     0x0         ; § à¥§¥à¢¨à®¢ ­®
Line 39... Line -...
39
 
-
 
40
include 'lang.inc'
39
 
Line 41... Line 40...
41
include 'macros.inc' ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
40
include "macros.inc" ; ¬ ªà®áë ®¡«¥£ç îâ ¦¨§­ì  áᥬ¡«¥à騪®¢!
42
 
41
 
43
;---------------------------------------------------------------------
42
;---------------------------------------------------------------------
Line 98... Line 97...
98
 
97
 
99
  .exit:
98
  .exit:
Line 100... Line -...
100
    mcall -1            ; ¨­ ç¥ ª®­¥æ ¯à®£à ¬¬ë
-
 
101
 
99
    mcall -1            ; ¨­ ç¥ ª®­¥æ ¯à®£à ¬¬ë
102
 
100
 
103
 
101
 
Line 104... Line 102...
104
;---------------------------------------------------------------------
102
;---------------------------------------------------------------------
Line 105... Line 103...
105
;---  Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€  ----------------------------------
103
;---  Ž…„…‹…ˆ… ˆ Ž’ˆ‘Ž‚Š€ ŽŠ€  ----------------------------------
-
 
104
;---------------------------------------------------------------------
106
;---------------------------------------------------------------------
105
 
Line 107... Line 106...
107
 
106
draw_window:
108
draw_window:
107
 
Line 109... Line -...
109
 
-
 
110
    mcall 12, 1                    ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ®¡ ®âà¨á®¢ª¥ ®ª­ 
-
 
111
                                   ; 1 - ­ ç¨­ ¥¬ à¨á®¢ âì
108
    mcall 12, 1       ; äã­ªæ¨ï 12: á®®¡é¨âì Ž‘ ® ­ ç «¥ ®âà¨á®¢ª¨
112
 
109
	
113
    ; ¤ «¥¥: á­ ç «  ¤«¨­­ë© ¢ à¨ ­â (§ ª®¬¬¥­â¨à®¢ ­­ë©)
110
    mcall 48, 3, sc,sizeof.system_colors
114
    ;        § â¥¬ ª®à®âª¨©  ­ «®£ á ¨á¯®«ì§®¢ ­¨¥¬ ¬ ªà®á®¢
111
	
-
 
112
    ; ¤ «¥¥: á­ ç «  ¤«¨­­ë© ¢ à¨ ­â (§ ª®¬¬¥­â¨à®¢ ­­ë©)
115
 
113
    ; § â¥¬ ª®à®âª¨©  ­ «®£ á ¨á¯®«ì§®¢ ­¨¥¬ ¬ ªà®á®¢
116
 
114
 
Line -... Line 115...
-
 
115
;   mov  eax,0                   ; äã­ªæ¨ï 0: ®¯à¥¤¥«¨âì ®ª­®
-
 
116
;   mov  ebx,200*65536+300       ; [x áâ àâ] *65536 + [x à §¬¥à]
117
                                   ; ‘Ž‡„€ðŒ ŽŠŽ
117
;   mov  ecx,200*65536+150       ; [y áâ àâ] *65536 + [y à §¬¥à]
Line -... Line 118...
-
 
118
;   mov  edx, [sc.work]          ; 梥â ä®­ 
-
 
119
;   or   edx, 0x33000000         ; ¨ ⨯ ®ª­  3
-
 
120
;   mov  edi,header              ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
-
 
121
;   int  0x40
Line 118... Line -...
118
;   mov  eax,0                     ; äã­ªæ¨ï 0 : ®¯à¥¤¥«¨âì ¨ ®âà¨á®¢ âì ®ª­®
-
 
119
;   mov  ebx,200*65536+200         ; [x áâ àâ] *65536 + [x à §¬¥à]
-
 
120
;   mov  ecx,200*65536+50          ; [y áâ àâ] *65536 + [y à §¬¥à]
-
 
121
;   mov  edx,0x33aabbcc            ; 梥â à ¡®ç¥© ®¡« á⨠ RRGGBB,8->color gl
-
 
122
;   mov  edi,header                ; ‡€ƒŽ‹Ž‚ŽŠ ŽŠ€
-
 
123
;   int  0x40
-
 
124
 
-
 
125
    mcall 0, <200,200>, <200,50>, 0x33AABBCC,,title
-
 
126
 
-
 
127
                                   
-
 
128
 
122
 
Line 129... Line 123...
129
;   mov  eax,4
123
    mov   edx, [sc.work]         ; 梥â ä®­ 
Line 130... Line 124...
130
;   mov  ebx,3 shl 16 + 8
124
    or    edx, 0x33000000        ; ¨ ⨯ ®ª­  3
Line 149... Line 143...
149
; ‚â®à®© ¡ ©â ¨§¬¥­ï¥âáï ­ ¦ â¨¥¬ ª« ¢¨èë
143
; ‚â®à®© ¡ ©â ¨§¬¥­ï¥âáï ­ ¦ â¨¥¬ ª« ¢¨èë
Line 150... Line 144...
150
 
144
 
151
Music:
145
Music:
Line -... Line 146...
-
 
146
  db  0x90, 0x30, 0
Line 152... Line -...
152
  db  0x90, 0x30, 0
-
 
153
 
-
 
154
 
-
 
155
;---------------------------------------------------------------------
-
 
156
 
-
 
157
; ¨­â¥àä¥©á ¯à®£à ¬¬ë ¬­®£®ï§ëç­ë©
-
 
158
;  ‚ë ¬®¦¥â¥ § ¤ âì ï§ëª ¢ MACROS.INC (lang fix ï§ëª)
147
 
159
 
-
 
160
lsz message,\
-
 
161
  ru,' ¦¬¨â¥ «î¡ãî ª« ¢¨èã...',\
-
 
162
  en,'Press any key...',\
-
 
163
  fr,'Pressez une touche...'
148
sc system_colors
164
 
-
 
165
lsz title,\
-
 
Line 166... Line 149...
166
  ru,'ˆŒ… Žƒ€ŒŒ›',\
149
 
Line 167... Line 150...
167
  en,'EXAMPLE APPLICATION',\
150
message db ' ¦¬¨â¥ «î¡ãî ª« ¢¨èã...',0