Diff for /gforth/arch/mips/disasm.fs between versions 1.1 and 1.2

version 1.1, 2000/05/27 19:03:48 version 1.2, 2000/05/28 08:32:55
Line 18 Line 18
 \       along with this program; if not, write to the Free Software  \       along with this program; if not, write to the Free Software
 \       Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  \       Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   
   require arch/mips/asm.fs
   
   : hex.r ( u n -- )
       drop hex. ;
   
 : (disasm-op) ( code -- n )  : (disasm-op) ( code -- n )
     $1a rshift $6 asm-bitmask and ;      $1a rshift $6 asm-bitmask and ;
   
 : disasm-op ( code -- )  : disasm-op ( code -- )
     (disasm-op) 2 swap hexn. space ;      (disasm-op) 2 hex.r space ;
   
 : (disasm-rs) ( code -- n )  : (disasm-rs) ( code -- n )
     $15 rshift $5 asm-bitmask and ;      $15 rshift $5 asm-bitmask and ;
   
 : disasm-rs ( code -- )  : disasm-rs ( code -- )
     (disasm-rs) 2 swap hexn. space ;      (disasm-rs) 2 hex.r space ;
   
 : (disasm-rt) ( code -- n )  : (disasm-rt) ( code -- n )
     $10 rshift $5 asm-bitmask and ;      $10 rshift $5 asm-bitmask and ;
   
 : disasm-rt ( code -- )  : disasm-rt ( code -- )
     (disasm-rt) 2 swap hexn. space ;      (disasm-rt) 2 hex.r space ;
   
 : (disasm-imm) ( code -- n )  : (disasm-imm) ( code -- n )
     $10 asm-bitmask and ;      $10 asm-bitmask and ;
   
 : disasm-imm ( code -- )  : disasm-imm ( code -- )
     (disasm-imm) 4 swap hexn. space ;      (disasm-imm) 4 hex.r space ;
   
 : disasm-addr ( addr code -- n )  : disasm-addr ( addr code -- n )
     (disasm-imm) $2 lshift asm-expand dup 4 swap hexn. space ." ( " + cell+ hex. ." ) " ;      (disasm-imm) $2 lshift asm-expand dup 4 hex.r space ." ( " + cell+ hex. ." ) " ;
   
 : (disasm-target) ( code -- n )  : (disasm-target) ( code -- n )
     $1a asm-bitmask and ;      $1a asm-bitmask and ;
Line 55 Line 60
     $b rshift $5 asm-bitmask and ;      $b rshift $5 asm-bitmask and ;
   
 : disasm-rd ( code -- )  : disasm-rd ( code -- )
     (disasm-rd) 2 swap hexn. space ;      (disasm-rd) 2 hex.r space ;
   
 : (disasm-shamt) ( code -- n )  : (disasm-shamt) ( code -- n )
     $6 rshift $5 asm-bitmask and ;      $6 rshift $5 asm-bitmask and ;
   
 : disasm-shamt ( code -- )  : disasm-shamt ( code -- )
     (disasm-shamt) 2 swap hexn. space ;      (disasm-shamt) 2 hex.r space ;
   
 ' disasm-shamt alias disasm-sa  ' disasm-shamt alias disasm-sa
   
Line 225  $40 2 matrix disasm-opc-cop0 Line 230  $40 2 matrix disasm-opc-cop0
 : illegal-code ( -- ) ;  : illegal-code ( -- ) ;
   
 : disasm-nop ( code -- )  : disasm-nop ( code -- )
     @ 8 swap ." ( " hexn. space ." ) " ;      @ 8 ." ( " hex.r space ." ) " ;
   
 : disasm-init ( xt n -- )  : disasm-init ( xt n -- )
     0 ?do      0 ?do

Removed from v.1.1  
changed lines
  Added in v.1.2


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>