Index: libcio/ptcl12.s
===================================================================
--- libcio/ptcl12.s	(revision f40a3096572fd1b0696a7f7c717464e68652e655)
+++ libcio/ptcl12.s	(revision bef53a9164ef720f3d3575e5097a0473b3750b62)
@@ -1,21 +1,21 @@
-* ------------------------------------------------------------------------------
-* 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,26 +24,26 @@
 		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