* REVBITS by Randy Ding. Given a number between 0 and 255, reverses
  the order of the bits. (Larger inputs are taken MOD 256).
* Input: real (it's converted into a binary integer by the program)
* Output: real.

::
 CK1NOLASTWD
 CK&DISPATCH1 real
 ::
  COERCE
  CKREF
  CODE
	C=DAT1	A
	CD1EX
	R0=C.F	A
	D1=D1+	5
	C=DAT1	A
	A=0	A
	P=	16-8
-	ASRB.F	B
	C=C+C	B
	GONC	+
	ABIT=1	7
+	P=P+1
	GONC	-
	DAT1=A	A
	C=R0.F	A
	D1=C
	GOVLNG	=Loop
  ENDCODE
  UNCOERCE
 ;
;