1 \ Miscellaneous core words
3 : ROLL ( x_u x_u-1... x_0 u -- x_u-1 ... x_0 x_u )
4 1+ DUP PICK SWAP ( x_u x_u-1 ... x_0 x_u u+1 )
5 PSP@ 1- SWAP - PSP@ 2- SWAP
12 ( Compute absolute value. )
36 BL WORD FIND >LFA ( find the word, gets the dictionary entry address )
37 DUP @ LATEST ! ( set LATEST to point to the previous word )
38 H ! ( and store H with the dictionary address )
42 BL WORD FIND DROP >NAME
43 DUP @ F_HIDDEN OR SWAP !