Subversion Repositories Kolibri OS

Rev

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

Rev 502 Rev 3612
Line 5... Line 5...
5 
;   Compile with FASM for Menuet
 5 
;   Compile with FASM for Menuet
6 
;
 6 
;
7 
;
 7 
;
Line 8... Line 8...
8 
 
 8 
 
- 
 
 9 
include '..\..\..\macros.inc'
Line 9... Line 10...
9 
include '..\..\..\macros.inc'
 10 
include 'lang.inc'
10 
 
 11 
 
11 
memsize = 1000h
 12 
memsize = 1000h
Line 59... Line 60...
59 
 
 60 
 
60 
	mov	eax, 4
 61 
        mov     eax, 4
61 
	mov	ebx, 17 shl 16 + 30
 62 
        mov     ebx, 17 shl 16 + 30
62 
      mov   ecx, [sc.work_text]
 63 
      mov   ecx, [sc.work_text]
63 
	mov	edx, msg_nb
 64 
        mov     edx, msg_nb
64 
	mov	esi, 14
 65 
        mov     esi, msg_nb.length
Line 65... Line 66...
65 
	mcall
 66 
        mcall
66
67 
 
67 
	mov	ebx, 105 shl 16 + 30
 68 
        mov     ebx, 105 shl 16 + 30
68 
	mov	edx, [nb_name]
 69 
        mov     edx, [nb_name]
69 
	movzx	esi, byte[edx]
 70 
        movzx   esi, byte[edx]
Line 70... Line 71...
70 
	inc	edx
 71 
        inc     edx
71 
	mcall
 72 
        mcall
72
73 
 
73 
	mov	ebx, 17 shl 16 + 40
 74 
        mov     ebx, 17 shl 16 + 40
Line 74... Line 75...
74 
	mov	edx, msg_stat
 75 
        mov     edx, msg_stat
75 
	mov	esi, 8
 76 
        mov     esi, msg_stat.length
76 
	mcall
 77 
        mcall
77
78 
 
78 
	mov	ebx, 102 shl 16 + 50
 79 
        mov     ebx, 102 shl 16 + 50
79 
	mov	edx, msg_divs
 80 
        mov     edx, msg_divs
80 
	mov	esi, 32
 81 
        mov     esi, msg_divs.length
81 
	mcall
 82 
        mcall
82 
	mov	ebx, 17 shl 16 + 62
 83 
        mov     ebx, 17 shl 16 + 62
83 
	mov	edx, msg_hdd
 84 
        mov     edx, msg_hdd
- 
 
 85 
        mov     esi, msg_hdd.length
84 
	mov	esi, 10
 86 
        mcall
Line 85... Line 87...
85 
	mcall
 87 
        mov     ebx, 17 shl 16 + 72
86 
	mov	ebx, 17 shl 16 + 72
 88 
        mov     edx, msg_sgd
87 
	mov	edx, msg_sgd
 89 
        mov     esi, msg_sgd.length
Line 106... Line 108...
106 
	mcall
 108 
        mcall
Line 107... Line 109...
107 
 
 109 
 
108
110 
 
109 
	call	get_bd_stat
 111 
        call    get_bd_stat
110 
	mov	ecx, [sc.work_text]
 112 
        mov     ecx, [sc.work_text]
111 
	mov	esi, 9
 113 
        mov     esi, msg_nf.length
112 
	mov	ebx, 105 shl 16 + 40
 114 
        mov     ebx, 105 shl 16 + 40
113 
	mov	edx, msg_nf
 115 
        mov     edx, msg_nf
114 
	mov	al, [bd_stat]
 116 
        mov     al, [bd_stat]
115 
	test	al, al
 117 
        test    al, al
116 
	jz	@f
 118 
        jz      @f
117 
	mov	edx, msg_dis
 119 
        mov     edx, msg_dis
118 
	dec	al
 120 
        dec     al
- 
 
 121 
        jz      @f
119 
	jz	@f
 122 
        mov     edx, msg_en
120 
	mov	edx, msg_en
 123 
        mov     esi, msg_en.length
