;
; ***********************************************
; * IR remote control transmitter with ATtiny45 *
; * Version 2 without timer interrupts          *
; * (C)2010 by http://www.avr-asm-tutorial.net  *
; ***********************************************
;
; Include-Datei for AVR ATtiny45
.NOLIST
.INCLUDE "tn45def.inc" ; Header file for ATTINY45
.LIST
;
; ============================================
;        D E B U G - O P T I O N S
; ============================================
;
; debug = 0: no Debug
; debug = 1: switch key 1 on
.equ debug = 0
.if debug == 1
	.equ debugkey = 10 ; 0..9: key, 10:key=star, 11:key=nmbr
	.endif
;
; ============================================
;  H A R D W A R E - I N F O R M A T I O N S 
; ============================================
;
; Xtal oscillator 2,457600 MHz for processor clock
; ADC1 for keypad input
; PB0 for IR-LED-driver
;            _________
;         1 /         |8
; Reset o--|          |--o Vcc
;          |    AT    |
; Xtal1 o--|          |--o ADC1
;          |   tiny   |
; Xtal2 o--|          |--o PB1 - Red LED
;          |    45    |
;   GND o--|          |--o PB0 - IR-LED
;          |__________|
;
; 
;
; ============================================
;      P O R T S   A N D   P I N S 
; ============================================
;
.equ pLedO = PORTB ; IR-LED
.equ pbLedO = PORTB0
.equ pLedD = DDRB
.equ pbLedD = DDB0
.equ pRedD = DDRB ; red LED
.equ pRedO = PORTB
.equ pbRedD = DDB1
.equ pbRedO = PORTB1
;
; ==============================================
;  F I X E D + D E R I V E D  K O N S T A N T S
; ==============================================
;
.equ clock = 2457600 ; clock frequency in Hz
.equ cLedFreq = 38400 ; Modulation frequency of the LED
.equ cPause = (10000*250000)/clock ; delay
;
; ============================================
;   R E G I S T E R   D E F I N I T I O N S
; ============================================
;
; R0 free
.def rHL = R1 ; High duration
.def rHH = R2 ; dto.
.def rLL = R3 ; Low duration
.def rLH = R4
.def rRpt = R5 ; Repeat counter
; free: R5..R15
.def rmp = R16 ; multi purpose outside ints
.def rimp = R17 ; multi purpose inside ints
.def rAdc = R18 ; ADC result register
.def rLastKey = R19 ; last pressed key
.def rKeyCnt = R20 ; counter for pressed key
.def rCS = R21 ; short term counter
; free R22..R23
.def rCL = R24 ; 16-Bit-counter, LSB
.def rCH = R25 ; dto., MSB
; X used for High pulse
; Y used for Low pulse
; Z 
;
; ============================================
;       S R A M   D E F I N I T I O N S
; ============================================
;
.DSEG
.ORG  0X0060
;
; ==============================================
;   R E S E T   A N D   I N T   V E K T O R S
; ==============================================
;
.CSEG
.ORG $0000
	rjmp Main ; Reset-vector
	reti ; Int0 vector
	reti ; PcInt0 vector
	reti ; TC1CompA Int vector
	reti ; TC1Ovf Int vector
	reti ; TC0Ovf Int vector
	reti ; EE RDY Int vector
	reti ; ANA COMP Int vector
	rjmp AdcInt ; ADC Int vector
	reti ; TC1CompB Int vector
	reti ; TC0CompA Int vector
	reti ; TC0CompB Int vector
	reti ; WDT Int vector
	reti ; USIStart Int vector
	reti ; USIOvrflw Int vector
;
; ==========================================
;    I N T E R R U P T   S E R V I C E
; ==========================================
;
AdcInt:
	in rAdc,ADCH ; read ADC result
	sbi ADCSRA,ADSC ; start conversion
	set ; set T flag
	reti
