Tada! Hier ist er.... Der Source schafft ne max. Frequenz von ca. 60kHz bei 10Mhz Quarz und einstellbarem Puls- Pausenverhältnis!

Code:
$regfile = "2313def.dat"
$crystal = 10000000
$baud = 9600

Dim Hi As Word
Dim Lo As Word
Dim Tim1 As Word
Dim Tim2 As Word

Config Pind.5 = Output

Config Timer1 = Timer , Prescale = 1

Enable Interrupts
On Timer1 Icnr Nosave
Enable Timer1

Do

    Input "High [1-65535]" , Hi
    Input "Low  [1-65535]" , Lo

Disable Timer1
Tim1 = Hi
Tim2 = Lo
Portd.5 = 1
Enable Timer1

Loop



Icnr:

$asm
in r2, sreg
'push r0
'push r1
push r2
'push r3
'push r4
'push r5
'push r6
'push r7
'push r8
'push r9
'push r10
'push r11
'push r12
'push r13
'push r14
'push r15
push r16
push r17
'push r18
push r19
'push r20
'push r21
'push r22
'push r23
push r24
'push r25
push r26
'push r27
'push r28
'push r29
'push r30
'push r31
$end Asm

Load Timer1 , Tim1


Swap Tim1 , Tim2
Portd.5 = Not Pind.5


$asm
'pop r31
'Pop r30
'pop r29
'pop r28
'pop r27
pop r26
'pop r25
pop r24
'pop r23
'pop r22
'pop r21
'pop r20
pop r19
'pop r18
pop r17
pop r16
'pop r15
'pop r14
'pop r13
'pop r12
'pop r11
'pop r10
'pop r9
'pop r8
'pop r7
'pop r6
'pop r5
'pop r4
'pop r3
pop r2
'pop r1
'pop r0
Out Sreg , R2
$end Asm
Falls jemand ne andere Idee hat, dies in Bscom zu realisieren kann er sich hierzu gerne äusern!