Ausug aus der Firmware vom Herrn Hoelscher

.include "m8515def.inc"

;Register and Pin definitions

.def tempL 				= r16
.def tempH				= r17
.def Flags				= r18
.def DMXstate			= r19
.def null				= r2
.def status				= r21
.def ind_count			= r3
.def blink				= r4
.def PwmCnt				= r20
.def SREGbuf			= r5
.def ChaseFine			= r6
.def ChaseRes			= r7

.equ StrobeFreqH		= 0x80  ; speicheradressen
.equ StrobeFreqL		= 0x81
.equ StrobeBuf			= 0x82

.equ OldStepH			= 0x83
.equ OldStepL			= 0x84
.equ NewStepH			= 0x85
.equ NewStepL			= 0x86
.equ StepCnt			= 0x87
.equ ChaseCnt			= 0x88
.equ ChaseSeed			= 0x89

.equ LED1= PD7					; STatusLED
.equ LED2= PE0
.equ BIT9= PE2					; Input Schalter 9

.equ DMX_FIELD=      0x60 		;SRAM-Beginn 
.equ DMX_CHANNELS=   10
.equ PWM_FIELD=      0x70		
.equ F_OSC=          8000
.equ FLASH_DURATION= 400
.equ IND_OFFSET=     12	 	;Offset für indicator-Timer (14Hz)

#define CHS_SPD		 (0x600)
#define RATE         (0x500)
#define PAT0		 (0x400)
#define PAT1         (PAT0 +0xA)
#define PAT2		 (PAT1 +0xA)
#define PAT3		 (PAT2 +0xA)
#define PAT4		 (PAT3 +0xA)
#define PAT5         (PAT4 +0xA)
#define PAT6         (PAT5 +0xA)
#define PAT7         (PAT6 +0xA)

.
.
.


;****************************** manual chaser mode ***********************************
chase:												;called by indicator
		sbis	PinE, PE1
		rjmp	chs_a
		sbic 	UCSRB,RXEN
		ret											;enable DMX reception
		sbi		UCSRB, RXEN
		clr		DMXstate
		ret

	chs_exit:
		sts		ChaseCnt, tempH
		ret

    chs_a:
		cbi		UCSRB,RXEN							;disable DMX
		sbr		Flags, (1<<VALID_DMX)|(1<<SIGNAL_COMING)
		lds		tempH, ChaseCnt						;load prescaler
		dec		tempH
		brne	chs_exit
		lds		tempL, ChaseSeed					;reseed prescaler
		sts		ChaseCnt, tempL

		add		ChaseFine, ChaseRes				;up-fade val
		adc		tempH, null							;(tempH was 0)
		mov		tempL, ChaseFine
		com		tempL								;down-fade val

		tst		tempH
		brne	chs_step
	  chs_step_ret:
		ldi		XL, low(DMX_FIELD +1)
		ldi 	XH, high(DMX_FIELD)
		ldi		ZL, 1
	   chase_fade:									;ch1..8
		clr		tempH
		lds		ZH, OldStepL
		and		ZH, ZL
		breq	cf_no_old
		mov		tempH, tempL
	   cf_no_old:
	    lds		ZH, NewStepL
		and		ZH, ZL
		breq	cf_no_new
        add		tempH, ChaseFine
       cf_no_new:
	    st		X+, tempH
		lsl		ZL
		brne	chase_fade
		
		clr		tempH								;9th ch
		lds		ZH, OldStepH
		sbrc	ZH, 0
		mov		tempH, tempL
		lds		ZH, NewStepH
		sbrc	ZH, 0
		add		tempH, ChaseFine
		st		X, tempH

		ret
		
		
	chs_step:
		sbr		Flags, (1<<DATA_REFRESHED)
		clr		ChaseFine							;reset fader
		ser		tempL

		lds		tempH, NewStepL						;change steps
		sts		OldStepL, tempH
		lds		tempH, NewStepH
		sts		OldStepH, tempH

		ldi		ZH, high(CHS_SPD*2)					;get speed
		in		ZL, PinC
		com		ZL
		swap	ZL
		andi	ZL, 0b00001111						;isolate pattern
		lpm		ZH, Z
		ldi		tempH, 1
		
		cpi		ZL, 5								;switch between resolution and prescale
		brsh	chs_decres
		mov		ChaseRes, tempH
		sts		ChaseSeed, ZH
		rjmp	chs_strb
       chs_decres:
	    mov		ChaseRes, ZH
		sts		ChaseSeed, tempH
	   chs_strb:

		clr		ZH									;add strobe
		sbis	PinE, PE2
		ldi		ZH,  220
		sts		DMX_FIELD, ZH

		ldi		ZH, high(PAT0*2)					;get next step
		lds		tempH, StepCnt
		mov		ZL, tempH
		lsl		ZL
		inc		tempH
		sts		StepCnt, tempH
		lpm		tempH, Z+
		sts		NewStepL, tempH
		lpm		tempH, Z
		sts		NewStepH, tempH
		
		sbrs	tempH, 1							;reset pattern?	
		rjmp	chs_step_ret
		
		in		ZL, PinC
		com		ZL
		andi	ZL, 0b00000111						;isolate pattern
		ldi		tempH, 10
		mul		ZL, tempH	
		sts		StepCnt, r0							;save pattern

		rjmp	chs_step_ret		
		
		
		

