ext_ucs4_lsw
set_ucs2_word_BB((p)+2,ext_ucs4_lsw(n)))
set_ucs2_word_BB((p),ext_ucs4_lsw(n)))
if ( unicode > UCS4_MAXVAL || ext_ucs4_lsw(unicode) > UCS4_PPRC_MAXVAL ) return -1;