; ( d1 -- d2) ; Arithmetics ; invert all bits in the double cell value VE_DINVERT: .dw $ff07 .db "dinvert",0 .dw VE_HEAD .set VE_HEAD = VE_DINVERT XT_DINVERT: .dw PFA_DINVERT PFA_DINVERT: ld temp0, Y+ ld temp1, Y+ com tosl com tosh com temp0 com temp1 st -Y, temp1 st -Y, temp0 jmp_ DO_NEXT