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