diff --git a/src/lars/lites.80 b/src/lars/lites.80 index 8f5326f6..a782a667 100644 --- a/src/lars/lites.80 +++ b/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