fork download
copy 
  1. : BSWAP16  ( u -- u )
  2.     BASE @ >R  HEX
  3.     S" FFFF AND 00010001 * 8 RSHIFT FFFF AND" EVALUATE
  4.     R> BASE !
  5. ; IMMEDIATE
  6.  
  7. HEX
  8. 0123 BSWAP16 U.
  9.  
  10. : TEST  BSWAP16 ;
  11. SEE TEST
Success #stdin #stdout 0s 22520KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2301 
: TEST  
  FFFF and 10001 * 8 rshift FFFF and ;
https://ideone.com/1KiivR
language:
Forth (gforth 0.7.3)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!