Zurzeit sieht mein Quellcode so aus...

geht das man die interrupt routine so rein setzt?


$regfile = "ATtiny13.dat"
$crystal = 9600000
$hwstack = 32
$swstack = 8
$framesize = 16

Config Portb.4 = Output

Config Timer0 = Timer , Prescale = 8
On Timer0 Timer_irq
Const Timervorgabe = 256 - 126

Enable Timer0
Enable Interrupts
Dim A As Integer
Do



Timer_irq:
A = 0.889
Portb.4 = 0
Portb.3 = 0 'bit1'
Waitms A
Portb.4 = 1
Portb.3 = 1
Waitms A

Portb.4 = 0
Portb.3 = 0 'bit2'
Waitms A
Portb.4 = 1
Portb.3 = 1
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit3'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit4'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit5'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit6'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit7'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit8'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit9'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit10'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit11'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit12'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 1
Portb.3 = 1 'bit13'
Waitms A
Portb.4 = 0
Portb.3 = 0
Waitms A

Portb.4 = 0
Portb.3 = 0 'bit14'
Waitms A
Portb.4 = 1
Portb.3 = 1
Waitms A

Loop

Return


Is noch imma mit testled, da auf testplatine fest verlötet...

Mfg Harry