started sprite output debugging

2022-07-29 23:42:27 +03:00
parent b05209ea0c
commit a15a2c15b8
2 changed files with 32 additions and 8 deletions
@@ -56,9 +56,11 @@
 ( decrement )
 %DEC { #01 SUB }

-( get the bit of a specific number )
+( get the bit or the nibble of a specific number )
 ( val bitnum -- bit )
 %GETBIT { SFT #01 AND }
 ( val* bitnum -- bit )
 %GETBIT2 { SFT2 #0001 AND2 NIP }
+( val* nibnum -- nibble )
+%GETNIBBLE { #20 SFT SFT2 #000f AND2 NIP }