# File: iprdump.src
#

program "@(#) MODULE: iprdump.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/iprdump.src"
descr "  iprdump - Dump IP register list"

display "Executing procedure iprdump."

# ;SETREGS   R3576  6 0xBFFF 0xFF65 16:0xBE000 0x2000L
tcblock mbipldin 0x01B2 0x0DF8 0x0006 0xBFFF 0xFF65 0xE000 \
                 0x800B 0x2000 0x0000

# jump to dmpmem macro
tcblock mbipldin 0x152 0x1E38

wait time 10

return

