1 /******************************************************************************
2 * Copyright (c) 2004, 2011 IBM Corporation
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
10 * IBM Corporation - initial implementation
11 *****************************************************************************/
13 #include <libhvcall.h>
15 // : hv-putchar ( hvtermno char -- )
18 int hvtermno = TOS.n; POP;
19 hv_putchar(c, hvtermno);
22 // : hv-getchar ( hvtermno -- char )
24 TOS.n = hv_getchar(TOS.n);
27 // : hv-haschar ( hvtermno -- res )
29 TOS.n = hv_haschar(TOS.n);
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);
40 // : hv-free-crq ( unit -- )
41 PRIM(hv_X2d_free_X2d_crq)
42 unsigned int unit = TOS.u; POP;
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);
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);
62 unsigned long qaddr = TOS.u;
63 TOS.u = hv_logical_ci_load(1, qaddr);
66 unsigned long qaddr = TOS.u; POP;
67 unsigned char val = TOS.u; POP;
68 hv_logical_ci_store(1, qaddr, val);
71 unsigned long qaddr = TOS.u;
72 TOS.u = hv_logical_ci_load(2, qaddr);
75 unsigned long qaddr = TOS.u; POP;
76 unsigned short val = TOS.u; POP;
77 hv_logical_ci_store(2, qaddr, val);
80 unsigned long qaddr = TOS.u;
81 TOS.u = hv_logical_ci_load(4, qaddr);
84 unsigned long qaddr = TOS.u; POP;
85 unsigned int val = TOS.u; POP;
86 hv_logical_ci_store(4, qaddr, val);
89 unsigned long qaddr = TOS.u;
90 TOS.u = hv_logical_ci_load(8, qaddr);
93 unsigned long qaddr = TOS.u; POP;
94 unsigned long val = TOS.u; POP;
95 hv_logical_ci_store(8, qaddr, val);
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);
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);
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);
120 PRIM(get_X2d_print_X2d_version)
121 unsigned long addr = TOS.u; POP;
122 get_print_banner(addr);
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;
130 patch_broken_sc1((void*)start, (void*)end, (void*)patch_ins);