# File: copyff10to10.src
#
#	Copy the backup 640 lines of the flat field in page 10
#	back to page 10 in the proper location.  Uses page 17
#	as an intermediate page
#

program "@(#) MODULE: copyff.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/copyff10to10.src"
descr "copyff10to10 - Move Flat Field Data within page 10"

display "Executing procedure copyff10to10."

tcblock mbipldin 0x1b2 3500 6 0 0x5008  0 0x8803 0 0x0a
tcblock mbipldin 0x166 3500

tcblock mbipldin 0x1b2 3500 6 0 0x8803  0 0x5003 0 0x0a
tcblock mbipldin 0x166 3500

display "Finished procedure copyff10to10: %s" !TIME

return

