# File: copyff12to10.src
#
#	Copy only 640 lines of the flat field in page 12 to
#	a backup holding area in page 10
#

program "@(#) MODULE: copyff.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/dev/src/copyff12to10.src"
descr "copyff10to12 - Copy Flat Field Data from Page 12 to 10"

display "Executing procedure copyff12to10."

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

display "Finished procedure copyff12to10: %s" !TIME

return

