; hdr
;
; The Header and tail IP programs reset the pointers used by 
; the 30 and 60 second IP structure program.
;
; The register IPRL_STR_STRT30 is initialized to "INIT30" by 
; the strartup control file. The initialization code resets 
; it to "SETPTR30". Therefore on 2nd and subsequent execution 
; of the ALT or CMPG branches the initialztion is skipped but 
; the 30 second or 60 second structure program setup is still
; carried out.
; 

QPROG_STR_HEAD::
    COPYREG     $IPRL_STR_STRT30   $IPRL_STR_EP30  
    SETREG      $IPRL_MAG_DLC      0

    END

QPROG_STR_TAIL::
    COPYREG     $IPRL_STR_STRT60   $IPRL_STR_EP60  
    END