# File: init_fftbl12.src
#

program "@(#) MODULE: init_fftbl.src RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/init_fftbl12_v01.src"
descr "  init_fftbl12 - Initialize Flat Field Table in Page 12"

display "Executing procedure init_fftbl12."

#   Initialize 8-byte EDAC page (12) for flat field
tcb mbipldin 0x118 0x6000 0x90

#    FILLBLK 13:0x000000 0x100000L 0x4000
tcblock mbipldin 0x016C 0x0000 0x6800 0x0000 0x0010 0x4000

#    SETREGS  R1016 6  13:0x000000  12:0x000000  0x100000L
tcblock mbipldin 0x01B2 0x03F8 0x0006 0x0000 0x6800 0x0000 \
                 0x6000 0x0000 0x0010
#    DAT2LST  R1016
tcblock mbipldin 0x01C4 0x03F8

display "Finished procedure init_fftbl12."
return

