forked from KolibriOS/kolibrios
320 lines
11 KiB
NASM
320 lines
11 KiB
NASM
; Timer with three buttons ;
|
|
; %define lang "ru_RU"
|
|
; %define lang "it_IT"
|
|
use32
|
|
org 0
|
|
db 'MENUET01'
|
|
version dd 1
|
|
dd program.start
|
|
dd program.end
|
|
dd program.memory
|
|
dd program.stack
|
|
dd 0,0
|
|
|
|
include '../../macros.inc'
|
|
include '../../proc32.inc'
|
|
include '../../KOSfuncs.inc'
|
|
include 'lang.inc'
|
|
; ---------------------------------------------------------------------------- ;
|
|
BUTTON_START equ 2
|
|
BUTTON_PAUSE equ 3
|
|
BUTTON_RESET equ 4
|
|
|
|
BORDER_SIZE equ 5
|
|
MARGIN equ 8
|
|
BUTTON_MARGIN equ 3
|
|
BUTTON_PADDING equ 5
|
|
|
|
CHAR_WIDTH equ 6
|
|
CHAR2_WIDTH equ 8
|
|
CHAR_HEIGHT equ 9
|
|
|
|
BUTTON_START_WIDTH = (BUTTON_PADDING * 2) + (sz_start.end - sz_start) * CHAR_WIDTH
|
|
BUTTON_PAUSE_WIDTH = (BUTTON_PADDING * 2) + (sz_pause.end - sz_pause) * CHAR_WIDTH
|
|
BUTTON_RESET_WIDTH = (BUTTON_PADDING * 2) + (sz_reset.end - sz_reset) * CHAR_WIDTH
|
|
|
|
BUTTON_HEIGHT = (BUTTON_PADDING * 2) + CHAR_HEIGHT + 1
|
|
|
|
WINDOW_WIDTH = (BORDER_SIZE * 2) + (MARGIN * 2) + (BUTTON_MARGIN * 2) + (BUTTON_START_WIDTH + BUTTON_PAUSE_WIDTH + BUTTON_RESET_WIDTH)
|
|
|
|
TIME_AREA_WIDTH = (CHAR2_WIDTH * 8) ; HH MM SS
|
|
TIME_AREA_LEFT = (WINDOW_WIDTH - BORDER_SIZE * 2 - TIME_AREA_WIDTH) / 2
|
|
TIME_AREA_TOP = MARGIN + 1
|
|
|
|
TEXT_ON_BUTTONS_TOP = (MARGIN + CHAR_HEIGHT + MARGIN + BUTTON_PADDING) + 1
|
|
|
|
BUTTON_START_BACK_COLOR equ 0x880000
|
|
BUTTON_PAUSE_BACK_COLOR equ 0x008800
|
|
BUTTON_RESET_BACK_COLOR equ 0x000088
|
|
; ---------------------------------------------------------------------------- ;
|
|
screen:
|
|
.height dw 0
|
|
.width dw 0
|
|
; ---------------------------------------------------------------------------- ;
|
|
window:
|
|
.left dd 0
|
|
.top dd 0
|
|
.width dd WINDOW_WIDTH
|
|
.height dd 0
|
|
; ---------------------------------------------------------------------------- ;
|
|
sc system_colors
|
|
; ---------------------------------------------------------------------------- ;
|
|
timer_ticks dd 0
|
|
last_timer_ticks dd 0
|
|
hours dd 0
|
|
minutes dd 0
|
|
seconds dd 0
|
|
timer_proc dd EmptyProc ; at start Timer yet disabled
|
|
; ---------------------------------------------------------------------------- ;
|
|
Events:
|
|
dd On_Idle
|
|
dd On_Redraw
|
|
dd On_KeyPress
|
|
dd On_ButtonPress
|
|
; ---------------------------------------------------------------------------- ;
|
|
ButtonEvents:
|
|
dd 0
|
|
.close dd On_ButtonClose
|
|
.start dd On_ButtonStart
|
|
.pause dd EmptyProc ; at start Pause must not work
|
|
.reset dd On_ButtonReset
|
|
; ---------------------------------------------------------------------------- ;
|
|
if lang eq ru_RU
|
|
sz_timer db "’ ©¬¥à",0
|
|
|
|
sz_start: db "áâ àâ"
|
|
.end: db 0
|
|
sz_pause: db "¯ 㧠"
|
|
.end: db 0
|
|
sz_reset: db "á¡à®á"
|
|
.end: db 0
|
|
else if lang eq it_IT
|
|
sz_timer db "Timer",0
|
|
|
|
sz_start: db "lancio"
|
|
.end: db 0
|
|
sz_pause: db "pausa"
|
|
.end: db 0
|
|
sz_reset: db "reset"
|
|
.end: db 0
|
|
else
|
|
sz_timer db "Timer",0
|
|
|
|
sz_start: db "start"
|
|
.end: db 0
|
|
sz_pause: db "pause"
|
|
.end: db 0
|
|
sz_reset: db "reset"
|
|
.end: db 0
|
|
end if
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
program.start:
|
|
; get.screen.size
|
|
mcall SF_GET_GRAPHICAL_PARAMS,SSF_SCREEN_SIZE
|
|
mov [screen], eax
|
|
|
|
movzx eax, word[screen.width]
|
|
sub eax, [window.width]
|
|
shr eax, 1
|
|
mov [window.left], eax
|
|
|
|
; skin.height
|
|
mcall SF_STYLE_SETTINGS,SSF_GET_SKIN_HEIGHT
|
|
add eax, (MARGIN * 3) + BORDER_SIZE + BUTTON_HEIGHT + CHAR_HEIGHT
|
|
mov [window.height], eax
|
|
|
|
movzx eax, word[screen.height]
|
|
sub eax, [window.height]
|
|
shr eax, 1
|
|
mov [window.top], eax
|
|
|
|
call On_Redraw
|
|
; ---------------------------------------------------------------------------- ;
|
|
wait.event:
|
|
mcall SF_WAIT_EVENT_TIMEOUT, 50
|
|
call dword[eax * 4 + Events]
|
|
jmp wait.event
|
|
; ---------------------------------------------------------------------------- ;
|
|
On_KeyPress:
|
|
mcall SF_GET_KEY
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
On_ButtonPress:
|
|
mcall SF_GET_BUTTON
|
|
movzx eax, ah
|
|
call dword[eax * 4 + ButtonEvents]
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
On_ButtonClose:
|
|
mcall SF_TERMINATE_PROCESS
|
|
; ---------------------------------------------------------------------------- ;
|
|
On_ButtonStart:
|
|
; get system counter
|
|
mcall SF_SYSTEM_GET,SSF_TIME_COUNT
|
|
sub eax, [last_timer_ticks]
|
|
and [last_timer_ticks], dword 0
|
|
mov [timer_ticks], eax
|
|
mov [timer_proc], dword TimerStarted
|
|
mov [ButtonEvents.start], dword EmptyProc ; disable ButtonStart
|
|
mov [ButtonEvents.pause], dword On_ButtonPause ; enable ButtonPause
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
On_ButtonPause:
|
|
; get system counter
|
|
mcall SF_SYSTEM_GET,SSF_TIME_COUNT
|
|
sub eax, [timer_ticks]
|
|
mov [last_timer_ticks], eax
|
|
mov [timer_proc], dword EmptyProc
|
|
mov [ButtonEvents.start], dword On_ButtonStart ; enable ButtonStart
|
|
mov [ButtonEvents.pause], dword EmptyProc ; disable ButtonPause
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
On_ButtonReset:
|
|
xor eax, eax
|
|
mov [seconds], eax
|
|
mov [hours], eax
|
|
mov [minutes], eax
|
|
mov [last_timer_ticks], eax
|
|
mov [timer_proc], dword EmptyProc
|
|
mov [ButtonEvents.start], dword On_ButtonStart ; enable ButtonStart
|
|
mov [ButtonEvents.pause], dword EmptyProc ; disable ButtonPause
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
On_Redraw:
|
|
; redraw.start
|
|
mcall SF_REDRAW,SSF_BEGIN_DRAW
|
|
; get.standart.colors
|
|
mcall SF_STYLE_SETTINGS,SSF_GET_COLORS,sc,sizeof.system_colors
|
|
; skin.height
|
|
mcall ,SSF_GET_SKIN_HEIGHT
|
|
add eax, (MARGIN * 3) + BORDER_SIZE + BUTTON_HEIGHT + CHAR_HEIGHT
|
|
mov [window.height], eax
|
|
; draw.window
|
|
mov ebx, [window.left]
|
|
shl ebx, 16
|
|
add ebx, [window.width]
|
|
mov ecx, [window.top]
|
|
shl ecx, 16
|
|
add ecx, [window.height]
|
|
mov edx, [sc.work]
|
|
or edx, 0x34000000
|
|
mov edi, sz_timer
|
|
mcall SF_CREATE_WINDOW
|
|
; draw.buttons:
|
|
mcall SF_DEFINE_BUTTON, (MARGIN shl 16) or BUTTON_START_WIDTH, ((MARGIN + CHAR_HEIGHT + MARGIN) shl 16) or BUTTON_HEIGHT, BUTTON_START, BUTTON_START_BACK_COLOR
|
|
|
|
mcall , ((MARGIN + BUTTON_START_WIDTH + BUTTON_MARGIN) shl 16) or BUTTON_PAUSE_WIDTH,, BUTTON_PAUSE, BUTTON_PAUSE_BACK_COLOR
|
|
|
|
mcall , ((MARGIN + BUTTON_START_WIDTH + BUTTON_MARGIN + BUTTON_PAUSE_WIDTH + BUTTON_MARGIN) shl 16) or BUTTON_RESET_WIDTH,, BUTTON_RESET, BUTTON_RESET_BACK_COLOR
|
|
;----------------------
|
|
; draw.texts:
|
|
mcall SF_DRAW_TEXT, ((MARGIN + BUTTON_PADDING + 1) shl 16) or TEXT_ON_BUTTONS_TOP, 0x80FFFFFF, sz_start
|
|
|
|
mcall , ((MARGIN + BUTTON_START_WIDTH + BUTTON_MARGIN + BUTTON_PADDING + 1) shl 16) or TEXT_ON_BUTTONS_TOP,, sz_pause
|
|
|
|
mcall , ((MARGIN + BUTTON_START_WIDTH + BUTTON_MARGIN + BUTTON_PAUSE_WIDTH + BUTTON_MARGIN + BUTTON_PADDING + 1) shl 16) or TEXT_ON_BUTTONS_TOP,, sz_reset
|
|
;----------------------
|
|
call On_Idle
|
|
; redraw.finish
|
|
mcall SF_REDRAW,SSF_END_DRAW
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
DrawTime:
|
|
mov ebx, (1 shl 16)
|
|
mov esi, [sc.work_text]
|
|
mov edi, [sc.work]
|
|
; HH
|
|
mov eax, [hours]
|
|
xor edx, edx
|
|
mov ebp, 10
|
|
div ebp
|
|
mov ebp, edx
|
|
|
|
mov ecx, eax ; [hours] first digit
|
|
|
|
or esi, 0x70000000
|
|
mcall SF_DRAW_NUMBER,,, (TIME_AREA_LEFT shl 16) or TIME_AREA_TOP
|
|
and esi, 0x30FFFFFF
|
|
mcall ,,, ((TIME_AREA_LEFT + 1) shl 16) or TIME_AREA_TOP
|
|
|
|
mov ecx, ebp ; [hours] second digit
|
|
|
|
or esi, 0x70000000
|
|
mcall ,,, ((TIME_AREA_LEFT + 1 + CHAR2_WIDTH) shl 16) or TIME_AREA_TOP
|
|
and esi, 0x30FFFFFF
|
|
mcall ,,, ((TIME_AREA_LEFT + 1 + CHAR2_WIDTH + 1) shl 16) or TIME_AREA_TOP
|
|
; MM
|
|
mov eax, [minutes]
|
|
xor edx, edx
|
|
mov ebp, 10
|
|
div ebp
|
|
mov ebp, edx
|
|
|
|
mov ecx, eax ; [minutes] first digit
|
|
|
|
or esi, 0x70000000
|
|
mcall SF_DRAW_NUMBER,,, ((TIME_AREA_LEFT + CHAR2_WIDTH * 3) shl 16) or TIME_AREA_TOP
|
|
and esi, 0x30FFFFFF
|
|
mcall ,,, ((TIME_AREA_LEFT + CHAR2_WIDTH * 3 + 1) shl 16) or TIME_AREA_TOP
|
|
|
|
mov ecx, ebp ; [minutes] second digit
|
|
|
|
or esi, 0x70000000
|
|
mcall ,,, ((TIME_AREA_LEFT + 1 + CHAR2_WIDTH * 3 + CHAR2_WIDTH) shl 16) or TIME_AREA_TOP
|
|
and esi, 0x30FFFFFF
|
|
mcall ,,, ((TIME_AREA_LEFT + 1 + CHAR2_WIDTH * 3 + CHAR2_WIDTH + 1) shl 16) or TIME_AREA_TOP
|
|
; SS
|
|
mov eax, [seconds]
|
|
xor edx, edx
|
|
mov ebp, 10
|
|
div ebp
|
|
mov ebp, edx
|
|
|
|
mov ecx, eax ; [seconds] first digit
|
|
|
|
or esi, 0x70000000
|
|
mcall SF_DRAW_NUMBER,,, ((TIME_AREA_LEFT + CHAR2_WIDTH * 6) shl 16) or TIME_AREA_TOP
|
|
and esi, 0x30FFFFFF
|
|
mcall ,,, ((TIME_AREA_LEFT + CHAR2_WIDTH * 6 + 1) shl 16) or TIME_AREA_TOP
|
|
|
|
mov ecx, ebp ; [seconds] second digit
|
|
|
|
or esi, 0x70000000
|
|
mcall ,,, ((TIME_AREA_LEFT + 1 + CHAR2_WIDTH * 6 + CHAR2_WIDTH) shl 16) or TIME_AREA_TOP
|
|
and esi, 0x30FFFFFF
|
|
mcall ,,, ((TIME_AREA_LEFT + 1 + CHAR2_WIDTH * 6 + CHAR2_WIDTH + 1) shl 16) or TIME_AREA_TOP
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
On_Idle:
|
|
call dword [timer_proc]
|
|
call DrawTime
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
TimerStarted:
|
|
; get system counter
|
|
mcall SF_SYSTEM_GET,SSF_TIME_COUNT
|
|
sub eax, [timer_ticks]
|
|
xor edx, edx
|
|
mov ecx, 100
|
|
div ecx
|
|
mov ecx, 60
|
|
xor edx, edx
|
|
div ecx
|
|
mov [seconds], edx
|
|
xor edx, edx
|
|
div ecx
|
|
mov [hours], eax
|
|
mov [minutes], edx
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
EmptyProc:
|
|
ret
|
|
; ---------------------------------------------------------------------------- ;
|
|
align 4
|
|
program.end:
|
|
rb 512
|
|
align 16
|
|
program.stack:
|
|
program.memory:
|