program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/runptrk.src"
descr   "runptrk - run ip page write tracking program"

display "Executing procedure runptrk"

tcblock mbdpmod 1

tcblock mbipcmd 0x91   1 0x100

tcblock mbipcmd 0x91   0 0x100
 
tcblock mbipmacl    2 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 0x105 0x105 0x105 0x105
tcblock mbipmacl 9999 0x105 0x105 

perf ptrack6b

# Initialize IP Error Log
tcblock mbipldin 0x1b2 2048 3 0 0x3811 0
tcblock mbipldin 0x1ec 2048

tcblock mbdpflgs 16 0xffff 0    ## Clear IP Error count

tcblock mbipldin 0x134
tcb mbipldin 0x140 188 1
tcb mbsqreg 247 0x7fff

return

