fx		MOVEM.L	D0-D7/a0-A6,-(A7)
L_272		LEA	$00DFF000.L,A0
		lea	L_1e(pc),a1	; voc_temp
		MOVE.W	$1C(a0),d3	; intena
		MOVE.W	$1E(A0),D2	; intreq
		moveq	#7,d4		; bit
		moveq	#3,d5
fx_lp		BTST	d4,D2
		BEQ.s	fx_lpc
*		btst	d4,d3
*		beq.s	fx_lpc
		MOVEA.L	8(A1),A2
		SUBQ.W	#1,$000E(A1)
		TST.W	$0024(A1)
		BPL.s	L_330
		MOVEQ	#0,D0
		MOVE.W	$0026(A1),D0
		MOVE.W	D0,D1
		ADD.L	$001C(A1),D0
		MOVE.L	D0,(A2)
		MOVE.W	$0028(A1),D0
		LSR.W	#1,D1
		SUB.W	D1,D0
		MOVE.W	D0,4(A2)
*		MOVE.W	6(A1),$009A(A0)
		bra.s	L_350
L_330		TST.W	$000E(A1)
		bne.s	L_344
*		MOVE.W	6(A1),$009A(A0)
		MOVE.W	2(A1),$0096(A0)
		bra.s	L_350
L_344		MOVE.L	#$00036DD2,(A2)	; inmod
		MOVE.W	#1,4(A2)
L_350
		MOVE.W	6(A1),$009C(A0)
fx_lpc		addq.w	#1,d4		; next bit
		lea	148(a1),a1	; auf naechste voc_temp setzen
		dbf	d5,fx_lp
		MOVEM.L	(A7)+,D0-D7/A0-A6
		RTS
.