| 0,0 → 1,128 |
|---|
| ;--------------------------------------------------------------------- |
| kabout: |
| test dword [status],4 |
| jnz still |
| or dword [status],4 |
| |
| call get_memory_for_tread_stack |
| mov [thread_stack_3],eax |
| mcall 51,1,thread3 ;,thread_stack_3 |
| jmp still |
| ;--------------------------------------------------------------------- |
| thread3: ; start of bgrd thread |
| mcall 9, procinfo_threads, -1 |
| mov eax,[ebx+30] |
| mov [PID3],eax |
| mcall 40, 0x7 |
| .red: |
| call .draw_window |
| |
| .still: |
| |
| mov eax,10 ; wait here for event |
| mcall |
| |
| cmp eax,1 ; redraw request ? |
| je .red |
| cmp eax,2 ; key in buffer ? |
| je .close ;.key |
| cmp eax,3 ; button in buffer ? |
| je .button |
| |
| jmp .still |
| |
| ; .key: |
| ; mcall |
| ; cmp ah,27 |
| ; je .close |
| ; jmp .still |
| |
| |
| .button: ; button |
| mov eax,17 ; get id |
| mcall |
| |
| cmp ah,1 ; button id=1 ? |
| je .close |
| cmp ah,2 |
| jne .still ;noclose3 |
| .close: |
| ; btr dword [status],3 |
| ; bts dword [status],2 |
| xor dword [status],4 |
| xor eax,eax |
| mov [PID3],eax |
| mcall 68,13,[thread_stack_3] |
| mov eax,-1 ; close this program |
| mcall |
| ; .noclose: |
| ; jmp still3 |
| |
| |
| |
| |
| ; ********************************************* |
| ; ******* WINDOW DEFINITIONS AND DRAW ******** |
| ; ********************************************* |
| |
| |
| .draw_window: |
| |
| |
| mov eax,12 ; function 12:tell os about windowdraw |
| mov ebx,1 ; 1, start of draw |
| mcall |
| |
| ; DRAW WINDOW |
| xor eax,eax ; function 0 : define and draw window |
| mov ebx,100*65536+300 ; [x start] *65536 + [x size] |
| mov ecx,100*65536+240 ; [y start] *65536 + [y size] |
| mov edx,0x03eeeeee ; color of work area RRGGBB,8->color gl |
| mcall |
| |
| mov ebx,120*65536+40 |
| mov ecx,210*65536+20 |
| mov edx,2 |
| mov esi,0xdddddd |
| mcall 8 |
| |
| pusha |
| mcall 4,<20,30>,0x80000000,Authors_text.1 |
| mcall ,<30,45>, ,Authors_text.2 |
| |
| mcall ,<30,60>, ,Authors_text.3 |
| mcall ,<60,70>, ,Authors_text.4 |
| mcall ,<60,80>, ,Authors_text.5 |
| mcall ,<60,90>, ,Authors_text.6 |
| mcall ,<60,100>, ,Authors_text.7 |
| |
| mcall ,<30,115>, ,Authors_text.8 |
| mcall ,<60,125>, ,Authors_text.9 |
| mcall ,<60,135>, ,Authors_text.10 |
| |
| mcall ,<30,150>, ,Authors_text.11 |
| mcall ,<60,160>, ,Authors_text.12 |
| |
| mcall ,<30,175>, ,Authors_text.13 |
| mcall ,<60,185>, ,Authors_text.14 |
| popa |
| |
| add ebx,15 shl 16 |
| shr ecx,16 |
| mov bx,cx |
| add ebx,6 |
| |
| mov ecx,0 |
| mov edx, ok_btn |
| mov esi, ok_btn.size ;2 |
| mcall 4 |
| |
| ; WINDOW LABEL |
| mcall 71,1, labelt3 |
| ; mcall 47,0x80000,[PID3],<200, 5>,0xffffff |
| mov eax,12 ; function 12:tell os about windowdraw |
| mov ebx,2 ; 2, end of draw |
| mcall |
| |
| ret |
| ;--------------------------------------------------------------------- |