18.6.1.2488.10 XEMIT x-emit XCHAR
( xchar -- )
Prints an xchar on the terminal.
See:
Implementation:
: XEMIT ( xchar -- )
DUP $80 U< IF EMIT EXIT THEN \ special case ASCII
0 SWAP $3F
BEGIN 2DUP U> WHILE
2/ >R DUP $3F AND $80 OR SWAP 6 RSHIFT R>
REPEAT $7F XOR 2* OR
BEGIN DUP $80 U< 0= WHILE EMIT REPEAT DROP
;
DUP $80 U< IF EMIT EXIT THEN \ special case ASCII
0 SWAP $3F
BEGIN 2DUP U> WHILE
2/ >R DUP $3F AND $80 OR SWAP 6 RSHIFT R>
REPEAT $7F XOR 2* OR
BEGIN DUP $80 U< 0= WHILE EMIT REPEAT DROP
;