ITH-prog-1-test-(PT)
0000-00-00 00:00:00

Kp obs funzen kann,... in meiner theorie schauts gut aus (aber müßte man mal praktisch testen^^°)

---------------------------------------------------

Code at 0

include c51RD2.INC


main:	
	JBC	p3.2, achter
	JBC	p3.3, laeufer
	SJMP	main


achter:
	mov	p2, #0
	mov	@R0, #0FFh
	mov	@R1, #5Bh
	setb	p2.1
	call	loop
	clr	p2.1
	setb	p2.2
	call	loop
	clr	p2.2
	setb	p2.3
	call	loop
	clr	p2.3
	setb	p2.7
	call	loop
	clr	p2.7
	setb	p2.6
	call	loop
	clr	p2.6
	setb	p2.5
	call	loop
	clr	p2.5
	setb	p2.4
	call	loop
	clr	p2.4
	setb	p2.7
	call	loop
	clr	p2.7
	mov	p2, #0FFh
	mov	p2, #0
	sjmp	main


laeufer:
	mov	p2, #0
	mov	@R0, #0FFh
	mov	@R1, #20h
	setb	p2.0
	call	loop2
	clr	p2.0
	setb	p2.1
	call	loop2
	clr	p2.1
	setb	p2.2
	call	loop2
	clr	p2.2
	setb	p2.3
	call	loop2
	clr	p2.3
	setb	p2.4
	call	loop2
	clr	p2.4
	setb	p2.5
	call	loop2
	clr	p2.5
	setb	p2.6
	call	loop2
	clr	p2.6
	setb	p2.7
	call	loop2
	clr	p2.7
	setb	p2.7
	call	loop2
	clr	p2.7
	setb	p2.6
	call	loop2
	clr	p2.6
	setb	p2.5
	call	loop2
	clr	p2.5
	setb	p2.4
	call	loop2
	clr	p2.4
	setb	p2.3
	call	loop2
	clr	p2.3
	setb	p2.2
	call	loop2
	clr	p2.2
	setb	p2.1
	call	loop2
	clr	p2.1
	setb	p2.0
	call	loop2
	clr	p2.0
	sjmp	main

loop:
	DEC	R1
	DJNZ	R1, loop1

	ret

loop1:
	DEC	R0
	DJNZ	R0, loop1	
	sjmp	loop

loop2:
	DEC	R1
	DJNZ	R1, loop3
	
	ret

loop3:
	DEC	R0
	DJNZ	R0, loop3
	sjmp	loop2