utilsrc/srcX86MAC64/Admin/gdb-7.7.1/sim/testsuite/sim/mips/mdmx-ob.s

   1 # MDMX .OB op tests.
   2 # mach:  mips64 sb1
   3 # as:           -mabi=eabi
   4 # as(mips64):   -mabi=eabi -mdmx
   5 # ld:           -N -Ttext=0x80010000
   6 # output:       *\\npass\\n
   7
   8         .include "testutils.inc"
   9         .include "utils-mdmx.inc"
  10
  11         setup
  12
  13         .set noreorder
  14
  15         .ent DIAG
  16 DIAG:
  17
  18         enable_mdmx
  19
  20
  21         ###
  22         ### Non-accumulator, non-CC-using .ob format ops.
  23         ###
  24         ### Key: v = vector
  25         ###      ev = vector of single element
  26         ###      cv = vector of constant.
  27         ###
  28
  29
  30         writemsg "add.ob (v)"
  31         ld_ob   $f8, 0x1122334455667788
  32         ld_ob   $f9, 0x66778899aabbccdd
  33         add.ob  $f10, $f8, $f9
  34         ck_ob   $f10, 0x7799bbddffffffff
  35
  36         writemsg "add.ob (ev)"
  37         ld_ob   $f8, 0x1122334455667788
  38         ld_ob   $f9, 0x66778899aabbccdd
  39         add.ob  $f10, $f8, $f9[6]
  40         ck_ob   $f10, 0x8899aabbccddeeff
  41
  42         writemsg "add.ob (cv)"
  43         ld_ob   $f8, 0x1122334455667788
  44         add.ob  $f10, $f8, 0x10
  45         ck_ob   $f10, 0x2132435465768798
  46
  47
  48         writemsg "alni.ob"
  49         ld_ob   $f8, 0x1122334455667788
  50         ld_ob   $f9, 0x66778899aabbccdd
  51         alni.ob $f10, $f8, $f9, 3
  52         ck_ob   $f10, 0x4455667788667788
  53
  54
  55         writemsg "alnv.ob"
  56         ld_ob   $f8, 0x1122334455667788
  57         ld_ob   $f9, 0x66778899aabbccdd
  58         li      $4, 5
  59         alnv.ob $f10, $f8, $f9, $4
  60         ck_ob   $f10, 0x66778866778899aa
  61
  62
  63         writemsg "and.ob (v)"
  64         ld_ob   $f8, 0x1122334455667788
  65         ld_ob   $f9, 0x66778899aabbccdd
  66         and.ob  $f10, $f8, $f9
  67         ck_ob   $f10, 0x0022000000224488
  68
  69         writemsg "and.ob (ev)"
  70         ld_ob   $f8, 0x1122334455667788
  71         ld_ob   $f9, 0x66778899aabbccdd
  72         and.ob  $f10, $f8, $f9[4]
  73         ck_ob   $f10, 0x1100110011001188
  74
  75         writemsg "and.ob (cv)"
  76         ld_ob   $f8, 0x1122334455667788
  77         and.ob  $f10, $f8, 0x1e
  78         ck_ob   $f10, 0x1002120414061608
  79
  80
  81         writemsg "max.ob (v)"
  82         ld_ob   $f8, 0x1122334455667788
  83         ld_ob   $f9, 0x66778899aabbccdd
  84         max.ob  $f10, $f8, $f9
  85         ck_ob   $f10, 0x66778899aabbccdd
  86
  87         writemsg "max.ob (ev)"
  88         ld_ob   $f8, 0x1122334455667788
  89         ld_ob   $f9, 0x66778899aabbccdd
  90         max.ob  $f10, $f8, $f9[7]
  91         ck_ob   $f10, 0x6666666666667788
  92
  93         writemsg "max.ob (cv)"
  94         ld_ob   $f8, 0x1122334455667788
  95         max.ob  $f10, $f8, 0x15
  96         ck_ob   $f10, 0x1522334455667788
  97
  98
  99         writemsg "min.ob (v)"
 100         ld_ob   $f8, 0x1122334455667788
 101         ld_ob   $f9, 0x66778899aabbccdd
 102         min.ob  $f10, $f8, $f9
 103         ck_ob   $f10, 0x1122334455667788
 104
 105         writemsg "min.ob (ev)"
 106         ld_ob   $f8, 0x1122334455667788
 107         ld_ob   $f9, 0x66778899aabbccdd
 108         min.ob  $f10, $f8, $f9[7]
 109         ck_ob   $f10, 0x1122334455666666
 110
 111         writemsg "min.ob (cv)"
 112         ld_ob   $f8, 0x1122334455667788
 113         min.ob  $f10, $f8, 0x15
 114         ck_ob   $f10, 0x1115151515151515
 115
 116
 117         writemsg "mul.ob (v)"
 118         ld_ob   $f8, 0x1122334455667788
 119         ld_ob   $f9, 0x0001020304050607
 120         mul.ob  $f10, $f8, $f9
 121         ck_ob   $f10, 0x002266ccffffffff
 122
 123         writemsg "mul.ob (ev)"
 124         ld_ob   $f8, 0x1122334455667788
 125         ld_ob   $f9, 0x0001020304050607
 126         mul.ob  $f10, $f8, $f9[4]
 127         ck_ob   $f10, 0x336699ccffffffff
 128
 129         writemsg "mul.ob (cv)"
 130         ld_ob   $f8, 0x1122334455667788
 131         mul.ob  $f10, $f8, 2
 132         ck_ob   $f10, 0x22446688aacceeff
 133
 134
 135         writemsg "nor.ob (v)"
 136         ld_ob   $f8, 0x1122334455667788
 137         ld_ob   $f9, 0x66778899aabbccdd
 138         nor.ob  $f10, $f8, $f9
 139         ck_ob   $f10, 0x8888442200000022
 140
 141         writemsg "nor.ob (ev)"
 142         ld_ob   $f8, 0x1122334455667788
 143         ld_ob   $f9, 0x66778899aabbccdd
 144         nor.ob  $f10, $f8, $f9[6]
 145         ck_ob   $f10, 0x8888888888888800
 146
 147         writemsg "nor.ob (cv)"
 148         ld_ob   $f8, 0x1122334455667788
 149         nor.ob  $f10, $f8, 0x08
 150         ck_ob   $f10, 0xe6d5c4b3a2918077
 151
 152
 153         writemsg "or.ob (v)"
 154         ld_ob   $f8, 0x1122334455667788
 155         ld_ob   $f9, 0x66778899aabbccdd
 156         or.ob   $f10, $f8, $f9
 157         ck_ob   $f10, 0x7777bbddffffffdd
 158
 159         writemsg "or.ob (ev)"
 160         ld_ob   $f8, 0x1122334455667788
 161         ld_ob   $f9, 0x66778899aabbccdd
 162         or.ob   $f10, $f8, $f9[6]
 163         ck_ob   $f10, 0x77777777777777ff
 164
 165         writemsg "or.ob (cv)"
 166         ld_ob   $f8, 0x1122334455667788
 167         or.ob   $f10, $f8, 0x08
 168         ck_ob   $f10, 0x192a3b4c5d6e7f88
 169
 170
 171         writemsg "shfl.mixh.ob"
 172         ld_ob   $f8, 0x1122334455667788
 173         ld_ob   $f9, 0x66778899aabbccdd
 174         shfl.mixh.ob    $f10, $f8, $f9
 175         ck_ob   $f10, 0x1166227733884499
 176
 177
 178         writemsg "shfl.mixl.ob"
 179         ld_ob   $f8, 0x1122334455667788
 180         ld_ob   $f9, 0x66778899aabbccdd
 181         shfl.mixl.ob    $f10, $f8, $f9
 182         ck_ob   $f10, 0x55aa66bb77cc88dd
 183
 184
 185         writemsg "shfl.pach.ob"
 186         ld_ob   $f8, 0x1122334455667788
 187         ld_ob   $f9, 0x66778899aabbccdd
 188         shfl.pach.ob    $f10, $f8, $f9
 189         ck_ob   $f10, 0x113355776688aacc
 190
 191
 192         writemsg "shfl.upsl.ob"
 193         ld_ob   $f8, 0x1122334455667788
 194         shfl.upsl.ob    $f10, $f8, $f8
 195         ck_ob   $f10, 0x005500660077ff88
 196
 197
 198         writemsg "sll.ob (v)"
 199         ld_ob   $f8, 0x1122334455667788
 200         ld_ob   $f9, 0x0001020304050607
 201         sll.ob  $f10, $f8, $f9
 202         ck_ob   $f10, 0x1144cc2050c0c000
 203
 204         writemsg "sll.ob (ev)"
 205         ld_ob   $f8, 0x1122334455667788
 206         ld_ob   $f9, 0x0001020304050607
 207         sll.ob  $f10, $f8, $f9[3]
 208         ck_ob   $f10, 0x1020304050607080
 209
 210         writemsg "sll.ob (cv)"
 211         ld_ob   $f8, 0x1122334455667788
 212         sll.ob  $f10, $f8, 1
 213         ck_ob   $f10, 0x22446688aaccee10
 214
 215
 216         writemsg "srl.ob (v)"
 217         ld_ob   $f8, 0x1122334455667788
 218         ld_ob   $f9, 0x0001020304050607
 219         srl.ob  $f10, $f8, $f9
 220         ck_ob   $f10, 0x11110c0805030101
 221
 222         writemsg "srl.ob (ev)"
 223         ld_ob   $f8, 0x1122334455667788
 224         ld_ob   $f9, 0x0001020304050607
 225         srl.ob  $f10, $f8, $f9[3]
 226         ck_ob   $f10, 0x0102030405060708
 227
 228         writemsg "srl.ob (cv)"
 229         ld_ob   $f8, 0x1122334455667788
 230         srl.ob  $f10, $f8, 1
 231         ck_ob   $f10, 0x081119222a333b44
 232
 233
 234         writemsg "sub.ob (v)"
 235         ld_ob   $f8, 0x1122334455667788
 236         ld_ob   $f9, 0x0001020304050607
 237         sub.ob  $f10, $f8, $f9
 238         ck_ob   $f10, 0x1121314151617181
 239
 240         writemsg "sub.ob (ev)"
 241         ld_ob   $f8, 0x1122334455667788
 242         ld_ob   $f9, 0x66778899aabbccdd
 243         sub.ob  $f10, $f8, $f9[7]
 244         ck_ob   $f10, 0x0000000000001122
 245
 246         writemsg "sub.ob (cv)"
 247         ld_ob   $f8, 0x1122334455667788
 248         sub.ob  $f10, $f8, 0x10
 249         ck_ob   $f10, 0x0112233445566778
 250
 251
 252         writemsg "xor.ob (v)"
 253         ld_ob   $f8, 0x1122334455667788
 254         ld_ob   $f9, 0x66778899aabbccdd
 255         xor.ob  $f10, $f8, $f9
 256         ck_ob   $f10, 0x7755bbddffddbb55
 257
 258         writemsg "xor.ob (ev)"
 259         ld_ob   $f8, 0x1122334455667788
 260         ld_ob   $f9, 0x66778899aabbccdd
 261         xor.ob  $f10, $f8, $f9[6]
 262         ck_ob   $f10, 0x66554433221100ff
 263
 264         writemsg "xor.ob (cv)"
 265         ld_ob   $f8, 0x1122334455667788
 266         xor.ob  $f10, $f8, 0x08
 267         ck_ob   $f10, 0x192a3b4c5d6e7f80
 268
 269
 270         ###
 271         ### Accumulator .ob format ops (in order: rd/wr, math, scale/round)
 272         ###
 273         ### Key: v = vector
 274         ###      ev = vector of single element
 275         ###      cv = vector of constant.
 276         ###
 277
 278
 279         writemsg "wacl.ob / rac[hml].ob"
 280         ld_ob   $f8, 0x8001028304850687
 281         ld_ob   $f9, 0x1011121314151617
 282         wacl.ob $f8, $f9
 283         ck_acc_ob 0xff0000ff00ff00ff, 0x8001028304850687, 0x1011121314151617
 284
 285         # Note: relies on data left in accumulator by previous test.
 286         writemsg "wach.ob / rac[hml].ob"
 287         ld_ob   $f8, 0x2021222324252627
 288         wach.ob $f8
 289         ck_acc_ob 0x2021222324252627, 0x8001028304850687, 0x1011121314151617
 290
 291
 292         writemsg "adda.ob (v)"
 293         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 294         ld_ob   $f8, 0x1122334455667788
 295         ld_ob   $f9, 0x66778899aabbccdd
 296         adda.ob $f8, $f9
 297         ck_acc_ob 0x0001020304050607, 0x0000000000010101, 0x7799bbddff214365
 298
 299         writemsg "adda.ob (ev)"
 300         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 301         ld_ob   $f8, 0x1122334455667788
 302         ld_ob   $f9, 0x66778899aabbccdd
 303         adda.ob $f8, $f9[2]
 304         ck_acc_ob 0x0001020304050607, 0x0000000001010101, 0xccddeeff10213243
 305
 306         writemsg "adda.ob (cv)"
 307         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 308         ld_ob   $f8, 0x1122334455667788
 309         adda.ob $f8, 0x1f
 310         ck_acc_ob 0x0001020304050607, 0x0000000000000000, 0x30415263748596a7
 311
 312
 313         writemsg "addl.ob (v)"
 314         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 315         ld_ob   $f8, 0x1122334455667788
 316         ld_ob   $f9, 0x66778899aabbccdd
 317         addl.ob $f8, $f9
 318         ck_acc_ob 0x0000000000000000, 0x0000000000010101, 0x7799bbddff214365
 319
 320         writemsg "addl.ob (ev)"
 321         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 322         ld_ob   $f8, 0x1122334455667788
 323         ld_ob   $f9, 0x66778899aabbccdd
 324         addl.ob $f8, $f9[2]
 325         ck_acc_ob 0x0000000000000000, 0x0000000001010101, 0xccddeeff10213243
 326
 327         writemsg "addl.ob (cv)"
 328         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 329         ld_ob   $f8, 0x1122334455667788
 330         addl.ob $f8, 0x1f
 331         ck_acc_ob 0x0000000000000000, 0x0000000000000000, 0x30415263748596a7
 332
 333
 334         writemsg "mula.ob (v)"
 335         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 336         ld_ob   $f8, 0x1122334455667788
 337         ld_ob   $f9, 0x66778899aabbccdd
 338         mula.ob $f8, $f9
 339         ck_acc_ob 0x0001020304050607, 0x060f1b28384a5e75, 0xc6ce18a47282d468
 340
 341         writemsg "mula.ob (ev)"
 342         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 343         ld_ob   $f8, 0x1122334455667788
 344         ld_ob   $f9, 0x66778899aabbccdd
 345         mula.ob $f8, $f9[2]
 346         ck_acc_ob 0x0001020304050607, 0x0c1825313e4a5663, 0x6bd641ac1782ed58
 347
 348         writemsg "mula.ob (cv)"
 349         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 350         ld_ob   $f8, 0x1122334455667788
 351         mula.ob $f8, 0x1f
 352         ck_acc_ob 0x0001020304050607, 0x020406080a0c0e10, 0x0f1e2d3c4b5a6978
 353
 354
 355         writemsg "mull.ob (v)"
 356         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 357         ld_ob   $f8, 0x1122334455667788
 358         ld_ob   $f9, 0x66778899aabbccdd
 359         mull.ob $f8, $f9
 360         ck_acc_ob 0x0000000000000000, 0x060f1b28384a5e75, 0xc6ce18a47282d468
 361
 362         writemsg "mull.ob (ev)"
 363         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 364         ld_ob   $f8, 0x1122334455667788
 365         ld_ob   $f9, 0x66778899aabbccdd
 366         mull.ob $f8, $f9[2]
 367         ck_acc_ob 0x0000000000000000, 0x0c1825313e4a5663, 0x6bd641ac1782ed58
 368
 369         writemsg "mull.ob (cv)"
 370         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 371         ld_ob   $f8, 0x1122334455667788
 372         mull.ob $f8, 0x1f
 373         ck_acc_ob 0x0000000000000000, 0x020406080a0c0e10, 0x0f1e2d3c4b5a6978
 374
 375
 376         writemsg "muls.ob (v)"
 377         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 378         ld_ob   $f8, 0x1122334455667788
 379         ld_ob   $f9, 0x66778899aabbccdd
 380         muls.ob $f8, $f9
 381         ck_acc_ob 0xff00010203040506, 0xf9f0e4d7c7b5a18a, 0x3a32e85c8e7e2c98
 382
 383         writemsg "muls.ob (ev)"
 384         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 385         ld_ob   $f8, 0x1122334455667788
 386         ld_ob   $f9, 0x66778899aabbccdd
 387         muls.ob $f8, $f9[2]
 388         ck_acc_ob 0xff00010203040506, 0xf3e7dacec1b5a99c, 0x952abf54e97e13a8
 389
 390         writemsg "muls.ob (cv)"
 391         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 392         ld_ob   $f8, 0x1122334455667788
 393         muls.ob $f8, 0x1f
 394         ck_acc_ob 0xff00010203040506, 0xfdfbf9f7f5f3f1ef, 0xf1e2d3c4b5a69788
 395
 396
 397         writemsg "mulsl.ob (v)"
 398         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 399         ld_ob   $f8, 0x1122334455667788
 400         ld_ob   $f9, 0x66778899aabbccdd
 401         mulsl.ob $f8, $f9
 402         ck_acc_ob 0xffffffffffffffff, 0xf9f0e4d7c7b5a18a, 0x3a32e85c8e7e2c98
 403
 404         writemsg "mulsl.ob (ev)"
 405         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 406         ld_ob   $f8, 0x1122334455667788
 407         ld_ob   $f9, 0x66778899aabbccdd
 408         mulsl.ob $f8, $f9[2]
 409         ck_acc_ob 0xffffffffffffffff, 0xf3e7dacec1b5a99c, 0x952abf54e97e13a8
 410
 411         writemsg "mulsl.ob (cv)"
 412         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 413         ld_ob   $f8, 0x1122334455667788
 414         mulsl.ob $f8, 0x1f
 415         ck_acc_ob 0xffffffffffffffff, 0xfdfbf9f7f5f3f1ef, 0xf1e2d3c4b5a69788
 416
 417
 418         writemsg "suba.ob (v)"
 419         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 420         ld_ob   $f8, 0x1122334455667788
 421         ld_ob   $f9, 0x66778899aabbccdd
 422         suba.ob $f8, $f9
 423         ck_acc_ob 0xff00010203040506, 0xffffffffffffffff, 0xabababababababab
 424
 425         writemsg "suba.ob (ev)"
 426         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 427         ld_ob   $f8, 0x1122334455667788
 428         ld_ob   $f9, 0x66778899aabbccdd
 429         suba.ob $f8, $f9[2]
 430         ck_acc_ob 0xff00010203040506, 0xffffffffffffffff, 0x566778899aabbccd
 431
 432         writemsg "suba.ob (cv)"
 433         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 434         ld_ob   $f8, 0x1122334455667788
 435         suba.ob $f8, 0x1f
 436         ck_acc_ob 0xff01020304050607, 0xff00000000000000, 0xf203142536475869
 437
 438
 439         writemsg "subl.ob (v)"
 440         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 441         ld_ob   $f8, 0x1122334455667788
 442         ld_ob   $f9, 0x66778899aabbccdd
 443         subl.ob $f8, $f9
 444         ck_acc_ob 0xffffffffffffffff, 0xffffffffffffffff, 0xabababababababab
 445
 446         writemsg "subl.ob (ev)"
 447         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 448         ld_ob   $f8, 0x1122334455667788
 449         ld_ob   $f9, 0x66778899aabbccdd
 450         subl.ob $f8, $f9[2]
 451         ck_acc_ob 0xffffffffffffffff, 0xffffffffffffffff, 0x566778899aabbccd
 452
 453         writemsg "subl.ob (cv)"
 454         ld_acc_ob 0x0001020304050607, 0x0000000000000000, 0x0000000000000000
 455         ld_ob   $f8, 0x1122334455667788
 456         subl.ob $f8, 0x1f
 457         ck_acc_ob 0xff00000000000000, 0xff00000000000000, 0xf203142536475869
 458
 459
 460         writemsg "rnau.ob (v)"
 461         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 462         ld_ob   $f8, 0x0001020304050607
 463         rnau.ob $f9, $f8
 464         ck_ob   $f9, 0x4021110940201008
 465
 466         writemsg "rnau.ob (ev)"
 467         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 468         ld_ob   $f8, 0x0001020304050607
 469         rnau.ob $f9, $f8[4]
 470         ck_ob   $f9, 0x080809097f7f8080
 471
 472         writemsg "rnau.ob (cv)"
 473         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 474         rnau.ob $f9, 2
 475         ck_ob   $f9, 0x10111112feffffff
 476
 477
 478         writemsg "rneu.ob (v)"
 479         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 480         ld_ob   $f8, 0x0001020304050607
 481         rneu.ob $f9, $f8
 482         ck_ob   $f9, 0x4021110940201008
 483
 484         writemsg "rneu.ob (ev)"
 485         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 486         ld_ob   $f8, 0x0001020304050607
 487         rneu.ob $f9, $f8[4]
 488         ck_ob   $f9, 0x080808097f7f8080
 489
 490         writemsg "rneu.ob (cv)"
 491         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 492         rneu.ob $f9, 2
 493         ck_ob   $f9, 0x10101112fefeffff
 494
 495
 496         writemsg "rzu.ob (v)"
 497         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 498         ld_ob   $f8, 0x0001020304050607
 499         rzu.ob  $f9, $f8
 500         ck_ob   $f9, 0x402111083f1f0f07
 501
 502         writemsg "rzu.ob (ev)"
 503         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 504         ld_ob   $f8, 0x0001020304050607
 505         rzu.ob  $f9, $f8[4]
 506         ck_ob   $f9, 0x080808087f7f7f7f
 507
 508         writemsg "rzu.ob (cv)"
 509         ld_acc_ob 0x0000000000000000, 0x0000000003030303, 0x40424446f8fafcfe
 510         rzu.ob  $f9, 2
 511         ck_ob   $f9, 0x10101111fefeffff
 512
 513
 514         ###
 515         ### CC-using .ob format ops.
 516         ###
 517         ### Key: v = vector
 518         ###      ev = vector of single element
 519         ###      cv = vector of constant.
 520         ###
 521
 522
 523         writemsg "c.eq.ob (v)"
 524         ld_ob   $f8, 0x0001010202030304
 525         ld_ob   $f9, 0x0101020203030404
 526         clr_fp_cc 0xff
 527         c.eq.ob $f8, $f9
 528         ck_fp_cc 0x55
 529
 530         writemsg "c.eq.ob (ev)"
 531         ld_ob   $f8, 0x0001010202030304
 532         ld_ob   $f9, 0x0101020203030404
 533         clr_fp_cc 0xff
 534         c.eq.ob $f8, $f9[5]
 535         ck_fp_cc 0x18
 536
 537         writemsg "c.eq.ob (cv)"
 538         ld_ob   $f8, 0x0001010202030304
 539         clr_fp_cc 0xff
 540         c.eq.ob $f8, 0x03
 541         ck_fp_cc 0x06
 542
 543
 544         writemsg "c.le.ob (v)"
 545         ld_ob   $f8, 0x0001010202030304
 546         ld_ob   $f9, 0x0101020203030404
 547         clr_fp_cc 0xff
 548         c.le.ob $f8, $f9
 549         ck_fp_cc 0xff
 550
 551         writemsg "c.le.ob (ev)"
 552         ld_ob   $f8, 0x0001010202030304
 553         ld_ob   $f9, 0x0101020203030404
 554         clr_fp_cc 0xff
 555         c.le.ob $f8, $f9[5]
 556         ck_fp_cc 0xf8
 557
 558         writemsg "c.le.ob (cv)"
 559         ld_ob   $f8, 0x0001010202030304
 560         clr_fp_cc 0xff
 561         c.le.ob $f8, 0x03
 562         ck_fp_cc 0xfe
 563
 564
 565         writemsg "c.lt.ob (v)"
 566         ld_ob   $f8, 0x0001010202030304
 567         ld_ob   $f9, 0x0101020203030404
 568         clr_fp_cc 0xff
 569         c.lt.ob $f8, $f9
 570         ck_fp_cc 0xaa
 571
 572         writemsg "c.lt.ob (ev)"
 573         ld_ob   $f8, 0x0001010202030304
 574         ld_ob   $f9, 0x0101020203030404
 575         clr_fp_cc 0xff
 576         c.lt.ob $f8, $f9[5]
 577         ck_fp_cc 0xe0
 578
 579         writemsg "c.lt.ob (cv)"
 580         ld_ob   $f8, 0x0001010202030304
 581         clr_fp_cc 0xff
 582         c.lt.ob $f8, 0x03
 583         ck_fp_cc 0xf8
 584
 585
 586         writemsg "pickf.ob (v)"
 587         ld_ob   $f8, 0x0001020304050607
 588         ld_ob   $f9, 0x08090a0b0c0d0e0f
 589         clrset_fp_cc 0xff, 0xaa
 590         pickf.ob $f10, $f8, $f9
 591         ck_ob   $f10, 0x08010a030c050e07
 592
 593         writemsg "pickf.ob (ev)"
 594         ld_ob   $f8, 0x0001020304050607
 595         ld_ob   $f9, 0x08090a0b0c0d0e0f
 596         clrset_fp_cc 0xff, 0xaa
 597         pickf.ob $f10, $f8, $f9[4]
 598         ck_ob   $f10, 0x0b010b030b050b07
 599
 600         writemsg "pickf.ob (cv)"
 601         ld_ob   $f8, 0x0001020304050607
 602         clrset_fp_cc 0xff, 0xaa
 603         pickf.ob $f10, $f8, 0x10
 604         ck_ob   $f10, 0x1001100310051007
 605
 606
 607         writemsg "pickt.ob (v)"
 608         ld_ob   $f8, 0x0001020304050607
 609         ld_ob   $f9, 0x08090a0b0c0d0e0f
 610         clrset_fp_cc 0xff, 0xaa
 611         pickt.ob $f10, $f8, $f9
 612         ck_ob   $f10, 0x0009020b040d060f
 613
 614         writemsg "pickt.ob (ev)"
 615         ld_ob   $f8, 0x0001020304050607
 616         ld_ob   $f9, 0x08090a0b0c0d0e0f
 617         clrset_fp_cc 0xff, 0xaa
 618         pickt.ob $f10, $f8, $f9[5]
 619         ck_ob   $f10, 0x000a020a040a060a
 620
 621         writemsg "pickt.ob (cv)"
 622         ld_ob   $f8, 0x0001020304050607
 623         clrset_fp_cc 0xff, 0xaa
 624         pickt.ob $f10, $f8, 0x10
 625         ck_ob   $f10, 0x0010021004100610
 626
 627
 628         pass
 629
 630         .end DIAG