test/rotate.voo

   1 #### Test rotate actions
   2
   3 section data
   4
   5 align
   6 format_rol_14_3:
   7 string "rol 14 3: %d\n\x00"
   8
   9 align
  10 format_ror_x_4:
  11 string "ror x 4: %d\n\x00"
  12
  13 align
  14 format_rol_x_y:
  15 string "rol x y: %d\n\x00"
  16
  17 align
  18 format_ror_x_y:
  19 string "ror x y: %d\n\x00"
  20
  21 align
  22 format_rol_m11_4:
  23 string "rol -11 4: %d\n\x00"
  24
  25
  26
  27
  28 section functions
  29 import printf
  30 export main
  31
  32 align
  33 main:
  34 function argc argv
  35     let x rol 14 3
  36     call printf format_rol_14_3 x
  37
  38     set x ror x 4
  39     call printf format_ror_x_4 x
  40
  41     let y 4
  42     set x rol x y
  43     call printf format_rol_x_y x
  44
  45     set y 3
  46     set x ror x y
  47     call printf format_ror_x_y x
  48
  49     set x rol -11 4
  50     call printf format_rol_m11_4 x
  51
  52     set x ror x 4
  53     call printf format_ror_x_4 x
  54
  55     return 0
  56 end function