$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                            ' default use 40 for the frame space
$baud = 115200

 ' $lib "mcsbyte.lbx"

config pind.2= input'
config pind.3= input

'Change - ïðè èçìèíåíèå óðîâíÿ, Falling -ñïàäó(+...-) , Rising -íàðîñòàíèþ(-..+) ñïàäó(+...-), Low Level - íèçêèé óðîâåíü
config int0=FALLING
Config Int1 = Rising

on int0 Star
On Int1 Prog


Enable Interrupts
 Enable Int0


dim b as bit
dim r as byte
dim l as long
Dim Byt As Byte
Dim Diy As Byte
'disable

print "ok"

 L = 7
 r=0
do


loop
End

 Star:

Enable Int1
return

Prog:


If Byt = 0   Then


If L > -1 Then
B = Pind.2
R.l = B
L = L - 1

End If

If L = -1 Then
L = 7
Byt = Byt + 1
Print R
End If

End If


Return