--- gforth/arch/mips/disasm.fs	2000/05/27 19:03:48	1.1
+++ gforth/arch/mips/disasm.fs	2000/07/01 20:48:52	1.10
@@ -18,407 +18,267 @@
 \	along with this program; if not, write to the Free Software
 \	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-: (disasm-op) ( code -- n )
-    $1a rshift $6 asm-bitmask and ;
+\ this disassembler is based on data from the R4400 manual
+\ http://www.mips.com/Documentation/R4400_Uman_book_Ed2.pdf, in
+\ particular pages A3, A181, A182 (p. 471, 649, 650 in xpdf).
+\ it is limited to the R3000 (MIPS-I) architecture, though.
 
-: disasm-op ( code -- )
-    (disasm-op) 2 swap hexn. space ;
+\ test this with
+\ gforth arch/mips/disasm.fs -e "here" arch/mips/testdisasm.fs -e "here over - disasm bye" |sed 's/([^)]*) //'|diff -u - arch/mips/testasm.fs
 
-: (disasm-rs) ( code -- n )
-    $15 rshift $5 asm-bitmask and ;
+get-current
+vocabulary disassembler
+also disassembler definitions
 
-: disasm-rs ( code -- )
-    (disasm-rs) 2 swap hexn. space ;
+\ instruction fields
 
-: (disasm-rt) ( code -- n )
-    $10 rshift $5 asm-bitmask and ;
+: disasm-op ( w -- u )
+    26 rshift ;
 
-: disasm-rt ( code -- )
-    (disasm-rt) 2 swap hexn. space ;
+: disasm-rs ( w -- u )
+    21 rshift $1F and ;
 
-: (disasm-imm) ( code -- n )
-    $10 asm-bitmask and ;
+: disasm-rt ( w -- u )
+    16 rshift $1f and ;
 
-: disasm-imm ( code -- )
-    (disasm-imm) 4 swap hexn. space ;
+: disasm-rd ( w -- u )
+    11 rshift $1f and ;
 
-: disasm-addr ( addr code -- n )
-    (disasm-imm) $2 lshift asm-expand dup 4 swap hexn. space ." ( " + cell+ hex. ." ) " ;
+: disasm-shamt ( w -- u )
+    \ shift amount field
+    6 rshift $1f and ;
 
-: (disasm-target) ( code -- n )
-    $1a asm-bitmask and ;
+: disasm-funct ( w -- u )
+    $3f and ;
 
-: disasm-target ( code -- )
-    (disasm-target) $2 lshift or hex. ;
+: disasm-copz ( w -- u )
+    disasm-op 3 and ;
 
-: (disasm-rd) ( code -- n )
-    $b rshift $5 asm-bitmask and ;
+: disasm-uimm ( w -- u )
+    $ffff and ;
 
-: disasm-rd ( code -- )
-    (disasm-rd) 2 swap hexn. space ;
+: disasm-imm ( w -- n )
+    disasm-uimm dup 15 rshift negate 15 lshift or ;
 
-: (disasm-shamt) ( code -- n )
-    $6 rshift $5 asm-bitmask and ;
+: disasm-relative ( addr n -- w )
+    \ compute printable form of relative address n relative to addr
+    2 lshift nip ( + ) ;
 
-: disasm-shamt ( code -- )
-    (disasm-shamt) 2 swap hexn. space ;
+\ decode tables
 
-' disasm-shamt alias disasm-sa
+: disasm-illegal ( addr w -- )
+    \ disassemble illegal/unknown instruction w at addr
+    hex. ." , ( illegal inst ) " drop ;
 
