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


; Calendar for KolibriOS
;
; v1.5 - time redesign by Heavyiron
; v1.2 - v1.55 - new desighn and functionality by Leency
; v1.1 - add change time support by DedOK 
; v1.0 - written in pure assembler by Ivushkin Andrey aka Willow
; also - diamond, spraid, fedesco
;
; Created: November 1, 2004
 
 
use32
 
  org	 0x0
 
  db	 'MENUET01'
  dd	 0x01
  dd	 START
  dd	 I_END
  dd	 0x1000
  dd	 0x1000
  dd	 0x0
  dd	 0x0
include '..\..\..\macros.inc'
include 'lang.inc'
include 'data.inc'
 
 
 
macro ShowFocus field,reg
{
   local  .nofocus, .exit
     cmp  [focus],field
     jne  .nofocus
   if reg eq
     mov  ecx,COL_ACTIVE_TEXT
   else
     mov  reg,COL_ACTIVE_TEXT
   end if
     jmp  .exit
   .nofocus:
   if reg eq
     mov  ecx,COL_DROPDOWN_T
   else
     mov  reg,COL_DROPDOWN_T
   end if
   .exit:
}
 
macro GetSkinHeight
{
	mov  eax,48
	mov  ebx,4
	int 0x40
}
 
macro DrawRect color1,color2,color3,color4 ; pizdec... but optimized well
{
	; top border-outer
	push ebx
	push ecx
	mov eax,13
	mov bx,DATE_BUTTON_WIDTH
	mov edx,color1
	mov cx,1
	mcall
	; left border-outer
	mov bx,1
	mov cx,DATE_BUTTON_HEIGHT
	mcall
	; top border-inner
	mov edx,color2
	add ebx,1 shl 16
	add ecx,1 shl 16
	mov bx,DATE_BUTTON_WIDTH-1
	mov cx,1
	; left border-inner
	mcall
	mov bx,1
	mov cx,DATE_BUTTON_HEIGHT-2
	mcall
	; inner
	mov edx,color3
	add ebx,1 shl 16
	add ecx,1 shl 16
	mov bx,DATE_BUTTON_WIDTH-4
	mov cx,DATE_BUTTON_HEIGHT-3
	mcall
	; bottom border-inner
	mov edx,color4
	add ebx,DATE_BUTTON_WIDTH shl 16
	sub ebx,4 shl 16
	mov bx,1
	mov cx,DATE_BUTTON_HEIGHT-3
	mcall
	; right border-outer
	mov edx,color2
	add ebx,1 shl 16
	sub ecx,1 shl 16
	add cx,1
	mcall
	; right border-outer 2
	mov edx,color1
	add ebx,1 shl 16
	sub ecx,1 shl 16
	add cx,2
	add cx,1
	mcall
	; bottom border-outer
	mov edx,color2
	pop ecx
	pop ebx
	add ecx,DATE_BUTTON_HEIGHT shl 16
	sub ecx,1 shl 16
	add ebx,1 shl 16
	mov cx,1
	mcall
	; bottom border-outer 2
	mov edx,color1
	add ecx,1 shl 16
	mcall
	add ebx,1 shl 16
	sub ecx,1 shl 16
	; left border-outer
	mov edx,color4
	add ebx,1 shl 16
	sub ecx,1 shl 16
	sub bx,2
	mcall 
}
 
 
str2int:
    xor  eax,eax
    lodsb
    mov  ebx,eax
    shr  ebx,4
    and  eax,0xf
    imul ebx,10
    add  al,bl
    ret
 
get_current_date:
    mcall 29
    mov  [datestr],eax
    mov  esi,datestr
    call str2int
    add  eax,1900
    mov  [curYear],eax
    call str2int
    dec  eax
    mov  [curMonth],eax
    call str2int
    mov  [curDay],eax
    test byte[esi],0
    jnz  .no2000
    add  [curYear],100
 
 
 
 
 
 
  .no2000:
    call calculate
ret
 
check_midnight:
    mov   ebx,[datestr]
    mcall 29
	cmp   eax,ebx
	je   end_check_midnight
	  call get_current_date
	  call draw_days
    end_check_midnight:
ret
 
;===============================================================
 
START:
    call get_current_date
	m2m [Year], [curYear]
	m2m [Month], [curMonth]
	m2m [day_sel], [curDay]
red:
    call define_window
 
