none/tests/s390x/srnmt.c

   1 #include <assert.h>
   2 #include <stdlib.h>
   3 #include <stdio.h>
   4 #include "opcodes.h"
   5
   6 #define srnmt(b,d) \
   7    ({ \
   8       __asm__ volatile ( "lghi 8," #b "\n\t" \
   9                          SRNMT(8,d) \
  10                          ::: "8"); \
  11    })
  12
  13
  14 /* Like srnmt above, except it uses r0 as a base register */
  15 #define srnmt0(d) \
  16    ({ \
  17       __asm__ volatile ( SRNMT(0,d) \
  18                          ::: "0"); \
  19    })
  20
  21 #define get_dfp_rounding_mode() \
  22    ({ \
  23       unsigned fpc; \
  24       __asm__ volatile ("stfpc  %0" : "=Q"(fpc)); \
  25       (fpc & 0x70) >> 4; \
  26    })
  27
  28
  29 int main(void)
  30 {
  31    printf("initial rounding mode = %u\n", get_dfp_rounding_mode());
  32
  33    /* Set basic rounding modes in various ways */
  34    srnmt(1,002);  // 1 + 2 = 3
  35    printf("rounding mode = %u\n", get_dfp_rounding_mode());
  36
  37    srnmt(2,000);
  38    printf("rounding mode = %u\n", get_dfp_rounding_mode());
  39
  40    srnmt(0,001);
  41    printf("rounding mode = %u\n", get_dfp_rounding_mode());
  42
  43    srnmt(0,000);
  44    printf("rounding mode = %u\n", get_dfp_rounding_mode());
  45
  46    srnmt(7,000);
  47    printf("rounding mode = %u\n", get_dfp_rounding_mode());
  48
  49    srnmt(0,006);
  50    printf("rounding mode = %u\n", get_dfp_rounding_mode());
  51
  52    srnmt0(005);
  53    printf("rounding mode = %u\n", get_dfp_rounding_mode());
  54
  55    srnmt0(004);
  56    printf("rounding mode = %u\n", get_dfp_rounding_mode());
  57
  58    return 0;
  59 }