.TITLE	IBITR BIT REVERSAL FUNCTION
;
;	THIS WILL BE A FORTRAN CALLABLE FUNCTION THAT
;	WILL PERFORM A BIT REVERSAL ON A GIVEN NUMBER.
;
;	REFERENCING SEQUENCE	IBITR(NUM,I)
;	INPUT:	NUM	1 INTEGER WORD TO BE CONVERTED
;		I	1 INTEGER WORD SAYING HOW MANY BITS NUM HAS
;	OUTPUT:	IBITR	1 INTEGER WORD THE RESULT OF THE BIT REV
;
;	THIS MACRO-11 ROUTINE WAS WRITTEN BY JEFF HAMILTON.
;
IBITR::			;FORTRAN ENTRY POINT
	MOV 	@2(R5),R1	;GET NUMBER
	MOV	@4(R5),R2	;GET NUMBER OF BITS
	CLR	R0		;CLEAR REGISTER
1$:	ROR R1		; ROTATE RIGHT  INTO CARRY
	ROL R0		;ROTATE CARRY INTO RIGHT POS
	DEC R2		;DECRIMENT COUNT/
	BNE 1$		;BRANCH IF THERE IS MORE
	RETURN
	.END