18.6.1.2487.35 XC@+ x-c-fetch-plus XCHAR

( xc-addr1 -- xc-addr2 xchar )

Fetches the xchar at xc-addr1. xc-addr2 points to the first memory location after the retrieved xchar.

Implementation:

: XC@+ ( xc-addr -- xc-addr' u )
   COUNT DUP $80 U< IF EXIT THEN \ special case ASCII
   $7F AND $40 >R
   BEGIN DUP R@ AND WHILE R@ XOR
     6 LSHIFT R> 5 LSHIFT >R >R COUNT
     $3F AND R> OR
   REPEAT R> DROP
;

ContributeContributions