Home | History | Annotate | Download | only in s390x
      1 #include <stdio.h>
      2 #include <stdint.h>
      3 #include <string.h>
      4 #include <assert.h>
      5 
      6 /* Register contents after executing an TROO insn */
      7 typedef struct {
      8    uint64_t srcaddr;
      9    uint64_t len;
     10    uint64_t desaddr;
     11    uint64_t tabaddr;
     12    uint8_t testbyte;
     13    uint64_t cc;
     14 } troo_regs;
     15 
     16 uint8_t tran_table[20] = {
     17    0xaa,0xbb,0xcc,0xdd,0xff,0xda,0xbc,0xab,0xca,0xea,0xcc,0xee
     18 };
     19 
     20 uint8_t src[20] = {
     21    0x04,0x01,0x03,0x07,0x08,0x06,0x02,0x05,0x09
     22 };
     23 
     24 uint8_t des[20];
     25 
     26 troo_regs tr(uint8_t *addr, uint8_t *codepage, uint8_t *dest, uint64_t len,
     27              uint8_t test)
     28 {
     29    troo_regs regs;
     30    register uint64_t test_byte asm("0") = test;
     31    register uint64_t length asm("3") = len;
     32    register uint64_t srcaddr asm("4") = (uint64_t)addr;
     33    register uint64_t codepage2 asm("1") = (uint64_t)codepage;
     34    register uint64_t desaddr asm("2") = (uint64_t)dest;
     35    register uint64_t cc asm("5");
     36 
     37    cc = 2;  /* cc result will never be 2 */
     38    asm volatile(
     39                 " troo %1,%2\n"
     40                 " ipm   %0\n"
     41                 " srl   %0,28\n"
     42                 : "=d"(cc),"+&d"(desaddr)
     43                 : "d" (srcaddr),"d"(test_byte),"d" (codepage2),"d"(length)
     44                 : "memory" );
     45 
     46    regs.srcaddr = srcaddr;
     47    regs.len = length;
     48    regs.desaddr = desaddr;
     49    regs.tabaddr = codepage2;
     50    regs.testbyte = test_byte;
     51    regs.cc = cc;
     52    return regs;
     53 }
     54 
     55 int run_test(void *srcaddr, void *tableaddr, void *desaddr, uint64_t len,
     56              uint8_t testbyte)
     57 {
     58    troo_regs regs;
     59    int i;
     60 
     61    assert(len <= sizeof src);
     62 
     63    if ((testbyte & 0xff) != testbyte)
     64       printf("testbyte should be 1 byte only\n");
     65 
     66    regs = tr(srcaddr, tableaddr, desaddr, len, testbyte);
     67 
     68    if ((uint64_t)tableaddr != regs.tabaddr)
     69       printf("translation table address changed\n");
     70    if ((uint64_t)srcaddr + (len - regs.len) != regs.srcaddr)
     71       printf("source address/length not updated properly\n");
     72    if ((uint64_t)desaddr + (len - regs.len) != regs.desaddr)
     73       printf("destination address/length not updated properly\n");
     74    if (regs.cc == 0  && regs.len != 0)
     75       printf("length is not zero but cc is zero\n");
     76    printf("%u bytes translated\n", (unsigned)(len - regs.len));
     77    printf("the translated values are");
     78    for (i = 0; i < len - regs.len; i++) {
     79       printf(" %x", des[i]);
     80    }
     81    printf("\n");
     82 
     83    return regs.cc;
     84 }
     85 
     86 int main()
     87 {
     88    int cc;
     89 
     90    assert(sizeof des >= sizeof src);
     91 
     92    /* Test 1 : len == 0 */
     93    cc = run_test(NULL, NULL, NULL, 0, 0x0);
     94    if (cc != 0)
     95       printf("cc not updated properly:%d", cc);
     96 
     97    cc = run_test(&src, &tran_table, &des, 0, 0xca);
     98    if (cc != 0)
     99       printf("cc not updated properly:%d",cc);
    100 
    101    /* Test 2 : len > 0, testbyte not matching */
    102    cc = run_test(&src, &tran_table, &des, 5, 0xee);
    103    if (cc != 0)
    104       printf("cc not updated properly:%d",cc);
    105 
    106    cc = run_test(&src, &tran_table, &des, 10, 0x00);
    107    if (cc != 0)
    108       printf("cc not updated properly:%d",cc);
    109 
    110    memset((char *)&des, 0, 10);
    111 
    112    /* Test 3 : len > 0, testbyte matching */
    113    cc = run_test(&src, &tran_table, &des, 5, 0xff);  /* 1st byte matches */
    114    if (cc != 1)
    115       printf("cc not updated properly:%d",cc);
    116 
    117    cc = run_test(&src, &tran_table, &des, 5, 0xbb);  /* 2nd byte matches */
    118    if (cc != 1)
    119       printf("cc not updated properly:%d",cc);
    120 
    121    cc = run_test(&src, &tran_table, &des, 10, 0xea);
    122    if (cc != 1)
    123       printf("cc not updated properly:%d",cc);
    124 
    125    return 0;
    126 }
    127