prog vom 10.02.06
0000-00-00 00:00:00

code at 0

include c51RD2.INC

		schalter8	data	P1
		seg7port	data	P2

go:	mov	a,	schalter8
		anl	a,	#0Fh
		lcall	dual_to_7segm
		mov	seg7port, a
		sjmp	go
		
dual_to_7segm:

		mov	dptr,	#seg7code
		movc	a, @a+dptr
		ret
		
seg7code:
		DB		01111110b, 00010010b, 10111100b, 10110110b, 11010010b, 11100110b, 11101110b, 00110010b, 11111110b, 11110010b, 11111010b, 11001110b, 01101100b, 10011110b, 11101100b, 11101000b