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

replaced some db.. instructions; they are wrong if the count register

Browse source 
contains a count > 65535
This commit is contained in:
ceriel 1989-07-07 15:05:33 +00:00
parent 01a95e3b08
commit b32fb46dfe
1 changed files with 32 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
mach/m68020/ce/EM_table
View file

@ -56,11 +56,12 @@ C_loi
"move.l (4,a0),-(sp)";
"move.l (a0), -(sp)".
$1 % 4 == 0 ==> "move.l (sp)+, a0";
"move.l #$1/4-1, d0";
"move.l #$1/4, d0";
"add.l #$1, a0";
"1:";
"move.l -(a0), -(sp)";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
default ==> arg_error( "loi", $1).
@ -106,9 +107,10 @@ C_sti
$1 == 4 ==> "move.l (sp)+, a0";
"move.l (sp)+, (a0)".
$1 % 4 == 0 ==> "move.l (sp)+, a0";
"move.l #$1/4-1, d0";
"move.l #$1/4, d0";
"1:move.l (sp)+, (a0)+";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
default ==> arg_error( "sti", (arith) $1).
@ -326,10 +328,11 @@ C_zer
$1 == 4 ==> "clr.l -(sp)".
$1 == 8 ==> "clr.l -(sp)";
"clr.l -(sp)".
default ==> "move.l #$1/4-1, d0";
default ==> "move.l #$1/4, d0";
"1:";
"clr.l -(sp)";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
/******************************************************************************/
/* */
@ -418,42 +421,46 @@ C_cuf ==> "move.l (sp)+, d0";
C_and
$1 == 4 ==> "move.l (sp)+, d0";
"and.l d0, (sp)".
default ==> "move.l #$1/4-1, d0";
default ==> "move.l #$1/4, d0";
"lea ($1, sp), a0";
"1:";
"move.l (sp)+, d1";
"and.l d1, (a0)+";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
C_ior
$1 == 4 ==> "move.l (sp)+, d0";
"or.l d0, (sp)".
default ==> "move.l #$1/4-1, d0";
default ==> "move.l #$1/4, d0";
"lea ($1, sp), a0";
"1:";
"move.l (sp)+, d1";
"or.l d1, (a0)+";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
C_xor
$1 == 4 ==> "move.l (sp)+, d0";
"eor.l d0, (sp)".
default ==> "move.l #$1/4-1, d0";
default ==> "move.l #$1/4, d0";
"lea ($1, sp), a0";
"1:";
"move.l (sp)+, d1";
"eor.l d1, (a0)+";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
C_com
$1 == 4 ==> "not.l (sp)".
$1 == 8 ==> "not.l (sp)";
"not.l (4, sp)".
default ==> "move.l #$1/4-1, d0";
default ==> "move.l #$1/4, d0";
"move.l sp, a0";
"1:";
"not.l (a0)+";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
C_rol
$1 == 4 ==> "move.l (sp)+, d0";
@ -735,20 +742,22 @@ C_blm
"move.l (4, a1), (4, a0)".
default ==> "move.l (sp)+, a0";
"move.l (sp)+, a1";
"move.l #$1/4-1, d0";
"move.l #$1/4, d0";
"1:";
"move.l (a1)+, (a0)+";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
C_bls
$1 == 4 ==> "move.l (sp)+, d0";
"move.l (sp)+, a0";
"move.l (sp)+, a1";
"asr.l #2, d1";
"asr.l #2, d0";
"beq 2f";
"1:";
"move.l (a1)+, (a0)+";
"dbf d0, 1b";
"sub.l #1, d0";
"bne 1b";
"2:".
default ==> arg_error( "bls", $1).
@ -771,20 +780,21 @@ C_dup
$1 == 4 ==> "move.l (sp), -(sp)".
$1 == 8 ==> "move.l (4, sp), -(sp)";
"move.l (4, sp), -(sp)".
default ==> "move.l #$1/4-1, d0";
default ==> "move.l #$1/4, d0";
"1:";
"move.l ($1-4, sp), -(sp)";
"dbf d0, 1b".
"sub.l #1, d0";
"bne 1b".
C_dus
$1 == 4 ==> "move.l (sp)+, d0";
"lea (0, sp, d0.l*1), a0";
"asr.l #2, d0";
"beq 2f";
"sub.l #1, d0";
"1:";
"move.l -(a0), -(sp)";
"dbf d0, 1b";
"sub.l #1, d0";
"bne 1b";
"2:".
default ==> arg_error( "dus", $1).