Updates for the light show program.

Author: volvo-larsbrinkhoff

src/lars/lites.79 src/lars/lites.80src/lars/lites.79 renamed to src/lars/lites.80

@@ -3,6 +3,7 @@
 ;Default is to build for both TS and NTS.
 IFNDEF TS,TS==1
 IFNDEF NTS,NTS==1
+IFE TS+NTS,.ERR Must choose at least one of TS or NTS.
 
 A=1
 B=2
@@ -16,7 +17,7 @@ PI==4
 
 TICKS=20*60.				;20 seconds.
 PDLLEN==20
-
+
 GO:	MOVE P,[-PDLLEN,,PDL-1]
 IFN TS,[
 	;Timesharing code starts here.  If not present, fall through to 
@@ -32,15 +33,13 @@ IFN TS,[
 	.REALT A,			;Clock interrupt every 1/60 seconds.
 	.SUSET [.SMASK,,[%PIRLT]]
 	JFCL
-	 .HANG
+	 .HANG				;Now entirely interrupt driven.
 
 TSINT:	0
 	0
-	PUSH P,A
 	SKIPL A,TSINT
 	 TLNN A,(%PIRLT)		;Is this the clock interrupt?
 	  .DISMIS TSINT+1
-	POP P,A
 	PUSHJ P,LITES
 	.DISMIS TSINT+1
 
@@ -49,13 +48,13 @@ LOC 42
 	TSINT
 LOC ZZ
 ]
-
+
 IFN NTS,[
 	;Non-timesharing code starts here.  If the TS code is executed
 	;first, the UUO handler will be called and jump here.
 NTS1:	CONO APR,3002			;APR interrupt at channel 2, enable clock.
 	CONO PI,12240			;Enable interrupt.
-	JRST .
+	JRST .				;Now entirely interrupt driven.
 
 APRBRK:	0
 	CONSO APR,1000			;Is this the clock interrupt?
@@ -73,11 +72,16 @@ LOC 44
 	JSR APRBRK
 LOC ZZ
 ]
+
+LITES:	AOSN TICK
+	 PUSHJ P,NEW			;Pattern ran out of ticks, get new one.
+	MOVE Q,PC
+	JSP Q,(Q)			;Coroutine call.
+	MOVEM Q,PC
+	DATAO PI,A			;Display A on memory indicators.
+	POPJ P,
 
-LITES:	PUSH P,A
-	SKIPE TICK
-	 JRST LITES0
-	MOVE A,[TICKS]			;Pattern ran out of ticks, get new one.
+NEW:	MOVE A,[-TICKS]
 	MOVEM A,TICK
 	MOVE A,PATRN
 	CAIN A,PATRNE
@@ -86,15 +90,8 @@ LITES:	PUSH P,A
 	MOVE A,@PATRN
 	AOS PATRN
 	MOVEM A,PC'
-LITES0:	MOVE Q,PC
-	POP P,A
-	JSP Q,(Q)			;Coroutine call.
-	MOVEM Q,PC
-	DATAO PI,A			;Display A on memory indicators.
-	SOS TICK
 	POPJ P,
-
-
+
 COUNTER:				;Simple counter pattern.
 	SETZ A,
 	JSP Q,(Q)
@@ -118,15 +115,15 @@ SAIL0:	ROT A,-1
 	TLC A,400000
 	JSP Q,(Q) ? JSP Q,(Q) ? JSP Q,(Q)
 	JRST SAIL0
-
+
 PATRNS:	COUNTER
 	ROT777
 	RANDOM
 	SAIL
 PATRNE:
 
 PATRN:	PATRNE
-TICK:	0
+TICK:	-1
 PDL:	BLOCK PDLLEN
 
 END GO