;===============================================================================
; Program demonstracyjny DEMO1
;===============================================================================
; Opis: Rotacja punktu świetlnego (ciemnego) na porcie P4
;	- realizacja w programie głównym
;	- P5.0=H - bez opóźnień
;	- P5.0=L - z opóźnieniami
;-------------------------------------------------------------------------------
include 	REG515.INC		;Tabela predefinicyjna SFR.
;-------------------------------------------------------------------------------
						
code	at 1000h				;organizacja od adresu 1000h

		ljmp	start			;skok do poczatku programu

code	at 2000h

start:	mov	a,#001h	;wartość początkowa ACC
			mov R2, #00Eh
			mov R0, #000h
			mov R5, #000h
			mov R6, #000h
			mov   B,#10d

timer:  	mov TMOD,#01h
			setb TR0
			setb ET0
			setb EAL
			setb IT0
			clr F1

petla:	jnb P5.2,pocz
			jnb P5.1,stop
			jnb P5.0,reset
			ljmp petla			
pocz:		setb F1
			ljmp petla	
			
stop:		clr F1
			ljmp petla	
			
reset:	mov P4,#000h
			mov r0,#000h
			clr F1
			ljmp petla			
			

			ORG 100Bh
			jnb F1,aaa
			djnz R2, aaa
			mov R2,#00Eh	
         inc r0
         mov a, r0
			mov B,#10d						
			DIV aB
			mov r5,B
			mov B, #10d
			DIV aB
         mov r6, B
         mov B,#16d
         mov a, r6
			MUL aB	
			add a,r5
	      mov p4, a

aaa:		RETI	
;-------------------------------------------------------------------------------	
			
END