gforth/arch/mips/disasm.fs - diff

Return to disasm.fs CVS log

Up to [gforth] / gforth / arch / mips

version 1.5, 2000/06/02 19:20:19	version 1.7, 2000/06/03 09:59:08
Line 20	Line 20

\ this disassembler is based on data from the R4400 manual	\ this disassembler is based on data from the R4400 manual
\ http://www.mips.com/Documentation/R4400_Uman_book_Ed2.pdf, in	\ http://www.mips.com/Documentation/R4400_Uman_book_Ed2.pdf, in
\ particular pages A3,A181,A182 (offset 468 pages in xpdf).	\ particular pages A3, A181, A182 (p. 471, 649, 650 in xpdf).
\ it is limited to the R3000 (MIPS-I) architecture, though.	\ it is limited to the R3000 (MIPS-I) architecture, though.

	\ test this with
	\ gforth arch/mips/disasm.fs -e "here" arch/mips/testdisasm.fs -e "here over - disasm-dump bye" \|sed 's/([^)]*) //'\|diff -u - arch/mips/testasm.fs

\ instruction fields	\ instruction fields

: disasm-op ( w -- u )	: disasm-op ( w -- u )
Line 55	Line 58

: disasm-relative ( addr n -- w )	: disasm-relative ( addr n -- w )
\ compute printable form of relative address n relative to addr	\ compute printable form of relative address n relative to addr
nip ( + ) ;	2 lshift nip ( + ) ;

\ decode tables	\ decode tables

Line 128 $40 disasm-table cp0-tab-entry \ COP	Line 131 $40 disasm-table cp0-tab-entry \ COP

: disasm-J-target ( addr w -- )	: disasm-J-target ( addr w -- )
\ print jump target	\ print jump target
$3ffffff and swap $fc000000 and or hex. ;	2 lshift $0fffffff and swap $f0000000 and or hex. ;

: disasm-I-rs,rt,imm ( addr w -- )	: disasm-I-rs,rt,imm ( addr w -- )
dup disasm-rs .	dup disasm-rs .