; ( d1 d2 -- d3) Arithmetics ; R( -- ) ; add double cell values VE_DPLUS: .db $02, "d+",0 .dw VE_HEAD .set VE_HEAD = VE_DPLUS XT_DPLUS: .dw PFA_DPLUS PFA_DPLUS: ld temp2, Y+ ld temp3, Y+ ld temp4, Y+ ld temp5, Y+ ld temp6, Y+ ld temp7, Y+ add tosl, temp4 adc tosh, temp5 adc temp2, temp6 adc temp3, temp7 st -Y, temp3 st -Y, temp2 jmp DO_NEXT