Subversion Repositories Kolibri OS

Rev

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

Rev 485 Rev 517
Line 313... Line 313...
313
        pop     ebp ebx
313
        pop     ebp ebx
314
; message loop
314
; message loop
315
.event:
315
.event:
316
        push    10
316
        push    10
317
        pop     eax
317
        pop     eax
318
        mcall
318
        int     40h
319
        dec     eax
319
        dec     eax
320
        jz      .redraw
320
        jz      .redraw
321
        dec     eax
321
        dec     eax
322
        jz      .key
322
        jz      .key
323
        or      eax, -1
323
        or      eax, -1
324
        mcall
324
        int     40h
325
.redraw:
325
.redraw:
326
        push    ebx ebp
326
        push    ebx ebp
327
        call    draw_window
327
        call    draw_window
328
        pop     ebp ebx
328
        pop     ebp ebx
329
        jmp     .event
329
        jmp     .event
330
.key:
330
.key:
331
        mov     al, 2
331
        mov     al, 2
332
        mcall
332
        int     40h
333
        shr     eax, 8
333
        shr     eax, 8
334
        cmp     al, 0xE0
334
        cmp     al, 0xE0
335
        jnz     @f
335
        jnz     @f
336
        mov     [bWasE0], 1
336
        mov     [bWasE0], 1
337
        jmp     .event
337
        jmp     .event
Line 1237... Line 1237...
1237
        pop     ebx
1237
        pop     ebx
1238
        xor     ecx, ecx
1238
        xor     ecx, ecx
1239
        cmp     [ctrlstate], 1
1239
        cmp     [ctrlstate], 1
1240
        sbb     ecx, -2
1240
        sbb     ecx, -2
1241
        mov     edx, layout
1241
        mov     edx, layout
1242
        mcall
1242
        int     0x40
1243
        popad
1243
        popad
1244
; translate scancode to ASCII
1244
; translate scancode to ASCII
1245
        movzx   eax, al
1245
        movzx   eax, al
1246
        movzx   eax, byte [layout+eax]
1246
        movzx   eax, byte [layout+eax]
1247
        push    eax
1247
        push    eax