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

lib700/lmul.s

@@ -1 @@
-* ------------------------------------------------------------------------------
-* lmul.s -- long multiply
-* Version 2 -- 1989-07-18
-* ------------------------------------------------------------------------------
+| ------------------------------------------------------------------------------
+| lmul.s -- long multiply
+| Version 2 -- 1989-07-18
+| ------------------------------------------------------------------------------
                 .text
-*
+
                 .xdef   lmul
-*
-ARG1            .equ    8
-ARG2            .equ    12
-*
-TEMP            .equ    -4
-*
+
+ARG1            =       8
+ARG2            =       12
+
+TEMP            =       -4
+
 lmul:           link    a6,#-4
                 clr.w   d2
                 tst.l   ARG1(a6)
                 bge     lmul1
-*
+
                 neg.l   ARG1(a6)
                 addq.w  #1,d2
-*
+
 lmul1:          tst.l   ARG2(a6)
                 bge     lmul2
-*
+
                 neg.l   ARG2(a6)
                 addq.w  #1,d2
-*
+
 lmul2:          move.w  ARG1+2(a6),d0
                 mulu    ARG2+2(a6),d0
@@ -39 +39 @@
                 btst    #0,d2
                 beq     lmul3
-*
+
                 neg.l   d0
-*
+
 lmul3:          unlk    a6
                 rts
-*
+
                 .end