# File: doirbin.src
#
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/doirbin.src"
descr  "doirbin - load and test IR bin instruction"

display "Executing procedure doirbin."

perform  ld_irbin_v01
perform  irbin_v01
perform  irpat_v01

open decom160
tcblock mbipldin 0x152 0x100
wait time 30
tcblock mbipldin 0x152 0x13b
wait time 10
tcblock mbipldin 0x152 0x157
wait time  5
close decom160

display "Finished procedure doirbin"
return
