;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