Subversion Repositories Kolibri OS

; CALENDAR FOR MENUET v1.0

; Written in pure assembler by Ivushkin Andrey aka Willow

;

;

; Created:      November 1, 2004

; Last changed: January 13, 2005

;

; COMPILE WITH FASM

WIN_X equ (150 shl 16+270)

WIN_Y equ (100 shl 16+335)

LINE1	  equ 27 shl 16+16

B_MONTH_X equ 10 shl 16+158

B_Y	  equ LINE1

B_MONTH   equ 63 shl 16+32

B_WBAR_X  equ 10 shl 16+250

B_WBAR_Y  equ 64 shl 16+20

B_WEEK	  equ 30 shl 16+70

B_WX_SHIFT equ 32 shl 16

B_DBAR_X  equ B_WBAR_X

B_DBAR_Y  equ 85 shl 16+190

B_DROP	  equ B_MONTH+16

B_DAYS_Y  equ 100

B_DAYS_SHIFT equ 30

B_YEAR_X  equ 173 shl 16+58

B_YEAR	  equ 188 shl 16+32

B_TODAY_X equ 25 shl 16

B_TODAY_Y equ 48 shl 16+10

B_TODAY   equ 30 shl 16+50

B_SPIN_WIDTH equ 13

B_SPIN_X  equ 234 shl 16+B_SPIN_WIDTH

B_SPIN	  equ 238 shl 16+32

B_DATE_X  equ 26 shl 16+60

B_DATE_Y  equ 275 shl 16+16

B_DATE_BSHIFT equ 80 shl 16

B_DATE	  equ 32 shl 16+280

B_DATE_SHIFT equ 80 shl 16

B_NS_X	  equ 185 shl 16+75

B_NS_Y	  equ 48 shl 16+10

B_NS	  equ 190 shl 16+50

FOCUSABLE equ 5

SKIP	  equ 1

use32		     ; ������� 32-���� ०�� ��ᥬ����

  org	 0x0	     ; ������ � ���

  db	 'MENUET01'  ; 8-����� �����䨪��� MenuetOS

  dd	 0x01	     ; ����� ��������� (�ᥣ�� 1)

  dd	 start	     ; ���� ��⪨, � ���ன ��稭����� �믮������ �ணࠬ�

  dd	 I_END	     ; ࠧ��� �ணࠬ��

  dd	 0x1000      ; ������⢮ �����

  dd	 0x1000      ; ���� ���設� �����

  dd	 0x0	     ; ���� ���� ��� ��ப� ��ࠬ��஢ (�� �ᯮ������)

  dd	 0x0	     ; ��१�ࢨ஢���

include 'lang.inc'

include '..\..\..\macros.inc' ; 㬥��蠥� ࠧ��� �ணࠬ��

macro  ShowFocus field,reg

{

   local  .nofocus, .exit

     cmp  [focus],field

     jne  .nofocus

   if reg eq

     mov  ecx,0x10e7c750;0x10ddeeff

   else

     mov  reg,0x10e7c750;0x10ddeeff

   end if

     jmp  .exit

   .nofocus:

   if reg eq

     mov  ecx,0x10000000

   else

     mov  reg,0x10000000

   end if

   .exit:

}

month_name:

if lang eq ru

     db   8

     db   '������  '

     db   '���ࠫ� '

     db   '����    '

     db   '��५�  '

     db   '���     '

     db   '���    '

     db   '���    '

     db   '������  '

     db   '�������'

     db   '������ '

     db   '�����  '

     db   '������� '

else if lang eq de

     db   9

     db   'Januar   '

     db   'Februar  '

     db   'M�rz     '

     db   'April    '

     db   'Mai      '

     db   'Juni     '

     db   'Juli     '

     db   'August   '

     db   'September'

     db   'Oktober  '

     db   'November '

     db   'Dezember '

else if lang eq fr

     db   9

     db   'Janvier  '

     db   'Fevrier  '

     db   'Mars     '

     db   'Avril    '

     db   'Mai      '

     db   'Juin     '

     db   'Juliet   '

     db   'Aout     '

     db   'Septembre'

     db   'Octobre  '

     db   'Novembre '

     db   'Decembre '

