* ------------------------------------------------------------------------------
* 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
*
__ptcl12:	link	A6,#0
		movem.l	CLT-CLA/FAT-FAT,-(sp)
		move.l	8(A6),FAT
		move.w	CL(A6),CLA
		lsr.w	CLA
		add.w	CL(A6),CLA
		move.b	1(FAT,CLA.W),CLP
		lsl.w	#8,CLP
		move.b	0(FAT,CLA.W),CLP
		btst	#0,CL+1(A6)
		beq	L2
*
		move.w	CLP,CLT
		and.w	#$000F,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
		move.w	VAL(A6),D0
		and.w	#$0FFF,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