Merge pull request #171 from davidgiven/dtrg-comparisons
i80: a few more minor fixes
This commit is contained in:
commit
c4ff0899dc
|
@ -1687,7 +1687,7 @@ pat cmu zlt $1==2
|
||||||
uses areg
|
uses areg
|
||||||
gen
|
gen
|
||||||
mov a, %2.2
|
mov a, %2.2
|
||||||
sbi {const1, %1.num & 0xff}
|
sui {const1, %1.num & 0xff}
|
||||||
mov a, %2.1
|
mov a, %2.1
|
||||||
sbi {const1, %1.num >> 8}
|
sbi {const1, %1.num >> 8}
|
||||||
jc {label, $2}
|
jc {label, $2}
|
||||||
|
@ -1719,7 +1719,7 @@ pat cmu zge $1==2
|
||||||
uses areg
|
uses areg
|
||||||
gen
|
gen
|
||||||
mov a, %2.2
|
mov a, %2.2
|
||||||
sbi {const1, %1.num & 0xff}
|
sui {const1, %1.num & 0xff}
|
||||||
mov a, %2.1
|
mov a, %2.1
|
||||||
sbi {const1, %1.num >> 8}
|
sbi {const1, %1.num >> 8}
|
||||||
jnc {label, $2}
|
jnc {label, $2}
|
||||||
|
|
|
@ -13,12 +13,17 @@ mvi X, Y : mov X, Z -> mov X, Z ;
|
||||||
xchg : inx h : xchg -> inx d ;
|
xchg : inx h : xchg -> inx d ;
|
||||||
xchg : inx d : xchg -> inx h ;
|
xchg : inx d : xchg -> inx h ;
|
||||||
|
|
||||||
|
adi 0 -> xra a ;
|
||||||
|
ori 0 -> ora a ;
|
||||||
|
xri 0 -> ora a ;
|
||||||
|
adi 0 -> ora a ;
|
||||||
|
sui 0 -> ora a ;
|
||||||
cpi 0 -> ora a ;
|
cpi 0 -> ora a ;
|
||||||
call X : ret -> jmp X ;
|
call X : ret -> jmp X ;
|
||||||
|
|
||||||
push h : lxi h, X : pop d -> lxi d, X : xchg ;
|
push h : lxi h, X : pop d -> lxi d, X : xchg ;
|
||||||
push d : lxi d, X : pop h -> lxi h, X : xchg ;
|
push d : lxi d, X : pop h -> lxi h, X : xchg ;
|
||||||
|
|
||||||
push h : lhld h, X : pop d -> xchg : lhld X ;
|
push h : lhld X : pop d -> xchg : lhld X ;
|
||||||
|
|
||||||
%%;
|
%%;
|
||||||
|
|
|
@ -16,6 +16,8 @@ zero
|
||||||
rom 0
|
rom 0
|
||||||
one
|
one
|
||||||
rom 1
|
rom 1
|
||||||
|
twofivesix
|
||||||
|
rom 256
|
||||||
big
|
big
|
||||||
#if EM_WSIZE == 2
|
#if EM_WSIZE == 2
|
||||||
rom 32767
|
rom 32767
|
||||||
|
@ -107,5 +109,18 @@ big
|
||||||
asp EM_WSIZE
|
asp EM_WSIZE
|
||||||
7
|
7
|
||||||
|
|
||||||
|
/* Test case: twofixsix < 256 */
|
||||||
|
|
||||||
|
loe twofivesix
|
||||||
|
loc 256
|
||||||
|
cmu EM_WSIZE
|
||||||
|
zlt *8
|
||||||
|
bra *9
|
||||||
|
8
|
||||||
|
loc __LINE__
|
||||||
|
cal $fail
|
||||||
|
asp EM_WSIZE
|
||||||
|
9
|
||||||
|
|
||||||
cal $finished
|
cal $finished
|
||||||
end
|
end
|
||||||
|
|
Loading…
Reference in a new issue