Ampel 001
2006-05-19 15:03:33

code at 0
include C51RD2.INC
	mov 	r0, #0
	sjmp 	init
	
	org	000bh	
	inc 	r0
	mov 	a, r0
	clr 	c
	subb 	a, #00001000b
	jz 	reset0			
	reti				

	
init:	
	mov 	TMOD, #00000001b			
	mov 	TCON, #00010000b
	mov 	IP, #0
	mov 	TL0, #0F0h
	mov 	TH0, #0D8h
	setb 	ET0
	setb 	EA

start:
	mov 	a, r0
	lcall ampelsprung
	mov 	p2, a
	
	sjmp 	start	


reset0:
	lcall reset1
	reti
	
reset1:	
	mov	r0, #0
	ret


ampelsprung:
	mov	dptr,	#ampelphasen
	movc	a, @a+dptr
	ret
		
ampelphasen:
	DB 		10000001b, 10000010b, 10000100b, 11000100b, 00100100b, 01000100b, 10000100b, 10000110b