;
;
; 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
    _MOVBLKI $IPRL_FF_BACK_MD2
    _MOVBLKI $IPRL_FF_BACK_MD3
    _MOVBLKI $IPRL_FF_BACK_MD4

    _MOVBLKI $IPRL_FF_BACK_M1
    _MOVBLKI $IPRL_FF_BACK_M2
    _MOVBLKI $IPRL_FF_BACK_M3
    _MOVBLKI $IPRL_FF_BACK_M4
    _MOVBLKI $IPRL_FF_BACK_M5

    END

QPROG_FF_REST1::
    _MOVBLKI $IPRL_FF_REST_M1
    _MOVBLKI $IPRL_FF_REST_M2
    _MOVBLKI $IPRL_FF_REST_M3
    _MOVBLKI $IPRL_FF_REST_M4

    END

QPROG_FF_REST2::
    _MOVBLKI $IPRL_FF_REST_MD1
    _MOVBLKI $IPRL_FF_REST_MD2
    _MOVBLKI $IPRL_FF_REST_MD3
    _MOVBLKI $IPRL_FF_REST_MD4

    END