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

Subversion Repositories Kolibri OS

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