WebSVN – Kolibri OS – Diff – /programs/system/calendar/trunk/calendar.asm


; 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
     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
     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
     db   'CALENDAR',0
end if
 
if SKIP eq 0
datebut:
if lang eq ru
     db   '1-ï ¤ â  '
     db   '2-ï ¤ â  '
else if lang eq fr
     db   '1ere date'
     db   '2eme date'
else if lang eq ge
     db   ' Datum 1 '
     db   ' Datum 2 '
else if lang eq et
     db   'Kuupäev 1'
     db   'Kuupäev 2'
else
     db   '1st date '
     db   '2nd date '
end if
end if
n_style:
if lang eq ru
     db   '®¢ë© áâ¨«ì'
else if lang eq de
     db   'Neuer Stil'
else if lang eq fr
     db   'Nouveau'
else if lang eq et
     db   'Uus stiil'
else
     db   'New style'
end if
ns_end:
today_msg:
if lang eq ru
     db   '¥£®¤­ï'
else if lang eq ge
     db   'Heute'
else if lang eq fr
     db   "Aujourd'hui"
else if lang eq et
     db   'Täna'
else
     db   'Today'
end if
today_end:
focus dd  3
new_style dd 1
dropped db 0
 
sys_text:  db  'á¨áâ¥¬­®¥ ¢à¥¬ï',0
plus:  db  '¤®¡ ¢¨âì(+)',0
minus:	db  'ã¡à âì(-)',0
setd:	db  'áâ ­®¢¨âì ¤ âã',0
 
I_END:	; ª®­¥æ ¯à®£à ¬¬ë
firstday  dd ?
Year dd   ?
Month dd  ?
day_sel   dd ?
all_days  dd ?
 
datestr   dd  ?
leap_year dd ?
number	  dd ?
year_input dd ?

