home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / move16v2.lha / Move16_a.asm next >
Encoding:
Assembly Source File  |  1993-10-13  |  2.6 KB  |  153 lines
  1.     CSECT   text
  2.     xdef    @MoveMem16
  3.     xdef    @MoveMem
  4. move16reg    MACRO ; move16 (a0)+,(a1)+
  5.     dc.l    $f6209000
  6.     endm
  7.     cnop    0,16
  8. @MoveMem16 EQU    * ; ptr is in A0
  9.     lsr.w    #5,d0
  10.     subq.l    #1,d0
  11.     nop
  12. ll:
  13.     move16reg ; move16    (a0)+,(a1)+
  14.     
  15.     move16reg ; move16    (a0)+,(a1)+
  16.     
  17.     move16reg ; move16    (a0)+,(a1)+
  18.     
  19.     move16reg ; move16    (a0)+,(a1)+
  20.     
  21.     move16reg ; move16    (a0)+,(a1)+
  22.     
  23.     move16reg ; move16    (a0)+,(a1)+
  24.     
  25.     move16reg ; move16    (a0)+,(a1)+
  26.     
  27.     move16reg ; move16    (a0)+,(a1)+
  28.     
  29.     move16reg ; move16    (a0)+,(a1)+
  30.     
  31.     move16reg ; move16    (a0)+,(a1)+
  32.     
  33.     move16reg ; move16    (a0)+,(a1)+
  34.     
  35.     move16reg ; move16    (a0)+,(a1)+
  36.     
  37.     move16reg ; move16    (a0)+,(a1)+
  38.     
  39.     move16reg ; move16    (a0)+,(a1)+
  40.     
  41.     move16reg ; move16    (a0)+,(a1)+
  42.     
  43.     move16reg ; move16    (a0)+,(a1)+
  44.     
  45.     move16reg ; move16    (a0)+,(a1)+
  46.     
  47.     move16reg ; move16    (a0)+,(a1)+
  48.     
  49.     move16reg ; move16    (a0)+,(a1)+
  50.     
  51.     move16reg ; move16    (a0)+,(a1)+
  52.     
  53.     move16reg ; move16    (a0)+,(a1)+
  54.     
  55.     move16reg ; move16    (a0)+,(a1)+
  56.     
  57.     move16reg ; move16    (a0)+,(a1)+
  58.     
  59.     move16reg ; move16    (a0)+,(a1)+
  60.     
  61.     move16reg ; move16    (a0)+,(a1)+
  62.     
  63.     move16reg ; move16    (a0)+,(a1)+
  64.     
  65.     move16reg ; move16    (a0)+,(a1)+
  66.     
  67.     move16reg ; move16    (a0)+,(a1)+
  68.     
  69.     move16reg ; move16    (a0)+,(a1)+
  70.     
  71.     move16reg ; move16    (a0)+,(a1)+
  72.     
  73.     move16reg ; move16    (a0)+,(a1)+
  74.     
  75.     move16reg ; move16    (a0)+,(a1)+
  76.     
  77.     dbra    d0,ll
  78.     nop
  79.     rts
  80.     cnop    0,16
  81. @MoveMem equ *
  82.     lsr.w    #4,d0
  83.     subq.l    #1,d0
  84. lll:
  85.     move.l    (a0)+,(a1)+
  86.     move.l    (a0)+,(a1)+
  87.     move.l    (a0)+,(a1)+
  88.     move.l    (a0)+,(a1)+
  89.     move.l    (a0)+,(a1)+
  90.     move.l    (a0)+,(a1)+
  91.     move.l    (a0)+,(a1)+
  92.     move.l    (a0)+,(a1)+
  93.     move.l    (a0)+,(a1)+
  94.     move.l    (a0)+,(a1)+
  95.     move.l    (a0)+,(a1)+
  96.     move.l    (a0)+,(a1)+
  97.     move.l    (a0)+,(a1)+
  98.     move.l    (a0)+,(a1)+
  99.     move.l    (a0)+,(a1)+
  100.     move.l    (a0)+,(a1)+
  101.     move.l    (a0)+,(a1)+
  102.     move.l    (a0)+,(a1)+
  103.     move.l    (a0)+,(a1)+
  104.     move.l    (a0)+,(a1)+
  105.     move.l    (a0)+,(a1)+
  106.     move.l    (a0)+,(a1)+
  107.     move.l    (a0)+,(a1)+
  108.     move.l    (a0)+,(a1)+
  109.     move.l    (a0)+,(a1)+
  110.     move.l    (a0)+,(a1)+
  111.     move.l    (a0)+,(a1)+
  112.     move.l    (a0)+,(a1)+
  113.     move.l    (a0)+,(a1)+
  114.     move.l    (a0)+,(a1)+
  115.     move.l    (a0)+,(a1)+
  116.     move.l    (a0)+,(a1)+
  117.     move.l    (a0)+,(a1)+
  118.     move.l    (a0)+,(a1)+
  119.     move.l    (a0)+,(a1)+
  120.     move.l    (a0)+,(a1)+
  121.     move.l    (a0)+,(a1)+
  122.     move.l    (a0)+,(a1)+
  123.     move.l    (a0)+,(a1)+
  124.     move.l    (a0)+,(a1)+
  125.     move.l    (a0)+,(a1)+
  126.     move.l    (a0)+,(a1)+
  127.     move.l    (a0)+,(a1)+
  128.     move.l    (a0)+,(a1)+
  129.     move.l    (a0)+,(a1)+
  130.     move.l    (a0)+,(a1)+
  131.     move.l    (a0)+,(a1)+
  132.     move.l    (a0)+,(a1)+
  133.     move.l    (a0)+,(a1)+
  134.     move.l    (a0)+,(a1)+
  135.     move.l    (a0)+,(a1)+
  136.     move.l    (a0)+,(a1)+
  137.     move.l    (a0)+,(a1)+
  138.     move.l    (a0)+,(a1)+
  139.     move.l    (a0)+,(a1)+
  140.     move.l    (a0)+,(a1)+
  141.     move.l    (a0)+,(a1)+
  142.     move.l    (a0)+,(a1)+
  143.     move.l    (a0)+,(a1)+
  144.     move.l    (a0)+,(a1)+
  145.     move.l    (a0)+,(a1)+
  146.     move.l    (a0)+,(a1)+
  147.     move.l    (a0)+,(a1)+
  148.     move.l    (a0)+,(a1)+
  149.     dbra    d0,lll
  150.     rts
  151.     cnop    0,16
  152.     end
  153.