| /****************************************************************************** |
| * Copyright (c) 2004, 2011 IBM Corporation |
| * All rights reserved. |
| * This program and the accompanying materials |
| * are made available under the terms of the BSD License |
| * which accompanies this distribution, and is available at |
| * http://www.opensource.org/licenses/bsd-license.php |
| * |
| * Contributors: |
| * IBM Corporation - initial implementation |
| *****************************************************************************/ |
| |
| #include <libhvcall.h> |
| |
| // : hv-putchar ( hvtermno char -- ) |
| PRIM(hv_X2d_putchar) |
| char c = TOS.n; POP; |
| int hvtermno = TOS.n; POP; |
| hv_putchar(c, hvtermno); |
| MIRP |
| |
| // : hv-getchar ( hvtermno -- char ) |
| PRIM(hv_X2d_getchar) |
| TOS.n = hv_getchar(TOS.n); |
| MIRP |
| |
| // : hv-haschar ( hvtermno -- res ) |
| PRIM(hv_X2d_haschar) |
| TOS.n = hv_haschar(TOS.n); |
| MIRP |
| |
| // : hv-reg-crq ( unit qaddr qsize -- res ) |
| PRIM(hv_X2d_reg_X2d_crq) |
| unsigned long qsize = TOS.u; POP; |
| unsigned long qaddr = TOS.u; POP; |
| unsigned int unit = TOS.u; |
| TOS.n = hv_reg_crq(unit, qaddr, qsize); |
| MIRP |
| |
| // : hv-free-crq ( unit -- ) |
| PRIM(hv_X2d_free_X2d_crq) |
| unsigned int unit = TOS.u; POP; |
| hv_free_crq(unit); |
| MIRP |
| |
| // : hv-send-crq ( unit msgaddr -- rc ) |
| PRIM(hv_X2d_send_X2d_crq) |
| uint64_t *msgaddr = (uint64_t *)TOS.u; POP; |
| unsigned int unit = TOS.u; |
| TOS.n = hv_send_crq(unit, msgaddr); |
| MIRP |
| |
| // : hv-put-tce ( liobn ioba tce -- rc ) |
| PRIM(hv_X2d_put_X2d_tce) |
| uint64_t tce = TOS.u; POP; |
| uint64_t ioba = TOS.u; POP; |
| uint32_t liobn = TOS.u; |
| TOS.u = hv_generic(H_PUT_TCE, liobn, ioba, tce); |
| MIRP |
| |
| PRIM(RB_X40) |
| unsigned long qaddr = TOS.u; |
| TOS.u = hv_logical_ci_load(1, qaddr); |
| MIRP |
| PRIM(RB_X21) |
| unsigned long qaddr = TOS.u; POP; |
| unsigned char val = TOS.u; POP; |
| hv_logical_ci_store(1, qaddr, val); |
| MIRP |
| PRIM(RW_X40) |
| unsigned long qaddr = TOS.u; |
| TOS.u = hv_logical_ci_load(2, qaddr); |
| MIRP |
| PRIM(RW_X21) |
| unsigned long qaddr = TOS.u; POP; |
| unsigned short val = TOS.u; POP; |
| hv_logical_ci_store(2, qaddr, val); |
| MIRP |
| PRIM(RL_X40) |
| unsigned long qaddr = TOS.u; |
| TOS.u = hv_logical_ci_load(4, qaddr); |
| MIRP |
| PRIM(RL_X21) |
| unsigned long qaddr = TOS.u; POP; |
| unsigned int val = TOS.u; POP; |
| hv_logical_ci_store(4, qaddr, val); |
| MIRP |
| PRIM(RX_X40) |
| unsigned long qaddr = TOS.u; |
| TOS.u = hv_logical_ci_load(8, qaddr); |
| MIRP |
| PRIM(RX_X21) |
| unsigned long qaddr = TOS.u; POP; |
| unsigned long val = TOS.u; POP; |
| hv_logical_ci_store(8, qaddr, val); |
| MIRP |
| |
| PRIM(hv_X2d_logical_X2d_memop) |
| unsigned long op = TOS.u; POP; |
| unsigned long count = TOS.u; POP; |
| unsigned long esize = TOS.u; POP; |
| unsigned long src = TOS.u; POP; |
| unsigned long dst = TOS.u; |
| TOS.u = hv_logical_memop(dst, src, esize, count, op); |
| MIRP |
| |
| PRIM(hv_X2d_cas) |
| unsigned long size = TOS.u; POP; |
| unsigned long buf = TOS.u; POP; |
| unsigned long vec = TOS.u; |
| TOS.u = hv_cas(vec, buf, size); |
| MIRP |
| |
| PRIM(get_X2d_print_X2d_version) |
| unsigned long addr = TOS.u; POP; |
| get_print_banner(addr); |
| MIRP |
| |
| PRIM(check_X2d_and_X2d_patch_X2d_sc1) |
| unsigned long end = TOS.u; POP; |
| unsigned long start = TOS.u; POP; |
| unsigned long patch_ins = TOS.u; POP; |
| |
| patch_broken_sc1((void*)start, (void*)end, (void*)patch_ins); |
| MIRP |
| |
| PRIM(hv_X2d_update_X2d_dt) |
| unsigned long dt = TOS.u; |
| TOS.u = hv_generic(KVMPPC_H_UPDATE_DT, dt); |
| MIRP |
| |
| PRIM(hv_X2d_rtas_X2d_get) |
| if (check_broken_sc1()) { |
| PUSH; |
| TOS.u = (unsigned long) hv_rtas_broken_sc1; |
| PUSH; |
| TOS.u = hv_rtas_broken_sc1_size; |
| } else { |
| PUSH; |
| TOS.u = (unsigned long) hv_rtas; |
| PUSH; |
| TOS.u = hv_rtas_size; |
| } |
| MIRP |
