$regfile = "attiny2313.dat" $crystal = 1000000 Config Portb = Output Config Portd = Input Portd = 127 A Alias Pind.2 B Alias Pind.3 On Int0 Int0_int Enable Interrupts Enable Int0 Do Loop End Int0_int: If B = 1 Then Portb = 15 Else Portb = 240 End If Waitms 100 Portb = 0 Return