# File: hdr.src
#
program "%Z% MODULE: %M% RELEASE: %R%.%L% CREATED: %G% %U%"
source "/mdisw/cfl/eof/src/hdr.src"
descr "hdr - header and tail program"
#
# DSBQUE                ; Disable Queue
tcblock mbipldin 0x0154 
#
#=======================================================
#
#
#; 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.
#; 
#
#HDR15::
#    COPYREG     $IPRL_STR_STRT30   $IPRL_STR_EP30  
tcblock mbipcmd 0x0091 0x0B00   0x0142 0x04F3 0x04BD 
#    END
tcblock mbipcmd 0x0091 0x0B03   0x01FC 
#
#TAIL15::
#    COPYREG     $IPRL_STR_STRT60   $IPRL_STR_EP60  
tcblock mbipcmd 0x0091 0x0B04   0x0142 0x04F4 0x04BC 
#    END
tcblock mbipcmd 0x0091 0x0B07   0x01FC 
#
#=======================================================
#
# ENBQUE                ; Enable Queue
tcblock mbipldin 0x0136
#
#
return
#
#=======================================================
