Code:
Pattern VAR WORD
Idx VAR BYTE
;---------------------------------------------------------------------------
ZigZag DATA %00,%00000001, 2
DATA %00,%00000010, 2
DATA %00,%00000100, 2
DATA %00,%00001000, 2
DATA %00,%00010000, 2
DATA %00,%00100000, 2
DATA %00,%01000000, 2
DATA %00,%10000000, 2
DATA %01,%00000000, 2
DATA %10,%00000000, 2
DATA %01,%00000000, 2
DATA %00,%10000000, 2
DATA %00,%01000000, 2
DATA %00,%00100000, 2
DATA %00,%00010000, 2
DATA %00,%00001000, 2
DATA %00,%00000100, 2
DATA %00,%00000010, 2
DATA %00,%00000001, 2
DATA %00,%00000000, 0
;---------------------------------------------------------------------------
INCLUDE "VirtualPort.bas"
ASM
MyPortPins macro ; these define which bits go with which pins
Vpin 0, PORTC,5
Vpin 1, PORTC,0
Vpin 2, PORTC,4
Vpin 3, PORTC,1
Vpin 4, PORTC,3
Vpin 5, PORTC,2
Vpin 6, PORTC,6
Vpin 7, PORTB,4
Vpin 8, PORTC,7
Vpin 9, PORTB,6
endm
ENDASM
;---------------------------------------------------------------------------
Init:
@ OutputPort MyPortPins ; Set Pins to Output
Main:
FOR Idx = 0 to (19*3) STEP 3
READ Idx, Pattern.HighByte ; get pattern from EEPROM
READ Idx+1, Pattern.LowByte
@ WritePort _Pattern, MyPortPins ; write pattern to Virtual Port
PAUSE 100
NEXT Idx
GOTO Main
Bookmarks