ftreverse

reverses an ftable's contents in place at k-rate

Description

reverses an ftable's contents in place at k-rate

Syntax

ftreverse itablenum

Initialization

itablenum - number of ftable to reverse

Code

opcode ftreverse,0,i

itablenum xin

ilen = ftlen(itablenum)

kleft = 0
kright = ilen - 1

loopStart:

ktemp   table kright, itablenum
kval    table kleft, itablenum

tablew  ktemp, kleft, itablenum
tablew  kval, kright, itablenum

kleft = kleft + 1
kright = kright - 1

if (kleft < kright) goto loopStart

       endop

Credits

Steven Yi