else if lang eq fi

     db   9

     db   'Tammikuu '

     db   'Helmikuu '

     db   'Maaliskuu'

     db   'Huhtikuu '

     db   'Toukokuu '

     db   'Kes�kuu  '

     db   'Hein�kuu '

     db   'Elokuu   '

     db   'Syyskuu  '

     db   'Lokakuu  '

     db   'Marraskuu'

     db   'Joulukuu '

else if lang eq et

     db   9

     db   'Jaanuar  '

     db   'Veebruar '

     db   'M�rts    '

     db   'Aprill   '

     db   'Mai      '

     db   'Juuni    '

     db   'Juuli    '

     db   'August   '

     db   'September'

     db   'Oktoober '

     db   'November '

     db   'Detsember'

else if lang eq it

     db   9

     db   'Gennaio  '

     db   'Febbraio '

     db   'Marzo    '

     db   'Aprile   '

     db   'Maggio   '

     db   'Giugno   '

     db   'Luglio   '

     db   'Agosto   '

     db   'Settembre'

     db   'Ottobre  '

     db   'Novembre '

     db   'Dicembre '

else

     db   9

     db   'January  '

     db   'February '

     db   'March    '

     db   'April    '

     db   'May      '

     db   'June     '

     db   'July     '

     db   'August   '

     db   'September'

     db   'October  '

     db   'November '

     db   'December '

end if

spinner db '< >'

week_days:

if lang eq ru

     db   2

     db   1

     db   '��'

     db   '��'

     db   '��'

     db   '��'

     db   '��'

     db   '��'

     db   '��'

else if lang eq de

     db   2

     db   7

     db   'So'

     db   'Mo'

     db   'Di'

     db   'Mi'

     db   'Do'

     db   'Fr'

     db   'Sa'

else if lang eq fr

     db   3

     db   7

     db   'Dim'

     db   'Lun'

     db   'Mar'

     db   'Mer'

     db   'Jeu'

     db   'Ven'

     db   'Sam'

else if lang eq fi

     db   2

     db   7

     db   'Su'

     db   'Ma'

     db   'Ti'

     db   'Ke'

     db   'To'

     db   'Pe'

     db   'La'

else if lang eq et

     db   3

     db   7

     db   'Esm'

     db   'Tei'

     db   'Kol'

     db   'Nel'

     db   'Ree'

     db   'Lau'

     db   'P�h'

else if lang eq it

     db   3

     db   7

     db   'Dom'

     db   'Lun'

     db   'Mar'

     db   'Mer'

     db   'Gio'

     db   'Ven'

     db   'Sab'

else

     db   3

     db   7

     db   'Sun'

     db   'Mon'

     db   'Tue'

     db   'Wen'

     db   'Thi'

     db   'Fri'

     db   'Sat'

end if

str2int:

    xor  eax,eax

    lodsb

    mov  ebx,eax

    shr  ebx,4

    and  eax,0xf

    imul ebx,10

    add  al,bl

    ret

start:

    mcall 29

    mov  [datestr],eax

    mov  esi,datestr

    call str2int

    add  eax,1900

    mov  [Year],eax

    call str2int

    dec  eax

    mov  [Month],eax

    call str2int

    mov  [day_sel],eax

    test byte[esi],0

    jnz  .no2000

    add  [Year],100

  .no2000:

    jmp  upd		; ����� ��稭����� �믮������ �ணࠬ��

red:			; ����ᮢ��� ����

    call draw_window	; ��뢠�� ��楤��� ���ᮢ�� ����

