;convert standard ProTracker to SNT-format
;a0=modaddress
;a2=end of patterndata
;a4=pt_periods or pr_periods

MODtoSNT:
	lea	1084(a0),a1
	move.b	#$f0,d3
	move.w	#$fff,d4
pr_1	move.b	(a1),d0
	move.b	2(a1),d1
	move.w	(a1),d2
	and.w	d4,2(a1)
	and.w	d4,d2		; d2=per
	and.b	d3,d0
	lsr.b	#4,d1
	or.b	d1,d0		; d1=inst
	move.b	d0,(a1)
	tst.w	d2
	beq.b	pr_3
	moveq	#0,d1
pr_2	addq.w	#1,d1
	cmp.w	(a4)+,d2
	bne.b	pr_2
	move.b	d1,1(a1)
pr_3	addq.l	#4,a1
	cmp.l	a2,a1
	blt.b	pr_1
	move.l	#'SNT.',1080(a0)
	rts
;note -> %00000000 00000000 00000000 00000000
;         < inst > < pern >     <  effects  >

;*************************************************************************

;convert a Prorunner-Module to a standard Protracker-Module
;a0=modaddress

SNTtoMOD:

	rts
.