X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/2b84abb596f52ab2068d52108adc96838ad4340a..31cef89cb428866f787983e68246030321893df4:/usr/src/cmd/px/21rang.s

diff --git a/usr/src/cmd/px/21rang.s b/usr/src/cmd/px/21rang.s
index 39f44b73d5..806f242cfa 100644
--- a/usr/src/cmd/px/21rang.s
+++ b/usr/src/cmd/px/21rang.s
@@ -1,5 +1,7 @@
 #
-# 21rang.s
+# Copyright (c) 1979 Regents of the University of California
+#
+# char sccsid[] = "@(#)21rang.s 4.1 10/10/80";
 #
 # range checking
 #
@@ -8,14 +10,18 @@ _RANG2:
 	bneq	l2101
 	cvtwl	(r10)+,r1
 l2101:
-	cvtwl	(r10)+,r2
-	cvtwl	(sp),r0
-	index	r0,r1,r2,$1,$1,r3
+	cmpw	(sp),r1
+	blss	erange
+	cmpw	(sp),(r10)+
+	bgtr	erange
 	jmp	(r8)
 _RANG24:
 	incl	r10
 	cvtwl	(sp),r0
-	index	r0,(r10)+,(r10)+,$1,$1,r2
+	cmpl	r0,(r10)+
+	blss	erange
+	cmpl	r0,(r10)+
+	bgtr	erange
 	jmp	(r8)
 _RANG42:
 	cvtbl	(r10)+,r0
@@ -23,33 +29,52 @@ _RANG42:
 	cvtwl	(r10)+,r0
 l2102:
 	cvtwl	(r10)+,r1
-	index	(sp),r0,r1,$1,$1,r2
+	cmpl	(sp),r0
+	blss	erange
+	cmpl	(sp),r1
+	bgtr	erange
 	jmp	(r8)
 _RANG4:
 	incl	r10
-	index	(sp),(r10)+,(r10)+,$1,$1,r2
+	cmpl	(sp),(r10)+
+	blss	erange
+	cmpl	(sp),(r10)+
+	bgtr	erange
 	jmp	(r8)
+erange:
+	movw	$ERANGE,_perrno
+	jbr	error
 _RSNG2:
 	cvtbl	(r10)+,r1
 	bneq	l2103
 	cvtwl	(r10)+,r1
 l2103:
-	cvtwl	(sp),r0
-	index	r0,$0,r1,$1,$1,r2
+	movw	(sp),r0
+	blss	erange
+	cmpw	r0,r1
+	bgtr	erange
 	jmp	(r8)
 _RSNG24:
 	incl	r10
 	cvtwl	(sp),r0
-	index	r0,$0,(r10)+,$1,$1,r2
+	blss	erange
+	cmpl	r0,(r10)+
+	bgtr	erange
 	jmp	(r8)
 _RSNG42:
 	cvtbl	(r10)+,r1
 	bneq	l2104
 	cvtwl	(r10)+,r1
 l2104:
-	index	(sp),$0,r1,$1,$1,r2
+	movl	(sp),r0
+	blss	erange
+	cmpl	r0,r1
+	bgtr	erange
 	jmp	(r8)
 _RSNG4:
 	incl	r10
-	index	(sp),$0,(r10)+,$1,$1,r2
+	movl	(sp),r0
+	blss	erange
+	cmpl	r0,(r10)+
+	bgtr	erange
 	jmp	(r8)