;// Autor
;                            %
;                          %%*%%
;                        %%%* *%%%
;                      %%%%* D *%%%%
;                    %%%%%*  o  *%%%%%
;                  %%%%%%*   3   *%%%%%%
;                %%%%%%%*    F    *%%%%%%%
;              %%%%%%%%*     M     *%%%%%%%%
;          *%%%%%%%%%%*      R      *%%%%%%%%%%*
;        %%%%%%%%%%%%*---------------*%%%%%%%%%%%%
;       %%              A M I G A                %%
;      %%      B i l l y   T h e   B y t e        %%
;       %%            Michael  Roth              %%
;        %%%%%%%%%%%%*---------------*%%%%%%%%%%%%
;          *%%%%%%%%%%*      D      *%%%%%%%%%%*
;              %%%%%%%%*     A     *%%%%%%%%
;                %%%%%%%*    C    *%%%%%%%
;                  %%%%%%*   6   *%%%%%%
;                    %%%%%*  9  *%%%%%
;                      %%%%* 8 *%%%%
;                        %%%* *%%%
;                          %%*%%
;                            %
;\\
swapbuff
; Dreht einen Buffer um; das lezte wird das 1 Byte etc.
; A0 -> Buffer
; D0 -> Länge

; SubRegister
; A1 x  Endadresse
; D1 x  Zwischenspeicher

         lea       (a0,d0),a1                    ; Endadresse berechnen
                                                 ; Weil die länge = 12
                                                 ; ist, wir aber von 0 ab
                                                 ; beginnen zu Rechnen
                                                 ; ist das 1(a,d) entffalen.
                                                 ; Die länge ist zwar 12 Bytes
                                                 ; aber der Buffer wird von 0 ab gezählt
         lsr.l     #1,d0                         ; / 2
.loop
         move.b    -(a1),d1                      ; Leztes Zeichen auslesen
         move.b    (a0),(a1)                     ; 1. in Lezte Position Kopieren
         move.b    d1,(a0)+                      ; leztes in 1 Position
         sub.l     #1,d0
         bne       .loop                         ; dbra entfernt wegen