\ regs 98.10.7 4:30 pm NAB
needs asm68k

hex

code getregs
  ] dup [
  ffff sp -) .l movem>
  ] drop [
end-code

: #8  <#  8 0 do # loop  #> type ;

decimal

: .regs
  getregs
  base @ >r hex
  2 0 do
    8 0 do
      [char] D j 3 * - emit
      [char] 0  i + emit
      [char] : emit  space #8
      i 1 and if  cr  else  8 spaces  then
    loop
  loop
  r> base ! ;