home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 296.lha / MuchMore_v1.8 / CopyLine1.asm < prev    next >
Encoding:
Assembly Source File  |  1989-10-09  |  1.1 KB  |  56 lines
  1. ;(*---------------------------------------------------------------------------
  2. ;  :Program.    CopyLine1.asm
  3. ;  :Author.     Fridtjof Siebert
  4. ;  :Address.    Nobileweg 67, D-7000-Stuttgart-40
  5. ;  :Phone.      (0)711/822509
  6. ;  :Shortcut.   [fbs]
  7. ;  :Version.    1.0
  8. ;  :Copyright.  PD
  9. ;  :Language.   68000 Assembler
  10. ;  :Contents.   Procedures used by MuchMore
  11. ;---------------------------------------------------------------------------*)
  12. ; BitMap:
  13. bm_BytesPerRow = 0
  14. bm_Rows        = 2
  15. bm_Flags       = 4
  16. bm_Depth       = 5
  17. bm_Pad         = 6
  18. bm_Plane0      = 8
  19. bm_Plane1      = 12
  20. bm_SIZEOF      = 40
  21.  
  22. ; a0: Bitmap
  23. ; d0: NumColumns
  24. ; d1: NumLines;
  25. ; d2: ScreenPos;
  26.  
  27. BM    EQUR a0;
  28. s1    EQUR a1;
  29. s2    EQUR a2;
  30. z1    EQUR a3;
  31. z2    EQUR a4;
  32.  
  33. NumCol EQUR d0;
  34. NumLin EQUR d1;
  35. ScrPos EQUR d2;
  36.  
  37. CopyLine:
  38.   move.l  bm_Plane0(BM),z1;
  39.   move.l  bm_Plane1(BM),z2;
  40.   asl     #3,NumCol;
  41.   muls    NumCol,ScrPos;
  42.   lea     (z1,ScrPos),z1;
  43.   lea     (z2,ScrPos),z2;
  44.   muls    NumCol,NumLin;
  45.   lea     (z1,NumLin),s1;
  46.   lea     (z2,NumLin),s2;
  47.   asr     #2,NumCol;
  48.   subq    #1,NumCol;
  49. \loop;
  50.   move.l  (s1)+,(z1)+;
  51.   move.l  (s2)+,(z2)+;
  52.   dbra    NumCol,\loop;
  53.  
  54.   END;
  55.  
  56.