.Title	rangetest
.psect	$Vars,rel,con,lcl,d,rw
x:
	.byte 0
.even
a:
	.blkb 24
.psect	$PData,rel,con,lcl,d,ro
l$6:
	.word 1
	.word x$range$error
	.word l$5
l$10:

	.byte 145,162,162,157,162,40,55,40,144,151
	.byte 144,40,156,157,164,40,143,141,164,143
	.byte 150,40,166,141,154,165,145,40
l$11:

l$12:

	.byte 163,165,143,143,145,163,163,40,55,40
	.byte 143,157,162,162,145,143,164,154,171,40
	.byte 143,141,165,147,150,164,40,166,141,154
	.byte 165,145,40
.even
l$17:
	.word 1
	.word x$range$error
	.word l$16
l$22:

	.byte 163,165,143,143,145,163,163,40,55,40
	.byte 141,154,154,157,167,145,144,40,166,141
	.byte 154,165,145,40
l$23:

	.byte 145,162,162,157,162,40,55,40,144,151
	.byte 144,40,156,157,164,40,141,154,154,157
	.byte 167,40,166,141,154,165,145,40
l$28:
	.word 1
	.word x$range$error
	.word l$27
l$36:
	.word 1
	.word x$range$error
	.word l$35
l$40:

	.byte 145,162,162,157,162,40,55,40,144,151
	.byte 144,40,156,157,164,40,143,141,164,143
	.byte 150,40,163,165,142,163,143,162,151,160
	.byte 164,40
l$41:

	.byte 163,165,143,143,145,163,163,40,55,40
	.byte 143,157,162,162,145,143,164,154,171,40
	.byte 143,141,165,147,150,164,40,163,165,142
	.byte 163,143,162,151,160,164,40
.even
l$46:
	.word 1
	.word x$range$error
	.word l$45
l$50:

	.byte 163,165,143,143,145,163,163,40,55,40
	.byte 141,154,154,157,167,145,144,40,163,165
	.byte 142,163,143,162,151,160,164,40
l$51:

	.byte 145,162,162,157,162,40,55,40,144,151
	.byte 144,40,156,157,164,40,141,154,154,157
	.byte 167,40,163,165,142,163,143,162,151,160
	.byte 164,40
l$56:
	.word 1
	.word x$range$error
	.word l$55
l$60:

	.byte 40
.even
l$61:

	.byte 141,156,171,40,145,162,162,157,162,40
	.byte 151,156,144,151,143,141,164,151,157,156
	.byte 40,151,156,144,151,143,141,164,145,163
	.byte 40,141,40,146,141,151,154,165,162,145

.psect	$Code1,rel,con,lcl,i,ro
l$1:
	jsr	pc,prx$init
	mov	#-2,-(sp)
l$3:
	mov	#l$6,-(sp)
	mov	prx$flist,-(sp)
	mov	sp,prx$flist
	mov	4(sp),r5
	ble	l$9
	cmp	r5,#12
	ble	l$8
l$9:
	jsr	pc,prx$rnge
l$8:
	movb	r5,x
	mov	#76400,-(sp)
	mov	#34,-(sp)
	mov	#l$10,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	16(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	cmp	(sp)+,(sp)+
	mov	prx$flist,sp
	mov	(sp)+,prx$flist
	tst	(sp)+
	br	l$7
l$5:
	mov	#76400,-(sp)
	mov	#41,-(sp)
	mov	#l$12,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	14(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	add	#6,sp
l$7:
	inc	@sp
	tst	@sp
	ble	l$3
	mov	#1,@sp
l$14:
	mov	#l$17,-(sp)
	mov	prx$flist,-(sp)
	mov	sp,prx$flist
	movb	4(sp),r5
	tstb	r5
	bge	l$19
	negb	r5
l$19:
	mov	r5,r4
	ble	l$21
	cmp	r4,#12
	ble	l$20
l$21:
	jsr	pc,prx$rnge
l$20:
	movb	r4,x
	mov	#76400,-(sp)
	mov	#30,-(sp)
	mov	#l$22,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	16(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	cmp	(sp)+,(sp)+
	mov	prx$flist,sp
	mov	(sp)+,prx$flist
	tst	(sp)+
	br	l$18