.
.
.


.include "lib_dmx_in.asm"

nix: rjmp nix

// Strobo frequency table (damped logarithmic)
.org RATE
.dw 65532, 60407, 56368, 53017, 50170, 47708, 45546, 43626, 41904, 40345, 38925, 37623, 36423, 35311, 34277, 33311 
.dw 32406, 31555, 30753, 29996, 29278, 28596, 27948, 27331, 26741, 26177, 25637, 25120, 24623, 24145, 23685, 23242 
.dw 22814, 22402, 22003, 21617, 21244, 20882, 20531, 20191, 19861, 19540, 19228, 18924, 18629, 18341, 18061, 17788 
.dw 17521, 17261, 17007, 16760, 16517, 16281, 16049, 15823, 15601, 15384, 15172, 14964, 14760, 14560, 14364, 14172 
.dw 13983, 13798, 13617, 13438, 13263, 13091, 12922, 12756, 12593, 12432, 12274, 12119, 11966, 11815, 11667, 11522 
.dw 11378, 11237, 11098, 10960, 10825, 10692, 10561, 10431, 10304, 10178, 10054, 9931,  9811,  9691,  9574,  9458 
.dw 9343,  9230,  9119,  9008,  8899,  8792,  8686,  8581,  8477,  8375,  8273,  8173,  8074,  7976,  7880,  7784 
.dw 7690,  7596,  7504,  7412,  7322,  7232,  7144,  7056,  6969,  6884,  6799,  6715,  6631,  6549,  6467,  6387 
.dw 6307,  6227,  6149,  6071,  5994,  5918,  5843,  5768,  5694,  5620,  5548,  5475,  5404,  5333,  5263,  5193 
.dw 5125,  5056,  4988,  4921,  4855,  4789,  4723,  4658,  4594,  4530,  4466,  4404,  4341,  4279,  4218,  4157 
.dw 4097,  4037,  3978,  3919,  3860,  3802,  3744,  3687,  3631,  3574,  3518,  3463,  3408,  3353,  3299,  3245
.dw 3191,  3138,  3085,  3033,  2981,  2929,  2878,  2827,  2777,  2726,  2677,  2627,  2578,  2529,  2480,  2432
.dw 2384,  2337,  2289,  2242,  2196,  2149,  2103,  2057,  2012,  1967,  1922,  1877,  1833,  1789,  1745,  1701 
.dw 1658,  1615,  1572,  1530,  1488,  1446,  1350,  1250,  1100,  1050,  1000,  950,   900,   850,   800,   750
.dw 700,   650,   600,   550,   500,   450,   400,   350,   300,   250,   200,   150


.org PAT0					;on
.dw 0b0111111111
.dw 0b1111111111

.org PAT1					;Lauflicht
.dw 0b0000000001
.dw 0b0000000010
.dw 0b0000000100
.dw 0b0000001000
.dw 0b0000010000
.dw 0b0000100000
.dw 0b0001000000
.dw 0b0010000000
.dw 0b1100000000

.org PAT2					;ping pong
.dw 0b0000010000
.dw 0b0000100000
.dw 0b0000001000
.dw 0b0001000000
.dw 0b0000000100
.dw 0b0010000000
.dw 0b0000000010
.dw 0b0100000000 
.dw 0b1000000001

.org PAT3					;ping pong
.dw 0b0000011000
.dw 0b0000100100
.dw 0b0001000010
.dw 0b1010000001

.org PAT4					;pfeil
.dw 0b0000011000
.dw 0b0000111100
.dw 0b0001111110
.dw 0b0011111111
.dw 0b0011100111
.dw 0b0011000011
.dw 0b1010000001

.org PAT5					;RGB
.dw 0b0001001001
.dw 0b0011011011
.dw 0b0010010010
.dw 0b0110110110
.dw 0b0100100100
.dw 0b1101101101

.org PAT6					;RGB spread
.dw 0b0100010001
.dw 0b0101110011
.dw 0b0001100010
.dw 0b0011101110
.dw 0b0010001100
.dw 0b1110011101

.org PAT7
.dw 0b0001001001			;RGB single change
.dw 0b0001001011
.dw 0b0001011011
.dw 0b0011011011
.dw 0b0011011010
.dw 0b0011010010
.dw 0b0010010010
.dw 0b0010010110
.dw 0b0010110110
.dw 0b0110110110
.dw 0b0110110100
.dw 0b0110100100
.dw 0b0100100100
.dw 0b0100100101
.dw 0b0100101101
.dw 0b0101101101
.dw 0b0101101001
.dw 0b1101001001


.org CHS_SPD
.db 25, 10, 3, 2, 1, 2, 3, 5, 8, 12, 17, 22, 27, 35, 40, 48