So das ist der aktuelle Stand:

Code:
$regfile = "m8def.dat"
$crystal = 16000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Timer1 = Timer , Prescale = 1 , Capture Edge = Rising       'Timer1 für emfang
Disable Timer1
On Timer1 Timer1_isr

Config Portb.3 = Output                                     'Port für Pulsausgabe

Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portd.7 , Db6 = Portd.6 , Db7 = Portd.5 , E = Portc.2 , Rs = Portc.3
Config Lcd = 16 * 2
Cls
Cursor Off

'/////////Sub Deklarieren\\\\\\\\\\\\\
Declare Sub Send_puls(byval Ms As Byte)

Dim I As Double
I = 0

   Call Send_puls(3)
   Enable Timer1
   Enable Interrupts
   Wait 2
   Lcd I

End

Sub Send_puls(byval Ms As Integer)                          'Timer2
   $asm
   push r16
   ldi r16,26
   Out Tccr2 , R16
   ldi r16,25
   Out Ocr2 , R16
   pop r16
   $end Asm

   Waitms Ms

   $asm
   push r16
   clr r16
   Out Tccr2 , R16
   pop r16
   $end Asm
End Sub

Timer1_isr:
   Incr I
Return
Leider nörgelt meine alte Bascom Version noch rum, un meine Update ist noch nicht freigeschaltet...