;
; ==========================================
;    M A I N   P R O G R A M M    I N I T
; ==========================================
;
Main:
; Init stack
	ldi rmp,HIGH(RAMEND) ; Init MSB stack
	out SPH,rmp
	ldi rmp, LOW(RAMEND) ; Init LSB stack
	out SPL,rmp
; Init Port B
	sbi pLedD,pbLedD ; IR-LED direction Port B
	sbi pRedD,pbRedD ; red LED
	rcall Wait
; Init ADC
.if debug == 1 ; simulate key
	ldi ZH,HIGH(2*DbgKeyCode+debugkey)
	ldi ZL,LOW(2*DbgKeyCode+debugkey)
	lpm rAdc,Z ; key to Adc result
	set ; set flag
	rjmp DebugLbl
	DbgKeyCode: ; 0,1,2,3,4,5,6,7,8,9,Star,Nmbr
	.db 84,62,161,235,45,137,221,32,110,206,18,185
	.else
	ldi rmp,(1<<ADLAR)|(1<<MUX0)
	out ADMUX,rmp
	ldi rmp,(1<<ADEN)|(1<<ADSC)|(1<<ADIE)|(1<<ADPS2)|(1<<ADPS1)|(1<<ADPS0)
	out ADCSRA,rmp
	ldi rmp,1<<SE ; enable sleep
	out MCUCR,rmp
	sei
	.endif
;
; =========================================
;     P R O G R A M  -  L O O P
; =========================================
;
Loop:
	sleep ; send to sleep
	nop ; Dummy for wakeup
	sbi pRedO,pbRedO ; red lamp off
	brtc Loop ; no ADC int
.if debug == 1
DebugLbl:
	.else
	clt
	.endif
	cpi rAdc,10 ; no key pressed?
	brcc Loop1 ; pressed
	clr rLastKey ; clear last pressed key
	clr rKeyCnt ; key counter to zero
	rjmp Loop
Loop1: ; key pressed
	rcall GetKey ; identify key
	ldi rmp,(1<<ADEN)|(1<<ADSC)|(1<<ADIE)|(1<<ADPS2)|(1<<ADPS1)|(1<<ADPS0)
	out ADCSRA,rmp
	rjmp loop ; back to loop
;
; Identify pressed key
;
GetKey:
	ldi ZH,HIGH(2*KeyTab) ; key table
	ldi ZL,LOW(2*KeyTab)
GetKeyNext:
	lpm rmp,Z+ ; read table value
	cp rAdc,rmp ; compare with table value
	brcc GetKeyNext ; next table value
	sbci ZL,LOW(2*KeyTab)
	sbci ZH,HIGH(2*KeyTab)
	cp ZL,rLastKey
	breq GetKeyEqual
	mov rLastKey,ZL ; store key
	clr rKeyCnt ; clear key counter
	ret
GetKeyEqual:
	inc rKeyCnt ; inc counter
	cpi rKeyCnt,10 ; 10 identical key
	breq GetKeyExe
	ret
GetKeyExe:
	cbi ADCSRA,ADIE
	nop
	nop
	nop
WaitAdcRdy:
	sbic ADCSRA,ADSC
	rjmp WaitAdcRdy
	lsl ZL
	mov rmp,ZL
	ldi ZH,HIGH(2*PTab)
	ldi ZL,LOW(2*PTab)
	add ZL,rmp
	ldi rmp,0
	adc ZH,rmp
	lpm XL,Z+
	lpm XH,Z+
	mov ZH,XH
	mov ZL,XL
	lsl ZL
	rol ZH
	cbi pRedO,pbRedO ; lamp on
Sequ: ; send sequence
	lpm rmp,Z+ ; 3 (S=3), read byte 1
	tst rmp ; 1 (S=4), = zero?
	brne Sequ1 ; 1/2
Wait:
	ldi rCH,HIGH(cPause)
	ldi rCL,LOW(cPause)
