diff --git a/blk/664 b/blk/664
index ceda372..71d92d3 100644
--- a/blk/664
+++ b/blk/664
@@ -5,3 +5,9 @@
 0x70 OPRdK ANDI,   0x30 OPRdK CPI,     0x0e OPRdK LDI,
 0x60 OPRdK ORI,    0x40 OPRdK SBCI,    0x60 OPRdK SBR,
 0x50 OPRdK SUBI,
+
+( 0000 0000 AAAA Abbb )
+: OPAb CREATE C, DOES> C@ ( A b op )
+    ROT 3 LSHIFT ROT OR A, A, ;
+0x98 OPAb CBI,     0x9a OPAb SBI,      0x99 OPAb SBIC,
+0x9b OPAb SBIS,