added csa4 and csb4

This commit is contained in:
eck 1990-04-12 11:35:10 +00:00
parent f1351720e5
commit 90963fd585

View file

@ -818,8 +818,12 @@ mli $1 == 2 | DATASCR ANY | "muls %[2],%[1]"
mli $1 == 2 | ANY DATASCR | "muls %[1],%[2]"
erase(%[2])
setcc(%[2]) | %[2] | |
ldc mli loww(1) == 1 && highw(1) == 0 && $2 == 4 | | | | |
ldc mli loww(1) == 2 && highw(1) == 0 && $2 == 4 | | | | loc 1 sli 4 |
loc loc cii ldc mli $1==2 && $2==4 && highw(4)==0 && loww(4)>0 && $5==4
| DATASCR | allocate(%[1],DATAREG4)
move(%[1],%[a.1])
"muls #$4,%[a]"
erase(%[a])
setcc(%[a]) | %[a] | |
mli $1 == 4 | | remove(ALL)
"jsr .mli"
| DD1 | |
@ -2724,9 +2728,15 @@ bls $1 == 4 | DATASCR4 ADDSCR ADDSCR |
csa $1 == 2 | | remove(ALL)
"jmp .csa"
| | |
csa $1 == 4 | | remove(ALL)
"jmp .csa4"
| | |
csb $1 == 2 | | remove(ALL)
"jmp .csb"
| | |
csb $1 == 4 | | remove(ALL)
"jmp .csb4"
| | |
dch | | | | loi 4 |
dup $1 == 2 | ANY-REGCH2 | | %[1] %[1] | |
dup $1 == 4 | DATAREG4+ADDREG | | %[1] %[1] | |