Skip to content

Commit 30074b2

Browse files
SeairthSeairth
committed
straggler tests added
ANYB, CMPM, MUL, MULS, SAL. Also added a test to CMP to contrast with CMPM.
1 parent 22e5b12 commit 30074b2

6 files changed

+298
-8
lines changed

‎test_anyb.spin

+53
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,53 @@
1+
dat
2+
orgh 0
3+
org 0
4+
5+
andn outb, ##$FFFF
6+
or dirb, ##$FFFF
7+
8+
mov cnt, testc
9+
mov ptra, #@tests
10+
11+
_test rdlong d, ptra++
12+
rdlong s, ptra++
13+
rdlong cz, ptra++
14+
15+
setcz cz wc, wz
16+
17+
anyb d, s wc, wz ' TEST INSTRUCTION
18+
19+
setbc cz, #1 ' store C/Z
20+
setbz cz, #0
21+
22+
rdlong r, ptra++ ' get the expected result
23+
rdlong rcz, ptra++ ' get the expected flags
24+
25+
cmp d, r wz
26+
if_nz jmp #_next
27+
28+
cmp cz, rcz wz
29+
if_nz jmp #_next
30+
31+
mov d, testc ' set LED 0 to N
32+
sub d, cnt
33+
setb outb, d
34+
35+
_next
36+
djnz cnt, #_test
37+
38+
end jmp #end
39+
40+
41+
testc long (cnt-tests)/5
42+
' d s cz r rcz
43+
tests long $0000_0000, $0000_0000, %00, $0000_0000, %01
44+
long $0000_0000, $0000_0001, %00, $0000_0000, %10
45+
long $0000_000A, $0000_0005, %00, $0000_000A, %00
46+
47+
48+
cnt res 1
49+
d res 1
50+
s res 1
51+
cz res 1
52+
r res 1
53+
rcz res 1

‎test_cmp.spin

+9-8
Original file line numberDiff line numberDiff line change
@@ -40,14 +40,15 @@ end jmp #end
4040

4141
testc long (cnt-tests)/5
4242
' d s cz r rcz
43-
tests long $0000_0003, $0000_0002, %00, $0000_0003, %00
44-
long $0000_0003, $0000_0003, %00, $0000_0003, %01
45-
long $0000_0003, $0000_0004, %00, $0000_0003, %10
46-
long $8000_0000, $7FFF_FFFF, %00, $8000_0000, %00
47-
long $7FFF_FFFF, $8000_0000, %00, $7FFF_FFFF, %10
48-
long $FFFF_FFFE, $FFFF_FFFF, %00, $FFFF_FFFE, %10
49-
long $FFFF_FFFE, $FFFF_FFFE, %00, $FFFF_FFFE, %01
50-
long $FFFF_FFFE, $FFFF_FFFD, %00, $FFFF_FFFE, %00
43+
tests long $0000_0003, $0000_0002, %11, $0000_0003, %00 ' same as CMPM
44+
long $0000_0003, $0000_0003, %10, $0000_0003, %01 ' same as CMPM
45+
long $0000_0003, $0000_0004, %01, $0000_0003, %10 ' same as CMPM
46+
long $8000_0000, $7FFF_FFFF, %11, $8000_0000, %00 ' same as CMPM
47+
long $7FFF_FFFF, $8000_0000, %01, $7FFF_FFFF, %10 ' same as CMPM
48+
long $FFFF_FFFE, $FFFF_FFFF, %01, $FFFF_FFFE, %10 ' same as CMPM
49+
long $FFFF_FFFE, $FFFF_FFFE, %10, $FFFF_FFFE, %01 ' same as CMPM
50+
long $FFFF_FFFE, $FFFF_FFFD, %11, $FFFF_FFFE, %00 ' same as CMPM
51+
long $FFFF_FFFF, $7FFF_FFFF, %01, $FFFF_FFFF, %00 ' different than CMPM
5152

5253
cnt res 1
5354
d res 1

‎test_cmpm.spin

