; Subroutine to downlink stored magnetograms
;
; The MAG30 routine sets a register for each page which contains a 
; completed magnetogram. This routine examines each register in turn
; copying upto 2 magnetograms in the downlink pages. 
;
;
QSR_MAG_HRDL::
    BRANCHNR  0x4000    &MAGHRDL_END                    ; DL channel busy
    BRANCHNR  0x4800    &MAGHRDL_END                    ;        "
;
    SETREG    $IPRL_MAG_DL+3    0x4000
    SETREGS   R518    2         0xC0000L
;
CKMAG:
    BRANCHIF  $IPRL_MAG_DONE1   &CKMAG2
    COPYREG   $IPRL_MAG_DONE1   $IPRL_MAG_DL+1      
    SETREG    $IPRL_MAG_DONE1   0
    _MOVBLKI  $IPRL_MAG_DL   
    ADDREGD   $IPRL_MAG_DL+3    0x0800
    BRANCHEQ  $IPRL_MAG_DL+3    0x5000   &STRTDL
;
CKMAG2:    
    BRANCHIF  $IPRL_MAG_DONE1+1 &CKMAG3
    COPYREG   $IPRL_MAG_DONE1+1 $IPRL_MAG_DL+1      
    SETREG    $IPRL_MAG_DONE1+1 0
    _MOVBLKI  $IPRL_MAG_DL   
    ADDREGD   $IPRL_MAG_DL+3    0x0800
    BRANCHEQ  $IPRL_MAG_DL+3    0x5000   &STRTDL
;
CKMAG3:    
    BRANCHIF  $IPRL_MAG_DONE1+2 &CKMAG4
    COPYREG   $IPRL_MAG_DONE1+2 $IPRL_MAG_DL+1      
    SETREG    $IPRL_MAG_DONE1+2 0
    _MOVBLKI  $IPRL_MAG_DL   
    ADDREGD   $IPRL_MAG_DL+3    0x0800
    BRANCHEQ  $IPRL_MAG_DL+3    0x5000   &STRTDL
;
CKMAG4:    
    BRANCHIF  $IPRL_MAG_DONE1+3 &CKMAG5
    COPYREG   $IPRL_MAG_DONE1+3 $IPRL_MAG_DL+1      
    SETREG    $IPRL_MAG_DONE1+3 0
    _MOVBLKI  $IPRL_MAG_DL   
    ADDREGD   $IPRL_MAG_DL+3    0x0800
    BRANCHEQ  $IPRL_MAG_DL+3    0x5000   &STRTDL
;
CKMAG5:    
    BRANCHIF  $IPRL_MAG_DONE1+4 &CK_N_DL
    COPYREG   $IPRL_MAG_DONE1+4 $IPRL_MAG_DL+1      
    SETREG    $IPRL_MAG_DONE1+4 0
    _MOVBLKI  $IPRL_MAG_DL   
    ADDREGD   $IPRL_MAG_DL+3    0x0800
    BRANCHEQ  $IPRL_MAG_DL+3    0x5000   &STRTDL
;
CK_N_DL:
    BRANCHGT  $IPRL_MAG_DL+3    0x4000   &STRTDL        ; No MAGs found
    SETREG    $IPRF_MAG_HR      0                       ; Disable Mag HR D/L
    RTNQUE
;
STRTDL:
    BRANCHEQ  $IPRL_MAG_DL+3    0x5000   &STRTDL2
    START1HR  1                 0x4000   R518
    GOTO      &MAGHRDL_END
;
STRTDL2:
    START2HR  0x49              0x4000   0x4800  R518  R518
;
MAGHRDL_END:
    RTNQUE
;---------------------------------------------------------------------------
;Test Setup
    SETREGS   $IPRL_MAG_DONE1  6  0x6800  0       0x7800  0       0  0
    SETREGS   $IPRL_MAG_DL     6  0       0x6800  0       0x4000  0  0x0010
    SETREGS   R512   6  0:0x00001  0x6800  0x00E5  0xFFFF  0xFF80
    HRDINIT   R512
    SETREGS   R512   6  0:0x00001  0x7800  0x00E5  0xFFFF  0xFF80
    HRDINIT   R512
    CALLQUE   &QSR_MAG_HRDL

    END
;===========================================================================