; ( d1 -- d2 ) Arithmetics ; R( -- ) ; shift a double cell value right VE_D2SLASH: .db $03, "d2/" .dw VE_HEAD .set VE_HEAD = VE_D2SLASH XT_D2SLASH: .dw PFA_D2SLASH PFA_D2SLASH: ld temp0, Y+ ld temp1, Y+ asr temp1 ror temp0 ror tosh ror tosl st -Y, temp1 st -Y, temp0 jmp DO_NEXT