Subversion Repositories Kolibri OS

Rev

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

Rev 551 Rev 2091
Line -... Line 1...
- 
 
 1 
;;      h2d2b v0.3 system colors by Leency  ;;
- 
 
 2 
;;      21.08.2011                          ;;
- 
 
 3 
 
1 
;;      hex2dec2bin 0.2 by Alexei Ershov    ;;
 4 
;;      hex2dec2bin 0.2 by Alexei Ershov    ;;
2 
;;      16.11.2006                          ;;
 5 
;;      16.11.2006                          ;;
Line 3... Line -...
3 
 
 - 
 
4 
  use32 	     ; âêëþ÷èòü 32-áèòíûé ðåæèì àññåìáëåðà
 - 
 
5 
  org	 0x0	     ; àäðåñàöèÿ ñ íóëÿ
 6 
 
6 
 
 - 
 
7 
  db	 'MENUET01'  ; 8-áàéòíûé èäåíòèôèêàòîð MenuetOS
 - 
 
8 
  dd	 0x01	     ; âåðñèÿ çàãîëîâêà (âñåãäà 1)
 - 
 
9 
  dd	 START	     ; àäðåñ ïåðâîé êîìàíäû
 7 
use32
10 
  dd	 I_END	     ; ðàçìåð ïðîãðàììû
 8 
    org 0x0
11 
  dd	 0x1000      ; êîëè÷åñòâî ïàìÿòè
 - 
 
12 
  dd	 0x1000      ; àäðåñ âåðøèíû ñòýêà
 - 
 
13 
  dd	 0x0	     ; àäðåñ áóôåðà äëÿ ïàðàìåòðîâ (íå èñïîëüçóåòñÿ)
 9 
    db  'MENUET01'
Line -... Line 10...
- 
 
 10 
    dd  0x01,start,i_end,e_end,e_end,0,0
14 
  dd	 0x0	     ; çàðåçåðâèðîâàíî
 11 
 
Line 15... Line 12...
15 
 
 12 
include '../../../proc32.inc'
16 
include '..\..\..\MACROS.INC' ; ìàêðîñû îáëåã÷àþò æèçíü àññåìáëåðùèêîâ!
 13 
include '../../../macros.inc' ; ìàêðîñû îáëåã÷àþò æèçíü àññåìáëåðùèêîâ!
Line 17... Line 14...
17 
 
 14 
 
Line 18... Line 15...
18 
 
 15 
 
Line 144... Line 141...
144 
    jmp   red
 141 
    jmp   red
Line 145... Line 142...
145 
 
 142 
 
146 
;------------------------------------------------
 143 
;------------------------------------------------
147 
    draw_window:
 144 
    draw_window:
- 
 
 145 
;------------------------------------------------
- 
 
 146 
	mcall	48, 3, sys_colors, 40
148 
;------------------------------------------------
 147 
 
- 
 
 148 
    mcall 12, 1
- 
 
 149 
	mov	edx, 0x14000000
- 
 
 150 
	or	edx, [sys_colors.work]
- 
 
 151 
	;mov	esi, 0x80000000
149 
    mcall 12, 1
 152 
	;or	esi, [sys_colors.grab_text]
Line -... Line 153...
- 
 
 153 
    mcall 0, 200*65536+300, 200*65536+175, ,,title
150 
    mcall 0, 200*65536+300, 200*65536+175, 0x14AABBCC,,title
 154 
 
151 
 
 155
152 
    mcall  8, 15      *65536+ 38, 90*65536+ 15, 2, 0x6688DD ; êíîïêà shl
 156 
    mcall  8, 15      *65536+ 38, 90*65536+ 15, 2, [sys_colors.work_button] ; êíîïêà shl
153 
    mcall  ,		       ,110*65536+ 15,	,	   ; êíîïêà sal
 157 
    mcall  ,		       ,110*65536+ 15,	,	   ; êíîïêà sal
Line -... Line 158...
- 
 
 158 
    mcall  , (300-53)*65536+ 38, 90*65536+ 15, 3,	   ; êíîïêà shr
- 
 
 159 
    mcall  ,		       ,110*65536+ 15, 4,	   ; êíîïêà sar
154 
    mcall  , (300-53)*65536+ 38, 90*65536+ 15, 3,	   ; êíîïêà shr
 160 
 
155 
    mcall  ,		       ,110*65536+ 15, 4,	   ; êíîïêà sar
 161 
	mov	ecx, 0x80000000
