add interpretative UADDR/UTO to cross.fs

Cond: TO        T ' >body H compile ALiteral compile ! ;Cond

: TO            T ' >body ! H ;

Cond: UTO       compile useraddr T ' >body @ , H compile ! ;Cond

: UTO           T ' >body @ H tup@ + X ! ;

Cond: UADDR     compile useraddr T ' >body @ , H ;Cond

: UADDR         T ' >body @ H tup@ + ;

: UTO           UADDR X ! ;

[THEN]

Cond: defers	T ' >body @ compile, H ;Cond