Subversion Repositories Kolibri OS

 nm_redraw_all                 = 10000000b

 nm_redraw_off                 = 01111111b

 ;nm_special_redraw_on          = 00000100b

 ;nm_special_redraw_off         = 11111011b

 nm_integer_type               = 00000010b

 nm_no_show_number             = 00000001b

;********************craete Number**********************

;****************************************************

;IN

;pointer to parend

;pointer to Number's structure

;OUT

;pointer to initialized Number's structure

align 4

      push ecx

      push edx

      push esi

      push edi

      push ebp

      mov eax,[esp+24+8]

      call craete_control

      mov [eax],dword number

      mov esi,[PointerToStructureForNumber]

      mov edi,eax

      add edi,control_header_size

      rep movsb

      mov ecx,[ebx+6]   ;x

      mov edx,[ebx+10]  ;y

      add ecx,border_width

      add edx,[skin_height]

      ;copy information to control

      mov [eax+24],ecx

      mov [eax+28],edx

      pop edi

      pop esi

      pop edx

      pop ecx

      pop ebx

;********************Draw Number*********************

;****************************************************

;IN

;pointer to control of number

;message

;OUT

;not returned value

align 4

      mov eax,[esp+8]

      mov esi,[esp+4]

      mov [PointerForNumber],esi

      ;copy control to local control

      add esi,control_header_size

      mov edi,dword Number

      mov ecx,nm_control_data_size

      rep movsb

      jne no_redraw_all_number

      mov bl,[Number.type]

      and bl,nm_no_show_number

      test bl,bl

      jnz no_redraw_all_number

      jne no_special_message_for_number

      mov bl,[Number.type]

      and bl,activate_trap

      test bl,bl

      jz no_special_message_for_number

        and [Number.type],deactivate_trap

      jne no_destroy_control_of_number

      no_destroy_control_of_number:

      mov eax,[PointerForNumber]

      mov ebx,[eax+24]           ;x

      mov ecx,[eax+28]           ;y

      ;set current coordinats and sizes in zakladka

      mov [Number.x],ebx

      mov [Number.y],ecx

      mov al,[Number.type]

      and al,nm_redraw_all

      test al,al

      jz no_redraw_number_

       mov edi,[PointerForNumber]

       add edi,control_header_size

       mov ecx,2

       rep movsb

       mov eax,48

       mov ebx,3

       mov ecx,dword pointer2

       mov edx,40

       mcall

       mov al,[Number.type]

       and al,nm_integer_type

       test al,al

       jnz no_integer_number

         mov ebx,[Number.parameters]

         mov ecx,[Number.number]

         mov edx,[Number.x]

         shl edx,16

         add edx,[Number.y]

         mov esi,[Number.color]

         mov edi,[pointer2+8]

         mcall

       no_integer_number:

      ;---------------------------------------

      mov ecx,ebx

      shr ebx,16      ;format for integer

      and ecx,0xffff  ;format for float

      mov eax,1

      mov edi,ecx

      pow_10__:

        lea eax,[eax+eax*4]

        shl eax,1

      jnz pow_10__

      mov edx,eax

      mov [v2],0

      fld [Number.number]

      fcom [v2]

      fstsw ax

      sahf

      jae no_signum_float_number

         mov [signum_float_number],byte 1

      fstp [Number.number]

      fild [v2]

      fld [Number.number]

      fmul st0,st1

      fistp [v]

      fstp st0

      mov eax,[v]

      cdq

      idiv esi

      mov [v],eax

      and [tochnost1],0

      mov eax,[v]

      mov [v2],eax

      mov esi,ebx

      get_next_razryd_of_number_integer:

          pow_10_integer:

            lea eax,[eax+eax*4]

            shl eax,1

          jnz pow_10_integer

          mov eax,[v]

          cdq

          idiv edi

          and eax,0xf

          jz no_save_pos_for_integer

           jne no_save_pos_for_integer

              mov [tochnost1],esi

              add [tochnost1],1

          sub [v],eax

          add [integer_part],eax

      jnz get_next_razryd_of_number_integer

      mov eax,[v]

      add [integer_part],eax

      jnz all_ok_with_tochnost

      all_ok_with_tochnost:

      mov eax,[v2]

      mov [v],eax

      mov edi,ecx

      pow_10_float__:

        lea eax,[eax+eax*4]

        shl eax,1

      jnz pow_10_float__

      fild [v]

      fld [Number.number]

      fsub st0,st1

      fmul st0,st2

      fistp [v]

      fstp st0

      fstp st0

      get_next_razryd_of_number_float:

          pow_10_float:

            lea eax,[eax+eax*4]

            shl eax,1

          jnz pow_10_float

          mov eax,[v]

          cdq

          idiv edi

          and eax,0xf

          imul eax,edi

          sub [v],eax

          add [float_part],eax

      jnz get_next_razryd_of_number_float

      mov eax,[v]

      add [float_part],eax

      cmp [signum_float_number],byte 1

      jne no_draw_signum_for_float_number

           mov eax,4

           mov ebx,[Number.x]

           mov ecx,[Number.color]

           mov edx,dword signum

           mov esi,1

           mov edi,[pointer2+8]

           shl ebx,16

           add ebx,[Number.y]

           mcall

           mov [signum_float_number],0

      no_draw_signum_for_float_number:

      mov eax,47

      mov ebx,[tochnost1]

      mov ecx,[integer_part]

      mov edx,[Number.x]

      mov esi,[Number.color]

      mov edi,[pointer2+8]

      shl edx,16

      shl ebx,16

      add edx,[Number.y]

      mcall

      add edx,1

      lea edx,[edx+edx*2]

      shl edx,1        ;edx=edx*6

      add edx,[Number.x]

      mov [x],edx

      mov eax,47

      mov ebx,[tochnost2]

      mov ecx,[float_part]

      mov esi,[Number.color]

      mov edi,[pointer2+8]

      shl edx,16

      shl ebx,16

      add edx,[Number.y]

      mcall

      mov eax,4

      mov ebx,[x]

      mov ecx,[Number.color]

      mov edx,dword point

      mov esi,1

      mov edi,[pointer2+8]

      sub ebx,6

      shl ebx,16

      add ebx,[Number.y]

      mcall

      ;-----------------------------------------