Добрый день. Есть такая задача: необходимо чтоб код нажатой кнопки сохранялся на выводах PD3-PD6, а при появлении импульса на PD2 этот код сбрасывался с выходов мк. Порт B использую для опроса клавиатуры.
По идее всё должно работать, но в протеусе и реально не работает.
Делаю так
Код:
$regfile = "attiny2313.dat" $crystal = 8000000 $baud = 19200 $hwstack = 32 $swstack = 10 $framesize = 40 Config Kbd = Portb Config Pind.6 = Output Config Pind.5 = Output Config Pind.4 = Output Config Pind.3 = Output Config Pind.2 = Input config INT0 = FALLING On Int0 Res Dim Key As Byte , Oldkey As Byte Enable INTERRUPTS Enable Int0 Do Key = Getkbd() If Key <> 16 Then Oldkey = Key If Key = Oldkey Then Shift Oldkey , Left , 4 'сдвиг на 4 знака влево Portd = Oldkey End If Loop Res: Portd = 0 Return End
Что делаю не так?