156 
 
 162 
	or	ecx, [sys_colors.work_text]
157 
    mcall  4, 15*65536+30,   0x80000000, binstr,
 163 
    mcall  4, 15*65536+30,   , binstr,
158 
    mcall  , 15*65536+44,   , decstr,
 164 
    mcall  , 15*65536+44,   , decstr,
Line -... Line 165...
- 
 
 165 
    mcall  , 15*65536+58,   ,sdecstr,
- 
 
 166 
    mcall  , 15*65536+72,   , hexstr,
159 
    mcall  , 15*65536+58,   ,sdecstr,
 167 
    mcall  , 15*65536+150,  , numstr,
160 
    mcall  , 15*65536+72,   , hexstr,
 168 
 
161 
    mcall  , 15*65536+150,  , numstr,
 169 
	mov	ecx, 0x80000000
162 
 
 170 
	or	ecx, [sys_colors.work_button_text]
163 
    mcall  ,	   25*65536+93,0x10000000,shlstr,3
 171 
    mcall  ,	   26*65536+94, 	, shlstr,3
Line -... Line 172...
- 
 
 172 
    mcall  , (300-42)*65536+94, 	, shrstr,
164 
    mcall  , (300-43)*65536+93, 	, shrstr,
 173 
    mcall  ,	   26*65536+114,	, salstr,
165 
    mcall  ,	   25*65536+113,	, salstr,
 174 
    mcall  , (300-42)*65536+114,	, sarstr,
166 
    mcall  , (300-43)*65536+113,	, sarstr,
 175 
    mov    ecx, [num]
167 
    mov    ecx, [num]
 176 
 
168 
 
 177
169 
    mcall  47, 8*65536+256,,240*65536+72,0    ; 16-íàÿ
 178 
    mcall  47, 8*65536+256,,240*65536+72,[sys_colors.work_text]    ; 16-íàÿ
Line 181... Line 190...
181 
    mov    [minus], '-'
 190 
    mov    [minus], '-'
182 
    neg    ecx
 191 
    neg    ecx
183 
@@:
 192 
@@:
184 
    mcall   ,  10*65536,,228*65536+58,	      ; 10-íàÿ ñî çíàêîì
 193 
    mcall   ,  10*65536,,228*65536+58,	      ; 10-íàÿ ñî çíàêîì
185 
    mcall  4, 222*65536+58, 0, minus, 1
 194 
    mcall  4, 222*65536+58, 0, minus, 1
186 
    mcall 38, 15*65536+300-15, 137*65536+137, 0x006688DD
 195 
    mcall 38, 15*65536+300-15, 137*65536+137, [sys_colors.work_graph]
187 
    call   Draw_String
 196 
    call   Draw_String
188 
    mcall 12, 2 		   ; ôóíêöèÿ 12: ñîîáùèòü ÎÑ îá îòðèñîâêå îêíà
 197 
    mcall 12, 2 		   ; ôóíêöèÿ 12: ñîîáùèòü ÎÑ îá îòðèñîâêå îêíà
Line 189... Line 198...
189 
 
 198 
 
Line 237... Line 246...
237 
string1_end:
 246 
string1_end:
238 
  index dd string1
 247 
  index dd string1
239 
  num	dd  0
 248 
  num	dd  0
Line 240... Line 249...
240 
 
 249 
 
241 
 
 250 
 
242 
 title db 'hex2dec2bin 0.2',0
 251 
 title db 'hex2dec2bin 0.3',0
243 
 minus	db '-'
 252 
 minus	db '-',0
244 
 numstr db 'Number:',0
 253 
 numstr db 'Number:',0
245 
 hexstr db 'hex:',0
 254 
 hexstr db 'hex:',0
246 
 binstr db 'bin:',0
 255 
 binstr db 'bin:',0
247 
 decstr db 'dec:',0
 256 
 decstr db 'dec:',0
248 
sdecstr db 'signed dec:',0
 257 
sdecstr db 'signed dec:',0
249 
 shlstr db 'shl'
 258 
 shlstr db 'shl',0
250 
 salstr db 'sal'
 259 
 salstr db 'sal',0
- 
 
 260 
 shrstr db 'shr',0
- 
 
 261 
 sarstr db 'sar',0
- 
 
 262 
 
- 
 
 263 
i_end:
Line 251... Line 264...
251 
 shrstr db 'shr'
 264 
 sys_colors		system_colors