Quote Originally Posted by ERMEGM View Post
Aha. 2.50b. Is 2.60 available online to download?
I just assumed you had 2.60 because of the WORD modifier in your DATA statements.
You can still use VirtualPort with 2.50b, but getting data from EEPROM will be a little different.

Give this a try...
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