aa9418c029
This would become necessary if something failed on a platform with 16-bit int (EM_WSIZE == 2). Remove unreachable `ret 0`. If reached, it wouldn't work to return from _m_a_i_n.
88 lines
1.1 KiB
Plaintext
88 lines
1.1 KiB
Plaintext
#
|
|
mes 2, EM_WSIZE, EM_PSIZE
|
|
|
|
exp $_m_a_i_n
|
|
pro $_m_a_i_n, 0
|
|
|
|
/* Test non-existent bit */
|
|
|
|
.1
|
|
rom 0I4
|
|
loe .1
|
|
loc 1 /* bit number */
|
|
inn 4
|
|
zeq *1
|
|
|
|
loc __LINE__
|
|
loc EM_WSIZE
|
|
loc 4
|
|
cuu
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
1
|
|
|
|
/* Test existent bit */
|
|
|
|
.2
|
|
rom 16384
|
|
.21
|
|
rom 14 /* to defeat constant folding */
|
|
|
|
loe .2
|
|
loe .21 /* bit number */
|
|
inn EM_WSIZE
|
|
zne *2
|
|
|
|
loc __LINE__
|
|
loc EM_WSIZE
|
|
loc 4
|
|
cuu
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
2
|
|
|
|
/* Test non-existent high bit */
|
|
|
|
.3
|
|
rom 0, 0
|
|
.31
|
|
rom 8 /* to defeat constant folding */
|
|
|
|
lae .3
|
|
loi EM_WSIZE*2
|
|
loe .31 /* bit number */
|
|
inn EM_WSIZE*2
|
|
zeq *3
|
|
|
|
loc __LINE__
|
|
loc EM_WSIZE
|
|
loc 4
|
|
cuu
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
3
|
|
|
|
/* Test existent high bit */
|
|
|
|
.4
|
|
rom 0, 2
|
|
.41
|
|
rom (EM_WSIZE*8)+1 /* to defeat constant folding */
|
|
|
|
lae .4
|
|
loi EM_WSIZE*2
|
|
loe .41 /* bit number */
|
|
inn EM_WSIZE*2
|
|
zne *4
|
|
|
|
loc __LINE__
|
|
loc EM_WSIZE
|
|
loc 4
|
|
cuu
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
4
|
|
|
|
cal $finished
|
|
end
|