still:			; ������� ���� ���������

    mov  eax,23 		; wait here for event

    mov  ebx,50

    mcall

  .evt:

    mov  ebp,[focus]

    cmp  eax,1		; ����ᮢ��� ���� ?

    je	 red		; �᫨ �� - �� ���� red

    cmp  eax,2		; ����� ������ ?

    je	 key		; �᫨ �� - �� key

    cmp  eax,3		; ����� ������ ?

    je	 button 	; �᫨ �� - �� button

    call draw_clock

    jmp  still		; �᫨ ��㣮� ᮡ�⨥ - � ��砫� 横��

  key:			; ����� ������ �� ���������

    mov  eax,2		; �㭪�� 2 - ����� ��� ᨬ����

    mcall		; �맮� ��⥬�

    cmp  ah,9

    jne  no_tab

  .tab:

    cmp  ebp,FOCUSABLE

    je	 foc_cycle

    inc  [focus]

  upd:

    call calculate

    jmp  red

  foc_cycle:

    mov  [focus],2

    jmp  upd

  no_tab:

    push eax

    shr  eax,8

    mov  ecx,12

    mov  edi,Fkeys

    repne scasb

    pop  eax

    jnz  .noFkey

    sub  edi,Fkeys+1

    mov  [Month],edi

    jmp  upd

  .noFkey:

    cmp  ebp,4

    jne  no_spinner

    cmp  ah,176

    je	 year_dec

    cmp  ah,179

    je	 year_inc

  no_spinner:

    cmp  ebp,2

    jne  .nomonth

    cmp  ah,177

    je	 noclose.drop

    jmp  still

  .nomonth:

    cmp  ebp,3

    je	 noy_up.year_evt

    cmp  ebp,5

    jne  still

    mov  ebx,[day_sel]

    cmp  ah,176 	; left arrow

    jb	 still

    cmp  ah,179

    ja	 still

    shr  eax,8

    sub  eax,176

    movsx ecx,byte[day_bounds+eax*2]

    movzx eax,byte[day_bounds+eax*2+1]

    add  ecx,ebx

    test eax,eax

    jz	 .chk0

    cmp  ecx,eax

    ja	 still

  .ok:

    mov  [day_sel],ecx

    call draw_days

    jmp  still		; �������� � ��砫� 横��

  .chk0:

    cmp  ecx,eax

    jle  still

    jmp  .ok

day_bounds db -1,0,7,0,-7,0,1,0 ; left,down,up,right

  button:		; ����� ������ � ���� �ணࠬ��

    mov  eax,17 	; 17 - ������� �����䨪��� ����⮩ ������

    mcall		; �맮� ��⥬�

    movzx ebx,ah

    cmp  ah,200

    jbe  nodayselect

    sub  ah,200

    mov  byte[day_sel],ah

    cmp  ebp,5

    jne  .redraw

    call draw_days

    jmp  still

  .redraw:

    mov  [focus],5

    jmp  red

  nodayselect:

    cmp  ah,100

    jb	 no_list

    sub  ah,100

    mov  byte[Month],ah

    mov  [focus],2

    jmp  upd

  no_list:

    cmp  ah,1		; �����䨪��� == 1 ?

    jne  noclose	; �᫨ ��� - ��� ����� �� noclose

  close:

    or	 eax,-1 	; ��室 �� �ணࠬ��

    mcall		; �맮� ��⥬�

  noclose:

    cmp  ah,72

    je	 plus_he

    cmp  ah,73

    je	 plus_hd

    cmp  ah,74

    je	 minus_he

    cmp  ah,75

    je	 minus_hd

    cmp  ah,76

    je	 plus_me

    cmp  ah,77

    je	 plus_md

    cmp  ah,78

    je	 minus_me

    cmp  ah,79

    je	 minus_md

    cmp  ah,80

    je	 reset

    cmp  ah,81

    je	 set_date

    cmp  ah,2		; drop down list

    jne  no_dropdn

  .drop:

    mov  [focus],2

    cmp  [dropped],al	; ==0

    jne  red

    call draw_window

    mov  edx,1 shl 31+231

    mov  ecx,31

    mov  eax,8

  .bremove:

    mcall

    dec  edx

    loop .bremove

    call draw_dropdown

    jmp  still

  no_dropdn:

    cmp  ah,3		; year -1

    jne  noy_dn

  year_dec:

    dec  [Year]

    mov  [focus],4

    jmp  upd

  noy_dn:

    cmp  ah,4		; year+1

    jne  noy_up

  year_inc:

    inc  [Year]

    mov  [focus],4

    jmp  upd

  noy_up:

    cmp  ah,5

    jne  noy_click

    mov  [focus],3

    call draw_window

  .still:

    mcall 10

    cmp  eax,2

    jne  still.evt

    mcall 2

  .year_evt:

    mov  ebx,10

    cmp  ah,9

    je	 key.tab

    cmp  ah,8		; backspace

    jne  .nobsp

    mov  eax,[Year]

    xor  edx,edx

    div  ebx

  .ch_year:

    mov  [Year],eax

    call draw_year

    jmp  .still

  .nobsp:

    cmp  ah,13		; enter

    je	 upd

    cmp  ah,182

    jne  .noclear	; del

    xor  eax,eax

    jmp  .ch_year

  .noclear:

    cmp  ah,48

    jb	 .still

    cmp  ah,57

    ja	 .still

    cmp  [Year],1000

    jae  .still

    shr  eax,8

    lea  ecx,[eax-48]

    mov  eax,[Year]

    imul eax,ebx

    add  eax,ecx

    jmp  .ch_year

  noy_click:

    cmp  ah,10

    jne  start

    xor  [new_style],1

    jmp  upd

