Temporary               IDNT                    ; Title of Thats_Me Processing
                                                ;   program section.

      SECTION   Temporary,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

*************************************************************************
*                                                                       *
*  OK, we hope that we have arrived here before the DSP's have          *
*  finished their processing.  We will wait here until the Global       *
*  DSP says that it has reached Step D3.  Once the Global DSP is        *
*  at Step D3 then it is sending us back the results from its           *
*  evaluation of the L15CT Terms.  As soon as Global DSP is at Step     *
*  D3 then we read the Term results from its  DSP to EC Status Word     *
*  and send these Term results to M103 L15 FW.                          *
*                                                                       *
*  Note that the Global DSP has finished evaluating the L15CT Terms,    *
*  it will wait at Step D3 until it hears from us as to whether or      *
*  not it should transfer data to the 214 Load Buffer.                  *
*************************************************************************

Wait_GDSP   Move.L   GDSP_B2_Status_Adrs,D5      ; Read the Global DSP's Status

            IF.W   D5 <NE> #GDSP_at_D3   THEN.S  ; Test to see if the Global
                                                 ; DSP has reached Step D3 ?
               ADDQ.L  #1,D0                     ; If it is NOT at Step D3 then,
               JMP   Wait_GDSP                   ; INCREMENT D0
                                                 ; read its status again and
            ENDI                                 ; test it again.


*************************************************************************
*  Define Constants:                                                    *
*                                                                       *
*************************************************************************

                   ALIGN   4                ; Align to longword address.


GDSP_at_D3     EQU   $0000000F              ; Global DSP to EC Status Word
                                            ;   indicating that this DSP is
                                            ;   at Step D0.

GDSP_B2_Status_Adrs     EQU   $00B07DE0   ; Base Address of DSP B2 Status

      END