| 0,0 → 1,223 |
|---|
| ; 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 "AClock 1.1" |
| %define STACKSIZE 1024 |
| |
| ; default window position/dimensions (work area) |
| %define DEFAULT_XPOS -20 |
| %define DEFAULT_YPOS 20 |
| %define DEFAULT_WIDTH 80 |
| %define DEFAULT_HEIGHT 80 |
| |
| ; minimal size (horizontal and vertical) of work area |
| %define MIN_WIDTH 80 |
| %define MIN_HEIGHT 80 |
| |
| |
| ;******************************************************************** |
| ; 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 |
| |
| 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,0x03000000 |
| mov esi,[wndColors+MOS_WNDCOLORS.grab] |
| mov edi,[wndColors+MOS_WNDCOLORS.frame] |
| int 0x40 |
| |
| ; draw window label |
| mov eax,MOS_SC_WRITETEXT |
| mov ebx,MOS_DWORD(8,8) |
| mov ecx,[wndColors+MOS_WNDCOLORS.grabText] |
| mov edx,label |
| mov esi,LABEL_LEN |
| 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 |
| |
| 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: |
| |
| Property changes: |
|---|
| Added: svn:eol-style |
|---|
| +native |
|---|
| \ No newline at end of property |
|---|