reset:

    mov  eax,3

    mcall

    mov  ecx,eax

    shl  ecx,16

    shr  ecx,16

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

plus_hd:

    mov  eax,3

    mcall

    mov  ecx,eax

    add  ecx,1

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

plus_he:

    mov  eax,3

    mcall

    mov  ecx,eax

    add  ecx,16

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

minus_hd:

    mov  eax,3

    mcall

    mov  ecx,eax

    sub  ecx,1

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

minus_he:

    mov  eax,3

    mcall

    mov  ecx,eax

    sub  ecx,16

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

plus_md:

    mov  eax,3

    mcall

    mov  ecx,eax

    add  ecx,256

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

plus_me:

    mov  eax,3

    mcall

    mov  ecx,eax

    add  ecx,4096

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

minus_md:

    mov  eax,3

    mcall

    mov  ecx,eax

    sub  ecx,256

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

minus_me:

    mov  eax,3

    mcall

    mov  ecx,eax

    sub  ecx,4096

    mov  eax,22

    mov  ebx,0x00000000

    mcall

    jmp  still

set_date:

    mov  eax,0x00000000

    mov ebx,[day_sel]

    call additem

    shl  eax,8

    mov  ebx,[Month]

    add  ebx,1

    call additem

    shl  eax,8

    mov  ebx,[Year]

    call additem

    mov  ecx,eax

    mov  eax,22

    mov  ebx,1

    mcall

    jmp  still

additem:

    add  eax,1

    daa

    sub  ebx,1

    cmp  ebx,0

    jne  additem

    ret

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

;   *******  ����������� � ��������� ���� *******

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

draw_clock:

    mov  eax,3

    mcall

    mov  ecx,eax

    mov  eax,47

    mov esi,0x50000000

    mov  edi,0xaabbcc

    mov  ebx,0x00020100

    mov  edx,205*65536+280

    mcall

    shr  ecx,8

    add  edx,20*65536

    mcall

    shr  ecx,8

    add  edx,20*65536

    mcall

    ret

