Merge pull request #171 from davidgiven/dtrg-comparisons

i80: a few more minor fixes
This commit is contained in:
David Given 2019-02-16 01:23:27 +01:00 committed by GitHub
commit c4ff0899dc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 23 additions and 3 deletions

View file

@ -1687,7 +1687,7 @@ pat cmu zlt $1==2
uses areg
gen
mov a, %2.2
sbi {const1, %1.num & 0xff}
sui {const1, %1.num & 0xff}
mov a, %2.1
sbi {const1, %1.num >> 8}
jc {label, $2}
@ -1719,7 +1719,7 @@ pat cmu zge $1==2
uses areg
gen
mov a, %2.2
sbi {const1, %1.num & 0xff}
sui {const1, %1.num & 0xff}
mov a, %2.1
sbi {const1, %1.num >> 8}
jnc {label, $2}

View file

@ -13,12 +13,17 @@ mvi X, Y : mov X, Z -> mov X, Z ;
xchg : inx h : xchg -> inx d ;
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 ;
call X : ret -> jmp X ;
push h : lxi h, X : pop d -> lxi d, 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 ;
%%;

View file

@ -16,6 +16,8 @@ zero
rom 0
one
rom 1
twofivesix
rom 256
big
#if EM_WSIZE == 2
rom 32767
@ -107,5 +109,18 @@ big
asp EM_WSIZE
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
end