generator stanow logicznych BIS Program

[solar1]

dzieki uprzejmosci kolegow z irca dysponoje takim programem :
Pytanie Jak ustawic warotsci TImer i Counter aby 1 i 0 trwaly np 1ms ?

$crystal = 6000000
Dim A As Iram String * 21
Dim Z As Iram String * 1
Dim K As Byte
Dim Znowu As Bit
Config Timer0 = Timer , Gate = Internal , Mode = 1
Counter0 = 30000
On Timer0 _slij
Enable Timer0
Enable Interrupts
A = "1010101010101010101010*"
Z = ""
K = 1
Znowu = 1
Do
If Znowu = 1 Then
Waitms 10
Start Timer0
Znowu = 0
End If
Z = Mid(a , K , 1)
If Z = "*" Then
K = 1
Stop Timer0
Znowu = 1
End If
If Z = "0" Then Reset P0.6
If Z = "1" Then Set P0.6
Loop
End
_slij:
Counter0 = 60000
Start Timer0
K = K + 1
Return