Light show.

src/lars/lites.79

@@ -0,0 +1,97 @@
+	title light show
+
+a=1
+b=2
+q=16
+p=17
+
+apr==0
+pi==4
+
+ticks=5*60.
+pdllen=20
+
+go=.
+
+loc 41
+	jrst nts
+	jsr tsint
+	jsr aprbrk
+
+loc go
+	move p,[-pdllen,,pdl-1]
+	seto a,
+	.iotlsr a,
+	move a,[squoze 0,mipgds]
+	.eval a,
+	 .value
+	hrli a,[-1]
+	.setloc a,
+	move a,[%rlfls\%rlset,,[1]]
+	.realt a,
+	.suset [.smask,,[%pirlt]]
+	jfcl
+	 .hang
+
+nts:	cono apr,5002
+	cono apr,2002
+	cono pi,12240
+	jrst .
+
+aprbrk:	0
+	conso apr,1000
+	 jrst 12,@aprbrk
+	pushj p,lites
+	cono apr,3002
+	jrst 12,@aprbrk
+
+tsint:	0
+	0
+	push p,a
+	skipl a,tsint
+	 tlnn a,(%pirlt)
+	  .dismis tsint+1
+	pop p,a
+	pushj p,lites
+	.dismis tsint+1
+
+lites:	push p,a
+	skipe tick
+	 jrst lites0
+	move a,[ticks]
+	movem a,tick
+	move a,prog
+	cain a,proge
+	 movei a,progs
+	movem a,prog
+	move a,@prog
+	aos prog
+	movem a,pc'
+lites0:	move q,pc
+	pop p,a
+	jsp q,(q)
+	movem q,pc
+	datao pi,a
+	sos tick
+	popj p,
+
+
+lites1:	setz a,
+l1a:	jsp q,(q)
+	aos a
+	jrst l1a
+
+lites2:	movei a,777
+l2a:	jsp q,(q)
+	rot a,1
+	jrst l2a
+
+progs:	lites1
+	lites2
+proge:
+
+prog:	proge
+tick:	0
+pdl:	block pdllen
+
+end go