SequWaitEnd:
	sbiw rCL,1
	brne SequWaitEnd
	sbi pRedO,pbRedO
	ret
Sequ1: ; (S=6)
	mov XL,rmp ; 1
	cbr XL,(1<<bHgh)|(1<<bDbl) ; 1, isolate repeat
	mov rRpt,XL ; 1
	sbrc rmp,7 ; 1/2, single byte?
	rjmp Sequ2 ; 2, double byte
	lpm rHL,Z+ ; 3, read high byte
	clr rHH ; 1
	lpm rLL,Z+ ; 3, read low byte
	clr rLH ; 1
	nop ; 1
	nop ; 1
	nop ; 1
	rjmp SequRptH ; 2 (S=24)
Sequ2: ; (S=12), double byte
	lpm rHL,Z+ ; 3
	lpm rHH,Z+ ; 3
	lpm rLL,Z+ ; 3
	lpm rLH,Z+ ; 3
SequRptH: ; (S=24), high sequence
	mov rCH,rHH ; 1
	mov rCL,rHL ; 1
SequH: ; (S=26, off=30), send high sequence
	sbrs rmp,bHgh ; 1/2, IR LED not on?
	rjmp SequHOff ; 2 (S=29)
; ------------------ switch on --------------------
	sbi pLedO,pbLedO ; 2 (S=30, on=2), LED on
	rjmp SequHLoop ; 2 (6, S=32, on=4)
SequHOff: ; (S=29)
	nop ; 1 (S=30)
	nop ; 1 (S=31)
	nop ; 1 (S=32)
SequHLoop: ; (S=32, on=4)
	; nT = 4+3*(cShortHH-1)+3 = 4+3*cShortHH-3+3 = 3*cShortHH+4
	; cShortHH = (nT-4)/3  = (32-4)/3 = 9 MOD 1
	.equ cShortHH = 9
	ldi rCs,cShortHH ; 1 (S=33, on=5)
SequHS: ; (S=33, on=5)
	dec rCs ; 1
	brne SequHS ; 1/2
	; nT = 3*9 + 4 = 31
	nop ; 1 (S=64, on = 32)
; ------------------ switch off -------------------
	cbi pLedO,pbLedO ; 2 (off=2)
	sbiw rCL,1 ; 2 (S=24, off=4)
	breq SequLE ; end of signal
	; (off=5)
	; nT = 3* (cShortLL-1) + 2 = 3*cShortLL-1
	; cShortLL = (nT+1)/3 = ((30-2-6)+1)/3 = 7 MOD 2
	.equ cShortLL = 7
	ldi rCs,cShortLL ; 1 (off=6)
SequLS:
	dec rCs ; 1
	brne SequLS ; 1/2
	; nt = 6*3+2 = 20, off = 26
	nop ; 1 (off=27)
	nop ; 1 (off=28)
	rjmp SequH ; 1/2 1: 2:(S=26, off=30)
; ------------------- end switch off --------------
SequLE: ; (off=6), from short Low to long Low
	; cShortLE = (nT+1)/3 = (30-7+1)/3 = 8 MOD 0
	.equ cShortLE = 8
	ldi rCs,cShortLE ; 1 (Off=7)
SequLELoop:
	dec rCs
	brne SequLELoop
	; nT = 7*3+2 = 23 
	; (Off=30)
; -------------------- begin long low -------------
; (off=30, sl1=0), signal sended, send long low
	mov rCH,rLH ; 1 (off=31), copy Low duration
	mov rCL,rLL ; 1 (off=32)
SequLLDel: ; (sl1=0)
	sbiw rCL,1 ; 2 (sl1=2), next long loop
	breq SequLLEnd ; 1/2, end of long loop
	; (sl1=3)
	; cLongL = (nT+1)/3 = (64-2-3-1+1)/3 = 19 MOD 2
	.equ cLongL = 19
	ldi rCs,cLongL ; 1 (sl1=4)
