d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Some more adaptions to new assembler

Browse source
This commit is contained in:
ceriel 1987-05-20 17:15:59 +00:00
parent a8db0ab298
commit 1b47f26e4b
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
mach/pdp/cg/table
View file

@ -977,7 +977,7 @@ fef !defined($1)| source2 |
* Pointers have size 2 bytes. * * Pointers have size 2 bytes. *
****************************************/ ****************************************/
adp | SCR_REG | | {regconst2, %[1], tostring($1)} | | adp | REG | | {regconst2, %[1], tostring($1)} | |
... | NC regconst2 | | {regconst2, %[1.reg], tostring($1)+"+"+%[1.ind]} | | ... | NC regconst2 | | {regconst2, %[1.reg], tostring($1)+"+"+%[1.ind]} | |
... | NC ADDR_EXTERNAL | | {ADDR_EXTERNAL, tostring($1)+"+"+%[1.ind]} | | ... | NC ADDR_EXTERNAL | | {ADDR_EXTERNAL, tostring($1)+"+"+%[1.ind]} | |
... | NC ADDR_LOCAL | | {ADDR_LOCAL,%[1.ind]+$1} | | ... | NC ADDR_LOCAL | | {ADDR_LOCAL,%[1.ind]+$1} | |
@ -1613,7 +1613,7 @@ rol $1==2 | CONST2 SCR_ODD_REG |
setcc(%[2]) setcc(%[2])
erase(%[2]) | %[2] | | erase(%[2]) | %[2] | |
... | SCR_REG SCR_ODD_REG | ... | SCR_REG SCR_ODD_REG |
"sub $$16,%[1]" "sub $$%(16%),%[1]"
"ashc %[1],%[2]" "ashc %[1],%[2]"
setcc(%[2]) setcc(%[2])
erase(%[1]) erase(%[2]) | %[2] | | erase(%[1]) erase(%[2]) | %[2] | |
@ -1667,18 +1667,18 @@ com and $1==$2 | | remove(all)
inn $1==2 | SCR_REG SCR_REG | inn $1==2 | SCR_REG SCR_REG |
"neg %[1]" "neg %[1]"
"ash %[1],%[2]" "ash %[1],%[2]"
"bic $$177776,%[2]" "bic $$0177776,%[2]"
erase(%[1]) erase(%[2]) | %[2] | | erase(%[1]) erase(%[2]) | %[2] | |
loc inn $2==2 && $1==0 | SCR_REG | loc inn $2==2 && $1==0 | SCR_REG |
"bic $$177776,%[1]" "bic $$0177776,%[1]"
erase(%[1]) | %[1] | | erase(%[1]) | %[1] | |
loc inn $2==2 && $1==1 | SCR_REG | loc inn $2==2 && $1==1 | SCR_REG |
"asr %[1]" "asr %[1]"
"bic $$177776,%[1]" "bic $$0177776,%[1]"
erase(%[1]) | %[1] | | erase(%[1]) | %[1] | |
loc inn $2==2 | SCR_REG | loc inn $2==2 | SCR_REG |
"ash $$%(0-$1%),%[1]" "ash $$%(0-$1%),%[1]"
"bic $$177776,%[1]" "bic $$0177776,%[1]"
erase(%[1]) | %[1] | | erase(%[1]) | %[1] | |
loc inn zeq $2==2 | | | {CONST2, 1<<$1} | and 2 zeq $3 | loc inn zeq $2==2 | | | {CONST2, 1<<$1} | and 2 zeq $3 |