config port

[zibi11]

interesuje mnie opcja config port
w avr 90s8515
może kyoś napisza banalny program
obsługi wygnałów wejsciowych do tego procka

może ktos poprawi żeby działało
dim a as byte
do
config portd =input
a = pind
if a = 1 then
porta.1 = 1
loop

[euromatic]

Config Pind.1 = Input
Config Pina.1 = Output
Dim A As Bit
Wejscie Alias Portd.1
Wyjscie Alias Porta.1


do

A = Wejscie
If A = 1 Then
set Wyjscie
Else
reset Wyjscie
End If

loop

[zibi11]

dzięki