kolibrios-fun/programs/demos/aclock/trunk/aclock.asm

; aclock 1.1
; Copyright (c) 2002 Thomas Mathys
; killer@vantage.ch
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

	bits 32
	%include 'mos.inc'
	section .text


;********************************************************************
;	configuration stuff
;********************************************************************

	%define APPNAME		"Clock"
	%define STACKSIZE	1024

	; default window position/dimensions (work area)
	%define DEFAULT_XPOS	-20
	%define DEFAULT_YPOS	20
	%define DEFAULT_WIDTH	110
	%define DEFAULT_HEIGHT	110

	; minimal size (horizontal and vertical) of work area
	%define MIN_WIDTH	100
	%define MIN_HEIGHT	100


;********************************************************************
;	header
;********************************************************************
	
	MOS_HEADER01 main,image_end,memory_end,stacktop-4,cmdLine,0

	; these includes introduce code and thus mustn't stand
	; before the menuet header =)
	%include 'dbgboard.inc'
	%include 'strlen.inc'
	%include 'str2dwrd.inc'
	%include 'strtok.inc'
	%include 'cmdline.inc'
	%include 'adjstwnd.inc'
	%include 'draw.inc'

;********************************************************************
;	main program
;********************************************************************
main:
	call	getDefaultWindowColors
	call	parseCommandLine

	; check minimal window dimensions
	cmp	dword [wndWidth],MIN_WIDTH
	jae	.widthok
	mov	dword [wndWidth],MIN_WIDTH
.widthok:
	cmp	dword [wndHeight],MIN_HEIGHT
	jae	.heightok
	mov	dword [wndHeight],MIN_HEIGHT
.heightok:

	; adjust window dimensions
	mov	eax,ADJSTWND_TYPE_SKINNED
	mov	ebx,[wndXPos]
	mov	ecx,[wndYPos]
	mov	edx,[wndWidth]
	mov	esi,[wndHeight]
	call	adjustWindowDimensions
	mov	[wndXPos],ebx
	mov	[wndYPos],ecx
	mov	[wndWidth],edx
	mov	[wndHeight],esi

	call	drawWindow
.msgpump:
;	call	drawClock

	; wait up to a second for next event
	mov	eax,MOS_SC_WAITEVENTTIMEOUT
	mov	ebx,100
	int	0x40

	test	eax,eax
	jne	.event_occured
	call	drawClock

  .event_occured:
	cmp	eax,MOS_EVT_REDRAW
	je	.redraw
	cmp	eax,MOS_EVT_KEY
	je	.key
	cmp	eax,MOS_EVT_BUTTON
	je	.button
	jmp	.msgpump

.redraw:
	call	drawWindow
	jmp	.msgpump
.key:
	mov	eax,MOS_SC_GETKEY
	int	0x40
	jmp	.msgpump
.button:
	mov	eax,MOS_SC_EXIT
	int	0x40
	jmp	.msgpump


;********************************************************************
;	get default window colors
;	input		:	nothing
;	output		:	wndColors contains default colors
;	destroys	:	nothing
;********************************************************************
getDefaultWindowColors:
	pushad
	pushfd
	mov	eax,MOS_SC_WINDOWPROPERTIES
	mov	ebx,3
	mov	ecx,wndColors
	mov	edx,MOS_WNDCOLORS_size
	int	0x40
	popfd
	popad
	ret


;********************************************************************
;	define and draw window
;	input		nothing
;	output		nothing
;	destroys	flags
;********************************************************************
	align	4
drawWindow:
	pusha

	; start window redraw
	mov	eax,MOS_SC_REDRAWSTATUS
	mov	ebx,1
	int	0x40

	; create window
	mov	eax,MOS_SC_DEFINEWINDOW
	mov	ebx,[wndXPos]
	shl	ebx,16
	or	ebx,[wndWidth]
	mov	ecx,[wndYPos]
	shl	ecx,16
	or	ecx,[wndHeight]
	mov	edx,[wndColors+MOS_WNDCOLORS.work]
	or	edx,0x53000000
	mov	edi,label
	int	0x40

	call drawClock
	
	; end window redraw
	mov	eax,MOS_SC_REDRAWSTATUS
	mov	ebx,2
	int	0x40
	popa
	ret


;********************************************************************
;	initialized data
;********************************************************************

	; window position and dimensions.
	; dimensions are for work area only.
wndXPos		dd	DEFAULT_XPOS
wndYPos		dd	DEFAULT_YPOS
wndWidth	dd	DEFAULT_WIDTH
wndHeight	dd	DEFAULT_HEIGHT

	; window label
label		db	APPNAME,0
LABEL_LEN	equ	($-label-1)

	; token delimiter list for command line
delimiters	db	9,10,11,12,13,32,0

	; don't insert anything after this label
image_end:


;********************************************************************
;	uninitialized data
;********************************************************************
	section .bss align=4

wndColors	resb	MOS_WNDCOLORS_size
procInfo	resb	MOS_PROCESSINFO_size

	; space for command line. at the end we have an additional
	; byte for a terminating zero, just to be sure...
cmdLine		resb	257

	alignb	4
stack		resb	STACKSIZE
stacktop:

	; don't insert anything after this label
memory_end: