sim/testsuite/frv/cmcpxrs.cgs

   1 # frv testcase for cmcpxrs $GRi,$GRj,$ACCk,$CCi,$cond
   2 # mach: all
   3
   4         .include "testutils.inc"
   5
   6         start
   7
   8         .global cmcpxrs
   9 cmcpxrs:
  10         set_spr_immed   0x1b1b,cccr
  11
  12         ; Positive operands
  13         set_fr_iimmed   2,4,fr7         ; multiply small numbers
  14         set_fr_iimmed   3,5,fr8
  15         cmcpxrs         fr7,fr8,acc0,cc0,1
  16         test_accg_immed         0xff,accg0
  17         test_acc_immed  -14,acc0
  18
  19         set_fr_iimmed   3,1,fr7         ; multiply by 0
  20         set_fr_iimmed   2,0,fr8
  21         cmcpxrs         fr7,fr8,acc0,cc0,1
  22         test_accg_immed         0,accg0
  23         test_acc_immed  6,acc0
  24
  25         set_fr_iimmed   2,1,fr7         ; multiply by 1
  26         set_fr_iimmed   1,1,fr8
  27         cmcpxrs         fr7,fr8,acc0,cc0,1
  28         test_accg_immed         0,accg0
  29         test_acc_immed  1,acc0
  30
  31         set_fr_iimmed   0x3fff,2,fr7    ; 15 bit result
  32         set_fr_iimmed   2,0x0007,fr8
  33         cmcpxrs         fr7,fr8,acc0,cc0,1
  34         test_accg_immed         0,accg0
  35         test_acc_limmed 0,0x7ff0,acc0
  36
  37         set_fr_iimmed   0x4000,2,fr7    ; 16 bit result
  38         set_fr_iimmed   2,0x2000,fr8
  39         cmcpxrs         fr7,fr8,acc0,cc0,1
  40         test_accg_immed         0,accg0
  41         test_acc_limmed 0x0000,0x4000,acc0
  42
  43         set_fr_iimmed   0x7fff,0x0000,fr7       ; max positive result
  44         set_fr_iimmed   0x7fff,0x7fff,fr8
  45         cmcpxrs         fr7,fr8,acc0,cc0,1
  46         test_accg_immed         0,accg0
  47         test_acc_limmed 0x3fff,0x0001,acc0
  48
  49         ; Mixed operands
  50         set_fr_iimmed   2,0xfffd,fr7            ; multiply small numbers
  51         set_fr_iimmed   0xfffd,1,fr8
  52         cmcpxrs         fr7,fr8,acc0,cc0,1
  53         test_accg_immed         0xff,accg0
  54         test_acc_immed  -3,acc0
  55
  56         set_fr_iimmed   0xfffe,2,fr7            ; multiply by 1
  57         set_fr_iimmed   1,0xfffe,fr8
  58         cmcpxrs         fr7,fr8,acc0,cc4,1
  59         test_accg_immed         0,accg0
  60         test_acc_immed  2,acc0
  61
  62         set_fr_iimmed   0xfffe,0,fr7            ; multiply by 0
  63         set_fr_iimmed   1,0xfffe,fr8
  64         cmcpxrs         fr7,fr8,acc0,cc4,1
  65         test_accg_immed         0xff,accg0
  66         test_acc_immed  -2,acc0
  67
  68         set_fr_iimmed   0x2001,0xfffe,fr7       ; 15 bit result
  69         set_fr_iimmed   0xfffe,0xfff9,fr8
  70         cmcpxrs         fr7,fr8,acc0,cc4,1
  71         test_accg_immed         0xff,accg0
  72         test_acc_limmed 0xffff,0xbff0,acc0
  73
  74         set_fr_iimmed   0x4000,0xfffe,fr7       ; 16 bit result
  75         set_fr_iimmed   0xfffe,0x0003,fr8
  76         cmcpxrs         fr7,fr8,acc0,cc4,1
  77         test_accg_immed         0xff,accg0
  78         test_acc_limmed 0xffff,0x8006,acc0
  79
  80         set_fr_iimmed   0x7fff,0x8000,fr7       ; max negative result
  81         set_fr_iimmed   0x8000,0x8000,fr8
  82         cmcpxrs         fr7,fr8,acc0,cc4,1
  83         test_accg_immed         0xff,accg0
  84         test_acc_limmed 0x8000,0x8000,acc0
  85
  86         set_fr_iimmed   0x8000,0x7fff,fr7       ; max positive result
  87         set_fr_iimmed   0x8000,0x8000,fr8
  88         cmcpxrs         fr7,fr8,acc0,cc4,1
  89         test_accg_immed         0,accg0
  90         test_acc_limmed 0x7fff,0x8000,acc0
  91
  92         ; Negative operands
  93         set_fr_iimmed   0xfffe,0xfffc,fr7               ; multiply small numbers
  94         set_fr_iimmed   0xfffd,0xfffb,fr8
  95         cmcpxrs         fr7,fr8,acc0,cc4,1
  96         test_accg_immed         0xff,accg0
  97         test_acc_immed  -14,acc0
  98
  99         set_fr_iimmed   0xffff,0xffff,fr7               ; multiply by -1
 100         set_fr_iimmed   0xfffe,0xffff,fr8
 101         cmcpxrs         fr7,fr8,acc0,cc4,1
 102         test_accg_immed         0,accg0
 103         test_acc_immed  1,acc0
 104
 105         set_fr_iimmed   0x7fff,0x0000,fr7       ; almost max positive result
 106         set_fr_iimmed   0x7fff,0x8001,fr8
 107         cmcpxrs         fr7,fr8,acc0,cc0,1
 108         test_accg_immed         0,accg0
 109         test_acc_immed  0x3fff0001,acc0
 110
 111         set_fr_iimmed   0x8000,0x0000,fr7       ; max positive result
 112         set_fr_iimmed   0x8000,0x8000,fr8
 113         cmcpxrs         fr7,fr8,acc0,cc4,1
 114         test_accg_immed         0,accg0
 115         test_acc_immed  0x40000000,acc0
 116
 117         set_fr_iimmed   2,4,fr7         ; multiply small numbers
 118         set_fr_iimmed   3,5,fr8
 119         cmcpxrs         fr7,fr8,acc0,cc1,0
 120         test_accg_immed         0xff,accg0
 121         test_acc_immed  -14,acc0
 122
 123         set_fr_iimmed   3,1,fr7         ; multiply by 0
 124         set_fr_iimmed   2,0,fr8
 125         cmcpxrs         fr7,fr8,acc0,cc1,0
 126         test_accg_immed         0,accg0
 127         test_acc_immed  6,acc0
 128
 129         set_fr_iimmed   2,1,fr7         ; multiply by 1
 130         set_fr_iimmed   1,1,fr8
 131         cmcpxrs         fr7,fr8,acc0,cc1,0
 132         test_accg_immed         0,accg0
 133         test_acc_immed  1,acc0
 134
 135         set_fr_iimmed   0x3fff,2,fr7    ; 15 bit result
 136         set_fr_iimmed   2,0x0007,fr8
 137         cmcpxrs         fr7,fr8,acc0,cc1,0
 138         test_accg_immed         0,accg0
 139         test_acc_limmed 0,0x7ff0,acc0
 140
 141         set_fr_iimmed   0x4000,2,fr7    ; 16 bit result
 142         set_fr_iimmed   2,0x2000,fr8
 143         cmcpxrs         fr7,fr8,acc0,cc1,0
 144         test_accg_immed         0,accg0
 145         test_acc_limmed 0x0000,0x4000,acc0
 146
 147         set_fr_iimmed   0x7fff,0x0000,fr7       ; max positive result
 148         set_fr_iimmed   0x7fff,0x7fff,fr8
 149         cmcpxrs         fr7,fr8,acc0,cc1,0
 150         test_accg_immed         0,accg0
 151         test_acc_limmed 0x3fff,0x0001,acc0
 152
 153         ; Mixed operands
 154         set_fr_iimmed   2,0xfffd,fr7            ; multiply small numbers
 155         set_fr_iimmed   0xfffd,1,fr8
 156         cmcpxrs         fr7,fr8,acc0,cc1,0
 157         test_accg_immed         0xff,accg0
 158         test_acc_immed  -3,acc0
 159
 160         set_fr_iimmed   0xfffe,2,fr7            ; multiply by 1
 161         set_fr_iimmed   1,0xfffe,fr8
 162         cmcpxrs         fr7,fr8,acc0,cc5,0
 163         test_accg_immed         0,accg0
 164         test_acc_immed  2,acc0
 165
 166         set_fr_iimmed   0xfffe,0,fr7            ; multiply by 0
 167         set_fr_iimmed   1,0xfffe,fr8
 168         cmcpxrs         fr7,fr8,acc0,cc5,0
 169         test_accg_immed         0xff,accg0
 170         test_acc_immed  -2,acc0
 171
 172         set_fr_iimmed   0x2001,0xfffe,fr7       ; 15 bit result
 173         set_fr_iimmed   0xfffe,0xfff9,fr8
 174         cmcpxrs         fr7,fr8,acc0,cc5,0
 175         test_accg_immed         0xff,accg0
 176         test_acc_limmed 0xffff,0xbff0,acc0
 177
 178         set_fr_iimmed   0x4000,0xfffe,fr7       ; 16 bit result
 179         set_fr_iimmed   0xfffe,0x0003,fr8
 180         cmcpxrs         fr7,fr8,acc0,cc5,0
 181         test_accg_immed         0xff,accg0
 182         test_acc_limmed 0xffff,0x8006,acc0
 183
 184         set_fr_iimmed   0x7fff,0x8000,fr7       ; max negative result
 185         set_fr_iimmed   0x8000,0x8000,fr8
 186         cmcpxrs         fr7,fr8,acc0,cc5,0
 187         test_accg_immed         0xff,accg0
 188         test_acc_limmed 0x8000,0x8000,acc0
 189
 190         set_fr_iimmed   0x8000,0x7fff,fr7       ; max positive result
 191         set_fr_iimmed   0x8000,0x8000,fr8
 192         cmcpxrs         fr7,fr8,acc0,cc5,0
 193         test_accg_immed         0,accg0
 194         test_acc_limmed 0x7fff,0x8000,acc0
 195
 196         ; Negative operands
 197         set_fr_iimmed   0xfffe,0xfffc,fr7               ; multiply small numbers
 198         set_fr_iimmed   0xfffd,0xfffb,fr8
 199         cmcpxrs         fr7,fr8,acc0,cc5,0
 200         test_accg_immed         0xff,accg0
 201         test_acc_immed  -14,acc0
 202
 203         set_fr_iimmed   0xffff,0xffff,fr7               ; multiply by -1
 204         set_fr_iimmed   0xfffe,0xffff,fr8
 205         cmcpxrs         fr7,fr8,acc0,cc5,0
 206         test_accg_immed         0,accg0
 207         test_acc_immed  1,acc0
 208
 209         set_fr_iimmed   0x7fff,0x0000,fr7       ; almost max positive result
 210         set_fr_iimmed   0x7fff,0x8001,fr8
 211         cmcpxrs         fr7,fr8,acc0,cc5,0
 212         test_accg_immed         0,accg0
 213         test_acc_immed  0x3fff0001,acc0
 214
 215         set_fr_iimmed   0x8000,0x0000,fr7       ; max positive result
 216         set_fr_iimmed   0x8000,0x8000,fr8
 217         cmcpxrs         fr7,fr8,acc0,cc5,0
 218         test_accg_immed         0,accg0
 219         test_acc_immed  0x40000000,acc0
 220
 221         ; Positive operands
 222         set_accg_immed  0x00000011,accg0
 223         set_acc_immed   0x11111111,acc0
 224         set_fr_iimmed   2,4,fr7         ; multiply small numbers
 225         set_fr_iimmed   3,5,fr8
 226         cmcpxrs         fr7,fr8,acc0,cc0,0
 227         test_accg_immed         0x00000011,accg0
 228         test_acc_immed  0x11111111,acc0
 229
 230         set_fr_iimmed   3,1,fr7         ; multiply by 0
 231         set_fr_iimmed   2,0,fr8
 232         cmcpxrs         fr7,fr8,acc0,cc0,0
 233         test_accg_immed         0x00000011,accg0
 234         test_acc_immed  0x11111111,acc0
 235
 236         set_fr_iimmed   2,1,fr7         ; multiply by 1
 237         set_fr_iimmed   1,1,fr8
 238         cmcpxrs         fr7,fr8,acc0,cc0,0
 239         test_accg_immed         0x00000011,accg0
 240         test_acc_immed  0x11111111,acc0
 241
 242         set_fr_iimmed   0x3fff,2,fr7    ; 15 bit result
 243         set_fr_iimmed   2,0x0007,fr8
 244         cmcpxrs         fr7,fr8,acc0,cc0,0
 245         test_accg_immed         0x00000011,accg0
 246         test_acc_immed  0x11111111,acc0
 247
 248         set_fr_iimmed   0x4000,2,fr7    ; 16 bit result
 249         set_fr_iimmed   2,0x2000,fr8
 250         cmcpxrs         fr7,fr8,acc0,cc0,0
 251         test_accg_immed         0x00000011,accg0
 252         test_acc_immed  0x11111111,acc0
 253
 254         set_fr_iimmed   0x7fff,0x0000,fr7       ; max positive result
 255         set_fr_iimmed   0x7fff,0x7fff,fr8
 256         cmcpxrs         fr7,fr8,acc0,cc0,0
 257         test_accg_immed         0x00000011,accg0
 258         test_acc_immed  0x11111111,acc0
 259
 260         ; Mixed operands
 261         set_fr_iimmed   2,0xfffd,fr7            ; multiply small numbers
 262         set_fr_iimmed   0xfffd,1,fr8
 263         cmcpxrs         fr7,fr8,acc0,cc0,0
 264         test_accg_immed         0x00000011,accg0
 265         test_acc_immed  0x11111111,acc0
 266
 267         set_fr_iimmed   0xfffe,2,fr7            ; multiply by 1
 268         set_fr_iimmed   1,0xfffe,fr8
 269         cmcpxrs         fr7,fr8,acc0,cc4,0
 270         test_accg_immed         0x00000011,accg0
 271         test_acc_immed  0x11111111,acc0
 272
 273         set_fr_iimmed   0xfffe,0,fr7            ; multiply by 0
 274         set_fr_iimmed   1,0xfffe,fr8
 275         cmcpxrs         fr7,fr8,acc0,cc4,0
 276         test_accg_immed         0x00000011,accg0
 277         test_acc_immed  0x11111111,acc0
 278
 279         set_fr_iimmed   0x2001,0xfffe,fr7       ; 15 bit result
 280         set_fr_iimmed   0xfffe,0xfff9,fr8
 281         cmcpxrs         fr7,fr8,acc0,cc4,0
 282         test_accg_immed         0x00000011,accg0
 283         test_acc_immed  0x11111111,acc0
 284
 285         set_fr_iimmed   0x4000,0xfffe,fr7       ; 16 bit result
 286         set_fr_iimmed   0xfffe,0x0003,fr8
 287         cmcpxrs         fr7,fr8,acc0,cc4,0
 288         test_accg_immed         0x00000011,accg0
 289         test_acc_immed  0x11111111,acc0
 290
 291         set_fr_iimmed   0x7fff,0x8000,fr7       ; max negative result
 292         set_fr_iimmed   0x8000,0x8000,fr8
 293         cmcpxrs         fr7,fr8,acc0,cc4,0
 294         test_accg_immed         0x00000011,accg0
 295         test_acc_immed  0x11111111,acc0
 296
 297         set_fr_iimmed   0x8000,0x7fff,fr7       ; max positive result
 298         set_fr_iimmed   0x8000,0x8000,fr8
 299         cmcpxrs         fr7,fr8,acc0,cc4,0
 300         test_accg_immed         0x00000011,accg0
 301         test_acc_immed  0x11111111,acc0
 302
 303         ; Negative operands
 304         set_fr_iimmed   0xfffe,0xfffc,fr7               ; multiply small numbers
 305         set_fr_iimmed   0xfffd,0xfffb,fr8
 306         cmcpxrs         fr7,fr8,acc0,cc4,0
 307         test_accg_immed         0x00000011,accg0
 308         test_acc_immed  0x11111111,acc0
 309
 310         set_fr_iimmed   0xffff,0xffff,fr7               ; multiply by -1
 311         set_fr_iimmed   0xfffe,0xffff,fr8
 312         cmcpxrs         fr7,fr8,acc0,cc4,0
 313         test_accg_immed         0x00000011,accg0
 314         test_acc_immed  0x11111111,acc0
 315
 316         set_fr_iimmed   0x7fff,0x0000,fr7       ; almost max positive result
 317         set_fr_iimmed   0x7fff,0x8001,fr8
 318         cmcpxrs         fr7,fr8,acc0,cc4,0
 319         test_accg_immed         0x00000011,accg0
 320         test_acc_immed  0x11111111,acc0
 321
 322         set_fr_iimmed   0x8000,0x0000,fr7       ; max positive result
 323         set_fr_iimmed   0x8000,0x8000,fr8
 324         cmcpxrs         fr7,fr8,acc0,cc4,0
 325         test_accg_immed         0x00000011,accg0
 326         test_acc_immed  0x11111111,acc0
 327
 328         ; Positive operands
 329         set_accg_immed  0x00000011,accg0
 330         set_acc_immed   0x11111111,acc0
 331         set_fr_iimmed   2,4,fr7         ; multiply small numbers
 332         set_fr_iimmed   3,5,fr8
 333         cmcpxrs         fr7,fr8,acc0,cc1,1
 334         test_accg_immed         0x00000011,accg0
 335         test_acc_immed  0x11111111,acc0
 336
 337         set_fr_iimmed   3,1,fr7         ; multiply by 0
 338         set_fr_iimmed   2,0,fr8
 339         cmcpxrs         fr7,fr8,acc0,cc1,1
 340         test_accg_immed         0x00000011,accg0
 341         test_acc_immed  0x11111111,acc0
 342
 343         set_fr_iimmed   2,1,fr7         ; multiply by 1
 344         set_fr_iimmed   1,1,fr8
 345         cmcpxrs         fr7,fr8,acc0,cc1,1
 346         test_accg_immed         0x00000011,accg0
 347         test_acc_immed  0x11111111,acc0
 348
 349         set_fr_iimmed   0x3fff,2,fr7    ; 15 bit result
 350         set_fr_iimmed   2,0x0007,fr8
 351         cmcpxrs         fr7,fr8,acc0,cc1,1
 352         test_accg_immed         0x00000011,accg0
 353         test_acc_immed  0x11111111,acc0
 354
 355         set_fr_iimmed   0x4000,2,fr7    ; 16 bit result
 356         set_fr_iimmed   2,0x2000,fr8
 357         cmcpxrs         fr7,fr8,acc0,cc1,1
 358         test_accg_immed         0x00000011,accg0
 359         test_acc_immed  0x11111111,acc0
 360
 361         set_fr_iimmed   0x7fff,0x0000,fr7       ; max positive result
 362         set_fr_iimmed   0x7fff,0x7fff,fr8
 363         cmcpxrs         fr7,fr8,acc0,cc1,1
 364         test_accg_immed         0x00000011,accg0
 365         test_acc_immed  0x11111111,acc0
 366
 367         ; Mixed operands
 368         set_fr_iimmed   2,0xfffd,fr7            ; multiply small numbers
 369         set_fr_iimmed   0xfffd,1,fr8
 370         cmcpxrs         fr7,fr8,acc0,cc1,1
 371         test_accg_immed         0x00000011,accg0
 372         test_acc_immed  0x11111111,acc0
 373
 374         set_fr_iimmed   0xfffe,2,fr7            ; multiply by 1
 375         set_fr_iimmed   1,0xfffe,fr8
 376         cmcpxrs         fr7,fr8,acc0,cc5,1
 377         test_accg_immed         0x00000011,accg0
 378         test_acc_immed  0x11111111,acc0
 379
 380         set_fr_iimmed   0xfffe,0,fr7            ; multiply by 0
 381         set_fr_iimmed   1,0xfffe,fr8
 382         cmcpxrs         fr7,fr8,acc0,cc5,1
 383         test_accg_immed         0x00000011,accg0
 384         test_acc_immed  0x11111111,acc0
 385
 386         set_fr_iimmed   0x2001,0xfffe,fr7       ; 15 bit result
 387         set_fr_iimmed   0xfffe,0xfff9,fr8
 388         cmcpxrs         fr7,fr8,acc0,cc5,1
 389         test_accg_immed         0x00000011,accg0
 390         test_acc_immed  0x11111111,acc0
 391
 392         set_fr_iimmed   0x4000,0xfffe,fr7       ; 16 bit result
 393         set_fr_iimmed   0xfffe,0x0003,fr8
 394         cmcpxrs         fr7,fr8,acc0,cc5,1
 395         test_accg_immed         0x00000011,accg0
 396         test_acc_immed  0x11111111,acc0
 397
 398         set_fr_iimmed   0x7fff,0x8000,fr7       ; max negative result
 399         set_fr_iimmed   0x8000,0x8000,fr8
 400         cmcpxrs         fr7,fr8,acc0,cc5,1
 401         test_accg_immed         0x00000011,accg0
 402         test_acc_immed  0x11111111,acc0
 403
 404         set_fr_iimmed   0x8000,0x7fff,fr7       ; max positive result
 405         set_fr_iimmed   0x8000,0x8000,fr8
 406         cmcpxrs         fr7,fr8,acc0,cc5,1
 407         test_accg_immed         0x00000011,accg0
 408         test_acc_immed  0x11111111,acc0
 409
 410         ; Negative operands
 411         set_fr_iimmed   0xfffe,0xfffc,fr7               ; multiply small numbers
 412         set_fr_iimmed   0xfffd,0xfffb,fr8
 413         cmcpxrs         fr7,fr8,acc0,cc5,1
 414         test_accg_immed         0x00000011,accg0
 415         test_acc_immed  0x11111111,acc0
 416
 417         set_fr_iimmed   0xffff,0xffff,fr7               ; multiply by -1
 418         set_fr_iimmed   0xfffe,0xffff,fr8
 419         cmcpxrs         fr7,fr8,acc0,cc5,1
 420         test_accg_immed         0x00000011,accg0
 421         test_acc_immed  0x11111111,acc0
 422
 423         set_fr_iimmed   0x7fff,0x0000,fr7       ; almost max positive result
 424         set_fr_iimmed   0x7fff,0x8001,fr8
 425         cmcpxrs         fr7,fr8,acc0,cc5,1
 426         test_accg_immed         0x00000011,accg0
 427         test_acc_immed  0x11111111,acc0
 428
 429         set_fr_iimmed   0x8000,0x0000,fr7       ; max positive result
 430         set_fr_iimmed   0x8000,0x8000,fr8
 431         cmcpxrs         fr7,fr8,acc0,cc5,1
 432         test_accg_immed         0x00000011,accg0
 433         test_acc_immed  0x11111111,acc0
 434
 435         ; Positive operands
 436         set_accg_immed  0x00000011,accg0
 437         set_acc_immed   0x11111111,acc0
 438         set_fr_iimmed   2,4,fr7         ; multiply small numbers
 439         set_fr_iimmed   3,5,fr8
 440         cmcpxrs         fr7,fr8,acc0,cc2,1
 441         test_accg_immed         0x00000011,accg0
 442         test_acc_immed  0x11111111,acc0
 443
 444         set_fr_iimmed   3,1,fr7         ; multiply by 0
 445         set_fr_iimmed   2,0,fr8
 446         cmcpxrs         fr7,fr8,acc0,cc2,1
 447         test_accg_immed         0x00000011,accg0
 448         test_acc_immed  0x11111111,acc0
 449
 450         set_fr_iimmed   2,1,fr7         ; multiply by 1
 451         set_fr_iimmed   1,1,fr8
 452         cmcpxrs         fr7,fr8,acc0,cc2,1
 453         test_accg_immed         0x00000011,accg0
 454         test_acc_immed  0x11111111,acc0
 455
 456         set_fr_iimmed   0x3fff,2,fr7    ; 15 bit result
 457         set_fr_iimmed   2,0x0007,fr8
 458         cmcpxrs         fr7,fr8,acc0,cc2,1
 459         test_accg_immed         0x00000011,accg0
 460         test_acc_immed  0x11111111,acc0
 461
 462         set_fr_iimmed   0x4000,2,fr7    ; 16 bit result
 463         set_fr_iimmed   2,0x2000,fr8
 464         cmcpxrs         fr7,fr8,acc0,cc2,1
 465         test_accg_immed         0x00000011,accg0
 466         test_acc_immed  0x11111111,acc0
 467
 468         set_fr_iimmed   0x7fff,0x0000,fr7       ; max positive result
 469         set_fr_iimmed   0x7fff,0x7fff,fr8
 470         cmcpxrs         fr7,fr8,acc0,cc2,1
 471         test_accg_immed         0x00000011,accg0
 472         test_acc_immed  0x11111111,acc0
 473
 474         ; Mixed operands
 475         set_fr_iimmed   2,0xfffd,fr7            ; multiply small numbers
 476         set_fr_iimmed   0xfffd,1,fr8
 477         cmcpxrs         fr7,fr8,acc0,cc2,1
 478         test_accg_immed         0x00000011,accg0
 479         test_acc_immed  0x11111111,acc0
 480
 481         set_fr_iimmed   0xfffe,2,fr7            ; multiply by 1
 482         set_fr_iimmed   1,0xfffe,fr8
 483         cmcpxrs         fr7,fr8,acc0,cc6,1
 484         test_accg_immed         0x00000011,accg0
 485         test_acc_immed  0x11111111,acc0
 486
 487         set_fr_iimmed   0xfffe,0,fr7            ; multiply by 0
 488         set_fr_iimmed   1,0xfffe,fr8
 489         cmcpxrs         fr7,fr8,acc0,cc6,1
 490         test_accg_immed         0x00000011,accg0
 491         test_acc_immed  0x11111111,acc0
 492
 493         set_fr_iimmed   0x2001,0xfffe,fr7       ; 15 bit result
 494         set_fr_iimmed   0xfffe,0xfff9,fr8
 495         cmcpxrs         fr7,fr8,acc0,cc6,1
 496         test_accg_immed         0x00000011,accg0
 497         test_acc_immed  0x11111111,acc0
 498
 499         set_fr_iimmed   0x4000,0xfffe,fr7       ; 16 bit result
 500         set_fr_iimmed   0xfffe,0x0003,fr8
 501         cmcpxrs         fr7,fr8,acc0,cc6,1
 502         test_accg_immed         0x00000011,accg0
 503         test_acc_immed  0x11111111,acc0
 504
 505         set_fr_iimmed   0x7fff,0x8000,fr7       ; max negative result
 506         set_fr_iimmed   0x8000,0x8000,fr8
 507         cmcpxrs         fr7,fr8,acc0,cc6,1
 508         test_accg_immed         0x00000011,accg0
 509         test_acc_immed  0x11111111,acc0
 510
 511         set_fr_iimmed   0x8000,0x7fff,fr7       ; max positive result
 512         set_fr_iimmed   0x8000,0x8000,fr8
 513         cmcpxrs         fr7,fr8,acc0,cc6,1
 514         test_accg_immed         0x00000011,accg0
 515         test_acc_immed  0x11111111,acc0
 516
 517         ; Negative operands
 518         set_fr_iimmed   0xfffe,0xfffc,fr7               ; multiply small numbers
 519         set_fr_iimmed   0xfffd,0xfffb,fr8
 520         cmcpxrs         fr7,fr8,acc0,cc6,1
 521         test_accg_immed         0x00000011,accg0
 522         test_acc_immed  0x11111111,acc0
 523
 524         set_fr_iimmed   0xffff,0xffff,fr7               ; multiply by -1
 525         set_fr_iimmed   0xfffe,0xffff,fr8
 526         cmcpxrs         fr7,fr8,acc0,cc6,1
 527         test_accg_immed         0x00000011,accg0
 528         test_acc_immed  0x11111111,acc0
 529
 530         set_fr_iimmed   0x7fff,0x0000,fr7       ; almost max positive result
 531         set_fr_iimmed   0x7fff,0x8001,fr8
 532         cmcpxrs         fr7,fr8,acc0,cc6,1
 533         test_accg_immed         0x00000011,accg0
 534         test_acc_immed  0x11111111,acc0
 535
 536         set_fr_iimmed   0x8000,0x0000,fr7       ; max positive result
 537         set_fr_iimmed   0x8000,0x8000,fr8
 538         cmcpxrs         fr7,fr8,acc0,cc6,1
 539         test_accg_immed         0x00000011,accg0
 540         test_acc_immed  0x11111111,acc0
 541 ;
 542         ; Positive operands
 543         set_accg_immed  0x00000011,accg0
 544         set_acc_immed   0x11111111,acc0
 545         set_fr_iimmed   2,4,fr7         ; multiply small numbers
 546         set_fr_iimmed   3,5,fr8
 547         cmcpxrs         fr7,fr8,acc0,cc3,1
 548         test_accg_immed         0x00000011,accg0
 549         test_acc_immed  0x11111111,acc0
 550
 551         set_fr_iimmed   3,1,fr7         ; multiply by 0
 552         set_fr_iimmed   2,0,fr8
 553         cmcpxrs         fr7,fr8,acc0,cc3,1
 554         test_accg_immed         0x00000011,accg0
 555         test_acc_immed  0x11111111,acc0
 556
 557         set_fr_iimmed   2,1,fr7         ; multiply by 1
 558         set_fr_iimmed   1,1,fr8
 559         cmcpxrs         fr7,fr8,acc0,cc3,1
 560         test_accg_immed         0x00000011,accg0
 561         test_acc_immed  0x11111111,acc0
 562
 563         set_fr_iimmed   0x3fff,2,fr7    ; 15 bit result
 564         set_fr_iimmed   2,0x0007,fr8
 565         cmcpxrs         fr7,fr8,acc0,cc3,1
 566         test_accg_immed         0x00000011,accg0
 567         test_acc_immed  0x11111111,acc0
 568
 569         set_fr_iimmed   0x4000,2,fr7    ; 16 bit result
 570         set_fr_iimmed   2,0x2000,fr8
 571         cmcpxrs         fr7,fr8,acc0,cc3,1
 572         test_accg_immed         0x00000011,accg0
 573         test_acc_immed  0x11111111,acc0
 574
 575         set_fr_iimmed   0x7fff,0x0000,fr7       ; max positive result
 576         set_fr_iimmed   0x7fff,0x7fff,fr8
 577         cmcpxrs         fr7,fr8,acc0,cc3,1
 578         test_accg_immed         0x00000011,accg0
 579         test_acc_immed  0x11111111,acc0
 580
 581         ; Mixed operands
 582         set_fr_iimmed   2,0xfffd,fr7            ; multiply small numbers
 583         set_fr_iimmed   0xfffd,1,fr8
 584         cmcpxrs         fr7,fr8,acc0,cc3,1
 585         test_accg_immed         0x00000011,accg0
 586         test_acc_immed  0x11111111,acc0
 587
 588         set_fr_iimmed   0xfffe,2,fr7            ; multiply by 1
 589         set_fr_iimmed   1,0xfffe,fr8
 590         cmcpxrs         fr7,fr8,acc0,cc7,1
 591         test_accg_immed         0x00000011,accg0
 592         test_acc_immed  0x11111111,acc0
 593
 594         set_fr_iimmed   0xfffe,0,fr7            ; multiply by 0
 595         set_fr_iimmed   1,0xfffe,fr8
 596         cmcpxrs         fr7,fr8,acc0,cc7,1
 597         test_accg_immed         0x00000011,accg0
 598         test_acc_immed  0x11111111,acc0
 599
 600         set_fr_iimmed   0x2001,0xfffe,fr7       ; 15 bit result
 601         set_fr_iimmed   0xfffe,0xfff9,fr8
 602         cmcpxrs         fr7,fr8,acc0,cc7,1
 603         test_accg_immed         0x00000011,accg0
 604         test_acc_immed  0x11111111,acc0
 605
 606         set_fr_iimmed   0x4000,0xfffe,fr7       ; 16 bit result
 607         set_fr_iimmed   0xfffe,0x0003,fr8
 608         cmcpxrs         fr7,fr8,acc0,cc7,1
 609         test_accg_immed         0x00000011,accg0
 610         test_acc_immed  0x11111111,acc0
 611
 612         set_fr_iimmed   0x7fff,0x8000,fr7       ; max negative result
 613         set_fr_iimmed   0x8000,0x8000,fr8
 614         cmcpxrs         fr7,fr8,acc0,cc7,1
 615         test_accg_immed         0x00000011,accg0
 616         test_acc_immed  0x11111111,acc0
 617
 618         set_fr_iimmed   0x8000,0x7fff,fr7       ; max positive result
 619         set_fr_iimmed   0x8000,0x8000,fr8
 620         cmcpxrs         fr7,fr8,acc0,cc7,1
 621         test_accg_immed         0x00000011,accg0
 622         test_acc_immed  0x11111111,acc0
 623
 624         ; Negative operands
 625         set_fr_iimmed   0xfffe,0xfffc,fr7               ; multiply small numbers
 626         set_fr_iimmed   0xfffd,0xfffb,fr8
 627         cmcpxrs         fr7,fr8,acc0,cc7,1
 628         test_accg_immed         0x00000011,accg0
 629         test_acc_immed  0x11111111,acc0
 630
 631         set_fr_iimmed   0xffff,0xffff,fr7               ; multiply by -1
 632         set_fr_iimmed   0xfffe,0xffff,fr8
 633         cmcpxrs         fr7,fr8,acc0,cc7,1
 634         test_accg_immed         0x00000011,accg0
 635         test_acc_immed  0x11111111,acc0
 636
 637         set_fr_iimmed   0x7fff,0x0000,fr7       ; almost max positive result
 638         set_fr_iimmed   0x7fff,0x8001,fr8
 639         cmcpxrs         fr7,fr8,acc0,cc7,1
 640         test_accg_immed         0x00000011,accg0
 641         test_acc_immed  0x11111111,acc0
 642
 643         set_fr_iimmed   0x8000,0x0000,fr7       ; max positive result
 644         set_fr_iimmed   0x8000,0x8000,fr8
 645         cmcpxrs         fr7,fr8,acc0,cc7,1
 646         test_accg_immed         0x00000011,accg0
 647         test_acc_immed  0x11111111,acc0
 648
 649         pass