: my-w@ ( offset -- w ) my-space + " config-w@" $call-parent ; : my-w! ( w offset -- ) my-space + " config-w!" $call-parent ; : map-regs ( -- ) 0 0 my-space h# 0100.0010 + h# 10 " map-in" $call-parent to regs 4 my-w@ 1 or 4 my-w! ; : unmap-regs ( -- ) regs h# 10 " map-out" $call-parent 4 my-w@ 1 invert and 4 my-w! ; : probe ( -- ) map-regs set-reg-property unmap-regs ;
XKEK with KCV C57E89FFB9... in key domain A346FC483C
C57E89FF...