Subversion Repositories Kolibri OS

Compare Revisions

Regard 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 71, 1 ,header
mcall 8,<15,42>,<40,20>,2,0xaaaaaa
call draw_buttons
101,11 → 96,7
mcall
call draw_buttons
 
if lang eq it
mcall 4, <16,25>, 0x80ffffff,text1
else
mcall 4, <25,25>, 0x80ffffff,text1
end if
mov edx,text2
 
add ebx,3 shl 16+20
122,25 → 113,13
 
draw_buttons:
pusha
if lang eq it
add ebx,60 shl 16
else
add ebx,50 shl 16
end if
inc edx
mcall
if lang eq it
add ebx,60 shl 16
else
add ebx,50 shl 16
end if
inc edx
mcall
if lang eq it
add ebx,60 shl 16
else
add ebx,50 shl 16
end if
inc edx
mcall
popa
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
 
;---------------------------------------------------------------------
 
I_END: ; ìåòêà êîíöà ïðîãðàììû