SequLLLoop: ; Long Low Loop
	dec rCs ; 1
	brne SequLLLoop ; 1/2
	; nT = 3*18+2 = 56
	; (sl1=60)
	nop ; 1 (sl1=61)
	nop ; 1 (sl1=62)
	rjmp SequLLDel ; 2 (S=, sl1=64)
; --------------------- end long low --------------
SequLLEnd: ; (sl1=4, end of long loop
	dec rRpt ; 1 (sl1=5)
	breq SequRpt ; 1/2 (sl1=6/7)
	; (sl1=6)
	; nT = 60-2-1-6 = 51
	; cLLE = (51+1)/3 = 17 MOD 1
	.equ cLLE = 17
	ldi rCs,cLLE ; 1 (sl1=7)
SequLLEndLoop:
	dec rCs
	brne SequLLEndLoop
	; nT = 3*16+2 = 50
	; (sl1=57)
	nop ; 1 (sl1=58)
	rjmp SequRptH ; 2 (sl1=64-4=60), next high sequence
SequRpt: ; (sl1=9), next repeat
	; nT = 36-9-2-1 = 24
	; cSRpt = (nt+1)/3 = 25/3 = 8 MOD 1
	.equ cSRpt = 8
	ldi rCs,cSRpt ; 1 (sl1=10)
SequRptLoop:
	dec rCs ; 1
	brne SequRptLoop ; 2
	; nT = 3*7+2 = 23
	nop ; 1 (sl1=34)
	rjmp Sequ ; 2 (sl1=64-28=36) ; next sequence
;
; keytable
KeyTab:
.db 26,38,53,71,96,124,149,173,196,215,226,243,255,255
;
; Command table
;
PTab:
.dw pStar,p7,p4,p1,p0,p8,p5,p2,pNmbr,p9,p6,p3
;
; Table with signal codes
; Byte 1:
;   7: 0: Counter 1-Byte, < 6630 µs
;      1: Counter 2-byte, > 6630 µs
;   6: 0: only low cycles
;      1: High+Low cycles
;   5..0: Repeat counter, 0..63
;         0 = End of table
.equ bDbl = 7
.equ nDbl = 1<<bDbl
.equ bHgh = 6
.equ nHgh = 1<<bHgh
.equ cH = nHgh
.equ nDblHgh = nDbl+nHgh
.equ cHW = nDblHgh
.equ cW = nDbl
;
pStar:
.db 0,0 ; unused
pNmbr:
.db 0,0 ; unused
p0: ; switch TV/SAT/HDR/Beamer/Amplifier off
	; Beamer and Amplifier off, phase I
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,21,1+cH,21,60
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,21,1+cH,21,60
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,21,1+cH,21,60
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,21,1+cH,21,60
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	; switch TV off
	.db 2+cH,38,30,1+cH,69,30,5+cH,38,30,1+cH,38,69
	.db 1+cH,38,30,1+cH,69,30,1+cHW,low(38),high(38),low(3473),high(3473),2+cH,38,30
	.db 1+cH,69,30,5+cH,38,30,1+cH,38,69,1+cH,38,30
	.db 1+cH,69,30,1+cHW,low(38),high(38),low(3473),high(3473)
	.db 2+cH,38,30,1+cH,69,30,5+cH,38,30,1+cH,38,69
	.db 1+cH,38,30,1+cH,69,30,1+cHW,low(38),high(38),low(3473),high(3473),2+cH,38,30
	.db 1+cH,69,30,5+cH,38,30,1+cH,38,69,1+cH,38,30
	.db 1+cH,69,30,1+cHW,low(38),high(38),low(3473),high(3473)
	.db 2+cH,38,30,1+cH,69,30,5+cH,38,30,1+cH,38,69
	.db 1+cH,38,30,1+cH,69,30,1+cHW,low(38),high(38),low(3473),high(3473),2+cH,38,30
	.db 1+cH,69,30,5+cH,38,30,1+cH,38,69,1+cH,38,30
	.db 1+cH,69,30,1+cHW,low(38),high(38),low(3473),high(3473)
	; switch SAT off
	.db 1+cHW,low(349),high(349),low(172),high(172),1+cH,22,64
	.db 7+cH,22,22,1+cH,22,64,1+cH,22,22,6+cH,22,64
	.db 2+cH,22,22,3+cH,22,64,1+cH,22,22,4+cH,22,64
	.db 3+cH,22,22,1+cH,22,64,2+cH,22,22,1+cHW,low(22),high(22),low(1539),high(1539)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 10,255,255,10,255,255
	; switch HDR off
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),63,255,255
	; Beamer off, phase II
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,21,1+cH,21,60
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,21,1+cH,21,60
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,21,1+cH,21,60
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,21,1+cH,21,60
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	; end of commands
	.db 0,0	 	 
