ith lösung vom 14.2 RICHTIG
0000-00-00 00:00:00

 	code at 0

include c51RD2.INC

		schalter8	equ	P1
		seg7port		equ	P2
		seg7_L		equ	p3.7
		seg7_R		equ	p3.6

go:
		mov	r0, schalter8
		mov	a, r0
		anl	a, #0F0h
		swap	a
		
		acall	dual_to_7segm
		clr	seg7_R
		setb	seg7_L
		mov	seg7port, a
		acall	zeit
		
		mov	a, r0
		anl	a, #0Fh
		
		acall	dual_to_7segm
		clr	seg7_L
		setb	seg7_R				
		mov	seg7port, a
		acall	zeit
	
	
		sjmp	go
		
zeit:
		djnz r1, zeit
		ret
		
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