include reg_52.pdf
code at 0

	sjmp	init					
				
	org 03h					
	sjmp	ISR_EX0
	org 0bh						
	sjmp	ISR_T0
	org 13h						
	setb TR0
	;sjmp	ISR_EX1
	org 1bh					
	sjmp	ISR_T1

	
init:	setb	EA		
	setb	EX0					
	setb	EX1					
	setb	ET0							
	setb	ET1					
	mov	TMOD,#00010001b	
	mov 	TCON,#00000101b	
	setb	P3.7					
	clr	P3.6					
	mov	R0,#255				
	mov 	P2,#0					
	mov	R1,#40d				
	mov	TH1,#11111111b		
	mov	TL1,#11111111b		
haupt: 	sjmp haupt					

ISR_EX0:cjne	R0,#15,hoch			
	reti							
hoch:	inc	R0						
	acall AusEX01				
	reti

ISR_EX1:cjne	R0,#1,runter		
	reti						
runter:	mov	A,R0					
	subb	A,#3					
	mov	R0,A					
	acall AusEX01				
	reti

AusEX01:mov	DPTR,#seg7code		
	mov	A,R0				
	movc	A,@A+DPTR			
	mov	P2,A					
	mov	DPTR,#tcode			
	mov	A,R0					
	movc	A,@A+DPTR			
	mov	TH0,A					
	inc	R0						
	mov	A,R0					
	movc	A,@A+DPTR			
	mov	TL0,A					
	setb	TR0					
	setb	TR1					
	ret							

ISR_T0:	clr	TR0
	mov	DPTR,#tcode
	mov	A,R0					
	movc	A,@A+DPTR			
	mov	TL0,A					
	dec	R0						
	mov	A,R0					
	movc	A,@A+DPTR			
	mov	TH0,A					
	inc	R0						
	setb	TR0
	cpl	P2.0					
	reti

ISR_T1:	mov	TL1,#11111111b		
	mov	TH1,#11111111b		
	djnz	R1,loop0				
	clr	TR0					
	clr	TR1					
	mov	R1,#40d				
loop0:	reti



seg7code:
	DB 01101100b
	DB 01111110b
	DB 11101100b
	DB 11101000b
	DB 11101110b
	DB 11111010b
	DB 11011010b
	DB 01101100b 

tcode:
DB 00000000b, 11111111b;	DB 00001110b, 11101000b ;c3
	DB 00001101b, 01001001b ;d3
	DB 00001011b, 11010110b ;e3
	DB 00010110b, 01010010b ;f3
	DB 00001001b, 11110111b ;g3
	DB 00001000b, 11100000b ;a3
	DB 00000111b, 11101000b ;h3
	DB 00000111b, 01110100b ;c4