140206-dome+pt:superprog^^
0000-00-00 00:00:00

code at 0

include c51RD2.INC



         
			seg7port		data		P2
			mov			R0,	#00h
			mov			P2,	#01111110b	
			
main:
					
			jnb	P3.3,	main
			
						
anzeige:

			inc	R0
			mov	a,		R0
		   
			
		
			lcall	datenbankzugang
			mov	seg7port, a
			
			
			
			mov a, r0
			clr c
			subb a, #0fh
			jz unterprogramm

ende:
			jb		P3.3,	ende
			sjmp	main			
			
			
datenbankzugang:	

			mov	dptr,	#datenbank
			movc	a, @a+dptr
			ret
			
datenbank:

			DB		01111110b, 00010010b, 10111100b, 10110110b, 11010010b, 11100110b, 11101110b, 00110010b, 11111110b, 11110010b, 11111010b, 11001110b, 01101100b, 10011110b, 11101100b, 11101000b
			
unterprogramm:

			mov	R0, #0FFh		
			sjmp	ende