 
 <PRIVATE
 
-PREDICATE: register < word register >boolean ;
-
 GENERIC: register ( register -- n )
 M: word register "register" word-prop ;
 M: f register drop 0 ;
+
+PREDICATE: register-class < word register >boolean ;
 
 PRIVATE>
 


GENERIC# (BX) 1 ( Rm l -- )

M: register (BX) ( Rm l -- )
    {
        { 1 24 }
        { 1 21 }

: <ROR> ( Rm shift-imm/Rs -- shifter-op ) 0b11 <shifter> ;
: <RRX> ( Rm -- shifter-op ) 0 <ROR> ;

M: register-class shifter-op 0 <LSL> shifter-op ;
M: integer shifter-op 0 <IMM> shifter-op ;

<PRIVATE
