Subversion Repositories Kolibri OS

Compare Revisions

Ignore whitespace Rev 3587 → Rev 588

/programs/system/cd_tray/makefile
File deleted
/programs/system/cd_tray/CD_tray.ASM
16,7 → 16,6
dd 0x0 ; çàðåçåðâèðîâàíî
 
include 'MACROS.INC' ; ìàêðîñû îáëåã÷àþò æèçíü àññåìáëåðùèêîâ!
include 'lang.inc'
 
;---------------------------------------------------------------------
;--- ÍÀ×ÀËÎ ÏÐÎÃÐÀÌÌÛ ----------------------------------------------
88,11 → 87,7
; 1 - íà÷èíàåì ðèñîâàòü
; ÑÎÇÄÀèÌ ÎÊÍÎ
 
if lang eq it
mcall 0, <100,250>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
else
mcall 0, <100,230>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
end if
mcall 0, <100,230>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
mcall 71, 1 ,header
mcall 8,<15,42>,<40,20>,2,0xaaaaaa
call draw_buttons
100,14 → 95,10
add ecx,30 shl 16
mcall
call draw_buttons
 
if lang eq it
mcall 4, <16,25>, 0x80ffffff,text1
else
mcall 4, <25,25>, 0x80ffffff,text1
end if
mcall 4, <25,25>, 0x80ffffff,text1
mov edx,text2
 
add ebx,3 shl 16+20
mcall
mov edx,text3
114,7 → 105,7
add ebx,30
sub ebx,3 shl 16
mcall
 
mcall 12, 2 ; ôóíêöèÿ 12: ñîîáùèòü ÎÑ îá îòðèñîâêå îêíà
; 2, çàêîí÷èëè ðèñîâàòü
 
122,27 → 113,15
 
draw_buttons:
pusha
if lang eq it
add ebx,60 shl 16
else
add ebx,50 shl 16
end if
add ebx,50 shl 16
inc edx
mcall
if lang eq it
add ebx,60 shl 16
else
add ebx,50 shl 16
end if
mcall
add ebx,50 shl 16
inc edx
mcall
if lang eq it
add ebx,60 shl 16
else
add ebx,50 shl 16
end if
mcall
add ebx,50 shl 16
inc edx
mcall
mcall
popa
ret
;---------------------------------------------------------------------
149,16 → 128,9
;--- ÄÀÍÍÛÅ ÏÐÎÃÐÀÌÌÛ ----------------------------------------------
;---------------------------------------------------------------------
header db ' ATAPI Device Tray Control',0
if lang eq it
text3 db 'espelli espelli espelli espelli',0
text2 db 'carica carica carica carica',0
text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0
else
text3 db 'eject eject eject eject',0
text2 db 'load load load load',0
text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0
end if
 
text3 db 'eject eject eject eject',0
text2 db 'load load load load',0
text1 db '/cd0/ /cd1/ /cd2/ /cd3/',0
;---------------------------------------------------------------------
 
I_END: ; ìåòêà êîíöà ïðîãðàììû