Copy_S_Records   IDNT                             ; title  Rev 4-NOV-1993

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

        INCLUDE   135Bug_Equates.Include   ; Get the 135Bug "Sytem Calls".


*************************************************************************
*       This section defines program-specific macros:                   *
*                                                                       *
*            SOFTWAIT:  Software delay timer for short waits            *
*                                                                       *
*************************************************************************


SoftWait   MACRO                      ; Software timer loop.
           LOCAL    WaitMore          ; Define a local symbol.
           MOVE.L   \1,D4             ; Load delay time  \1  into D4.
WaitMore   SUBI.L   #1,D4             ; Decrement loop counter.
           BNE      WaitMore          ; Test for end of delay.
           ENDM                       ; Called with an argument
                  ; of $1000 and with cashe off causes a delay of about 4
                  ; mill seconds, with cashe on the delay is 2.4 mill sec.



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

        PEA.L   Hello_1_Loc              ; push message address on stack.
        JSR     ChrStrgOut               ; and send it out.
        PEA.L   Hello_2_Loc              ; push message address on stack.
        JSR     ChrStrgOut               ; and send it out.
        PEA.L   Hello_3_Loc              ; push message address on stack.
        JSR     ChrStrgOut               ; and send it out.


        SOFTWAIT  #$1000                 ; Wait about 3 mill seconds.

        PEA.L     CharSpace             ; Push space and carage return message
        JSR       ChrStrgOut            ; on the stack and send it out.


*****  Now move 7000 longwords from where they were S Record Loaded in  *****
*****  the MVME135 memory to the Hydra-II  Dual Port Shared SRAM.       *****

        MoveA.L   #S_Record_Source,A1        ; Load the Source address
        MoveA.L   #S_Record_Destination,A2   ; Load the Destination address


        FOR.L      D0 = #0 TO #7000  DO.S    ;
          Move.L   (A1)+,(A2)+               ; Move the S Records
        ENDF                                 ;


        PEA.L   GoodByeLoc               ; push message address on stack.
        JSR     ChrStrgOut               ; and send it out.

        SYSCALL .return                  ; return to the bug




Hello_1_Loc   DC.B    50,'  Hello from the  Copy-S-Records  program         '
Hello_2_Loc   DC.B    50,'      Copy 7000 S Record LongWords                '
Hello_3_Loc   DC.B    50,'      from $0004 0000  to  $00A0 0000             '
GoodByeLoc    DC.B    50,'  Bye from the  Copy-S-Records  program           '

CharSpace     DC.B     4,'    '

Low4Long      DC.L    $0000000F        ; Low order 4 bits set, Mask for Sync.

S_Record_Source        EQU   $00040000
S_Record_Destination   EQU   $00B00000


        XREF     ChrStrgOut,ChrWrtOut,BinASCII
        XDEF     Low4Long


        END