Line 121... Line 124...
121 
@@:	mov	eax, 4
 124 
@@:     mov     eax, 4
122 
	mcall
 125 
        mcall
Line 209... Line 212...
209 
bd_stat:	db	0	; 0 - ­¥ ­ ©¤¥­, 1 - ¢ëª«î祭, 2 - ¢ª«î祭
 212 
bd_stat:        db      0       ; 0 - ­¥ ­ ©¤¥­, 1 - ¢ëª«î祭, 2 - ¢ª«î祭
Line 210... Line 213...
210 
 
 213 
 
211 
nb_name		dd	nb_nf
 214 
nb_name         dd      nb_nf
Line -... Line 215...
- 
 
 215 
bd_msk          dd      msk_i440
- 
 
 216 
 
- 
 
 217 
if lang eq it
- 
 
 218 
        ;nb_nf           db      9, 'Non trovato'
212 
bd_msk		dd	msk_i440
 219 
         nb_nf           db     11, 'Non trovato'
- 
 
 220 
else
213 
 
 221 
        nb_nf           db      9, 'Not found'
214 
nb_nf		db	9, 'Not found'
 222 
end if
215 
msk_i440	db	0
 223 
msk_i440        db      0
216 
nb_i440		db	4, 'i440'
 224 
nb_i440         db      4, 'i440'
217 
msk_nforce	db	0x6D, 0x80, 0xE7, 0x06, 0	; ­®¬¥à ॣ¨áâà , ¬ áª , ­®¬¥à ॣ¨áâà , ¬ áª , ... , 0
 225 
msk_nforce      db      0x6D, 0x80, 0xE7, 0x06, 0       ; ­®¬¥à ॣ¨áâà , ¬ áª , ­®¬¥à ॣ¨áâà , ¬ áª , ... , 0
Line 550... Line 558...
550 
;--------------------------------------------------------------------------
 558 
;--------------------------------------------------------------------------
Line 551... Line 559...
551 
 
 559 
 
Line 552... Line 560...
552 
title	db appname,version,0
 560 
title   db appname,version,0
- 
 
 561 
 
553 
 
 562 
msg_divs        db ' x8  x16  x32 x64 x128 x256 x512'
- 
 
 563 
.length = $ - msg_divs
554 
msg_divs	db ' x8  x16  x32 x64 x128 x256 x512'
 564 
msg_hdd         db 'Hatl Disc.'
- 
 
 565 
.length = $ - msg_hdd
555 
msg_hdd	db 'Hatl Disc.'
 566 
msg_sgd         db 'Stop Grand'
- 
 
 567 
.length = $ - msg_sgd
556 
msg_sgd	db 'Stop Grand'
 568 
msg_nb          db 'North bridge :'
- 
 
 569 
.length = $ - msg_nb
- 
 
 570 
msg_stat        db 'Status :'
- 
 
 571 
.length = $ - msg_stat
- 
 
 572 
 
- 
 
 573 
if lang eq it
- 
 
 574 
        msg_en  db 'Abilitato   '
- 
 
 575 
        .length = $ - msg_en
- 
 
 576 
        msg_dis db 'Disabilitato'
- 
 
 577 
        .length = $ - msg_dis
- 
 
 578 
        msg_nf  db 'Non trovato '
557 
msg_nb	db 'North bridge :';14
 579 
        .length = $ - msg_nf
- 
 
 580 
else
558 
msg_stat	db 'Status :'      ;8
 581 
        msg_en  db 'Enabled  '
- 
 
 582 
        .length = $ - msg_en
559 
msg_en	db 'Enabled  '     ;9
 583 
        msg_dis db 'Disabled '
- 
 
 584 
        .length = $ - msg_dis
- 
 
 585 
        msg_nf  db 'Not found'
Line 560... Line 586...
560 
msg_dis	db 'Disabled '     ;9
 586 
        .length = $ - msg_nf
- 
 
 587 
end if
561 
msg_nf	db 'Not found'     ;9
 588 
 
562 
 
 589 
I_END:
563 
I_END:
 590