From 5227777b3400258b410385185c449c7d918aae0b Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sun, 17 May 2020 08:57:23 -0400
Subject: [PATCH] avra: add OPb and OPRdb instr classes

---
 blk/660 |  2 +-
 blk/662 |  2 +-
 blk/666 | 10 ++++++++++
 3 files changed, 12 insertions(+), 2 deletions(-)
 create mode 100644 blk/666

diff --git a/blk/660 b/blk/660
index a127da9..d90f2f3 100644
--- a/blk/660
+++ b/blk/660
@@ -1 +1 @@
-1 5 LOADR+
+1 6 LOADR+
diff --git a/blk/662 b/blk/662
index 58d4618..81a2b8d 100644
--- a/blk/662
+++ b/blk/662
@@ -1,5 +1,5 @@
 ( 0000 000d dddd 0000 )
-: _Rdp ( op rd -- op' place Rd ) 4 LSHIFT OR ;
+: _Rdp ( op rd -- op', place Rd ) 4 LSHIFT OR ;
 : OPRd CREATE , DOES> @ SWAP _Rdp A,, ;
 0b1001010000000101 OPRd ASR,   0b1001010000000000 OPRd COM,
 0b1001010000001010 OPRd DEC,   0b1001010000000011 OPRd INC,
diff --git a/blk/666 b/blk/666
new file mode 100644
index 0000000..57711ff
--- /dev/null
+++ b/blk/666
@@ -0,0 +1,10 @@
+( 0000 0000 0sss 0000 )
+: OPb CREATE , DOES> @ ( b op )
+    SWAP 4 LSHIFT OR A,, ;
+0b1001010010001000 OPb BCLR,   0b1001010000001000 OPb BSET,
+
+( 0000 000d dddd 0bbb )
+: OPRdb CREATE , DOES> @ ( rd b op )
+    ROT _Rdp OR A,, ;
+0b1111100000000000 OPRdb BLD,  0b1111101000000000 OPRdb BST,
+0b1111110000000000 OPRdb SBRC, 0b1111111000000000 OPRdb SBRS,