Subversion Repositories Kolibri OS

Rev

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

Rev 588 Rev 3587
Line 14... Line 14...
14 
  dd	 0x11000      ; àäðåñ âåðøèíû ñòýêà
 14 
  dd	 0x11000      ; àäðåñ âåðøèíû ñòýêà
15 
  dd	 0x0	     ; àäðåñ áóôåðà äëÿ ïàðàìåòðîâ (íå èñïîëüçóåòñÿ)
 15 
  dd	 0x0	     ; àäðåñ áóôåðà äëÿ ïàðàìåòðîâ (íå èñïîëüçóåòñÿ)
16 
  dd	 0x0	     ; çàðåçåðâèðîâàíî
 16 
  dd	 0x0	     ; çàðåçåðâèðîâàíî
Line 17... Line 17...
17 
 
 17 
 
- 
 
 18 
include 'MACROS.INC' ; ìàêðîñû îáëåã÷àþò æèçíü àññåìáëåðùèêîâ!
Line 18... Line 19...
18 
include 'MACROS.INC' ; ìàêðîñû îáëåã÷àþò æèçíü àññåìáëåðùèêîâ!
 19 
include 'lang.inc'
19 
 
 20 
 
20 
;---------------------------------------------------------------------
 21 
;---------------------------------------------------------------------
Line 85... Line 86...
85 
draw_window:
 86 
draw_window:
86 
    mcall 12, 1 	   ; ôóíêöèÿ 12: ñîîáùèòü ÎÑ îá îòðèñîâêå îêíà
 87 
    mcall 12, 1 	   ; ôóíêöèÿ 12: ñîîáùèòü ÎÑ îá îòðèñîâêå îêíà
87 
		   ; 1 - íà÷èíàåì ðèñîâàòü
 88 
		   ; 1 - íà÷èíàåì ðèñîâàòü
88 
		   ; ÑÎÇÄÀèÌ ÎÊÍÎ
 89 
		   ; ÑÎÇÄÀèÌ ÎÊÍÎ
Line -... Line 90...
- 
 
 90 
 
- 
 
 91 
    if lang eq it
- 
 
 92 
			mcall 0, <100,250>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
89 
 
 93 
	 else
- 
 
 94 
			mcall 0, <100,230>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
90 
    mcall 0, <100,230>, <100,110>, 0x03AABBCC, 0x805080D0, 0x005080D0
 95 
	 end if
91 
    mcall 71, 1 ,header
 96 
    mcall 71, 1 ,header
92 
    mcall 8,<15,42>,<40,20>,2,0xaaaaaa
 97 
    mcall 8,<15,42>,<40,20>,2,0xaaaaaa
93 
    call  draw_buttons
 98 
    call  draw_buttons
94 
    mov   edx,6
 99 
    mov   edx,6
95 
    add   ecx,30 shl 16
 100 
    add   ecx,30 shl 16
96 
    mcall
 101 
    mcall
Line -... Line 102...
- 
 
 102 
    call  draw_buttons
- 
 
 103 
 
- 
 
 104 
	 if lang eq it
97 
    call  draw_buttons
 105 
			mcall 4, <16,25>, 0x80ffffff,text1
- 
 
 106 
	 else
98
107 
			mcall 4, <25,25>, 0x80ffffff,text1
Line 99... Line 108...
99 
    mcall 4, <25,25>, 0x80ffffff,text1
 108 
	 end if
100 
    mov   edx,text2
 109 
    mov   edx,text2
101
110 
 
Line 111... Line 120...
111 
 
 120 
 
Line 112... Line 121...
112 
    ret 	       ; âûõîäèì èç ïðîöåäóðû
 121 
    ret 	       ; âûõîäèì èç ïðîöåäóðû
113 
 
 122 
 
- 
 
 123 
draw_buttons:
- 
 
 124 
    pusha
- 
 
 125 
    if lang eq it
114 
draw_buttons:
 126 
			add   ebx,60 shl 16
- 
 
 127 
	 else
115 
    pusha
 128 
			add   ebx,50 shl 16
116 
    add   ebx,50 shl 16
 129 
	 end if
- 
 
 130 
    inc   edx
- 
 
 131 
    mcall
- 
 
 132 
    if lang eq it
117 
    inc   edx
 133 
			add   ebx,60 shl 16
- 
 
 134 
	 else
118 
    mcall
135 
			add   ebx,50 shl 16
119 
    add   ebx,50 shl 16
 136 
	 end if
- 
 
 137 
    inc   edx
- 
 
 138 
    mcall
- 
 
 139 
    if lang eq it
120 
    inc   edx
 140 
			add   ebx,60 shl 16
- 
 
 141 
	 else
121 
    mcall
142 
			add   ebx,50 shl 16
122 
    add   ebx,50 shl 16
 143 
	 end if
123 
    inc   edx
 144 
    inc   edx
124 
    mcall
145 
    mcall
125 
    popa
 146 
    popa
126 
    ret
 147 
    ret
127 
;---------------------------------------------------------------------
 148 
;---------------------------------------------------------------------
128 
;---  ÄÀÍÍÛÅ ÏÐÎÃÐÀÌÌÛ  ----------------------------------------------
 149 
;---  ÄÀÍÍÛÅ ÏÐÎÃÐÀÌÌÛ  ----------------------------------------------
- 
 
 150 
;---------------------------------------------------------------------
- 
 
 151 
header db ' ATAPI Device Tray Control',0
- 
 
 152 
if lang eq it
- 
 
 153 
	text3 db 'espelli   espelli   espelli   espelli',0
- 
 
 154 
	text2 db 'carica    carica    carica    carica',0
129 
;---------------------------------------------------------------------
 155 
	text1 db '/cd0/     /cd1/     /cd2/     /cd3/',0
130 
header db ' ATAPI Device Tray Control',0
 156 
else
131 
text3 db 'eject   eject   eject   eject',0
 157 
	text3 db 'eject   eject   eject   eject',0
- 
 
 158 
	text2 db 'load    load    load    load',0
- 
 
 159 
	text1 db '/cd0/   /cd1/   /cd2/   /cd3/',0
132 
text2 db 'load    load    load    load',0
 160 
end if
Line 133... Line 161...
133 
text1 db '/cd0/   /cd1/   /cd2/   /cd3/',0
 161