;+
; DYNDP2 - 
;     Selects 2nd dynamics data product. 
;
; Call Sequence:
;     The data product flag should be set to a non-zero value.
;     The register bank $IPRL_STR_PAGDL should be inbitialized as follows;
;         $IPRL_STR_PAGDL       Header Address Low
;         $IPRL_STR_PAGDL+1     Header Address High
;         $IPRL_STR_PAGDL+2     Source Address Low
;         $IPRL_STR_PAGDL+3     Source Address High
;         $IPRL_STR_PAGDL+4     Size Low
;         $IPRL_STR_PAGDL+5     Size High
;         $IPRL_STR_PAGDL+6     Compression Parameters n (7:4) and k (3:0)
;         $IPRL_STR_PAGDL+7     DPC  High
;         $IPRL_STR_PAGDL+8     DPC  Low
;         
;-
;
DYNDP2::
;
MAGDL:
    BRANCHIF $IPRL_STR_DP2MAG   &CBVDL
    BRANCHEQ $IPRL_STR_DP2MAG   1    &MAGDL2 
    ADDREGD  $IPRL_STR_DP2MAG   0xFFFF
    COPYRD2D $IPRL_STR_MAGDLP1  $IPRL_STR_PAGDL   9
    CALLQUE  &PAGDL
    START1HR 0x31  0x5800  R534
    RTNQUE
;
MAGDL2:
    BRANCHIF $IPRL_STR_DP2MAG   &CBVDL 
    COPYRD2D $IPRL_STR_MAGDLP2  $IPRL_STR_PAGDL   9
    SETREG   $IPRL_STR_DP2MAG   0
    CALLQUE  &PAGDL
    START1HR 0x31  0x5800  R534
    RTNQUE
;
CBVDL:
    BRANCHIF $IPRL_STR_DP2CBV   &CBIDL 
    SETREG   $IPRL_STR_SELDP2   &CBIDL
    COPYRD2D $IPRL_STR_CBVDLP   $IPRL_STR_PAGDL   9
    SETREG   $IPRL_STR_DP2CBV   0
    CALLQUE  &PAGDL
    START1HR 0x33  0x5800  R534
    RTNQUE
;
CBIDL:
    BRANCHIF $IPRL_STR_DP2CBI   &MEMDL 
    SETREG   $IPRL_STR_SELDP2   &MEMDL
    COPYRD2D $IPRL_STR_CBIDLP   $IPRL_STR_PAGDL   9
    SETREG   $IPRL_STR_DP2CBI   0
    CALLQUE  &PAGDL
    START1HR 0x33  0x5800  R534
    RTNQUE
;
MEMDL:
    BRANCHIF $IPRL_STR_DP2PAG   &DP2DONE
    COPYRD2D $IPRL_STR_MEMDLP   $IPRL_STR_PAGDL   9
    COPYREG  $IPRL_STR_PAGDL+3  $IPRL_STR_PAGDL+8        ; DPC low = Page Addr High
    SETREG   $IPRL_STR_DP2PAG   0
    CALLQUE  &PAGDL
    START1HR 0x33  0x5800  R534
    RTNQUE
;
PAGDL:
    COPYREG  $IPRL_STR_PAGDL      $IPRL_STR_DYNWRK     ; Copy Header to 11:0x000000
    COPYREG  $IPRL_STR_PAGDL+1    $IPRL_STR_DYNWRK+1
    SETREG   $IPRL_STR_DYNWRK+2   0x5800
    COPYRD2D $IPRL_STR_PAGDL+6    $IPRL_STR_DYNWRK+3   3
    HRDINIT  $IPRL_STR_DYNWRK
;
    COPYREG  $IPRL_STR_PAGDL+2    $IPRL_STR_DYNWRK      ; Copy data to 11:0x000226
    COPYREG  $IPRL_STR_PAGDL+3    $IPRL_STR_DYNWRK+1
    SETREGS  $IPRL_STR_DYNWRK+2   2   11:0x00226
    COPYREG  $IPRL_STR_PAGDL+4    $IPRL_STR_DYNWRK+4
    COPYREG  $IPRL_STR_PAGDL+5    $IPRL_STR_DYNWRK+5
    MOVBLKI  $IPRL_STR_DYNWRK
;
    COPYREG  $IPRL_STR_PAGDL+4    R534      ; Set up size registers
    COPYREG  $IPRL_STR_PAGDL+5    R535
    SETREG   $IPRL_STR_F11DL    1
    RTNQUE
;
DP2DONE:
    RTNQUE
;...................................................................