l$16:
	mov	#76400,-(sp)
	mov	#34,-(sp)
	mov	#l$23,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	14(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	add	#6,sp
l$18:
	inc	@sp
	cmp	@sp,#12
	ble	l$14
	mov	#13,@sp
l$25:
	mov	#l$28,-(sp)
	mov	prx$flist,-(sp)
	mov	sp,prx$flist
	mov	4(sp),r5
	ble	l$31
	cmp	r5,#12
	ble	l$30
l$31:
	jsr	pc,prx$rnge
l$30:
	movb	r5,x
	mov	#76400,-(sp)
	mov	#34,-(sp)
	mov	#l$10,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	16(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	cmp	(sp)+,(sp)+
	mov	prx$flist,sp
	mov	(sp)+,prx$flist
	tst	(sp)+
	br	l$29
l$27:
	mov	#76400,-(sp)
	mov	#41,-(sp)
	mov	#l$12,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	14(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	add	#6,sp
l$29:
	inc	@sp
	cmp	@sp,#15
	ble	l$25
	mov	#-2,@sp
l$33:
	mov	#l$36,-(sp)
	mov	prx$flist,-(sp)
	mov	sp,prx$flist
	mov	4(sp),r5
	ble	l$39
	cmp	r5,#12
	ble	l$38
l$39:
	jsr	pc,prx$rnge
l$38:
	asl	r5
	mov	#1,a+-2(r5)
	mov	#76400,-(sp)
	mov	#40,-(sp)
	mov	#l$40,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	16(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	cmp	(sp)+,(sp)+
	mov	prx$flist,sp
	mov	(sp)+,prx$flist
	tst	(sp)+
	br	l$37
l$35:
	mov	#76400,-(sp)
	mov	#45,-(sp)
	mov	#l$41,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	14(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	add	#6,sp
l$37:
	inc	@sp
	tst	@sp
	ble	l$33
	mov	#1,@sp
l$43:
	mov	#l$46,-(sp)
	mov	prx$flist,-(sp)
	mov	sp,prx$flist
	mov	4(sp),r5
	ble	l$49
	cmp	r5,#12
	ble	l$48
l$49:
	jsr	pc,prx$rnge
l$48:
	asl	r5
	mov	#1,a+-2(r5)
	mov	#76400,-(sp)
	mov	#34,-(sp)
	mov	#l$50,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	16(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	cmp	(sp)+,(sp)+
	mov	prx$flist,sp
	mov	(sp)+,prx$flist
	tst	(sp)+
	br	l$47
l$45:
	mov	#76400,-(sp)
	mov	#40,-(sp)
	mov	#l$51,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	14(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	add	#6,sp
l$47:
	inc	@sp
	cmp	@sp,#12
	ble	l$43
	mov	#13,@sp
l$53:
	mov	#l$56,-(sp)
	mov	prx$flist,-(sp)
	mov	sp,prx$flist
	mov	4(sp),r5
	ble	l$59
	cmp	r5,#12
	ble	l$58
l$59:
	jsr	pc,prx$rnge
l$58:
	asl	r5
	mov	#1,a+-2(r5)
	mov	#76400,-(sp)
	mov	#40,-(sp)
	mov	#l$40,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	16(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	cmp	(sp)+,(sp)+
	mov	prx$flist,sp
	mov	(sp)+,prx$flist
	tst	(sp)+
	br	l$57
l$55:
	mov	#76400,-(sp)
	mov	#45,-(sp)
	mov	#l$41,-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teioB
	add	#6,sp
	movb	l$11,@sp
	mov	#76400,-(sp)
	clrb	-(sp)
	clr	-(sp)
	mov	sp,r5
	add	#6,r5
	mov	r5,-(sp)
	mov	14(sp),-(sp)
	mov	#teioK,-(sp)
	jsr	pc,teio5
	add	#14,sp
	movb	#-1,@sp
	mov	#teioK,-(sp)
	jsr	pc,teioD
	add	#6,sp
l$57:
	inc	@sp
	cmp	@sp,#15
	ble	l$53
	mov	#1,@sp
	mov	#l$60,-(sp)
	jsr	pc,teio8
	tst	(sp)+
	mov	#50,@sp
	mov	#l$61,-(sp)
	jsr	pc,teio8
	cmp	(sp)+,(sp)+
	rts	pc
.end	l$1