More patterns for the light show.

Author: larsbrinkhoff

src/lars/lites.80

@@ -116,10 +116,52 @@ SAIL0:	ROT A,-1
 	COCALL ? COCALL ? COCALL
 	JRST SAIL0
 
+BOUNCE:	MOVEI A,1			;One lamp bouncing back and forth.
+BOUNC0:	COCALL
+	LSH A,1
+	JUMPE A,BOUNC1
+	JRST BOUNC0
+BOUNC1:	HRLZI A,200000
+BOUNC2:	COCALL
+	LSH A,-1
+	JUMPE A,BOUNCE
+	JRST BOUNC2
+
+BREATH:	MOVEI A,0			;"Breathing" lights.
+	HRLZI B,1
+	MOVEI C,400000
+BREAT0:	XOR A,B
+	XOR A,C
+	COCALL
+	ROT B,1
+	ROT C,-1
+	JRST BREAT0
+
+GROW:	MOVEI A,0			;Growing from side to side.
+	MOVEI B,1
+	COCALL
+GROW0:	OR A,B
+	LSH B,1
+	COCALL
+	CAME A,[-1]
+	 JRST GROW0
+	MOVEI A,0
+	HRLZI B,(SETZ)
+	COCALL
+GROW1:	OR A,B
+	LSH B,-1
+	COCALL
+	CAME A,[-1]
+	 JRST GROW1
+	JRST GROW
+
 PATRNS:	COUNTER
 	ROT777
 	RANDOM
 	SAIL
+	BOUNCE
+	BREATH
+	GROW
 PATRNE:
 
 PATRN:	PATRNE