still:
 
    mcall 23,50     ; wait here for event
  .evt:
    mov  ebp,[focus]
    cmp  eax,1
    je	 red
    cmp  eax,2
    je	 key
    cmp  eax,3
    je	 button
 
    call check_midnight
    call draw_clock
 
    jmp  still
 
  key:
    mcall 2		; get pressed key
    cmp  ah,9
    jne  no_tab
  .tab:
    cmp  ebp,FOCUSABLE
    JAE  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,2
    jne  .nomonth
    cmp  ah,177
    je	 noclose.drop
    jmp  still
  .nomonth:
    cmp  ebp,3
    je	 noy_up.year_evt
    cmp  ebp,4
    jne  still
    mov  ebx,[day_sel]
    cmp  ah,176 	; left arrow
    jg	 still
    cmp  ah,179
    jl	 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:
    mcall 17
    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],4
    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
    jne  noclose
  close:
    mcall -1		; clore programm
 
  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],3
    jmp  upd
  noy_dn:
    cmp  ah,4		; year+1
    jne  noy_up
  year_inc:
    inc  [Year]
    mov  [focus],3
    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:
    cmp  ah,176
    je	 year_dec
    cmp  ah,179
    je	 year_inc
	
    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:
    mcall 3
    mov  ecx,eax
    shl  ecx,16
    shr  ecx,16
    mcall 22,0x00000000 
    jmp  still
 
plus_hd:
    mcall 3
    mov  ecx,eax
    add  ecx,1
    mcall 22,0x00000000 
    jmp  still
 
plus_he:
    mcall 3
    mov  ecx,eax
    add  ecx,16
    mcall 22,0x00000000 
    jmp  still
 
minus_hd:
    mcall 3
    mov  ecx,eax
    sub  ecx,1
	mcall 22,0x00000000
    jmp  still
 
minus_he:
    mcall 3
    mov  ecx,eax
    sub  ecx,16
	mcall 22,0x00000000 
    jmp  still
 
plus_md:
    mcall 3
    mov  ecx,eax
    add  ecx,256
	mcall 22,0x00000000 
    jmp  still
 
plus_me:
    mcall 3
    mov  ecx,eax
    add  ecx,4096
    mcall 22,0x00000000 
    jmp  still
 
minus_md:
    mcall 3
    mov  ecx,eax
    sub  ecx,256
    mcall 22,0x00000000
    jmp  still
 
minus_me:
    mcall 3
    mov  ecx,eax
    sub  ecx,4096
    mcall 22,0x00000000
    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
    mcall 22,1
    jmp  START
 
additem:
    add  eax,1
    daa
    sub  ebx,1
    cmp  ebx,0
    jne  additem
    ret
 
 
;   *********************************************
;   *******	     DRAW WINDOW	  *******
;   *********************************************
 
draw_clock:
 
    mcall 3
    mov  ecx,eax
    mcall 47,0x00020100, ,195*65536+298,0x50CCCCCC,COL_TOOLBAR_BG
 
    shr  ecx,8
    add  edx,22*65536
    mcall
 
    shr  ecx,8
    add  edx,22*65536
    mcall
    ret
 
define_window:
 
    mcall 12,1
	mcall 48, 5	; GetClientTop, fix for case when @patel in the top
	shr ebx, 16
	mov ecx,ebx
	shl ecx,16
	cmp ecx,0
	jne  panel_top
	; panel bottom
	mcall 48,5 ;get screen size
	mov ecx, ebx
	sub ecx, WIN_H
	shl ecx, 16
panel_top:
	add ecx, WIN_H	 ; [y start] *65536 + [y size]
	mov ebx, eax
	sub eax, WIN_W
	shl ebx, 16
	add ebx, WIN_W	
    mcall 0,,,COL_WINDOW_BG, ,title ; define window
	mcall 12,2
	GetSkinHeight
	mov ecx, eax
	shl ecx, 16
	add ecx, 43
	mcall 13,B_WBAR_X, ,COL_TOOLBAR_BG ; draw toolbar background
	mcall 13,B_WBAR_X,BT_WBAR_Y,COL_TOOLBAR_BG ; draw toolbar background
	mcall 13,0*65536+B_WBAR_X,84*65536+199,0xE7E7E7
	
