X-Git-Url: http://4ch.mooo.com/gitweb/?a=blobdiff_plain;f=src%2Flib%2F16_head.h;h=3b0322b05dac6d72da4d91e8f2cfb6d4199618af;hb=932bccfc5b5fbfcc4cd6040cd7ef76f90cb9c1ea;hp=0a71c965a040b9a467d81f3b1023f977f19220bc;hpb=d48c3f2da3fb828320dc2817d5ab0e5848d07905;p=16.git

diff --git a/src/lib/16_head.h b/src/lib/16_head.h
index 0a71c965..3b0322b0 100755
--- a/src/lib/16_head.h
+++ b/src/lib/16_head.h
@@ -217,6 +217,36 @@ void regidump();
 	(byte & 0x02 ? '1' : '0'), \
 	(byte & 0x01 ? '1' : '0')
 
+#define WORD_TO_BINARY_PATTERN "%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c"
+#define WORD_TO_BINARY(word)  \
+	(word & 0x8000 ? '1' : '0'), \
+	(word & 0x4000 ? '1' : '0'), \
+	(word & 0x2000 ? '1' : '0'), \
+	(word & 0x1000 ? '1' : '0'), \
+	(word & 0x0800 ? '1' : '0'), \
+	(word & 0x0400 ? '1' : '0'), \
+	(word & 0x0200 ? '1' : '0'), \
+	(word & 0x0100 ? '1' : '0'), \
+	(word & 0x0080 ? '1' : '0'), \
+	(word & 0x0040 ? '1' : '0'), \
+	(word & 0x0020 ? '1' : '0'), \
+	(word & 0x0010 ? '1' : '0'), \
+	(word & 0x0008 ? '1' : '0'), \
+	(word & 0x0004 ? '1' : '0'), \
+	(word & 0x0002 ? '1' : '0'), \
+	(word & 0x0001 ? '1' : '0')
+
+#define NIBBLE_TO_BINARY_PATTERN "%c%c%c%c"
+#define NIBBLE_TO_BINARY(nibble)  \
+	(nibble & 0x08 ? '1' : '0'), \
+	(nibble & 0x04 ? '1' : '0'), \
+	(nibble & 0x02 ? '1' : '0'), \
+	(nibble & 0x01 ? '1' : '0')
+
+#define BOOLEAN_TO_BINARY_PATTERN "%c"
+#define BOOLEAN_TO_BINARY(boolean)  \
+	(boolean & 0x01 ? '1' : '0')
+
 #define PRINT_OPAQUE_STRUCT(p)  print_mem((p), sizeof(*(p)))
 
 #endif/*__16_HEAD_H__*/