blob: 6f3efbe981df909b713b6a893eec569396eb1988 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
# j = $l2bid x 8 + $l1bid
# $n128 = j
# $n256 = A[j]
# $s272 = 0
# $ls[0:128] = k (from 0 to 63)
# $lr[0:128] = A[k]
# $lr[0:128] = A[j] < A[k]
# $lr[256:264] = count of (j >= k) and (A[j] < A[k])
# 64.times { |i| puts "imm i\"#{i}\" $s#{2*i}v/1100 # $s#{2*i} = $s#{2*i+1} = #{i}" }
# imm i"0" $s0v/1100 # $s0 = $s1 = 0
imm i"1" $ls2/1000 # $s2 = $s3 = 1
imm i"2" $ls4/1000 # $s4 = $s5 = 2
imm i"3" $ls6/1000 # $s6 = $s7 = 3
imm i"4" $ls8/1000 # $s8 = $s9 = 4
iadd $aluf $ls2v $ls10v
iadd $aluf $ls8 $ls18v
iadd $aluf $ls8 $ls26v
iadd $aluf $ls8 $ls34v
iadd $aluf $ls8 $ls42v
iadd $aluf $ls8 $ls50v
iadd $aluf $ls8 $ls58v
iadd $aluf $ls8 $ls66v
iadd $aluf $ls8 $ls74v
iadd $aluf $ls8 $ls82v
iadd $aluf $ls8 $ls90v
iadd $aluf $ls8 $ls98v
iadd $aluf $ls8 $ls106v
iadd $aluf $ls8 $ls114v
iadd $aluf $ls8 $ls122v/1110
# d getf $ls0n0c0b0m0p0 64
# quit
ilsl $l2bid $s6 $nowrite
iadd $l1bid $aluf $n128v
# (128/16).times { |i| puts "lpassa $llm#{i*16}v $llr#{i*16}v" }
lpassa $llm0v $llr0v
lpassa $llm16v $llr16v
lpassa $llm32v $llr32v
lpassa $llm48v $llr48v
lpackbit $ln128 $ls272 $t
lpassa $llm64v $llr64v
iinc $lmt0 $ln256
lpassa $llm80v $llr80v
lpassa $llm96v $llr96v
lpassa $llm112v $llr112v
# (128/8).times { |i| puts "isub $ln128 $ls#{i*8}v $omr1"; puts "isub $lr#{i*8}v $ln256 $omr1/$imr1"; puts "iinc $lr256v $lr256v/$imr1" }
isub $ln128 $ls0v $omr1
isub $lr0v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls8v $omr1
isub $lr8v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls16v $omr1
isub $lr16v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls24v $omr1
isub $lr24v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls32v $omr1
isub $lr32v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls40v $omr1
isub $lr40v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls48v $omr1
isub $lr48v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls56v $omr1
isub $lr56v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls64v $omr1
isub $lr64v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls72v $omr1
isub $lr72v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls80v $omr1
isub $lr80v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls88v $omr1
isub $lr88v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls96v $omr1
isub $lr96v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls104v $omr1
isub $lr104v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls112v $omr1
isub $lr112v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
isub $ln128 $ls120v $omr1
isub $lr120v $ln256 $omr1/$imr1
iinc $lr256v $lr256v/$imr1
nop
l1bmd $lr256v $lb0
nop
nop
# (256/64).times { |i| puts "l2bmriiadd $lb#{i*64} $lc#{i*64}" }
l2bmriiadd $lb0 $lc0
l2bmriiadd $lb64 $lc64
l2bmriiadd $lb128 $lc128
l2bmriiadd $lb192 $lc192
nop
mvriiadd/n256 $lc0 $p0@0
mvb/n256 $p0@0 $lc0
nop
nop
# (256/64).times { |i| puts "l2bmb $lc#{i*64} $lb#{i*64}" }
l2bmb $lc0 $lb0
l2bmb $lc64 $lb64
l2bmb $lc128 $lb128
l2bmb $lc192 $lb192
nop
nop
l1bmd $lb0 $lr0v
nop
nop
iadd $lbf $lr4v $lr12v
nop
iadd $aluf $lr14 $ln0v
|
