line output in progress

2022-07-29 19:18:15 +03:00
parent ac5b54bd79
commit 544bc355a5
2 changed files with 41 additions and 3 deletions
@@ -56,3 +56,9 @@
 ( decrement )
 %DEC { #01 SUB }

+( get the bit of a specific number )
+( val bitnum -- bit )
+%GETBIT { SFT #01 AND }
+( val* bitnum -- bit )
+%GETBIT2 { SFT2 #0001 AND2 NIP }
+