draw_window:

    mov  eax,12 		   ; �㭪�� 12: ᮮ���� �� �� ���ᮢ�� ����

    mov  ebx,1			   ; 1 - ��稭��� �ᮢ���

    mcall

				   ; ������� ����

    xor  eax,eax		   ; �㭪�� 0 : ��।����� � ���ᮢ��� ����

    mov  ebx,WIN_X

  if SKIP eq 0

    mov  ecx,WIN_Y

  else

    mov  ecx,WIN_Y-15

  end if

    mov  edx,0x14aabbcc 	   ; 梥� ࠡ�祩 ������  RRGGBB,8->color gl

    mov  edi,title		   ; ���������

    mcall

    call draw_week

    mov  eax,8

    mov  ebx,205*65536+7

    mov  ecx,290*65536+10

    mov  esi,0x005555dd

    mov  edx,72

    mcall

    mov  ebx,212*65536+7

    inc  edx

    mcall

    mov  ebx,205*65536+7

    mov  ecx,300*65536+10

    inc  edx

    mcall

    mov  ebx,212*65536+7

    inc  edx

    mcall

    mov  ebx,224*65536+7

    mov  ecx,290*65536+10

    inc  edx

    mcall

    mov  ebx,231*65536+7

    inc  edx

    mcall

    mov  ebx,224*65536+7

    mov  ecx,300*65536+10

    inc  edx

    mcall

    mov  ebx,231*65536+7

    inc  edx

    mcall

    mov  ebx,243*65536+14

    mov  ecx,290*65536+20

    mov  esi,0x00dd7777

    inc  edx

    mcall

    mov  ebx,10*65536+100

    mov  ecx,290*65536+20

    mov  esi,0x00d5d5d5

    inc  edx

    mcall

    mov  esi,0x05080d0

  if SKIP eq 0

    mov  ebx,B_DATE_X

    mov  ecx,B_DATE_Y

    mov  edx,eax

    mcall

    inc  edx

    add  ebx,B_DATE_BSHIFT

    mcall

    inc  edx

  else

    mov  edx,10

  end if

    or	 edx,1 shl 29+1 shl 30

    mov  ebx,B_NS_X

    mov  ecx,B_NS_Y

    mcall

    add  edx,1-1 shl 29

    mov  ebx,B_TODAY_X+8*(today_end-today_msg)

    mov  ecx,B_TODAY_Y

    mcall

    mov  ecx,B_Y

    mov  ebx,B_MONTH_X

    mov  edx,2

    mcall

    mov  ebx,B_SPIN_X

    inc  edx

    mcall

    add  ebx,B_SPIN_WIDTH shl 16

    inc  edx

    mcall

    call draw_days

    mov  eax,4			   ; �㭪�� 4 : ������� � ���� ⥪��

    mov  ebx,110*65536+280

    mov  ecx,0x800000ff

    mov  edx,sys_text

    mcall

    mov  ebx,149*65536+302

    mov  edx,minus

    mcall

    mov  ebx,137*65536+292

    mov  ecx,0x80ff0000

    mov  edx,plus

    mcall

    mov  ebx,15*65536+298

    mov  ecx,0x00000000

    mov  esi,15

    mov  edx,setd

    mcall

    mov  ecx,0x10ddeeff 	   ; ���� 1 � 梥� ( 0xF0RRGGBB )

 if SKIP eq 0

    mov  ebx,B_DATE

    mov  edx,datebut

    mov  esi,9

    btc  ecx,28

    mcall

    add  ebx,B_DATE_SHIFT

    add  edx,esi

    mcall

 end if

    mov  edx,n_style

    mov  esi,ns_end-n_style

    mov  ebx,B_NS

    cmp  [new_style],1

    je	 .high

    mov  ecx,0xa0a0a0

    jmp  .int

  .high:

    mov  ecx,0xac0000;d048c8

  .int:

    mcall

    mov  ecx,0xd048c8

    mov  edx,today_msg

    mov  ebx,B_TODAY

    mov  esi,today_end-today_msg

    mcall

    mov  ebx,B_SPIN

    mov  edx,spinner

    mov  esi,3

    ShowFocus 4

    mcall

    mov  edx,[Month]

    movzx  esi,byte[month_name]

    imul edx,esi

    add  edx,month_name+1

    mov  ebx,B_MONTH

    ShowFocus 2

    mcall

    call draw_year

    mov  [dropped],0

    mov  eax,12 		   ; �㭪�� 12: ᮮ���� �� �� ���ᮢ�� ����

    mov  ebx,2			   ; 2, �����稫� �ᮢ���

    mcall

    ret 			   ; ��室�� �� ��楤���

draw_year:

    mcall 8,B_YEAR_X,B_Y,5,0x05080d0

    ShowFocus 3,esi

    mcall 47,0x40001,Year,B_YEAR

    ret

draw_dropdown:

    mov  [dropped],1

    push [Month]

    pop  [focus]

    add  [focus],100

    mov  ecx,12

    mov  edx,100

    push dword month_name+1

    push dword B_DROP

    push dword B_Y+16 shl 16

  .ddd_loop:

    mov  edi,edx

    push ecx

    mov  ebx,B_MONTH_X

    mov  ecx,[esp+4]

    mov  esi,0x6f9fef

    mov  eax,8

    mcall

    shr  eax,1

    mov  ebx,[esp+8]

    xchg edx,[esp+12]

    movzx esi,byte[month_name]

    ShowFocus edi

    mcall

    add  edx,esi

    xchg edx,[esp+12]

    add  dword[esp+8],16

    add  dword[esp+4],16 shl 16

    inc  edx

    pop  ecx

    loop .ddd_loop

    add  esp,12

    ret

draw_week:

    mov  eax,13

    mov  ebx,B_WBAR_X

    mov  ecx,B_WBAR_Y

    mov  edx,0x90a0b0

    mcall

    movzx esi,byte[week_days]

    movzx edi,byte[week_days+1]

    mov  ebx,B_WEEK

    mov  ecx,7

    mov  edx,week_days+2

    mov  eax,4

  .week:

    push ecx

    cmp  ecx,edi

    je	 .holiday

    mov  ecx,0x10000000

    jmp  .noholiday

  .holiday:

    mov  ecx,0x10cc1010

  .noholiday:

    mcall

    add  edx,esi

    add  ebx,B_WX_SHIFT

    pop  ecx

    loop .week

    ret

