github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

More patterns for the light show.

Browse Source
This commit is contained in:
Lars Brinkhoff 2025-08-23 17:21:22 +02:00
parent a111e32f1c
commit be684d30e1
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/lars/lites.80
View File

@ -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