;-------------------------------------------------------------------------------
include 	REG515.INC		;Tabela predefinicyjna SFR.
;-------------------------------------------------------------------------------
code	at 1000h				;organizacja od adresu 1000h
		ljmp	start			;skok do poczatku programu
code	at 2000h
start:	mov TMOD, #01h
			setb TR0
			setb ET0
			setb EAL

			mov TL0, #0E0h
			mov TH0, #0FFh
			mov a, #00h
			mov DPTR, #00h
			mov	r0,#00h	;epsilon
			mov	r4,#00h	;h1
			mov	r5,#00h	;h2
			mov	r6,#64d	;wartość histerezy
			mov	r7,#00h	;wartość histerezy
			mov p4, #0h
			clr p1.3
			clr p1.2
			clr MX0
			clr MX1
			clr MX2
			setb ADM
			clr f1

main:		ljmp main

code	at 100Bh
		ljmp	jedz			;skok

code at 3000h
jedz:
		  mov	r6,#40h	;wartość początkowa r3
			mov DAPR, #00h
opozn:	djnz	r6,opozn
		  jb BSY, jedz
		  mov a, ADDAT
        mov r0, a


		  mov a, r6
        mov b, #2d

        div ab
        mov r7, a
        add a, #128d
        mov r5, a
        mov a, #128d
        subb a, r7
        mov r4, a


        mov a ,r0
        clr c
        subb a, #200d
        jnc h2
        mov a ,r0
        clr c
        subb a, #56d
        jc h1
        jnb p4.0, h1
        ljmp h2

h1:		clr p4.0
        	mov TL0, #0E0h
			mov TH0, #0FFh
			reti

h2:
			setb p4.0
        	mov TL0, #0E0h
			mov TH0, #0FFh
			reti

END