Assembler-Inlines von Zündeln für den AtariST
(zurück zu Zündeln)

;
;                         "VERSCHW.IS"
;
               movem.l    d1-d3/a0-a3,-(sp)
;                         7 Register = 28
;
               movea.l    32(sp),a0     ; XBIOS(2) in a0
               movea.l    36(sp),a1     ; L:V:bild2$ in a1
               move.l     40(sp),d1     ; zufz% in d1
               movea.l    44(sp),a2     ; L:V:Bild$ in a2

;      lea.l      ding,a2       ; Maske in a2

               clr.l      d0
               move.w     #7,d0         ; Schleifenzähler
nochm:         
               adda.l     #80,a0
               adda.l     #80,a1
               adda.l     #80,a2
               move.b     0(a1,d1.l),0(a0,d1.l)
               move.b     0(a1,d1.l),0(a2,d1.l)
               dbf        d0,nochm

               movem.l    (sp)+,d1-d3/a0-a3
               rts        
               .END