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.
Code:
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.