# File: docopycb.src
#
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/docopycb.src"
descr  "docopycb - Test circular buffer"

display "Executing procedure  docopycb."

perform copycb

open decom160
tcblock mbipldin 0x152 0x100
wait time 5

for !LI0 = 0 to 13
    tcblock mbipldin 0x152 0x17c
    wait time 5
end for

close decom160

display "Finished procedure docopycb."

return
