Added new files to do range checks

1987-10-27 11:55:59 +00:00
parent 9f97bc2e7e
commit 71469a23d4
5 changed files with 116 additions and 0 deletions
--- a/lang/m2/libm2/rcki.e
+++ b/lang/m2/libm2/rcki.e
@@ -0,0 +1,28 @@
+#
+#include <em_abs.h>
+
+ mes 2,EM_WSIZE,EM_PSIZE
+ exp $rcki
+ pro $rcki, 0
+
+ lal EM_PSIZE
+ loi EM_WSIZE
+ lal 0
+ loi EM_PSIZE
+ loi EM_WSIZE
+ cmi EM_WSIZE
+ zlt *1
+ lal EM_PSIZE
+ loi EM_WSIZE
+ lal 0
+ loi EM_PSIZE
+ adp EM_WSIZE
+ loi EM_WSIZE
+ cmi EM_WSIZE
+ zgt *1
+ ret 0
+1
+ loc ERANGE
+ trp
+ ret 0
+ end 0