Changeset 4f508e6 in buchla-68k for libcio

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:

• libcio/ptcl12.s (modified) (2 diffs)

libcio/ptcl12.s

@@ -1 @@
-* ------------------------------------------------------------------------------
-* ptcl12.s -- store a cluster entry into the FAT
-* Version 2 -- 1987-10-27 -- D.N. Lynx Crowe
-* ------------------------------------------------------------------------------
+| ------------------------------------------------------------------------------
+| ptcl12.s -- store a cluster entry into the FAT
+| Version 2 -- 1987-10-27 -- D.N. Lynx Crowe
+| ------------------------------------------------------------------------------
                 .text
                 .xdef   __ptcl12
-*
-CL              .equ    12
-VAL             .equ    14
-CLA             .equ    d7
-CLP             .equ    d6
-CLT             .equ    d5
-FAT             .equ    a5
-*
+
+CL              =       12
+VAL             =       14
+CLA             =       d7
+CLP             =       d6
+CLT             =       d5
+FAT             =       a5
+
 __ptcl12:       link    A6,#0
                 movem.l CLT-CLA/FAT-FAT,-(sp)
                 move.l  8(A6),FAT
                 move.w  CL(A6),CLA
-                lsr.w   CLA
+                lsr.w   #1,CLA
                 add.w   CL(A6),CLA
                 move.b  1(FAT,CLA.W),CLP
@@ -24 +24 @@
                 btst    #0,CL+1(A6)
                 beq     L2
-*
+
                 move.w  CLP,CLT
-                and.w   #$000F,CLT
+                and.w   #0x000F,CLT
                 move.w  VAL(A6),D0
                 lsl.w   #4,D0
                 or.w    D0,CLT
                 bra     L3
-*
+
 L2:             move.w  CLP,CLT
-                and.w   #$F000,CLT
+                and.w   #0xF000,CLT
                 move.w  VAL(A6),D0
-                and.w   #$0FFF,D0
+                and.w   #0x0FFF,D0
                 or.w    D0,CLT
-*
+
 L3:             move.b  CLT,0(FAT,CLA.W)
                 move.w  CLT,D0
                 lsr.w   #8,D0
                 move.b  D0,1(FAT,CLA.W)
-*
+
 L1:             movem.l (sp)+,CLT-CLA/FAT-FAT
                 unlk    A6
                 rts
-*
+
                 .end