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
	; rgiht border-outer
	mov edx,color2
	add ebx,1 shl 16
	sub ecx,1 shl 16
	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
	; 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 draw_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
    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:
    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+287,0x50000000,COL_WINDOW_BG
 
    shr  ecx,8
    add  edx,22*65536
    mcall
 
    shr  ecx,8
    add  edx,22*65536
    mcall
    ret
 
draw_window:
 
    mcall 12,1
	mcall 48,5 ;get screen size
	mov ecx, ebx
	sub ecx, WIN_H
	shl ecx, 16
	add ecx, WIN_H
	mov ebx, eax
	sub eax, WIN_W
	shl ebx, 16
	add ebx, WIN_W	
    mcall 0,,,COL_WINDOW_BG, ,title ; define window
 
	GetSkinHeight
	mov ecx, eax
	shl ecx, 16
	add ecx, 43
	mcall 13,B_WBAR_X, ,COL_TOOLBAR_BG ; draw toolbar background
    call draw_week
    mcall 8,193*65536+8,272*65536+10,72,COL_DATE_BUTTONS
    mov  ebx,202*65536+8
    inc  edx ;73
    mcall
    mov  ebx,193*65536+8
    mov  ecx,298*65536+10
    inc  edx ;74
    mcall
    mov  ebx,202*65536+8
    inc  edx ;75
    mcall
    mov  ebx,215*65536+8
    mov  ecx,272*65536+10
    inc  edx ;76
    mcall
    mov  ebx,224*65536+8
    inc  edx ;77
    mcall
    mov  ebx,215*65536+8
    mov  ecx,298*65536+10
    inc  edx ;78
    mcall
    mov  ebx,224*65536+8
    inc  edx ;79
    mcall
    mov  ebx,237*65536+21
    mov  ecx,273*65536+35
    inc  edx ;80
    or   edx,0x40000000
    mcall
    mov  ebx,25*65536+110
    mov  ecx,285*65536+22
    mov  esi,COL_DATE_BUTTONS
    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,61 shl 16 ; >
    inc  edx
    mcall
    call draw_days
 
	; draw text in window
    mcall 4,157*65536+287,0x80000000,sys_text
    mcall  ,211*65536+287,,separator
    mcall  ,233*65536+287
    mcall  ,185*65536+274, ,plus
    mcall  ,185*65536+300, ,minus
    mcall  , 35*65536+292,0x00000000,set_date_t,15 ;set date text
 
 
    mov  ecx,0x10ddeeff
    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,COL_NEW_STYLE_T
  .int:
    mcall
 
    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,12
	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
    call draw_clock
    mov  [dropped],0
    mcall 12,2
    ret
 
draw_year:
    mcall 8,B_YEAR_X,B_Y,5,COL_MONTH_YEAR_B
    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]
    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,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]
  .dayloop:
    push ecx
    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
    mov  ebx,edx
    mov  bx,DATE_BUTTON_WIDTH-1
    sub  ebx,8 shl 16
    shrd ecx,edx,16
    mov  cx,DATE_BUTTON_HEIGHT-1
    sub  ecx,12 shl 16
    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
	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-2
	mov cx,2
	add ebx,1 shl 16
	add ecx,27 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
	sub edx,1 shl 16
	
	;second number
	mov ecx,remainder
	add edx,9 shl 16
    mcall 
	add edx,1 shl 16
	mcall
	sub edx,10 shl 16
	
	
    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
 
I_END:
>

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

Subversion Repositories Kolibri OS

(root)/programs/system/calendar/trunk/calendar.asm – Rev 3896 → 3901