-: disasm-funct ( code -- n )
-    $6 asm-bitmask and ;
-
-\ ***** I-types
-: disasm-I-rt,imm ( addr -- )
-    @ dup disasm-rt disasm-imm ;
-
-: disasm-I-rs,imm ( addr -- )
-    dup @ dup disasm-rs disasm-addr ;
-
-: disasm-I-rt,rs,imm ( addr -- )
-    @ dup disasm-rt dup disasm-rs disasm-imm ;
-
-: disasm-I-rs,rt,imm ( addr -- )
-    dup @ dup disasm-rs dup disasm-rt disasm-addr ;
-
-: disasm-I-rt,offset,rs ( addr -- )
-    @ dup disasm-rt dup disasm-imm disasm-rs ;
-
-\ ***** regimm types
-' disasm-I-rs,imm alias disasm-regimm-rs,imm
-
-\ ***** copz types 1
-: disasm-copz-imm ( addr -- )
-    dup @ dup disasm-addr disasm-op ;
-
-: disasm-copz-rt,offset,rs,z ( addr -- )
-    @ dup disasm-rt dup disasm-imm
-    dup disasm-rs disasm-op ;
-
-\ ***** J-types
-: disasm-J-target ( addr -- )
-    dup $fc000000 and swap @ disasm-target ;
-
-\ ***** R-types
-: disasm-R-nothing ( addr -- )
-    @ hex. ;
-
-: disasm-R-rd ( addr -- )
-    @ disasm-rd ;
-
-: disasm-R-rs ( addr -- )
-    @ disasm-rs ;
-
-: disasm-R-rd,rs ( addr -- )
-    @ dup disasm-rd disasm-rs ;
-
-: disasm-R-rs,rt ( addr -- )
-    @ dup disasm-rs disasm-rt ;
-
-: disasm-R-rd,rs,rt ( addr -- )
-    @ dup disasm-rd dup disasm-rs disasm-rt ;
-
-: disasm-R-rd,rt,rs ( addr -- )
-    @ dup disasm-rd dup disasm-rt disasm-rs ;
-
-: disasm-R-rd,rt,sa ( addr -- )
-    @ dup disasm-rd dup disasm-rt disasm-sa ;
-
-\ ***** special types
-' disasm-R-nothing	alias disasm-special-nothing
-' disasm-R-rd		alias disasm-special-rd
-' disasm-R-rs		alias disasm-special-rs
-' disasm-R-rd,rs	alias disasm-special-rd,rs
-' disasm-R-rs,rt	alias disasm-special-rs,rt
-' disasm-R-rd,rs,rt	alias disasm-special-rd,rs,rt
-' disasm-R-rd,rt,rs	alias disasm-special-rd,rt,rs
-' disasm-R-rd,rt,sa	alias disasm-special-rd,rt,sa
-
-\ ***** copz types 2
-: disasm-cop0 ( addr -- )
-    @ disasm-rs ;
-
-: disasm-copz-rt,rd ( addr -- )
-    @ dup disasm-rt dup disasm-rd disasm-op ;
-
-$40 2 matrix disasm-opc
-$40 2 matrix disasm-opc-special
-$20 2 matrix disasm-opc-regimm
-$20 2 matrix disasm-opc-copzrs
-$20 2 matrix disasm-opc-copzrt
-$40 2 matrix disasm-opc-cop0
-
-: (disasm-print) ( addr n addr -- )
-    >r dup 1 r@ [ 1 -2 wword-regs-adjust ] execute @ rot swap [ 0 -1 wword-regs-adjust ] execute
-    0 r> [ 1 -2 wword-regs-adjust ] execute @ name. ;
-
-: disasm-print ( addr -- )
-    dup @ if
-	dup @ (disasm-op)
-	dup 0 disasm-opc @ NIL <> if
-	    ['] disasm-opc (disasm-print)
-	else
-	    1 disasm-opc @ [ 0 -1 wword-regs-adjust ] execute
-	endif
-    else
-	drop ['] nop, name.
-    endif ;
-
-: disasm-dump ( addr count -- )
-    cr
-    over + swap ?do
-	i ." ( " dup hex. ." , " dup @ hex. ." ) " disasm-print cr
-    4 +loop ;
-
-: (disasm-gen) ( name func n addr -- )
-    >r tuck 1 r@ [ 1 -2 wword-regs-adjust ] execute !
-    0 r> [ 1 -2 wword-regs-adjust ] execute ! ;
-
-: disasm-gen ( name func n -- )
-    ['] disasm-opc (disasm-gen) ;
-
-: disasm-print-special ( addr -- )
-    dup @ disasm-funct ['] disasm-opc-special (disasm-print) ;
-
-: disasm-gen-special ( name func n -- )
-    ['] disasm-opc-special (disasm-gen) ;
-
-: disasm-print-regimm ( addr -- )
-    dup @ (disasm-rt) ['] disasm-opc-regimm (disasm-print) ;
-
-: disasm-gen-regimm ( name func n -- )
-    ['] disasm-opc-regimm (disasm-gen) ;
-
-: disasm-print-copzrs ( addr -- )
-    dup @ (disasm-rs)
-    dup 0 disasm-opc-copzrs @ NIL <> if
-	['] disasm-opc-copzrs (disasm-print)
-    else
-	1 disasm-opc-copzrs @
-	[ 0 -1 wword-regs-adjust ]
-	execute
-    endif ;
-
-: disasm-gen-copzrs ( name func n -- )
-    ['] disasm-opc-copzrs (disasm-gen) ;
-
-: disasm-print-copzrt ( addr -- )
-    dup @ (disasm-rt) ['] disasm-opc-copzrt (disasm-print) ;
-
-: disasm-gen-copzrt ( name func n -- )
-    ['] disasm-opc-copzrt (disasm-gen) ;
-
-: disasm-print-copzi ( addr -- )
-    dup @ (disasm-rs) ['] disasm-opc-copzrs (disasm-print) ;
+: disasm-table ( n "name" -- )
+    \ initialize table with n entries with disasm-illegal
+    create 0 ?do
+	['] disasm-illegal ,
+    loop
+does> ( u -- addr )
+    swap cells + ;
 
-: disasm-gen-copzi ( name func n -- )
-    >r 2dup r@ 1+ disasm-gen
-    2dup r@ 2 + disasm-gen
-    r> 3 + disasm-gen ;
+$40 disasm-table opc-tab-entry     \ top-level decode table
+$40 disasm-table funct-tab-entry   \ special function table
+$20 disasm-table regimm-tab-entry  \ regim instructions rt table
+$20 disasm-table copz-rs-tab-entry \ COPz instructions rs table
+$20 disasm-table copz-rt-tab-entry \ COPz BC instructions rt table
+$40 disasm-table cp0-tab-entry     \ COP0 CO instructions funct table
+
+\ disassembler central decode cascade
+
+dup set-current
+
+: disasm-inst ( addr w -- )
+    \G disassemble instruction w at addr (addr is used for computing
+    \G branch targets)
+    dup disasm-op opc-tab-entry @ execute ;
+
+: disasm ( addr u -- ) \ gforth
+    \G disassemble u aus starting at addr
+    bounds u+do
+	cr ." ( " i hex. ." ) " i i @ disasm-inst
+	1 cells +loop
+    cr ;
+
+' disasm IS discode
+
+definitions
+
+: disasm-special ( addr w -- )
+    \ disassemble inst with opcode special
+    dup disasm-funct funct-tab-entry @ execute ;
+' disasm-special 0 opc-tab-entry ! \ enter it for opcode special
+
+: disasm-regimm ( addr w -- )
+    \ disassemble regimm inst
+    dup disasm-rt regimm-tab-entry @ execute ;
+' disasm-regimm 1 opc-tab-entry ! \ enter it for opcode regimm
+
+: disasm-copz-rs ( addr w -- )
+    \ disassemble inst with opcode COPz
+    dup disasm-rs copz-rs-tab-entry @ execute ;
+' disasm-copz-rs $10 opc-tab-entry ! \ enter it for opcodes COPz
+' disasm-copz-rs $11 opc-tab-entry !
+' disasm-copz-rs $12 opc-tab-entry !
+
+: disasm-copz-rt ( addr w -- )
+    \ disassemble inst with opcode COPz, rs=BC
+    dup disasm-rt copz-rt-tab-entry @ execute ;
+' disasm-copz-rt $08 copz-rs-tab-entry ! \ into COPz-table for rs=BC
+
+: disasm-cp0 ( addr w -- )
+    \ disassemble inst with opcode COPz, rs=CO
+    dup disasm-funct cp0-tab-entry @ execute ;
+' disasm-cp0 $10 copz-rs-tab-entry ! \ into COPz-table for rs=CO
+
+\ dummy words for insts.fs (words with these names are needed by asm.fs)
+
+: asm-op ( -- ) ;
+: asm-rs ( -- ) ;
+: asm-rt ( -- ) ;
+
+\ disassemble various formats
+
+: disasm-J-target ( addr w -- )
+    \ print jump target
+    2 lshift $0fffffff and swap $f0000000 and or hex. ;
+
+: disasm-I-rs,rt,imm ( addr w -- )
+    dup disasm-rs .
+    dup disasm-rt .
+    disasm-imm disasm-relative . ;
+
+: disasm-I-rs,imm ( addr w -- )
+    dup disasm-rs .
+    disasm-imm disasm-relative . ;
+
+: disasm-rt,rs,imm ( addr w -- )
+    dup disasm-rt .
+    dup disasm-rs .
+    disasm-imm .
+    drop ;
 
-: disasm-print-cop0 ( addr -- )
-    dup @ disasm-funct ['] disasm-opc-cop0 (disasm-print) ;
+: disasm-rt,rs,uimm ( addr w -- )
+    dup disasm-rt .
+    dup disasm-rs .
+    disasm-uimm hex.
+    drop ;
 
-: disasm-gen-cop0 ( name func n -- )
-    ['] disasm-opc-cop0 (disasm-gen) ;
+: disasm-rt,uimm ( addr w -- )
+    dup disasm-rt .
+    disasm-uimm hex.
+    drop ;
 
-: illegal-code ( -- ) ;
+: disasm-rt,imm,rs ( addr w -- )
+    dup disasm-rt .
+    dup disasm-imm .
+    dup disasm-rs .
+    2drop ;
+
+: disasm-rd,rt,sa ( addr w -- )
+    dup disasm-rd .
+    dup disasm-rt .
+    dup disasm-shamt .
+    2drop ;
+
+: disasm-rd,rt,rs ( addr w -- )
+    dup disasm-rd .
+    dup disasm-rt .
+    dup disasm-rs .
+    2drop ;
+
+: disasm-rs. ( addr w -- )
+    dup disasm-rs .
+    2drop ;
+
+: disasm-rd,rs ( addr w -- )
+    dup disasm-rd .
+    dup disasm-rs .
+    2drop ;
+
+: disasm-rd. ( addr w -- )
+    dup disasm-rd .
+    2drop ;
+
+: disasm-rs,rt ( addr w -- )
+    dup disasm-rs .
+    dup disasm-rt .
+    2drop ;
+
+: disasm-rd,rs,rt ( addr w -- )
+    dup disasm-rd .
+    dup disasm-rs .
+    dup disasm-rt .
+    2drop ;
+
+: disasm-rt,rd,z ( addr w -- )
+    dup disasm-rt .
+    dup disasm-rd .
+    dup disasm-copz .
+    2drop ;
+
+: disasm-I-imm,z ( addr w -- )
+    tuck disasm-imm disasm-relative .
+    disasm-copz . ;
+
+\ meta-defining word for instruction format disassembling definitions
+
+\ The following word defines instruction-format words, which in turn
+\ define anonymous words for disassembling specific instructions and
+\ put them in the appropriate decode table.
+
+: define-format ( disasm-xt table-xt -- )
+    \ define an instruction format that uses disasm-xt for
+    \ disassembling and enters the defined instructions into table
+    \ table-xt
+    create 2,
+does> ( u "inst" -- )
+    \ defines an anonymous word for disassembling instruction inst,
+    \ and enters it as u-th entry into table-xt
+    2@ swap here name string, ( u table-xt disasm-xt c-addr ) \ remember string
+    noname create 2,      \ define anonymous word
+    execute lastxt swap ! \ enter xt of defined word into table-xt
+does> ( addr w -- )
+    \ disassemble instruction w at addr
+    2@ >r ( addr w disasm-xt R: c-addr )
+    execute ( R: c-addr ) \ disassemble operands
+    r> count type ; \ print name 
+
+\ all the following words have the stack effect ( u "name" )
+' disasm-J-target    ' opc-tab-entry 	 define-format asm-J-target
+' 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-rt,rs,imm   ' opc-tab-entry 	 define-format asm-I-rt,rs,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-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-rs.         ' funct-tab-entry 	 define-format asm-special-rs
+' disasm-rd,rs       ' funct-tab-entry 	 define-format asm-special-rd,rs
+' 2drop              ' funct-tab-entry 	 define-format asm-special-nothing
+' disasm-rd.         ' funct-tab-entry 	 define-format asm-special-rd
+' disasm-rs,rt       ' funct-tab-entry 	 define-format asm-special-rs,rt
+' disasm-rd,rs,rt    ' funct-tab-entry 	 define-format asm-special-rd,rs,rt
+' disasm-I-rs,imm    ' regimm-tab-entry  define-format asm-regimm-rs,imm
+' 2drop              ' cp0-tab-entry     define-format asm-copz0
+' disasm-rt,rd,z     ' copz-rs-tab-entry define-format asm-copz-rt,rd1
+' disasm-I-imm,z     ' copz-rt-tab-entry define-format asm-copz-imm1
+
+: asm-I-rs,imm ( u1 u2 "name" -- ; compiled code: addr w -- )
+    nip asm-I-rs,imm1 ;
+
+: asm-copz-rt,rd ( u1 u2 "name" -- )
+    drop asm-copz-rt,rd1 ;
+
+: asm-copz-rt,offset,rs ( u "name" -- )
+    \ ignore these insts, we disassemble using  asm-I-rt,offset,rs
+    drop name 2drop ;
 
-: disasm-nop ( code -- )
-    @ 8 swap ." ( " hexn. space ." ) " ;
+: asm-copz-imm ( u1 u2 u3 "name" -- )
+    drop nip asm-copz-imm1 ;
 
-: disasm-init ( xt n -- )
-    0 ?do
-	['] illegal-code ['] disasm-nop i 3 pick
-	[ 0 -3 wword-regs-adjust ] execute
-    loop
-    drop ;
-' disasm-gen $40 disasm-init
-' disasm-gen-special $40 disasm-init
-' disasm-gen-regimm $20 disasm-init
-' disasm-gen-copzrs $20 disasm-init
-' disasm-gen-copzrt $20 disasm-init
-' disasm-gen-cop0 $40 disasm-init
-NIL ' disasm-print-special $00 disasm-gen
-NIL ' disasm-print-regimm $01 disasm-gen
-NIL ' disasm-print-cop0 $10 disasm-gen
-NIL ' disasm-print-copzrs $11 disasm-gen
-NIL ' disasm-print-copzrs $12 disasm-gen
-NIL ' disasm-print-copzrs $13 disasm-gen
-NIL ' disasm-print-copzrt asm-copz-BC disasm-gen-copzrs
-
-' beq,		' disasm-I-rs,rt,imm $04 disasm-gen
-' bne,		' disasm-I-rs,rt,imm $05 disasm-gen
-' blez,		' disasm-I-rs,imm $06 disasm-gen
-' bgtz,		' disasm-I-rs,imm $07 disasm-gen
-' addi,		' disasm-I-rt,rs,imm $08 disasm-gen
-' addiu,	' disasm-I-rt,rs,imm $09 disasm-gen
-' slti,		' disasm-I-rt,rs,imm $0a disasm-gen
-' sltiu,	' disasm-I-rt,rs,imm $0b disasm-gen
-' andi,		' disasm-I-rt,rs,imm $0c disasm-gen
-' ori,		' disasm-I-rt,rs,imm $0d disasm-gen
-' xori,		' disasm-I-rt,rs,imm $0e disasm-gen
-' lui,		' disasm-I-rt,imm $0f disasm-gen
-' lb,		' disasm-I-rt,offset,rs $20 disasm-gen
-' lh,		' disasm-I-rt,offset,rs $21 disasm-gen
-' lwl,		' disasm-I-rt,offset,rs $22 disasm-gen
-' lw,		' disasm-I-rt,offset,rs $23 disasm-gen
-' lbu,		' disasm-I-rt,offset,rs $24 disasm-gen
-' lhu,		' disasm-I-rt,offset,rs $25 disasm-gen
-' lwr,		' disasm-I-rt,offset,rs $26 disasm-gen
-' sb,		' disasm-I-rt,offset,rs $28 disasm-gen
-' sh,		' disasm-I-rt,offset,rs $29 disasm-gen
-' swl,		' disasm-I-rt,offset,rs $2a disasm-gen
-' sw,		' disasm-I-rt,offset,rs $2b disasm-gen
-' swr,		' disasm-I-rt,offset,rs $2e disasm-gen
-
-' j,		' disasm-J-target $02 disasm-gen
-' jal,		' disasm-J-target $03 disasm-gen
-
-' sll,		' disasm-special-rd,rt,sa $00 disasm-gen-special
-' srl,		' disasm-special-rd,rt,sa $02 disasm-gen-special
-' sra,		' disasm-special-rd,rt,sa $03 disasm-gen-special
-' sllv,		' disasm-special-rd,rt,rs $04 disasm-gen-special
-' srlv,		' disasm-special-rd,rt,rs $06 disasm-gen-special
-' srav,		' disasm-special-rd,rt,rs $07 disasm-gen-special
-' jr,		' disasm-special-rs $08 disasm-gen-special
-' jalr,		' disasm-special-rd,rs $09 disasm-gen-special
-' syscall,	' disasm-special-nothing $0c disasm-gen-special
-' break,	' disasm-special-nothing $0d disasm-gen-special
-' mfhi,		' disasm-special-rd $10 disasm-gen-special
-' mthi,		' disasm-special-rs $11 disasm-gen-special
-' mflo,		' disasm-special-rd $12 disasm-gen-special
-' mtlo,		' disasm-special-rs $13 disasm-gen-special
-' mult,		' disasm-special-rs,rt $18 disasm-gen-special
-' multu,	' disasm-special-rs,rt $19 disasm-gen-special
-' div,		' disasm-special-rs,rt $1a disasm-gen-special
-' divu,		' disasm-special-rs,rt $1b disasm-gen-special
-' add,		' disasm-special-rd,rs,rt $20 disasm-gen-special
-' addu,		' disasm-special-rd,rs,rt $21 disasm-gen-special
-' sub,		' disasm-special-rd,rs,rt $22 disasm-gen-special
-' subu,		' disasm-special-rd,rs,rt $23 disasm-gen-special
-' and,		' disasm-special-rd,rs,rt $24 disasm-gen-special
-' or,		' disasm-special-rd,rs,rt $25 disasm-gen-special
-' xor,		' disasm-special-rd,rs,rt $26 disasm-gen-special
-' nor,		' disasm-special-rd,rs,rt $27 disasm-gen-special
-' slt,		' disasm-special-rd,rs,rt $2a disasm-gen-special
-' sltu,		' disasm-special-rd,rs,rt $2b disasm-gen-special
-
-' bltz,		' disasm-regimm-rs,imm $00 disasm-gen-regimm
-' bgez,		' disasm-regimm-rs,imm $01 disasm-gen-regimm
-' bltzal,	' disasm-regimm-rs,imm $10 disasm-gen-regimm
-' bgezal,	' disasm-regimm-rs,imm $11 disasm-gen-regimm
-
-' lwcz,		' disasm-copz-rt,offset,rs,z $30 disasm-gen-copzi
-' swcz,		' disasm-copz-rt,offset,rs,z $38 disasm-gen-copzi
-' mfcz,		' disasm-copz-rt,rd asm-copz-MF disasm-gen-copzrs
-' cfcz,		' disasm-copz-rt,rd asm-copz-CF disasm-gen-copzrs
-' mtcz,		' disasm-copz-rt,rd asm-copz-MT disasm-gen-copzrs
-' ctcz,		' disasm-copz-rt,rd asm-copz-CT disasm-gen-copzrs
-' bczf,		' disasm-copz-imm asm-copz-BCF disasm-gen-copzrt
-' bczt,		' disasm-copz-imm asm-copz-BCT disasm-gen-copzrt
-' tlbr,		' disasm-cop0 $01 disasm-gen-cop0
-' tlbwi,	' disasm-cop0 $02 disasm-gen-cop0
-' tlbwr,	' disasm-cop0 $06 disasm-gen-cop0
-' tlbl,		' disasm-cop0 $08 disasm-gen-cop0
-
-?test $0800 [IF]
-cr ." Test for disasm..fs" cr
-
-: gen ( coden ... code0 n -- )
-    0 ?do
-	a,
-    loop ;
-
-here
-$00210820 $00000820 $00200020 $00010020 $03fff820 5 gen
-$20210001 $20010000 $20200000 $20000001 $23ffffff 5 gen
-$24210001 $24010000 $24200000 $24000001 $27ffffff 5 gen
-$00210821 $00000821 $00200021 $00010021 $03fff821 5 gen
-$00210824 $00000824 $00200024 $00010024 $03fff824 5 gen
-$30210001 $30010000 $30200000 $30000001 $33ffffff 5 gen
-$45000001 $4500ffff 2 gen
-$45010001 $4501ffff 2 gen
-$10210001 $10200000 $10010000 $10000001 $13ffffff 5 gen
-$04210001 $04210000 $04010001 $07e1ffff 4 gen
-$04310001 $04310000 $04110001 $07f1ffff 4 gen
-$1c200001 $1c200000 $1c000001 $1fe0ffff 4 gen
-$18200001 $18200000 $18000001 $1be0ffff 4 gen
-$04200001 $04200000 $04000001 $07e0ffff 4 gen
-$04300001 $04300000 $04100001 $07f0ffff 4 gen
-$14210001 $14200000 $14010000 $14000001 $17ffffff 5 gen
-$0000000d 1 gen
-$44410800 $44410000 $44400800 $445ff800 4 gen
-$44c10800 $44c10000 $44c00800 $44dff800 4 gen
-$0021001a $0020001a $0001001a $03ff001a 4 gen
-$0021001b $0020001b $0001001b $03ff001b 4 gen
-$08000001 $0bffffff 2 gen
-$0c000001 $0fffffff 2 gen
-$00200809 $00000809 $00200009 $03e0f809 4 gen
-$00200008 $03e00008 2 gen
-$80210001 $80010000 $80000001 $80200000 $83ffffff 5 gen
-$90210001 $90010000 $90000001 $90200000 $93ffffff 5 gen
-$84210001 $84010000 $84000001 $84200000 $87ffffff 5 gen
-$94210001 $94010000 $94000001 $94200000 $97ffffff 5 gen
-$3c010001 $3c010000 $3c000001 $3c1fffff 4 gen
-$8c210001 $8c010000 $8c000001 $8c200000 $8fffffff 5 gen
-$c4210001 $c4010000 $c4000001 $c4200000 $c7ffffff 5 gen
-$88210001 $88010000 $88000001 $88200000 $8bffffff 5 gen
-$98210001 $98010000 $98000001 $98200000 $9bffffff 5 gen
-$44010800 $44010000 $44000800 $441ff800 4 gen
-$00000810 $0000f810 2 gen
-$00000812 $0000f812 2 gen
-$44810800 $44810000 $44800800 $449ff800 4 gen
-$00200011 $03e00011 2 gen
-$00200013 $03e00013 2 gen
-$00210018 $00200018 $00010018 $03ff0018 4 gen
-$00210019 $00200019 $00010019 $03ff0019 4 gen
-$00210827 $00000827 $00200027 $00010027 $03fff827 5 gen
-$00210825 $00000825 $00200025 $00010025 $03fff825 5 gen
-$34210001 $34010000 $34200000 $34000001 $37ffffff 5 gen
-$a0210001 $a0010000 $a0000001 $a0200000 $a3ffffff 5 gen
-$a4210001 $a4010000 $a4000001 $a4200000 $a7ffffff 5 gen
-$0021082a $0000082a $0020002a $0001002a $03fff82a 5 gen
-$28210001 $28010000 $28200000 $28000001 $2bffffff 5 gen
-$2c210001 $2c010000 $2c200000 $2c000001 $2fffffff 5 gen
-$0021082b $0000082b $0020002b $0001002b $03fff82b 5 gen
-$00210822 $00000822 $00200022 $00010022 $03fff822 5 gen
-$00210823 $00000823 $00200023 $00010023 $03fff823 5 gen
-$ac210001 $ac010000 $ac000001 $ac200000 $afffffff 5 gen
-$e4210001 $e4010000 $e4000001 $e4200000 $e7ffffff 5 gen
-$a8210001 $a8010000 $a8000001 $a8200000 $abffffff 5 gen
-$b8210001 $b8010000 $b8000001 $b8200000 $bbffffff 5 gen
-$0000000c 1 gen
-$42000008 1 gen
-$42000001 1 gen
-$42000002 1 gen
-$42000006 1 gen
-$00210826 $00000826 $00200026 $00010026 $03fff826 5 gen
-$38210001 $38010000 $38200000 $38000001 $3bffffff 5 gen
-
-$00200821 $00000821 $00200021 $03e0f821 4 gen
-$00010822 $00200821 $04210002 $00000822 $00000821 $04010002
-$00010022 $00200021 $04210002 $001ff822 $03e0f821 $07e10002 12 gen
-$00010822 $00000822 $00010022 $001ff822 4 gen
-$00010823 $00000823 $00010023 $001ff823 4 gen
-$00200827 $00000827 $00200027 $03e0f827 4 gen
-$14200001 $0021082a $14200000 $0020082a $14200000 $0001082a
-$14200001 $0000082a $1420ffff $03ff082a 10 gen
-$10200001 $0021082a $10200000 $0001082a $10200000 $0020082a
-$10200001 $0000082a $1020ffff $03ff082a 10 gen
-$14200001 $0021082a $14200000 $0001082a $14200000 $0020082a
-$14200001 $0000082a $1420ffff $03ff082a 10 gen
-$10200001 $0021082b $10200000 $0020082b $10200000 $0001082b
-$10200001 $0000082b $1020ffff $03ff082b 10 gen
-$14200001 $0021082b $14200000 $0020082b $14200000 $0001082b
-$14200001 $0000082b $1420ffff $03ff082b 10 gen
-$10200001 $0021082b $10200000 $0001082b $10200000 $0020082b
-$10200001 $0000082b $1020ffff $03ff082b 10 gen
-$14200001 $0021082b $14200000 $0001082b $14200000 $0020082b
-$14200001 $0000082b $1420ffff $03ff082b 10 gen
-$10200001 $0021082b $10200000 $0020082b $10200000 $0001082b
-$10200001 $0000082b $1020ffff $03ff082b 10 gen
-here over - disasm-dump
+include ./insts.fs
 
-finish
-[THEN]
+previous set-current