Setup port pins into an array

[longpole001]

using hendric example as base i know repeating the code for each port group and offset it will work , but its not a good way to code for many port groups using the same code , need a nice way to point to the i/o pin groups,

A_PortOffset VAR BYTE
B_PortOffset VAR BYTE
C_PortOffset VAR BYTE

For T = 0 to 2
  LOOKUP T, [0,2,3], A_PortOffset
  FOR Cycles = 1 TO PulseCnt
    PORTA.0 [A_PortOffset] = 1
    PAUSEUS 100
    PORTA.0 [A_PortOffset] = 0
    PAUSEUS 200
  NEXT Cycles
  PAUSEUS 350
NEXT T

T= 0
For T = 0 to 1
  LOOKUP T, [2,5], B_PortOffset
  FOR Cycles = 1 TO PulseCnt
    PORTB.0 [B_PortOffset] = 1
    PAUSEUS 100
    PORTB.0 [B_PortOffset] = 0
    PAUSEUS 200
  NEXT Cycles
  PAUSEUS 350
NEXT T

T= 0
For T = 0 to 3
  LOOKUP T, [0,1,3,5], C_PortOffset
  FOR Cycles = 1 TO PulseCnt
    PORTC.0 [C_PortOffset] = 1
    PAUSEUS 100
    PORTC.0 [C_PortOffset] = 0
    PAUSEUS 200
  NEXT Cycles
  PAUSEUS 350
NEXT T

[HenrikOlsson]

Hi,
Surely THIS can't be for the 12F683 can it?
Anyway, if you open up the datasheet for the actual PIC and look memory map you'll see (always doublecheck !) that all the Port registers are consecutive in memory. This means that if you, for example, do PortA.0[14] = 1 you'll actually set PortB.6 because PortB.6 is 14 bits "away" from PortA.0 - pretty cool.

For i = 0 to 8   ' 9 output
  Lookup i, [0, 2, 3, 10, 13, 23, 24, 26, 28], PortOffset
  PortA.0[PortOffset] = 1
NEXT

Again, make sure you check the datasheet for the actual PIC!

/Henrik.