;// 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 *%%%%
;                        %%%* *%%%
;                          %%*%%
;                            %
;\\
xor_code
; A0 -> Quellpuffer
; A1 -> Schlüssel
; D0 -> Länge des Buffers
; D1 -> Länge des schlüssels:

         move.l    a1,a2                         ; Schlüsselstartadresse merken
         sub1.w    #1,d1
.loop1
         eor.b     (a0)+,(a1)+
         dbra      d1,.noloadkey
         move.l    a2,a1
.noloadkey
         subq.l    #1,d0
         bne       .loop1

         rts