.title	fixlet
	
	.inclu	"B:GLOBAL"

	sect	code

fixlet:
	push	r5
	clr	UNREL
	mov	#readc, r4
	mov	myread, r3
	mov	myhigh, r5
	sub	r3, r5
	mov	mypoin, r0
	beq	110$
	clr	@#FB3-2			; prevent fystst messing it up.
	gos	getrec	<#1, r0, #FB2, #UnLock>	; FB4
	clr	r2
	div	#30., r2
	beq	5$
	tst	r3
	beq	70$

5$:	push	r1

10$:	mov	#30., r2
	sub	r3, r2
	cmp	r5, r2
	bhi	30$
	mov	r5, r2
	clr	r5
	br	40$

30$:	sub	r2, r5	

40$:	asl	r3
	asl	r3
	add	r1, r3
	add	#10, r3

50$:	mov	(r3), r0
	mov	2(r3), r1
	bmi	52$
	mov	r3, r1
	mov	#FB3, r0
	call	fystst
	tst	r0
	bne	55$
52$:	inc	myread
	br	60$

55$:	mov	r0, (r4)+
	cmp	r4, #readce-4
	bhis	90$
60$:	add	#4, r3
	sob	r2, 50$

	pop	r1
	tst	r5
	beq	100$
70$:	mov	2(r1), r2
	beq	80$
	mov	#-1, (r4)+		; Just to prolong the life-span
	mov	r2, (r4)+		;   of this stupid rutine/AG
	gos	tryrec	<#1, r2, #FB2, #UnLock>	; FB4
80$:	push	r1
	clr	r3
	br	10$

90$:	pop	r1

100$:	mov	#readc, UNREL

	clr	(r4)
	pop	r5

	rts	pc

110$:	iot

	.end