sys/ia64/ia64/ssc.c

   1 /*-
   2  * Copyright (c) 2000 Doug Rabson
   3  * All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  *
  14  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  15  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  18  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  19  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  20  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  21  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  22  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  23  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  24  * SUCH DAMAGE.
  25  *
  26  *      $FreeBSD$
  27  */
  28 #include <sys/param.h>
  29 #include <sys/bus.h>
  30 #include <sys/conf.h>
  31 #include <sys/cons.h>
  32 #include <sys/kernel.h>
  33 #include <sys/lock.h>
  34 #include <sys/module.h>
  35 #include <sys/mutex.h>
  36 #include <sys/priv.h>
  37 #include <sys/proc.h>
  38 #include <sys/systm.h>
  39 #include <sys/tty.h>
  40 #include <machine/md_var.h>
  41
  42 #include <vm/vm.h>
  43 #include <vm/vm_param.h>
  44 #include <vm/vm_kern.h>
  45 #include <vm/vm_page.h>
  46 #include <vm/vm_map.h>
  47 #include <vm/vm_object.h>
  48 #include <vm/vm_extern.h>
  49 #include <vm/vm_pageout.h>
  50 #include <vm/vm_pager.h>
  51
  52 #define SSC_GETCHAR                     21
  53 #define SSC_PUTCHAR                     31
  54
  55 #define SSC_POLL_HZ     50
  56
  57 static tsw_open_t       ssc_open;
  58 static tsw_outwakeup_t  ssc_outwakeup;
  59 static tsw_close_t      ssc_close;
  60
  61 static struct ttydevsw ssc_class = {
  62         .tsw_flags      = TF_NOPREFIX,
  63         .tsw_open       = ssc_open,
  64         .tsw_outwakeup  = ssc_outwakeup,
  65         .tsw_close      = ssc_close,
  66 };
  67
  68 static int polltime;
  69 static struct callout_handle ssc_timeouthandle
  70         = CALLOUT_HANDLE_INITIALIZER(&ssc_timeouthandle);
  71
  72 static void     ssc_timeout(void *);
  73
  74 static u_int64_t
  75 ssc(u_int64_t in0, u_int64_t in1, u_int64_t in2, u_int64_t in3, int which)
  76 {
  77         register u_int64_t ret0 __asm("r8");
  78
  79         __asm __volatile("mov r15=%1\n\t"
  80                          "break 0x80001"
  81                          : "=r"(ret0)
  82                          : "r"(which), "r"(in0), "r"(in1), "r"(in2), "r"(in3));
  83         return ret0;
  84 }
  85
  86 static void
  87 ssc_cnprobe(struct consdev *cp)
  88 {
  89
  90         strcpy(cp->cn_name, "ssccons");
  91         cp->cn_pri = CN_INTERNAL;
  92 }
  93
  94 static void
  95 ssc_cninit(struct consdev *cp)
  96 {
  97 }
  98
  99 static void
 100 ssc_cnterm(struct consdev *cp)
 101 {
 102 }
 103
 104 static void
 105 ssc_cngrab(struct consdev *cp)
 106 {
 107 }
 108
 109 static void
 110 ssc_cnungrab(struct consdev *cp)
 111 {
 112 }
 113
 114 static void
 115 ssc_cnattach(void *arg)
 116 {
 117         struct tty *tp;
 118
 119         tp = tty_alloc(&ssc_class, NULL);
 120         tty_makedev(tp, NULL, "ssccons");
 121 }
 122
 123 SYSINIT(ssc_cnattach, SI_SUB_DRIVERS, SI_ORDER_ANY, ssc_cnattach, 0);
 124
 125 static void
 126 ssc_cnputc(struct consdev *cp, int c)
 127 {
 128         ssc(c, 0, 0, 0, SSC_PUTCHAR);
 129 }
 130
 131 static int
 132 ssc_cngetc(struct consdev *cp)
 133 {
 134     int c;
 135     c = ssc(0, 0, 0, 0, SSC_GETCHAR);
 136     if (!c)
 137             return -1;
 138     return c;
 139 }
 140
 141 static int
 142 ssc_open(struct tty *tp)
 143 {
 144
 145         polltime = hz / SSC_POLL_HZ;
 146         if (polltime < 1)
 147                 polltime = 1;
 148         ssc_timeouthandle = timeout(ssc_timeout, tp, polltime);
 149
 150         return (0);
 151 }
 152
 153 static void
 154 ssc_close(struct tty *tp)
 155 {
 156
 157         untimeout(ssc_timeout, tp, ssc_timeouthandle);
 158 }
 159
 160 static void
 161 ssc_outwakeup(struct tty *tp)
 162 {
 163         char buf[128];
 164         size_t len, c;
 165
 166         for (;;) {
 167                 len = ttydisc_getc(tp, buf, sizeof buf);
 168                 if (len == 0)
 169                         break;
 170
 171                 c = 0;
 172                 while (len-- > 0)
 173                         ssc_cnputc(NULL, buf[c++]);
 174         }
 175 }
 176
 177 static void
 178 ssc_timeout(void *v)
 179 {
 180         struct tty *tp = v;
 181         int c;
 182
 183         tty_lock(tp);
 184         while ((c = ssc_cngetc(NULL)) != -1)
 185                 ttydisc_rint(tp, c, 0);
 186         ttydisc_rint_done(tp);
 187         tty_unlock(tp);
 188
 189         ssc_timeouthandle = timeout(ssc_timeout, tp, polltime);
 190 }
 191
 192 CONSOLE_DRIVER(ssc);