blob: 0ea31e78110847898f2b220e6bc291bcf1856028 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
doubleA = immd 1.25 ; single precision
doubleB = immd 4.5 ; single precision
doubleC = immd 1.2 ; not single precision
ptr = allocp 12
std2f doubleA ptr 0
std2f doubleB ptr 4
std2f doubleC ptr 8
doubleD = ldf2d ptr 0
doubleE = ldf2d ptr 4
doubleF = ldf2d ptr 8
resA = eqd doubleA doubleD ; true
resB = eqd doubleB doubleE ; true
resC = eqd doubleB doubleF ; false
resD = addi resA resB
resE = addi resC resD
reti resE
|
