Initial commit

1 files changed, 30 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibf/ctomn.f b/unix/boot/spp/rpp/ratlibf/ctomn.f
new file mode 100644
index 00000000..a2e0294e
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibf/ctomn.f
@@ -0,0 +1,30 @@
+      integer function ctomn (c, rep)
+      integer c, rep (4)
+      integer i
+      integer length
+      integer mntext (136)
+      data mntext /  78, 85, 76, -2, 83, 79, 72, -2, 83, 84, 88, -2, 69,
+     * 84, 88, -2, 69, 79, 84, -2, 69, 78, 81, -2, 65, 67, 75, -2, 66, 6
+     *9, 76, -2, 66, 83, -2, -2, 72, 84, -2, -2, 76, 70, -2, -2, 86, 84,
+     * -2, -2, 70, 70, -2, -2, 67, 82, -2, -2, 83, 79, -2, -2, 83, 73, -
+     *2, -2, 68, 76, 69, -2, 68, 67, 49, -2, 68, 67, 50, -2, 68, 67, 51,
+     * -2, 68, 67, 52, -2, 78, 65, 75, -2, 83, 89, 78, -2, 69, 84, 66, -
+     *2, 67, 65, 78, -2, 69, 77, -2, -2, 83, 85, 66, -2, 69, 83, 67, -2,
+     * 70, 83, -2, -2, 71, 83, -2, -2, 82, 83, -2, -2, 85, 83, -2, -2, 8
+     *3, 80, -2, -2, 68, 69, 76, -2/
+      i = mod (max0(c,0), 128)
+      if (.not.(0 .le. i .and. i .le. 32))goto 23000
+      call scopy (mntext, 4 * i + 1, rep, 1)
+      goto 23001
+23000 continue
+      if (.not.(i .eq. 127))goto 23002
+      call scopy (mntext, 133, rep, 1)
+      goto 23003
+23002 continue
+      rep (1) = c
+      rep (2) = -2
+23003 continue
+23001 continue
+      ctomn=(length (rep))
+      return
+      end