draw_window:
    call draw_clock
    call draw_week
    mcall 8,193*65536+8,285*65536+10,72,COL_TOOLBAR_BG
    mov  ebx,202*65536+8
    inc  edx ;73
    mcall
    mov  ebx,193*65536+8
    mov  ecx,315*65536+10
    inc  edx ;74
    mcall
    mov  ebx,202*65536+8
    inc  edx ;75
    mcall
    mov  ebx,215*65536+8
    mov  ecx,285*65536+10
    inc  edx ;76
    mcall
    mov  ebx,224*65536+8
    inc  edx ;77
    mcall
    mov  ebx,215*65536+8
    mov  ecx,315*65536+10
    inc  edx ;78
    mcall
    mov  ebx,224*65536+8
    inc  edx ;79
    mcall
    mov  ebx,25*65536+110
    mov  ecx,293*65536+22
    mov  esi,COL_TOOLBAR_BG
    mov  edx,81
    mcall
 
    mov  esi,COL_MONTH_YEAR_B	; new style
    mov  edx,10
    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,55 shl 16 ; >
    inc  edx
    mcall
    call draw_days
 
	; draw text in window
    mcall 4,157*65536+301,0x80CCCCCC,sys_text
    mcall  ,211*65536+301,,separator
    mcall  ,233*65536+301
    mcall  ,185*65536+287, ,plus
    mcall  ,185*65536+317, ,minus
    mcall  , 35*65536+300,0x00CCCCCC,set_date_t,15 ;set date text
 
    mov  ecx,COL_GO_TODAY_T
    mov  edx,today_msg
    mov  ebx,B_TODAY
    mov  esi,today_end-today_msg
    mcall
 
    mov  ebx,B_SPIN
    mov  edx,spinner
    mov  esi,8
    mov  ecx,COL_DROPDOWN_T
    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
    ret
 
draw_year:
    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  esi,COL_DROPDOWN_BG
    mcall 8,B_MONTH_X,[esp+4]
    mov eax,4
    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,COL_WEEKDAY_BG
    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:
    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,0x10001
    mov  edi,[firstday]
    push ecx
  .dayloop:
    movzx edx,dx
    mov  esi,edi
    shl  esi,21
    lea  edx,[edx+esi+34 shl 16]
    mov  ecx,edi
    add  cl,[week_days+1]
    cmp  ecx,7
    je	 .holiday
    mov  esi,0x10313138 ; COL_DATE_TEXT
    jmp  .noholiday
  .holiday:
    mov  esi,0x10cc1010
  .noholiday:
    mov  ecx,number
    inc  dword[ecx]
    pusha
    sub  edx,8 shl 16 + 8
    mov  ebx,edx
    mov  bx,DATE_BUTTON_WIDTH-1
    shrd ecx,edx,16
    mov  cx,DATE_BUTTON_HEIGHT-1
    mov  edx,[number]
    cmp  edx,[day_sel]
    je	 .draw_sel
    mov  esi,COL_DATE_BUTTONS
    jmp  .draw_but
.draw_sel:				    ;draw selected button
	add  edx,1 shl 30
	add  edx,200+1 shl 29
	mcall 8
    cmp  [focus],4
    jne  .not_active
	DrawRect COL_DATE_ACTIVE_1,COL_DATE_ACTIVE_2,COL_DATE_ACTIVE_3,COL_DATE_ACTIVE_4
	jmp .out
.not_active:
	DrawRect COL_DATE_INACTIVE_1,COL_DATE_INACTIVE_2,COL_DATE_INACTIVE_3,COL_DATE_INACTIVE_4
	jmp .out
.draw_but:				     ;draw non selected button
    add  edx,200+1 shl 29
    mcall 8
	DrawRect COL_DATE_1,COL_DATE_2,COL_DATE_3,COL_DATE_4
	mov eax,[Year]
	cmp [curYear],eax
	jne .out
	mov eax,[Month]
	cmp [curMonth],eax
	jne .out
	mov eax,[number]
	cmp [curDay],eax
	jne .out
	mov edx,0xff0000
	mov bx,DATE_BUTTON_WIDTH-1
	mov cx,3
	sub ebx,2 shl 16
	sub ecx,1 shl 16
	mcall 13
.out:
	mov	eax, [number]
	xor	edx, edx
	mov	ecx, 10
	div	ecx
	mov	[remainder], edx
	mov	[quotient],  eax
	popa
 
; first number
	mov	ecx,quotient
	mcall
	add	edx,1 shl 16
	mcall
; second number
	mov	ecx,remainder
	add	edx,8 shl 16
	mcall
	add	edx,1 shl 16
	mcall
	sub	edx,10 shl 16
	inc	edi
	cmp	edi,7
	jne	.nowrap
	xor	edi,edi
	add	dx,B_DAYS_SHIFT
.nowrap:
	dec	dword [esp]
	jnz	.dayloop
	pop	ecx
	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
    add  eax,2
    xchg eax,ebx
    mov  ecx,100
    xor  edx,edx
    div  cx
    sub  ebx,eax
    shr  eax,2
    add  ebx,eax
    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
 
I_END:
>

