Changeset 4f508e6 in buchla-68k for lib700/blkfill.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/blkfill.s (modified) (2 diffs)

lib700/blkfill.s

@@ -1 @@
-* ------------------------------------------------------------------------------
-* blkfill.s -- block fill function
-* Version 1 -- 1987-08-28 -- D.N. Lynx Crowe
-*
-*       void
-*       blkfill(where, what, count)
-*       char *where;
-*       char what;
-*       short count;
-*
-*               Fills 'count' bytes at 'where' with 'what'.
-* ------------------------------------------------------------------------------
+| ------------------------------------------------------------------------------
+| blkfill.s -- block fill function
+| Version 1 -- 1987-08-28 -- D.N. Lynx Crowe
+
+|       void
+|       blkfill(where, what, count)
+|       char |where;
+|       char what;
+|       short count;
+
+|               Fills 'count' bytes at 'where' with 'what'.
+| ------------------------------------------------------------------------------
                 .text
-*
+
                 .xdef   _blkfill
-*
+
 _blkfill:       link    a6,#0
                 movem.l d5-d7/a5-a5,-(a7)
@@ -21 +21 @@
                 move.w  14(a6),d6
                 bra     blkf2
-*
+
 blkf1:          move.b  d7,(a5)+
-*
+
 blkf2:          move.w  d6,d0
                 subq.w  #1,d6
                 tst.w   d0
                 bgt     blkf1
-*
+
                 tst     (a7)+
                 movem.l (a7)+,d6-d7/a5-a5
                 unlk    a6
                 rts
-*
+
                 .end