16f628+cd4067 port çoklama

[mikro29]

merhaba,
forumda port çoklamayı araştırırken @fsan hocanın 628+cd4067 birlikte kullandığını gördüm forumda vermiş olduğu kodları picbasic e nasıl uyarlıyabilirim... daha doğrusu tam kod nasıl olması gerek biraz uğraştım ama olayı çözemedim yardımlarınızı bekliyorum
[/code]
Scan var bit[60]
'***************
n var byte
cnt var byte
'****************

for n = 0 to 3
low n
for cnt = 0 to 15
porta = cnt
pause 1
'************************
Scan[n*16+cnt] = porta.5
'************************
if (n = 0) and (cnt = 4) then high portb.7
next
high n
next

[mikro29]

@fsan hocanın verdiği kod ve şema https://www.picproje.org/index.php/topic,4666&highlight=74hc165