loop:
clr CLOCK    2
mov a,@R0    2
inc R0       1
mov port,a   2
setb CLOCK   2
jz loop      2