mBasic code:
Code: Select all
Sub procedure A
dim i, k as longword
j as word
M1 as byte [40000] data
CKd as sbit at LATB8_bit
HD as byte at LATB
CKd=0
For j=0 to 100
k=j*360
For i=0 to 100
HD=M1[i+k]
CKd=1
CKd=0
next i
next j
end sub