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
;
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
;