Hallo NG,
der Code gibt jetzt bei Tastendruch den Command 12 aus. Wird nicht gedrückt, geht der Controller schlafen.
GünterCode:$regfile = "m8def.dat" $crystal = 3686400 Dim Togbit As Byte , Command As Byte , Address As Byte Enable Interrupts Enable Int0 On Int0 Meininterrupt Config Int0 = Low Level Config Portd.2 = Input Portd.2 = 1 Command = 12 Togbit = 0 Address = 0 Do Powerdown Loop Meininterrupt: Rc5send Togbit , Address , Command Return
Lesezeichen