Rev 496	Rev 551
1	; CALENDAR FOR MENUET v1.0	1	; CALENDAR FOR MENUET v1.0
2	; Written in pure assembler by Ivushkin Andrey aka Willow	2	; Written in pure assembler by Ivushkin Andrey aka Willow
3	;	3	;
4	;	4	;
5	; Created: November 1, 2004	5	; Created: November 1, 2004
6	; Last changed: January 13, 2005	6	; Last changed: January 13, 2005
7	;	7	;
8	; COMPILE WITH FASM	8	; COMPILE WITH FASM
9		9
10	WIN_X equ (150 shl 16+270)	10	WIN_X equ (150 shl 16+270)
11	WIN_Y equ (100 shl 16+335)	11	WIN_Y equ (100 shl 16+335)
12		12
13	LINE1 equ 27 shl 16+16	13	LINE1 equ 27 shl 16+16
14	B_MONTH_X equ 10 shl 16+158	14	B_MONTH_X equ 10 shl 16+158
15	B_Y equ LINE1	15	B_Y equ LINE1
16	B_MONTH equ 63 shl 16+32	16	B_MONTH equ 63 shl 16+32
17		17
18	B_WBAR_X equ 10 shl 16+250	18	B_WBAR_X equ 10 shl 16+250
19	B_WBAR_Y equ 64 shl 16+20	19	B_WBAR_Y equ 64 shl 16+20
20	B_WEEK equ 30 shl 16+70	20	B_WEEK equ 30 shl 16+70
21	B_WX_SHIFT equ 32 shl 16	21	B_WX_SHIFT equ 32 shl 16
22		22
23	B_DBAR_X equ B_WBAR_X	23	B_DBAR_X equ B_WBAR_X
24	B_DBAR_Y equ 85 shl 16+190	24	B_DBAR_Y equ 85 shl 16+190
25		25
26	B_DROP equ B_MONTH+16	26	B_DROP equ B_MONTH+16
27	B_DAYS_Y equ 100	27	B_DAYS_Y equ 100
28	B_DAYS_SHIFT equ 30	28	B_DAYS_SHIFT equ 30
29		29
30	B_YEAR_X equ 173 shl 16+58	30	B_YEAR_X equ 173 shl 16+58
31	B_YEAR equ 188 shl 16+32	31	B_YEAR equ 188 shl 16+32
32		32
33	B_TODAY_X equ 25 shl 16	33	B_TODAY_X equ 25 shl 16
34	B_TODAY_Y equ 48 shl 16+10	34	B_TODAY_Y equ 48 shl 16+10
35	B_TODAY equ 30 shl 16+50	35	B_TODAY equ 30 shl 16+50
36		36
37	B_SPIN_WIDTH equ 13	37	B_SPIN_WIDTH equ 13
38	B_SPIN_X equ 234 shl 16+B_SPIN_WIDTH	38	B_SPIN_X equ 234 shl 16+B_SPIN_WIDTH
39	B_SPIN equ 238 shl 16+32	39	B_SPIN equ 238 shl 16+32
40		40
41	B_DATE_X equ 26 shl 16+60	41	B_DATE_X equ 26 shl 16+60
42	B_DATE_Y equ 275 shl 16+16	42	B_DATE_Y equ 275 shl 16+16
43	B_DATE_BSHIFT equ 80 shl 16	43	B_DATE_BSHIFT equ 80 shl 16
44	B_DATE equ 32 shl 16+280	44	B_DATE equ 32 shl 16+280
45	B_DATE_SHIFT equ 80 shl 16	45	B_DATE_SHIFT equ 80 shl 16
46		46
47	B_NS_X equ 185 shl 16+75	47	B_NS_X equ 185 shl 16+75
48	B_NS_Y equ 48 shl 16+10	48	B_NS_Y equ 48 shl 16+10
49	B_NS equ 190 shl 16+50	49	B_NS equ 190 shl 16+50
50		50
51	FOCUSABLE equ 5	51	FOCUSABLE equ 5
52	SKIP equ 1	52	SKIP equ 1
53		53
54	use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áá¥¬¡«¥à	54	use32 ; ¢ª«îç¨âì 32-¡¨âë© à¥¦¨¬ áá¥¬¡«¥à
55		55
56	org 0x0 ; ¤à¥á æ¨ï á ã«ï	56	org 0x0 ; ¤à¥á æ¨ï á ã«ï
57		57
58	db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS	58	db 'MENUET01' ; 8-¡ ©âë© ¨¤¥â¨ä¨ª â®à MenuetOS
59	dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1)	59	dd 0x01 ; ¢¥àá¨ï § £®«®¢ª (¢á¥£¤ 1)
60	dd start ; ¤à¥á ¬¥âª¨, á ª®â®à®© ç¨ ¥âáï ¢ë¯®«¥¨¥ ¯à®£à ¬¬	60	dd start ; ¤à¥á ¬¥âª¨, á ª®â®à®© ç¨ ¥âáï ¢ë¯®«¥¨¥ ¯à®£à ¬¬
61	dd I_END ; à §¬¥à ¯à®£à ¬¬ë	61	dd I_END ; à §¬¥à ¯à®£à ¬¬ë
62	dd 0x1000 ; ª®«¨ç¥áâ¢® ¯ ¬ïâ¨	62	dd 0x1000 ; ª®«¨ç¥áâ¢® ¯ ¬ïâ¨
63	dd 0x1000 ; ¤à¥á ¢¥àè¨ë áâíª	63	dd 0x1000 ; ¤à¥á ¢¥àè¨ë áâíª
64	dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï áâà®ª¨ ¯ à ¬¥âà®¢ (¥ ¨á¯®«ì§ã¥âáï)	64	dd 0x0 ; ¤à¥á ¡ãä¥à ¤«ï áâà®ª¨ ¯ à ¬¥âà®¢ (¥ ¨á¯®«ì§ã¥âáï)
65	dd 0x0 ; § à¥§¥à¢¨à®¢ ®	65	dd 0x0 ; § à¥§¥à¢¨à®¢ ®
66	include 'lang.inc'	66	include 'lang.inc'
67	include '..\..\..\macros.inc' ; ã¬¥ìè ¥â à §¬¥à ¯à®£à ¬¬ë	67	include '..\..\..\macros.inc' ; ã¬¥ìè ¥â à §¬¥à ¯à®£à ¬¬ë
68		68
69		69
70		70
71	macro ShowFocus field,reg	71	macro ShowFocus field,reg
72	{	72	{
73	local .nofocus, .exit	73	local .nofocus, .exit
74	cmp [focus],field	74	cmp [focus],field
75	jne .nofocus	75	jne .nofocus
76	if reg eq	76	if reg eq
77	mov ecx,0x10e7c750;0x10ddeeff	77	mov ecx,0x10e7c750;0x10ddeeff
78	else	78	else
79	mov reg,0x10e7c750;0x10ddeeff	79	mov reg,0x10e7c750;0x10ddeeff
80	end if	80	end if
81	jmp .exit	81	jmp .exit
82	.nofocus:	82	.nofocus:
83	if reg eq	83	if reg eq
84	mov ecx,0x10000000	84	mov ecx,0x10000000
85	else	85	else
86	mov reg,0x10000000	86	mov reg,0x10000000
87	end if	87	end if
88	.exit:	88	.exit:
89	}	89	}
90		90
91	month_name:	91	month_name:
92	if lang eq ru	92	if lang eq ru
93	db 8	93	db 8
94	db '¢ àì '	94	db '¢ àì '
95	db '¥¢à «ì '	95	db '¥¢à «ì '
96	db ' àâ '	96	db ' àâ '
97	db '¯à¥«ì '	97	db '¯à¥«ì '
98	db ' © '	98	db ' © '
99	db 'îì '	99	db 'îì '
100	db 'î«ì '	100	db 'î«ì '
101	db '¢£ãáâ '	101	db '¢£ãáâ '
102	db '¥âï¡àì'	102	db '¥âï¡àì'
103	db 'ªâï¡àì '	103	db 'ªâï¡àì '
104	db '®ï¡àì '	104	db '®ï¡àì '
105	db '¥ª ¡àì '	105	db '¥ª ¡àì '
106	else if lang eq de	106	else if lang eq de
107	db 9	107	db 9
108	db 'Januar '	108	db 'Januar '
109	db 'Februar '	109	db 'Februar '
110	db 'MÁrz '	110	db 'MÁrz '
111	db 'April '	111	db 'April '
112	db 'Mai '	112	db 'Mai '
113	db 'Juni '	113	db 'Juni '
114	db 'Juli '	114	db 'Juli '
115	db 'August '	115	db 'August '
116	db 'September'	116	db 'September'
117	db 'Oktober '	117	db 'Oktober '
118	db 'November '	118	db 'November '
119	db 'Dezember '	119	db 'Dezember '
120	else if lang eq fr	120	else if lang eq fr
121	db 9	121	db 9
122	db 'Janvier '	122	db 'Janvier '
123	db 'Fevrier '	123	db 'Fevrier '
124	db 'Mars '	124	db 'Mars '
125	db 'Avril '	125	db 'Avril '
126	db 'Mai '	126	db 'Mai '
127	db 'Juin '	127	db 'Juin '
128	db 'Juliet '	128	db 'Juliet '
129	db 'Aout '	129	db 'Aout '
130	db 'Septembre'	130	db 'Septembre'
131	db 'Octobre '	131	db 'Octobre '
132	db 'Novembre '	132	db 'Novembre '
133	db 'Decembre '	133	db 'Decembre '
134	else if lang eq fi	134	else if lang eq fi
135	db 9	135	db 9
136	db 'Tammikuu '	136	db 'Tammikuu '
137	db 'Helmikuu '	137	db 'Helmikuu '
138	db 'Maaliskuu'	138	db 'Maaliskuu'
139	db 'Huhtikuu '	139	db 'Huhtikuu '
140	db 'Toukokuu '	140	db 'Toukokuu '
141	db 'KesÁkuu '	141	db 'KesÁkuu '
142	db 'HeinÁkuu '	142	db 'HeinÁkuu '
143	db 'Elokuu '	143	db 'Elokuu '
144	db 'Syyskuu '	144	db 'Syyskuu '
145	db 'Lokakuu '	145	db 'Lokakuu '
146	db 'Marraskuu'	146	db 'Marraskuu'
147	db 'Joulukuu '	147	db 'Joulukuu '
148	else if lang eq et	148	else if lang eq et
149	db 9	149	db 9
150	db 'Jaanuar '	150	db 'Jaanuar '
151	db 'Veebruar '	151	db 'Veebruar '
152	db 'Märts '	152	db 'Märts '
153	db 'Aprill '	153	db 'Aprill '
154	db 'Mai '	154	db 'Mai '
155	db 'Juuni '	155	db 'Juuni '
156	db 'Juuli '	156	db 'Juuli '
157	db 'August '	157	db 'August '
158	db 'September'	158	db 'September'
159	db 'Oktoober '	159	db 'Oktoober '
160	db 'November '	160	db 'November '
161	db 'Detsember'	161	db 'Detsember'
162	else	162	else
163	db 9	163	db 9
164	db 'January '	164	db 'January '
165	db 'February '	165	db 'February '
166	db 'March '	166	db 'March '
167	db 'April '	167	db 'April '
168	db 'May '	168	db 'May '
169	db 'June '	169	db 'June '
170	db 'July '	170	db 'July '
171	db 'August '	171	db 'August '
172	db 'September'	172	db 'September'
173	db 'October '	173	db 'October '
174	db 'November '	174	db 'November '
175	db 'December '	175	db 'December '
176	end if	176	end if
177	spinner db '< >'	177	spinner db '< >'
178	week_days:	178	week_days:
179	if lang eq ru	179	if lang eq ru
180	db 2	180	db 2
181	db 1	181	db 1
182	db ''	182	db ''
183	db 'â'	183	db 'â'
184	db 'à'	184	db 'à'
185	db 'â'	185	db 'â'
186	db 'â'	186	db 'â'
187	db '¡'	187	db '¡'
188	db 'á'	188	db 'á'
189	else if lang eq de	189	else if lang eq de
190	db 2	190	db 2
191	db 7	191	db 7
192	db 'So'	192	db 'So'
193	db 'Mo'	193	db 'Mo'
194	db 'Di'	194	db 'Di'
195	db 'Mi'	195	db 'Mi'
196	db 'Do'	196	db 'Do'
197	db 'Fr'	197	db 'Fr'
198	db 'Sa'	198	db 'Sa'
199	else if lang eq fr	199	else if lang eq fr
200	db 3	200	db 3
201	db 7	201	db 7
202	db 'Dim'	202	db 'Dim'
203	db 'Lun'	203	db 'Lun'
204	db 'Mar'	204	db 'Mar'
205	db 'Mer'	205	db 'Mer'
206	db 'Jeu'	206	db 'Jeu'
207	db 'Ven'	207	db 'Ven'
208	db 'Sam'	208	db 'Sam'
209	else if lang eq fi	209	else if lang eq fi
210	db 2	210	db 2
211	db 7	211	db 7
212	db 'Su'	212	db 'Su'
213	db 'Ma'	213	db 'Ma'
214	db 'Ti'	214	db 'Ti'
215	db 'Ke'	215	db 'Ke'
216	db 'To'	216	db 'To'
217	db 'Pe'	217	db 'Pe'
218	db 'La'	218	db 'La'
219	else if lang eq et	219	else if lang eq et
220	db 3	220	db 3
221	db 7	221	db 7
222	db 'Esm'	222	db 'Esm'
223	db 'Tei'	223	db 'Tei'
224	db 'Kol'	224	db 'Kol'
225	db 'Nel'	225	db 'Nel'
226	db 'Ree'	226	db 'Ree'
227	db 'Lau'	227	db 'Lau'
228	db 'Püh'	228	db 'Püh'
229	else	229	else
230	db 3	230	db 3
231	db 7	231	db 7
232	db 'Sun'	232	db 'Sun'
233	db 'Mon'	233	db 'Mon'
234	db 'Tue'	234	db 'Tue'
235	db 'Wen'	235	db 'Wen'
236	db 'Thi'	236	db 'Thi'
237	db 'Fri'	237	db 'Fri'
238	db 'Sat'	238	db 'Sat'
239	end if	239	end if
240		240
241	str2int:	241	str2int:
242	xor eax,eax	242	xor eax,eax
243	lodsb	243	lodsb
244	mov ebx,eax	244	mov ebx,eax
245	shr ebx,4	245	shr ebx,4
246	and eax,0xf	246	and eax,0xf
247	imul ebx,10	247	imul ebx,10
248	add al,bl	248	add al,bl
249	ret	249	ret
250		250
251	start:	251	start:
252	mcall 29	252	mcall 29
253	mov [datestr],eax	253	mov [datestr],eax
254	mov esi,datestr	254	mov esi,datestr
255	call str2int	255	call str2int
256	add eax,1900	256	add eax,1900
257	mov [Year],eax	257	mov [Year],eax
258	call str2int	258	call str2int
259	dec eax	259	dec eax
260	mov [Month],eax	260	mov [Month],eax
261	call str2int	261	call str2int
262	mov [day_sel],eax	262	mov [day_sel],eax
263	test byte[esi],0	263	test byte[esi],0
264	jnz .no2000	264	jnz .no2000
265	add [Year],100	265	add [Year],100
266	.no2000:	266	.no2000:
267	jmp upd ; §¤¥áì ç¨ ¥âáï ¢ë¯®«¥¨¥ ¯à®£à ¬¬ë	267	jmp upd ; §¤¥áì ç¨ ¥âáï ¢ë¯®«¥¨¥ ¯à®£à ¬¬ë
268	red: ; ¯¥à¥à¨á®¢ âì ®ª®	268	red: ; ¯¥à¥à¨á®¢ âì ®ª®
269		269
270	call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª	270	call draw_window ; ¢ë§ë¢ ¥¬ ¯à®æ¥¤ãàã ®âà¨á®¢ª¨ ®ª
271		271
272	still: ;	272	still: ;
273		273
274	mov eax,23 ; wait here for event	274	mov eax,23 ; wait here for event
275	mov ebx,50	275	mov ebx,50
276	mcall	276	mcall
277	.evt:	277	.evt:
278	mov ebp,[focus]	278	mov ebp,[focus]
279	cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª® ?	279	cmp eax,1 ; ¯¥à¥à¨á®¢ âì ®ª® ?
280	je red ; ¥á«¨ ¤ - ¬¥âªã red	280	je red ; ¥á«¨ ¤ - ¬¥âªã red
281	cmp eax,2 ; ¦ â ª« ¢¨è ?	281	cmp eax,2 ; ¦ â ª« ¢¨è ?
282	je key ; ¥á«¨ ¤ - key	282	je key ; ¥á«¨ ¤ - key
283	cmp eax,3 ; ¦ â ª®¯ª ?	283	cmp eax,3 ; ¦ â ª®¯ª ?
284	je button ; ¥á«¨ ¤ - button	284	je button ; ¥á«¨ ¤ - button
285		285
286	call draw_clock	286	call draw_clock
287		287
288	jmp still ; ¥á«¨ ¤àã£®¥ á®¡ëâ¨¥ - ¢ ç «® æ¨ª«	288	jmp still ; ¥á«¨ ¤àã£®¥ á®¡ëâ¨¥ - ¢ ç «® æ¨ª«
289		289
290	key: ; ¦ â ª« ¢¨è ª« ¢¨ âãà¥	290	key: ; ¦ â ª« ¢¨è ª« ¢¨ âãà¥
291	mov eax,2 ; äãªæ¨ï 2 - áç¨â âì ª®¤ á¨¬¢®«	291	mov eax,2 ; äãªæ¨ï 2 - áç¨â âì ª®¤ á¨¬¢®«
292	mcall ; ¢ë§®¢ á¨áâ¥¬ë	292	mcall ; ¢ë§®¢ á¨áâ¥¬ë
293	cmp ah,9	293	cmp ah,9
294	jne no_tab	294	jne no_tab
295	.tab:	295	.tab:
296	cmp ebp,FOCUSABLE	296	cmp ebp,FOCUSABLE
297	je foc_cycle	297	je foc_cycle
298	inc [focus]	298	inc [focus]
299	upd:	299	upd:
300	call calculate	300	call calculate
301	jmp red	301	jmp red
302	foc_cycle:	302	foc_cycle:
303	mov [focus],2	303	mov [focus],2
304	jmp upd	304	jmp upd
305	no_tab:	305	no_tab:
306	push eax	306	push eax
307	shr eax,8	307	shr eax,8
308	mov ecx,12	308	mov ecx,12
309	mov edi,Fkeys	309	mov edi,Fkeys
310	repne scasb	310	repne scasb
311	pop eax	311	pop eax
312	jnz .noFkey	312	jnz .noFkey
313	sub edi,Fkeys+1	313	sub edi,Fkeys+1
314	mov [Month],edi	314	mov [Month],edi
315	jmp upd	315	jmp upd
316	.noFkey:	316	.noFkey:
317	cmp ebp,4	317	cmp ebp,4
318	jne no_spinner	318	jne no_spinner
319	cmp ah,176	319	cmp ah,176
320	je year_dec	320	je year_dec
321	cmp ah,179	321	cmp ah,179
322	je year_inc	322	je year_inc
323	no_spinner:	323	no_spinner:
324	cmp ebp,2	324	cmp ebp,2
325	jne .nomonth	325	jne .nomonth
326	cmp ah,177	326	cmp ah,177
327	je noclose.drop	327	je noclose.drop
328	jmp still	328	jmp still
329	.nomonth:	329	.nomonth:
330	cmp ebp,3	330	cmp ebp,3
331	je noy_up.year_evt	331	je noy_up.year_evt
332	cmp ebp,5	332	cmp ebp,5
333	jne still	333	jne still
334	mov ebx,[day_sel]	334	mov ebx,[day_sel]
335	cmp ah,176 ; left arrow	335	cmp ah,176 ; left arrow
336	jb still	336	jb still
337	cmp ah,179	337	cmp ah,179
338	ja still	338	ja still
339	shr eax,8	339	shr eax,8
340	sub eax,176	340	sub eax,176
341	movsx ecx,byte[day_bounds+eax*2]	341	movsx ecx,byte[day_bounds+eax*2]
342	movzx eax,byte[day_bounds+eax*2+1]	342	movzx eax,byte[day_bounds+eax*2+1]
343	add ecx,ebx	343	add ecx,ebx
344	test eax,eax	344	test eax,eax
345	jz .chk0	345	jz .chk0
346	cmp ecx,eax	346	cmp ecx,eax
347	ja still	347	ja still
348	.ok:	348	.ok:
349	mov [day_sel],ecx	349	mov [day_sel],ecx
350	call draw_days	350	call draw_days
351	jmp still ; ¢¥àãâìáï ª ç «ã æ¨ª«	351	jmp still ; ¢¥àãâìáï ª ç «ã æ¨ª«
352	.chk0:	352	.chk0:
353	cmp ecx,eax	353	cmp ecx,eax
354	jle still	354	jle still
355	jmp .ok	355	jmp .ok
356		356
357	day_bounds db -1,0,7,0,-7,0,1,0 ; left,down,up,right	357	day_bounds db -1,0,7,0,-7,0,1,0 ; left,down,up,right
358		358
359	button: ; ¦ â ª®¯ª ¢ ®ª¥ ¯à®£à ¬¬ë	359	button: ; ¦ â ª®¯ª ¢ ®ª¥ ¯à®£à ¬¬ë
360	mov eax,17 ; 17 - ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª®¯ª¨	360	mov eax,17 ; 17 - ¯®«ãç¨âì ¨¤¥â¨ä¨ª â®à ¦ â®© ª®¯ª¨
361	mcall ; ¢ë§®¢ á¨áâ¥¬ë	361	mcall ; ¢ë§®¢ á¨áâ¥¬ë
362	movzx ebx,ah	362	movzx ebx,ah
363	cmp ah,200	363	cmp ah,200
364	jbe nodayselect	364	jbe nodayselect
365	sub ah,200	365	sub ah,200
366	mov byte[day_sel],ah	366	mov byte[day_sel],ah
367	cmp ebp,5	367	cmp ebp,5
368	jne .redraw	368	jne .redraw
369	call draw_days	369	call draw_days
370	jmp still	370	jmp still
371	.redraw:	371	.redraw:
372	mov [focus],5	372	mov [focus],5
373	jmp red	373	jmp red
374	nodayselect:	374	nodayselect:
375	cmp ah,100	375	cmp ah,100
376	jb no_list	376	jb no_list
377	sub ah,100	377	sub ah,100
378	mov byte[Month],ah	378	mov byte[Month],ah
379	mov [focus],2	379	mov [focus],2
380	jmp upd	380	jmp upd
381	no_list:	381	no_list:
382	cmp ah,1 ; ¨¤¥â¨ä¨ª â®à == 1 ?	382	cmp ah,1 ; ¨¤¥â¨ä¨ª â®à == 1 ?
383	jne noclose ; ¥á«¨ ¥â - ¨¤¨ ¢¯¥àñ¤ noclose	383	jne noclose ; ¥á«¨ ¥â - ¨¤¨ ¢¯¥àñ¤ noclose
384	close:	384	close:
385	or eax,-1 ; ¢ëå®¤ ¨§ ¯à®£à ¬¬ë	385	or eax,-1 ; ¢ëå®¤ ¨§ ¯à®£à ¬¬ë
386	mcall ; ¢ë§®¢ á¨áâ¥¬ë	386	mcall ; ¢ë§®¢ á¨áâ¥¬ë
387		387
388	noclose:	388	noclose:
389		389
390	cmp ah,72	390	cmp ah,72
391	je plus_he	391	je plus_he
392		392
393	cmp ah,73	393	cmp ah,73
394	je plus_hd	394	je plus_hd
395		395
396	cmp ah,74	396	cmp ah,74
397	je minus_he	397	je minus_he
398		398
399	cmp ah,75	399	cmp ah,75
400	je minus_hd	400	je minus_hd
401		401
402	cmp ah,76	402	cmp ah,76
403	je plus_me	403	je plus_me
404		404
405	cmp ah,77	405	cmp ah,77
406	je plus_md	406	je plus_md
407		407
408	cmp ah,78	408	cmp ah,78
409	je minus_me	409	je minus_me
410		410
411	cmp ah,79	411	cmp ah,79
412	je minus_md	412	je minus_md
413		413
414	cmp ah,80	414	cmp ah,80
415	je reset	415	je reset
416		416
417	cmp ah,81	417	cmp ah,81
418	je set_date	418	je set_date
419		419
420	cmp ah,2 ; drop down list	420	cmp ah,2 ; drop down list
421	jne no_dropdn	421	jne no_dropdn
422	.drop:	422	.drop:
423	mov [focus],2	423	mov [focus],2
424	cmp [dropped],al ; ==0	424	cmp [dropped],al ; ==0
425	jne red	425	jne red
426	call draw_window	426	call draw_window
427	mov edx,1 shl 31+231	427	mov edx,1 shl 31+231
428	mov ecx,31	428	mov ecx,31
429	mov eax,8	429	mov eax,8
430	.bremove:	430	.bremove:
431	mcall	431	mcall
432	dec edx	432	dec edx
433	loop .bremove	433	loop .bremove
434	call draw_dropdown	434	call draw_dropdown
435	jmp still	435	jmp still
436	no_dropdn:	436	no_dropdn:
437	cmp ah,3 ; year -1	437	cmp ah,3 ; year -1
438	jne noy_dn	438	jne noy_dn
439	year_dec:	439	year_dec:
440	dec [Year]	440	dec [Year]
441	mov [focus],4	441	mov [focus],4
442	jmp upd	442	jmp upd
443	noy_dn:	443	noy_dn:
444	cmp ah,4 ; year+1	444	cmp ah,4 ; year+1
445	jne noy_up	445	jne noy_up
446	year_inc:	446	year_inc:
447	inc [Year]	447	inc [Year]
448	mov [focus],4	448	mov [focus],4
449	jmp upd	449	jmp upd
450	noy_up:	450	noy_up:
451	cmp ah,5	451	cmp ah,5
452	jne noy_click	452	jne noy_click
453	mov [focus],3	453	mov [focus],3
454	call draw_window	454	call draw_window
455	.still:	455	.still:
456	mcall 10	456	mcall 10
457	cmp eax,2	457	cmp eax,2
458	jne still.evt	458	jne still.evt
459	mcall 2	459	mcall 2
460	.year_evt:	460	.year_evt:
461	mov ebx,10	461	mov ebx,10
462	cmp ah,9	462	cmp ah,9
463	je key.tab	463	je key.tab
464	cmp ah,8 ; backspace	464	cmp ah,8 ; backspace
465	jne .nobsp	465	jne .nobsp
466	mov eax,[Year]	466	mov eax,[Year]
467	xor edx,edx	467	xor edx,edx
468	div ebx	468	div ebx
469	.ch_year:	469	.ch_year:
470	mov [Year],eax	470	mov [Year],eax
471	call draw_year	471	call draw_year
472	jmp .still	472	jmp .still
473	.nobsp:	473	.nobsp:
474	cmp ah,13 ; enter	474	cmp ah,13 ; enter
475	je upd	475	je upd
476	cmp ah,182	476	cmp ah,182
477	jne .noclear ; del	477	jne .noclear ; del
478	xor eax,eax	478	xor eax,eax
479	jmp .ch_year	479	jmp .ch_year
480	.noclear:	480	.noclear:
481	cmp ah,48	481	cmp ah,48
482	jb .still	482	jb .still
483	cmp ah,57	483	cmp ah,57
484	ja .still	484	ja .still
485	cmp [Year],1000	485	cmp [Year],1000
486	jae .still	486	jae .still
487	shr eax,8	487	shr eax,8
488	lea ecx,[eax-48]	488	lea ecx,[eax-48]
489	mov eax,[Year]	489	mov eax,[Year]
490	imul eax,ebx	490	imul eax,ebx
491	add eax,ecx	491	add eax,ecx
492	jmp .ch_year	492	jmp .ch_year
493	noy_click:	493	noy_click:
494	cmp ah,10	494	cmp ah,10
495	jne start	495	jne start
496	xor [new_style],1	496	xor [new_style],1
497	jmp upd	497	jmp upd
498		498
499		499
500	reset:	500	reset:

Subversion Repositories Kolibri OS

(root)/programs/system/calendar/trunk/calendar.asm – Rev 496 → 551