add lshift, rshift and 2over to ans-shim.fth

This commit is contained in:
Philip Zembrod 2020-06-14 22:47:06 +02:00
parent 760848aa25
commit 6dbacecb9b

View File

@ -7,3 +7,8 @@
: invert not ; : invert not ;
: lshift 0 DO 2* LOOP ;
: rshift 0 DO 2/ 32767 and LOOP ;
: 2over 3 pick 3 pick ;