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