Rev 6950	Rev 7717
1	; Calendar for KolibriOS	1	; Calendar for KolibriOS
2	;	2	;
3	; v1.5 - time redesign by Heavyiron	3	; v1.5 - time redesign by Heavyiron
4	; v1.2 - v1.55 - new desighn and functionality by Leency	4	; v1.2 - v1.55 - new desighn and functionality by Leency
5	; v1.1 - add change time support by DedOK	5	; v1.1 - add change time support by DedOK
6	; v1.0 - written in pure assembler by Ivushkin Andrey aka Willow	6	; v1.0 - written in pure assembler by Ivushkin Andrey aka Willow
7	; also - diamond, spraid, fedesco	7	; also - diamond, spraid, fedesco
8	;	8	;
9	; Created: November 1, 2004	9	; Created: November 1, 2004
10		10
11		11
12	use32	12	use32
13		13
14	org 0x0	14	org 0x0
15		15
16	db 'MENUET01'	16	db 'MENUET01'
17	dd 0x01	17	dd 0x01
18	dd START	18	dd START
19	dd I_END	19	dd I_END
20	dd 0x1000	20	dd 0x1000
21	dd 0x1000	21	dd 0x1000
22	dd 0x0	22	dd 0x0
23	dd 0x0	23	dd 0x0
24	include '..\..\..\macros.inc'	24	include '..\..\..\macros.inc'
25	include 'lang.inc'	25	include 'lang.inc'
26	include 'data.inc'	26	include 'data.inc'
27		27
28		28
29		29
30	macro ShowFocus field,reg	30	macro ShowFocus field,reg
31	{	31	{
32	local .nofocus, .exit	32	local .nofocus, .exit
33	cmp [focus],field	33	cmp [focus],field
34	jne .nofocus	34	jne .nofocus
35	if reg eq	35	if reg eq
36	mov ecx,COL_ACTIVE_TEXT	36	mov ecx,COL_ACTIVE_TEXT
37	else	37	else
38	mov reg,COL_ACTIVE_TEXT	38	mov reg,COL_ACTIVE_TEXT
39	end if	39	end if
40	jmp .exit	40	jmp .exit
41	.nofocus:	41	.nofocus:
42	if reg eq	42	if reg eq
43	mov ecx,COL_DROPDOWN_T	43	mov ecx,COL_DROPDOWN_T
44	else	44	else
45	mov reg,COL_DROPDOWN_T	45	mov reg,COL_DROPDOWN_T
46	end if	46	end if
47	.exit:	47	.exit:
48	}	48	}
49		49
50	macro GetSkinHeight	50	macro GetSkinHeight
51	{	51	{
52	mov eax,48	52	mov eax,48
53	mov ebx,4	53	mov ebx,4
54	int 0x40	54	int 0x40
55	}	55	}
56		56
57	macro DrawRect color1,color2,color3,color4 ; pizdec... but optimized well	57	macro DrawRect color1,color2,color3,color4 ; pizdec... but optimized well
58	{	58	{
59	; top border-outer	59	; top border-outer
60	push ebx	60	push ebx
61	push ecx	61	push ecx
62	mov eax,13	62	mov eax,13
63	mov bx,DATE_BUTTON_WIDTH	63	mov bx,DATE_BUTTON_WIDTH
64	mov edx,color1	64	mov edx,color1
65	mov cx,1	65	mov cx,1
66	mcall	66	mcall
67	; left border-outer	67	; left border-outer
68	mov bx,1	68	mov bx,1
69	mov cx,DATE_BUTTON_HEIGHT	69	mov cx,DATE_BUTTON_HEIGHT
70	mcall	70	mcall
71	; top border-inner	71	; top border-inner
72	mov edx,color2	72	mov edx,color2
73	add ebx,1 shl 16	73	add ebx,1 shl 16
74	add ecx,1 shl 16	74	add ecx,1 shl 16
75	mov bx,DATE_BUTTON_WIDTH-1	75	mov bx,DATE_BUTTON_WIDTH-1
76	mov cx,1	76	mov cx,1
77	; left border-inner	77	; left border-inner
78	mcall	78	mcall
79	mov bx,1	79	mov bx,1
80	mov cx,DATE_BUTTON_HEIGHT-2	80	mov cx,DATE_BUTTON_HEIGHT-2
81	mcall	81	mcall
82	; inner	82	; inner
83	mov edx,color3	83	mov edx,color3
84	add ebx,1 shl 16	84	add ebx,1 shl 16
85	add ecx,1 shl 16	85	add ecx,1 shl 16
86	mov bx,DATE_BUTTON_WIDTH-4	86	mov bx,DATE_BUTTON_WIDTH-4
87	mov cx,DATE_BUTTON_HEIGHT-4	87	mov cx,DATE_BUTTON_HEIGHT-3
88	mcall	88	mcall
89	; bottom border-inner	89	; bottom border-inner
90	mov edx,color4	90	mov edx,color4
91	add ebx,DATE_BUTTON_WIDTH shl 16	91	add ebx,DATE_BUTTON_WIDTH shl 16
92	sub ebx,4 shl 16	92	sub ebx,4 shl 16
93	mov bx,1	93	mov bx,1
94	mov cx,DATE_BUTTON_HEIGHT-3	94	mov cx,DATE_BUTTON_HEIGHT-3
95	mcall	95	mcall
96	; right border-outer	96	; right border-outer
97	mov edx,color2	97	mov edx,color2
98	add ebx,1 shl 16	98	add ebx,1 shl 16
99	sub ecx,1 shl 16	99	sub ecx,1 shl 16
100	add cx,1	100	add cx,1
101	mcall	101	mcall
102	; right border-outer 2	102	; right border-outer 2
103	mov edx,color1	103	mov edx,color1
104	add ebx,1 shl 16	104	add ebx,1 shl 16
105	sub ecx,1 shl 16	105	sub ecx,1 shl 16
106	add cx,2	106	add cx,2
107	add cx,1	107	add cx,1
108	mcall	108	mcall
109	; bottom border-outer	109	; bottom border-outer
110	mov edx,color2	110	mov edx,color2
111	pop ecx	111	pop ecx
112	pop ebx	112	pop ebx
113	add ecx,DATE_BUTTON_HEIGHT shl 16	113	add ecx,DATE_BUTTON_HEIGHT shl 16
114	sub ecx,1 shl 16	114	sub ecx,1 shl 16
115	add ebx,1 shl 16	115	add ebx,1 shl 16
116	mov cx,1	116	mov cx,1
117	mcall	117	mcall
118	; bottom border-outer 2	118	; bottom border-outer 2
119	mov edx,color1	119	mov edx,color1
120	add ecx,1 shl 16	120	add ecx,1 shl 16
121	mcall	121	mcall
122	add ebx,1 shl 16	122	add ebx,1 shl 16
123	sub ecx,1 shl 16	123	sub ecx,1 shl 16
124	; left border-outer	124	; left border-outer
125	mov edx,color4	125	mov edx,color4
126	add ebx,1 shl 16	126	add ebx,1 shl 16
127	sub ecx,1 shl 16	127	sub ecx,1 shl 16
128	sub bx,2	128	sub bx,2
129	mcall	129	mcall
130	}	130	}
131		131
132		132
133	str2int:	133	str2int:
134	xor eax,eax	134	xor eax,eax
135	lodsb	135	lodsb
136	mov ebx,eax	136	mov ebx,eax
137	shr ebx,4	137	shr ebx,4
138	and eax,0xf	138	and eax,0xf
139	imul ebx,10	139	imul ebx,10
140	add al,bl	140	add al,bl
141	ret	141	ret
142		142
143	START:	143	get_current_date:
144	mcall 29	144	mcall 29
145	mov [datestr],eax	145	mov [datestr],eax
146	mov esi,datestr	146	mov esi,datestr
147	call str2int	147	call str2int
148	add eax,1900	148	add eax,1900
149	mov [Year],eax	149	mov [curYear],eax
150	call str2int	150	call str2int
151	dec eax	151	dec eax
152	mov [Month],eax	152	mov [curMonth],eax
153	call str2int	153	call str2int
154	mov [day_sel],eax	154	mov [curDay],eax
155	test byte[esi],0	155	test byte[esi],0
156	jnz .no2000	156	jnz .no2000
157	add [Year],100	157	add [curYear],100
158	mov eax,[Year]	-
159	mov [curYear], eax	-
160	mov eax,[Month]	-
161	mov [curMonth], eax	-
162	mov eax,[day_sel]	-
163	mov [curDay], eax	-
164	.no2000:	158	.no2000:
-		159	call calculate
-		160	ret
-		161
-		162	check_midnight:
-		163	mov ebx,[datestr]
165	jmp upd	164	mcall 29
-		165	cmp eax,ebx
-		166	je end_check_midnight
-		167	call get_current_date
-		168	call draw_days
-		169	end_check_midnight:
166	red:	170	ret
-		171
-		172	;===============================================================
-		173
-		174	START:
-		175	call get_current_date
-		176	m2m [Year], [curYear]
-		177	m2m [Month], [curMonth]
-		178	m2m [day_sel], [curDay]
167		179	red:
168	call define_window	180	call define_window
169		181
170	still:	182	still:
171		183
172	mcall 23,50 ; wait here for event	184	mcall 23,50 ; wait here for event
173	.evt:	185	.evt:
174	mov ebp,[focus]	186	mov ebp,[focus]
175	cmp eax,1	187	cmp eax,1
176	je red	188	je red
177	cmp eax,2	189	cmp eax,2
178	je key	190	je key
179	cmp eax,3	191	cmp eax,3
180	je button	192	je button
-		193
181		194	call check_midnight
182	call draw_clock	195	call draw_clock
183		196
184	jmp still	197	jmp still
185		198
186	key:	199	key:
187	mcall 2 ; get pressed key	200	mcall 2 ; get pressed key
188	cmp ah,9	201	cmp ah,9
189	jne no_tab	202	jne no_tab
190	.tab:	203	.tab:
191	cmp ebp,FOCUSABLE	204	cmp ebp,FOCUSABLE
192	JAE foc_cycle	205	JAE foc_cycle
193	inc [focus]	206	inc [focus]
194	upd:	207	upd:
195	call calculate	208	call calculate
196	jmp red	209	jmp red
197	foc_cycle:	210	foc_cycle:
198	mov [focus],2	211	mov [focus],2
199	jmp upd	212	jmp upd
200	no_tab:	213	no_tab:
201	push eax	214	push eax
202	shr eax,8	215	shr eax,8
203	mov ecx,12	216	mov ecx,12
204	mov edi,Fkeys	217	mov edi,Fkeys
205	repne scasb	218	repne scasb
206	pop eax	219	pop eax
207	jnz .noFkey	220	jnz .noFkey
208	sub edi,Fkeys+1	221	sub edi,Fkeys+1
209	mov [Month],edi	222	mov [Month],edi
210	jmp upd	223	jmp upd
211	.noFkey:	224	.noFkey:
212	cmp ebp,2	225	cmp ebp,2
213	jne .nomonth	226	jne .nomonth
214	cmp ah,177	227	cmp ah,177
215	je noclose.drop	228	je noclose.drop
216	jmp still	229	jmp still
217	.nomonth:	230	.nomonth:
218	cmp ebp,3	231	cmp ebp,3
219	je noy_up.year_evt	232	je noy_up.year_evt
220	cmp ebp,4	233	cmp ebp,4
221	jne still	234	jne still
222	mov ebx,[day_sel]	235	mov ebx,[day_sel]
223	cmp ah,176 ; left arrow	236	cmp ah,176 ; left arrow
224	jg still	237	jg still
225	cmp ah,179	238	cmp ah,179
226	jl still	239	jl still
227	shr eax,8	240	shr eax,8
228	sub eax,176	241	sub eax,176
229	movsx ecx,byte[day_bounds+eax*2]	242	movsx ecx,byte[day_bounds+eax*2]
230	movzx eax,byte[day_bounds+eax*2+1]	243	movzx eax,byte[day_bounds+eax*2+1]
231	add ecx,ebx	244	add ecx,ebx
232	test eax,eax	245	test eax,eax
233	jz .chk0	246	jz .chk0
234	cmp ecx,eax	247	cmp ecx,eax
235	ja still	248	ja still
236	.ok:	249	.ok:
237	mov [day_sel],ecx	250	mov [day_sel],ecx
238	call draw_days	251	call draw_days
239	jmp still	252	jmp still
240	.chk0:	253	.chk0:
241	cmp ecx,eax	254	cmp ecx,eax
242	jle still	255	jle still
243	jmp .ok	256	jmp .ok
244		257
245	day_bounds db -1,0,7,0,-7,0,1,0 ; left,down,up,right	258	day_bounds db -1,0,7,0,-7,0,1,0 ; left,down,up,right
246		259
247	button:	260	button:
248	mcall 17	261	mcall 17
249	movzx ebx,ah	262	movzx ebx,ah
250	cmp ah,200	263	cmp ah,200
251	jbe nodayselect	264	jbe nodayselect
252	sub ah,200	265	sub ah,200
253	mov byte[day_sel],ah	266	mov byte[day_sel],ah
254	cmp ebp,5	267	cmp ebp,5
255	jne .redraw	268	jne .redraw
256	call draw_days	269	call draw_days
257	jmp still	270	jmp still
258	.redraw:	271	.redraw:
259	mov [focus],4	272	mov [focus],4
260	jmp red	273	jmp red
261	nodayselect:	274	nodayselect:
262	cmp ah,100	275	cmp ah,100
263	jb no_list	276	jb no_list
264	sub ah,100	277	sub ah,100
265	mov byte[Month],ah	278	mov byte[Month],ah
266	mov [focus],2	279	mov [focus],2
267	jmp upd	280	jmp upd
268	no_list:	281	no_list:
269	cmp ah,1	282	cmp ah,1
270	jne noclose	283	jne noclose
271	close:	284	close:
272	mcall -1 ; clore programm	285	mcall -1 ; clore programm
273		286
274	noclose:	287	noclose:
275		288
276	cmp ah,72	289	cmp ah,72
277	je plus_he	290	je plus_he
278		291
279	cmp ah,73	292	cmp ah,73
280	je plus_hd	293	je plus_hd
281		294
282	cmp ah,74	295	cmp ah,74
283	je minus_he	296	je minus_he
284		297
285	cmp ah,75	298	cmp ah,75
286	je minus_hd	299	je minus_hd
287		300
288	cmp ah,76	301	cmp ah,76
289	je plus_me	302	je plus_me
290		303
291	cmp ah,77	304	cmp ah,77
292	je plus_md	305	je plus_md
293		306
294	cmp ah,78	307	cmp ah,78
295	je minus_me	308	je minus_me
296		309
297	cmp ah,79	310	cmp ah,79
298	je minus_md	311	je minus_md
299		312
300	cmp ah,80	313	cmp ah,80
301	je reset	314	je reset
302		315
303	cmp ah,81	316	cmp ah,81
304	je set_date	317	je set_date
305		318
306	cmp ah,2 ; drop down list	319	cmp ah,2 ; drop down list
307	jne no_dropdn	320	jne no_dropdn
308	.drop:	321	.drop:
309	mov [focus],2	322	mov [focus],2
310	cmp [dropped],al ; ==0	323	cmp [dropped],al ; ==0
311	jne red	324	jne red
312	call draw_window	325	call draw_window
313	mov edx,1 shl 31+231	326	mov edx,1 shl 31+231
314	mov ecx,31	327	mov ecx,31
315	mov eax,8	328	mov eax,8
316	.bremove:	329	.bremove:
317	mcall	330	mcall
318	dec edx	331	dec edx
319	loop .bremove	332	loop .bremove
320	call draw_dropdown	333	call draw_dropdown
321	jmp still	334	jmp still
322	no_dropdn:	335	no_dropdn:
323	cmp ah,3 ; year -1	336	cmp ah,3 ; year -1
324	jne noy_dn	337	jne noy_dn
325	year_dec:	338	year_dec:
326	dec [Year]	339	dec [Year]
327	mov [focus],3	340	mov [focus],3
328	jmp upd	341	jmp upd
329	noy_dn:	342	noy_dn:
330	cmp ah,4 ; year+1	343	cmp ah,4 ; year+1
331	jne noy_up	344	jne noy_up
332	year_inc:	345	year_inc:
333	inc [Year]	346	inc [Year]
334	mov [focus],3	347	mov [focus],3
335	jmp upd	348	jmp upd
336	noy_up:	349	noy_up:
337	cmp ah,5	350	cmp ah,5
338	jne noy_click	351	jne noy_click
339	mov [focus],3	352	mov [focus],3
340	call draw_window	353	call draw_window
341	.still:	354	.still:
342	mcall 10	355	mcall 10
343	cmp eax,2	356	cmp eax,2
344	jne still.evt	357	jne still.evt
345	mcall 2	358	mcall 2
346	.year_evt:	359	.year_evt:
347	cmp ah,176	360	cmp ah,176
348	je year_dec	361	je year_dec
349	cmp ah,179	362	cmp ah,179
350	je year_inc	363	je year_inc
351		364
352	mov ebx,10	365	mov ebx,10
353	cmp ah,9	366	cmp ah,9
354	je key.tab	367	je key.tab
355	cmp ah,8 ; backspace	368	cmp ah,8 ; backspace
356	jne .nobsp	369	jne .nobsp
357	mov eax,[Year]	370	mov eax,[Year]
358	xor edx,edx	371	xor edx,edx
359	div ebx	372	div ebx
360	.ch_year:	373	.ch_year:
361	mov [Year],eax	374	mov [Year],eax
362	call draw_year	375	call draw_year
363	jmp .still	376	jmp .still
364	.nobsp:	377	.nobsp:
365	cmp ah,13 ; enter	378	cmp ah,13 ; enter
366	je upd	379	je upd
367	cmp ah,182	380	cmp ah,182
368	jne .noclear ; del	381	jne .noclear ; del
369	xor eax,eax	382	xor eax,eax
370	jmp .ch_year	383	jmp .ch_year
371	.noclear:	384	.noclear:
372	cmp ah,48	385	cmp ah,48
373	jb .still	386	jb .still
374	cmp ah,57	387	cmp ah,57
375	ja .still	388	ja .still
376	cmp [Year],1000	389	cmp [Year],1000
377	jae .still	390	jae .still
378	shr eax,8	391	shr eax,8
379	lea ecx,[eax-48]	392	lea ecx,[eax-48]
380	mov eax,[Year]	393	mov eax,[Year]
381	imul eax,ebx	394	imul eax,ebx
382	add eax,ecx	395	add eax,ecx
383	jmp .ch_year	396	jmp .ch_year
384	noy_click:	397	noy_click:
385	cmp ah,10	398	cmp ah,10
386	jne START	399	jne START
387	xor [new_style],1	400	xor [new_style],1
388	jmp upd	401	jmp upd
389		402
390		403
391	reset:	404	reset:
392	mcall 3	405	mcall 3
393	mov ecx,eax	406	mov ecx,eax
394	shl ecx,16	407	shl ecx,16
395	shr ecx,16	408	shr ecx,16
396	mcall 22,0x00000000	409	mcall 22,0x00000000
397	jmp still	410	jmp still
398		411
399	plus_hd:	412	plus_hd:
400	mcall 3	413	mcall 3
401	mov ecx,eax	414	mov ecx,eax
402	add ecx,1	415	add ecx,1
403	mcall 22,0x00000000	416	mcall 22,0x00000000
404	jmp still	417	jmp still
405		418
406	plus_he:	419	plus_he:
407	mcall 3	420	mcall 3
408	mov ecx,eax	421	mov ecx,eax
409	add ecx,16	422	add ecx,16
410	mcall 22,0x00000000	423	mcall 22,0x00000000
411	jmp still	424	jmp still
412		425
413	minus_hd:	426	minus_hd:
414	mcall 3	427	mcall 3
415	mov ecx,eax	428	mov ecx,eax
416	sub ecx,1	429	sub ecx,1
417	mcall 22,0x00000000	430	mcall 22,0x00000000
418	jmp still	431	jmp still
419		432
420	minus_he:	433	minus_he:
421	mcall 3	434	mcall 3
422	mov ecx,eax	435	mov ecx,eax
423	sub ecx,16	436	sub ecx,16
424	mcall 22,0x00000000	437	mcall 22,0x00000000
425	jmp still	438	jmp still
426		439
427	plus_md:	440	plus_md:
428	mcall 3	441	mcall 3
429	mov ecx,eax	442	mov ecx,eax
430	add ecx,256	443	add ecx,256
431	mcall 22,0x00000000	444	mcall 22,0x00000000
432	jmp still	445	jmp still
433		446
434	plus_me:	447	plus_me:
435	mcall 3	448	mcall 3
436	mov ecx,eax	449	mov ecx,eax
437	add ecx,4096	450	add ecx,4096
438	mcall 22,0x00000000	451	mcall 22,0x00000000
439	jmp still	452	jmp still
440		453
441	minus_md:	454	minus_md:
442	mcall 3	455	mcall 3
443	mov ecx,eax	456	mov ecx,eax
444	sub ecx,256	457	sub ecx,256
445	mcall 22,0x00000000	458	mcall 22,0x00000000
446	jmp still	459	jmp still
447		460
448	minus_me:	461	minus_me:
449	mcall 3	462	mcall 3
450	mov ecx,eax	463	mov ecx,eax
451	sub ecx,4096	464	sub ecx,4096
452	mcall 22,0x00000000	465	mcall 22,0x00000000
453	jmp still	466	jmp still
454		467
455	set_date:	468	set_date:
456	mov eax,0x00000000	469	mov eax,0x00000000
457	mov ebx,[day_sel]	470	mov ebx,[day_sel]
458	call additem	471	call additem
459	shl eax,8	472	shl eax,8
460	mov ebx,[Month]	473	mov ebx,[Month]
461	add ebx,1	474	add ebx,1
462	call additem	475	call additem
463	shl eax,8	476	shl eax,8
464	mov ebx,[Year]	477	mov ebx,[Year]
465	call additem	478	call additem
466	mov ecx,eax	479	mov ecx,eax
467	mcall 22,1	480	mcall 22,1
468	jmp START	481	jmp START
469		482
470	additem:	483	additem:
471	add eax,1	484	add eax,1
472	daa	485	daa
473	sub ebx,1	486	sub ebx,1
474	cmp ebx,0	487	cmp ebx,0
475	jne additem	488	jne additem
476	ret	489	ret
477		490
478		491
479	; *********************************************	492	; *********************************************
480	; ***** DRAW WINDOW *****	493	; ***** DRAW WINDOW *****
481	; *********************************************	494	; *********************************************

Subversion Repositories Kolibri OS

(root)/programs/system/calendar/trunk/calendar.asm – Rev 6950 → 7717