*
* Lights Action Camera!
*

restart:	lhi	data/256	; get table address
	lli	data
loop:	lam		; get byte from table
	ora		; test for end-marker
	jtz	restart	; ran out!
	out	0	; send to LEDs
	lbi	5	; delay count high
delay1:	xra		; delay count low
delay2:	sbi	1
	jfz	delay2
	dcb
	jfz	delay1
	inl		; move to next byte
	jfz	loop	; check for overflow into next page
	inh		; move to next page
	jmp	loop	; and continue

data:	db	200b, 100b, 040b, 020b, 010b, 004b, 002b
	db	001b, 002b, 004b, 010b, 020b, 040b, 100b
	db	200b, 100b, 040b, 020b, 010b, 004b, 002b
	db	001b, 002b, 004b, 010b, 020b, 040b, 100b
	db	201b, 102b, 044b, 030b, 044b, 102b
	db	201b, 102b, 044b, 030b, 044b, 102b
	db	201b, 303b, 347b, 377b, 347b, 303b, 201b
	db	0