+58
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,58 @@
1+
dat
2+
orgh 0
3+
org 0
4+
5+
andn outb, ##$FFFF
6+
or dirb, ##$FFFF
7+
8+
mov cnt, testc
9+
mov ptra, #@tests
10+
11+
_test rdlong d, ptra++
12+
rdlong s, ptra++
13+
rdlong cz, ptra++
14+
15+
setcz cz wc, wz
16+
17+
cmpm d, s wc, wz ' TEST INSTRUCTION
18+
19+
setbc cz, #1 ' store C/Z
20+
setbz cz, #0
21+
22+
rdlong r, ptra++ ' get the expected result
23+
rdlong rcz, ptra++ ' get the expected flags
24+
25+
cmp d, r wz
26+
if_nz jmp #_next
27+
28+
cmp cz, rcz wz
29+
if_nz jmp #_next
30+
31+
mov d, testc ' set LED 0 to N
32+
sub d, cnt
33+
setb outb, d
34+
35+
_next
36+
djnz cnt, #_test
37+
38+
end jmp #end
39+
40+
41+
testc long (cnt-tests)/5
42+
' d s cz r rcz
43+
tests long $0000_0003, $0000_0002, %11, $0000_0003, %00 ' same as CMP
44+
long $0000_0003, $0000_0003, %10, $0000_0003, %01 ' same as CMP
45+
long $0000_0003, $0000_0004, %01, $0000_0003, %10 ' same as CMP
46+
long $8000_0000, $7FFF_FFFF, %11, $8000_0000, %00 ' same as CMP
47+
long $7FFF_FFFF, $8000_0000, %01, $7FFF_FFFF, %10 ' same as CMP
48+
long $FFFF_FFFE, $FFFF_FFFF, %01, $FFFF_FFFE, %10 ' same as CMP
49+
long $FFFF_FFFE, $FFFF_FFFE, %10, $FFFF_FFFE, %01 ' same as CMP
50+
long $FFFF_FFFE, $FFFF_FFFD, %11, $FFFF_FFFE, %00 ' same as CMP
51+
long $FFFF_FFFF, $7FFF_FFFF, %01, $FFFF_FFFF, %10 ' different than CMP
52+
53+
cnt res 1
54+
d res 1
55+
s res 1
56+
cz res 1
57+
r res 1
58+
rcz res 1

‎test_mul.spin

+57
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,57 @@
1+
dat
2+
orgh 0
3+
org 0
4+
5+
andn outb, ##$FFFF
6+
or dirb, ##$FFFF
7+
8+
mov cnt, testc
9+
mov ptra, #@tests
10+
11+
_test rdlong d, ptra++
12+
rdlong s, ptra++
13+
rdlong cz, ptra++
14+
15+
setcz cz wc, wz
16+
17+
mul d, s wc, wz ' TEST INSTRUCTION
18+
19+
setbc cz, #1 ' store C/Z
20+
setbz cz, #0
21+
22+
rdlong r, ptra++ ' get the expected result
23+
rdlong rcz, ptra++ ' get the expected flags
24+
25+
cmp d, r wz
26+
if_nz jmp #_next
27+
28+
cmp cz, rcz wz
29+
if_nz jmp #_next
30+
31+
mov d, testc ' set LED 0 to N
32+
sub d, cnt
33+
setb outb, d
34+
35+
_next
36+
djnz cnt, #_test
37+
38+
end jmp #end
39+
40+
41+
testc long (cnt-tests)/5
42+
' d s cz r rcz
43+
tests long $0000_0000, $0000_0000, %10, $0000_0000, %01 ' 0*0 = 0, C = MSB
44+
long $0000_FFFF, $0000_0000, %10, $0000_0000, %01 ' n*0 = 0, C = MSB
45+
long $0000_0000, $0000_FFFF, %10, $0000_0000, %01 ' 0*n = 0, C = MSB
46+
long $0000_0001, $0000_0001, %11, $0000_0001, %00 ' 1*1 = 1, C = MSB
47+
long $0000_B505, $0000_B505, %11, $8000_1219, %10 ' C = MSB
48+
long $0000_FFFF, $0000_FFFF, %11, $FFFE_0001, %10 ' 65535 * 65535 = 4294836225, C = MSB
49+
long $0000_7FFF, $0000_7FFF, %11, $3FFF_0001, %00 ' 32767 * 32767 = 1073676289, C = MSB
50+
long $BADD_7FFF, $BADD_7FFF, %11, $3FFF_0001, %00 ' upper 16 bits ignored, C = MSB
51+
52+
cnt res 1
53+
d res 1
54+
s res 1
55+
cz res 1
56+
r res 1
57+
rcz res 1

‎test_muls.spin

