needs arch/core
unit asm/dis
: dis drop ."This platform has no disassembler.\n" ;
alias noop disn
endunit

: realiasall
  "dis" sysdict find# ['] dis realias
  "disn" sysdict find# ['] disn realias ;

isx86? [if]
needs asm/x86d
FAMILY_amd64 instrfamily? to 64bmode
realiasall [then]
FAMILY_arm instrfamily? [if]
needs asm/armd
realiasall [then]
FAMILY_riscv instrfamily? [if]
needs asm/riscvd
realiasall [then]
FAMILY_m68k instrfamily? [if]
needs asm/m68kd
realiasall [then]