clrarp now clears arp ;)

sorchard001 · sorchard001 · commit dbfc5042a974 · 2018-04-04T22:14:05.000+01:00
diff --git a/cyd_gmc.s b/cyd_gmc.s
@@ -274,6 +274,7 @@ return_c\1	ldu	#$0000
 setarp_c	macro
 clrarp_c\1	ldx	#null_arp
 		clra
+		sta	c\1arp
 		bra	10F
 setarp_c\1	pulu	a,x
 10		sta	c\1arptime
diff --git a/music.s b/music.s
@@ -249,28 +249,23 @@ lead_arp
 	_setarp		1,arp1
 	fcb		a4,n1*2
 	fcb		a4,n1*1
-
 	fcb		a4,n1*2
 	_setarp		2,arp3
 	fcb		a4,n1*1
 	fcb		a4,n1*3
-
 	_setarp		2,arp2
 	fcb		a4,n1*1
 	fcb		a4,n1*3
 
-
 	_setarp		1,arp4
 	fcb		g4,n1*2
 	fcb		g4,n1*1
 	fcb		g4,n1*2
-	fcb		g4,n1*1
-
 	_setarp		2,arp5
+	fcb		g4,n1*1
 	fcb		g4,n1*2
 	fcb		g4,n1*1
 	fcb		g4,n1*3
-
 	_setarp		2,arp2
 	fcb		a4,n1*1
 	fcb		a4,n1*3
