; IP_TEST
;
; An IP Test Program to take an image and downlink the following 
; data products using the high rate channel:
;
;          - Extracted Image 
;          - Crop List
;          - Croped Image
;          - Limb Figure List
;          - Limb Figure Image
;          - Rectangular Bins
;          - Rectangular Binned Data
;          - Vector Bins
;          - Vector Binned Data
;          - ?Vector Binned Data in 5k channel?
;
;------------------------------------------------------------------
;
; IMAGE EXTRACT TEST
;
QPROG_IPTST::
; Initialize Global Offest Register (R69 and R70). This register is used by
; several instructions to determine the center of the Sun.
    SETREGS    R69      2      0    0
;
; Extract the image from the camera frame. The camera frame is assumed to be
; in page 0. The extracted image is saved in page 1, offset 0.
    SETREGS    R800     8   1300    0     0  0x0800  1024  1024  1040  R69
    EXTRACT    R800
;
; Copy image to output buffer. (Page 1:0 to 8:550)
    MOVBLK        0    0x0800   550   0x4000  0xFFFF  0x000F
;
; Iniitalize high rate from mem 8
    SETREGS    R512      6       1      0  0x4000       0  0xFFFF  0xFF04
    HRDINIT    R512
;
; Load page 8 length to registers 524-525 
    SETREGS    R518      2  550 0x0010
;
; Start hi-rate downlink of page 8 (Raw Image) 
    START1HR   0x03  0x4000  R518
;
    END
;
;..............................................................
;
; CROPPED IMAGE TEST
;
QPROG_CROPTST::
; Copy CROPLIST from page 17 (0x8800) to page 8 (0x4000)
    MOVBLK     0  0x8800  550  0x4000  3500  0
;
; Crop image in [1:0000] and move to page [9:0226]
    SETREGS   R808       8  0x0800   0x0226  0x4800  0  1000  0  0x8800  69
    CROP      R808
;
; Initialize page 8 for hi-rate downlink 
    SETREGS    R520      6  1  0  0x4000  0  0xFFFF  0xFF73
    HRDINIT    R520
;
; Iniitalize high rate from mem 9
    SETREGS    R526      6  1  0  0x4800  0  0xFFFF  0xFF93
    HRDINIT    R526
;
; Load page 8 length to registers 532-533 
    SETREGS    R532      2  4100  0
;
; Load page 9 length into R534-R535
    SETREGS    R534      2  0x0000  0x000C
;
; Start hi-rate downlink of page 8 (Crop List) 
; and page 9 (Cropped image)
    START2HR   0x4B  0x4000  0x4800   R532   R534
;
    END
;
;.............................................................
;
; LIMB FIGURE TEST
;
QPROG_LFTST::
; Copy Limb Figure List from [11:1000] to [8:0226]
    MOVBLK     0x1000  0x8800  0x0226  0x4000  6500  0
;
; Construct Limb Figure from image in [0:04FC] into page [9:0226]
    SETREGS   R816    8  0x0800   0x0226  0x4800  0  2000 0x1000 0x8800  69
    CROP      R816
;
;
; Initialize page 8 for hi-rate downlink 
    SETREGS    R536      6  1  0  0x4000  0x0000  0xFFFF  0xFF74
    HRDINIT    R536
;
; Iniitalize high rate from mem 9
    SETREGS    R542      6  1  0  0x4800       0  0xFFFF  0xFF94
    HRDINIT    R542
;
; Load page 8 length to registers 548-549 
    SETREGS    R548      2  7100     0
;
; Load page 9 length to registers 580-581
    COPYREG   R188  R580
    COPYREG   R189  R581
    ADDREGD   R580  550
;
; Start hi-rate downlink of page 8 (Crop List) 
; and page 9 (Cropped image)
    START2HR   0x4B  0x4000  0x4800   R548   R580
;
    END
;
;...........................................................
;
; RWBIN TEST (Line Depth)
;
QPROG_RWBTST::
; It is assumed that the Rectangular bin list has already 
; been loaded and that the R208 was used to save Low Rate 
; Data parameters.
;
; Copy Line Depth List to mem 9
    MOVBLK     0x1000  0x8801  0x0226 0x4000  30000  0
; 
; Construct rectangular binned image 
    SETREGS    R824  8  0x0800  0x0226  0x4800  0  0x0008  0x1000  0x8801  69
    RWBIN      R824
    RWBIN      R824
    RWBIN      R824
;
; Initialize page 8 for hi-rate downlink 
;                    
    SETREGS    R552      6  1  0  0x4000  0x0000  0xFFFF  0xFF76
    HRDINIT    R552
;
; Iniitalize high rate from mem 9
    SETREGS    R558      6  1  0  0x4800       0  0xFFFF  0xFF96
    HRDINIT    R558
;
; Load page 8 length to registers 564-565 
    SETREGS    R564      2  30550  0
;
; Load page 9 length to registers 580-581
    COPYREG   R220  R580
    COPYREG   R221  R581
    ADDREGD   R580  550
;
; Start hi-rate downlink of 
; page 8 (Raw Image) and page 9 (Lists and Data Products)
    START2HR   0x4B  0x4000  0x4800   R564   R580   ; R208 
;
    END
;
;............................................................
;
; VWBIN TEST (Medium-l)
;
QPROG_VWBTST::
; It is assumed that the X, Y vectors and the Vector bin lists 
; have already been loaded and that the Vector bin load command 
; used R192 to save Low Rate Data parameters.
;
; Copy Vector Bin List to page [8:0226]
    MOVBLK     0x7000  0x8800  0x0226  0x4000  42000  0
;
; Construct vector weighted binned image 
    SETREGS    R832  8  0x0800  0x0226  0x4800  0  0x0008  0x7000  0x8800  69
    VWBIN      R832
    VWBIN      R832
    VWBIN      R832
    VWBIN      R832
    VWBIN      R832
;
; Initialize page 8 for hi-rate downlink 
;                    
    SETREGS    R566      6  1  0  0x4000  0x0000  0xFFFF  0xFF75
    HRDINIT    R566
;
; Initialize high rate from mem 9
    SETREGS    R572      6  1  0  0x4800       0  0xFFFF  0xFF95
    HRDINIT    R572
;
; Load page 8 length to registers 578-579 
    SETREGS    R578      2  42550  0
;
; Load page 9 length to registers 580-581
    COPYREG   R204  R580
    COPYREG   R205  R581
    ADDREGD   R580  550
;
; Start hi-rate downlink of 
; page 8 (Raw Image) and page 9 (Lists and Data Products)
    START2HR   0x4B  0x4000  0x4800   R578   R580 
;
    END
;............................................................
;
;   Downlink Medium-l data using the 5k channel
;
    LRDINIT  0
    LRDXFR   R192
    LRDEND
    END
;============================================================