
Initialize_Pulser     IDNT                      ; Title Initialize Pulser.

        SECTION  Sect_Initialize_Pulser,4,C     ; Declare a noncommon code
                                                ; section. Align to Longwords.

***************************************************************************
*                                                                         *
*   Initialize Pulser                               Rev.  12-MAR-1991     *
*                                                                         *
***************************************************************************


*************************************************************************
*                                                                       *
*  Initialize the section of the MVME-214 Memory that holds the Pulser  *
*  Programming Data that will be read by the VBD with 5's and A's.      *
*                                                                       *
*************************************************************************

Begin_Initialize_Pulser    NOP                        ;

        MOVEA.L  #$00304000,A3       ; Load the VME Pulser Data Base Address.

        FOR.L   D7 = #1 TO #$C0  DO.S
           MOVE.L  #$55555555,(A3)+    ; Fill with 5's   0101 0101 0101 0101
           MOVE.L  #$AAAAAAAA,(A3)+    ; Fill with A's   1010 1010 1010 1010
        ENDF


                  RTS                        ;

***************************************************************************
*                                                                         *
*   Constants Section for  Initialize Pulser                              *
*                                                                         *
*                                                                         *
***************************************************************************

         XDEF   Begin_Initialize_Pulser                 ; Export this symbol
                                                        ; to other modules.

         END

