js/src/lirasm/tests/cond_ged.in

   1 ; A few utility constants .
   2 sh0 = immi 0
   3 sh1 = immi 1
   4 sh2 = immi 2
   5 sh3 = immi 3
   6 sh4 = immi 4
   7 sh5 = immi 5
   8 sh6 = immi 6
   9 sh7 = immi 7
  10 sh8 = immi 8
  11
  12 i0 = immd 0
  13 i1 = immd 1
  14 i2 = immd -1
  15
  16 ; ----------------------------------------------------------------------------
  17 ; Combinations of 'ged'.
  18 ge0 = ged i0 i0 ; 1
  19 ge1 = ged i0 i1 ; 0
  20 ge2 = ged i0 i2 ; 1
  21 ge3 = ged i1 i0 ; 1
  22 ge4 = ged i1 i1 ; 1
  23 ge5 = ged i1 i2 ; 1
  24 ge6 = ged i2 i0 ; 0
  25 ge7 = ged i2 i1 ; 0
  26 ge8 = ged i2 i2 ; 1
  27
  28 ; Aggregate the results.
  29 ge0sh = lshi ge0 sh0
  30 ge1sh = lshi ge1 sh1
  31 ge2sh = lshi ge2 sh2
  32 ge3sh = lshi ge3 sh3
  33 ge4sh = lshi ge4 sh4
  34 ge5sh = lshi ge5 sh5
  35 ge6sh = lshi ge6 sh6
  36 ge7sh = lshi ge7 sh7
  37 ge8sh = lshi ge8 sh8
  38
  39 ge0_1 = ori ge0sh ge1sh
  40 ge2_3 = ori ge2sh ge3sh
  41 ge4_5 = ori ge4sh ge5sh
  42 ge6_7 = ori ge6sh ge7sh
  43
  44 ge0_3 = ori ge0_1 ge2_3
  45 ge4_7 = ori ge4_5 ge6_7
  46
  47 ge0_7 = ori ge0_3 ge4_7
  48
  49 ge = ori ge0_7 ge8sh
  50
  51 ; The result should be {0001,0011,1101}, 0x13d, or 44.
  52
  53 reti ge