$regfile = "m16def.dat" $crystal = 1000000 Config Lcd = 20 * 4 Config Lcdmode = Port Config Lcdbus = 4 Cls 'Aufwachen aus PowerDown mittels Externem Interrupts ' PD2 (Int0) an Taste 1 ' PD3 (Int1) an Taste 2 '--------------------------------------------------------- Ddrd = &B11110011 'PD2+3 Eingang, Rest Ausgang Portd = &B00001100 'Pullups von PD2+3 aktivieren Dim Zaehler As Byte Dim Text As String * 10 On Int0 Ontaste1 'Interrupt-Routine für Taste 1 On Int1 Ontaste2 'Interrupt-Routine für Taste 2 Config Int0 = Falling 'Interrupt 0 bei H/L-Flanke auslösen Config Int1 = Falling 'Interrupt 1 bei H/L-Flanke auslösen Enable Int0 'Externen Interrupt 0 einschalten Enable Int1 'Externen Interrupt 1 einschalten Enable Interrupts 'Interrupts global zulassen '--------------------------------------------------------- Text = "keine " Do Locate 1 , 1 Lcd Zaehler Incr Zaehler Locate 1 , 10 Lcd Text If Zaehler > 100 Then Zaehler = 0 Powerdown End If Loop '--------------------------------------------------------- Ontaste1: 'Int1-Routine Text = "Taste 1" Return Ontaste2: 'Int1-Routine Text = "Taste 2" Return