.title	Skumma

	.includ	'b:global.mac'

	sect	code

oSKUMM:	clr	Show
	mov	Level,r3
	dec	r3
	blos	999$

10$:	clr	PrsPro
	mov	#Found+2,r4
20$:	mov	(r4)+,r1
	call	GetAdr
	jsr	pc, @(r1)
	sob	r3,20$
	mov	PrsPro, Show

999$:	rts	pc


$SKLI:	mov	#200, PrsPro
	rts	pc

$SKFI:	mov	#1,r0
	br	SETNR

$SKNR:	mov	r4,r0
	sub	#Found+2-Strs,r0
	mov	(r0)+,r1
	mov	(r0),r0
	sub	r1,r0
	call	val16
SETNR:	bic	#177420,PrsPro
	swab	r0
	bis	r0,PrsPro
	rts	pc

$SKMT:	bic	#20,PrsPro	
	rts	pc

$SKUT:	bis	#20,PrsPro
	rts	pc

$SKUR:	bis	#7,PrsPro
	rts	pc

$SKMR:	bic	#7,PrsPro
	rts	pc		
	
$SKUM:	bis	#2,PrsPro
	rts	pc

$SKMM:	bic	#2,PrsPro
	rts	pc

$SKUA:	bis	#1,PrsPro
	rts	pc

$SKMA:	bic	#1,PrsPro
	rts	pc

$SKMH:	bis	#40, PrsPro
	rts	pc

$SKUH:	bic	#40, PrsPro
	rts	pc

oSkCom:	tst	curgrp
	bne	20$
10$:	Write	#DHIOI
	br	999$
20$:	cmp	curgrp, thsgr
	bne	10$
	tst	lstlft
	beq	50$
30$:	mov	lstptr, r3
	sub	#txtlst, r3
	clr	r2
	asr	r3
	div	#20, r2
	asl	r2
	mov	#1, r4
	ash	r3, r4
	bit	r4, comflg(r2)
	beq	100$
	inc	texrea
	add	#2, lstptr
	dec	lstlft
	bne	30$
50$:	gos	CrTeLs	<,,>
	tst	r0
	bne	30$
	mov	hignum, texrea
100$:

999$:	rts	pc
	

oONLY:	REPARS	#2,#HMI
	bcs	9999$
	mov	Strs+2, r1
	mov	Strs+4, r0
	sub	r1, r0
	call	val16	
	mov	r0, r4
	mov	Thsgr,r1
	bne	40$

	Write	#YAN
	br	9999$
	
40$:	cmp	CurGrp, r1
	beq	60$	
	tst	r4
	beq	9999$
50$:	Write	#DHISM
	br	9999$
	
60$:	mov	hignum, r2
	sub	r4, r2
	bmi	50$
	mov	r2, texrea
	mov	#-1, CurGrp
	gos	CrTeLs,	<r1, r2,>

9999$:	rts	pc

Text	HMI,	<"Hur m}nga inl{gg vill du se">
Text	DHISM,	<"Du har inte s} m}nga ol{sta inl{gg."<CR><LF><LF>>
Text	DHIOI,	<"Du har inga ol{sta inl{gg"<CR><Lf><Lf>>
	.even

	.end