ENTRY	FIBSRH

TITLE	FIBSRH - TRANSLATED BY MACRO


;ACS


	SIXBIT	/FIBSRH/	;0	465142,636250
FIBSRH:	MOVM	1,@2(16)	;1	214076,2
	MOVSI	4,-33		;2	205200,777745
FIBS03:	CAMG	1,FIBTBL(4)	;3	317044,37
	JRST	FIBS12		;4	254000,12
	AOBJN	4,FIBS03	;5	253200,3
	TDZA	1,1		;6	634040,1
FIBS07:	MOVNI	1,(2)		;7	211042,0
FIBS10:	MOVEM	1,@3(16)	;10	202076,3
	POPJ	17,		;11	263740,0
FIBS12:	MOVE	@(16)		;12	200036,0
	MOVEI	2,@1(16)	;13	201136,1
	SOJ	2,		;14	360100,0
	HRRM	2,FIBS24	;15	542100,24
	HRLI	2,311001	;16	505100,311001
	SKIPGE	@2(16)		;17	335036,2
	TLO	2,7000		;20	661100,7000
	MOVEM	2,FIBS26	;21	202100,26
	SETZB	2,3		;22	403100,3
	MOVEI	4,(4)		;23	201204,0
FIBS24:	CAMN	(1)		;24	316001,0
	JRST	FIBS10		;25	254000,10
FIBS26:	CAM	(1)		;26	310001,0
	SKIPA	2,1		;27	334100,1
	MOVEI	3,(1)		;30	201141,0
FIBS31:	SOJL	4,FIBS07	;31	361200,7
	MOVE	1,FIBTBL(4)	;32	200044,37
	ADDI	1,(2)		;33	271042,0
	CAIGE	1,(3)		;34	305043,0
	JRST	FIBS24		;35	254000,24
	JRST	FIBS31		;36	254000,31

FIBTBL:	RADIX	5+5
	1		;37	
	2		;40	
	3		;41	
	5		;42	
	8		;43	
	13		;44	
	21		;45	
	34		;46	
	55		;47	
	89		;50	
	144		;51	
	233		;52	
	377		;53	
	610		;54	
	987		;55	
	1597		;56	
	2584		;57	
	4181		;60	
	6765		;61	
	10946		;62	
	17711		;63	
	28657		;64	
	46368		;65	
	75025		;66	
	121393		;67	
	196418		;70	
	317811		;71	
	RADIX 8

	END