\ Forth sript to dump Pegasos2 VIA PM registers
fe000f00 80 dump
d# 1000 ms
fe000f00 80 dump
d# 1000 ms
fe000f00 80 dump
d# 1000 ms
fe000f00 80 dump
cr
\ word access:
fe000f00 40 0 do
  i 8 mod 0= if cr then
  dup w@ 0
  over 1000 < if 1+ then
  over 100 < if 1+ then
  over 10 < if 1+ then
  0 ?do
    20 emit
  loop
  . 2+
loop
cr
\ longword access:
fe000f00 80 ldump