Kód: Egész kijelölése
Tulcsordul:
Stop Timer1
Timer1 = Szamlalo
Tulcsordulas = Tulcsordulas + 1
Start Timer1
Return
Indit:
Timer1 = Szamlalo
Start Timer1
Disable Int1
Enable Int0
Gifr = 64
Return
Allj:
Stop Timer1
Disable Int0
Gosub Kiiras:
Gifr = 128
Return
De érdekes dolgot fedeztem fel: írtam egy ilyen programot:
Kód: Egész kijelölése
$regfile = "m8def.dat"
$crystal = 4000000
Config Timer1 = Timer , Prescale = 8
Config Lcd = 20 * 4 , Chipset = Ks077
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcdmode = Port
Dim Tm As Word
On Timer1 Tulcsordul
Enable Interrupts
Enable Timer1
Cls
Initlcd
Cls
Initlcd
Cursor Off
Lcd "Kesz!"
Timer1 = 0
Start Timer1
Do
Loop
End
Tulcsordul:
Tm = Timer1
Cls
Lcd Tm
Wait 3
Return