p1: ; switch TV/SAT/HDR on
	; TV channel four
	.db 1+cH,35,35,1+cH,68,35,7+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 1+cH,35,35,1+cH,68,35,7+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 1+cH,35,35,1+cH,68,35,7+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 1+cH,35,35,1+cH,68,35,7+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 1+cH,35,35,1+cH,68,35,7+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 1+cH,35,35,1+cH,68,35,7+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 10,255,255,10,255,255
	; SAT on
	.db 1+cHW,low(349),high(349),low(172),high(172),1+cH,22,64
	.db 7+cH,22,22,1+cH,22,64,1+cH,22,22,6+cH,22,64
	.db 2+cH,22,22,3+cH,22,64,1+cH,22,22,4+cH,22,64
	.db 3+cH,22,22,1+cH,22,64,2+cH,22,22,1+cHW,low(22),high(22),low(1539),high(1539)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 10,255,255,10,255,255
	; HDR on
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),63,255,255
	; TV av channel
	.db 2+cH,35,30,1+cH,68,30,3+cH,35,30,1+cH,35,68
	.db 2+cH,35,30,1+cH,68,30,1+cH,35,30,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,30,1+cH,68,30,3+cH,35,30,1+cH,35,68
	.db 2+cH,35,30,1+cH,102,9,1+cH,35,30,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,30,1+cH,68,30,3+cH,35,30,1+cH,35,68
	.db 2+cH,35,30,1+cH,68,30,1+cH,35,30,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,30,1+cH,68,30,3+cH,35,30,1+cH,35,68
	.db 2+cH,35,30,1+cH,68,30,1+cH,35,30,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,30,1+cH,68,30,3+cH,35,30,1+cH,35,68
	.db 2+cH,35,30,1+cH,68,30,1+cH,35,30,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,30,1+cH,68,30,3+cH,35,30,1+cH,35,68
	.db 2+cH,35,30,1+cH,68,30,1+cH,35,30,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,30,1+cH,68,30,3+cH,35,30,1+cH,35,68
	.db 2+cH,35,30,1+cH,68,30,1+cH,35,30,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,30,1+cH,68,30,3+cH,35,30,1+cH,35,68
	.db 2+cH,35,30,1+cH,68,30,1+cH,35,30,1+cHW,low(35),high(35),low(3472),high(3472)
	; end of commands
	.db 0,0
p2: ; switch SAT/HDR/Beamer/Amplifier on
	; Beamer and Amplifier on
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,60,5+cH,21,21
	.db 1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085),1+cHW,low(325),high(325),low(161),high(161)
	.db 4+cH,21,21,4+cH,21,60,1+cH,21,161,1+cH,21,60
	.db 5+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,60,1+cH,21,15
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,21
	.db 4+cH,21,60,1+cH,21,161,1+cH,21,60,1+cH,21,15
	.db 4+cH,21,21,1+cH,21,60,1+cH,21,21,1+cHW,low(21),high(21),low(1085),high(1085)
	; HDR on
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 4+cH,23,16,1+cH,23,55,3+cH,23,16,1+cH,23,55
	.db 2+cH,23,16,1+cH,23,55,1+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,2+cH,23,55,1+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,4+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,2+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),32,255,255
	; SAT on
	.db 1+cHW,low(349),high(349),low(172),high(172),1+cH,22,64
	.db 7+cH,22,22,1+cH,22,64,1+cH,22,22,6+cH,22,64
	.db 2+cH,22,22,3+cH,22,64,1+cH,22,22,4+cH,22,64
	.db 3+cH,22,22,1+cH,22,64,2+cH,22,22,1+cHW,low(22),high(22),low(1539),high(1539)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	; end of commands
	.db 0,0
