xdef  _pgcpy

         section text,code
         
; pgcpy( d0 = numcols /* bytes per row */
;        d1 = numrows
;        d2 = modulo
;        a0 = source
;        a1 = destination )      
         
_pgcpy:  tst.l    d0
         beq      finish
         tst.l    d1
         beq      finish
         movem.l  d0/d1/d3/a0/a1,-(sp)
         subq.l   #1,d0
         subq.l   #1,d1
nextrow  move.l   d0,d3
nextcol  move.b   (a0)+,(a1)+
         dbf      d3,nextcol
         adda.l   d2,a0
         dbf      d1,nextrow
         movem.l  (sp)+,d0/d1/d3/a0/a1
finish   rts

         END