1 print ".text\n\t.type _start,@", "function\n_start:\n\n"; 2 3 @ldhint = ( "", ".nt1", ".nta" ); 4 @ldspec = ( "", ".s", ".a", ".sa", ".c.clr", ".c.nc" ); 5 @sthint = ( "", ".nta" ); 6 7 $i = 0; 8 9 # Integer Load 10 11 foreach $s ( "1", "2", "4", "8" ) { 12 foreach $e (@ldspec, ".bias", ".acq", ".c.clr.acq") { 13 foreach $l (@ldhint) { 14 print "\tld${s}${e}${l} r4 = [r5]\n"; 15 print "\tld${s}${e}${l} r4 = [r5], r6\n"; 16 print "\tld${s}${e}${l} r4 = [r5], ", $i - 256, "\n"; 17 $i = ($i + 13) % 512; 18 } 19 print "\n"; 20 } 21 } 22 23 # Integer Fill 24 25 for $l (@ldhint) { 26 print "\tld8.fill${l} r4 = [r5]\n"; 27 print "\tld8.fill${l} r4 = [r5], r6\n"; 28 print "\tld8.fill${l} r4 = [r5], ", $i - 256, "\n"; 29 $i = ($i + 13) % 512; 30 } 31 print "\n"; 32 33 # Integer Store 34 35 foreach $s ("1", "2", "4", "8", "1.rel", "2.rel", "4.rel", "8.rel", "8.spill") { 36 for $l (@sthint) { 37 print "\tst${s}${l} [r4] = r5\n"; 38 print "\tst${s}${l} [r4] = r5, ", $i - 256, "\n"; 39 $i = ($i + 13) % 512; 40 } 41 print "\n"; 42 } 43 44 # Floating Point Load 45 46 foreach $s ( "fs", "fd", "f8", "fe" ) { 47 foreach $e (@ldspec) { 48 foreach $l (@ldhint) { 49 print "\tld${s}${e}${l} f4 = [r5]\n"; 50 print "\tld${s}${e}${l} f4 = [r5], r6\n"; 51 print "\tld${s}${e}${l} f4 = [r5], ", $i - 256, "\n"; 52 $i = ($i + 13) % 512; 53 } 54 print "\n"; 55 } 56 } 57 58 # Floating Point Fill 59 60 for $l (@ldhint) { 61 print "\tldf.fill${l} f4 = [r5]\n"; 62 print "\tldf.fill${l} f4 = [r5], r6\n"; 63 print "\tldf.fill${l} f4 = [r5], ", $i - 256, "\n"; 64 $i = ($i + 13) % 512; 65 } 66 print "\n"; 67 68 # Floating Point Store 69 70 foreach $s ( "fs", "fd", "f8", "fe", "f.spill" ) { 71 for $l (@sthint) { 72 print "\tst${s}${l} [r4] = f5\n"; 73 print "\tst${s}${l} [r4] = f5, ", $i - 256, "\n"; 74 $i = ($i + 13) % 512; 75 } 76 print "\n"; 77 } 78 79 # Floating Point Load Pair 80 81 foreach $s ( "fps", "fpd", "fp8" ) { 82 foreach $e (@ldspec) { 83 foreach $l (@ldhint) { 84 print "\tld${s}${e}${l} f4, f5 = [r5]\n"; 85 print "\tld${s}${e}${l} f4, f5 = [r5], ", ($s eq "fps" ? 8 : 16), "\n"; 86 } 87 print "\n"; 88 } 89 } 90 91 # Line Prefetch 92 93 @lfhint = ( "", ".nt1", ".nt2", ".nta" ); 94 95 foreach $e ( "", ".excl" ) { 96 foreach $f ( "", ".fault" ) { 97 foreach $h (@lfhint) { 98 print "\tlfetch${f}${e}${h} [r4]\n"; 99 print "\tlfetch${f}${e}${h} [r4], r5\n"; 100 print "\tlfetch${f}${e}${h} [r4], ", $i - 256, "\n"; 101 $i = ($i + 13) % 512; 102 } 103 print "\n"; 104 } 105 } 106 107 # Compare and Exchange 108 109 foreach $s ( "1", "2", "4", "8" ) { 110 foreach $e ( ".acq", ".rel" ) { 111 foreach $h (@ldhint) { 112 print "\tcmpxchg${s}${e}${h} r4 = [r5], r6, ar.ccv\n"; 113 } 114 print "\n"; 115 } 116 } 117 118 # Exchange 119 120 foreach $s ( "1", "2", "4", "8" ) { 121 foreach $h (@ldhint) { 122 print "\txchg${s}${h} r4 = [r5], r6\n"; 123 } 124 print "\n"; 125 } 126 127 # Fetch and Add 128 129 $i = 0; 130 @inc3 = ( -16, -8, -4, -1, 1, 4, 8, 16 ); 131 foreach $s ( "4.acq", "8.acq", "4.rel", "8.rel" ) { 132 foreach $h (@ldhint) { 133 print "\tfetchadd${s}${h} r4 = [r5], ", $inc3[$i], "\n"; 134 $i = ($i + 1) % 8; 135 } 136 print "\n"; 137 } 138 139 # Get/Set FR 140 141 foreach $e ( ".sig", ".exp", ".s", ".d" ) { 142 print "\tsetf${e} f4 = r5\n"; 143 } 144 print "\n"; 145 146 foreach $e ( ".sig", ".exp", ".s", ".d" ) { 147 print "\tgetf${e} r4 = f5\n"; 148 } 149 print "\n"; 150 151 # Speculation and Advanced Load Checkso 152 153 print <<END 154 chk.s.m r4, _start 155 chk.s f4, _start 156 chk.a.nc r4, _start 157 chk.a.clr r4, _start 158 chk.a.nc f4, _start 159 chk.a.clr f4, _start 160 161 invala 162 fwb 163 mf 164 mf.a 165 srlz.d 166 srlz.i 167 sync.i 168 nop.m 0 169 nop.i 0 170 171 { .mii; alloc r4 = ar.pfs, 2, 10, 16, 16 } 172 173 { .mii; flushrs } 174 { .mii; loadrs } 175 176 invala.e r4 177 invala.e f4 178 179 fc r4 180 ptc.e r4 181 182 break.m 0 183 break.m 0x1ffff 184 185 nop.m 0 186 break.m 0x1ffff 187 188 probe.r r4 = r5, r6 189 probe.w r4 = r5, r6 190 191 probe.r r4 = r5, 0 192 probe.w r4 = r5, 1 193 194 probe.r.fault r3, 2 195 probe.w.fault r3, 3 196 probe.rw.fault r3, 0 197 198 itc.d r8 199 itc.i r9 200 201 sum 0x1234 202 rum 0x5aaaaa 203 ssm 0xffffff 204 rsm 0x400000 205 206 ptc.l r4, r5 207 ptc.g r4, r5 208 ptc.ga r4, r5 209 ptr.d r4, r5 210 ptr.i r4, r5 211 212 thash r4 = r5 213 ttag r4 = r5 214 tpa r4 = r5 215 tak r4 = r5 216 217 END 218 ; 219