+60
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,60 @@
1+
dat
2+
orgh 0
3+
org 0
4+
5+
andn outb, ##$FFFF
6+
or dirb, ##$FFFF
7+
8+
mov cnt, testc
9+
mov ptra, #@tests
10+
11+
_test rdlong d, ptra++
12+
rdlong s, ptra++
13+
rdlong cz, ptra++
14+
15+
setcz cz wc, wz
16+
17+
muls d, s wc, wz ' TEST INSTRUCTION
18+
19+
setbc cz, #1 ' store C/Z
20+
setbz cz, #0
21+
22+
rdlong r, ptra++ ' get the expected result
23+
rdlong rcz, ptra++ ' get the expected flags
24+
25+
cmp d, r wz
26+
if_nz jmp #_next
27+
28+
cmp cz, rcz wz
29+
if_nz jmp #_next
30+
31+
mov d, testc ' set LED 0 to N
32+
sub d, cnt
33+
setb outb, d
34+
35+
_next
36+
djnz cnt, #_test
37+
38+
end jmp #end
39+
40+
41+
testc long (cnt-tests)/5
42+
' d s cz r rcz
43+
tests long $0000_0000, $0000_0000, %10, $0000_0000, %01 ' 0*0 = 0, C = MSB
44+
long $0000_FFFF, $0000_0000, %10, $0000_0000, %01 ' n*0 = 0, C = MSB
45+
long $0000_0000, $0000_FFFF, %10, $0000_0000, %01 ' 0*n = 0, C = MSB
46+
long $0000_0001, $0000_0001, %11, $0000_0001, %00 ' 1*1 = 1, C = MSB
47+
long $0000_FFFF, $0000_FFFF, %11, $0000_0001, %00 ' -1*-1 = 1, C = MSB
48+
long $0000_FFFF, $0000_0001, %11, $FFFF_FFFF, %10 ' -1*1 = -1, C = MSB
49+
50+
long $0000_8000, $0000_8000, %11, $4000_0000, %00 ' -32768 * -32768 = 1073741824, C = MSB
51+
long $0000_8001, $0000_8001, %11, $3FFF_0001, %00 ' 32767 * 32767 = 1073676289, C = MSB
52+
long $0000_7FFF, $0000_7FFF, %11, $3FFF_0001, %00 ' 32767 * 32767 = 1073676289, C = MSB
53+
long $BADD_7FFF, $BADD_7FFF, %11, $3FFF_0001, %00 ' upper 16 bits ignored, C = MSB
54+
55+
cnt res 1
56+
d res 1
57+
s res 1
58+
cz res 1
59+
r res 1
60+
rcz res 1

‎test_sal.spin

+61
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,61 @@
1+
dat
2+
orgh 0
3+
org 0
4+
5+
andn outb, ##$FFFF
6+
or dirb, ##$FFFF
7+
8+
mov cnt, testc
9+
mov ptra, #@tests
10+
11+
_test rdlong d, ptra++
12+
rdlong s, ptra++
13+
rdlong cz, ptra++
14+
15+
setcz cz wc, wz
16+
17+
sal d, s wc, wz ' TEST INSTRUCTION
18+
19+
setbc cz, #1 ' store C/Z
20+
setbz cz, #0
21+
22+
rdlong r, ptra++ ' get the expected result
23+
rdlong rcz, ptra++ ' get the expected flags
24+
25+
cmp d, r wz
26+
if_nz jmp #_next
27+
28+
cmp cz, rcz wz
29+
if_nz jmp #_next
30+
31+
mov d, testc ' set LED 0 to N
32+
sub d, cnt
33+
setb outb, d
34+
35+
_next
36+
djnz cnt, #_test
37+
38+
end jmp #end
39+
40+
41+
testc long (cnt-tests)/5
42+
' d s cz r rcz
43+
tests long $FFFF_FF9C, $0000_0001, %00, $FFFF_FF38, %10
44+
long $FFFF_FF9C, $0000_0002, %00, $FFFF_FE70, %10
45+
long $FFFF_FF9C, $0000_0003, %00, $FFFF_FCE0, %10
46+
long $FFFF_FFF3, $0000_0001, %00, $FFFF_FFE7, %10
47+
long $FFFF_FFF3, $0000_0002, %00, $FFFF_FFCF, %10
48+
long $FFFF_FFF3, $0000_0003, %00, $FFFF_FF9F, %10
49+
long $0000_0006, $0000_0001, %00, $0000_000C, %00
50+
long $0000_0006, $0000_0002, %00, $0000_0018, %00
51+
long $0000_0006, $0000_0003, %00, $0000_0030, %00
52+
long $0000_0006, $0000_0000, %00, $0000_0006, %00
53+
long $FFFF_FFFC, $0000_0000, %00, $FFFF_FFFC, %10
54+
long $8000_0000, $0000_0001, %00, $0000_0000, %11
55+
56+
cnt res 1
57+
d res 1
58+
s res 1
59+
cz res 1
60+
r res 1
61+
rcz res 1

0 commit comments

Comments
 (0)