qemu/roms/SLOF/lib/libhvcall/hvcall.code

   1 /******************************************************************************
   2  * Copyright (c) 2004, 2011 IBM Corporation
   3  * All rights reserved.
   4  * This program and the accompanying materials
   5  * are made available under the terms of the BSD License
   6  * which accompanies this distribution, and is available at
   7  * http://www.opensource.org/licenses/bsd-license.php
   8  *
   9  * Contributors:
  10  *     IBM Corporation - initial implementation
  11  *****************************************************************************/
  12
  13 #include <libhvcall.h>
  14
  15 // : hv-putchar ( hvtermno char -- )
  16 PRIM(hv_X2d_putchar)
  17         char c = TOS.n; POP;
  18         int hvtermno = TOS.n; POP;
  19         hv_putchar(c, hvtermno);
  20 MIRP
  21
  22 // : hv-getchar ( hvtermno -- char )
  23 PRIM(hv_X2d_getchar)
  24         TOS.n = hv_getchar(TOS.n);
  25 MIRP
  26
  27 // : hv-haschar ( hvtermno -- res )
  28 PRIM(hv_X2d_haschar)
  29         TOS.n = hv_haschar(TOS.n);
  30 MIRP
  31
  32 // : hv-reg-crq ( unit qaddr qsize -- res )
  33 PRIM(hv_X2d_reg_X2d_crq)
  34         unsigned long qsize = TOS.u; POP;
  35         unsigned long qaddr = TOS.u; POP;
  36         unsigned int unit = TOS.u;
  37         TOS.n = hv_reg_crq(unit, qaddr, qsize);
  38 MIRP
  39
  40 // : hv-free-crq ( unit -- )
  41 PRIM(hv_X2d_free_X2d_crq)
  42         unsigned int unit = TOS.u; POP;
  43         hv_free_crq(unit);
  44 MIRP
  45
  46 // : hv-send-crq ( unit msgaddr -- rc )
  47 PRIM(hv_X2d_send_X2d_crq)
  48         uint64_t *msgaddr = (uint64_t *)TOS.u; POP;
  49         unsigned int unit = TOS.u;
  50         TOS.n = hv_send_crq(unit, msgaddr);
  51 MIRP
  52
  53 // : hv-put-tce ( liobn ioba tce -- rc )
  54 PRIM(hv_X2d_put_X2d_tce)
  55         uint64_t tce = TOS.u; POP;
  56         uint64_t ioba = TOS.u; POP;
  57         uint32_t liobn = TOS.u;
  58         TOS.u = hv_generic(H_PUT_TCE, liobn, ioba, tce);
  59 MIRP
  60
  61 PRIM(RB_X40)
  62         unsigned long qaddr = TOS.u;
  63         TOS.u = hv_logical_ci_load(1, qaddr);
  64 MIRP
  65 PRIM(RB_X21)
  66         unsigned long qaddr = TOS.u; POP;
  67         unsigned char val = TOS.u; POP;
  68         hv_logical_ci_store(1, qaddr, val);
  69 MIRP
  70 PRIM(RW_X40)
  71         unsigned long qaddr = TOS.u;
  72         TOS.u = hv_logical_ci_load(2, qaddr);
  73 MIRP
  74 PRIM(RW_X21)
  75         unsigned long qaddr = TOS.u; POP;
  76         unsigned short val = TOS.u; POP;
  77         hv_logical_ci_store(2, qaddr, val);
  78 MIRP
  79 PRIM(RL_X40)
  80         unsigned long qaddr = TOS.u;
  81         TOS.u = hv_logical_ci_load(4, qaddr);
  82 MIRP
  83 PRIM(RL_X21)
  84         unsigned long qaddr = TOS.u; POP;
  85         unsigned int val = TOS.u; POP;
  86         hv_logical_ci_store(4, qaddr, val);
  87 MIRP
  88 PRIM(RX_X40)
  89         unsigned long qaddr = TOS.u;
  90         TOS.u = hv_logical_ci_load(8, qaddr);
  91 MIRP
  92 PRIM(RX_X21)
  93         unsigned long qaddr = TOS.u; POP;
  94         unsigned long val = TOS.u; POP;
  95         hv_logical_ci_store(8, qaddr, val);
  96 MIRP
  97
  98 PRIM(hv_X2d_logical_X2d_memop)
  99         unsigned long op    = TOS.u; POP;
 100         unsigned long count = TOS.u; POP;
 101         unsigned long esize = TOS.u; POP;
 102         unsigned long src   = TOS.u; POP;
 103         unsigned long dst   = TOS.u;
 104         TOS.u = hv_logical_memop(dst, src, esize, count, op);
 105 MIRP
 106
 107 PRIM(hv_X2d_cas)
 108         unsigned long size   = TOS.u; POP;
 109         unsigned long buf    = TOS.u; POP;
 110         unsigned long vec    = TOS.u;
 111         TOS.u = hv_cas(vec, buf, size);
 112 MIRP
 113
 114 PRIM(hv_X2d_rtas_X2d_update)
 115         unsigned long rtas_entry   = TOS.u; POP;
 116         unsigned long rtas_base    = TOS.u;
 117         TOS.u = hv_generic(KVMPPC_H_RTAS_UPDATE, rtas_base, rtas_entry);
 118 MIRP
 119
 120 PRIM(get_X2d_print_X2d_version)
 121         unsigned long addr = TOS.u; POP;
 122         get_print_banner(addr);
 123 MIRP
 124
 125 PRIM(check_X2d_and_X2d_patch_X2d_sc1)
 126         unsigned long end = TOS.u; POP;
 127         unsigned long start = TOS.u; POP;
 128         unsigned long patch_ins = TOS.u; POP;
 129
 130         patch_broken_sc1((void*)start, (void*)end, (void*)patch_ins);
 131 MIRP