Changeset 4f508e6 in buchla-68k for lib700/blkmove.s

Timestamp:

07/01/2017 02:34:46 PM (7 years ago)

Author:

Thomas Lopatic <thomas@…>

Branches:

master

Children:

08e1da1

Parents:

f40a309

Message:

Converted assembly language files.

File:

• lib700/blkmove.s (modified) (4 diffs)

lib700/blkmove.s

@@ -1 @@
-* ------------------------------------------------------------------------------
-* blkmove.s -- block move function
-* Version 1 -- 1987-08-28 -- D.N. Lynx Crowe
-*
-*       void
-*       blkmove(to, from, n)
-*       char *to, *from;
-*       short n;
-*
-*               Copies 'n' bytes from address 'from' to address 'to'.
-*               Treats overlaps of from and to areas intelligently.
-* ------------------------------------------------------------------------------
+| ------------------------------------------------------------------------------
+| blkmove.s -- block move function
+| Version 1 -- 1987-08-28 -- D.N. Lynx Crowe
+
+|       void
+|       blkmove(to, from, n)
+|       char |to, |from;
+|       short n;
+
+|               Copies 'n' bytes from address 'from' to address 'to'.
+|               Treats overlaps of from and to areas intelligently.
+| ------------------------------------------------------------------------------
                 .text
-*
+
                 .xdef   _blkmove
-*
-_blkmove:       link    a6,#$FFFC
+
+_blkmove:       link    a6,#-4
                 move.l  8(a6),d0
                 cmp.l   12(a6),d0
                 bcc     blkm3
-*
+
                 bra     blkm2
-*
+
 blkm1:          movea.l 8(a6),a0
                 movea.l 12(a6),a1
@@ -27 +27 @@
                 addq.l  #1,8(a6)
                 addq.l  #1,12(a6)
-*
+
 blkm2:          move.w  16(a6),d0
                 subq.w  #1,16(a6)
                 tst.w   d0
                 bne     blkm1
-*
+
                 bra     blkm6
-*
+
 blkm3:          move.w  16(a6),d0
                 ext.l   d0
@@ -40 +40 @@
                 add.l   d0,12(a6)
                 bra     blkm5
-*
+
 blkm4:          subq.l  #1,8(a6)
                 subq.l  #1,12(a6)
@@ -46 +46 @@
                 movea.l 12(a6),a1
                 move.b  (a1),(a0)
-*
+
 blkm5:          move.w  16(a6),d0
                 subq.w  #1,16(a6)
                 tst.w   d0
                 bne     blkm4
-*
+
 blkm6:          unlk    a6
                 rts
-*
+
                 .end