I tried that:
DEFINE OSC 48
ADCON1 = $0F
' set variables:
x VAR BYTE
steps VAR WORD
stepArray VAR BYTE(4)
clear
TRISB = %11110000
PORTB = 255
Pause 1000
stepArray[0] = %00001010
stepArray[1] = %00000110
stepArray[2] = %00000101
stepArray[3] = %00001001
main:
if 1 = 1 then
steps = steps + 1
else
steps = steps - 1
endif
PORTB = stepArray[steps //4]
pause 2
GoTo main
Bookmarks