HWStack, Softwstack, Framesize habe ich noch gar nicht definiert....
Also mit diesen Einstellungen funktioniert es nicht:
$hwstack = 80
$swstack = 128
$framesize = 80

wie meinst du das mit declare Sub? Habe damit noch nichts programmiert.

Code:
'Uhr mit Uhrenquarz 32768 Hz an den Pins TOSC1/2


$regfile = "m32def.dat"                                     'AT-Mega32
'$crystal = 1000000                                          'Quarz: 1 MHz - interner Takt
$crystal = 14745600                                         'Quarz: 14,7456 MHz - Quarz auf Platine
'$baud = 9600                                                'RS232 Baudrate definieren

$hwstack = 80
$swstack = 128
$framesize = 80

'-------------------------------------------------------------------------------
'LCD konfiguration:
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 20 * 2
Cursor Off Noblink


Config Date = Dmy , Separator = .
Config Clock = Soft
Date$ = "21/12/08"
Time$ = "19:15:01"

Dim Secalt As Byte
Dim Test As Single

Do

'If Secalt <> _sec Then
   Cls
    Locate 1 , 1
    Lcd Date$

   Locate 2 , 1
 Lcd Time$
   Secalt = _sec
'End If

'nur zum testen
Incr Test
Locate 1 , 10
    Lcd Test

Waitms 250

Loop