; COMP5K
;
QPROG_COMP5KFILL::
; Program to downlink raw and compressed fill pattern data via 
; the 5k channel
;
; Note: Prior to invoking this program:
; 	request 5k telemetry (req sci5k), 
; 	enable DEP interrupts (ENBIRPT - mbipldin,0004,0x134) 
; 	and set DEP mode to 3 (mbdpmod 3).
;   
    FILLBLK  1:0x00000  1024L  0x0000
    FILLBLK  1:0x00400  1024L  0x1111
    FILLBLK  1:0x00800  1024L  0x2222
    FILLBLK  1:0x00C00  1024L  0x3333
    FILLBLK  1:0x01000  1024L  0x4444
    FILLBLK  1:0x01400  1024L  0x5555
    FILLBLK  1:0x01800  1024L  0x6666
    FILLBLK  1:0x01C00  1024L  0x7777
    FILLBLK  1:0x02000  1024L  0x8888
    FILLBLK  1:0x02400  1024L  0x9999
    FILLBLK  1:0x02800  1024L  0xAAAA
    FILLBLK  1:0x02C00  1024L  0xBBBB
    FILLBLK  1:0x03000  1024L  0xC123
    FILLBLK  1:0x03400  1024L  0xD456
    FILLBLK  1:0x03800  1024L  0xE789
    FILLBLK  1:0x03C00  1024L  0xFABC
;
SCIOP:
    LRDINIT  0x3500                     ; Make directory in Page 7
;
;   LRDXFR   R192
;      NpixTotal          0x0000L
;      NpixSeg            0
;      Seqment            1
;      Source             1:0x00000
;      MaxSource          8192
;      N                  0
;      K                  0
;      SegLength          8192
;      DPID               0xFFFFFFB8L
;      NPixImage          0x2000L
;
    SETREGS  R192  9  0 0 0 1 0 0x0800 8192 0 0 
    SETREGS  R201  5 8192 0xFFFF 0xFFB8 8192 0
    LRDXFR   R192
;
; Output same data in compressed form using two 4096 pixel segments
; because compression requires buffer space.
;
;   LRDXFR   R192	  Was		Is
;      NpixTotal          0x0000L	
;      NpixSeg            0		
;      Seqment            1		2
;      Source             1:0x00000	
;      MaxSource          4096		8192
;      N                  14		
;      K                  5		
;      SegLength          4096		
;      DPID               0xFFFFFFB8L
;      NPixImage          0x1000L	0x2000L
;
    SETREGS  R192  9  0 0 0 2 0 0x0800 8192 14 5 
    SETREGS  R201  5 4096 0xFFFF 0xFFB9 8192 0
    LRDXFR   R192
    LRDXFR   R192		; add second call to transfer other half
;
    LRDEND
    SETIRPT  1
    END
;
;------------------------------------------------------------
;
QPROG_COMP5KIMAGE::
    SETREGS  R69   2  0          0
    SETREGS  R168  8  0:0x00514  1:0x00000  1024  1024  1040  R69
    EXTRACT  R168
;
    GOTO     &SCIOP
;
;============================================================