: OP2d ( d -- )
CREATE C,
DOES>
0xed A,
C@ SWAP ( op d )
<<4 ( op d<< 4 )
OR A,
;
0x4a OP2d ADCHLd,
0x42 OP2d SBCHLd,