[unix-history] / px / 21rang.s

/
/ range checking
/
_RANG42:
	bne	1f
	mov	(lc)+,r3
1:
	mov	2(sp),r0
	sxt	r1
	cmp	r1,(sp)
	bne	9f
	br	2f
_RANG2:
	bne	1f
	mov	(lc)+,r3
1:
	mov	(sp),r0
2:
	cmp	r0,r3
	blt	9f
	cmp	r0,(lc)+
	bgt	9f
	return
_RANGS42:
	bne	1f
	mov	(lc)+,r3
1:
	mov	2(sp),r0
	sxt	r1
	cmp	r1,(sp)
	bne	9f
	cmp	r0,r3
	bhi	9f
	return
_RANGS2:
	bne	1f
	mov	(lc)+,r3
1:
	cmp	(sp),r3
	bhi	9f
	return
_RANGS4:
	mov	(sp),r0
	bmi	9f
	mov	2(sp),r1
	br	2f
_RANGS24:
	mov	(sp),r1
	bmi	9f
	sxt	r0
	br	2f
_RANG24:
	mov	(sp),r1
	sxt	r0
	br	1f
_RANG4:
	mov	(sp),r0
	mov	2(sp),r1
1:
	cmp	r0,(lc)+
	blt	9f
	bgt	1f
	cmp	r1,(lc)
	blo	9f
1:
	tst	(lc)+
2:
	cmp	r0,(lc)+
	bgt	9f
	blt	1f
	cmp	r1,(lc)
	bhi	9f
1:
	tst	(lc)+
	return
9:
	mov	$ERANGE,_perrno
	error	ERANGE
Commit	Line	Data
4e754410 BJ	1	/
	2	/ range checking
	3	/
	4	_RANG42:
	5	bne 1f
	6	mov (lc)+,r3
	7	1:
	8	mov 2(sp),r0
	9	sxt r1
	10	cmp r1,(sp)
	11	bne 9f
	12	br 2f
	13	_RANG2:
	14	bne 1f
	15	mov (lc)+,r3
	16	1:
	17	mov (sp),r0
	18	2:
	19	cmp r0,r3
	20	blt 9f
	21	cmp r0,(lc)+
	22	bgt 9f
	23	return
	24	_RANGS42:
	25	bne 1f
	26	mov (lc)+,r3
	27	1:
	28	mov 2(sp),r0
	29	sxt r1
	30	cmp r1,(sp)
	31	bne 9f
	32	cmp r0,r3
	33	bhi 9f
	34	return
	35	_RANGS2:
	36	bne 1f
	37	mov (lc)+,r3
	38	1:
	39	cmp (sp),r3
	40	bhi 9f
	41	return
	42	_RANGS4:
	43	mov (sp),r0
	44	bmi 9f
	45	mov 2(sp),r1
	46	br 2f
	47	_RANGS24:
	48	mov (sp),r1
	49	bmi 9f
	50	sxt r0
	51	br 2f
	52	_RANG24:
	53	mov (sp),r1
	54	sxt r0
	55	br 1f
	56	_RANG4:
	57	mov (sp),r0
	58	mov 2(sp),r1
	59	1:
	60	cmp r0,(lc)+
	61	blt 9f
	62	bgt 1f
	63	cmp r1,(lc)
	64	blo 9f
65	1:
66	tst (lc)+
67	2:
68	cmp r0,(lc)+
69	bgt 9f
70	blt 1f
71	cmp r1,(lc)
72	bhi 9f
73	1:
74	tst (lc)+
75	return
76	9:
77	mov $ERANGE,_perrno
78	error ERANGE