draw_days:

    mov  eax,13

    mov  ebx,B_DBAR_X

    mov  ecx,B_DBAR_Y

    mov  edx,0xe0e0e0

    mcall

    call count_days

    cmp  ecx,[day_sel]

    jae  .ok

    mov  [day_sel],ecx

  .ok:

    mov  [number],0

    mov  eax,47

    mov  edx,B_DAYS_Y

    mov  ebx,0x20001

    mov  edi,[firstday]

  .dayloop:

    push ecx

    movzx edx,dx

    mov  esi,edi

    shl  esi,21

    lea  edx,[edx+esi+30 shl 16]

    mov  ecx,edi

    add  cl,[week_days+1]

    cmp  ecx,7

    je	 .holiday

    mov  esi,0x10000000

    jmp  .noholiday

  .holiday:

    mov  esi,0x10cc1010

  .noholiday:

    mov  ecx,number

    inc  dword[ecx]

    pusha

    mov  ebx,edx

    mov  bx,20

    sub  ebx,3 shl 16

    shrd ecx,edx,16

    mov  cx,20

    sub  ecx,7 shl 16

    mov  edx,[number]

    cmp  edx,[day_sel]

    je	 .draw_sel

    mov  esi,0xe0e0e0

    jmp  .draw_but

  .draw_sel:

    mov  esi,0x5080d0

    cmp  [focus],5

    jne  .draw_but

    mov  esi,0xef7840;0xe26830

  .draw_but:

    add  edx,200+1 shl 29

    mov  eax,8

    mcall

    popa

    mcall

    pop  ecx

    inc  edi

    cmp  edi,7

    jne  .nowrap

    xor  edi,edi

    add  dx,B_DAYS_SHIFT

  .nowrap:

    loop .eloop

    jmp  .ex

  .eloop:

    jmp  .dayloop

  .ex:

    ret

count_days:    ; ecx -days in month

    call is_leap_year

    mov  ecx,[Month]

    mov  eax,1

    movzx ecx,byte[day_count+ecx]

    add  ecx,28

    cmp  eax,[leap_year]

    jne  .noleap

    cmp  eax,[Month]

    jne  .noleap

    inc  ecx

  .noleap:

    mov  [day_bounds+3],cl

    mov  [day_bounds+7],cl

    ret

is_leap_year:

    mov  [leap_year],0

    mov  eax,[Year]

    mov  bl,100

    div  bl	     ; ah=Year mod 100, al=Year%100

    test ah,ah

    jz	.century

    shr  ax,8	     ; ax - last 2 digits

  .century:

    test al,11b

    jnz  .noleap

    inc  [leap_year]

  .noleap:

    ret

calculate:

    mov  ebx,[Year]

    mov  eax,[Month]

    sub  eax,2

    jge  .nojf

    dec  ebx

    add  eax,12

  .nojf:

    add  eax,4

    xor  edx,edx

    mov  ecx,153

    imul cx

    mov  ecx,5

    div  cx

    inc  eax

    mov  ecx,365

    imul ecx,ebx

    add  eax,ecx

    mov  ecx,ebx

    shr  ecx,2

    add  eax,ecx

    dec  eax

    cmp  [new_style],0

    je	 .nonew

    add  eax,2

    xchg eax,ebx

    mov  ecx,100

    xor  edx,edx

    div  cx

    sub  ebx,eax

    shr  eax,2

    add  ebx,eax

  .nonew:

    add  ebx,5

    mov  eax,ebx

    xor  edx,edx

    movzx ebx,byte[week_days+1]

    sub  eax,ebx

    inc  eax

    mov  ebx,7

    div  bx

    mov  [firstday],edx

    ret

; ����� ��室���� ����� �ணࠬ��:

; ����䥩� �ணࠬ�� ��������� - ������ �� � lang.inc

day_count db 3,0,3,2,3,2,3,3,2,3,2,3

Fkeys	  db 210,211,212,213,214,215,216,217,208,209,228,159

title: 	 ; ��ப� ���������

if lang eq ru

     db   '���������',0

else if lang eq ge

     db   'Kalender',0

else if lang eq fr

     db   'Calendrier',0

else if lang eq et

     db   'Kalender',0

else if lang eq it

     db   'Calendario',0

else

     db   'Calendar',0

end if

if SKIP eq 0

datebut:

if lang eq ru