# File: ff_back_rest_v01.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/flight/src/ff_back_rest_v01.src"
descr "Loads IP queue instructions"
#=======================================================
#
#
#;
#;
#; IP programs to make the flat field backup and restore
#;
#; FF_BACK: Saves the following lines to the following pages
#;
#;	Lines   0-95    ( 96)   Page 13         13:0x100800 (#)
#;	Lines  96-191   ( 96)   Page 15         15:0x100800
#;	Lines 192-287   ( 96)   Page 17         17:0x100800
#;	Lines 287-383   ( 96)   Page 18         18:0x100800
#;	Lines 384-1023  (640)   Page 10         10:0x080000 (&)
#;
#;	Double Backup
#;
#;	Lines 400-499   (100)   Page 0           0:0x107000 (*)
#;	Lines 500-599   (100)   Page 1           1:0x107000
#;	Lines 600-699   (100)   Page 2           2:0x107000
#;	Lines 700-799   (100)   Page 3           3:0x107000
#;	
#;	(&) Binning page so 1024x512 which ends at 0x080000
#;	(*) A 1040*1032 image + 1300 word header ends at 0x106594
#;	(#) A 1024*1024 image + 1830 word header ends at 0x100726
#;
#; FF_REST1: Restores to page 10 assuming 640 lines in page 10
#;	    are in tact.
#;
#; FF_REST2: Restores the double backup 640 lines from other
#;	    pages.  Restores to page 10.
#;
#;
#QPROG_FF_BACK::
#    _MOVBLKI $IPRL_FF_BACK_MD1
tcblock mbipmacl 0x1EC4    0x8166 0x1568 
#    _MOVBLKI $IPRL_FF_BACK_MD2
tcblock mbipmacl 0x1EC6    0x8166 0x156E 
#    _MOVBLKI $IPRL_FF_BACK_MD3
tcblock mbipmacl 0x1EC8    0x8166 0x1574 
#    _MOVBLKI $IPRL_FF_BACK_MD4
tcblock mbipmacl 0x1ECA    0x8166 0x157A 
#
#    _MOVBLKI $IPRL_FF_BACK_M1
tcblock mbipmacl 0x1ECC    0x8166 0x154A 
#    _MOVBLKI $IPRL_FF_BACK_M2
tcblock mbipmacl 0x1ECE    0x8166 0x1550 
#    _MOVBLKI $IPRL_FF_BACK_M3
tcblock mbipmacl 0x1ED0    0x8166 0x1556 
#    _MOVBLKI $IPRL_FF_BACK_M4
tcblock mbipmacl 0x1ED2    0x8166 0x155C 
#    _MOVBLKI $IPRL_FF_BACK_M5
tcblock mbipmacl 0x1ED4    0x8166 0x1562 
#
#    END
tcblock mbipmacl 0x1ED6    0x01FC 
#
#QPROG_FF_REST1::
#    _MOVBLKI $IPRL_FF_REST_M1
tcblock mbipmacl 0x1ED7    0x8166 0x1580 
#    _MOVBLKI $IPRL_FF_REST_M2
tcblock mbipmacl 0x1ED9    0x8166 0x1586 
#    _MOVBLKI $IPRL_FF_REST_M3
tcblock mbipmacl 0x1EDB    0x8166 0x158C 
#    _MOVBLKI $IPRL_FF_REST_M4
tcblock mbipmacl 0x1EDD    0x8166 0x1592 
#
#    END
tcblock mbipmacl 0x1EDF    0x01FC 
#
#QPROG_FF_REST2::
#    _MOVBLKI $IPRL_FF_REST_MD1
tcblock mbipmacl 0x1EE0    0x8166 0x1598 
#    _MOVBLKI $IPRL_FF_REST_MD2
tcblock mbipmacl 0x1EE2    0x8166 0x159E 
#    _MOVBLKI $IPRL_FF_REST_MD3
tcblock mbipmacl 0x1EE4    0x8166 0x15A4 
#    _MOVBLKI $IPRL_FF_REST_MD4
tcblock mbipmacl 0x1EE6    0x8166 0x15AA 
#
#    END
tcblock mbipmacl 0x1EE8    0x01FC 
#
#
#
#=======================================================
#
return
#
#=======================================================
