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