.title	Mark

	.inclu	'b:global.mac'

	sect	CODE

oMARK:	mov	#2,r0
	cmp	Level,r0
	bge	20$
	
	mov	Oldl,r0
	bne	50$

	REPARS	#2, #VVDM
	bcc	20$
10$:	jmp	999$

20$:	call	FixTxt
	bcc	40$
	Write	#NoText
	br	10$
40$:	mov	r0,FB1+2
	mov	#FB1,r0
	mov	r1,(r0)
	mov	r0,r1
	call	CnvLet
	bcs	10$
50$:	gos	getrec,	<#2, r0, #FB1, #Unlock>
;	call	AccessP	
	tst	(r1)+
	mov	(r1)+,tmp
	mov	(r1)+,tmp+2

	call	CCOff
	call	MtxBgn

	gos	GetMe,	<#FB2>
	mov	r1,r4
	mov	76(r4),r2
	beq	100$
	mov	74(r4),r5
60$:	gos	tryrec,	<#1, r2, #FB1,>
	mov	2(r1),r2
	mov	#30.,r3
	add	#10,r1
70$:	dec	r5
	blt	120$
	cmp	(r1)+,tmp
	bne	80$
	cmp	(r1)+,tmp+2
	bne	90$

	mov	#2,r0
	call	Releas
	Write	#TIAM
	br	888$

80$:	tst	(r1)+
90$:	sob	r3,70$
	tst	r5
	bgt	60$

100$:	mov	#1,r0
	mov	#FB1,r1
	call	spawn
	mov	(r1),r3
	mov	#13,(r1)+
	clr	(r1)+
	mov	100(r4),r2
	mov	r2,(r1)+
	clr	(r1)+
	mov	tmp,(r1)+
	mov	tmp+2,(r1)
	gos	put,	<#1, r0, #FB1>
	mov	r3,100(r4)
	tst	r2
	bne	110$
	mov	r3,76(r4)
	br	140$

110$:	gos	getrec,	<#1, r2, #FB1,>
	mov	r3,2(r1)
	br	130$

120$:	mov	tmp,(r1)+
	mov	tmp+2,(r1)
130$:	gos	put,	<#1, r0, #FB1>
140$:	gos	LockMe,	<#FB1>
	inc	74(r1)			; Antal  Markerade inl{gg
	mov	76(r4), 76(r1)
	mov	100(r4), 100(r1)
	gos	put,	<#1,, #FB1>

888$:	mov	#1,r0
	call	Releas

	call	MtxEnd
	call	CCOn

999$:	rts	pc

oUnMrk:	mov	#2,r0
	cmp	Level,r0
	bge	20$
	
	mov	Oldl,r0
	beq	5$
	gos	getrec,	<#2, r0, #FB1, #Unlock>
	tst	(r1)+
	mov	(r1)+,tmp
	mov	(r1)+,tmp+2
	br	50$

5$:	REPARS	#2, #VVDAM
	bcc	20$
10$:	jmp	1000$

20$:	mov	Found+2, r1
	call	GetAdr
	cmp	(r1),#$RRTE
	bne	40$
	cmp	Level,#3	
	bge	30$
	Write	#NoText
	br	10$
30$:	tst	(r0)+
40$:	call	GetNum
	mov	r0,tmp+2
	mov	r1,tmp

50$:	call	MtxBgn
	call	CCOff

	gos	GetMe,	<#FB2>
	push	r1
	mov	74(r1),r5		; Antal markerade inl{gg
	bne	110$
	jmp	900$

110$:	mov	r5,r3
	clr	r2
	dec	r3
	div	#30., r2		; Antalet markerade i sista blk:t
	inc	r3
	mov	100(r1),r2
	clr	r4			; Flagga
	mov	r2,tmp+20
	clr	FB3-2
120$:	gos	TryRec, <#1, r2, #FB3, #Lock>
	mov	4(r1),r2
	add	#10,r1
	tst	r4
	bne	130$

	mov	r3,r4
	asl	r4
	asl	r4
	add	r1,r4
	mov	-(r4),tmp+4
	mov	-(r4),r4
	cmp	#1,r3
	blt	130$
	mov	r2,tmp+20

130$:	cmp	(r1)+,tmp
	bne	133$
	cmp	(r1),tmp+2
	beq	150$
133$:	tst	(r1)+
	dec	r5
	beq	140$	
	sob	r3,130$
135$:	mov	#30.,r3
	br	120$

140$:	mov	#2,r0
	call	releas
	br	900$

150$:	mov	tmp+4,(r1)
	mov	r4,-(r1)
	gos	Put,	<#1,, #FB3>
	pop	r2
	dec	74(r2)
	bne	160$
	clr	76(r2)
160$:	mov	100(r2),r4
	mov	tmp+20,r5
	mov	r5,100(r2)
170$:	gos	LockMe,	<#FB3>
	mov	74(r2), 74(r1)
	mov	76(r2), 76(r1)
	mov	100(r2), 100(r1)
	gos	put, <#1,, #FB3>
	cmp	r5,r4
	beq	999$
	tst	r5
	beq	180$
	gos	GetRec,	<#1, r5, #FB3,>
	clr	2(r1)
	gos	put, <#1, r0, #FB3>
180$:	gos	dispos,	<#1, r4, #FB3>
	br	999$

900$:	tst	(sp)+
	mov	#1,r0
	call	Releas
	Write	#TAIM

999$:	call	MtxEnd
	call	CCOn

1000$:	rts	pc

Text	VVDM,	<"Vilken text vill du MARKERA">
Text	VVDAM,	<"Vilken text vill du AVMARKERA">
Text	TIAM,	<"Texten {r redan MARKERAD"<Cr><Lf><Lf>>
Text	TAIM,	<"Texten {r inte markerad"<Cr><Lf><Lf>>

	.end