SRI-NOSC/mdec/rl.s


/ read rl01

rlcs = 174400
rlba = 2
rlda = 4
rlmp = 6
rhcom = 10
scom = 6
rcom = 14

rblk:
	mov	dska,r1
	mov	$6.,r3
	clr	r0
	div	$20.,r0
	ash	r3,r0
	asl	r1
	bis	r1,r0
	mov	r0,-(sp)
	mov	r0,r1
	bic	$!100,r0
	asr	r0
	asr	r0
	mov	r0,-(sp)
	bic	$177,r1
	mov	r1,-(sp)
	mov	$rhcom,r0
	jsr	pc,rlexec
	mov	(r1),r0
	bic	$177,r0
	sub	(sp)+,r0
	bcc	1f
	neg	r0
	bis	$4,(sp)
1:
	inc	r0		/ set mark bit
	bis	(sp)+,r0
	mov	r0,-(r1)
	mov	r3,r0
	jsr	pc,rlexec
	mov	wc,(r1)
	mov	(sp)+,-(r1)
	mov	ba,-(r1)
	mov	$rcom,-(r1)
	br	1f

rlexec:
	mov	$rlcs,r1
	mov	r0,(r1)
1:
	tstb	(r1)
	bpl	1b
	add	r3,r1
	rts	pc