17.02.2006 ith aufzug
2006-02-17 12:40:07

code at 0
include c51RD2.INC
mov	r0, #00000001b
lcall update

start:
			JB	P3.3, auf_check
			JB	P3.2, abw_check
			sjmp	start
			
auf_check:
			clr	c
			mov	a, r0
			subb	a, #1b
			jz		auf
			sjmp	start
			
auf:
			mov	a, r0
			rl		a
			mov	r0, a
			clr	c
			subb	a, #10000000b
			lcall	update
			lcall zeit
			lcall zeit
			lcall zeit
			lcall zeit
			lcall zeit
			lcall zeit
			jz		start
			sjmp	auf

abw_check:
			clr	c
			mov	a, r0
			subb	a, #10000000b
			jz		abw
			sjmp	start
			
abw:		
			mov	a, r0
			rr		a
			mov	r0, a
			clr	c
			subb	a, #1b
			lcall	update
			lcall zeit
			lcall zeit
			lcall zeit
			lcall zeit
			lcall zeit
			lcall zeit
			jz		start
			sjmp	abw

update:
			mov P2, r0
			ret

zeit:			mov r1, #0FFh
loop1:		mov r2, #0FFh
loop2:		djnz r2, loop2
				djnz r1, loop1
				ret