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


; Calendar for KolibriOS
;
; v1.5 - time redesign by Heavyiron
; v1.2 - v1.55 - new design 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:
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]
    call calculate
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
 
update_clock:
    mcall 22,0x00000000 
    call draw_clock	
    jmp  still
 
reset:
    mcall 3
    mov  ecx,eax
    shl  ecx,16
    shr  ecx,16
 
    jmp  update_clock
 
plus_hd:
    mcall 3
    mov  ecx,eax
    add  ecx,1
 
    jmp  update_clock
 
plus_he:
    mcall 3
    mov  ecx,eax
    add  ecx,16
 
    jmp  update_clock
 
minus_hd:
    mcall 3
    mov  ecx,eax
    sub  ecx,1
 
    jmp  update_clock
 
minus_he:
    mcall 3
    mov  ecx,eax
    sub  ecx,16
 
    jmp  update_clock
 
plus_md:
    mcall 3
    mov  ecx,eax
    add  ecx,256
 
    jmp  update_clock
 
plus_me:
    mcall 3
    mov  ecx,eax
    add  ecx,4096
 
    jmp  update_clock
 
minus_md:
    mcall 3
    mov  ecx,eax
    sub  ecx,256
 
    jmp  update_clock
 
minus_me:
    mcall 3
    mov  ecx,eax
    sub  ecx,4096
 
    jmp  update_clock
 
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 7724	Rev 7902
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 design and functionality by Leency	4	; v1.2 - v1.55 - new design 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-3	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	get_current_date:	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 [curYear],eax	149	mov [curYear],eax
150	call str2int	150	call str2int
151	dec eax	151	dec eax
152	mov [curMonth],eax	152	mov [curMonth],eax
153	call str2int	153	call str2int
154	mov [curDay],eax	154	mov [curDay],eax
155	test byte[esi],0	155	test byte[esi],0
156	jnz .no2000	156	jnz .no2000
157	add [curYear],100	157	add [curYear],100
158	.no2000:	158	.no2000:
159	ret	159	ret
160		160
161	check_midnight:	161	check_midnight:
162	mov ebx,[datestr]	162	mov ebx,[datestr]
163	mcall 29	163	mcall 29
164	cmp eax,ebx	164	cmp eax,ebx
165	je end_check_midnight	165	je end_check_midnight
166	call get_current_date	166	call get_current_date
167	call draw_days	167	call draw_days
168	end_check_midnight:	168	end_check_midnight:
169	ret	169	ret
170		170
171	;===============================================================	171	;===============================================================
172		172
173	START:	173	START:
174	call get_current_date	174	call get_current_date
175	m2m [Year], [curYear]	175	m2m [Year], [curYear]
176	m2m [Month], [curMonth]	176	m2m [Month], [curMonth]
177	m2m [day_sel], [curDay]	177	m2m [day_sel], [curDay]
178	call calculate	178	call calculate
179	red:	179	red:
180	call define_window	180	call define_window
181		181
182	still:	182	still:
183		183
184	mcall 23,50 ; wait here for event	184	mcall 23,50 ; wait here for event
185	.evt:	185	.evt:
186	mov ebp,[focus]	186	mov ebp,[focus]
187	cmp eax,1	187	cmp eax,1
188	je red	188	je red
189	cmp eax,2	189	cmp eax,2
190	je key	190	je key
191	cmp eax,3	191	cmp eax,3
192	je button	192	je button
193		193
194	call check_midnight	194	call check_midnight
195	call draw_clock	195	call draw_clock
196		196
197	jmp still	197	jmp still
198		198
199	key:	199	key:
200	mcall 2 ; get pressed key	200	mcall 2 ; get pressed key
201	cmp ah,9	201	cmp ah,9
202	jne no_tab	202	jne no_tab
203	.tab:	203	.tab:
204	cmp ebp,FOCUSABLE	204	cmp ebp,FOCUSABLE
205	JAE foc_cycle	205	JAE foc_cycle
206	inc [focus]	206	inc [focus]
207	upd:	207	upd:
208	call calculate	208	call calculate
209	jmp red	209	jmp red
210	foc_cycle:	210	foc_cycle:
211	mov [focus],2	211	mov [focus],2
212	jmp upd	212	jmp upd
213	no_tab:	213	no_tab:
214	push eax	214	push eax
215	shr eax,8	215	shr eax,8
216	mov ecx,12	216	mov ecx,12
217	mov edi,Fkeys	217	mov edi,Fkeys
218	repne scasb	218	repne scasb
219	pop eax	219	pop eax
220	jnz .noFkey	220	jnz .noFkey
221	sub edi,Fkeys+1	221	sub edi,Fkeys+1
222	mov [Month],edi	222	mov [Month],edi
223	jmp upd	223	jmp upd
224	.noFkey:	224	.noFkey:
225	cmp ebp,2	225	cmp ebp,2
226	jne .nomonth	226	jne .nomonth
227	cmp ah,177	227	cmp ah,177
228	je noclose.drop	228	je noclose.drop
229	jmp still	229	jmp still
230	.nomonth:	230	.nomonth:
231	cmp ebp,3	231	cmp ebp,3
232	je noy_up.year_evt	232	je noy_up.year_evt
233	cmp ebp,4	233	cmp ebp,4
234	jne still	234	jne still
235	mov ebx,[day_sel]	235	mov ebx,[day_sel]
236	cmp ah,176 ; left arrow	236	cmp ah,176 ; left arrow
237	jg still	237	jg still
238	cmp ah,179	238	cmp ah,179
239	jl still	239	jl still
240	shr eax,8	240	shr eax,8
241	sub eax,176	241	sub eax,176
242	movsx ecx,byte[day_bounds+eax*2]	242	movsx ecx,byte[day_bounds+eax*2]
243	movzx eax,byte[day_bounds+eax*2+1]	243	movzx eax,byte[day_bounds+eax*2+1]
244	add ecx,ebx	244	add ecx,ebx
245	test eax,eax	245	test eax,eax
246	jz .chk0	246	jz .chk0
247	cmp ecx,eax	247	cmp ecx,eax
248	ja still	248	ja still
249	.ok:	249	.ok:
250	mov [day_sel],ecx	250	mov [day_sel],ecx
251	call draw_days	251	call draw_days
252	jmp still	252	jmp still
253	.chk0:	253	.chk0:
254	cmp ecx,eax	254	cmp ecx,eax
255	jle still	255	jle still
256	jmp .ok	256	jmp .ok
257		257
258	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
259		259
260	button:	260	button:
261	mcall 17	261	mcall 17
262	movzx ebx,ah	262	movzx ebx,ah
263	cmp ah,200	263	cmp ah,200
264	jbe nodayselect	264	jbe nodayselect
265	sub ah,200	265	sub ah,200
266	mov byte[day_sel],ah	266	mov byte[day_sel],ah
267	cmp ebp,5	267	cmp ebp,5
268	jne .redraw	268	jne .redraw
269	call draw_days	269	call draw_days
270	jmp still	270	jmp still
271	.redraw:	271	.redraw:
272	mov [focus],4	272	mov [focus],4
273	jmp red	273	jmp red
274	nodayselect:	274	nodayselect:
275	cmp ah,100	275	cmp ah,100
276	jb no_list	276	jb no_list
277	sub ah,100	277	sub ah,100
278	mov byte[Month],ah	278	mov byte[Month],ah
279	mov [focus],2	279	mov [focus],2
280	jmp upd	280	jmp upd
281	no_list:	281	no_list:
282	cmp ah,1	282	cmp ah,1
283	jne noclose	283	jne noclose
284	close:	284	close:
285	mcall -1 ; clore programm	285	mcall -1 ; clore programm
286		286
287	noclose:	287	noclose:
288		288
289	cmp ah,72	289	cmp ah,72
290	je plus_he	290	je plus_he
291		291
292	cmp ah,73	292	cmp ah,73
293	je plus_hd	293	je plus_hd
294		294
295	cmp ah,74	295	cmp ah,74
296	je minus_he	296	je minus_he
297		297
298	cmp ah,75	298	cmp ah,75
299	je minus_hd	299	je minus_hd
300		300
301	cmp ah,76	301	cmp ah,76
302	je plus_me	302	je plus_me
303		303
304	cmp ah,77	304	cmp ah,77
305	je plus_md	305	je plus_md
306		306
307	cmp ah,78	307	cmp ah,78
308	je minus_me	308	je minus_me
309		309
310	cmp ah,79	310	cmp ah,79
311	je minus_md	311	je minus_md
312		312
313	cmp ah,80	313	cmp ah,80
314	je reset	314	je reset
315		315
316	cmp ah,81	316	cmp ah,81
317	je set_date	317	je set_date
318		318
319	cmp ah,2 ; drop down list	319	cmp ah,2 ; drop down list
320	jne no_dropdn	320	jne no_dropdn
321	.drop:	321	.drop:
322	mov [focus],2	322	mov [focus],2
323	cmp [dropped],al ; ==0	323	cmp [dropped],al ; ==0
324	jne red	324	jne red
325	call draw_window	325	call draw_window
326	mov edx,1 shl 31+231	326	mov edx,1 shl 31+231
327	mov ecx,31	327	mov ecx,31
328	mov eax,8	328	mov eax,8
329	.bremove:	329	.bremove:
330	mcall	330	mcall
331	dec edx	331	dec edx
332	loop .bremove	332	loop .bremove
333	call draw_dropdown	333	call draw_dropdown
334	jmp still	334	jmp still
335	no_dropdn:	335	no_dropdn:
336	cmp ah,3 ; year -1	336	cmp ah,3 ; year -1
337	jne noy_dn	337	jne noy_dn
338	year_dec:	338	year_dec:
339	dec [Year]	339	dec [Year]
340	mov [focus],3	340	mov [focus],3
341	jmp upd	341	jmp upd
342	noy_dn:	342	noy_dn:
343	cmp ah,4 ; year+1	343	cmp ah,4 ; year+1
344	jne noy_up	344	jne noy_up
345	year_inc:	345	year_inc:
346	inc [Year]	346	inc [Year]
347	mov [focus],3	347	mov [focus],3
348	jmp upd	348	jmp upd
349	noy_up:	349	noy_up:
350	cmp ah,5	350	cmp ah,5
351	jne noy_click	351	jne noy_click
352	mov [focus],3	352	mov [focus],3
353	call draw_window	353	call draw_window
354	.still:	354	.still:
355	mcall 10	355	mcall 10
356	cmp eax,2	356	cmp eax,2
357	jne still.evt	357	jne still.evt
358	mcall 2	358	mcall 2
359	.year_evt:	359	.year_evt:
360	cmp ah,176	360	cmp ah,176
361	je year_dec	361	je year_dec
362	cmp ah,179	362	cmp ah,179
363	je year_inc	363	je year_inc
364		364
365	mov ebx,10	365	mov ebx,10
366	cmp ah,9	366	cmp ah,9
367	je key.tab	367	je key.tab
368	cmp ah,8 ; backspace	368	cmp ah,8 ; backspace
369	jne .nobsp	369	jne .nobsp
370	mov eax,[Year]	370	mov eax,[Year]
371	xor edx,edx	371	xor edx,edx
372	div ebx	372	div ebx
373	.ch_year:	373	.ch_year:
374	mov [Year],eax	374	mov [Year],eax
375	call draw_year	375	call draw_year
376	jmp .still	376	jmp .still
377	.nobsp:	377	.nobsp:
378	cmp ah,13 ; enter	378	cmp ah,13 ; enter
379	je upd	379	je upd
380	cmp ah,182	380	cmp ah,182
381	jne .noclear ; del	381	jne .noclear ; del
382	xor eax,eax	382	xor eax,eax
383	jmp .ch_year	383	jmp .ch_year
384	.noclear:	384	.noclear:
385	cmp ah,48	385	cmp ah,48
386	jb .still	386	jb .still
387	cmp ah,57	387	cmp ah,57
388	ja .still	388	ja .still
389	cmp [Year],1000	389	cmp [Year],1000
390	jae .still	390	jae .still
391	shr eax,8	391	shr eax,8
392	lea ecx,[eax-48]	392	lea ecx,[eax-48]
393	mov eax,[Year]	393	mov eax,[Year]
394	imul eax,ebx	394	imul eax,ebx
395	add eax,ecx	395	add eax,ecx
396	jmp .ch_year	396	jmp .ch_year
397	noy_click:	397	noy_click:
398	cmp ah,10	398	cmp ah,10
399	jne START	399	jne START
400	xor [new_style],1	400	xor [new_style],1
401	jmp upd	401	jmp upd
-		402
-		403	update_clock:
-		404	mcall 22,0x00000000
-		405	call draw_clock
402		406	jmp still
403		407
404	reset:	408	reset:
405	mcall 3	409	mcall 3
406	mov ecx,eax	410	mov ecx,eax
407	shl ecx,16	411	shl ecx,16
408	shr ecx,16	412	shr ecx,16
409	mcall 22,0x00000000	-
410	jmp still	413	jmp update_clock
411		414
412	plus_hd:	415	plus_hd:
413	mcall 3	416	mcall 3
414	mov ecx,eax	417	mov ecx,eax
415	add ecx,1	418	add ecx,1
416	mcall 22,0x00000000	-
417	jmp still	419	jmp update_clock
418		420
419	plus_he:	421	plus_he:
420	mcall 3	422	mcall 3
421	mov ecx,eax	423	mov ecx,eax
422	add ecx,16	424	add ecx,16
423	mcall 22,0x00000000	-
424	jmp still	425	jmp update_clock
425		426
426	minus_hd:	427	minus_hd:
427	mcall 3	428	mcall 3
428	mov ecx,eax	429	mov ecx,eax
429	sub ecx,1	430	sub ecx,1
430	mcall 22,0x00000000	-
431	jmp still	431	jmp update_clock
432		432
433	minus_he:	433	minus_he:
434	mcall 3	434	mcall 3
435	mov ecx,eax	435	mov ecx,eax
436	sub ecx,16	436	sub ecx,16
437	mcall 22,0x00000000	-
438	jmp still	437	jmp update_clock
439		438
440	plus_md:	439	plus_md:
441	mcall 3	440	mcall 3
442	mov ecx,eax	441	mov ecx,eax
443	add ecx,256	442	add ecx,256
444	mcall 22,0x00000000	-
445	jmp still	443	jmp update_clock
446		444
447	plus_me:	445	plus_me:
448	mcall 3	446	mcall 3
449	mov ecx,eax	447	mov ecx,eax
450	add ecx,4096	448	add ecx,4096
451	mcall 22,0x00000000	-
452	jmp still	449	jmp update_clock
453		450
454	minus_md:	451	minus_md:
455	mcall 3	452	mcall 3
456	mov ecx,eax	453	mov ecx,eax
457	sub ecx,256	454	sub ecx,256
458	mcall 22,0x00000000	-
459	jmp still	455	jmp update_clock
460		456
461	minus_me:	457	minus_me:
462	mcall 3	458	mcall 3
463	mov ecx,eax	459	mov ecx,eax
464	sub ecx,4096	460	sub ecx,4096
465	mcall 22,0x00000000	-
466	jmp still	461	jmp update_clock
467		462
468	set_date:	463	set_date:
469	mov eax,0x00000000	464	mov eax,0x00000000
470	mov ebx,[day_sel]	465	mov ebx,[day_sel]
471	call additem	466	call additem
472	shl eax,8	467	shl eax,8
473	mov ebx,[Month]	468	mov ebx,[Month]
474	add ebx,1	469	add ebx,1
475	call additem	470	call additem
476	shl eax,8	471	shl eax,8
477	mov ebx,[Year]	472	mov ebx,[Year]
478	call additem	473	call additem
479	mov ecx,eax	474	mov ecx,eax
480	mcall 22,1	475	mcall 22,1
481	jmp START	476	jmp START
482		477
483	additem:	478	additem:
484	add eax,1	479	add eax,1
485	daa	480	daa
486	sub ebx,1	481	sub ebx,1
487	cmp ebx,0	482	cmp ebx,0
488	jne additem	483	jne additem
489	ret	484	ret
490		485
491		486
492	; *********************************************	487	; *********************************************
493	; ***** DRAW WINDOW *****	488	; ***** DRAW WINDOW *****
494	; *********************************************	489	; *********************************************
495		490
496	draw_clock:	491	draw_clock:

Subversion Repositories Kolibri OS

(root)/programs/system/calendar/trunk/calendar.asm @ 485 – Rev 7724 → 7902