p3: ; unused
	.db 0,0
p4: ; Volume up
	; Volume Beamer up
	.db 1+cHW,low(325),high(325),low(161),high(161),1+cH,21,15
	.db 3+cH,21,21,4+cH,21,60,1+cH,21,161,1+cH,21,60
	.db 1+cH,21,21,1+cH,21,60,4+cH,21,21,1+cH,21,60
	.db 1+cHW,low(21),high(21),low(1085),high(1085),1+cHW,low(325),high(325),low(161),high(161)
	.db 4+cH,21,21,4+cH,21,60,1+cH,21,161,1+cH,21,60
	.db 1+cH,21,21,1+cH,21,60,4+cH,21,21,1+cH,21,60
	.db 1+cHW,low(21),high(21),low(1085),high(1085),1+cHW,low(325),high(325),low(161),high(161)
	.db 4+cH,21,21,4+cH,21,60,1+cH,21,161,1+cH,21,60
	.db 1+cH,21,21,1+cH,21,60,4+cH,21,21,1+cH,21,60
	.db 1+cHW,low(21),high(21),low(1085),high(1085),1+cHW,low(325),high(325),low(161),high(161)
	.db 4+cH,21,21,4+cH,21,60,1+cH,21,161,1+cH,21,60
	; Volume TV up
	.db 1+cH,35,35,1+cH,68,35,5+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,2+cH,35,35,1+cHW,low(35),high(35),low(7233),high(7233),2+cH,35,35
	.db 1+cH,68,35,4+cH,35,35,1+cH,35,68,1+cH,68,35
	.db 2+cH,35,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,35,1+cH,68,35,4+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,2+cH,35,35,1+cHW,low(35),high(35),low(3472),high(3472),2+cH,35,35
	.db 1+cH,68,35,4+cH,35,35,1+cH,35,68,1+cH,68,35
	.db 2+cH,35,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,35,1+cH,68,35,4+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,2+cH,35,35,1+cHW,low(35),high(35),low(3472),high(3472),2+cH,35,35
	.db 1+cH,68,35,4+cH,35,35,1+cH,35,68,1+cH,68,35
	.db 2+cH,35,35,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 0,0 ; end of code
p5: ; Start HDR recording
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,5+cH,23,16,1+cH,23,55,4+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,4+cH,23,55,2+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 5+cH,23,16,1+cH,23,55,10+cH,23,16,1+cH,23,172
	.db 5+cH,23,16,1+cH,23,55,4+cH,23,16,3+cH,23,55
	.db 1+cH,23,16,4+cH,23,55,2+cH,23,16,1+cHW,low(23),high(23),low(2287),high(2287)
	.db 0,0 ; unused
p6: ; SAT Program up
	.db 1+cHW,low(349),high(349),low(172),high(172),1+cH,22,64
	.db 7+cH,22,22,1+cH,22,64,1+cH,22,22,6+cH,22,64
	.db 1+cH,22,22,1+cH,22,64,1+cH,22,22,1+cH,22,64
	.db 2+cH,22,22,3+cH,22,64,1+cH,22,22,1+cH,22,64
	.db 1+cH,22,22,2+cH,22,64,2+cH,22,22,1+cHW,low(22),high(22),low(1539),high(1539)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 0,0 ; unused
