Subversion Repositories Kolibri OS

Rev

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

Rev 485 Rev 502
Line 155... Line 155...
155 
    mcall
 155 
    mcall
Line 156... Line 156...
156 
 
 156 
 
Line 157... Line 157...
157 
    mcall 9,PROCESSINFO,-1
157 
    mcall 9,PROCESSINFO,-1
158 
 
 158 
 
159 
    mpack ecx,1,1
 159 
    mpack ecx,1,1
Line 160... Line 160...
160 
    mov   ebx,[pinfo.box.left]
 160 
    mov   ebx,[pinfo.box.width]
161 
    sub   ebx,10
 161 
    sub   ebx,10
162 
 
 162 
 
Line 188... Line 188...
188 
    madd  ecx, 14,0
 188 
    madd  ecx, 14,0
189 
    mcall  ,,,0x4000000C       ; Button: Enter Outfile
 189 
    mcall  ,,,0x4000000C       ; Button: Enter Outfile
190 
    madd  ecx, 14,0
 190 
    madd  ecx, 14,0
191 
    mcall  ,,,0x4000000D       ; Button: Enter Path
 191 
    mcall  ,,,0x4000000D       ; Button: Enter Path
Line 192... Line 192...
192 
 
 192 
 
193 
    mpack ebx,[pinfo.box.left],MAGIC1
 193 
    mpack ebx,[pinfo.box.width],MAGIC1
194 
    msub  ebx,MAGIC1+10+1,0
 194 
    msub  ebx,MAGIC1+10+1,0
195 
    mpack ecx,0, 14*3/2-1
 195 
    mpack ecx,0, 14*3/2-1
196 
    madd  ecx,1,0
 196 
    madd  ecx,1,0
197 
    mcall  ,,,0x00000002,[sc.work_button]
 197 
    mcall  ,,,0x00000002,[sc.work_button]
Line 209... Line 209...
209 
    add  ebx, 14
 209 
    add  ebx, 14
210 
    add  edx,text.line_size
 210 
    add  edx,text.line_size
211 
    cmp  byte[edx],'x'
 211 
    cmp  byte[edx],'x'
212 
    jne  newline
 212 
    jne  newline
Line 213... Line 213...
213 
 
 213 
 
214 
    mov   ebx,[pinfo.box.left]
 214 
    mov   ebx,[pinfo.box.width]
215 
    sub   ebx,MAGIC1+10+1-9
 215 
    sub   ebx,MAGIC1+10+1-9
216 
    shl   ebx,16
 216 
    shl   ebx,16
217 
    add   ebx,1+( 14*3/2-1)/2-3
 217 
    add   ebx,1+( 14*3/2-1)/2-3
218 
    mcall  ,,[sc.work_button_text],s_compile,7
 218 
    mcall  ,,[sc.work_button_text],s_compile,7
219 
    add   ebx,14*3/2+1
 219 
    add   ebx,14*3/2+1
Line 220... Line 220...
220 
    mcall ,,,s_run
 220 
    mcall ,,,s_run
221 
 
 221 
 
222 
    mpack ebx,MAGIC1+6,0
 222 
    mpack ebx,MAGIC1+6,0
223 
    add   ebx,1+ 14/2-3+ 14*0
 223 
    add   ebx,1+ 14/2-3+ 14*0
224 
    mov   esi,[pinfo.box.left]
 224 
    mov   esi,[pinfo.box.width]
225 
    sub   esi,MAGIC1*2+5*2+6+3
 225 
    sub   esi,MAGIC1*2+5*2+6+3
226 
    mov   eax,esi
 226 
    mov   eax,esi
227 
    mov   cl,6
 227 
    mov   cl,6
Line 245... Line 245...
245 
 
 245 
 
Line 246... Line 246...
246 
bottom_right dd ?
 246 
bottom_right dd ?
247 
 
 247 
 
248 
draw_messages:
 248 
draw_messages:
249 
    mov    eax,13      ; clear work area
 249 
    mov    eax,13      ; clear work area
250 
    mpack  ebx,7-2,[pinfo.box.left]
 250 
    mpack  ebx,7-2,[pinfo.box.width]
251 
    sub    ebx,5*2+7*2-1-2*2
 251 
    sub    ebx,5*2+7*2-1-2*2
252 
    mpack  ecx,0,[pinfo.box.top]
 252 
    mpack  ecx,0,[pinfo.box.height]
253 
    madd   ecx, 14*3+1+7+1,-( 14*3+1+7*2+25)
 253 
    madd   ecx, 14*3+1+7+1,-( 14*3+1+7*2+25)
254 
    mov    word[bottom_right+2],bx
 254 
    mov    word[bottom_right+2],bx
255 
    mov    word[bottom_right],cx
 255 
    mov    word[bottom_right],cx
Line 359... Line 359...
359 
 
 359 
 
Line 360... Line 360...
360 
    jmp    still
 360 
    jmp    still
Line 361... Line 361...
361 
 
 361 
 
362 
print_text:
 362 
print_text:
363 
 
 363 
 
364 
    mpack ebx,MAGIC1+6,[pinfo.box.left]
 364 
    mpack ebx,MAGIC1+6,[pinfo.box.width]
365 
    sub   ebx,MAGIC1*2+19
 365 
    sub   ebx,MAGIC1*2+19
366 
    movzx esi,bx
 366 
    movzx esi,bx