Fast_VSB_Cycles         IDNT                    ; Title of 
                                                ;   program section.

      SECTION   Fast_VSB_Cycles,4,C             ; Declare a noncommon code
                                                ; section.  Align to Longwords.
    
      ORG       $10000

Begin_Temp:

Start   MOVE.L   #1,D0                   ; Get the Cashe running
        MOVEC   D0,CACR

        MOVE.L  #$F92C,D0                ; Enable the VSB Interface
        MOVE.L  #$FFFA0000,A1            ; (as the Controller)
        MOVE.W  D0,(A1)


        CLR.L   D0                       ; Clear D0

        MOVEA.L #$1000004,A1             ; Put the good VSB address in A1

***************************************************************************
*   OK now put as many MOVE.L D0,(A1) instructions as will fit in the     *
*   cache (but leave room for the JMP instruction at the end of the       *
*   loop, too).                                                           *
*                                                                         *
*   The cache is 64 longwords long, and the MOVE.L instruction is one     *
*   WORD long, and the JMP #address instruction is 3 WORDs long.          *
*                                                                         *
*   So have 60 MOVE.L's, and one JMP.  This leaves one extra WORD in      *
*   the cache.                                                            *
*                                                                         *
***************************************************************************

Loop:

    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)

    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)

    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)

    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)

    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)
    MOVE.L  D0,(A1)

    JMP     Loop

      END