p7: ; Volume down
	; Volume beamer down
	.db 1+cHW,low(325),high(325),low(161),high(161),4+cH,21,15
	.db 2+cH,26,60,2+cH,21,60,1+cH,26,161,2+cH,21,15
	.db 1+cH,21,60,1+cH,26,15,3+cH,21,15,1+cH,21,60
	.db 1+cHW,low(26),high(26),low(1085),high(1085),1+cHW,low(325),high(325),low(161),high(161)
	.db 1+cH,26,15,1+cH,21,15,1+cH,26,15,1+cH,21,15
	.db 4+cH,21,60,1+cH,21,161,2+cH,21,15,1+cH,21,60
	.db 4+cH,21,15,1+cH,21,60,1+cHW,low(21),high(21),low(1085),high(1085),1+cHW,low(325),high(325),low(161),high(161)
	.db 4+cH,21,21,4+cH,21,60,1+cH,21,161,2+cH,21,21
	.db 1+cH,21,60,4+cH,21,21,1+cH,21,60,1+cHW,low(21),high(21),low(1085),high(1085)
	; Volume TV down
	.db 2+cH,35,35,1+cH,68,35,4+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cH,35,35,1+cH,35,68,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,35,1+cH,68,35,4+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cH,35,35,1+cH,35,68,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,35,1+cH,68,35,4+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cH,35,35,1+cH,35,68,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 2+cH,35,35,1+cH,68,35,4+cH,35,35,1+cH,35,68
	.db 1+cH,68,35,1+cH,35,35,1+cH,35,68,1+cHW,low(35),high(35),low(3472),high(3472)
	.db 0,0 ; unused
p8: ; Stop HDR recording
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,5+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 1+cH,172,172,5+cH,23,16,1+cH,23,55,10+cH,23,16
	.db 1+cH,23,172,5+cH,23,16,1+cH,23,55,3+cH,23,16
	.db 1+cH,23,55,1+cH,23,16,2+cH,23,55,1+cH,23,16
	.db 3+cH,23,55,1+cH,23,16,1+cH,23,55,1+cH,23,16
	.db 1+cHW,low(23),high(23),low(2287),high(2287),1+cH,172,172
	.db 0,0 ; unused
p9: ; SAT Program down
	.db 1+cHW,low(349),high(349),low(172),high(172),1+cH,22,64
	.db 7+cH,22,22,1+cH,22,64,1+cH,22,22,6+cH,22,64
	.db 1+cH,22,22,1+cH,22,64,2+cH,22,22,1+cH,22,64
	.db 1+cH,22,22,3+cH,22,64,1+cH,22,22,2+cH,22,64
	.db 1+cH,22,22,1+cH,22,64,2+cH,22,22,1+cHW,low(22),high(22),low(1539),high(1539)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 1+cHW,low(349),high(349),low(86),high(86),1+cHW,low(22),high(22),low(3708),high(3708)
	.db 0,0 ; unused
;
; Test codes
;
;pStar:
;.db 5+nHgh,25,25,0
;pNmbr:
;.db 10+nHgh,50,50,0
;p0:
;.db 15+nHgh,75,75,0
;p1:
;.db 20+nHgh,100,100,0
;p2:
;.db 25+nHgh,125,125,0
;p3:
;.db 30+nHgh,150,150,0
;p4:
;.db 35+nHgh,175,175,0
;p5:
;.db 40+nHgh,200,200,0
;p6:
;.db 45+nHgh,225,225,0
;p7:
;.db 50+nHgh,250,250,0
;p8:
;.db 55+nDblHgh,Low(275),High(275),Low(275),HIGH(275),0
;p9:
;.db 60+nDblHgh,Low(300),High(300),Low(300),High(300),0
;
; End of source code
; Copyright
.db "(C)2010 by Gerhard Schmidt  " ; readable by humans
.db "C(2)10 0ybG reahdrS hcimtd  " ; wordwise
;