; ( d1 d2 -- d3 ) Arithmetics ; R( -- ) ; subtract double cell values VE_DMINUS: .db $02, "d-",0 .dw VE_HEAD .set VE_HEAD = VE_DMINUS XT_DMINUS: .dw PFA_DMINUS PFA_DMINUS: ld temp4, Y+ ld temp5, Y+ ld temp6, Y+ ld temp7, Y+ ld temp2, Y+ ld temp3, Y+ sub tosl, temp4 sbc tosh, temp5 sbc temp2, temp6 sbc temp3, temp7 st -Y, temp3 st -Y, temp2 jmp DO_NEXT