Subversion Repositories Kolibri OS

{

  .frame            dd ?

  .grab             dd ?

  .grab_button      dd ?

  .grab_button_text dd ?

  .grab_text        dd ?

  .work             dd ?

  .work_button      dd ?

  .work_button_text dd ?

  .work_text        dd ?

  .work_graph       dd ?

}

dd 1

dd start

dd i_end

dd mem

dd mem

dd 0

dd 0

start:

           call load_pxlib

           test eax, eax

           jz .fail

           mov ebx, esp

           mov ecx, -1

           int 0x40

           mov eax, 18

           mov ebx, 21

           int 0x40

           mov  ebx,3

           mov  ecx,sc

           mov  edx,10*4

           int 0x40

           mov [br_cross], eax

           mov [br_dcross], eax

           mov [br_horz], eax

           mov [br_vert], eax

           mov [br_fd], eax

           mov [br_bd], eax

           call draw_window

           mov ebx, 7

           int 0x40

           cmp eax, [slot]

           jne .skip_draw

           mov ebx, esp

           mov ecx, -1

           int 0x40

           mov ecx, [esp+0x26]; ywin

           add edx, [esp+0x36]

           add ecx, [esp+0x3A]

           mov ebx, [esp+0x42]  ;height

           jle .skip_draw

           jle .skip_draw

           push eax

           push ecx

           push edx

           call _Draw

           add esp, 16

           mov eax, 23

           int 0x40

        ;   int 0x40

        ;  js .wait_event

           dec eax                     ;   else if event = 2

           jz  .key                    ;   jump to key handler

           dec eax

           jz  .button

           mov al, 17                  ;   get button identifier

           int 0x40

           jne .wait_event             ;   return if button id != 1

.exit:

                                       ; restore old screen and cleanup

.fail:

           or eax, -1                  ;   exit application

           int 0x40

.key:                                  ; key event handler

           mov al, 2                   ;   get key code

           int 0x40

           mov eax, 12                 ; start drawing

           mov ebx, 1

           int 0x40

           mov  ebx, 100*65536+320     ; (window_cx)*65536+(window_sx)

           mov  ecx, 100*65536+240     ; (window_cy)*65536+(window_sy)

           mov  edx, [sc.work]         ; work area color

           or   edx, 0x33000000        ; & window type 3

           mov  edi, title             ; window title

           int  0x40

           mov  ebx, 2

           int  0x40

PTR   equ

        push    ebp

	push	edi

	push	esi

	push	ebx

	mov	ebx, 1431655766

	sub	esp, 44

	mov	esi, DWORD PTR [esp+72]

	mov	ecx, DWORD PTR [esp+76]

	mov	DWORD PTR [esp+24], -16777216

	mov	DWORD PTR [esp], -1

	lea	edi, [esi-40]

	mov	eax, edi

	imul	ebx

	sar	edi, 31

	lea	eax, [ecx-30]

	sub	ecx, 10

	mov	ebp, edx

	sub	ebp, edi

	mov	edi, eax

	shr	edi, 31

	add	edi, eax

	lea	edx, [esi-20]

	lea	eax, [ebp+ebp*2]

	sub	edx, eax

	mov	esi, edx

	shr	esi, 31

	add	esi, edx

        sar     esi, 1

	add	esi, DWORD PTR [esp+64]

        sar     edi, 1

	lea	eax, [ebp+10+esi]

	mov	DWORD PTR [esp+32], eax

	lea	eax, [edi+edi]

	sub	ecx, eax

	mov	ebx, ecx

	shr	ebx, 31

	add	ebx, ecx

        sar     ebx, 1

	add	ebx, DWORD PTR [esp+68]

	lea	edx, [esi+20+ebp*2]

	mov	DWORD PTR [esp+36], edx

	lea	eax, [ebx+10+edi]

	mov	DWORD PTR [esp+40], eax

        FillRect -1, edx, ebx, ebp, edi, [br_cross], 0xFF000000

        FillRect -1, eax, ebx, ebp, edi, [br_horz],0xFF000000

        FillRect -1, esi, edx, ebp, edi, [br_bd], 0xFF000000

	mov	eax, DWORD PTR [esp+40]

        FillRect -1, edx, eax, ebp, edi, [br_dcross], 0xFF000000

	mov	eax, DWORD PTR [esp+40]

        FillRect -1, edx, eax, ebp, edi, [br_vert], 0xFF000000

	pop	ebx

	pop	esi

	pop	edi

	pop	ebp

        ret

br_bd        rd 1

br_cross     rd 1

br_dcross    rd 1

br_horz      rd 1

br_vert      rd 1

mem: