\ 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 ! ;