[BACK]Return to disasm.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / arch / mips

Diff for /gforth/arch/mips/disasm.fs between versions 1.4 and 1.5

version 1.4, 2000/06/02 12:47:36 version 1.5, 2000/06/02 19:20:19
Line 47 Line 47
 : disasm-copz ( w -- u )  : disasm-copz ( w -- u )
     disasm-op 3 and ;      disasm-op 3 and ;
   
   : disasm-uimm ( w -- u )
       $ffff and ;
   
 : disasm-imm ( w -- n )  : disasm-imm ( w -- n )
     $ffff and dup 15 rshift negate 15 lshift or ;      disasm-uimm dup 15 rshift negate 15 lshift or ;
   
 : 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
Line 142  $40 disasm-table cp0-tab-entry     \ COP Line 145  $40 disasm-table cp0-tab-entry     \ COP
     disasm-imm .      disasm-imm .
     drop ;      drop ;
   
 : disasm-rt,imm ( addr w -- )  : disasm-rt,rs,uimm ( addr w -- )
     dup disasm-rt .      dup disasm-rt .
     disasm-imm .      dup disasm-rs .
       disasm-uimm hex.
       drop ;
   
   : disasm-rt,uimm ( addr w -- )
       dup disasm-rt .
       disasm-uimm hex.
     drop ;      drop ;
   
 : disasm-rt,imm,rs ( addr w -- )  : disasm-rt,imm,rs ( addr w -- )
Line 195  $40 disasm-table cp0-tab-entry     \ COP Line 204  $40 disasm-table cp0-tab-entry     \ COP
     dup disasm-copz .      dup disasm-copz .
     2drop ;      2drop ;
   
 : disasm-I-imm ( addr w -- )  : disasm-I-imm,z ( addr w -- )
     disasm-imm disasm-relative . ;      tuck disasm-imm disasm-relative .
       disasm-copz . ;
   
 \ meta-defining word for instruction format disassembling definitions  \ meta-defining word for instruction format disassembling definitions
   
Line 226  does> ( addr w -- ) Line 236  does> ( addr w -- )
 ' disasm-I-rs,rt,imm ' opc-tab-entry     define-format asm-I-rs,rt,imm  ' disasm-I-rs,rt,imm ' opc-tab-entry     define-format asm-I-rs,rt,imm
 ' disasm-I-rs,imm    ' opc-tab-entry     define-format asm-I-rs,imm1  ' disasm-I-rs,imm    ' opc-tab-entry     define-format asm-I-rs,imm1
 ' disasm-rt,rs,imm   ' opc-tab-entry     define-format asm-I-rt,rs,imm  ' disasm-rt,rs,imm   ' opc-tab-entry     define-format asm-I-rt,rs,imm
 ' disasm-rt,imm      ' opc-tab-entry     define-format asm-I-rt,imm  ' disasm-rt,rs,uimm   ' opc-tab-entry    define-format asm-I-rt,rs,uimm
   ' disasm-rt,uimm      ' opc-tab-entry    define-format asm-I-rt,uimm
 ' disasm-rt,imm,rs   ' opc-tab-entry     define-format asm-I-rt,offset,rs  ' disasm-rt,imm,rs   ' opc-tab-entry     define-format asm-I-rt,offset,rs
 ' disasm-rd,rt,sa    ' funct-tab-entry   define-format asm-special-rd,rt,sa  ' disasm-rd,rt,sa    ' funct-tab-entry   define-format asm-special-rd,rt,sa
 ' disasm-rd,rt,rs    ' funct-tab-entry   define-format asm-special-rd,rt,rs  ' disasm-rd,rt,rs    ' funct-tab-entry   define-format asm-special-rd,rt,rs
Line 239  does> ( addr w -- ) Line 250  does> ( addr w -- )
 ' disasm-I-rs,imm    ' regimm-tab-entry  define-format asm-regimm-rs,imm  ' disasm-I-rs,imm    ' regimm-tab-entry  define-format asm-regimm-rs,imm
 ' 2drop              ' cp0-tab-entry     define-format asm-copz0  ' 2drop              ' cp0-tab-entry     define-format asm-copz0
 ' disasm-rt,rd,z     ' copz-rs-tab-entry define-format asm-copz-rt,rd1  ' disasm-rt,rd,z     ' copz-rs-tab-entry define-format asm-copz-rt,rd1
 ' disasm-I-imm       ' copz-rt-tab-entry define-format asm-copz-imm1  ' disasm-I-imm,z     ' copz-rt-tab-entry define-format asm-copz-imm1
   
 : asm-I-rs,imm ( u1 u2 "name" -- ; compiled code: addr w -- )  : asm-I-rs,imm ( u1 u2 "name" -- ; compiled code: addr w -- )
     nip asm-I-rs,imm1 ;      nip asm-I-rs,imm1 ;
Removed from v.1.4  
changed lines
  Added in v.1.5

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