Przepisanie kodu z Bascom na ASM dla AT89C2051 - ustawienie P1.7

sub spraw

if p1.1=0 and p1.3=0 then
	reset p1.7
		else 
		if p1.1=1 and p1.3=0 then
		set p1.7
				else 
				if p1.1=1 and p1.3=1 then
				reset p1.7
					else 
					if p1.1=0 and p1.3=1 then
					reset p1.7
						else 
						wait 3
						
						
					end if
				end if
		end if
end if
call spraw

  $mod51

  START:
  		CMP P1.1, 0& P1.3, 0
		JNE  SPR2
		JE setb P1.7
		LJMP START
		
	SPR2:
		CMP P1.1, 0& P1.3, 1
		JNE	SPR3
		JE setb P1.7
		LJMP START
		
	SPR3:
		CMP P1.1, 1& P1.3, 1
		JNE	SPR4
		JE setb P1.7
		LJMP START
		
	SPR4:
		CMP P1.1, 1& P1.3, 0
		JE CLR P1.7
		LJMP START
		
END