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 -- )
16PRIM(hv_X2d_putchar)
17	char c = TOS.n; POP;
18	int hvtermno = TOS.n; POP;
19	hv_putchar(c, hvtermno);
20MIRP
21
22// : hv-getchar ( hvtermno -- char )
23PRIM(hv_X2d_getchar)
24	TOS.n = hv_getchar(TOS.n);
25MIRP
26
27// : hv-haschar ( hvtermno -- res )
28PRIM(hv_X2d_haschar)
29	TOS.n = hv_haschar(TOS.n);
30MIRP
31
32// : hv-reg-crq ( unit qaddr qsize -- res )
33PRIM(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);
38MIRP
39
40// : hv-free-crq ( unit -- )
41PRIM(hv_X2d_free_X2d_crq)
42	unsigned int unit = TOS.u; POP;
43	hv_free_crq(unit);
44MIRP
45
46// : hv-send-crq ( unit msgaddr -- rc )
47PRIM(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);
51MIRP
52
53// : hv-put-tce ( liobn ioba tce -- rc )
54PRIM(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);
59MIRP
60
61PRIM(RB_X40)
62	unsigned long qaddr = TOS.u;
63	TOS.u = hv_logical_ci_load(1, qaddr);
64MIRP
65PRIM(RB_X21)
66	unsigned long qaddr = TOS.u; POP;
67	unsigned char val = TOS.u; POP;
68	hv_logical_ci_store(1, qaddr, val);
69MIRP
70PRIM(RW_X40)
71	unsigned long qaddr = TOS.u;
72	TOS.u = hv_logical_ci_load(2, qaddr);
73MIRP
74PRIM(RW_X21)
75	unsigned long qaddr = TOS.u; POP;
76	unsigned short val = TOS.u; POP;
77	hv_logical_ci_store(2, qaddr, val);
78MIRP
79PRIM(RL_X40)
80	unsigned long qaddr = TOS.u;
81	TOS.u = hv_logical_ci_load(4, qaddr);
82MIRP
83PRIM(RL_X21)
84	unsigned long qaddr = TOS.u; POP;
85	unsigned int val = TOS.u; POP;
86	hv_logical_ci_store(4, qaddr, val);
87MIRP
88PRIM(RX_X40)
89	unsigned long qaddr = TOS.u;
90	TOS.u = hv_logical_ci_load(8, qaddr);
91MIRP
92PRIM(RX_X21)
93	unsigned long qaddr = TOS.u; POP;
94	unsigned long val = TOS.u; POP;
95	hv_logical_ci_store(8, qaddr, val);
96MIRP
97
98PRIM(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);
105MIRP
106
107PRIM(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);
112MIRP
113
114PRIM(get_X2d_print_X2d_version)
115	unsigned long addr = TOS.u; POP;
116	get_print_banner(addr);
117MIRP
118
119PRIM(check_X2d_and_X2d_patch_X2d_sc1)
120	unsigned long end = TOS.u; POP;
121	unsigned long start = TOS.u; POP;
122	unsigned long patch_ins = TOS.u; POP;
123
124	patch_broken_sc1((void*)start, (void*)end, (void*)patch_ins);
125MIRP
126
127PRIM(hv_X2d_update_X2d_dt)
128	unsigned long dt = TOS.u;
129	TOS.u = hv_generic(KVMPPC_H_UPDATE_DT, dt);
130MIRP
131